This is pretty3.c in view mode; [Download] [Up]
/* ANSI C code generated by SmallEiffel. */ /* -- SmallEiffel -- Release (- 0.95) -- FRANCE -- Copyright (C), 1994 - Dominique COLNET and Suzanne COLLIN -- University Henri Poincare' - Nancy 1 - email colnet@loria.fr -- CRIN (Centre de Recherche en Informatique de Nancy) -- FRANCE */ #include "pretty.h" char rT7item(T7 *C,int a1){ char R=0; /*IF*//*AF*//*AE*/ /*FI*/R=(C->_storage)[a1-1]; return R; } char * rT7realloc(/*C*/char * a1,int a2){ char * R=0; R=(char*)realloc(a1,(size_t)a2); return R; } T0* rT7substring(T7 *C,int a1,int a2){ T0* R=NULL; int _i=0; {T7 *n=((T7*)se_new(7)); rT7make(n,((a2)-(a1))+(1)); R=(T0 *)n;} _i=a1; while (!((_i)>(a2))) { rT7extend((T7*)R,rT7item(C,_i)); _i=(_i)+(1); } return R; } int rT7is_equal(T7 *C,T0* a1){ int R=0; int _i=0; /*IF*/if (((T0 *)C)==((T0 *)a1)) { R=1; } else { _i=(C)->_count; R=(_i)==(((T7*)a1)->_count); while (!(((!(R))||((_i)==(0))))) { R=(rT7item(C,_i))==(rT7item((T7*)a1,_i)); _i=(_i)-(1); } } /*FI*/return R; } void rT7append(T7 *C,T0* a1){ int _i=0; _i=1; while (!((_i)>(((T7*)a1)->_count))) { rT7extend(C,rT7item((T7*)a1,_i)); _i=(_i)+(1); } } char rT7last(T7 *C){ char R=0; R=rT7item(C,(C)->_count); return R; } char * rT7malloc(/*C*/int a1){ char * R=0; R=(char*)malloc((size_t)a1); return R; } void rT7put(T7 *C,char a1,int a2){ /*IF*//*AF*//*AE*/ /*FI*/(C->_storage)[a2-1]=a1; } void rT7swap(T7 *C,int a1,int a2){ char _tmp=0; _tmp=rT7item(C,a1); rT7put(C,rT7item(C,a2),a1); rT7put(C,_tmp,a2); } void rT7copy(T7 *C,T0* a1){ int _i=0; /*IF*/if (((C)->_capacity)<(((T7*)a1)->_count)) { rT7make(C,((T7*)a1)->_count); } /*FI*/_i=((T7*)a1)->_count; C->_count=_i; while (!((_i)==(0))) { rT7put(C,rT7item((T7*)a1,_i),_i); _i=(_i)-(1); } } void rT7prepend(T7 *C,T0* a1){ int _old_count=0; int _i=0; _old_count=(C)->_count; _i=((T7*)a1)->_count; while (!((_i)==(0))) { rT7extend(C,'\40'); _i=(_i)-(1); } _i=(C)->_count; while (!((_old_count)==(0))) { rT7put(C,rT7item(C,_old_count),_i); _i=(_i)-(1); _old_count=(_old_count)-(1); } _i=((T7*)a1)->_count; while (!((_i)==(0))) { rT7put(C,rT7item((T7*)a1,_i),_i); _i=(_i)-(1); } } void rT7to_lower(T7 *C){ int _i=0; _i=(C)->_count; while (!((_i)==(0))) { rT7put(C,rT3to_lower(rT7item(C,_i)),_i); _i=(_i)-(1); } } void rT7make(T7 *C,int a1){ /*IF*/if ((a1)>(0)) { /*IF*/if (((C)->_capacity)<(a1)) { /*IF*/if (((C)->_capacity)==(0)) { C->_storage=rT7malloc(a1); } else { C->_storage=rT7realloc((C)->_storage,a1); } /*FI*/C->_capacity=a1; } /*FI*/} /*FI*/C->_count=0; } char * rT7to_external(T7 *C){ char * R=0; rT7extend(C,'\0'); rT7remove_last(C,1); R=(C)->_storage; return R; } void rT232pretty_print(T232 *C){ XrT66pretty_print((C)->_lower); rT260put_string((T260*)oRBC27fmt,(T0 *)ms558); XrT66pretty_print((C)->_upper); } void rT232make(T232 *C,T0* a1,T0* a2){ C->_lower=a1; C->_upper=a2; } void rT230pretty_print(T230 *C){ int _i=0; _i=1; while (!((_i)>(((T231*)(C)->_list)->_upper))) { rT225pretty_print((T225*)rT231item((T231*)(C)->_list,_i)); _i=(_i)+(1); /*IF*/if ((_i)<=(((T231*)(C)->_list)->_upper)) { rT260put_character((T260*)oRBC27fmt,'\12'); rT260indent((T260*)oRBC27fmt); } /*FI*/} } void rT230add_last(T230 *C,T0* a1){ rT231add_last((T231*)(C)->_list,a1); } void rT226pretty_print(T226 *C){ XrT66pretty_print((C)->_expression); } void rT171bracketed_print(T171 *C){ rT260put_character((T260*)oRBC27fmt,'\50'); rT171pretty_print(C); rT260put_character((T260*)oRBC27fmt,'\51'); } void rT171fatal_error(/*C*/T0* a1){ (/*UT*/(void)(T43*)oRBC27eh); rT43fatal_error(a1); } T0* rT171add_comment(T171 *C,T0* a1){ T0* R=NULL; /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) { R=(T0 *)C; } else { {T219 *n=((T219*)se_new(219)); rT219make(n,(T0 *)C,a1); R=(T0 *)n;}} /*FI*/return R; } void rT171pretty_print(T171 *C){ rT260put_string((T260*)oRBC27fmt,(C)->_to_string); } T0* rT171to_key(T171 *C){ T0* R=NULL; R=(C)->_to_string; return R; } void rT171make(T171 *C,T0* a1){ C->_start_position=a1; C->_to_string=(T0 *)ms289; } T0* rT179add_comment(T179 *C,T0* a1){ T0* R=NULL; /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) { R=(T0 *)C; } /*AF*/else { {T215 *n=((T215*)se_new(215)); rT215make(n,(T0 *)C,a1); R=(T0 *)n;}} /*FI*/return R; } void rT179pretty_print(T179 *C){ XrT66print_as_target((C)->_target); rT260put_string((T260*)oRBC27fmt,XrT65to_string((C)->_feature_name)); rT260level_incr((T260*)oRBC27fmt); rT169pretty_print((T169*)(C)->_arguments); rT260level_decr((T260*)oRBC27fmt); /*IF*/if (((T260*)oRBC27fmt)->_semi_colon_flag) { rT260put_character((T260*)oRBC27fmt,'\73'); } /*FI*/} void rT179make(T179 *C,T0* a1,T0* a2,T0* a3){ C->_target=a1; C->_feature_name=a2; C->_arguments=a3; } T0* rT178arg1(T178 *C){ T0* R=NULL; R=rT169first((T169*)(C)->_arguments); return R; } T0* rT178add_comment(T178 *C,T0* a1){ T0* R=NULL; /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) { R=(T0 *)C; } /*AF*/else { {T215 *n=((T215*)se_new(215)); rT215make(n,(T0 *)C,a1); R=(T0 *)n;}} /*FI*/return R; } void rT178pretty_print(T178 *C){ XrT66print_as_target((C)->_target); rT260put_string((T260*)oRBC27fmt,XrT65to_string((C)->_feature_name)); rT260put_character((T260*)oRBC27fmt,'\50'); XrT66pretty_print(rT178arg1(C)); rT260put_character((T260*)oRBC27fmt,'\51'); /*IF*/if (((T260*)oRBC27fmt)->_semi_colon_flag) { rT260put_character((T260*)oRBC27fmt,'\73'); } /*FI*/} void rT178make(T178 *C,T0* a1,T0* a2,T0* a3){ C->_target=a1; C->_feature_name=a2; C->_arguments=a3; } T0* rT177add_comment(T177 *C,T0* a1){ T0* R=NULL; /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) { R=(T0 *)C; } /*AF*/else { {T215 *n=((T215*)se_new(215)); rT215make(n,(T0 *)C,a1); R=(T0 *)n;}} /*FI*/return R; } void rT177pretty_print(T177 *C){ XrT66print_as_target((C)->_target); rT260put_string((T260*)oRBC27fmt,XrT65to_string((C)->_feature_name)); /*IF*/if (((T260*)oRBC27fmt)->_semi_colon_flag) { rT260put_character((T260*)oRBC27fmt,'\73'); } /*FI*/} void rT177make(T177 *C,T0* a1,T0* a2){ C->_target=a1; C->_feature_name=a2; } void rT134warning(/*C*/T0* a1,T0* a2){ (/*UT*/(void)(T43*)oRBC27eh); rT43add_position(a1); rT43warning((T43*)oRBC27eh,a2); } T0* rT134to_procedure_or_function(T134 *C){ T0* R=NULL; /*IF*/if (!((C)->_type)) { {T250 *n=((T250*)se_new(250)); rT250make(n,rT134n(),(C)->_arguments,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,(C)->_local_vars,(C)->_routine_body); R=(T0 *)n;}} else { {T251 *n=((T251*)se_new(251)); rT251make(n,rT134n(),(C)->_arguments,(C)->_type,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,(C)->_local_vars,(C)->_routine_body); R=(T0 *)n;}} /*FI*/return R; } void rT134error(/*C*/T0* a1,T0* a2){ (/*UT*/(void)(T43*)oRBC27eh); rT43add_position(a1); rT43error((T43*)oRBC27eh,a2); } T0* rT134to_writable_attribute(T134 *C){ T0* R=NULL; /*IF*/if (!((C)->_type)) { rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms398); } else if (((int)(C)->_arguments)) { rT134error(rT49current_position((T49*)oRBC27eiffel_parser),(T0 *)ms399); } /*FI*/{T255 *n=((T255*)se_new(255)); rT255make(n,rT134n(),(C)->_type); R=(T0 *)n;} return R; } T0* rT134to_deferred_routine(T134 *C){ T0* R=NULL; /*IF*/if (!((C)->_type)) { {T203 *n=((T203*)se_new(203)); rT203make(n,rT134n(),(C)->_arguments,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion); R=(T0 *)n;}} else { {T204 *n=((T204*)se_new(204)); rT204make(n,rT134n(),(C)->_arguments,(C)->_type,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion); R=(T0 *)n;}} /*FI*/return R; } T0* rT134n(/*C*/void){ T0* R=NULL; {T126 *n=((T126*)se_new(126)); rT126make(n,rT127twin((T127*)oRBC134names)); R=(T0 *)n;} return R; } T0*oRBC134names; T0* rT134to_cst_att_integer(T134 *C,T0* a1){ T0* R=NULL; /*IF*/if (((int)(C)->_type)) { /*IF*/if (XrT56is_integer((C)->_type)) { {T153 *n=((T153*)se_new(153)); rT153make(n,rT134n(),(C)->_type,a1); R=(T0 *)n;}} else if (XrT56is_real((C)->_type)) { {T151 *n=((T151*)se_new(151)); rT151make(n,rT134n(),(C)->_type,rT78to_real_constant((T78*)a1)); R=(T0 *)n;}} else if (XrT56is_double((C)->_type)) { {T152 *n=((T152*)se_new(152)); rT152make(n,rT134n(),(C)->_type,rT78to_real_constant((T78*)a1)); R=(T0 *)n;}} else { rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms271); } /*FI*/} else { rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms272); } /*FI*/return R; } T0* rT134to_cst_att_real(T134 *C,T0* a1){ T0* R=NULL; /*IF*/if (((int)(C)->_type)) { /*IF*/if (XrT56is_real((C)->_type)) { {T151 *n=((T151*)se_new(151)); rT151make(n,rT134n(),(C)->_type,a1); R=(T0 *)n;}} else if (XrT56is_double((C)->_type)) { {T152 *n=((T152*)se_new(152)); rT152make(n,rT134n(),(C)->_type,a1); R=(T0 *)n;}} else if (XrT56is_integer((C)->_type)) { rT134warning(((T77*)a1)->_start_position,(T0 *)ms266); {T153 *n=((T153*)se_new(153)); rT153make(n,rT134n(),(C)->_type,rT77to_integer_constant((T77*)a1)); R=(T0 *)n;}} else { rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms268); } /*FI*/} else { rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms269); } /*FI*/return R; } T0* rT134to_cst_att_bit(T134 *C,T0* a1){ T0* R=NULL; /*IF*/if ((((int)(C)->_type))&&(XrT56is_bit((C)->_type))) { {T150 *n=((T150*)se_new(150)); rT150make(n,rT134n(),(C)->_type,a1); R=(T0 *)n;} } else { rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms265); } /*FI*/return R; } T0* rT134to_cst_att_string(T134 *C,T0* a1){ T0* R=NULL; /*IF*/if ((((int)(C)->_type))&&(XrT56is_string((C)->_type))) { {T148 *n=((T148*)se_new(148)); rT148make(n,rT134n(),(C)->_type,a1); R=(T0 *)n;} } else { rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms264); } /*FI*/return R; } T0* rT134to_cst_att_character(T134 *C,T0* a1){ T0* R=NULL; /*IF*/if ((((int)(C)->_type))&&(XrT56is_character((C)->_type))) { {T147 *n=((T147*)se_new(147)); rT147make(n,rT134n(),(C)->_type,a1); R=(T0 *)n;} } else { rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms261); } /*FI*/return R; } T0* rT134to_cst_att_boolean(T134 *C,T0* a1){ T0* R=NULL; /*IF*/if ((((int)(C)->_type))&&(XrT56is_boolean((C)->_type))) { {T146 *n=((T146*)se_new(146)); rT146make(n,rT134n(),(C)->_type,a1); R=(T0 *)n;} } else { rT134error(XrT65start_position(rT127first((T127*)oRBC134names)),(T0 *)ms260); } /*FI*/return R; } T0* rT134to_cst_att_unique(T134 *C){ T0* R=NULL; T0* _sp=NULL; /*IF*/if (!((C)->_type)) { _sp=XrT65start_position(rT127first((T127*)oRBC134names)); rT134error(_sp,(T0 *)ms258); } /*FI*//*IF*/if (!(XrT56is_integer((C)->_type))) { rT134error(XrT56start_position((C)->_type),(T0 *)ms259); } /*FI*/{T142 *n=((T142*)se_new(142)); rT142make(n,rT134n(),(C)->_type); R=(T0 *)n;} return R; } void rT134add_synonym(/*C*/T0* a1){ rT127add_last((T127*)oRBC134names,a1); } void rT134set_require(T134 *C,T0* a1,T0* a2,T0* a3){ /*IF*/if ((((int)a2))||(((int)a3))) { {T135 *n=((T135*)se_new(135)); rT135make(n,a1,a2,a3); C->_require_assertion=(T0 *)n;} } /*FI*/} void rT134set_require_else(T134 *C,T0* a1,T0* a2,T0* a3){ /*IF*/if ((((int)a2))||(((int)a3))) { {T135 *n=((T135*)se_new(135)); rT135make(n,a1,a2,a3); C->_require_assertion=(T0 *)n;} /*(IRF3*/(((T135*)(C)->_require_assertion)->_is_require_else)=(1); /*)*/} /*FI*/} void rT134initialize(T134 *C){ rT127clear((T127*)oRBC134names); C->_arguments=NULL; C->_type=NULL; C->_header_comment=NULL; C->_obsolete_mark=NULL; C->_require_assertion=NULL; C->_local_vars=NULL; C->_routine_body=NULL; } T0* rT134to_once_routine(T134 *C){ T0* R=NULL; /*IF*/if (!((C)->_type)) { {T253 *n=((T253*)se_new(253)); rT253make(n,rT134n(),(C)->_arguments,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,(C)->_local_vars,(C)->_routine_body); R=(T0 *)n;}} else { {T254 *n=((T254*)se_new(254)); rT254make(n,rT134n(),(C)->_arguments,(C)->_type,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,(C)->_local_vars,(C)->_routine_body); R=(T0 *)n;}} /*FI*/return R; } T0* rT134to_external_routine(T134 *C,T0* a1,T0* a2){ T0* R=NULL; /*IF*/if (!((C)->_type)) { {T210 *n=((T210*)se_new(210)); rT210make(n,rT134n(),(C)->_arguments,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,a1,a2); R=(T0 *)n;}} else { {T211 *n=((T211*)se_new(211)); rT211make(n,rT134n(),(C)->_arguments,(C)->_type,(C)->_obsolete_mark,(C)->_header_comment,(C)->_require_assertion,a1,a2); R=(T0 *)n;}} /*FI*/return R; } void rT238pretty_print(T238 *C){ /*IF*/if (((int)(C)->_comment)) { rT57pretty_print((T57*)(C)->_comment); } else { rT260indent((T260*)oRBC27fmt); } /*FI*/XrT66pretty_print((C)->_expression); } void rT238make(T238 *C,T0* a1,T0* a2){ C->_comment=a2; C->_expression=a1; } void rT237pretty_print(T237 *C){ /*IF*/if (((int)(C)->_comment)) { rT57pretty_print((T57*)(C)->_comment); } else { rT260indent((T260*)oRBC27fmt); } /*FI*/rT260put_string((T260*)oRBC27fmt,((T157*)(C)->_tag)->_to_string); rT260put_string((T260*)oRBC27fmt,(T0 *)ms562); XrT66pretty_print((C)->_expression); } void rT237make(T237 *C,T0* a1,T0* a2,T0* a3){ C->_comment=a3; C->_tag=a1; C->_expression=a2; } void rT235pretty_print(T235 *C){ int _i=0; rT260indent((T260*)oRBC27fmt); rT260keyword((T260*)oRBC27fmt,/*(IRF4*/(T0 *)ms548/*)*/); rT260level_incr((T260*)oRBC27fmt); /*IF*/if (((int)(C)->_header_comment)) { rT57pretty_print((T57*)(C)->_header_comment); } else { rT260indent((T260*)oRBC27fmt); } /*FI*//*IF*/if (((int)(C)->_list)) { _i=1; while (!((_i)>(((T156*)(C)->_list)->_upper))) { /*IF*/if (((((T260*)oRBC27fmt)->_zen_mode)&&((_i)==(((T156*)(C)->_list)->_upper)))) { /*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(0); /*)*/} else { /*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(1); /*)*/} /*FI*/rT260indent((T260*)oRBC27fmt); rT62pretty_print((T62*)rT156item((T156*)(C)->_list,_i)); _i=(_i)+(1); } } /*FI*/rT260level_decr((T260*)oRBC27fmt); rT260indent((T260*)oRBC27fmt); } void rT235make(T235 *C,T0* a1,T0* a2,T0* a3){ C->_start_position=a1; C->_header_comment=a2; C->_list=a3; } void rT41put_integer(T41 *C,int a1){ /*(IRF3*/(((T7*)oRBC38tmp_string)->_count)=(0); /*)*/rT2append_in(a1,oRBC38tmp_string); rT41put_string(C,oRBC38tmp_string); } void rT41die_with_code(/*C*/int a1){ exit(a1); } void rT41put_string(T41 *C,T0* a1){ int _i=0; _i=1; while (!((_i)>(((T7*)a1)->_count))) { rT41put_character(C,rT7item((T7*)a1,_i)); _i=(_i)+(1); } } int rT41is_connected(T41 *C){ int R=0; R=((int)(C)->_path); return R; } void rT41disconnect(T41 *C){ int _err=0; _err=fclose((C)->_output_stream); C->_path=NULL; C->_output_stream=stdout; } void rT41connect_to(T41 *C,T0* a1){ C->_mode=(T0 *)ms448; C->_output_stream=rT41fopen(a1,(C)->_mode); /*IF*/{/*AT*/C->_path=a1; } /*FI*/} void rT41append_file(T41 *C,T0* a1){ char _c=0; rT42connect_to((T42*)rT41tmp_file_read(),a1); rT42read_character((T42*)rT41tmp_file_read()); while (!(rT42end_of_input((T42*)rT41tmp_file_read()))) { _c=rT42last_character((T42*)rT41tmp_file_read()); rT41put_character(C,_c); rT42read_character((T42*)rT41tmp_file_read()); } rT42disconnect((T42*)rT41tmp_file_read()); } int ofBC38tmp_file_read=0; T0*oRBC38tmp_file_read; T0* rT41tmp_file_read(/*C*/void){ if (ofBC38tmp_file_read==0){ T0* R=NULL; ofBC38tmp_file_read=1; {T42 *n=((T42*)se_new(42)); /*(IRF3*/((n)->_mode)=((T0 *)ms25); /*)*/R=(T0 *)n;} oRBC38tmp_file_read=R;} return oRBC38tmp_file_read;} void * rT41fopen(/*C*/T0* a1,T0* a2){ void * R=0; void * _pm=0; void * _pf=0; _pf=rT7to_external((T7*)a1); _pm=rT7to_external((T7*)a2); R=(void*)fopen(((char*)_pf),((char*)_pm)); return R; } void rT41put_character(T41 *C,char a1){ char _err=0; _err=fputc(a1,(C)->_output_stream); /*IF*/if ((_err)!=(a1)) { rT37put_string((T37*)oRBC1std_error,(T0 *)ms5); /*(IRF3*/rsp(); rT41die_with_code(1); /*)*/} /*FI*/} void rT41make(T41 *C){ C->_output_stream=stdout; } void rT168bracketed_print(T168 *C){ rT260put_character((T260*)oRBC27fmt,'\50'); rT168pretty_print(C); rT260put_character((T260*)oRBC27fmt,'\51'); } T0* rT168add_comment(T168 *C,T0* a1){ T0* R=NULL; /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) { R=(T0 *)C; } else { {T219 *n=((T219*)se_new(219)); rT219make(n,(T0 *)C,a1); R=(T0 *)n;}} /*FI*/return R; } void rT168print_as_target(T168 *C){ rT168pretty_print(C); rT260put_character((T260*)oRBC27fmt,'\56'); } T0* rT168start_position(T168 *C){ T0* R=NULL; /*IF*/if (((int)(C)->_list)) { R=XrT65start_position(rT126item((T126*)(C)->_list,1)); } /*FI*/return R; } void rT168pretty_print(T168 *C){ int _i=0; rT260put_string((T260*)oRBC27fmt,(T0 *)ms495); rT260level_incr((T260*)oRBC27fmt); /*IF*/if (((int)(C)->_list)) { rT126pretty_print((T126*)(C)->_list); } /*FI*/rT260put_string((T260*)oRBC27fmt,(T0 *)ms496); rT260level_decr((T260*)oRBC27fmt); } void rT168make(T168 *C,T0* a1,T0* a2){ /*IF*/if (((int)a2)) { {T126 *n=((T126*)se_new(126)); rT126make(n,a2); C->_list=(T0 *)n;} } /*FI*/} T0*oRBC67tmp_string; T0* rT67to_prefix_name(T67 *C){ T0* R=NULL; {T64 *n=((T64*)se_new(64)); rT64make(n,rT7twin((T7*)(C)->_to_string),rT67pos((C)->_li,(C)->_co)); R=(T0 *)n;} return R; } void rT67extend(T67 *C,char a1){ rT7extend((T7*)(C)->_to_string,a1); } T0* rT67to_e_void(T67 *C){ T0* R=NULL; {T171 *n=((T171*)se_new(171)); rT171make(n,rT67pos((C)->_li,(C)->_co)); R=(T0 *)n;} return R; } T0* rT67to_e_result(T67 *C){ T0* R=NULL; {T170 *n=((T170*)se_new(170)); rT170make(n,rT67pos((C)->_li,(C)->_co)); R=(T0 *)n;} return R; } T0* rT67to_e_current(T67 *C){ T0* R=NULL; {T87 *n=((T87*)se_new(87)); rT87make(n,rT67pos((C)->_li,(C)->_co),1); R=(T0 *)n;} return R; } int rT67isa_keyword(T67 *C){ int R=0; T0* _kt=NULL; int _i=0; _kt=oRBC67keyword_table; _i=((T34*)_kt)->_upper; while (!(((_i)==(0))||(rT7same_as((T7*)rT34item((T34*)_kt,_i),(C)->_to_string)))) { _i=(_i)-(1); } R=(_i)>(0); return R; } int rT67count(T67 *C){ int R=0; R=((T7*)(C)->_to_string)->_count; return R; } T0* rT67to_decl_name(T67 *C){ T0* R=NULL; {T95 *n=((T95*)se_new(95)); rT95make(n,rT7twin((T7*)(C)->_to_string),rT67pos((C)->_li,(C)->_co)); R=(T0 *)n;} return R; } T0* rT67to_feature_name(T67 *C){ T0* R=NULL; {T65 *n=((T65*)se_new(65)); rT65make(n,rT7twin((T7*)(C)->_to_string),rT67pos((C)->_li,(C)->_co)); R=(T0 *)n;} return R; } T0* rT67start_position(T67 *C){ T0* R=NULL; {T44 *n=((T44*)se_new(44)); rT44make(n,(C)->_li,(C)->_co); R=(T0 *)n;} return R; } T0*oRBC67keyword_table; T0* rT67to_class_name(T67 *C){ T0* R=NULL; {T46 *n=((T46*)se_new(46)); rT46make(n,(C)->_to_string,rT67pos((C)->_li,(C)->_co)); R=(T0 *)n;} return R; } T0* rT67to_key(T67 *C){ T0* R=NULL; R=(C)->_to_string; return R; } T0* rT67pos(/*C*/int a1,int a2){ T0* R=NULL; {T44 *n=((T44*)se_new(44)); rT44make(n,a1,a2); R=(T0 *)n;} return R; } T0* rT67to_argument_name(T67 *C,T0* a1,int a2){ T0* R=NULL; {T86 *n=((T86*)se_new(86)); rT86make(n,rT67pos((C)->_li,(C)->_co),XrT47to_string(rT90name((T90*)a1,a2)),a2); R=(T0 *)n;} return R; } T0* rT67to_tag_name(T67 *C){ T0* R=NULL; {T157 *n=((T157*)se_new(157)); rT157make(n,rT7twin((T7*)(C)->_to_string),rT67pos((C)->_li,(C)->_co)); R=(T0 *)n;} return R; } T0* rT67to_infix_name_use(T67 *C){ T0* R=NULL; {T68 *n=((T68*)se_new(68)); rT68make(n,rT7twin((T7*)(C)->_to_string),rT67pos((C)->_li,(C)->_co)); R=(T0 *)n;} return R; } T0* rT67to_infix_name(T67 *C,T0* a1){ T0* R=NULL; {T68 *n=((T68*)se_new(68)); rT68make(n,rT7twin((T7*)(C)->_to_string),a1); R=(T0 *)n;} return R; } T0* rT67to_local_name(T67 *C,T0* a1,int a2){ T0* R=NULL; {T180 *n=((T180*)se_new(180)); rT180make(n,rT67pos((C)->_li,(C)->_co),XrT47to_string(rT137name((T137*)a1,a2)),rT137type((T137*)a1,a2),a2); R=(T0 *)n;} return R; } void rT67make(T67 *C,int a1,int a2){ C->_li=a1; C->_co=a2; C->_to_string=oRBC67tmp_string; /*(IRF3*/(((T7*)(C)->_to_string)->_count)=(0); /*)*/} T0* rT71add_comment(T71 *C,T0* a1){ T0* R=NULL; /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) { R=(T0 *)C; } else { {T219 *n=((T219*)se_new(219)); rT219make(n,(T0 *)C,a1); R=(T0 *)n;}} /*FI*/return R; } void rT97pretty_print(T97 *C){ rT260put_string((T260*)oRBC27fmt,(C)->_written_mark); } T0* rT97base_class_name(T97 *C){ T0* R=NULL; R=XrT56base_class_name((C)->_run_type); return R; } T0* rT97base_class(T97 *C){ T0* R=NULL; R=rT46base_class((T46*)rT97base_class_name(C)); return R; } void rT97make(T97 *C,T0* a1,T0* a2){ C->_start_position=a1; C->_like_what=a2; {T7 *n=((T7*)se_new(7)); rT7copy(n,(T0 *)ms199); C->_written_mark=(T0 *)n;} rT7append((T7*)(C)->_written_mark,XrT65to_string((C)->_like_what)); } void rT96pretty_print(T96 *C){ rT260put_string((T260*)oRBC27fmt,(C)->_written_mark); } T0* rT96base_class_name(T96 *C){ T0* R=NULL; R=XrT56base_class_name((C)->_run_type); return R; } T0* rT96base_class(T96 *C){ T0* R=NULL; R=rT46base_class((T46*)rT96base_class_name(C)); return R; } void rT96make(T96 *C,T0* a1,T0* a2){ C->_start_position=a1; C->_like_what=a2; {T7 *n=((T7*)se_new(7)); rT7copy(n,(T0 *)ms198); C->_written_mark=(T0 *)n;} rT7append((T7*)(C)->_written_mark,((T86*)(C)->_like_what)->_to_string); } T0* rT88base_class_name(T88 *C){ T0* R=NULL; R=XrT56base_class_name((C)->_run_type); return R; } T0* rT88base_class(T88 *C){ T0* R=NULL; R=rT46base_class((T46*)rT88base_class_name(C)); return R; } void rT88make(T88 *C,T0* a1,T0* a2){ C->_start_position=a1; C->_like_what=a2; if ((int)C->_like_what) switch (((T0 *)C->_like_what)->id) { case 87: break; default: C->_like_what = NULL; };} T0* rT85run_type(T85 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT85start_position(T85 *C){ T0* R=NULL; R=((T46*)(C)->_base_class_name)->_start_position; return R; } T0* rT85base_class(T85 *C){ T0* R=NULL; R=rT46base_class((T46*)(C)->_base_class_name); return R; } void rT85make(T85 *C,T0* a1){ {T46 *n=((T46*)se_new(46)); rT46make(n,(T0 *)ms175,a1); C->_base_class_name=(T0 *)n;} } void rT98pretty_print(T98 *C){ rT260put_string((T260*)oRBC27fmt,(C)->_written_mark); } T0* rT98base_class_name(T98 *C){ T0* R=NULL; R=XrT56base_class_name((C)->_mapped); return R; } T0* rT98base_class(T98 *C){ T0* R=NULL; R=rT46base_class((T46*)rT98base_class_name(C)); return R; } void rT98make(T98 *C,T0* a1,T0* a2){ C->_start_position=a1; C->_mapped=a2; {T7 *n=((T7*)se_new(7)); rT7copy(n,(T0 *)ms201); C->_written_mark=(T0 *)n;} rT7append((T7*)(C)->_written_mark,XrT56written_mark((C)->_mapped)); } T0* rT99run_type(T99 *C){ T0* R=NULL; R=(T0 *)C; return R; } void rT99pretty_print(T99 *C){ rT260put_string((T260*)oRBC27fmt,rT99written_mark(C)); } int rT99nb(T99 *C){ int R=0; R=((T78*)(C)->_n)->_value; return R; } int ofBC100base_class_name=0; T0*oRBC100base_class_name; T0* rT99base_class_name(/*C*/void){ if (ofBC100base_class_name==0){ T0* R=NULL; ofBC100base_class_name=1; {T46 *n=((T46*)se_new(46)); rT46make(n,(T0 *)ms503,NULL); R=(T0 *)n;} oRBC100base_class_name=R;} return oRBC100base_class_name;} T0* rT99written_mark(T99 *C){ T0* R=NULL; {T7 *n=((T7*)se_new(7)); rT7copy(n,(T0 *)ms501); R=(T0 *)n;} rT7append((T7*)R,rT2to_string(rT99nb(C))); return R; } void rT99make(T99 *C,T0* a1,T0* a2){ C->_start_position=a1; C->_n=a2; } T0* rT101run_type(T101 *C){ T0* R=NULL; R=(T0 *)C; return R; } void rT101pretty_print(T101 *C){ rT260put_string((T260*)oRBC27fmt,rT101written_mark(C)); } T0* rT101base_class_name(/*C*/void){ if (ofBC100base_class_name==0){ T0* R=NULL; ofBC100base_class_name=1; {T46 *n=((T46*)se_new(46)); rT46make(n,(T0 *)ms503,NULL); R=(T0 *)n;} oRBC100base_class_name=R;} return oRBC100base_class_name;} T0* rT101written_mark(T101 *C){ T0* R=NULL; {T7 *n=((T7*)se_new(7)); rT7copy(n,(T0 *)ms502); R=(T0 *)n;} rT7append((T7*)R,XrT65to_string((C)->_n)); return R; } void rT101make(T101 *C,T0* a1,T0* a2){ C->_start_position=a1; C->_n=a2; C->_nb=-(1); } int rT102is_boolean(T102 *C){ int R=0; R=XrT56is_boolean((C)->_run_type); return R; } T0* rT102start_position(T102 *C){ T0* R=NULL; R=((T46*)(C)->_formal_name)->_start_position; return R; } void rT102pretty_print(T102 *C){ rT260put_string((T260*)oRBC27fmt,rT102written_mark(C)); } T0* rT102base_class_name(T102 *C){ T0* R=NULL; R=XrT56base_class_name((C)->_run_type); return R; } T0* rT102base_class(T102 *C){ T0* R=NULL; R=rT46base_class((T46*)rT102base_class_name(C)); return R; } T0* rT102written_mark(T102 *C){ T0* R=NULL; R=((T46*)(C)->_formal_name)->_to_string; return R; } void rT102make(T102 *C,T0* a1,int a2){ C->_rank=a2; C->_formal_name=a1; } T0* rT103start_position(T103 *C){ T0* R=NULL; R=((T46*)(C)->_base_class_name)->_start_position; return R; } void rT103pretty_print(T103 *C){ rT260put_string((T260*)oRBC27fmt,(C)->_written_mark); } T0* rT103base_class(T103 *C){ T0* R=NULL; R=rT46base_class((T46*)(C)->_base_class_name); return R; } void rT103make(T103 *C,T0* a1,T0* a2){ {T46 *n=((T46*)se_new(46)); rT46make(n,(T0 *)ms180,a1); C->_base_class_name=(T0 *)n;} C->_generic_list=ma(104,0,1,a2); /*IF*/if (((T0 *)XrT56run_type(a2))==((T0 *)a2)) { C->_run_type=(T0 *)C; } /*FI*/{T7 *n=((T7*)se_new(7)); rT7copy(n,(T0 *)ms204); C->_written_mark=(T0 *)n;} rT7append((T7*)(C)->_written_mark,XrT56written_mark(a2)); rT7extend((T7*)(C)->_written_mark,'\135'); } T0* rT105run_type(T105 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT105start_position(T105 *C){ T0* R=NULL; R=((T46*)(C)->_base_class_name)->_start_position; return R; } T0* rT105base_class(T105 *C){ T0* R=NULL; R=rT46base_class((T46*)(C)->_base_class_name); return R; } void rT105make(T105 *C,T0* a1){ {T46 *n=((T46*)se_new(46)); rT46make(n,(T0 *)ms182,a1); C->_base_class_name=(T0 *)n;} } T0* rT107run_type(T107 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT107start_position(T107 *C){ T0* R=NULL; R=((T46*)(C)->_base_class_name)->_start_position; return R; } T0* rT107base_class(T107 *C){ T0* R=NULL; R=rT46base_class((T46*)(C)->_base_class_name); return R; } void rT107make(T107 *C,T0* a1){ {T46 *n=((T46*)se_new(46)); rT46make(n,(T0 *)ms184,a1); C->_base_class_name=(T0 *)n;} } T0* rT108run_type(T108 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT108start_position(T108 *C){ T0* R=NULL; R=((T46*)(C)->_base_class_name)->_start_position; return R; } T0* rT108base_class(T108 *C){ T0* R=NULL; R=rT46base_class((T46*)(C)->_base_class_name); return R; } void rT108make(T108 *C,T0* a1){ {T46 *n=((T46*)se_new(46)); rT46make(n,(T0 *)ms191,a1); C->_base_class_name=(T0 *)n;} } T0* rT109run_type(T109 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT109start_position(T109 *C){ T0* R=NULL; R=((T46*)(C)->_base_class_name)->_start_position; return R; } T0* rT109base_class(T109 *C){ T0* R=NULL; R=rT46base_class((T46*)(C)->_base_class_name); return R; } void rT109make(T109 *C,T0* a1){ {T46 *n=((T46*)se_new(46)); rT46make(n,(T0 *)ms187,a1); C->_base_class_name=(T0 *)n;} }
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.