print..c

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

#line 537 "../../src/print.c"
break ; 

#line 539 "../../src/print.c"
default : fputs ( ( char * ) "operator ", ( struct _iobuf * ) out_file ) ; 
#line 539 "../../src/print.c"

#line 541 "../../src/print.c"
fputs ( ( char * ) ( keys [ _auto_this -> _name_n_oper ] ) , ( struct _iobuf * 
#line 541 "../../src/print.c"
) out_file ) ; 

#line 542 "../../src/print.c"
break ; 
} 
#line 544 "../../src/print.c"
if ( _auto_f ) fputs ( ( char * ) "()", ( struct _iobuf * ) 
#line 544 "../../src/print.c"
out_file ) ; 
} else 
#line 547 "../../src/print.c"
if ( _auto_this -> _expr__O3.__C3_string ) fputs ( ( char * ) _auto_this -> _expr__O3.__C3_string , ( 
#line 547 "../../src/print.c"
struct _iobuf * ) out_file ) ; 

#line 548 "../../src/print.c"
{ 
#line 548 "../../src/print.c"
return ; 
} } 
#line 550 "../../src/print.c"
default : if ( _auto_this -> _name__O6.__C6_n_qualifier ) { 
#line 551 "../../src/print.c"
_name_print ( ( struct name * ) 
#line 551 "../../src/print.c"
_auto_this -> _name__O6.__C6_n_qualifier ) ; 

#line 553 "../../src/print.c"
puttok ( 45 ) ; 
} } 
#line 557 "../../src/print.c"
if ( _auto_this -> _expr__O3.__C3_string ) fprintf ( ( struct _iobuf * ) out_file , ( char 
#line 557 "../../src/print.c"
* ) "%s ", _auto_this -> _expr__O3.__C3_string ) ; 
} ; 

#line 561 "../../src/print.c"
int _type_print ( _auto_this ) register struct type * _auto_this ; 

#line 562 "../../src/print.c"
{ 
#line 562 "../../src/print.c"
switch ( _auto_this -> _node_base ) { 
#line 564 "../../src/print.c"
case 125 : case 158 : _type_dcl_print ( ( struct type * 
#line 564 "../../src/print.c"
) ( ( ( struct ptr * ) ( _auto_this ) ) ) , ( struct 
#line 564 "../../src/print.c"
name * ) 0 ) ; 

#line 568 "../../src/print.c"
break ; 

#line 569 "../../src/print.c"
case 108 : _fct_dcl_print ( ( struct fct * ) ( ( ( struct fct * ) ( 
#line 569 "../../src/print.c"
_auto_this ) ) ) ) ; 

#line 571 "../../src/print.c"
break ; 

#line 572 "../../src/print.c"
case 110 : _type_dcl_print ( ( struct type * ) ( ( ( struct vec * ) ( 
#line 572 "../../src/print.c"
_auto_this ) ) ) , ( struct name * ) 0 ) ; 

#line 574 "../../src/print.c"
break ; 

#line 575 "../../src/print.c"
case 6 : case 13 : if ( print_mode == 4 ) fprintf ( ( struct _iobuf * ) out_file , 
#line 575 "../../src/print.c"
( char * ) "%s", ( _auto_this -> _node_base == 6 ) ? "class": "enum") ; 
else 
#line 580 "../../src/print.c"
errorFI_PC__E ( ( int ) 'i' , ( char * ) "%d->T.print(%k)", _auto_this , _auto_this -> _node_base ) 
#line 580 "../../src/print.c"
; 

#line 581 "../../src/print.c"
break ; 

#line 582 "../../src/print.c"
case 97 : if ( Cast ) { 
#line 583 "../../src/print.c"
_type_print ( ( struct type * ) ( ( ( 
#line 583 "../../src/print.c"
struct basetype * ) ( _auto_this ) ) ) -> _basetype_b_name -> _expr__O2.__C2_tp ) ; 

#line 585 "../../src/print.c"
break ; 
} 
#line 587 "../../src/print.c"
default : _basetype_dcl_print ( ( struct basetype * ) ( ( ( struct basetype * ) 
#line 587 "../../src/print.c"
( _auto_this ) ) ) ) ; 
} } ; 

