#define MFT
#include "cpascal.h"
#define maxbytes ( 10000 )
#define maxnames ( 1000 )
#define hashsize ( 353 )
#define bufsize ( 3000 )
#define linelength ( 79 )
typedef unsigned char ASCIIcode ;
typedef text /* of ASCIIcode */ textfile ;
typedef unsigned char eightbits ;
typedef unsigned short sixteenbits ;
typedef integer namepointer ;
char history ;
ASCIIcode xord[256] ;
ASCIIcode xchr[256] ;
textfile mffile ;
textfile changefile ;
textfile stylefile ;
textfile texfile ;
ASCIIcode buffer[bufsize + 1] ;
integer line ;
integer otherline ;
integer templine ;
integer limit ;
integer loc ;
boolean inputhasended ;
boolean changing ;
boolean styling ;
ASCIIcode changebuffer[bufsize + 1] ;
integer changelimit ;
ASCIIcode bytemem[maxbytes + 1] ;
sixteenbits bytestart[maxnames + 1] ;
sixteenbits link[maxnames + 1] ;
sixteenbits ilk[maxnames + 1] ;
namepointer nameptr ;
integer byteptr ;
integer idfirst ;
integer idloc ;
sixteenbits hash[hashsize + 1] ;
namepointer translation[256] ;
ASCIIcode i ;
namepointer trle, trge, trne, tramp, trsharp, trskip, trps, trquad ;
eightbits curtype ;
integer curtok ;
eightbits prevtype ;
integer prevtok ;
boolean startofline ;
boolean emptybuffer ;
char charclass[256] ;
ASCIIcode outbuf[linelength + 1] ;
integer outptr ;
integer outline ;
cstring changename, stylename, texname ;
#include "mft.h"
void
#ifdef HAVE_PROTOTYPES
error ( void )
#else
error ( )
#endif
{
integer k, l ;
{
if ( styling )
Fputs( stdout , ". (style file " ) ;
else if ( changing )
Fputs( stdout , ". (change file " ) ;
else
Fputs( stdout , ". (" ) ;
fprintf( stdout , "%s%ld%c\n", "l." , (long)line , ')' ) ;
if ( loc >= limit )
l = limit ;
else l = loc ;
{register integer for_end; k = 1 ;for_end = l ; if ( k <= for_end) do
putc ( xchr [buffer [k - 1 ]], stdout );
while ( k++ < for_end ) ;}
putc ('\n', stdout );
{register integer for_end; k = 1 ;for_end = l ; if ( k <= for_end) do
putc ( ' ' , stdout );
while ( k++ < for_end ) ;}
{register integer for_end; k = l + 1 ;for_end = limit ; if ( k <=
for_end) do
putc ( xchr [buffer [k - 1 ]], stdout );
while ( k++ < for_end ) ;}
}
fflush ( stdout ) ;
history = 2 ;
}
void
#ifdef HAVE_PROTOTYPES
jumpout ( void )
#else
jumpout ( )
#endif
{
switch ( history )
{case 0 :
{
putc ('\n', stdout );
Fputs( stdout , "(No errors were found.)" ) ;
}
break ;
case 1 :
{
putc ('\n', stdout );
Fputs( stdout , "(Did you see the warning message above?)" ) ;
}
break ;
case 2 :
{
putc ('\n', stdout );
Fputs( stdout , "(Pardon me, but I think I spotted something wrong.)" )
;
}
break ;
case 3 :
{
putc ('\n', stdout );
Fputs( stdout , "(That was a fatal error, my friend.)" ) ;
}
break ;
}
putc ('\n', stdout );
if ( ( history != 0 ) && ( history != 1 ) )
uexit ( 1 ) ;
else uexit ( 0 ) ;
}
void
#ifdef HAVE_PROTOTYPES
parsearguments ( void )
#else
parsearguments ( )
#endif
{
#define noptions ( 4 )
getoptstruct longoptions[noptions + 1] ;
integer getoptreturnval ;
cinttype optionindex ;
integer currentoption ;
stylename = "plain.mft" ;
currentoption = 0 ;
longoptions [currentoption ].name = "help" ;
longoptions [currentoption ].hasarg = 0 ;
longoptions [currentoption ].flag = 0 ;
longoptions [currentoption ].val = 0 ;
currentoption = currentoption + 1 ;
longoptions [currentoption ].name = "version" ;
longoptions [currentoption ].hasarg = 0 ;
longoptions [currentoption ].flag = 0 ;
longoptions [currentoption ].val = 0 ;
currentoption = currentoption + 1 ;
longoptions [currentoption ].name = "change" ;
longoptions [currentoption ].hasarg = 1 ;
longoptions [currentoption ].flag = 0 ;
longoptions [currentoption ].val = 0 ;
currentoption = currentoption + 1 ;
longoptions [currentoption ].name = "style" ;
longoptions [currentoption ].hasarg = 1 ;
longoptions [currentoption ].flag = 0 ;
longoptions [currentoption ].val = 0 ;
currentoption = currentoption + 1 ;
longoptions [currentoption ].name = 0 ;
longoptions [currentoption ].hasarg = 0 ;
longoptions [currentoption ].flag = 0 ;
longoptions [currentoption ].val = 0 ;
do {
getoptreturnval = getoptlongonly ( argc , argv , "" , longoptions ,
addressof ( optionindex ) ) ;
if ( getoptreturnval == -1 )
{
;
}
else if ( getoptreturnval == 63 )
{
usage ( 1 , "mft" ) ;
}
else if ( ( strcmp ( longoptions [optionindex ].name , "help" ) == 0 ) )
{
usage ( 0 , MFTHELP ) ;
}
else if ( ( strcmp ( longoptions [optionindex ].name , "version" ) == 0
) )
{
printversionandexit ( "This is MFT, Version 2.0" , nil , "D.E. Knuth" )
;
}
else if ( ( strcmp ( longoptions [optionindex ].name , "change" ) == 0 )
)
{
changename = extendfilename ( optarg , "ch" ) ;
}
else if ( ( strcmp ( longoptions [optionindex ].name , "style" ) == 0 )
)
{
stylename = extendfilename ( optarg , "mft" ) ;
}
} while ( ! ( getoptreturnval == -1 ) ) ;
if ( ( optind + 1 != argc ) )
{
fprintf( stderr , "%s\n", "mft: Need exactly one file argument." ) ;
usage ( 1 , "mft" ) ;
}
texname = basenamechangesuffix ( cmdline ( optind ) , ".mf" , ".tex" ) ;
}
void
#ifdef HAVE_PROTOTYPES
initialize ( void )
#else
initialize ( )
#endif
{
unsigned char i ;
integer h ;
kpsesetprogname ( argv [0 ]) ;
parsearguments () ;
history = 0 ;
xchr [32 ]= ' ' ;
xchr [33 ]= '!' ;
xchr [34 ]= '"' ;
xchr [35 ]= '#' ;
xchr [36 ]= '$' ;
xchr [37 ]= '%' ;
xchr [38 ]= '&' ;
xchr [39 ]= '\'' ;
xchr [40 ]= '(' ;
xchr [41 ]= ')' ;
xchr [42 ]= '*' ;
xchr [43 ]= '+' ;
xchr [44 ]= ',' ;
xchr [45 ]= '-' ;
xchr [46 ]= '.' ;
xchr [47 ]= '/' ;
xchr [48 ]= '0' ;
xchr [49 ]= '1' ;
xchr [50 ]= '2' ;
xchr [51 ]= '3' ;
xchr [52 ]= '4' ;
xchr [53 ]= '5' ;
xchr [54 ]= '6' ;
xchr [55 ]= '7' ;
xchr [56 ]= '8' ;
xchr [57 ]= '9' ;
xchr [58 ]= ':' ;
xchr [59 ]= ';' ;
xchr [60 ]= '<' ;
xchr [61 ]= '=' ;
xchr [62 ]= '>' ;
xchr [63 ]= '?' ;
xchr [64 ]= '@' ;
xchr [65 ]= 'A' ;
xchr [66 ]= 'B' ;
xchr [67 ]= 'C' ;
xchr [68 ]= 'D' ;
xchr [69 ]= 'E' ;
xchr [70 ]= 'F' ;
xchr [71 ]= 'G' ;
xchr [72 ]= 'H' ;
xchr [73 ]= 'I' ;
xchr [74 ]= 'J' ;
xchr [75 ]= 'K' ;
xchr [76 ]= 'L' ;
xchr [77 ]= 'M' ;
xchr [78 ]= 'N' ;
xchr [79 ]= 'O' ;
xchr [80 ]= 'P' ;
xchr [81 ]= 'Q' ;
xchr [82 ]= 'R' ;
xchr [83 ]= 'S' ;
xchr [84 ]= 'T' ;
xchr [85 ]= 'U' ;
xchr [86 ]= 'V' ;
xchr [87 ]= 'W' ;
xchr [88 ]= 'X' ;
xchr [89 ]= 'Y' ;
xchr [90 ]= 'Z' ;
xchr [91 ]= '[' ;
xchr [92 ]= '\\' ;
xchr [93 ]= ']' ;
xchr [94 ]= '^' ;
xchr [95 ]= '_' ;
xchr [96 ]= '`' ;
xchr [97 ]= 'a' ;
xchr [98 ]= 'b' ;
xchr [99 ]= 'c' ;
xchr [100 ]= 'd' ;
xchr [101 ]= 'e' ;
xchr [102 ]= 'f' ;
xchr [103 ]= 'g' ;
xchr [104 ]= 'h' ;
xchr [105 ]= 'i' ;
xchr [106 ]= 'j' ;
xchr [107 ]= 'k' ;
xchr [108 ]= 'l' ;
xchr [109 ]= 'm' ;
xchr [110 ]= 'n' ;
xchr [111 ]= 'o' ;
xchr [112 ]= 'p' ;
xchr [113 ]= 'q' ;
xchr [114 ]= 'r' ;
xchr [115 ]= 's' ;
xchr [116 ]= 't' ;
xchr [117 ]= 'u' ;
xchr [118 ]= 'v' ;
xchr [119 ]= 'w' ;
xchr [120 ]= 'x' ;
xchr [121 ]= 'y' ;
xchr [122 ]= 'z' ;
xchr [123 ]= '{' ;
xchr [124 ]= '|' ;
xchr [125 ]= '}' ;
xchr [126 ]= '~' ;
{register integer for_end; i = 1 ;for_end = 31 ; if ( i <= for_end) do
xchr [i ]= chr ( i ) ;
while ( i++ < for_end ) ;}
{register integer for_end; i = 127 ;for_end = 255 ; if ( i <= for_end) do
xchr [i ]= chr ( i ) ;
while ( i++ < for_end ) ;}
{register integer for_end; i = 0 ;for_end = 255 ; if ( i <= for_end) do
xord [chr ( i ) ]= 127 ;
while ( i++ < for_end ) ;}
{register integer for_end; i = 128 ;for_end = 255 ; if ( i <= for_end) do
xord [xchr [i ]]= i ;
while ( i++ < for_end ) ;}
{register integer for_end; i = 1 ;for_end = 126 ; if ( i <= for_end) do
xord [xchr [i ]]= i ;
while ( i++ < for_end ) ;}
rewrite ( texfile , texname ) ;
bytestart [0 ]= 0 ;
byteptr = 0 ;
bytestart [1 ]= 0 ;
nameptr = 1 ;
{register integer for_end; h = 0 ;for_end = hashsize - 1 ; if ( h <=
for_end) do
hash [h ]= 0 ;
while ( h++ < for_end ) ;}
curtype = 1 ;
curtok = 0 ;
{register integer for_end; i = 48 ;for_end = 57 ; if ( i <= for_end) do
charclass [i ]= 0 ;
while ( i++ < for_end ) ;}
charclass [46 ]= 1 ;
charclass [32 ]= 2 ;
charclass [37 ]= 3 ;
charclass [34 ]= 4 ;
charclass [44 ]= 5 ;
charclass [59 ]= 6 ;
charclass [40 ]= 7 ;
charclass [41 ]= 8 ;
{register integer for_end; i = 65 ;for_end = 90 ; if ( i <= for_end) do
charclass [i ]= 9 ;
while ( i++ < for_end ) ;}
{register integer for_end; i = 97 ;for_end = 122 ; if ( i <= for_end) do
charclass [i ]= 9 ;
while ( i++ < for_end ) ;}
charclass [95 ]= 9 ;
charclass [60 ]= 10 ;
charclass [61 ]= 10 ;
charclass [62 ]= 10 ;
charclass [58 ]= 10 ;
charclass [124 ]= 10 ;
charclass [96 ]= 11 ;
charclass [39 ]= 11 ;
charclass [43 ]= 12 ;
charclass [45 ]= 12 ;
charclass [47 ]= 13 ;
charclass [42 ]= 13 ;
charclass [92 ]= 13 ;
charclass [33 ]= 14 ;
charclass [63 ]= 14 ;
charclass [35 ]= 15 ;
charclass [38 ]= 15 ;
charclass [64 ]= 15 ;
charclass [36 ]= 15 ;
charclass [94 ]= 16 ;
charclass [126 ]= 16 ;
charclass [91 ]= 17 ;
charclass [93 ]= 18 ;
charclass [123 ]= 19 ;
charclass [125 ]= 19 ;
{register integer for_end; i = 0 ;for_end = 31 ; if ( i <= for_end) do
charclass [i ]= 9 ;
while ( i++ < for_end ) ;}
{register integer for_end; i = 127 ;for_end = 255 ; if ( i <= for_end) do
charclass [i ]= 9 ;
while ( i++ < for_end ) ;}
charclass [13 ]= 21 ;
charclass [9 ]= 2 ;
charclass [12 ]= 2 ;
outptr = 1 ;
outbuf [1 ]= 32 ;
outline = 1 ;
Fputs( texfile , "\\input mftmac" ) ;
outbuf [0 ]= 92 ;
}
void
#ifdef HAVE_PROTOTYPES
openinput ( void )
#else
openinput ( )
#endif
{
mffile = kpseopenfile ( cmdline ( optind ) , kpsemfformat ) ;
if ( changename )
{
reset ( changefile , changename ) ;
}
stylefile = kpseopenfile ( stylename , kpsemftformat ) ;
}
boolean
#ifdef HAVE_PROTOTYPES
zinputln ( textfile f )
#else
zinputln ( f )
textfile f ;
#endif
{
register boolean Result; integer finallimit ;
limit = 0 ;
finallimit = 0 ;
if ( eof ( f ) )
Result = false ;
else {
while ( ! eoln ( f ) ) {
buffer [limit ]= xord [getc ( f ) ];
limit = limit + 1 ;
if ( buffer [limit - 1 ]!= 32 )
finallimit = limit ;
if ( limit == bufsize )
{
while ( ! eoln ( f ) ) vgetc ( f ) ;
limit = limit - 1 ;
if ( finallimit > limit )
finallimit = limit ;
{
putc ('\n', stdout );
Fputs( stdout , "! Input line too long" ) ;
}
loc = 0 ;
error () ;
}
}
readln ( f ) ;
limit = finallimit ;
Result = true ;
}
return Result ;
}
boolean
#ifdef HAVE_PROTOTYPES
linesdontmatch ( void )
#else
linesdontmatch ( )
#endif
{
/* 10 */ register boolean Result; integer k ;
Result = true ;
if ( changelimit != limit )
goto lab10 ;
if ( limit > 0 )
{register integer for_end; k = 0 ;for_end = limit - 1 ; if ( k <= for_end)
do
if ( changebuffer [k ]!= buffer [k ])
goto lab10 ;
while ( k++ < for_end ) ;}
Result = false ;
lab10: ;
return Result ;
}
void
#ifdef HAVE_PROTOTYPES
primethechangebuffer ( void )
#else
primethechangebuffer ( )
#endif
{
/* 22 30 10 */ integer k ;
changelimit = 0 ;
while ( true ) {
line = line + 1 ;
if ( ! inputln ( changefile ) )
goto lab10 ;
if ( limit < 2 )
goto lab22 ;
if ( buffer [0 ]!= 64 )
goto lab22 ;
if ( ( buffer [1 ]>= 88 ) && ( buffer [1 ]<= 90 ) )
buffer [1 ]= buffer [1 ]+ 32 ;
if ( buffer [1 ]== 120 )
goto lab30 ;
if ( ( buffer [1 ]== 121 ) || ( buffer [1 ]== 122 ) )
{
loc = 2 ;
{
putc ('\n', stdout );
Fputs( stdout , "! Where is the matching @x?" ) ;
error () ;
}
}
lab22: ;
}
lab30: ;
do {
line = line + 1 ;
if ( ! inputln ( changefile ) )
{
{
putc ('\n', stdout );
Fputs( stdout , "! Change file ended after @x" ) ;
error () ;
}
goto lab10 ;
}
} while ( ! ( limit > 0 ) ) ;
{
changelimit = limit ;
if ( limit > 0 )
{register integer for_end; k = 0 ;for_end = limit - 1 ; if ( k <=
for_end) do
changebuffer [k ]= buffer [k ];
while ( k++ < for_end ) ;}
}
lab10: ;
}
void
#ifdef HAVE_PROTOTYPES
checkchange ( void )
#else
checkchange ( )
#endif
{
/* 10 */ integer n ;
integer k ;
if ( linesdontmatch () )
goto lab10 ;
n = 0 ;
while ( true ) {
changing = ! changing ;
templine = otherline ;
otherline = line ;
line = templine ;
line = line + 1 ;
if ( ! inputln ( changefile ) )
{
{
putc ('\n', stdout );
Fputs( stdout , "! Change file ended before @y" ) ;
error () ;
}
changelimit = 0 ;
changing = ! changing ;
templine = otherline ;
otherline = line ;
line = templine ;
goto lab10 ;
}
if ( limit > 1 )
if ( buffer [0 ]== 64 )
{
if ( ( buffer [1 ]>= 88 ) && ( buffer [1 ]<= 90 ) )
buffer [1 ]= buffer [1 ]+ 32 ;
if ( ( buffer [1 ]== 120 ) || ( buffer [1 ]== 122 ) )
{
loc = 2 ;
{
putc ('\n', stdout );
Fputs( stdout , "! Where is the matching @y?" ) ;
error () ;
}
}
else if ( buffer [1 ]== 121 )
{
if ( n > 0 )
{
loc = 2 ;
{
putc ('\n', stdout );
fprintf( stdout , "%s%ld%s", "! Hmm... " , (long)n , " of the preceding lines failed to match" ) ;
error () ;
}
}
goto lab10 ;
}
}
{
changelimit = limit ;
if ( limit > 0 )
{register integer for_end; k = 0 ;for_end = limit - 1 ; if ( k <=
for_end) do
changebuffer [k ]= buffer [k ];
while ( k++ < for_end ) ;}
}
changing = ! changing ;
templine = otherline ;
otherline = line ;
line = templine ;
line = line + 1 ;
if ( ! inputln ( mffile ) )
{
{
putc ('\n', stdout );
Fputs( stdout , "! MF file ended during a change" ) ;
error () ;
}
inputhasended = true ;
goto lab10 ;
}
if ( linesdontmatch () )
n = n + 1 ;
}
lab10: ;
}
void
#ifdef HAVE_PROTOTYPES
getline ( void )
#else
getline ( )
#endif
{
/* 20 */ lab20: if ( styling )
{
line = line + 1 ;
if ( ! inputln ( stylefile ) )
{
styling = false ;
line = 0 ;
}
}
if ( ! styling )
{
if ( changing )
{
line = line + 1 ;
if ( ! inputln ( changefile ) )
{
{
putc ('\n', stdout );
Fputs( stdout , "! Change file ended without @z" ) ;
error () ;
}
buffer [0 ]= 64 ;
buffer [1 ]= 122 ;
limit = 2 ;
}
if ( limit > 1 )
if ( buffer [0 ]== 64 )
{
if ( ( buffer [1 ]>= 88 ) && ( buffer [1 ]<= 90 ) )
buffer [1 ]= buffer [1 ]+ 32 ;
if ( ( buffer [1 ]== 120 ) || ( buffer [1 ]== 121 ) )
{
loc = 2 ;
{
putc ('\n', stdout );
Fputs( stdout , "! Where is the matching @z?" ) ;
error () ;
}
}
else if ( buffer [1 ]== 122 )
{
primethechangebuffer () ;
changing = ! changing ;
templine = otherline ;
otherline = line ;
line = templine ;
}
}
}
if ( ! changing )
{
{
line = line + 1 ;
if ( ! inputln ( mffile ) )
inputhasended = true ;
else if ( limit == changelimit )
if ( buffer [0 ]== changebuffer [0 ])
if ( changelimit > 0 )
checkchange () ;
}
if ( changing )
goto lab20 ;
}
}
}
namepointer
#ifdef HAVE_PROTOTYPES
lookup ( void )
#else
lookup ( )
#endif
{
/* 31 */ register namepointer Result; integer i ;
integer h ;
integer k ;
integer l ;
namepointer p ;
l = idloc - idfirst ;
h = buffer [idfirst ];
i = idfirst + 1 ;
while ( i < idloc ) {
h = ( h + h + buffer [i ]) % hashsize ;
i = i + 1 ;
}
p = hash [h ];
while ( p != 0 ) {
if ( bytestart [p + 1 ]- bytestart [p ]== l )
{
i = idfirst ;
k = bytestart [p ];
while ( ( i < idloc ) && ( buffer [i ]== bytemem [k ]) ) {
i = i + 1 ;
k = k + 1 ;
}
if ( i == idloc )
goto lab31 ;
}
p = link [p ];
}
p = nameptr ;
link [p ]= hash [h ];
hash [h ]= p ;
lab31: ;
if ( p == nameptr )
{
if ( byteptr + l > maxbytes )
{
putc ('\n', stdout );
fprintf( stdout , "%s%s%s", "! Sorry, " , "byte memory" , " capacity exceeded" ) ;
error () ;
history = 3 ;
jumpout () ;
}
if ( nameptr + 1 > maxnames )
{
putc ('\n', stdout );
fprintf( stdout , "%s%s%s", "! Sorry, " , "name" , " capacity exceeded" ) ;
error () ;
history = 3 ;
jumpout () ;
}
i = idfirst ;
while ( i < idloc ) {
bytemem [byteptr ]= buffer [i ];
byteptr = byteptr + 1 ;
i = i + 1 ;
}
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
ilk [p ]= 33 ;
}
Result = p ;
return Result ;
}
void
#ifdef HAVE_PROTOTYPES
getnext ( void )
#else
getnext ( )
#endif
{
/* 25 85 86 30 31 10 */ ASCIIcode c ;
ASCIIcode classvar ;
prevtype = curtype ;
prevtok = curtok ;
if ( emptybuffer )
{
getline () ;
if ( inputhasended )
{
curtype = 2 ;
curtok = idfirst ;
goto lab10 ;
}
buffer [limit ]= 13 ;
loc = 0 ;
startofline = true ;
emptybuffer = false ;
}
lab25: c = buffer [loc ];
idfirst = loc ;
loc = loc + 1 ;
classvar = charclass [c ];
switch ( classvar )
{case 0 :
goto lab85 ;
break ;
case 1 :
{
classvar = charclass [buffer [loc ]];
if ( classvar > 1 )
goto lab25 ;
else if ( classvar < 1 )
goto lab86 ;
}
break ;
case 2 :
if ( startofline )
{
curtype = 0 ;
curtok = idfirst ;
goto lab10 ;
}
else goto lab25 ;
break ;
case 21 :
{
curtype = 1 ;
curtok = idfirst ;
goto lab10 ;
}
break ;
case 4 :
while ( true ) {
if ( buffer [loc ]== 34 )
{
loc = loc + 1 ;
{
curtype = 7 ;
curtok = idfirst ;
goto lab10 ;
}
}
if ( loc == limit )
{
{
putc ('\n', stdout );
Fputs( stdout , "! Incomplete string will be ignored" ) ;
error () ;
}
goto lab25 ;
}
loc = loc + 1 ;
}
break ;
case 5 :
case 6 :
case 7 :
case 8 :
goto lab31 ;
break ;
case 20 :
{
{
putc ('\n', stdout );
Fputs( stdout , "! Invalid character will be ignored" ) ;
error () ;
}
goto lab25 ;
}
break ;
default:
;
break ;
}
while ( charclass [buffer [loc ]]== classvar ) loc = loc + 1 ;
goto lab31 ;
lab85: while ( charclass [buffer [loc ]]== 0 ) loc = loc + 1 ;
if ( buffer [loc ]!= 46 )
goto lab30 ;
if ( charclass [buffer [loc + 1 ]]!= 0 )
goto lab30 ;
loc = loc + 1 ;
lab86: do {
loc = loc + 1 ;
} while ( ! ( charclass [buffer [loc ]]!= 0 ) ) ;
lab30: {
curtype = 6 ;
curtok = idfirst ;
goto lab10 ;
}
lab31: idloc = loc ;
curtok = lookup () ;
curtype = ilk [curtok ];
lab10: ;
}
void
#ifdef HAVE_PROTOTYPES
zflushbuffer ( eightbits b , boolean percent )
#else
zflushbuffer ( b , percent )
eightbits b ;
boolean percent ;
#endif
{
/* 30 */ integer j, k ;
j = b ;
if ( ! percent )
while ( true ) {
if ( j == 0 )
goto lab30 ;
if ( outbuf [j ]!= 32 )
goto lab30 ;
j = j - 1 ;
}
lab30: {
register integer for_end; k = 1 ;for_end = j ; if ( k <= for_end)
do
putc ( xchr [outbuf [k ]], texfile );
while ( k++ < for_end ) ;}
if ( percent )
putc ( xchr [37 ], texfile );
putc ('\n', texfile );
outline = outline + 1 ;
if ( b < outptr )
{register integer for_end; k = b + 1 ;for_end = outptr ; if ( k <=
for_end) do
outbuf [k - b ]= outbuf [k ];
while ( k++ < for_end ) ;}
outptr = outptr - b ;
}
void
#ifdef HAVE_PROTOTYPES
breakout ( void )
#else
breakout ( )
#endif
{
/* 10 */ integer k ;
ASCIIcode d ;
k = outptr ;
while ( true ) {
if ( k == 0 )
{
{
putc ('\n', stdout );
fprintf( stdout , "%s%ld", "! Line had to be broken (output l." , (long)outline ) ;
}
fprintf( stdout , "%s\n", "):" ) ;
{register integer for_end; k = 1 ;for_end = outptr - 1 ; if ( k <=
for_end) do
putc ( xchr [outbuf [k ]], stdout );
while ( k++ < for_end ) ;}
putc ('\n', stdout );
if ( history == 0 )
history = 1 ;
flushbuffer ( outptr - 1 , true ) ;
goto lab10 ;
}
d = outbuf [k ];
if ( d == 32 )
{
flushbuffer ( k , false ) ;
goto lab10 ;
}
if ( ( d == 92 ) && ( outbuf [k - 1 ]!= 92 ) )
{
flushbuffer ( k - 1 , true ) ;
goto lab10 ;
}
k = k - 1 ;
}
lab10: ;
}
void
#ifdef HAVE_PROTOTYPES
zoutstr ( namepointer p )
#else
zoutstr ( p )
namepointer p ;
#endif
{
integer k ;
{register integer for_end; k = bytestart [p ];for_end = bytestart [p +
1 ]- 1 ; if ( k <= for_end) do
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= bytemem [k ];
}
while ( k++ < for_end ) ;}
}
void
#ifdef HAVE_PROTOTYPES
zoutname ( namepointer p )
#else
zoutname ( p )
namepointer p ;
#endif
{
integer k ;
namepointer t ;
{register integer for_end; k = bytestart [p ];for_end = bytestart [p +
1 ]- 1 ; if ( k <= for_end) do
{
t = translation [bytemem [k ]];
if ( t == 0 )
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= bytemem [k ];
}
else outstr ( t ) ;
}
while ( k++ < for_end ) ;}
}
void
#ifdef HAVE_PROTOTYPES
zoutmacandname ( ASCIIcode n , namepointer p )
#else
zoutmacandname ( n , p )
ASCIIcode n ;
namepointer p ;
#endif
{
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
}
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= n ;
}
if ( bytestart [p + 1 ]- bytestart [p ]== 1 )
outname ( p ) ;
else {
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 123 ;
}
outname ( p ) ;
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 125 ;
}
}
}
void
#ifdef HAVE_PROTOTYPES
zcopy ( integer firstloc )
#else
zcopy ( firstloc )
integer firstloc ;
#endif
{
integer k ;
{register integer for_end; k = firstloc ;for_end = loc - 1 ; if ( k <=
for_end) do
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= buffer [k ];
}
while ( k++ < for_end ) ;}
}
void
#ifdef HAVE_PROTOTYPES
dothetranslation ( void )
#else
dothetranslation ( )
#endif
{
/* 20 21 30 10 */ integer k ;
integer t ;
lab20: if ( outptr > 0 )
flushbuffer ( outptr , false ) ;
emptybuffer = true ;
while ( true ) {
getnext () ;
if ( startofline )
if ( curtype >= 6 )
{
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 36 ;
}
startofline = false ;
switch ( curtype )
{case 10 :
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 33 ;
}
break ;
case 11 :
case 12 :
case 13 :
case 14 :
case 15 :
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 123 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 125 ;
}
break ;
default:
;
break ;
}
}
else if ( curtype == 1 )
{
outstr ( trskip ) ;
goto lab20 ;
}
else if ( curtype == 5 )
goto lab20 ;
lab21: switch ( curtype )
{case 6 :
if ( buffer [loc ]== 47 )
if ( charclass [buffer [loc + 1 ]]== 0 )
{
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 102 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 114 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 97 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 99 ;
}
copy ( curtok ) ;
getnext () ;
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 47 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 123 ;
}
getnext () ;
copy ( curtok ) ;
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 125 ;
}
}
else copy ( curtok ) ;
else copy ( curtok ) ;
break ;
case 7 :
{
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 55 ;
}
copy ( curtok ) ;
}
break ;
case 0 :
outstr ( trquad ) ;
break ;
case 1 :
case 5 :
{
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 36 ;
}
if ( ( loc < limit ) && ( curtype == 1 ) )
{
curtype = 29 ;
goto lab21 ;
}
else {
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 112 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 97 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 114 ;
}
goto lab20 ;
}
}
break ;
case 2 :
goto lab10 ;
break ;
case 8 :
outmacandname ( 49 , curtok ) ;
break ;
case 9 :
outmacandname ( 50 , curtok ) ;
break ;
case 18 :
if ( prevtype == 9 )
outmacandname ( 49 , curtok ) ;
else outmacandname ( 50 , curtok ) ;
break ;
case 10 :
outmacandname ( 51 , curtok ) ;
break ;
case 13 :
outmacandname ( 52 , curtok ) ;
break ;
case 17 :
outmacandname ( 53 , curtok ) ;
break ;
case 11 :
outmacandname ( 54 , curtok ) ;
break ;
case 19 :
outmacandname ( 56 , curtok ) ;
break ;
case 20 :
outmacandname ( 63 , curtok ) ;
break ;
case 16 :
case 27 :
case 12 :
outname ( curtok ) ;
break ;
case 23 :
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 59 ;
}
break ;
case 21 :
{
outname ( curtok ) ;
getnext () ;
if ( curtype != 1 )
if ( curtype != 10 )
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 32 ;
}
goto lab21 ;
}
break ;
case 22 :
outstr ( translation [92 ]) ;
break ;
case 15 :
outstr ( trps ) ;
break ;
case 24 :
outstr ( trle ) ;
break ;
case 25 :
outstr ( trge ) ;
break ;
case 26 :
outstr ( trne ) ;
break ;
case 14 :
outstr ( tramp ) ;
break ;
case 31 :
{
outmacandname ( 50 , curtok ) ;
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 104 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 98 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 111 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 120 ;
}
while ( buffer [loc ]== 32 ) loc = loc + 1 ;
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 123 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 116 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 116 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 32 ;
}
while ( ( buffer [loc ]!= 32 ) && ( buffer [loc ]!= 37 ) && (
buffer [loc ]!= 59 ) && ( loc < limit ) ) {
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= buffer [loc ];
}
loc = loc + 1 ;
}
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 125 ;
}
}
break ;
case 28 :
case 29 :
{
if ( curtype == 28 )
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 57 ;
}
idfirst = loc ;
while ( ( loc < limit ) && ( buffer [loc ]!= 124 ) ) loc = loc + 1 ;
copy ( idfirst ) ;
if ( loc < limit )
{
startofline = true ;
loc = loc + 1 ;
k = loc ;
while ( ( k < limit ) && ( buffer [k ]!= 124 ) ) k = k + 1 ;
buffer [k ]= 13 ;
}
else {
if ( outbuf [outptr ]== 92 )
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 32 ;
}
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 112 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 97 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 114 ;
}
goto lab20 ;
}
}
break ;
case 3 :
{
idfirst = loc ;
loc = limit ;
copy ( idfirst ) ;
if ( outptr == 0 )
{
outptr = 1 ;
outbuf [1 ]= 32 ;
}
goto lab20 ;
}
break ;
case 4 :
{
startofline = false ;
getnext () ;
t = curtype ;
while ( curtype >= 8 ) {
getnext () ;
if ( curtype >= 8 )
ilk [curtok ]= t ;
}
if ( curtype != 1 )
if ( curtype != 5 )
{
{
putc ('\n', stdout );
Fputs( stdout , "! Only symbolic tokens should appear after %%%" ) ;
error () ;
}
goto lab21 ;
}
emptybuffer = true ;
goto lab20 ;
}
break ;
case 30 :
case 32 :
case 33 :
{
if ( bytestart [curtok + 1 ]- bytestart [curtok ]== 1 )
outname ( curtok ) ;
else outmacandname ( 92 , curtok ) ;
getnext () ;
if ( bytemem [bytestart [prevtok ]]== 39 )
goto lab21 ;
switch ( prevtype )
{case 30 :
{
if ( ( curtype == 6 ) || ( curtype >= 30 ) )
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 44 ;
}
goto lab21 ;
}
break ;
case 32 :
if ( curtype < 30 )
goto lab21 ;
else {
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 46 ;
}
curtype = 30 ;
goto lab21 ;
}
break ;
case 33 :
{
if ( curtype == 33 )
if ( bytemem [bytestart [curtok ]]== 39 )
goto lab21 ;
if ( ( curtype == 6 ) || ( curtype >= 30 ) )
{
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 95 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 123 ;
}
while ( true ) {
if ( curtype >= 30 )
outname ( curtok ) ;
else copy ( curtok ) ;
if ( prevtype == 32 )
{
getnext () ;
goto lab30 ;
}
getnext () ;
if ( curtype < 30 )
if ( curtype != 6 )
goto lab30 ;
if ( curtype == prevtype )
if ( curtype == 6 )
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 44 ;
}
else if ( charclass [bytemem [bytestart [curtok ]]]==
charclass [bytemem [bytestart [prevtok ]]])
if ( bytemem [bytestart [prevtok ]]!= 46 )
{
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 46 ;
}
else {
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 92 ;
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 44 ;
}
}
lab30: {
if ( outptr == linelength )
breakout () ;
outptr = outptr + 1 ;
outbuf [outptr ]= 125 ;
}
goto lab21 ;
}
else if ( curtype == 27 )
outstr ( trsharp ) ;
else goto lab21 ;
}
break ;
}
}
break ;
}
}
lab10: ;
}
void mainbody() {
initialize () ;
Fputs( stdout , "This is MFT, Version 2.0" ) ;
fprintf( stdout , "%s\n", versionstring ) ;
idloc = 18 ;
idfirst = 16 ;
buffer [16 ]= 46 ;
buffer [17 ]= 46 ;
curtok = lookup () ;
ilk [curtok ]= ( 19 ) ;
idfirst = 17 ;
buffer [17 ]= 91 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 17 ;
buffer [17 ]= 93 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 17 ;
buffer [17 ]= 125 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 17 ;
buffer [17 ]= 123 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 17 ;
buffer [17 ]= 58 ;
curtok = lookup () ;
ilk [curtok ]= ( 20 ) ;
idfirst = 16 ;
buffer [16 ]= 58 ;
buffer [17 ]= 58 ;
curtok = lookup () ;
ilk [curtok ]= ( 20 ) ;
idfirst = 15 ;
buffer [15 ]= 124 ;
buffer [16 ]= 124 ;
buffer [17 ]= 58 ;
curtok = lookup () ;
ilk [curtok ]= ( 20 ) ;
idfirst = 16 ;
buffer [16 ]= 58 ;
buffer [17 ]= 61 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 17 ;
buffer [17 ]= 44 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 17 ;
buffer [17 ]= 59 ;
curtok = lookup () ;
ilk [curtok ]= ( 21 ) ;
idfirst = 17 ;
buffer [17 ]= 92 ;
curtok = lookup () ;
ilk [curtok ]= ( 22 ) ;
idfirst = 16 ;
buffer [16 ]= 92 ;
buffer [17 ]= 92 ;
curtok = lookup () ;
ilk [curtok ]= ( 23 ) ;
idfirst = 13 ;
buffer [13 ]= 97 ;
buffer [14 ]= 100 ;
buffer [15 ]= 100 ;
buffer [16 ]= 116 ;
buffer [17 ]= 111 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 16 ;
buffer [16 ]= 97 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 13 ) ;
idfirst = 11 ;
buffer [11 ]= 97 ;
buffer [12 ]= 116 ;
buffer [13 ]= 108 ;
buffer [14 ]= 101 ;
buffer [15 ]= 97 ;
buffer [16 ]= 115 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 8 ;
buffer [8 ]= 98 ;
buffer [9 ]= 101 ;
buffer [10 ]= 103 ;
buffer [11 ]= 105 ;
buffer [12 ]= 110 ;
buffer [13 ]= 103 ;
buffer [14 ]= 114 ;
buffer [15 ]= 111 ;
buffer [16 ]= 117 ;
buffer [17 ]= 112 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 10 ;
buffer [10 ]= 99 ;
buffer [11 ]= 111 ;
buffer [12 ]= 110 ;
buffer [13 ]= 116 ;
buffer [14 ]= 114 ;
buffer [15 ]= 111 ;
buffer [16 ]= 108 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 14 ;
buffer [14 ]= 99 ;
buffer [15 ]= 117 ;
buffer [16 ]= 108 ;
buffer [17 ]= 108 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 14 ;
buffer [14 ]= 99 ;
buffer [15 ]= 117 ;
buffer [16 ]= 114 ;
buffer [17 ]= 108 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 8 ;
buffer [8 ]= 100 ;
buffer [9 ]= 101 ;
buffer [10 ]= 108 ;
buffer [11 ]= 105 ;
buffer [12 ]= 109 ;
buffer [13 ]= 105 ;
buffer [14 ]= 116 ;
buffer [15 ]= 101 ;
buffer [16 ]= 114 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 11 ;
buffer [11 ]= 100 ;
buffer [12 ]= 105 ;
buffer [13 ]= 115 ;
buffer [14 ]= 112 ;
buffer [15 ]= 108 ;
buffer [16 ]= 97 ;
buffer [17 ]= 121 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 10 ;
buffer [10 ]= 101 ;
buffer [11 ]= 110 ;
buffer [12 ]= 100 ;
buffer [13 ]= 103 ;
buffer [14 ]= 114 ;
buffer [15 ]= 111 ;
buffer [16 ]= 117 ;
buffer [17 ]= 112 ;
curtok = lookup () ;
ilk [curtok ]= ( 10 ) ;
idfirst = 10 ;
buffer [10 ]= 101 ;
buffer [11 ]= 118 ;
buffer [12 ]= 101 ;
buffer [13 ]= 114 ;
buffer [14 ]= 121 ;
buffer [15 ]= 106 ;
buffer [16 ]= 111 ;
buffer [17 ]= 98 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 12 ;
buffer [12 ]= 101 ;
buffer [13 ]= 120 ;
buffer [14 ]= 105 ;
buffer [15 ]= 116 ;
buffer [16 ]= 105 ;
buffer [17 ]= 102 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 7 ;
buffer [7 ]= 101 ;
buffer [8 ]= 120 ;
buffer [9 ]= 112 ;
buffer [10 ]= 97 ;
buffer [11 ]= 110 ;
buffer [12 ]= 100 ;
buffer [13 ]= 97 ;
buffer [14 ]= 102 ;
buffer [15 ]= 116 ;
buffer [16 ]= 101 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 14 ;
buffer [14 ]= 102 ;
buffer [15 ]= 114 ;
buffer [16 ]= 111 ;
buffer [17 ]= 109 ;
curtok = lookup () ;
ilk [curtok ]= ( 13 ) ;
idfirst = 10 ;
buffer [10 ]= 105 ;
buffer [11 ]= 110 ;
buffer [12 ]= 119 ;
buffer [13 ]= 105 ;
buffer [14 ]= 110 ;
buffer [15 ]= 100 ;
buffer [16 ]= 111 ;
buffer [17 ]= 119 ;
curtok = lookup () ;
ilk [curtok ]= ( 13 ) ;
idfirst = 11 ;
buffer [11 ]= 105 ;
buffer [12 ]= 110 ;
buffer [13 ]= 116 ;
buffer [14 ]= 101 ;
buffer [15 ]= 114 ;
buffer [16 ]= 105 ;
buffer [17 ]= 109 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 15 ;
buffer [15 ]= 108 ;
buffer [16 ]= 101 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 7 ;
buffer [7 ]= 110 ;
buffer [8 ]= 101 ;
buffer [9 ]= 119 ;
buffer [10 ]= 105 ;
buffer [11 ]= 110 ;
buffer [12 ]= 116 ;
buffer [13 ]= 101 ;
buffer [14 ]= 114 ;
buffer [15 ]= 110 ;
buffer [16 ]= 97 ;
buffer [17 ]= 108 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 16 ;
buffer [16 ]= 111 ;
buffer [17 ]= 102 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 8 ;
buffer [8 ]= 111 ;
buffer [9 ]= 112 ;
buffer [10 ]= 101 ;
buffer [11 ]= 110 ;
buffer [12 ]= 119 ;
buffer [13 ]= 105 ;
buffer [14 ]= 110 ;
buffer [15 ]= 100 ;
buffer [16 ]= 111 ;
buffer [17 ]= 119 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 8 ;
buffer [8 ]= 114 ;
buffer [9 ]= 97 ;
buffer [10 ]= 110 ;
buffer [11 ]= 100 ;
buffer [12 ]= 111 ;
buffer [13 ]= 109 ;
buffer [14 ]= 115 ;
buffer [15 ]= 101 ;
buffer [16 ]= 101 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 14 ;
buffer [14 ]= 115 ;
buffer [15 ]= 97 ;
buffer [16 ]= 118 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 8 ;
buffer [8 ]= 115 ;
buffer [9 ]= 99 ;
buffer [10 ]= 97 ;
buffer [11 ]= 110 ;
buffer [12 ]= 116 ;
buffer [13 ]= 111 ;
buffer [14 ]= 107 ;
buffer [15 ]= 101 ;
buffer [16 ]= 110 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 11 ;
buffer [11 ]= 115 ;
buffer [12 ]= 104 ;
buffer [13 ]= 105 ;
buffer [14 ]= 112 ;
buffer [15 ]= 111 ;
buffer [16 ]= 117 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 14 ;
buffer [14 ]= 115 ;
buffer [15 ]= 116 ;
buffer [16 ]= 101 ;
buffer [17 ]= 112 ;
curtok = lookup () ;
ilk [curtok ]= ( 13 ) ;
idfirst = 15 ;
buffer [15 ]= 115 ;
buffer [16 ]= 116 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 11 ;
buffer [11 ]= 116 ;
buffer [12 ]= 101 ;
buffer [13 ]= 110 ;
buffer [14 ]= 115 ;
buffer [15 ]= 105 ;
buffer [16 ]= 111 ;
buffer [17 ]= 110 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 16 ;
buffer [16 ]= 116 ;
buffer [17 ]= 111 ;
curtok = lookup () ;
ilk [curtok ]= ( 13 ) ;
idfirst = 13 ;
buffer [13 ]= 117 ;
buffer [14 ]= 110 ;
buffer [15 ]= 116 ;
buffer [16 ]= 105 ;
buffer [17 ]= 108 ;
curtok = lookup () ;
ilk [curtok ]= ( 13 ) ;
idfirst = 15 ;
buffer [15 ]= 100 ;
buffer [16 ]= 101 ;
buffer [17 ]= 102 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 12 ;
buffer [12 ]= 118 ;
buffer [13 ]= 97 ;
buffer [14 ]= 114 ;
buffer [15 ]= 100 ;
buffer [16 ]= 101 ;
buffer [17 ]= 102 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 8 ;
buffer [8 ]= 112 ;
buffer [9 ]= 114 ;
buffer [10 ]= 105 ;
buffer [11 ]= 109 ;
buffer [12 ]= 97 ;
buffer [13 ]= 114 ;
buffer [14 ]= 121 ;
buffer [15 ]= 100 ;
buffer [16 ]= 101 ;
buffer [17 ]= 102 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 6 ;
buffer [6 ]= 115 ;
buffer [7 ]= 101 ;
buffer [8 ]= 99 ;
buffer [9 ]= 111 ;
buffer [10 ]= 110 ;
buffer [11 ]= 100 ;
buffer [12 ]= 97 ;
buffer [13 ]= 114 ;
buffer [14 ]= 121 ;
buffer [15 ]= 100 ;
buffer [16 ]= 101 ;
buffer [17 ]= 102 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 7 ;
buffer [7 ]= 116 ;
buffer [8 ]= 101 ;
buffer [9 ]= 114 ;
buffer [10 ]= 116 ;
buffer [11 ]= 105 ;
buffer [12 ]= 97 ;
buffer [13 ]= 114 ;
buffer [14 ]= 121 ;
buffer [15 ]= 100 ;
buffer [16 ]= 101 ;
buffer [17 ]= 102 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 12 ;
buffer [12 ]= 101 ;
buffer [13 ]= 110 ;
buffer [14 ]= 100 ;
buffer [15 ]= 100 ;
buffer [16 ]= 101 ;
buffer [17 ]= 102 ;
curtok = lookup () ;
ilk [curtok ]= ( 10 ) ;
idfirst = 15 ;
buffer [15 ]= 102 ;
buffer [16 ]= 111 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 7 ;
buffer [7 ]= 102 ;
buffer [8 ]= 111 ;
buffer [9 ]= 114 ;
buffer [10 ]= 115 ;
buffer [11 ]= 117 ;
buffer [12 ]= 102 ;
buffer [13 ]= 102 ;
buffer [14 ]= 105 ;
buffer [15 ]= 120 ;
buffer [16 ]= 101 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 11 ;
buffer [11 ]= 102 ;
buffer [12 ]= 111 ;
buffer [13 ]= 114 ;
buffer [14 ]= 101 ;
buffer [15 ]= 118 ;
buffer [16 ]= 101 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 12 ;
buffer [12 ]= 101 ;
buffer [13 ]= 110 ;
buffer [14 ]= 100 ;
buffer [15 ]= 102 ;
buffer [16 ]= 111 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 10 ) ;
idfirst = 13 ;
buffer [13 ]= 113 ;
buffer [14 ]= 117 ;
buffer [15 ]= 111 ;
buffer [16 ]= 116 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 14 ;
buffer [14 ]= 101 ;
buffer [15 ]= 120 ;
buffer [16 ]= 112 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 12 ;
buffer [12 ]= 115 ;
buffer [13 ]= 117 ;
buffer [14 ]= 102 ;
buffer [15 ]= 102 ;
buffer [16 ]= 105 ;
buffer [17 ]= 120 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 14 ;
buffer [14 ]= 116 ;
buffer [15 ]= 101 ;
buffer [16 ]= 120 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 11 ;
buffer [11 ]= 112 ;
buffer [12 ]= 114 ;
buffer [13 ]= 105 ;
buffer [14 ]= 109 ;
buffer [15 ]= 97 ;
buffer [16 ]= 114 ;
buffer [17 ]= 121 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 9 ;
buffer [9 ]= 115 ;
buffer [10 ]= 101 ;
buffer [11 ]= 99 ;
buffer [12 ]= 111 ;
buffer [13 ]= 110 ;
buffer [14 ]= 100 ;
buffer [15 ]= 97 ;
buffer [16 ]= 114 ;
buffer [17 ]= 121 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 10 ;
buffer [10 ]= 116 ;
buffer [11 ]= 101 ;
buffer [12 ]= 114 ;
buffer [13 ]= 116 ;
buffer [14 ]= 105 ;
buffer [15 ]= 97 ;
buffer [16 ]= 114 ;
buffer [17 ]= 121 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 13 ;
buffer [13 ]= 105 ;
buffer [14 ]= 110 ;
buffer [15 ]= 112 ;
buffer [16 ]= 117 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 31 ) ;
idfirst = 10 ;
buffer [10 ]= 101 ;
buffer [11 ]= 110 ;
buffer [12 ]= 100 ;
buffer [13 ]= 105 ;
buffer [14 ]= 110 ;
buffer [15 ]= 112 ;
buffer [16 ]= 117 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 16 ;
buffer [16 ]= 105 ;
buffer [17 ]= 102 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 16 ;
buffer [16 ]= 102 ;
buffer [17 ]= 105 ;
curtok = lookup () ;
ilk [curtok ]= ( 10 ) ;
idfirst = 14 ;
buffer [14 ]= 101 ;
buffer [15 ]= 108 ;
buffer [16 ]= 115 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 12 ;
buffer [12 ]= 101 ;
buffer [13 ]= 108 ;
buffer [14 ]= 115 ;
buffer [15 ]= 101 ;
buffer [16 ]= 105 ;
buffer [17 ]= 102 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 14 ;
buffer [14 ]= 116 ;
buffer [15 ]= 114 ;
buffer [16 ]= 117 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 13 ;
buffer [13 ]= 102 ;
buffer [14 ]= 97 ;
buffer [15 ]= 108 ;
buffer [16 ]= 115 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 7 ;
buffer [7 ]= 110 ;
buffer [8 ]= 117 ;
buffer [9 ]= 108 ;
buffer [10 ]= 108 ;
buffer [11 ]= 112 ;
buffer [12 ]= 105 ;
buffer [13 ]= 99 ;
buffer [14 ]= 116 ;
buffer [15 ]= 117 ;
buffer [16 ]= 114 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 11 ;
buffer [11 ]= 110 ;
buffer [12 ]= 117 ;
buffer [13 ]= 108 ;
buffer [14 ]= 108 ;
buffer [15 ]= 112 ;
buffer [16 ]= 101 ;
buffer [17 ]= 110 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 11 ;
buffer [11 ]= 106 ;
buffer [12 ]= 111 ;
buffer [13 ]= 98 ;
buffer [14 ]= 110 ;
buffer [15 ]= 97 ;
buffer [16 ]= 109 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 8 ;
buffer [8 ]= 114 ;
buffer [9 ]= 101 ;
buffer [10 ]= 97 ;
buffer [11 ]= 100 ;
buffer [12 ]= 115 ;
buffer [13 ]= 116 ;
buffer [14 ]= 114 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 103 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 9 ;
buffer [9 ]= 112 ;
buffer [10 ]= 101 ;
buffer [11 ]= 110 ;
buffer [12 ]= 99 ;
buffer [13 ]= 105 ;
buffer [14 ]= 114 ;
buffer [15 ]= 99 ;
buffer [16 ]= 108 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 14 ;
buffer [14 ]= 103 ;
buffer [15 ]= 111 ;
buffer [16 ]= 111 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 32 ) ;
idfirst = 16 ;
buffer [16 ]= 61 ;
buffer [17 ]= 58 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 15 ;
buffer [15 ]= 61 ;
buffer [16 ]= 58 ;
buffer [17 ]= 124 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 14 ;
buffer [14 ]= 61 ;
buffer [15 ]= 58 ;
buffer [16 ]= 124 ;
buffer [17 ]= 62 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 15 ;
buffer [15 ]= 124 ;
buffer [16 ]= 61 ;
buffer [17 ]= 58 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 14 ;
buffer [14 ]= 124 ;
buffer [15 ]= 61 ;
buffer [16 ]= 58 ;
buffer [17 ]= 62 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 14 ;
buffer [14 ]= 124 ;
buffer [15 ]= 61 ;
buffer [16 ]= 58 ;
buffer [17 ]= 124 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 13 ;
buffer [13 ]= 124 ;
buffer [14 ]= 61 ;
buffer [15 ]= 58 ;
buffer [16 ]= 124 ;
buffer [17 ]= 62 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 12 ;
buffer [12 ]= 124 ;
buffer [13 ]= 61 ;
buffer [14 ]= 58 ;
buffer [15 ]= 124 ;
buffer [16 ]= 62 ;
buffer [17 ]= 62 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 14 ;
buffer [14 ]= 107 ;
buffer [15 ]= 101 ;
buffer [16 ]= 114 ;
buffer [17 ]= 110 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 12 ;
buffer [12 ]= 115 ;
buffer [13 ]= 107 ;
buffer [14 ]= 105 ;
buffer [15 ]= 112 ;
buffer [16 ]= 116 ;
buffer [17 ]= 111 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 5 ;
buffer [5 ]= 110 ;
buffer [6 ]= 111 ;
buffer [7 ]= 114 ;
buffer [8 ]= 109 ;
buffer [9 ]= 97 ;
buffer [10 ]= 108 ;
buffer [11 ]= 100 ;
buffer [12 ]= 101 ;
buffer [13 ]= 118 ;
buffer [14 ]= 105 ;
buffer [15 ]= 97 ;
buffer [16 ]= 116 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 15 ;
buffer [15 ]= 111 ;
buffer [16 ]= 100 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 13 ;
buffer [13 ]= 107 ;
buffer [14 ]= 110 ;
buffer [15 ]= 111 ;
buffer [16 ]= 119 ;
buffer [17 ]= 110 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 11 ;
buffer [11 ]= 117 ;
buffer [12 ]= 110 ;
buffer [13 ]= 107 ;
buffer [14 ]= 110 ;
buffer [15 ]= 111 ;
buffer [16 ]= 119 ;
buffer [17 ]= 110 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 15 ;
buffer [15 ]= 110 ;
buffer [16 ]= 111 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 11 ;
buffer [11 ]= 100 ;
buffer [12 ]= 101 ;
buffer [13 ]= 99 ;
buffer [14 ]= 105 ;
buffer [15 ]= 109 ;
buffer [16 ]= 97 ;
buffer [17 ]= 108 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 11 ;
buffer [11 ]= 114 ;
buffer [12 ]= 101 ;
buffer [13 ]= 118 ;
buffer [14 ]= 101 ;
buffer [15 ]= 114 ;
buffer [16 ]= 115 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 10 ;
buffer [10 ]= 109 ;
buffer [11 ]= 97 ;
buffer [12 ]= 107 ;
buffer [13 ]= 101 ;
buffer [14 ]= 112 ;
buffer [15 ]= 97 ;
buffer [16 ]= 116 ;
buffer [17 ]= 104 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 11 ;
buffer [11 ]= 109 ;
buffer [12 ]= 97 ;
buffer [13 ]= 107 ;
buffer [14 ]= 101 ;
buffer [15 ]= 112 ;
buffer [16 ]= 101 ;
buffer [17 ]= 110 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 7 ;
buffer [7 ]= 116 ;
buffer [8 ]= 111 ;
buffer [9 ]= 116 ;
buffer [10 ]= 97 ;
buffer [11 ]= 108 ;
buffer [12 ]= 119 ;
buffer [13 ]= 101 ;
buffer [14 ]= 105 ;
buffer [15 ]= 103 ;
buffer [16 ]= 104 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 15 ;
buffer [15 ]= 111 ;
buffer [16 ]= 99 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 15 ;
buffer [15 ]= 104 ;
buffer [16 ]= 101 ;
buffer [17 ]= 120 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 13 ;
buffer [13 ]= 65 ;
buffer [14 ]= 83 ;
buffer [15 ]= 67 ;
buffer [16 ]= 73 ;
buffer [17 ]= 73 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 14 ;
buffer [14 ]= 99 ;
buffer [15 ]= 104 ;
buffer [16 ]= 97 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 12 ;
buffer [12 ]= 108 ;
buffer [13 ]= 101 ;
buffer [14 ]= 110 ;
buffer [15 ]= 103 ;
buffer [16 ]= 116 ;
buffer [17 ]= 104 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 5 ;
buffer [5 ]= 116 ;
buffer [6 ]= 117 ;
buffer [7 ]= 114 ;
buffer [8 ]= 110 ;
buffer [9 ]= 105 ;
buffer [10 ]= 110 ;
buffer [11 ]= 103 ;
buffer [12 ]= 110 ;
buffer [13 ]= 117 ;
buffer [14 ]= 109 ;
buffer [15 ]= 98 ;
buffer [16 ]= 101 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 13 ;
buffer [13 ]= 120 ;
buffer [14 ]= 112 ;
buffer [15 ]= 97 ;
buffer [16 ]= 114 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 13 ;
buffer [13 ]= 121 ;
buffer [14 ]= 112 ;
buffer [15 ]= 97 ;
buffer [16 ]= 114 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 12 ;
buffer [12 ]= 120 ;
buffer [13 ]= 120 ;
buffer [14 ]= 112 ;
buffer [15 ]= 97 ;
buffer [16 ]= 114 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 12 ;
buffer [12 ]= 120 ;
buffer [13 ]= 121 ;
buffer [14 ]= 112 ;
buffer [15 ]= 97 ;
buffer [16 ]= 114 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 12 ;
buffer [12 ]= 121 ;
buffer [13 ]= 120 ;
buffer [14 ]= 112 ;
buffer [15 ]= 97 ;
buffer [16 ]= 114 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 12 ;
buffer [12 ]= 121 ;
buffer [13 ]= 121 ;
buffer [14 ]= 112 ;
buffer [15 ]= 97 ;
buffer [16 ]= 114 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 14 ;
buffer [14 ]= 115 ;
buffer [15 ]= 113 ;
buffer [16 ]= 114 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 14 ;
buffer [14 ]= 109 ;
buffer [15 ]= 101 ;
buffer [16 ]= 120 ;
buffer [17 ]= 112 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 14 ;
buffer [14 ]= 109 ;
buffer [15 ]= 108 ;
buffer [16 ]= 111 ;
buffer [17 ]= 103 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 14 ;
buffer [14 ]= 115 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 14 ;
buffer [14 ]= 99 ;
buffer [15 ]= 111 ;
buffer [16 ]= 115 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 13 ;
buffer [13 ]= 102 ;
buffer [14 ]= 108 ;
buffer [15 ]= 111 ;
buffer [16 ]= 111 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 4 ;
buffer [4 ]= 117 ;
buffer [5 ]= 110 ;
buffer [6 ]= 105 ;
buffer [7 ]= 102 ;
buffer [8 ]= 111 ;
buffer [9 ]= 114 ;
buffer [10 ]= 109 ;
buffer [11 ]= 100 ;
buffer [12 ]= 101 ;
buffer [13 ]= 118 ;
buffer [14 ]= 105 ;
buffer [15 ]= 97 ;
buffer [16 ]= 116 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 8 ;
buffer [8 ]= 99 ;
buffer [9 ]= 104 ;
buffer [10 ]= 97 ;
buffer [11 ]= 114 ;
buffer [12 ]= 101 ;
buffer [13 ]= 120 ;
buffer [14 ]= 105 ;
buffer [15 ]= 115 ;
buffer [16 ]= 116 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 13 ;
buffer [13 ]= 97 ;
buffer [14 ]= 110 ;
buffer [15 ]= 103 ;
buffer [16 ]= 108 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 13 ;
buffer [13 ]= 99 ;
buffer [14 ]= 121 ;
buffer [15 ]= 99 ;
buffer [16 ]= 108 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 8 ) ;
idfirst = 5 ;
buffer [5 ]= 116 ;
buffer [6 ]= 114 ;
buffer [7 ]= 97 ;
buffer [8 ]= 99 ;
buffer [9 ]= 105 ;
buffer [10 ]= 110 ;
buffer [11 ]= 103 ;
buffer [12 ]= 116 ;
buffer [13 ]= 105 ;
buffer [14 ]= 116 ;
buffer [15 ]= 108 ;
buffer [16 ]= 101 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 2 ;
buffer [2 ]= 116 ;
buffer [3 ]= 114 ;
buffer [4 ]= 97 ;
buffer [5 ]= 99 ;
buffer [6 ]= 105 ;
buffer [7 ]= 110 ;
buffer [8 ]= 103 ;
buffer [9 ]= 101 ;
buffer [10 ]= 113 ;
buffer [11 ]= 117 ;
buffer [12 ]= 97 ;
buffer [13 ]= 116 ;
buffer [14 ]= 105 ;
buffer [15 ]= 111 ;
buffer [16 ]= 110 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 3 ;
buffer [3 ]= 116 ;
buffer [4 ]= 114 ;
buffer [5 ]= 97 ;
buffer [6 ]= 99 ;
buffer [7 ]= 105 ;
buffer [8 ]= 110 ;
buffer [9 ]= 103 ;
buffer [10 ]= 99 ;
buffer [11 ]= 97 ;
buffer [12 ]= 112 ;
buffer [13 ]= 115 ;
buffer [14 ]= 117 ;
buffer [15 ]= 108 ;
buffer [16 ]= 101 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 4 ;
buffer [4 ]= 116 ;
buffer [5 ]= 114 ;
buffer [6 ]= 97 ;
buffer [7 ]= 99 ;
buffer [8 ]= 105 ;
buffer [9 ]= 110 ;
buffer [10 ]= 103 ;
buffer [11 ]= 99 ;
buffer [12 ]= 104 ;
buffer [13 ]= 111 ;
buffer [14 ]= 105 ;
buffer [15 ]= 99 ;
buffer [16 ]= 101 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 6 ;
buffer [6 ]= 116 ;
buffer [7 ]= 114 ;
buffer [8 ]= 97 ;
buffer [9 ]= 99 ;
buffer [10 ]= 105 ;
buffer [11 ]= 110 ;
buffer [12 ]= 103 ;
buffer [13 ]= 115 ;
buffer [14 ]= 112 ;
buffer [15 ]= 101 ;
buffer [16 ]= 99 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 7 ;
buffer [7 ]= 116 ;
buffer [8 ]= 114 ;
buffer [9 ]= 97 ;
buffer [10 ]= 99 ;
buffer [11 ]= 105 ;
buffer [12 ]= 110 ;
buffer [13 ]= 103 ;
buffer [14 ]= 112 ;
buffer [15 ]= 101 ;
buffer [16 ]= 110 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 3 ;
buffer [3 ]= 116 ;
buffer [4 ]= 114 ;
buffer [5 ]= 97 ;
buffer [6 ]= 99 ;
buffer [7 ]= 105 ;
buffer [8 ]= 110 ;
buffer [9 ]= 103 ;
buffer [10 ]= 99 ;
buffer [11 ]= 111 ;
buffer [12 ]= 109 ;
buffer [13 ]= 109 ;
buffer [14 ]= 97 ;
buffer [15 ]= 110 ;
buffer [16 ]= 100 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 5 ;
buffer [5 ]= 116 ;
buffer [6 ]= 114 ;
buffer [7 ]= 97 ;
buffer [8 ]= 99 ;
buffer [9 ]= 105 ;
buffer [10 ]= 110 ;
buffer [11 ]= 103 ;
buffer [12 ]= 109 ;
buffer [13 ]= 97 ;
buffer [14 ]= 99 ;
buffer [15 ]= 114 ;
buffer [16 ]= 111 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 6 ;
buffer [6 ]= 116 ;
buffer [7 ]= 114 ;
buffer [8 ]= 97 ;
buffer [9 ]= 99 ;
buffer [10 ]= 105 ;
buffer [11 ]= 110 ;
buffer [12 ]= 103 ;
buffer [13 ]= 101 ;
buffer [14 ]= 100 ;
buffer [15 ]= 103 ;
buffer [16 ]= 101 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 5 ;
buffer [5 ]= 116 ;
buffer [6 ]= 114 ;
buffer [7 ]= 97 ;
buffer [8 ]= 99 ;
buffer [9 ]= 105 ;
buffer [10 ]= 110 ;
buffer [11 ]= 103 ;
buffer [12 ]= 111 ;
buffer [13 ]= 117 ;
buffer [14 ]= 116 ;
buffer [15 ]= 112 ;
buffer [16 ]= 117 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 6 ;
buffer [6 ]= 116 ;
buffer [7 ]= 114 ;
buffer [8 ]= 97 ;
buffer [9 ]= 99 ;
buffer [10 ]= 105 ;
buffer [11 ]= 110 ;
buffer [12 ]= 103 ;
buffer [13 ]= 115 ;
buffer [14 ]= 116 ;
buffer [15 ]= 97 ;
buffer [16 ]= 116 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 5 ;
buffer [5 ]= 116 ;
buffer [6 ]= 114 ;
buffer [7 ]= 97 ;
buffer [8 ]= 99 ;
buffer [9 ]= 105 ;
buffer [10 ]= 110 ;
buffer [11 ]= 103 ;
buffer [12 ]= 111 ;
buffer [13 ]= 110 ;
buffer [14 ]= 108 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 14 ;
buffer [14 ]= 121 ;
buffer [15 ]= 101 ;
buffer [16 ]= 97 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 13 ;
buffer [13 ]= 109 ;
buffer [14 ]= 111 ;
buffer [15 ]= 110 ;
buffer [16 ]= 116 ;
buffer [17 ]= 104 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 15 ;
buffer [15 ]= 100 ;
buffer [16 ]= 97 ;
buffer [17 ]= 121 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 14 ;
buffer [14 ]= 116 ;
buffer [15 ]= 105 ;
buffer [16 ]= 109 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 10 ;
buffer [10 ]= 99 ;
buffer [11 ]= 104 ;
buffer [12 ]= 97 ;
buffer [13 ]= 114 ;
buffer [14 ]= 99 ;
buffer [15 ]= 111 ;
buffer [16 ]= 100 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 11 ;
buffer [11 ]= 99 ;
buffer [12 ]= 104 ;
buffer [13 ]= 97 ;
buffer [14 ]= 114 ;
buffer [15 ]= 102 ;
buffer [16 ]= 97 ;
buffer [17 ]= 109 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 12 ;
buffer [12 ]= 99 ;
buffer [13 ]= 104 ;
buffer [14 ]= 97 ;
buffer [15 ]= 114 ;
buffer [16 ]= 119 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 12 ;
buffer [12 ]= 99 ;
buffer [13 ]= 104 ;
buffer [14 ]= 97 ;
buffer [15 ]= 114 ;
buffer [16 ]= 104 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 12 ;
buffer [12 ]= 99 ;
buffer [13 ]= 104 ;
buffer [14 ]= 97 ;
buffer [15 ]= 114 ;
buffer [16 ]= 100 ;
buffer [17 ]= 112 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 12 ;
buffer [12 ]= 99 ;
buffer [13 ]= 104 ;
buffer [14 ]= 97 ;
buffer [15 ]= 114 ;
buffer [16 ]= 105 ;
buffer [17 ]= 99 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 12 ;
buffer [12 ]= 99 ;
buffer [13 ]= 104 ;
buffer [14 ]= 97 ;
buffer [15 ]= 114 ;
buffer [16 ]= 100 ;
buffer [17 ]= 120 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 12 ;
buffer [12 ]= 99 ;
buffer [13 ]= 104 ;
buffer [14 ]= 97 ;
buffer [15 ]= 114 ;
buffer [16 ]= 100 ;
buffer [17 ]= 121 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 8 ;
buffer [8 ]= 100 ;
buffer [9 ]= 101 ;
buffer [10 ]= 115 ;
buffer [11 ]= 105 ;
buffer [12 ]= 103 ;
buffer [13 ]= 110 ;
buffer [14 ]= 115 ;
buffer [15 ]= 105 ;
buffer [16 ]= 122 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 14 ;
buffer [14 ]= 104 ;
buffer [15 ]= 112 ;
buffer [16 ]= 112 ;
buffer [17 ]= 112 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 14 ;
buffer [14 ]= 118 ;
buffer [15 ]= 112 ;
buffer [16 ]= 112 ;
buffer [17 ]= 112 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 11 ;
buffer [11 ]= 120 ;
buffer [12 ]= 111 ;
buffer [13 ]= 102 ;
buffer [14 ]= 102 ;
buffer [15 ]= 115 ;
buffer [16 ]= 101 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 11 ;
buffer [11 ]= 121 ;
buffer [12 ]= 111 ;
buffer [13 ]= 102 ;
buffer [14 ]= 102 ;
buffer [15 ]= 115 ;
buffer [16 ]= 101 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 11 ;
buffer [11 ]= 112 ;
buffer [12 ]= 97 ;
buffer [13 ]= 117 ;
buffer [14 ]= 115 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 103 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 6 ;
buffer [6 ]= 115 ;
buffer [7 ]= 104 ;
buffer [8 ]= 111 ;
buffer [9 ]= 119 ;
buffer [10 ]= 115 ;
buffer [11 ]= 116 ;
buffer [12 ]= 111 ;
buffer [13 ]= 112 ;
buffer [14 ]= 112 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 103 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 8 ;
buffer [8 ]= 102 ;
buffer [9 ]= 111 ;
buffer [10 ]= 110 ;
buffer [11 ]= 116 ;
buffer [12 ]= 109 ;
buffer [13 ]= 97 ;
buffer [14 ]= 107 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 103 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 10 ;
buffer [10 ]= 112 ;
buffer [11 ]= 114 ;
buffer [12 ]= 111 ;
buffer [13 ]= 111 ;
buffer [14 ]= 102 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 103 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 9 ;
buffer [9 ]= 115 ;
buffer [10 ]= 109 ;
buffer [11 ]= 111 ;
buffer [12 ]= 111 ;
buffer [13 ]= 116 ;
buffer [14 ]= 104 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 103 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 6 ;
buffer [6 ]= 97 ;
buffer [7 ]= 117 ;
buffer [8 ]= 116 ;
buffer [9 ]= 111 ;
buffer [10 ]= 114 ;
buffer [11 ]= 111 ;
buffer [12 ]= 117 ;
buffer [13 ]= 110 ;
buffer [14 ]= 100 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 103 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 7 ;
buffer [7 ]= 103 ;
buffer [8 ]= 114 ;
buffer [9 ]= 97 ;
buffer [10 ]= 110 ;
buffer [11 ]= 117 ;
buffer [12 ]= 108 ;
buffer [13 ]= 97 ;
buffer [14 ]= 114 ;
buffer [15 ]= 105 ;
buffer [16 ]= 116 ;
buffer [17 ]= 121 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 12 ;
buffer [12 ]= 102 ;
buffer [13 ]= 105 ;
buffer [14 ]= 108 ;
buffer [15 ]= 108 ;
buffer [16 ]= 105 ;
buffer [17 ]= 110 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 6 ;
buffer [6 ]= 116 ;
buffer [7 ]= 117 ;
buffer [8 ]= 114 ;
buffer [9 ]= 110 ;
buffer [10 ]= 105 ;
buffer [11 ]= 110 ;
buffer [12 ]= 103 ;
buffer [13 ]= 99 ;
buffer [14 ]= 104 ;
buffer [15 ]= 101 ;
buffer [16 ]= 99 ;
buffer [17 ]= 107 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 6 ;
buffer [6 ]= 119 ;
buffer [7 ]= 97 ;
buffer [8 ]= 114 ;
buffer [9 ]= 110 ;
buffer [10 ]= 105 ;
buffer [11 ]= 110 ;
buffer [12 ]= 103 ;
buffer [13 ]= 99 ;
buffer [14 ]= 104 ;
buffer [15 ]= 101 ;
buffer [16 ]= 99 ;
buffer [17 ]= 107 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 6 ;
buffer [6 ]= 98 ;
buffer [7 ]= 111 ;
buffer [8 ]= 117 ;
buffer [9 ]= 110 ;
buffer [10 ]= 100 ;
buffer [11 ]= 97 ;
buffer [12 ]= 114 ;
buffer [13 ]= 121 ;
buffer [14 ]= 99 ;
buffer [15 ]= 104 ;
buffer [16 ]= 97 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 30 ) ;
idfirst = 17 ;
buffer [17 ]= 43 ;
curtok = lookup () ;
ilk [curtok ]= ( 12 ) ;
idfirst = 17 ;
buffer [17 ]= 45 ;
curtok = lookup () ;
ilk [curtok ]= ( 12 ) ;
idfirst = 17 ;
buffer [17 ]= 42 ;
curtok = lookup () ;
ilk [curtok ]= ( 12 ) ;
idfirst = 17 ;
buffer [17 ]= 47 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 16 ;
buffer [16 ]= 43 ;
buffer [17 ]= 43 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 15 ;
buffer [15 ]= 43 ;
buffer [16 ]= 45 ;
buffer [17 ]= 43 ;
curtok = lookup () ;
ilk [curtok ]= ( 15 ) ;
idfirst = 15 ;
buffer [15 ]= 97 ;
buffer [16 ]= 110 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 16 ;
buffer [16 ]= 111 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 17 ;
buffer [17 ]= 60 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 16 ;
buffer [16 ]= 60 ;
buffer [17 ]= 61 ;
curtok = lookup () ;
ilk [curtok ]= ( 24 ) ;
idfirst = 17 ;
buffer [17 ]= 62 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 16 ;
buffer [16 ]= 62 ;
buffer [17 ]= 61 ;
curtok = lookup () ;
ilk [curtok ]= ( 25 ) ;
idfirst = 17 ;
buffer [17 ]= 61 ;
curtok = lookup () ;
ilk [curtok ]= ( 16 ) ;
idfirst = 16 ;
buffer [16 ]= 60 ;
buffer [17 ]= 62 ;
curtok = lookup () ;
ilk [curtok ]= ( 26 ) ;
idfirst = 9 ;
buffer [9 ]= 115 ;
buffer [10 ]= 117 ;
buffer [11 ]= 98 ;
buffer [12 ]= 115 ;
buffer [13 ]= 116 ;
buffer [14 ]= 114 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 103 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 11 ;
buffer [11 ]= 115 ;
buffer [12 ]= 117 ;
buffer [13 ]= 98 ;
buffer [14 ]= 112 ;
buffer [15 ]= 97 ;
buffer [16 ]= 116 ;
buffer [17 ]= 104 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 5 ;
buffer [5 ]= 100 ;
buffer [6 ]= 105 ;
buffer [7 ]= 114 ;
buffer [8 ]= 101 ;
buffer [9 ]= 99 ;
buffer [10 ]= 116 ;
buffer [11 ]= 105 ;
buffer [12 ]= 111 ;
buffer [13 ]= 110 ;
buffer [14 ]= 116 ;
buffer [15 ]= 105 ;
buffer [16 ]= 109 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 13 ;
buffer [13 ]= 112 ;
buffer [14 ]= 111 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 8 ;
buffer [8 ]= 112 ;
buffer [9 ]= 114 ;
buffer [10 ]= 101 ;
buffer [11 ]= 99 ;
buffer [12 ]= 111 ;
buffer [13 ]= 110 ;
buffer [14 ]= 116 ;
buffer [15 ]= 114 ;
buffer [16 ]= 111 ;
buffer [17 ]= 108 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 7 ;
buffer [7 ]= 112 ;
buffer [8 ]= 111 ;
buffer [9 ]= 115 ;
buffer [10 ]= 116 ;
buffer [11 ]= 99 ;
buffer [12 ]= 111 ;
buffer [13 ]= 110 ;
buffer [14 ]= 116 ;
buffer [15 ]= 114 ;
buffer [16 ]= 111 ;
buffer [17 ]= 108 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 9 ;
buffer [9 ]= 112 ;
buffer [10 ]= 101 ;
buffer [11 ]= 110 ;
buffer [12 ]= 111 ;
buffer [13 ]= 102 ;
buffer [14 ]= 102 ;
buffer [15 ]= 115 ;
buffer [16 ]= 101 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 17 ;
buffer [17 ]= 38 ;
curtok = lookup () ;
ilk [curtok ]= ( 14 ) ;
idfirst = 11 ;
buffer [11 ]= 114 ;
buffer [12 ]= 111 ;
buffer [13 ]= 116 ;
buffer [14 ]= 97 ;
buffer [15 ]= 116 ;
buffer [16 ]= 101 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 11 ;
buffer [11 ]= 115 ;
buffer [12 ]= 108 ;
buffer [13 ]= 97 ;
buffer [14 ]= 110 ;
buffer [15 ]= 116 ;
buffer [16 ]= 101 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 12 ;
buffer [12 ]= 115 ;
buffer [13 ]= 99 ;
buffer [14 ]= 97 ;
buffer [15 ]= 108 ;
buffer [16 ]= 101 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 11 ;
buffer [11 ]= 115 ;
buffer [12 ]= 104 ;
buffer [13 ]= 105 ;
buffer [14 ]= 102 ;
buffer [15 ]= 116 ;
buffer [16 ]= 101 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 7 ;
buffer [7 ]= 116 ;
buffer [8 ]= 114 ;
buffer [9 ]= 97 ;
buffer [10 ]= 110 ;
buffer [11 ]= 115 ;
buffer [12 ]= 102 ;
buffer [13 ]= 111 ;
buffer [14 ]= 114 ;
buffer [15 ]= 109 ;
buffer [16 ]= 101 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 11 ;
buffer [11 ]= 120 ;
buffer [12 ]= 115 ;
buffer [13 ]= 99 ;
buffer [14 ]= 97 ;
buffer [15 ]= 108 ;
buffer [16 ]= 101 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 11 ;
buffer [11 ]= 121 ;
buffer [12 ]= 115 ;
buffer [13 ]= 99 ;
buffer [14 ]= 97 ;
buffer [15 ]= 108 ;
buffer [16 ]= 101 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 11 ;
buffer [11 ]= 122 ;
buffer [12 ]= 115 ;
buffer [13 ]= 99 ;
buffer [14 ]= 97 ;
buffer [15 ]= 108 ;
buffer [16 ]= 101 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 1 ;
buffer [1 ]= 105 ;
buffer [2 ]= 110 ;
buffer [3 ]= 116 ;
buffer [4 ]= 101 ;
buffer [5 ]= 114 ;
buffer [6 ]= 115 ;
buffer [7 ]= 101 ;
buffer [8 ]= 99 ;
buffer [9 ]= 116 ;
buffer [10 ]= 105 ;
buffer [11 ]= 111 ;
buffer [12 ]= 110 ;
buffer [13 ]= 116 ;
buffer [14 ]= 105 ;
buffer [15 ]= 109 ;
buffer [16 ]= 101 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 11 ) ;
idfirst = 11 ;
buffer [11 ]= 110 ;
buffer [12 ]= 117 ;
buffer [13 ]= 109 ;
buffer [14 ]= 101 ;
buffer [15 ]= 114 ;
buffer [16 ]= 105 ;
buffer [17 ]= 99 ;
curtok = lookup () ;
ilk [curtok ]= ( 18 ) ;
idfirst = 12 ;
buffer [12 ]= 115 ;
buffer [13 ]= 116 ;
buffer [14 ]= 114 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 103 ;
curtok = lookup () ;
ilk [curtok ]= ( 18 ) ;
idfirst = 11 ;
buffer [11 ]= 98 ;
buffer [12 ]= 111 ;
buffer [13 ]= 111 ;
buffer [14 ]= 108 ;
buffer [15 ]= 101 ;
buffer [16 ]= 97 ;
buffer [17 ]= 110 ;
curtok = lookup () ;
ilk [curtok ]= ( 18 ) ;
idfirst = 14 ;
buffer [14 ]= 112 ;
buffer [15 ]= 97 ;
buffer [16 ]= 116 ;
buffer [17 ]= 104 ;
curtok = lookup () ;
ilk [curtok ]= ( 18 ) ;
idfirst = 15 ;
buffer [15 ]= 112 ;
buffer [16 ]= 101 ;
buffer [17 ]= 110 ;
curtok = lookup () ;
ilk [curtok ]= ( 18 ) ;
idfirst = 11 ;
buffer [11 ]= 112 ;
buffer [12 ]= 105 ;
buffer [13 ]= 99 ;
buffer [14 ]= 116 ;
buffer [15 ]= 117 ;
buffer [16 ]= 114 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 18 ) ;
idfirst = 9 ;
buffer [9 ]= 116 ;
buffer [10 ]= 114 ;
buffer [11 ]= 97 ;
buffer [12 ]= 110 ;
buffer [13 ]= 115 ;
buffer [14 ]= 102 ;
buffer [15 ]= 111 ;
buffer [16 ]= 114 ;
buffer [17 ]= 109 ;
curtok = lookup () ;
ilk [curtok ]= ( 18 ) ;
idfirst = 14 ;
buffer [14 ]= 112 ;
buffer [15 ]= 97 ;
buffer [16 ]= 105 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 18 ) ;
idfirst = 15 ;
buffer [15 ]= 101 ;
buffer [16 ]= 110 ;
buffer [17 ]= 100 ;
curtok = lookup () ;
ilk [curtok ]= ( 10 ) ;
idfirst = 14 ;
buffer [14 ]= 100 ;
buffer [15 ]= 117 ;
buffer [16 ]= 109 ;
buffer [17 ]= 112 ;
curtok = lookup () ;
ilk [curtok ]= ( 10 ) ;
idfirst = 9 ;
buffer [9 ]= 98 ;
buffer [10 ]= 97 ;
buffer [11 ]= 116 ;
buffer [12 ]= 99 ;
buffer [13 ]= 104 ;
buffer [14 ]= 109 ;
buffer [15 ]= 111 ;
buffer [16 ]= 100 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 7 ;
buffer [7 ]= 110 ;
buffer [8 ]= 111 ;
buffer [9 ]= 110 ;
buffer [10 ]= 115 ;
buffer [11 ]= 116 ;
buffer [12 ]= 111 ;
buffer [13 ]= 112 ;
buffer [14 ]= 109 ;
buffer [15 ]= 111 ;
buffer [16 ]= 100 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 8 ;
buffer [8 ]= 115 ;
buffer [9 ]= 99 ;
buffer [10 ]= 114 ;
buffer [11 ]= 111 ;
buffer [12 ]= 108 ;
buffer [13 ]= 108 ;
buffer [14 ]= 109 ;
buffer [15 ]= 111 ;
buffer [16 ]= 100 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 5 ;
buffer [5 ]= 101 ;
buffer [6 ]= 114 ;
buffer [7 ]= 114 ;
buffer [8 ]= 111 ;
buffer [9 ]= 114 ;
buffer [10 ]= 115 ;
buffer [11 ]= 116 ;
buffer [12 ]= 111 ;
buffer [13 ]= 112 ;
buffer [14 ]= 109 ;
buffer [15 ]= 111 ;
buffer [16 ]= 100 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 13 ;
buffer [13 ]= 105 ;
buffer [14 ]= 110 ;
buffer [15 ]= 110 ;
buffer [16 ]= 101 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 13 ;
buffer [13 ]= 111 ;
buffer [14 ]= 117 ;
buffer [15 ]= 116 ;
buffer [16 ]= 101 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 9 ;
buffer [9 ]= 115 ;
buffer [10 ]= 104 ;
buffer [11 ]= 111 ;
buffer [12 ]= 119 ;
buffer [13 ]= 116 ;
buffer [14 ]= 111 ;
buffer [15 ]= 107 ;
buffer [16 ]= 101 ;
buffer [17 ]= 110 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 9 ;
buffer [9 ]= 115 ;
buffer [10 ]= 104 ;
buffer [11 ]= 111 ;
buffer [12 ]= 119 ;
buffer [13 ]= 115 ;
buffer [14 ]= 116 ;
buffer [15 ]= 97 ;
buffer [16 ]= 116 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 14 ;
buffer [14 ]= 115 ;
buffer [15 ]= 104 ;
buffer [16 ]= 111 ;
buffer [17 ]= 119 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 6 ;
buffer [6 ]= 115 ;
buffer [7 ]= 104 ;
buffer [8 ]= 111 ;
buffer [9 ]= 119 ;
buffer [10 ]= 118 ;
buffer [11 ]= 97 ;
buffer [12 ]= 114 ;
buffer [13 ]= 105 ;
buffer [14 ]= 97 ;
buffer [15 ]= 98 ;
buffer [16 ]= 108 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 2 ;
buffer [2 ]= 115 ;
buffer [3 ]= 104 ;
buffer [4 ]= 111 ;
buffer [5 ]= 119 ;
buffer [6 ]= 100 ;
buffer [7 ]= 101 ;
buffer [8 ]= 112 ;
buffer [9 ]= 101 ;
buffer [10 ]= 110 ;
buffer [11 ]= 100 ;
buffer [12 ]= 101 ;
buffer [13 ]= 110 ;
buffer [14 ]= 99 ;
buffer [15 ]= 105 ;
buffer [16 ]= 101 ;
buffer [17 ]= 115 ;
curtok = lookup () ;
ilk [curtok ]= ( 17 ) ;
idfirst = 11 ;
buffer [11 ]= 99 ;
buffer [12 ]= 111 ;
buffer [13 ]= 110 ;
buffer [14 ]= 116 ;
buffer [15 ]= 111 ;
buffer [16 ]= 117 ;
buffer [17 ]= 114 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 8 ;
buffer [8 ]= 100 ;
buffer [9 ]= 111 ;
buffer [10 ]= 117 ;
buffer [11 ]= 98 ;
buffer [12 ]= 108 ;
buffer [13 ]= 101 ;
buffer [14 ]= 112 ;
buffer [15 ]= 97 ;
buffer [16 ]= 116 ;
buffer [17 ]= 104 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 14 ;
buffer [14 ]= 97 ;
buffer [15 ]= 108 ;
buffer [16 ]= 115 ;
buffer [17 ]= 111 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 11 ;
buffer [11 ]= 119 ;
buffer [12 ]= 105 ;
buffer [13 ]= 116 ;
buffer [14 ]= 104 ;
buffer [15 ]= 112 ;
buffer [16 ]= 101 ;
buffer [17 ]= 110 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 8 ;
buffer [8 ]= 119 ;
buffer [9 ]= 105 ;
buffer [10 ]= 116 ;
buffer [11 ]= 104 ;
buffer [12 ]= 119 ;
buffer [13 ]= 101 ;
buffer [14 ]= 105 ;
buffer [15 ]= 103 ;
buffer [16 ]= 104 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 10 ;
buffer [10 ]= 100 ;
buffer [11 ]= 114 ;
buffer [12 ]= 111 ;
buffer [13 ]= 112 ;
buffer [14 ]= 112 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 103 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 11 ;
buffer [11 ]= 107 ;
buffer [12 ]= 101 ;
buffer [13 ]= 101 ;
buffer [14 ]= 112 ;
buffer [15 ]= 105 ;
buffer [16 ]= 110 ;
buffer [17 ]= 103 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 11 ;
buffer [11 ]= 109 ;
buffer [12 ]= 101 ;
buffer [13 ]= 115 ;
buffer [14 ]= 115 ;
buffer [15 ]= 97 ;
buffer [16 ]= 103 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 8 ;
buffer [8 ]= 101 ;
buffer [9 ]= 114 ;
buffer [10 ]= 114 ;
buffer [11 ]= 109 ;
buffer [12 ]= 101 ;
buffer [13 ]= 115 ;
buffer [14 ]= 115 ;
buffer [15 ]= 97 ;
buffer [16 ]= 103 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 11 ;
buffer [11 ]= 101 ;
buffer [12 ]= 114 ;
buffer [13 ]= 114 ;
buffer [14 ]= 104 ;
buffer [15 ]= 101 ;
buffer [16 ]= 108 ;
buffer [17 ]= 112 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 10 ;
buffer [10 ]= 99 ;
buffer [11 ]= 104 ;
buffer [12 ]= 97 ;
buffer [13 ]= 114 ;
buffer [14 ]= 108 ;
buffer [15 ]= 105 ;
buffer [16 ]= 115 ;
buffer [17 ]= 116 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 10 ;
buffer [10 ]= 108 ;
buffer [11 ]= 105 ;
buffer [12 ]= 103 ;
buffer [13 ]= 116 ;
buffer [14 ]= 97 ;
buffer [15 ]= 98 ;
buffer [16 ]= 108 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 8 ;
buffer [8 ]= 101 ;
buffer [9 ]= 120 ;
buffer [10 ]= 116 ;
buffer [11 ]= 101 ;
buffer [12 ]= 110 ;
buffer [13 ]= 115 ;
buffer [14 ]= 105 ;
buffer [15 ]= 98 ;
buffer [16 ]= 108 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 8 ;
buffer [8 ]= 104 ;
buffer [9 ]= 101 ;
buffer [10 ]= 97 ;
buffer [11 ]= 100 ;
buffer [12 ]= 101 ;
buffer [13 ]= 114 ;
buffer [14 ]= 98 ;
buffer [15 ]= 121 ;
buffer [16 ]= 116 ;
buffer [17 ]= 101 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 9 ;
buffer [9 ]= 102 ;
buffer [10 ]= 111 ;
buffer [11 ]= 110 ;
buffer [12 ]= 116 ;
buffer [13 ]= 100 ;
buffer [14 ]= 105 ;
buffer [15 ]= 109 ;
buffer [16 ]= 101 ;
buffer [17 ]= 110 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 11 ;
buffer [11 ]= 115 ;
buffer [12 ]= 112 ;
buffer [13 ]= 101 ;
buffer [14 ]= 99 ;
buffer [15 ]= 105 ;
buffer [16 ]= 97 ;
buffer [17 ]= 108 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 8 ;
buffer [8 ]= 110 ;
buffer [9 ]= 117 ;
buffer [10 ]= 109 ;
buffer [11 ]= 115 ;
buffer [12 ]= 112 ;
buffer [13 ]= 101 ;
buffer [14 ]= 99 ;
buffer [15 ]= 105 ;
buffer [16 ]= 97 ;
buffer [17 ]= 108 ;
curtok = lookup () ;
ilk [curtok ]= ( 9 ) ;
idfirst = 17 ;
buffer [17 ]= 37 ;
curtok = lookup () ;
ilk [curtok ]= ( 28 ) ;
idfirst = 16 ;
buffer [16 ]= 37 ;
buffer [17 ]= 37 ;
curtok = lookup () ;
ilk [curtok ]= ( 3 ) ;
idfirst = 15 ;
buffer [15 ]= 37 ;
buffer [16 ]= 37 ;
buffer [17 ]= 37 ;
curtok = lookup () ;
ilk [curtok ]= ( 4 ) ;
idfirst = 14 ;
buffer [14 ]= 37 ;
buffer [15 ]= 37 ;
buffer [16 ]= 37 ;
buffer [17 ]= 37 ;
curtok = lookup () ;
ilk [curtok ]= ( 5 ) ;
idfirst = 17 ;
buffer [17 ]= 35 ;
curtok = lookup () ;
ilk [curtok ]= ( 27 ) ;
{register integer for_end; i = 0 ;for_end = 255 ; if ( i <= for_end) do
translation [i ]= 0 ;
while ( i++ < for_end ) ;}
byteptr = byteptr + 2 ;
bytemem [byteptr - 2 ]= 92 ;
bytemem [byteptr - 1 ]= 36 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
translation [36 ]= curtok ;
byteptr = byteptr + 2 ;
bytemem [byteptr - 2 ]= 92 ;
bytemem [byteptr - 1 ]= 35 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
translation [35 ]= curtok ;
byteptr = byteptr + 2 ;
bytemem [byteptr - 2 ]= 92 ;
bytemem [byteptr - 1 ]= 38 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
translation [38 ]= curtok ;
byteptr = byteptr + 2 ;
bytemem [byteptr - 2 ]= 92 ;
bytemem [byteptr - 1 ]= 123 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
translation [123 ]= curtok ;
byteptr = byteptr + 2 ;
bytemem [byteptr - 2 ]= 92 ;
bytemem [byteptr - 1 ]= 125 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
translation [125 ]= curtok ;
byteptr = byteptr + 2 ;
bytemem [byteptr - 2 ]= 92 ;
bytemem [byteptr - 1 ]= 95 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
translation [95 ]= curtok ;
byteptr = byteptr + 2 ;
bytemem [byteptr - 2 ]= 92 ;
bytemem [byteptr - 1 ]= 37 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
translation [37 ]= curtok ;
byteptr = byteptr + 4 ;
bytemem [byteptr - 4 ]= 92 ;
bytemem [byteptr - 3 ]= 66 ;
bytemem [byteptr - 2 ]= 83 ;
bytemem [byteptr - 1 ]= 32 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
translation [92 ]= curtok ;
byteptr = byteptr + 4 ;
bytemem [byteptr - 4 ]= 92 ;
bytemem [byteptr - 3 ]= 72 ;
bytemem [byteptr - 2 ]= 65 ;
bytemem [byteptr - 1 ]= 32 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
translation [94 ]= curtok ;
byteptr = byteptr + 4 ;
bytemem [byteptr - 4 ]= 92 ;
bytemem [byteptr - 3 ]= 84 ;
bytemem [byteptr - 2 ]= 73 ;
bytemem [byteptr - 1 ]= 32 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
translation [126 ]= curtok ;
byteptr = byteptr + 5 ;
bytemem [byteptr - 5 ]= 92 ;
bytemem [byteptr - 4 ]= 97 ;
bytemem [byteptr - 3 ]= 115 ;
bytemem [byteptr - 2 ]= 116 ;
bytemem [byteptr - 1 ]= 32 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
translation [42 ]= curtok ;
byteptr = byteptr + 4 ;
bytemem [byteptr - 4 ]= 92 ;
bytemem [byteptr - 3 ]= 65 ;
bytemem [byteptr - 2 ]= 77 ;
bytemem [byteptr - 1 ]= 32 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
tramp = curtok ;
byteptr = byteptr + 4 ;
bytemem [byteptr - 4 ]= 92 ;
bytemem [byteptr - 3 ]= 66 ;
bytemem [byteptr - 2 ]= 76 ;
bytemem [byteptr - 1 ]= 32 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
trskip = curtok ;
byteptr = byteptr + 4 ;
bytemem [byteptr - 4 ]= 92 ;
bytemem [byteptr - 3 ]= 83 ;
bytemem [byteptr - 2 ]= 72 ;
bytemem [byteptr - 1 ]= 32 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
trsharp = curtok ;
byteptr = byteptr + 4 ;
bytemem [byteptr - 4 ]= 92 ;
bytemem [byteptr - 3 ]= 80 ;
bytemem [byteptr - 2 ]= 83 ;
bytemem [byteptr - 1 ]= 32 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
trps = curtok ;
byteptr = byteptr + 4 ;
bytemem [byteptr - 4 ]= 92 ;
bytemem [byteptr - 3 ]= 108 ;
bytemem [byteptr - 2 ]= 101 ;
bytemem [byteptr - 1 ]= 32 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
trle = curtok ;
byteptr = byteptr + 4 ;
bytemem [byteptr - 4 ]= 92 ;
bytemem [byteptr - 3 ]= 103 ;
bytemem [byteptr - 2 ]= 101 ;
bytemem [byteptr - 1 ]= 32 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
trge = curtok ;
byteptr = byteptr + 4 ;
bytemem [byteptr - 4 ]= 92 ;
bytemem [byteptr - 3 ]= 110 ;
bytemem [byteptr - 2 ]= 101 ;
bytemem [byteptr - 1 ]= 32 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
trne = curtok ;
byteptr = byteptr + 5 ;
bytemem [byteptr - 5 ]= 92 ;
bytemem [byteptr - 4 ]= 113 ;
bytemem [byteptr - 3 ]= 117 ;
bytemem [byteptr - 2 ]= 97 ;
bytemem [byteptr - 1 ]= 100 ;
curtok = nameptr ;
nameptr = nameptr + 1 ;
bytestart [nameptr ]= byteptr ;
trquad = curtok ;
{
openinput () ;
line = 0 ;
otherline = 0 ;
changing = true ;
primethechangebuffer () ;
changing = ! changing ;
templine = otherline ;
otherline = line ;
line = templine ;
styling = true ;
limit = 0 ;
loc = 1 ;
buffer [0 ]= 32 ;
inputhasended = false ;
}
dothetranslation () ;
if ( changelimit != 0 )
{
{register integer for_end; loc = 0 ;for_end = changelimit ; if ( loc <=
for_end) do
buffer [loc ]= changebuffer [loc ];
while ( loc++ < for_end ) ;}
limit = changelimit ;
changing = true ;
line = otherline ;
loc = changelimit ;
{
putc ('\n', stdout );
Fputs( stdout , "! Change file entry did not match" ) ;
error () ;
}
}
switch ( history )
{case 0 :
{
putc ('\n', stdout );
Fputs( stdout , "(No errors were found.)" ) ;
}
break ;
case 1 :
{
putc ('\n', stdout );
Fputs( stdout , "(Did you see the warning message above?)" ) ;
}
break ;
case 2 :
{
putc ('\n', stdout );
Fputs( stdout , "(Pardon me, but I think I spotted something wrong.)" )
;
}
break ;
case 3 :
{
putc ('\n', stdout );
Fputs( stdout , "(That was a fatal error, my friend.)" ) ;
}
break ;
}
putc ('\n', stdout );
if ( ( history != 0 ) && ( history != 1 ) )
uexit ( 1 ) ;
else uexit ( 0 ) ;
}
|
