5 Read the atis_lexicon.hxx file and print
6 the vocabulary words ... plus phonetic digits and letters.
8 See also list-airports.pl
11 FG_ROOT=/home/whatever/fgdata FG_SRC=/home/whatever/flightgear ./atis-lex.pl > phraseology.vlist
18 my $fgroot = $ENV{'FG_ROOT'} || '.';
25 my $mapfn = "$ENV{'FG_SRC'}/src/ATCDCL/atis_lexicon.hxx";
26 my $mapch = Symbol::gensym;
27 if (!open($mapch, '<', $mapfn)) {
28 print STDERR "Could not open abbreviation file '$mapfn'\n";
29 print STDERR "Maybe you need to set FG_ROOT\n";
33 while (my $line = <$mapch>) {
35 if ($line =~ s/^[ \t]*Q[(]//) {
36 $line =~ s/[)][ \t]*$//;