lalex..c

c 语言编译器 源代码- c compiler

_auto__Xthis__dtor_toknode -> _toknode_next = free_toks ; 

#line 54 "../../src/lalex.c"
free_toks = ( struct toknode * ) _auto__Xthis__dtor_toknode ; 

#line 55 "../../src/lalex.c"
_auto__Xthis__dtor_toknode = 0 ; 

#line 56 "../../src/lalex.c"
if ( _auto__Xthis__dtor_toknode ) _delete ( ( int * ) _auto__Xthis__dtor_toknode ) ; 
} } 
#line 526 "../../src/lalex.c"
{ 
#line 526 "../../src/lalex.c"
{ _auto__result = tk ; 

#line 526 "../../src/lalex.c"
return _auto__result ; 
} } } } ; 

#line 532 "../../src/lalex.c"
extern int scan_type ( ) 
#line 533 "../../src/lalex.c"
{ 
#line 533 "../../src/lalex.c"
int _auto__result ; 
int _auto_is_type ; 

#line 534 "../../src/lalex.c"
_auto_is_type = 0 ; 

#line 535 "../../src/lalex.c"
for ( ;;) switch ( ( ( ( latok == rear ) ? tlex ( ) : 
#line 535 "../../src/lalex.c"
0 ) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) ) 
#line 536 "../../src/lalex.c"
{ 
#line 536 "../../src/lalex.c"

#line 536 "../../src/lalex.c"

#line 537 "../../src/lalex.c"
case 156 : case 13 : get_tag ( ) ; 

#line 540 "../../src/lalex.c"
case 97 : case 123 : _auto_is_type = 1 ; 

#line 543 "../../src/lalex.c"
continue ; 

#line 544 "../../src/lalex.c"
default : { 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 ) errorFI_PC__E ( ( int ) 'i' , 
#line 109 "../../src/lalex.c"
( char * ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 546 "../../src/lalex.c"
{ 
#line 546 "../../src/lalex.c"
{ _auto__result = _auto_is_type ; 

#line 546 "../../src/lalex.c"
return _auto__result ; 
} } } } ; 

#line 551 "../../src/lalex.c"
extern int scan_mod ( ) 
#line 558 "../../src/lalex.c"
{ 
#line 558 "../../src/lalex.c"
int _auto__result ; 

#line 559 "../../src/lalex.c"
for ( ;;) switch ( ( ( ( latok == rear ) ? tlex ( ) : 
#line 559 "../../src/lalex.c"
0 ) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) ) 
#line 560 "../../src/lalex.c"
{ 
#line 560 "../../src/lalex.c"

#line 560 "../../src/lalex.c"

#line 561 "../../src/lalex.c"
case 52 : case 50 : continue ; 

#line 564 "../../src/lalex.c"
case 40 : switch ( ( ( ( latok == rear ) ? tlex ( ) : 0 
#line 564 "../../src/lalex.c"
) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) ) 
#line 565 "../../src/lalex.c"
{ 
#line 565 "../../src/lalex.c"
case 
#line 565 "../../src/lalex.c"
52 : 
#line 567 "../../src/lalex.c"
case 50 : case 40 : case 42 : { 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 ) 
#line 109 "../../src/lalex.c"

#line 110 "../../src/lalex.c"
errorFI_PC__E ( ( int ) 'i' , ( char * ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 571 "../../src/lalex.c"
if ( ! scan_mod ( ) ) { 
#line 571 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 571 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 572 "../../src/lalex.c"
if ( ( ( ( latok == rear ) ? tlex ( ) : 0 
#line 572 "../../src/lalex.c"
) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) != 41 ) 
#line 572 "../../src/lalex.c"
{ 
#line 572 "../../src/lalex.c"

#line 572 "../../src/lalex.c"

#line 572 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 572 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 573 "../../src/lalex.c"
if ( ! scan_suf ( ) ) { 
#line 573 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 573 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 574 "../../src/lalex.c"
{ 
#line 574 "../../src/lalex.c"
{ _auto__result = 1 ; 

#line 574 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 575 "../../src/lalex.c"
case 156 : case 13 : case 97 : case 123 : { 
#line 109 "../../src/lalex.c"
if ( latok -> 
#line 109 "../../src/lalex.c"
_toknode_last == 0 ) 
#line 110 "../../src/lalex.c"
errorFI_PC__E ( ( int ) 'i' , ( char * ) "token q backup") ; 
#line 110 "../../src/lalex.c"

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 577 "../../src/lalex.c"
if ( ! scan_tlist ( ) ) { 
#line 577 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 577 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 578 "../../src/lalex.c"
if ( ( ( ( latok == rear ) ? tlex ( ) : 0 
#line 578 "../../src/lalex.c"
) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) != 41 ) 
#line 578 "../../src/lalex.c"
{ 
#line 578 "../../src/lalex.c"

#line 578 "../../src/lalex.c"

#line 578 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 578 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 580 "../../src/lalex.c"
case 41 : bad_cast = 1 ; 

#line 582 "../../src/lalex.c"
if ( ! scan_suf ( ) ) { 
#line 582 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 582 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 583 "../../src/lalex.c"
{ 
#line 583 "../../src/lalex.c"
{ _auto__result = 1 ; 

#line 583 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 584 "../../src/lalex.c"
default : { 
#line 585 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 585 "../../src/lalex.c"
return _auto__result ; 
} } } 
#line 587 "../../src/lalex.c"
case 42 : { 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 ) errorFI_PC__E ( ( 
#line 109 "../../src/lalex.c"
int ) 'i' , ( char * ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 589 "../../src/lalex.c"
if ( ! scan_suf ( ) ) { 
#line 589 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 589 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 590 "../../src/lalex.c"
{ 
#line 590 "../../src/lalex.c"
{ _auto__result = 1 ; 

#line 590 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 591 "../../src/lalex.c"
case 41 : case 71 : case 155 : { 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 
#line 109 "../../src/lalex.c"
) 
#line 110 "../../src/lalex.c"
errorFI_PC__E ( ( int ) 'i' , ( char * ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 595 "../../src/lalex.c"
{ 
#line 595 "../../src/lalex.c"
{ _auto__result = 1 ; 

#line 595 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 596 "../../src/lalex.c"
default : { 
#line 597 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 597 "../../src/lalex.c"
return _auto__result ; 
} } } } ; 

#line 602 "../../src/lalex.c"
extern int scan_suf ( ) 
#line 608 "../../src/lalex.c"
{ 
#line 608 "../../src/lalex.c"
int _auto__result ; 
int _auto_found ; 

#line 609 "../../src/lalex.c"
_auto_found = 0 ; 

#line 610 "../../src/lalex.c"
for ( ;;) switch ( ( ( ( latok == rear ) ? tlex ( ) : 
#line 610 "../../src/lalex.c"
0 ) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) ) 
#line 611 "../../src/lalex.c"
{ 
#line 611 "../../src/lalex.c"

#line 611 "../../src/lalex.c"

#line 612 "../../src/lalex.c"
case 42 : scan_e ( ) ; 

#line 614 "../../src/lalex.c"
_auto_found = 1 ; 

#line 615 "../../src/lalex.c"
continue ; 

#line 616 "../../src/lalex.c"
case 40 : if ( ! scan_tlist ( ) ) { 
#line 617 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 617 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 618 "../../src/lalex.c"
if ( ( ( ( latok == rear ) ? tlex ( ) : 0 
#line 618 "../../src/lalex.c"
) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) != 41 ) 
#line 618 "../../src/lalex.c"
{ 
#line 618 "../../src/lalex.c"

#line 618 "../../src/lalex.c"

#line 618 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 618 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 619 "../../src/lalex.c"
if ( _auto_found ) { 
#line 619 "../../src/lalex.c"
bad_cast = 1 ; 
} else 
#line 621 "../../src/lalex.c"
_auto_found = 1 ; 

#line 622 "../../src/lalex.c"
continue ; 

#line 623 "../../src/lalex.c"
default : { 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 ) errorFI_PC__E ( ( int ) 'i' , 
#line 109 "../../src/lalex.c"
( char * ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 625 "../../src/lalex.c"
{ 
#line 625 "../../src/lalex.c"
{ _auto__result = 1 ; 

#line 625 "../../src/lalex.c"
return _auto__result ; 
} } } } ; 

#line 630 "../../src/lalex.c"
extern int scan_tlist ( ) 
#line 635 "../../src/lalex.c"
{ 
#line 635 "../../src/lalex.c"
int _auto__result ; 

#line 636 "../../src/lalex.c"
for ( ;;) { 
#line 636 "../../src/lalex.c"
switch ( ( ( ( latok == rear ) ? tlex ( ) 
#line 636 "../../src/lalex.c"
: 0 ) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) ) 
#line 636 "../../src/lalex.c"

#line 637 "../../src/lalex.c"
{ 
#line 637 "../../src/lalex.c"
case 156 : case 13 : get_tag ( ) ; 

#line 641 "../../src/lalex.c"
case 97 : case 123 : scan_type ( ) ; 

#line 644 "../../src/lalex.c"
break ; 

#line 645 "../../src/lalex.c"
case 155 : if ( ( ( ( latok == rear ) ? tlex ( ) : 0 
#line 645 "../../src/lalex.c"
) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) != 41 ) 
#line 646 "../../src/lalex.c"
{ 
#line 646 "../../src/lalex.c"

#line 646 "../../src/lalex.c"

#line 647 "../../src/lalex.c"
errorFPC__E ( ( char * ) "missing ')' after '...'") ; 

#line 648 "../../src/lalex.c"
insert_tok ( 41 ) ; 
} 
#line 650 "../../src/lalex.c"
case 41 : { 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 ) errorFI_PC__E ( ( int ) 
#line 109 "../../src/lalex.c"
'i' , ( char * ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 652 "../../src/lalex.c"
{ 
#line 652 "../../src/lalex.c"
{ _auto__result = 1 ; 

#line 652 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 653 "../../src/lalex.c"
default : { 
#line 654 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 654 "../../src/lalex.c"
return _auto__result ; 
} } } 
#line 658 "../../src/lalex.c"
if ( ! scan_mod ( ) ) { 
#line 658 "../../src/lalex.c"
{ _auto__result = 0 ; 
#line 658 "../../src/lalex.c"

#line 658 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 660 "../../src/lalex.c"
switch ( ( ( ( latok == rear ) ? tlex ( ) : 0 
#line 660 "../../src/lalex.c"
) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) ) 
#line 660 "../../src/lalex.c"
{ 
#line 660 "../../src/lalex.c"
case 
#line 660 "../../src/lalex.c"
71 : 
#line 662 "../../src/lalex.c"
continue ; 

#line 663 "../../src/lalex.c"
case 155 : if ( ( ( ( latok == rear ) ? tlex ( ) : 0 
#line 663 "../../src/lalex.c"
) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) != 41 ) 
#line 664 "../../src/lalex.c"
{ 
#line 664 "../../src/lalex.c"

#line 664 "../../src/lalex.c"

#line 665 "../../src/lalex.c"
errorFPC__E ( ( char * ) "missing ')' after '...'") ; 

#line 666 "../../src/lalex.c"
insert_tok ( 41 ) ; 
} 
#line 668 "../../src/lalex.c"
case 41 : { 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 ) errorFI_PC__E ( ( int ) 
#line 109 "../../src/lalex.c"
'i' , ( char * ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 670 "../../src/lalex.c"
{ 
#line 670 "../../src/lalex.c"
{ _auto__result = 1 ; 

#line 670 "../../src/lalex.c"
return _auto__result ; 
} } 
#line 671 "../../src/lalex.c"
default : { 
#line 672 "../../src/lalex.c"
{ _auto__result = 0 ; 

#line 672 "../../src/lalex.c"
return _auto__result ; 
} } } } } ; 

#line 677 "../../src/lalex.c"
extern int get_tag ( ) 
#line 679 "../../src/lalex.c"
{ 
#line 679 "../../src/lalex.c"
switch ( ( ( ( latok == rear ) ? tlex ( 
#line 679 "../../src/lalex.c"
) : 0 ) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) 
#line 679 "../../src/lalex.c"
) 
#line 680 "../../src/lalex.c"
{ 
#line 680 "../../src/lalex.c"
default : errorFI_PC__E ( ( int ) 'e' , ( char * ) "missing tag") 
#line 680 "../../src/lalex.c"
; 

#line 683 "../../src/lalex.c"
insert_tok ( 80 ) ; 

#line 684 "../../src/lalex.c"
latok -> _toknode_retval . __C10_s = "__MISSING__"; 

#line 685 "../../src/lalex.c"
case 80 : { 
#line 686 "../../src/lalex.c"
Pname _auto_n ; 

#line 687 "../../src/lalex.c"
_auto_n = _table_look ( ( struct table * ) ktbl , latok -> _toknode_retval . __C10_s , 159 ) ; 

#line 688 "../../src/lalex.c"
if ( _auto_n == 0 ) { 
#line 688 "../../src/lalex.c"
_auto_n = ( struct name * ) _name__ctor ( ( struct 
#line 688 "../../src/lalex.c"
name * ) 0 , latok -> _toknode_retval . __C10_s ) ; 

#line 690 "../../src/lalex.c"
_auto_n -> _name_lex_level = 0 ; 

#line 691 "../../src/lalex.c"
_auto_n = _name_tname ( ( struct name * ) _auto_n , ( int ) latok -> _toknode_last -> _toknode_retval . __C10_t ) 
#line 691 "../../src/lalex.c"
; 

#line 692 "../../src/lalex.c"
modified_tn = modified_tn -> _name_list_l ; 
} else 
#line 694 "../../src/lalex.c"
{ 
#line 694 "../../src/lalex.c"
switch ( _auto_n -> _expr__O2.__C2_tp -> _node_base ) { 
#line 695 "../../src/lalex.c"
case 119 : case 121 : break 
#line 695 "../../src/lalex.c"
; 

#line 699 "../../src/lalex.c"
default : errorFI_PC__E ( ( int ) 'i' , ( char * ) "hidden%n:%t", _auto_n , _auto_n -> 
#line 699 "../../src/lalex.c"
_expr__O2.__C2_tp ) ; 
} } 
#line 703 "../../src/lalex.c"
latok -> _toknode_tok = 123 ; 

#line 704 "../../src/lalex.c"
latok -> _toknode_retval . __C10_pn = _auto_n ; 

#line 705 "../../src/lalex.c"
break ; 
} 
#line 707 "../../src/lalex.c"
case 123 : break ; 
} 
#line 711 "../../src/lalex.c"
switch ( ( ( ( latok == rear ) ? tlex ( ) : 0 ) 
#line 711 "../../src/lalex.c"
, ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) ) 
#line 711 "../../src/lalex.c"
{ 
#line 711 "../../src/lalex.c"
default : 
#line 711 "../../src/lalex.c"

#line 713 "../../src/lalex.c"
{ 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 ) errorFI_PC__E ( ( int ) 'i' , ( char 
#line 109 "../../src/lalex.c"
* ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 713 "../../src/lalex.c"
{ 
#line 713