#line 592 "../../src/print.c"
char * _type_signature ( _auto_this , _auto_p ) register struct type * _auto_this ; 
register char * _auto_p ; 

#line 597 "../../src/print.c"
{ 
#line 597 "../../src/print.c"
char * _auto__result ; 
Ptype _auto_t ; 
int _auto_pp ; 

#line 600 "../../src/print.c"
_auto_t = ( struct type * ) _auto_this ; 

#line 601 "../../src/print.c"
_auto_pp = 0 ; 

#line 604 "../../src/print.c"
xx : switch ( _auto_t -> _node_base ) { 
#line 605 "../../src/print.c"
case 97 : _auto_t = ( ( ( struct basetype * 
#line 605 "../../src/print.c"
) ( _auto_t ) ) ) -> _basetype_b_name -> _expr__O2.__C2_tp ; 

#line 606 "../../src/print.c"
goto xx ; 

#line 607 "../../src/print.c"
case 125 : ( * ( _auto_p ++ ) ) = 'P' ; 

#line 607 "../../src/print.c"
_auto_t = ( ( ( struct ptr * ) ( _auto_t ) ) ) -> _ptr_typ ; 

#line 607 "../../src/print.c"
_auto_pp = 1 ; 

#line 607 "../../src/print.c"
goto xx ; 

#line 608 "../../src/print.c"
case 158 : ( * ( _auto_p ++ ) ) = 'R' ; 

#line 608 "../../src/print.c"
_auto_t = ( ( ( struct ptr * ) ( _auto_t ) ) ) -> _ptr_typ ; 

#line 608 "../../src/print.c"
_auto_pp = 1 ; 

#line 608 "../../src/print.c"
goto xx ; 

#line 609 "../../src/print.c"
case 110 : ( * ( _auto_p ++ ) ) = 'V' ; 

#line 609 "../../src/print.c"
_auto_t = ( ( ( struct vec * ) ( _auto_t ) ) ) -> _vec_typ ; 

#line 609 "../../src/print.c"
_auto_pp = 1 ; 

#line 609 "../../src/print.c"
goto xx ; 

#line 610 "../../src/print.c"
case 108 : { 
#line 611 "../../src/print.c"
Pfct _auto_f ; 
Pname _auto_n ; 

#line 611 "../../src/print.c"
_auto_f = ( ( ( struct fct * ) ( _auto_this ) ) ) ; 

#line 613 "../../src/print.c"
_auto_t = ( _auto_f -> _fct_s_returns ? _auto_f -> _fct_s_returns : _auto_f -> _fct_returns ) ; 

#line 614 "../../src/print.c"
( * ( _auto_p ++ ) ) = 'F' ; 

#line 615 "../../src/print.c"
for ( _auto_n = _auto_f -> _fct_argtype ;_auto_n ;( _auto_n = _auto_n -> _name_n_list ) ) { 
#line 615 "../../src/print.c"
_auto_p = _type_signature ( ( struct 
#line 615 "../../src/print.c"
type * ) _auto_n -> _expr__O2.__C2_tp , _auto_p ) ; 

#line 617 "../../src/print.c"
( * ( _auto_p ++ ) ) = '_' ; 
} 
#line 619 "../../src/print.c"
( * ( _auto_p ++ ) ) = '_' ; 

#line 620 "../../src/print.c"
if ( _auto_f -> _fct_nargs_known == 155 ) ( * ( _auto_p ++ ) ) = 'E' ; 

#line 621 "../../src/print.c"
( * _auto_p ) = 0 ; 

#line 622 "../../src/print.c"
{ 
#line 622 "../../src/print.c"
{ _auto__result = _auto_p ; 

#line 622 "../../src/print.c"
return _auto__result ; 
} } } } 
#line 626 "../../src/print.c"
if ( ( ( ( struct basetype * ) ( _auto_t ) 
#line 626 "../../src/print.c"
) ) -> _basetype_b_unsigned ) 
#line 626 "../../src/print.c"
( * ( _auto_p ++ ) ) = 'U' ; 

#line 628 "../../src/print.c"
switch ( _auto_t -> _node_base ) { 
#line 628 "../../src/print.c"
case 141 : ( * ( _auto_p ++ ) ) = 
#line 628 "../../src/print.c"
'A' ; 

#line 629 "../../src/print.c"
break ; 

#line 630 "../../src/print.c"
case 138 : ( * ( _auto_p ++ ) ) = 'Z' ; 

#line 630 "../../src/print.c"
break ; 

#line 631 "../../src/print.c"
case 38 : ( * ( _auto_p ++ ) ) = 'V' ; 

#line 631 "../../src/print.c"
break ; 

#line 632 "../../src/print.c"
case 5 : ( * ( _auto_p ++ ) ) = ( _auto_pp ? 'C' : 'I' ) ; 
#line 632 "../../src/print.c"

#line 632 "../../src/print.c"
break ; 

#line 633 "../../src/print.c"
case 29 : ( * ( _auto_p ++ ) ) = ( _auto_pp ? 'S' : 'I' ) ; 
#line 633 "../../src/print.c"

#line 633 "../../src/print.c"
break ; 

#line 634 "../../src/print.c"
case 121 : case 21 : ( * ( _auto_p ++ ) ) = 'I' ; 

#line 635 "../../src/print.c"
break ; 

#line 636 "../../src/print.c"
case 22 : ( * ( _auto_p ++ ) ) = 'L' ; 

#line 636 "../../src/print.c"
break ; 

#line 637 "../../src/print.c"
case 15 : ( * ( _auto_p ++ ) ) = 'F' ; 

#line 637 "../../src/print.c"
break ; 

#line 638 "../../src/print.c"
case 11 : ( * ( _auto_p ++ ) ) = 'D' ; 

#line 638 "../../src/print.c"
break ; 

#line 639 "../../src/print.c"
case 119 : ( * ( _auto_p ++ ) ) = 'C' ; 

#line 640 "../../src/print.c"
strcpy ( _auto_p , ( ( ( struct basetype * ) ( _auto_t ) ) ) -> _basetype_b_name -> 
#line 640 "../../src/print.c"
_expr__O3.__C3_string ) ; 

#line 641 "../../src/print.c"
while ( * ( _auto_p ++ ) ) ; 

#line 642 "../../src/print.c"
( * ( _auto_p - 1 ) ) = '_' ; 

#line 643 "../../src/print.c"
break ; 

#line 644 "../../src/print.c"
case 114 : default : errorFI_PC__E ( ( int ) 'i' , ( char * ) "signature of %k", 
#line 644 "../../src/print.c"
_auto_t -> _node_base ) ; 
} 
#line 649 "../../src/print.c"
( * _auto_p ) = 0 ; 

#line 650 "../../src/print.c"
{ 
#line 650 "../../src/print.c"
{ _auto__result = _auto_p ; 

#line 650 "../../src/print.c"
return _auto__result ; 
} } } ; 

