lex..c

CFront1.0的源代码,第一代C++编译器的思想...

for ( ;;) switch ( _auto_c = ( ( ( -- in_file -> __iobuf__cnt ) >= 0 
#line 478 "../../src/lex.c"
) ? ( ( * ( in_file -> __iobuf__ptr ++ ) ) & 0377 ) : _filbuf ( 
#line 478 "../../src/lex.c"
( struct _iobuf * ) in_file ) ) ) 
#line 479 "../../src/lex.c"
{ 
#line 479 "../../src/lex.c"
case -1: errorFPC__E ( ( char * 
#line 479 "../../src/lex.c"
) "eof in comment") ; 

#line 482 "../../src/lex.c"
{ 
#line 482 "../../src/lex.c"
return ; 
} 
#line 483 "../../src/lex.c"
case '\n' : curloc . _loc_line ++ ; 

#line 485 "../../src/lex.c"
Nline ++ ; 

#line 486 "../../src/lex.c"
saved = lxtitle ( ) ; 

#line 487 "../../src/lex.c"
{ 
#line 487 "../../src/lex.c"
return ; 
} } } ; 

#line 492 "../../src/lex.c"
extern int tlex ( ) 
#line 493 "../../src/lex.c"
{ 
#line 493 "../../src/lex.c"
TOK _auto_ret ; 
Pname _auto_n ; 

#line 497 "../../src/lex.c"
Ntoken ++ ; 

#line 499 "../../src/lex.c"
for ( ;;) { 
#line 499 "../../src/lex.c"
register int _auto_lxchar ; 
register struct LXDOPE * _auto_p ; 
union _C10 _auto__Xy_rtFI___global ; 
union _C10 _auto__Xy_rt_global ; 
char * _auto__Xx_rt_global ; 
union _C10 _auto__Xy_rtFCloc____global ; 

#line 503 "../../src/lex.c"
txtstart = txtfree ; 

#line 505 "../../src/lex.c"
if ( saved ) { 
#line 505 "../../src/lex.c"
_auto_lxchar = saved ; 

#line 507 "../../src/lex.c"
saved = 0 ; 
} else 
#line 510 "../../src/lex.c"
_auto_lxchar = ( ( ( -- in_file -> __iobuf__cnt ) >= 0 ) ? ( 
#line 510 "../../src/lex.c"
( * ( in_file -> __iobuf__ptr ++ ) ) & 0377 ) : _filbuf ( ( struct _iobuf * 
#line 510 "../../src/lex.c"
) in_file ) ) ; 

#line 512 "../../src/lex.c"
switch ( ( _auto_p = ( lxcp [ _auto_lxchar + 1 ] ) ) -> _LXDOPE_lxact ) { 
#line 512 "../../src/lex.c"
case 
#line 512 "../../src/lex.c"
3 : 
#line 515 "../../src/lex.c"
{ 
#line 515 "../../src/lex.c"
addtok ( ( int ) _auto_p -> _LXDOPE_lxtok , ( ( _auto__Xy_rtFI___global . __C10_t = ( ( 
#line 515 "../../src/lex.c"
int ) _auto_p -> _LXDOPE_lxtok ) ) , _auto__Xy_rtFI___global ) ) ; 

#line 515 "../../src/lex.c"
{ 
#line 515 "../../src/lex.c"
return ; 
} } 
#line 515 "../../src/lex.c"
; 

#line 517 "../../src/lex.c"
case 16 : if ( br_level || bl_level ) errorFPC__E ( ( char * ) "'%s' missing at end of input", bl_level ? "}": 
#line 517 "../../src/lex.c"
")") ; 

#line 520 "../../src/lex.c"
{ 
#line 520 "../../src/lex.c"
addtok ( ( int ) 0 , ( ( _auto__Xy_rtFI___global . __C10_t = ( ( int 
#line 520 "../../src/lex.c"
) 0 ) ) , _auto__Xy_rtFI___global ) ) ; 

#line 520 "../../src/lex.c"
{ 
#line 520 "../../src/lex.c"
return ; 
} } 
#line 520 "../../src/lex.c"
; 

#line 522 "../../src/lex.c"
case 0 : if ( _auto_lxchar == '#' ) { 
#line 523 "../../src/lex.c"
ungetc ( ( int ) '#' , ( 
#line 523 "../../src/lex.c"
struct _iobuf * ) in_file ) ; 

#line 526 "../../src/lex.c"
saved = lxtitle ( ) ; 

#line 527 "../../src/lex.c"
continue ; 
} 
#line 529 "../../src/lex.c"
if ( ( ' ' <= _auto_lxchar ) && ( _auto_lxchar <= '~' ) ) errorFPC__E ( ( char 
#line 529 "../../src/lex.c"
* ) "illegal character '%c' (ignored)", _auto_lxchar ) ; 
else 
#line 532 "../../src/lex.c"
errorFPC__E ( ( char * ) "illegal character '0%o' (ignored)", _auto_lxchar ) ; 

#line 533 "../../src/lex.c"
continue ; 

#line 535 "../../src/lex.c"
case 1 : lxget ( _auto_lxchar , 3) ; 

#line 539 "../../src/lex.c"
if ( _auto_n = _table_look ( ( struct table * ) ktbl , txtstart , ( int ) 0 
#line 539 "../../src/lex.c"
) ) 
#line 539 "../../src/lex.c"
{ 
#line 539 "../../src/lex.c"
TOK _auto_x ; 
union _C10 _auto__Xy_rtFPV___global ; 
union _C10 _auto__Xy_rtFCloc____global ; 
union _C10 _auto__Xy_rtFI___global ; 

#line 541 "../../src/lex.c"
txtfree = txtstart ; 

#line 542 "../../src/lex.c"
switch ( _auto_x = _auto_n -> _node_base ) { 
#line 542 "../../src/lex.c"
case 123 : { 
#line 544 "../../src/lex.c"
addtok ( 123 , ( ( _auto__Xy_rtFPV___global . 
#line 544 "../../src/lex.c"
__C10_pn = ( ( ( struct name * ) ( ( ( int * ) ( 
#line 544 "../../src/lex.c"
( ( struct node * ) ( _auto_n ) ) ) ) ) ) ) ) 
#line 544 "../../src/lex.c"
, _auto__Xy_rtFPV___global ) ) ; 

#line 544 "../../src/lex.c"
{ 
#line 544 "../../src/lex.c"
return ; 
} } 
#line 544 "../../src/lex.c"
; 

#line 545 "../../src/lex.c"
break ; 

#line 546 "../../src/lex.c"
case 143 : { 
#line 547 "../../src/lex.c"
addtok ( _auto_n -> _expr__O2.__C2_syn_class , ( ( _auto__Xy_rtFCloc____global . __C10_l = curloc ) , _auto__Xy_rtFCloc____global ) ) 
#line 547 "../../src/lex.c"
; 

#line 547 "../../src/lex.c"
{ 
#line 547 "../../src/lex.c"
return ; 
} } 
#line 547 "../../src/lex.c"
; 

#line 548 "../../src/lex.c"
default : { 
#line 549 "../../src/lex.c"
addtok ( _auto_n -> _expr__O2.__C2_syn_class , ( ( _auto__Xy_rtFI___global . __C10_t = ( ( int ) 
#line 549 "../../src/lex.c"
_auto_x ) ) , _auto__Xy_rtFI___global ) ) ; 

#line 549 "../../src/lex.c"
{ 
#line 549 "../../src/lex.c"
return ; 
} } 
#line 549 "../../src/lex.c"
; 
} } else 
#line 552 "../../src/lex.c"
{ 
#line 552 "../../src/lex.c"
{ 
#line 553 "../../src/lex.c"
addtok ( 80 , ( ( _auto__Xy_rt_global . __C10_s = txtstart ) , _auto__Xy_rt_global ) 
#line 553 "../../src/lex.c"
) ; 

#line 553 "../../src/lex.c"
{ 
#line 553 "../../src/lex.c"
return ; 
} } 
#line 553 "../../src/lex.c"
; 
} 
#line 556 "../../src/lex.c"
case 2 : _auto_ret = 82 ; 

#line 560 "../../src/lex.c"
if ( _auto_lxchar == '0' ) { 
#line 560 "../../src/lex.c"
( txtmax <= txtfree ) ? errorFI_PC__E ( ( int ) 'i' , 
#line 560 "../../src/lex.c"
( char * ) "input buffer overflow") : ( ( ( int ) ( ( * 
#line 560 "../../src/lex.c"
( txtfree ++ ) ) = '0' ) ) ) ; 

#line 562 "../../src/lex.c"
switch ( _auto_lxchar = ( ( ( -- in_file -> __iobuf__cnt ) >= 0 ) ? ( 
#line 562 "../../src/lex.c"
( * ( in_file -> __iobuf__ptr ++ ) ) & 0377 ) : _filbuf ( ( struct _iobuf * 
#line 562 "../../src/lex.c"
) in_file ) ) ) 
#line 562 "../../src/lex.c"
{ 
#line 562 "../../src/lex.c"
case 'l' : case 'L' : ( txtmax <= txtfree ) ? errorFI_PC__E ( 
#line 562 "../../src/lex.c"
( int ) 'i' , ( char * ) "input buffer overflow") : ( ( ( int 
#line 562 "../../src/lex.c"
) ( ( * ( txtfree ++ ) ) = 'L' ) ) ) ; 

#line 566 "../../src/lex.c"
( txtmax <= txtfree ) ? errorFI_PC__E ( ( int ) 'i' , ( char * ) "input buffer overflow") 
#line 566 "../../src/lex.c"
: ( ( ( int ) ( ( * ( txtfree ++ ) ) = 
#line 566 "../../src/lex.c"
0 ) ) ) ; 

#line 567 "../../src/lex.c"
{ 
#line 567 "../../src/lex.c"
addtok ( 82 , ( ( _auto__Xy_rt_global . __C10_s = txtstart ) , _auto__Xy_rt_global ) ) ; 

#line 567 "../../src/lex.c"
{ 
#line 567 "../../src/lex.c"
return ; 
} } 
#line 567 "../../src/lex.c"
; 

#line 568 "../../src/lex.c"
case 'x' : case 'X' : lxget ( ( int ) 'X' , 010 ) ; 

#line 571 "../../src/lex.c"
if ( ( txtfree - txtstart ) < 4 ) errorFPC__E ( ( char * ) "hexadecimal digitX after \"0x\"") ; 
#line 571 "../../src/lex.c"

#line 573 "../../src/lex.c"
switch ( _auto_lxchar = ( ( ( -- in_file -> __iobuf__cnt ) >= 0 ) ? ( 
#line 573 "../../src/lex.c"
( * ( in_file -> __iobuf__ptr ++ ) ) & 0377 ) : _filbuf ( ( struct _iobuf * 
#line 573 "../../src/lex.c"
) in_file ) ) ) 
#line 573 "../../src/lex.c"
{ 
#line 573 "../../src/lex.c"
case 'l' : case 'L' : txtfree -- ; 

#line 577 "../../src/lex.c"
( txtmax <= txtfree ) ? errorFI_PC__E ( ( int ) 'i' , ( char * ) "input buffer overflow") 
#line 577 "../../src/lex.c"
: ( ( ( int ) ( ( * ( txtfree ++ ) ) = 
#line 577 "../../src/lex.c"
'L' ) ) ) ; 

#line 578 "../../src/lex.c"
( txtmax <= txtfree ) ? errorFI_PC__E ( ( int ) 'i' , ( char * ) "input buffer overflow") 
#line 578 "../../src/lex.c"
: ( ( ( int ) ( ( * ( txtfree ++ ) ) = 
#line 578 "../../src/lex.c"
0 ) ) ) ; 

#line 579 "../../src/lex.c"
break ; 

#line 580 "../../src/lex.c"
default : saved = _auto_lxchar ; 
} 
#line 583 "../../src/lex.c"
{ 
#line 583 "../../src/lex.c"
addtok ( 82 , ( ( _auto__Xy_rt_global . __C10_s = txtstart ) , _auto__Xy_rt_global ) ) ; 

#line 583 "../../src/lex.c"
{ 
#line 583 "../../src/lex.c"
return ; 
} } 
#line 583 "../../src/lex.c"
; 

#line 584 "../../src/lex.c"
case '8' : case '9' : errorFPC__E ( ( char * ) "8 or 9 used as octal digit") ; 

#line 587 "../../src/lex.c"
case '0' : case '1' : case '2' : case '3' : case '4' : case '5' : case '6' : 
#line 587 "../../src/lex.c"

#line 594 "../../src/lex.c"
case '7' : ( txtmax <= txtfree ) ? errorFI_PC__E ( ( int ) 'i' , ( char * 
#line 594 "../../src/lex.c"
) "input buffer overflow") : ( ( ( int ) ( ( * ( txtfree ++ ) 
#line 594 "../../src/lex.c"
) = _auto_lxchar ) ) ) ; 

#line 596 "../../src/lex.c"
ox : switch ( _auto_lxchar = ( ( ( -- in_file -> __iobuf__cnt ) >= 0 ) ? 
#line 596 "../../src/lex.c"
( ( * ( in_file -> __iobuf__ptr ++ ) ) & 0377 ) : _filbuf ( ( struct 
#line 596 "../../src/lex.c"
_iobuf * ) in_file ) ) ) 
#line 597 "../../src/lex.c"
{ 
#line 597 "../../src/lex.c"
case '8' : case '9' : errorFPC__E ( ( char * 
#line 597 "../../src/lex.c"
) "8 or 9 used as octal digit") ; 

#line 601 "../../src/lex.c"
case '0' : case '1' : case '2' : case '3' : case '4' : case '5' : case '6' : 
#line 601 "../../src/lex.c"

#line 608 "../../src/lex.c"
case '7' : ( txtmax <= txtfree ) ? errorFI_PC__E ( ( int ) 'i' , ( char * 
#line 608 "../../src/lex.c"
) "input buffer overflow") : ( ( ( int ) ( ( * ( txtfree ++ ) 
#line 608 "../../src/lex.c"
) = _auto_lxchar ) ) ) ; 

#line 610 "../../src/lex.c"
goto ox ; 

#line 611 "../../src/lex.c"
case 'l' : case 'L' : ( txtmax <= txtfree ) ? errorFI_PC__E ( ( int ) 'i' , ( 
#line 611 "../../src/lex.c"
char * ) "input buffer overflow") : ( ( ( int ) ( ( * ( 
#line 611 "../../src/lex.c"
txtfree ++ ) ) = 'L' ) ) ) ; 

#line 614 "../../src/lex.c"
( txtmax <= txtfree ) ? errorFI_PC__E ( ( int ) 'i' , ( char * ) "input buffer overflow") 
#line 614 "../../src/lex.c"
: ( ( ( int ) ( ( * ( txtfree ++ ) ) = 
#line 614 "../../src/lex.c"
0 ) ) ) ; 

#line 615 "../../src/lex.c"
break ; 

#line 616 "../../src/lex.c"
default : ( txtmax <= txtfree ) ? errorFI_PC__E ( ( int ) 'i' , ( char * 
#line 616 "../../src/lex.c"
) "input buffer overflow") : ( ( ( int ) ( ( * ( txtfree ++ ) 
#line 616 "../../src/lex.c"
) = 0 ) ) ) ; 

#line 618 "../../src/lex.c"
saved = _auto_lxchar ; 
} 
#line 620 "../../src/lex.c"
{ 
#line 620 "../../src/lex.c"
addtok ( 82 , ( ( _auto__Xy_rt_global . __C10_s = txtstart ) , _auto__Xy_rt_global ) ) ; 

#line 620 "../../src/lex.c"
{ 
#line 620 "../../src/lex.c"
return ; 
} } 
#line 620 "../../src/lex.c"
; 

#line 621 "../../src/lex.c"
case '.' : lxget ( ( int ) '.' , 02 ) ; 

#line 623 "../../src/lex.c"
goto getfp ; 

#line 624 "../../src/lex.c"
default : saved = _auto_lxchar ; 

#line 626 "../../src/lex.c"
{ 
#line 626 "../../src/lex.c"
addtok ( 86 , ( ( _auto__Xy_rtFI___global . __C10_t = ( ( int ) 0 ) ) 
#line 626 "../../src/lex.c"
, _auto__Xy_rtFI___global ) ) ; 

#line 626 "../../src/lex.c"
{ 
#line 626 "../../src/lex.c"
return ; 
} } 
#line 626 "../../src/lex.c"
; 
} } else 
#line 630 "../../src/lex.c"
lxget ( _auto_lxchar , 02 ) ; 

#line 632 "../../src/lex.c"
if ( ( _auto_lxchar = ( ( ( -- in_file -> __iobuf__cnt ) >= 0 ) ? 
#line 632 "../../src/lex.c"
( ( * ( in_file -> __iobuf__ptr ++ ) ) & 0377 ) : _filbuf ( ( struct 
#line 632 "../../src/lex.c"
_iobuf * ) in_file ) ) ) == '.' ) 
#line 632 "../../src/lex.c"
{ 
#line 632 "../../src/lex.c"
txtfree -- ; 

#line 634 "../../src/lex.c"
lxget ( ( int ) '.' , 02 ) ; 

#line 635 "../../src/lex.c"
getfp : _auto_ret = 83 ; 

#line 637 "../../src/lex.c"
_auto_lxchar = ( ( ( -- in_file -> __iobuf__cnt ) >= 0 ) ? ( ( * 
#line 637 "../../src/lex.c"
( in_file -> __iobuf__ptr ++ ) ) & 0377 ) : _filbuf ( ( struct _iobuf * ) in_file ) 
#line 637 "../../src/lex.c"
) ; 
} 
#line 638 "../../src/lex.c"
; 

#line 640 "../../src/lex.c"
switch ( _auto_lxchar ) { 
#line 640 "../../src/lex.c"
case 'e' : case 'E' : txtfree -- ; 

#line 644 "../../src/lex.c"
switch ( _auto_lxchar = ( ( ( -- in_file -> __iobuf__cnt ) >= 0 ) ? ( 
#line 644 "../../src/lex.c"
( * ( in_file -> __iobuf__ptr ++ ) ) & 0377 ) : _filbuf ( ( struct _iobuf * 
#line 644 "../../src/lex.c"
) in_file ) ) ) 
#line 644 "../../src/lex.c"
{ 
#line 644 "../../src/lex.c"
case '-' : case '+' : ( txtmax <= txtfree ) ? errorFI_PC__E ( 
#line 644 "../../src/lex.c"
( int ) 'i' , ( char * ) "input buffer overflow") : ( ( ( int 
#line 644 "../../src/lex.c"
) ( ( * ( txtfree ++ ) ) = 'e' ) ) ) ; 

#line 648 "../../src/lex.c"
break ; 

#line 649 "../../src/lex.c"
default : ungetc ( _auto_lxchar , ( struct _iobuf * ) in_file ) ; 

#line 651 "../../src/lex.c"
_auto_lxchar = 'e' ; 
} 
#line 652 "../../src/lex.c"
; 

#line 653 "../../src/lex.c"
lxget ( _auto_lxchar , 02 ) ; 

#line 654 "../../src/lex.c"
_auto_ret = 83 ; 

#line 655 "../../src/lex.c"
break ; 

#line 656 "../../src/lex.c"
case 'l' : case 'L' : txtfree -- ; 

#line 659 "../../src/lex.c"
( txtmax <= txtfree ) ? errorFI_PC__E ( ( int ) 'i' , ( char * ) "input buffer overflow") 
#line 659 "../../src/lex.c"
: ( ( ( int ) ( ( * ( txtfree ++ ) ) = 
#line 659 "../../src/lex.c"
'L' ) ) ) ; 

#line 660 "../../src/lex.c"
break ; 

#line 661 "../../src/lex.c"
default : saved = _auto_lxchar ; 
} 
#line 663 "../../src/lex.c"
; 

#line 665 "../../src/lex.c"
( txtmax <= txtfree ) ? errorFI_PC__E ( ( int ) 'i' , ( char * ) "input buffer overflow") 
#line 665 "../../src/lex.c"
: ( ( ( int ) ( ( * ( txtfree ++ ) ) = 
#line 665 "../../src/lex.c"
0 ) ) ) ; 

#line 666 "../../src/lex.c"
{ 
#line 666 "../../src/lex.c"
addtok ( ( int ) _auto_ret , ( ( _auto__Xy_rt_global . __C10_s = txtstart ) , _auto__Xy_rt_global ) ) 
#line 666 "../../src/lex.c"
; 

#line 666 "../../src/lex.c"
{ 
#line 666 "../../src/lex.c"
return ; 
} } 
#line 666 "../../src/lex.c"
; 

#line 668 "../../src/lex.c"
case 8 : if ( ( _auto_lxchar = ( ( ( -- in_file -> __iobuf__cnt ) >= 0 
#line 668 "../../src/lex.c"
) ? ( ( * ( in_file -> __iobuf__ptr ++ ) ) & 0377 ) : _filbuf ( 
#line 668 "../../src/lex.c"
( struct _iobuf * ) in_file ) ) ) == '.' ) 
#line 669 "../../src/lex.c"
{ 
#line 669 "../../src/lex.c"
if ( ( _auto_lxchar = 
#line 669 "../../src/lex.c"
( ( ( -- in_file -> __iobuf__cnt ) >= 0 ) ? ( ( * ( 
#line 669 "../../src/lex.c"
in_file -> __iobuf__ptr ++ ) ) & 0377 ) : _filbuf ( ( struct _iobuf * ) in_file ) ) 
#line 669 "../../src/lex.c"
) != '.' ) 
#line 670 "../../src/lex.c"
{ 
#line 670 "../../src/lex.c"
errorFPC__E ( ( char * ) "token .. ?") ; 

#line 672 "../../src/lex.c"
saved = _auto_lxchar ; 
} 
#line 674 "../../src/lex.c"
{ 
#line 674 "../../src/lex.c"
addtok ( 155 , ( ( _auto__Xy_rtFI___global . __C10_t = ( ( int ) 0 ) 
#line 674 "../../src/lex.c"
) , _auto__X