#line 653 "../../src/print.c"
int _basetype_dcl_print ( _auto_this ) register struct basetype * _auto_this ; 

#line 654 "../../src/print.c"
{ 
#line 654 "../../src/print.c"
Pname _auto_nn ; 
Pclass _auto_cl ; 

#line 658 "../../src/print.c"
if ( print_mode != 3 ) { 
#line 658 "../../src/print.c"
if ( _auto_this -> _basetype_b_virtual ) puttok ( 77 ) ; 

#line 660 "../../src/print.c"
if ( _auto_this -> _basetype_b_inline ) puttok ( 75 ) ; 

#line 661 "../../src/print.c"
if ( _auto_this -> _basetype_b_const ) puttok ( 26 ) ; 
} 
#line 663 "../../src/print.c"
if ( _auto_this -> _basetype_b_unsigned ) puttok ( 37 ) ; 

#line 665 "../../src/print.c"
switch ( _auto_this -> _node_base ) { 
#line 665 "../../src/print.c"
case 141 : fprintf ( ( struct _iobuf * ) out_file , ( 
#line 665 "../../src/print.c"
char * ) "%s ", "any") ; 

#line 668 "../../src/print.c"
break ; 

#line 670 "../../src/print.c"
case 138 : fprintf ( ( struct _iobuf * ) out_file , ( char * ) "%s ", "zero") 
#line 670 "../../src/print.c"
; 

#line 672 "../../src/print.c"
break ; 

#line 674 "../../src/print.c"
case 38 : if ( print_mode == 3 ) { 
#line 675 "../../src/print.c"
puttok ( 21 ) ; 

#line 677 "../../src/print.c"
break ; 
} 
#line 679 "../../src/print.c"
case 5 : case 29 : case 21 : case 22 : case 15 : case 11 : puttok ( 
#line 679 "../../src/print.c"
( int ) _auto_this -> _node_base ) ; 

#line 686 "../../src/print.c"
break ; 

#line 688 "../../src/print.c"
case 121 : _auto_nn = _auto_this -> _basetype_b_name ; 

#line 690 "../../src/print.c"
eob : if ( print_mode == 3 ) puttok ( 21 ) ; 
else 
#line 693 "../../src/print.c"
{ 
#line 693 "../../src/print.c"
puttok ( 13 ) ; 

#line 695 "../../src/print.c"
_name_print ( ( struct name * ) _auto_nn ) ; 
} 
#line 697 "../../src/print.c"
break ; 

#line 699 "../../src/print.c"
case 119 : _auto_nn = _auto_this -> _basetype_b_name ; 

#line 701 "../../src/print.c"
cob : _auto_cl = ( ( ( struct classdef * ) ( _auto_nn -> _expr__O2.__C2_tp ) ) ) ; 
#line 701 "../../src/print.c"

#line 703 "../../src/print.c"
switch ( _auto_cl -> _classdef_csu ) { 
#line 703 "../../src/print.c"
case 36 : case 167 : puttok ( 36 ) ; 

#line 705 "../../src/print.c"
break ; 

#line 706 "../../src/print.c"
default : puttok ( 32 ) ; 
} 
#line 708 "../../src/print.c"
fprintf ( ( struct _iobuf * ) out_file , ( char * ) "%s ", _auto_cl -> _classdef_string ) 
#line 708 "../../src/print.c"
; 

#line 709 "../../src/print.c"
break ; 

#line 711 "../../src/print.c"
case 97 : if ( print_mode == 3 ) { 
#line 712 "../../src/print.c"
switch ( _auto_this -> _basetype_b_name -> _expr__O2.__C2_tp -> _node_base ) { 
#line 712 "../../src/print.c"

#line 713 "../../src/print.c"

#line 714 "../../src/print.c"
case 119 : _auto_nn = ( ( ( struct basetype * ) ( _auto_this -> _basetype_b_name -> _expr__O2.__C2_tp ) ) 
#line 714 "../../src/print.c"
) -> _basetype_b_name ; 

#line 716 "../../src/print.c"
goto cob ; 

#line 717 "../../src/print.c"
case 121 : _auto_nn = ( ( ( struct basetype * ) ( _auto_this -> _basetype_b_name -> _expr__O2.__C2_tp ) ) 
#line 717 "../../src/print.c"
) -> _basetype_b_name ; 

#line 719 "../../src/print.c"
goto eob ; 
} } 
#line 722 "../../src/print.c"
_name_print ( ( struct name * ) _auto_this -> _basetype_b_name ) ; 

#line 723 "../../src/print.c"
break ; 

#line 725 "../../src/print.c"
default : if ( print_mode == 4 ) { 
#line 726 "../../src/print.c"
if ( ( ( 0 < _auto_this -> 
#line 726 "../../src/print.c"
_node_base ) && ( _auto_this -> _node_base < 256 ) ) && ( keys [ _auto_this -> _node_base ] ) ) 
#line 726 "../../src/print.c"

#line 728 "../../src/print.c"
fprintf ( ( struct _iobuf * ) out_file , ( char * ) " %s", keys [ _auto_this -> _node_base ] 
#line 728 "../../src/print.c"
) ; 
else 
#line 730 "../../src/print.c"
fprintf ( ( struct _iobuf * ) out_file , ( char * ) "?") ; 
} else 
#line 733 "../../src/print.c"
errorFI_PC__E ( ( int ) 'i' , ( char * ) "%d->basetype.print(%d)", _auto_this , _auto_this -> 
#line 733 "../../src/print.c"
_node_base ) ; 
} } ; 

#line 737 "../../src/print.c"
int _type_dcl_print ( _auto_this , _auto_n ) register struct type * _auto_this ; 
struct name * _auto_n ; 

#line 741 "../../src/print.c"
{ 
#line 741 "../../src/print.c"
Ptype _auto_t ; 
Pfct _auto_f ; 
Pvec _auto_v ; 
Pptr _auto_p ; 
TOK _auto_pre ; 

#line 742 "../../src/print.c"
_auto_t = ( struct type * ) _auto_this ; 

#line 746 "../../src/print.c"
_auto_pre = 0 ; 

#line 748 "../../src/print.c"
if ( _auto_t == 0 ) errorFI_PC__E ( ( int ) 'i' , ( char * ) 
#line 748 "../../src/print.c"
"0->dcl_print()") ; 

#line 749 "../../src/print.c"
if ( _auto_n && ( _auto_n -> _expr__O2.__C2_tp != _auto_t ) ) errorFI_PC__E ( ( int ) 'i' , ( 
#line 749 "../../src/print.c"
char * ) "not %n'sT (%d)", _auto_n , _auto_t ) ; 

#line 751 "../../src/print.c"
if ( _auto_this -> _node_base == 76 ) { 
#line 751 "../../src/print.c"
if ( print_mode == 4 ) { 
#line 752 "../../src/print.c"
puttok ( 76 ) ; 
#line 752 "../../src/print.c"

#line 754 "../../src/print.c"
{ 
#line 754 "../../src/print.c"
return ; 
} } 
#line 756 "../../src/print.c"
{ 
#line 756 "../../src/print.c"
Pgen _auto_g ; 
Plist _auto_gl ; 

#line 756 "../../src/print.c"
_auto_g = ( ( ( struct gen * ) ( _auto_this ) ) ) ; 

#line 758 "../../src/print.c"
fprintf ( ( struct _iobuf * ) out_file , ( char * ) "\t/* overload %s: */\n", _auto_g -> _gen_string ) ; 
#line 758 "../../src/print.c"

#line 759 "../../src/print.c"
for ( _auto_gl = _auto_g -> _gen_fct_list ;_auto_gl ;( _auto_gl = _auto_gl -> _name_list_l ) ) { 
#line 759 "../../src/print.c"
Pname _auto_nn ; 

#line 760 "../../src/print.c"
_auto_nn = _auto_gl -> _name_list_f ; 

#line 761 "../../src/print.c"
_type_dcl_print ( ( struct type * ) _auto_nn -> _expr__O2.__C2_tp , ( struct name * ) _auto_nn ) ; 

#line 762 "../../src/print.c"
if ( _auto_gl -> _name_list_l ) puttok ( 72 ) ; 
} 
#line 764 "../../src/print.c"
{ 
#line 764 "../../src/print.c"
return ; 
} } } 
#line 767 "../../src/print.c"
tbuf = ( tbufvec [ freetbuf ] ) ; 

#line 768 "../../src/print.c"
if ( tbuf == 0 ) { 
#line 768 "../../src/print.c"
if ( freetbuf == 9) errorFI_PC__E ( ( int ) 
#line 768 "../../src/print.c"
'i' , ( char * ) "AT nesting overflow") ; 

#line 770 "../../src/print.c"
( tbufvec [ freetbuf ] ) = ( tbuf = ( struct dcl_buf * ) ( ( ( 
#line 770 "../../src/print.c"
struct dcl_buf * ) ( _new ( ( long ) 176) ) ) ) ) ; 
#line 770 "../../src/print.c"
} 
#line 772 "../../src/print.c"
freetbuf ++ ; 

#line 773 "../../src/print.c"
{ 
#line 80 "../../src/print.c"
( ( struct