This is compile_to_c9.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 "compile_to_c.h" T0* rT107smallest_ancestor(T107 *C,T0* a1){ T0* R=NULL; T0* _rto=NULL; _rto=XrT58run_type(a1); /*IF*/if (XrT58is_boolean(_rto)) { R=(T0 *)C; } else { rT107fatal_error((T0 *)ms1487); } /*FI*/return R; } T0* rT107base_class(T107 *C){ T0* R=NULL; R=rT48base_class((T48*)(C)->_base_class_name); return R; } int rT107is_a_in(T107 *C,T0* a1,T0* a2){ int R=0; T0* _ct=NULL; T0* _t2=NULL; T0* _t1=NULL; /*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms184/*)*/,XrT58written_mark(a1))) { R=1; } else { _ct=((T261*)a2)->_current_type; _t1=rT107to_runnable(C,_ct); _t2=XrT58to_runnable(a1,_ct); /*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) { R=1; } else { R=XrT58is_a(_t1,_t2); } /*FI*/} /*FI*/return R; } int rT107is_a(T107 *C,T0* a1){ int R=0; /*IF*/if (XrT58is_boolean(a1)) { R=1; } else { R=rT50is_subclass_of((T50*)rT107base_class(C),XrT58base_class(a1)); /*IF*/if (R) { rT107used_as_reference(); } /*FI*/} /*FI*//*IF*/if (!(R)) { (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1503); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type(a1,(T0 *)ms36); } /*FI*/return R; } int rT107has_creation(T107 *C,T0* a1){ int R=0; (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(XrT67start_position(a1)); rT107error(rT107start_position(C),(T0 *)ms1510); return R; } int ofBC107check_type=0; void rT107check_type(T107 *C){ if (ofBC107check_type==0){ T0* _rc=NULL; T0* _bc=NULL; ofBC107check_type=1; _bc=rT107base_class(C); /*IF*/if (!(_bc)) { rT107error(rT107start_position(C),(T0 *)ms1458); } /*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) { _rc=rT107run_class(C); } /*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (!(((T50*)_bc)->_is_expanded)) { rT107error(rT107start_position(C),(T0 *)ms1459); } /*FI*/} /*FI*/}} void rT107make(T107 *C,T0* a1){ {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms184,a1); C->_base_class_name=(T0 *)n;} } void rT107c_type_in(/*C*/T0* a1){ rT7append((T7*)a1,(T0 *)ms1513); } void rT107to_expanded(T107 *C){ rT43to_expanded((T43*)oRBC27cpp,rT107type_boolean_ref(),(T0 *)C); } void rT107load_ref(/*C*/T0* a1){ T0* _rf=NULL; T0* _rc=NULL; T0* _cn=NULL; {T48 *n=((T48*)se_new(48)); rT48make(n,a1,NULL); _cn=(T0 *)n;} _rc=rT50run_class((T50*)rT48base_class((T48*)_cn)); rT261set_at_run_time((T261*)_rc); _rf=rT261get_feature_with((T261*)_rc,(T0 *)ms1477); } int ofBC27type_character_ref=0; T0*oRBC27type_character_ref; T0* rT109type_character_ref(/*C*/void){ if (ofBC27type_character_ref==0){ T0* R=NULL; T0* _character_ref=NULL; ofBC27type_character_ref=1; {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms187,NULL); _character_ref=(T0 *)n;} {T116 *n=((T116*)se_new(116)); /*(IRF3*/((n)->_base_class_name)=(_character_ref); /*)*/R=(T0 *)n;} oRBC27type_character_ref=R;} return oRBC27type_character_ref;} void rT109fatal_error(/*C*/T0* a1){ (/*UT*/(void)(T45*)oRBC27eh); rT45fatal_error(a1); } T0* rT109run_type(T109 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT109to_runnable(T109 *C,T0* a1){ T0* R=NULL; R=(T0 *)C; rT109check_type(C); return R; } void rT109error(/*C*/T0* a1,T0* a2){ (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(a1); rT45error((T45*)oRBC27eh,a2); } T0* rT109start_position(T109 *C){ T0* R=NULL; R=((T48*)(C)->_base_class_name)->_start_position; return R; } int ofBC109used_as_reference=0; void rT109used_as_reference(/*C*/void){ if (ofBC109used_as_reference==0){ ofBC109used_as_reference=1; rT109load_ref((T0 *)ms187); }} T0* rT109generic_list(T109 *C){ T0* R=NULL; (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1452); /*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh); rT45do_print((T0 *)ms43); rT45die_with_code(1); /*)*/return R; } T0* rT109look_up_for(T109 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _bc=NULL; _bc=rT109base_class(C); /*IF*/if (((int)_bc)) { R=rT50look_up_for((T50*)_bc,a1,a2); } else { (/*UT*/(void)(T45*)oRBC27eh); rT45append((T0 *)ms477); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms36); rT45print_as_error((T45*)oRBC27eh); } /*FI*/return R; } void rT109mapping_c_in(/*C*/T0* a1){ rT7append((T7*)a1,(T0 *)ms1480); } T0* rT109run_class(T109 *C){ T0* R=NULL; R=((/*UT*/(void)(T52*)oRBC27small_eiffel), rT52run_class(rT109run_type(C))); return R; } void rT109to_reference(T109 *C){ rT43to_reference((T43*)oRBC27cpp,(T0 *)C,rT109type_character_ref()); } T0* rT109smallest_ancestor(T109 *C,T0* a1){ T0* R=NULL; T0* _rto=NULL; _rto=XrT58run_type(a1); /*IF*/if (XrT58is_character(_rto)) { R=(T0 *)C; } else if (XrT58is_reference(_rto)) { R=rT116smallest_ancestor((T116*)rT109type_character_ref(),a1); } else { rT109fatal_error((T0 *)ms1491); } /*FI*/return R; } T0* rT109base_class(T109 *C){ T0* R=NULL; R=rT48base_class((T48*)(C)->_base_class_name); return R; } int rT109is_a_in(T109 *C,T0* a1,T0* a2){ int R=0; T0* _ct=NULL; T0* _t2=NULL; T0* _t1=NULL; /*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms186/*)*/,XrT58written_mark(a1))) { R=1; } else { _ct=((T261*)a2)->_current_type; _t1=rT109to_runnable(C,_ct); _t2=XrT58to_runnable(a1,_ct); /*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) { R=1; } else { R=XrT58is_a(_t1,_t2); } /*FI*/} /*FI*/return R; } int rT109is_a(T109 *C,T0* a1){ int R=0; /*IF*/if (XrT58is_character(a1)) { R=1; } else { R=rT50is_subclass_of((T50*)rT109base_class(C),XrT58base_class(a1)); /*IF*/if (R) { rT109used_as_reference(); } /*FI*/} /*FI*//*IF*/if (!(R)) { (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1503); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type(a1,(T0 *)ms36); } /*FI*/return R; } int rT109has_creation(T109 *C,T0* a1){ int R=0; (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(XrT67start_position(a1)); rT109error(rT109start_position(C),(T0 *)ms1510); return R; } int ofBC109check_type=0; void rT109check_type(T109 *C){ if (ofBC109check_type==0){ T0* _rc=NULL; T0* _bc=NULL; ofBC109check_type=1; _bc=rT109base_class(C); /*IF*/if (!(_bc)) { rT109error(rT109start_position(C),(T0 *)ms1460); } /*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) { _rc=rT109run_class(C); } /*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (!(((T50*)_bc)->_is_expanded)) { rT109error(rT109start_position(C),(T0 *)ms1461); } /*FI*/} /*FI*/}} void rT109make(T109 *C,T0* a1){ {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms186,a1); C->_base_class_name=(T0 *)n;} } void rT109c_type_in(/*C*/T0* a1){ rT7append((T7*)a1,(T0 *)ms1514); } void rT109to_expanded(T109 *C){ rT43to_expanded((T43*)oRBC27cpp,rT109type_character_ref(),(T0 *)C); } void rT109load_ref(/*C*/T0* a1){ T0* _rf=NULL; T0* _rc=NULL; T0* _cn=NULL; {T48 *n=((T48*)se_new(48)); rT48make(n,a1,NULL); _cn=(T0 *)n;} _rc=rT50run_class((T50*)rT48base_class((T48*)_cn)); rT261set_at_run_time((T261*)_rc); _rf=rT261get_feature_with((T261*)_rc,(T0 *)ms1477); } int ofBC27type_double_ref=0; T0*oRBC27type_double_ref; T0* rT110type_double_ref(/*C*/void){ if (ofBC27type_double_ref==0){ T0* R=NULL; T0* _double_ref=NULL; ofBC27type_double_ref=1; {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms194,NULL); _double_ref=(T0 *)n;} {T116 *n=((T116*)se_new(116)); /*(IRF3*/((n)->_base_class_name)=(_double_ref); /*)*/R=(T0 *)n;} oRBC27type_double_ref=R;} return oRBC27type_double_ref;} void rT110fatal_error(/*C*/T0* a1){ (/*UT*/(void)(T45*)oRBC27eh); rT45fatal_error(a1); } T0* rT110run_type(T110 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT110to_runnable(T110 *C,T0* a1){ T0* R=NULL; R=(T0 *)C; rT110check_type(C); return R; } void rT110error(/*C*/T0* a1,T0* a2){ (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(a1); rT45error((T45*)oRBC27eh,a2); } T0* rT110start_position(T110 *C){ T0* R=NULL; R=((T48*)(C)->_base_class_name)->_start_position; return R; } int ofBC110used_as_reference=0; void rT110used_as_reference(/*C*/void){ if (ofBC110used_as_reference==0){ ofBC110used_as_reference=1; rT110load_ref((T0 *)ms194); }} T0* rT110generic_list(T110 *C){ T0* R=NULL; (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1452); /*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh); rT45do_print((T0 *)ms43); rT45die_with_code(1); /*)*/return R; } T0* rT110look_up_for(T110 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _bc=NULL; _bc=rT110base_class(C); /*IF*/if (((int)_bc)) { R=rT50look_up_for((T50*)_bc,a1,a2); } else { (/*UT*/(void)(T45*)oRBC27eh); rT45append((T0 *)ms477); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms36); rT45print_as_error((T45*)oRBC27eh); } /*FI*/return R; } void rT110mapping_c_in(/*C*/T0* a1){ rT7append((T7*)a1,(T0 *)ms1481); } T0* rT110run_class(T110 *C){ T0* R=NULL; R=((/*UT*/(void)(T52*)oRBC27small_eiffel), rT52run_class(rT110run_type(C))); return R; } void rT110to_reference(T110 *C){ rT43to_reference((T43*)oRBC27cpp,(T0 *)C,rT110type_double_ref()); } T0* rT110smallest_ancestor(T110 *C,T0* a1){ T0* R=NULL; T0* _rto=NULL; _rto=XrT58run_type(a1); /*IF*/if (XrT58is_integer(_rto)) { R=(T0 *)C; } else if (XrT58is_real(_rto)) { R=(T0 *)C; } else if (XrT58is_double(_rto)) { R=(T0 *)C; } else if (XrT58is_reference(_rto)) { R=rT116smallest_ancestor((T116*)rT110type_double_ref(),a1); } else { rT110fatal_error((T0 *)ms1492); } /*FI*/return R; } T0* rT110base_class(T110 *C){ T0* R=NULL; R=rT48base_class((T48*)(C)->_base_class_name); return R; } int rT110is_a_in(T110 *C,T0* a1,T0* a2){ int R=0; T0* _ct=NULL; T0* _t2=NULL; T0* _t1=NULL; /*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms193/*)*/,XrT58written_mark(a1))) { R=1; } else { _ct=((T261*)a2)->_current_type; _t1=rT110to_runnable(C,_ct); _t2=XrT58to_runnable(a1,_ct); /*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) { R=1; } else { R=XrT58is_a(_t1,_t2); } /*FI*/} /*FI*/return R; } int rT110is_a(T110 *C,T0* a1){ int R=0; /*IF*/if (XrT58is_double(a1)) { R=1; } else { R=rT50is_subclass_of((T50*)rT110base_class(C),XrT58base_class(a1)); /*IF*/if (R) { rT110used_as_reference(); } /*FI*/} /*FI*//*IF*/if (!(R)) { (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1503); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type(a1,(T0 *)ms36); } /*FI*/return R; } int rT110has_creation(T110 *C,T0* a1){ int R=0; (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(XrT67start_position(a1)); rT110error(rT110start_position(C),(T0 *)ms1510); return R; } int ofBC110check_type=0; void rT110check_type(T110 *C){ if (ofBC110check_type==0){ T0* _rc=NULL; T0* _bc=NULL; ofBC110check_type=1; _bc=rT110base_class(C); /*IF*/if (!(_bc)) { rT110error(rT110start_position(C),(T0 *)ms1462); } /*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) { _rc=rT110run_class(C); } /*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (!(((T50*)_bc)->_is_expanded)) { rT110error(rT110start_position(C),(T0 *)ms1463); } /*FI*/} /*FI*/}} void rT110make(T110 *C,T0* a1){ {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms193,a1); C->_base_class_name=(T0 *)n;} } void rT110c_type_in(/*C*/T0* a1){ rT7append((T7*)a1,(T0 *)ms1515); } void rT110to_expanded(T110 *C){ rT43to_expanded((T43*)oRBC27cpp,rT110type_double_ref(),(T0 *)C); } void rT110load_ref(/*C*/T0* a1){ T0* _rf=NULL; T0* _rc=NULL; T0* _cn=NULL; {T48 *n=((T48*)se_new(48)); rT48make(n,a1,NULL); _cn=(T0 *)n;} _rc=rT50run_class((T50*)rT48base_class((T48*)_cn)); rT261set_at_run_time((T261*)_rc); _rf=rT261get_feature_with((T261*)_rc,(T0 *)ms1477); } int ofBC27type_integer_ref=0; T0*oRBC27type_integer_ref; T0* rT111type_integer_ref(/*C*/void){ if (ofBC27type_integer_ref==0){ T0* R=NULL; T0* _integer_ref=NULL; ofBC27type_integer_ref=1; {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms190,NULL); _integer_ref=(T0 *)n;} {T116 *n=((T116*)se_new(116)); /*(IRF3*/((n)->_base_class_name)=(_integer_ref); /*)*/R=(T0 *)n;} oRBC27type_integer_ref=R;} return oRBC27type_integer_ref;} void rT111fatal_error(/*C*/T0* a1){ (/*UT*/(void)(T45*)oRBC27eh); rT45fatal_error(a1); } T0* rT111run_type(T111 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT111to_runnable(T111 *C,T0* a1){ T0* R=NULL; R=(T0 *)C; rT111check_type(C); return R; } void rT111error(/*C*/T0* a1,T0* a2){ (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(a1); rT45error((T45*)oRBC27eh,a2); } T0* rT111start_position(T111 *C){ T0* R=NULL; R=((T48*)(C)->_base_class_name)->_start_position; return R; } int ofBC111used_as_reference=0; void rT111used_as_reference(/*C*/void){ if (ofBC111used_as_reference==0){ ofBC111used_as_reference=1; rT111load_ref((T0 *)ms190); }} T0* rT111generic_list(T111 *C){ T0* R=NULL; (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1452); /*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh); rT45do_print((T0 *)ms43); rT45die_with_code(1); /*)*/return R; } T0* rT111look_up_for(T111 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _bc=NULL; _bc=rT111base_class(C); /*IF*/if (((int)_bc)) { R=rT50look_up_for((T50*)_bc,a1,a2); } else { (/*UT*/(void)(T45*)oRBC27eh); rT45append((T0 *)ms477); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms36); rT45print_as_error((T45*)oRBC27eh); } /*FI*/return R; } void rT111mapping_c_in(/*C*/T0* a1){ rT7append((T7*)a1,(T0 *)ms1482); } T0* rT111run_class(T111 *C){ T0* R=NULL; R=((/*UT*/(void)(T52*)oRBC27small_eiffel), rT52run_class(rT111run_type(C))); return R; } void rT111to_reference(T111 *C){ rT43to_reference((T43*)oRBC27cpp,(T0 *)C,rT111type_integer_ref()); } T0* rT111smallest_ancestor(T111 *C,T0* a1){ T0* R=NULL; T0* _rto=NULL; _rto=XrT58run_type(a1); /*IF*/if (XrT58is_integer(_rto)) { R=(T0 *)C; } else if (XrT58is_real(_rto)) { R=a1; } else if (XrT58is_double(_rto)) { R=a1; } else if (XrT58is_reference(_rto)) { R=rT116smallest_ancestor((T116*)rT111type_integer_ref(),a1); } else { rT111fatal_error((T0 *)ms1493); } /*FI*/return R; } T0* rT111base_class(T111 *C){ T0* R=NULL; R=rT48base_class((T48*)(C)->_base_class_name); return R; } int rT111is_a_in(T111 *C,T0* a1,T0* a2){ int R=0; T0* _ct=NULL; T0* _t2=NULL; T0* _t1=NULL; /*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms189/*)*/,XrT58written_mark(a1))) { R=1; } else { _ct=((T261*)a2)->_current_type; _t1=rT111to_runnable(C,_ct); _t2=XrT58to_runnable(a1,_ct); /*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) { R=1; } else { R=XrT58is_a(_t1,_t2); } /*FI*/} /*FI*/return R; } int rT111is_a(T111 *C,T0* a1){ int R=0; /*IF*/if (((XrT58is_integer(a1))||(XrT58is_double(a1)))||(XrT58is_real(a1))) { R=1; } else { R=rT50is_subclass_of((T50*)rT111base_class(C),XrT58base_class(a1)); /*IF*/if (R) { rT111used_as_reference(); } /*FI*/} /*FI*//*IF*/if (!(R)) { (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1503); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type(a1,(T0 *)ms36); } /*FI*/return R; } int rT111has_creation(T111 *C,T0* a1){ int R=0; (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(XrT67start_position(a1)); rT111error(rT111start_position(C),(T0 *)ms1510); return R; } int ofBC111check_type=0; void rT111check_type(T111 *C){ if (ofBC111check_type==0){ T0* _rc=NULL; T0* _bc=NULL; ofBC111check_type=1; _bc=rT111base_class(C); /*IF*/if (!(_bc)) { rT111error(rT111start_position(C),(T0 *)ms1464); } /*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) { _rc=rT111run_class(C); } /*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (!(((T50*)_bc)->_is_expanded)) { rT111error(rT111start_position(C),(T0 *)ms1465); } /*FI*/} /*FI*/}} void rT111make(T111 *C,T0* a1){ {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms189,a1); C->_base_class_name=(T0 *)n;} } void rT111c_type_in(/*C*/T0* a1){ rT7append((T7*)a1,(T0 *)ms1516); } void rT111to_expanded(T111 *C){ rT43to_expanded((T43*)oRBC27cpp,rT111type_integer_ref(),(T0 *)C); } void rT111load_ref(/*C*/T0* a1){ T0* _rf=NULL; T0* _rc=NULL; T0* _cn=NULL; {T48 *n=((T48*)se_new(48)); rT48make(n,a1,NULL); _cn=(T0 *)n;} _rc=rT50run_class((T50*)rT48base_class((T48*)_cn)); rT261set_at_run_time((T261*)_rc); _rf=rT261get_feature_with((T261*)_rc,(T0 *)ms1477); } void rT112fatal_error(/*C*/T0* a1){ (/*UT*/(void)(T45*)oRBC27eh); rT45fatal_error(a1); } T0* rT112run_type(T112 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT112to_runnable(T112 *C,T0* a1){ T0* R=NULL; R=(T0 *)C; return R; } void rT112error(/*C*/T0* a1,T0* a2){ (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(a1); rT45error((T45*)oRBC27eh,a2); } void rT112cast_to_ref(T112 *C){ XrT58cast_to_ref(rT112run_type(C)); } int rT112id(/*C*/void){ int R=0; rT112fatal_error((T0 *)ms1476); return R; } T0* rT112start_position(T112 *C){ T0* R=NULL; R=((T48*)(C)->_base_class_name)->_start_position; return R; } T0* rT112generic_list(T112 *C){ T0* R=NULL; (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1452); /*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh); rT45do_print((T0 *)ms43); rT45die_with_code(1); /*)*/return R; } T0* rT112look_up_for(T112 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _bc=NULL; _bc=/*(IRF4*/NULL/*)*/; /*IF*/if (((int)_bc)) { R=rT50look_up_for((T50*)_bc,a1,a2); } else { (/*UT*/(void)(T45*)oRBC27eh); rT45append((T0 *)ms477); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms36); rT45print_as_error((T45*)oRBC27eh); } /*FI*/return R; } T0* rT112run_class(T112 *C){ T0* R=NULL; R=((/*UT*/(void)(T52*)oRBC27small_eiffel), rT52run_class(rT112run_type(C))); return R; } void rT112mapping_c_in(/*C*/T0* a1){ rT7extend((T7*)a1,'T'); rT2append_in(rT112id(),a1); } T0* rT112smallest_ancestor(/*C*/T0* a1){ T0* R=NULL; R=a1; return R; } int rT112is_a_in(T112 *C,T0* a1,T0* a2){ int R=0; T0* _ct=NULL; T0* _t2=NULL; T0* _t1=NULL; /*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms179/*)*/,XrT58written_mark(a1))) { R=1; } else { _ct=((T261*)a2)->_current_type; _t1=rT112to_runnable(C,_ct); _t2=XrT58to_runnable(a1,_ct); /*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) { R=1; } else { R=XrT58is_a(_t1,_t2); } /*FI*/} /*FI*/return R; } int rT112is_a(/*C*/T0* a1){ int R=0; R=1; return R; } int rT112has_creation(T112 *C,T0* a1){ int R=0; (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(XrT67start_position(a1)); rT112error(rT112start_position(C),(T0 *)ms1511); return R; } void rT112make(T112 *C,T0* a1){ {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms179,a1); C->_base_class_name=(T0 *)n;} } void rT112c_type_in(/*C*/T0* a1){ rT7append((T7*)a1,(T0 *)ms769); } int ofBC113used_as_reference=0; void rT113used_as_reference(/*C*/void){ if (ofBC113used_as_reference==0){ ofBC113used_as_reference=1; rT113load_ref((T0 *)ms181); }} T0* rT113generic_list(T113 *C){ T0* R=NULL; (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1452); /*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh); rT45do_print((T0 *)ms43); rT45die_with_code(1); /*)*/return R; } T0* rT113look_up_for(T113 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _bc=NULL; _bc=rT113base_class(C); /*IF*/if (((int)_bc)) { R=rT50look_up_for((T50*)_bc,a1,a2); } else { (/*UT*/(void)(T45*)oRBC27eh); rT45append((T0 *)ms477); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms36); rT45print_as_error((T45*)oRBC27eh); } /*FI*/return R; } T0* rT113run_class(T113 *C){ T0* R=NULL; R=((/*UT*/(void)(T52*)oRBC27small_eiffel), rT52run_class(rT113run_type(C))); return R; } void rT113mapping_c_in(/*C*/T0* a1){ rT7append((T7*)a1,(T0 *)ms1483); } T0* rT113smallest_ancestor(T113 *C,T0* a1){ T0* R=NULL; R=(T0 *)C; return R; } void rT113to_reference(T113 *C){ rT43to_reference((T43*)oRBC27cpp,(T0 *)C,rT113type_pointer_ref()); } int rT113is_a(T113 *C,T0* a1){ int R=0; /*IF*/if (XrT58is_pointer(a1)) { R=1; } else { R=rT50is_subclass_of((T50*)rT113base_class(C),XrT58base_class(a1)); /*IF*/if (R) { rT113used_as_reference(); } /*FI*/} /*FI*//*IF*/if (!(R)) { (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1507); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type(a1,(T0 *)ms36); } /*FI*/return R; } void rT113make(T113 *C,T0* a1){ {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms180,a1); C->_base_class_name=(T0 *)n;} } void rT113to_expanded(T113 *C){ rT43to_expanded((T43*)oRBC27cpp,rT113type_pointer_ref(),(T0 *)C); } void rT113c_type_in(T113 *C,T0* a1){ rT7append((T7*)a1,(C)->_c_type); } int ofBC27type_pointer_ref=0; T0*oRBC27type_pointer_ref; T0* rT113type_pointer_ref(/*C*/void){ if (ofBC27type_pointer_ref==0){ T0* R=NULL; T0* _pointer_ref=NULL; ofBC27type_pointer_ref=1; {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms181,NULL); _pointer_ref=(T0 *)n;} {T116 *n=((T116*)se_new(116)); /*(IRF3*/((n)->_base_class_name)=(_pointer_ref); /*)*/R=(T0 *)n;} oRBC27type_pointer_ref=R;} return oRBC27type_pointer_ref;} T0* rT113run_type(T113 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT113to_runnable(T113 *C,T0* a1){ T0* R=NULL; T0* _bcw=NULL; rT113check_type(C); /*IF*/if (!((C)->_c_type)) { R=(T0 *)C; _bcw=((T48*)((T46*)rT113start_position(C))->_base_class_name)->_to_string; /*IF*/if (((((T0 *)_bcw)==((T0 *)(T0 *)ms182))||(((T0 *)_bcw)==((T0 *)(T0 *)ms188)))&&(XrT58is_generic(a1))) { {T7 *n=((T7*)se_new(7)); rT7make(n,8); C->_c_type=(T0 *)n;} XrT58c_type_in(rT106item((T106*)XrT58generic_list(XrT58run_type(a1)),1),(C)->_c_type); rT7extend((T7*)(C)->_c_type,'\52'); } else if (((T0 *)_bcw)==((T0 *)(T0 *)ms183)) { C->_c_type=(T0 *)ms1468; } else { C->_c_type=(T0 *)ms1469; } /*FI*/} else { {T113 *n=((T113*)se_new(113)); rT113make(n,rT113start_position(C)); R=(T0 *)n;} R=rT113to_runnable((T113*)R,a1); } /*FI*/return R; } void rT113error(/*C*/T0* a1,T0* a2){ (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(a1); rT45error((T45*)oRBC27eh,a2); } T0* rT113start_position(T113 *C){ T0* R=NULL; R=((T48*)(C)->_base_class_name)->_start_position; return R; } T0* rT113base_class(T113 *C){ T0* R=NULL; R=rT48base_class((T48*)(C)->_base_class_name); return R; } int rT113is_a_in(T113 *C,T0* a1,T0* a2){ int R=0; T0* _ct=NULL; T0* _t2=NULL; T0* _t1=NULL; /*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms180/*)*/,XrT58written_mark(a1))) { R=1; } else { _ct=((T261*)a2)->_current_type; _t1=rT113to_runnable(C,_ct); _t2=XrT58to_runnable(a1,_ct); /*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) { R=1; } else { R=XrT58is_a(_t1,_t2); } /*FI*/} /*FI*/return R; } int ofBC113check_type=0; void rT113check_type(T113 *C){ if (ofBC113check_type==0){ T0* _rc=NULL; T0* _bc=NULL; ofBC113check_type=1; _bc=rT113base_class(C); /*IF*/if (!(_bc)) { rT113error(rT113start_position(C),(T0 *)ms1466); } /*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) { _rc=rT113run_class(C); } /*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (!(((T50*)_bc)->_is_expanded)) { rT113error(rT113start_position(C),(T0 *)ms1467); } /*FI*/} /*FI*/}} int rT113has_creation(T113 *C,T0* a1){ int R=0; (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(XrT67start_position(a1)); rT113error(rT113start_position(C),(T0 *)ms1510); return R; } void rT113load_ref(/*C*/T0* a1){ T0* _rf=NULL; T0* _rc=NULL; T0* _cn=NULL; {T48 *n=((T48*)se_new(48)); rT48make(n,a1,NULL); _cn=(T0 *)n;} _rc=rT50run_class((T50*)rT48base_class((T48*)_cn)); rT261set_at_run_time((T261*)_rc); _rf=rT261get_feature_with((T261*)_rc,(T0 *)ms1477); } int ofBC27type_real_ref=0; T0*oRBC27type_real_ref; T0* rT114type_real_ref(/*C*/void){ if (ofBC27type_real_ref==0){ T0* R=NULL; T0* _real_ref=NULL; ofBC27type_real_ref=1; {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms192,NULL); _real_ref=(T0 *)n;} {T116 *n=((T116*)se_new(116)); /*(IRF3*/((n)->_base_class_name)=(_real_ref); /*)*/R=(T0 *)n;} oRBC27type_real_ref=R;} return oRBC27type_real_ref;} void rT114fatal_error(/*C*/T0* a1){ (/*UT*/(void)(T45*)oRBC27eh); rT45fatal_error(a1); } T0* rT114run_type(T114 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT114to_runnable(T114 *C,T0* a1){ T0* R=NULL; R=(T0 *)C; rT114check_type(C); return R; } void rT114error(/*C*/T0* a1,T0* a2){ (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(a1); rT45error((T45*)oRBC27eh,a2); } T0* rT114start_position(T114 *C){ T0* R=NULL; R=((T48*)(C)->_base_class_name)->_start_position; return R; } int ofBC114used_as_reference=0; void rT114used_as_reference(/*C*/void){ if (ofBC114used_as_reference==0){ ofBC114used_as_reference=1; rT114load_ref((T0 *)ms192); }} T0* rT114generic_list(T114 *C){ T0* R=NULL; (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1452); /*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh); rT45do_print((T0 *)ms43); rT45die_with_code(1); /*)*/return R; } T0* rT114look_up_for(T114 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _bc=NULL; _bc=rT114base_class(C); /*IF*/if (((int)_bc)) { R=rT50look_up_for((T50*)_bc,a1,a2); } else { (/*UT*/(void)(T45*)oRBC27eh); rT45append((T0 *)ms477); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms36); rT45print_as_error((T45*)oRBC27eh); } /*FI*/return R; } void rT114mapping_c_in(/*C*/T0* a1){ rT7append((T7*)a1,(T0 *)ms1484); } T0* rT114run_class(T114 *C){ T0* R=NULL; R=((/*UT*/(void)(T52*)oRBC27small_eiffel), rT52run_class(rT114run_type(C))); return R; } void rT114to_reference(T114 *C){ rT43to_reference((T43*)oRBC27cpp,(T0 *)C,rT114type_real_ref()); } T0* rT114smallest_ancestor(T114 *C,T0* a1){ T0* R=NULL; T0* _rto=NULL; _rto=XrT58run_type(a1); /*IF*/if (XrT58is_integer(_rto)) { R=(T0 *)C; } else if (XrT58is_real(_rto)) { R=(T0 *)C; } else if (XrT58is_double(_rto)) { R=a1; } else if (XrT58is_reference(_rto)) { R=rT116smallest_ancestor((T116*)rT114type_real_ref(),a1); } else { rT114fatal_error((T0 *)ms1494); } /*FI*/return R; } T0* rT114base_class(T114 *C){ T0* R=NULL; R=rT48base_class((T48*)(C)->_base_class_name); return R; } int rT114is_a_in(T114 *C,T0* a1,T0* a2){ int R=0; T0* _ct=NULL; T0* _t2=NULL; T0* _t1=NULL; /*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms191/*)*/,XrT58written_mark(a1))) { R=1; } else { _ct=((T261*)a2)->_current_type; _t1=rT114to_runnable(C,_ct); _t2=XrT58to_runnable(a1,_ct); /*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) { R=1; } else { R=XrT58is_a(_t1,_t2); } /*FI*/} /*FI*/return R; } int rT114is_a(T114 *C,T0* a1){ int R=0; /*IF*/if ((XrT58is_real(a1))||(XrT58is_double(a1))) { R=1; } else { R=rT50is_subclass_of((T50*)rT114base_class(C),XrT58base_class(a1)); /*IF*/if (R) { rT114used_as_reference(); } /*FI*/} /*FI*//*IF*/if (!(R)) { (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1503); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type(a1,(T0 *)ms36); } /*FI*/return R; } int rT114has_creation(T114 *C,T0* a1){ int R=0; (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(XrT67start_position(a1)); rT114error(rT114start_position(C),(T0 *)ms1510); return R; } int ofBC114check_type=0; void rT114check_type(T114 *C){ if (ofBC114check_type==0){ T0* _rc=NULL; T0* _bc=NULL; ofBC114check_type=1; _bc=rT114base_class(C); /*IF*/if (!(_bc)) { rT114error(rT114start_position(C),(T0 *)ms1470); } /*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) { _rc=rT114run_class(C); } /*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (!(((T50*)_bc)->_is_expanded)) { rT114error(rT114start_position(C),(T0 *)ms1471); } /*FI*/} /*FI*/}} void rT114make(T114 *C,T0* a1){ {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms191,a1); C->_base_class_name=(T0 *)n;} } void rT114c_type_in(/*C*/T0* a1){ rT7append((T7*)a1,(T0 *)ms1517); } void rT114to_expanded(T114 *C){ rT43to_expanded((T43*)oRBC27cpp,(T0 *)C,rT114type_real_ref()); } void rT114load_ref(/*C*/T0* a1){ T0* _rf=NULL; T0* _rc=NULL; T0* _cn=NULL; {T48 *n=((T48*)se_new(48)); rT48make(n,a1,NULL); _cn=(T0 *)n;} _rc=rT50run_class((T50*)rT48base_class((T48*)_cn)); rT261set_at_run_time((T261*)_rc); _rf=rT261get_feature_with((T261*)_rc,(T0 *)ms1477); } void rT115fatal_error(/*C*/T0* a1){ (/*UT*/(void)(T45*)oRBC27eh); rT45fatal_error(a1); } T0* rT115run_type(T115 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT115to_runnable(T115 *C,T0* a1){ T0* R=NULL; R=(T0 *)C; rT115check_type(C); return R; } void rT115cast_to_ref(T115 *C){ XrT58cast_to_ref(rT115run_type(C)); } void rT115error(/*C*/T0* a1,T0* a2){ (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(a1); rT45error((T45*)oRBC27eh,a2); } T0* rT115start_position(T115 *C){ T0* R=NULL; R=((T48*)(C)->_base_class_name)->_start_position; return R; } T0* rT115generic_list(T115 *C){ T0* R=NULL; (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1452); /*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh); rT45do_print((T0 *)ms43); rT45die_with_code(1); /*)*/return R; } T0* rT115look_up_for(T115 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _bc=NULL; _bc=rT115base_class(C); /*IF*/if (((int)_bc)) { R=rT50look_up_for((T50*)_bc,a1,a2); } else { (/*UT*/(void)(T45*)oRBC27eh); rT45append((T0 *)ms477); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms36); rT45print_as_error((T45*)oRBC27eh); } /*FI*/return R; } void rT115mapping_c_in(/*C*/T0* a1){ rT7extend((T7*)a1,'T'); rT2append_in(/*(IRF4*/7/*)*/,a1); } T0* rT115run_class(T115 *C){ T0* R=NULL; R=((/*UT*/(void)(T52*)oRBC27small_eiffel), rT52run_class(rT115run_type(C))); return R; } T0* rT115smallest_ancestor(T115 *C,T0* a1){ T0* R=NULL; T0* _rto=NULL; _rto=XrT58run_type(a1); /*IF*/if (XrT58is_string(_rto)) { R=(T0 *)C; } else { rT115fatal_error((T0 *)ms1495); } /*FI*/return R; } T0* rT115base_class(T115 *C){ T0* R=NULL; R=rT48base_class((T48*)(C)->_base_class_name); return R; } int rT115is_a_in(T115 *C,T0* a1,T0* a2){ int R=0; T0* _ct=NULL; T0* _t2=NULL; T0* _t1=NULL; /*IF*/if (rT7is_equal((T7*)/*(IRF4*/(T0 *)ms183/*)*/,XrT58written_mark(a1))) { R=1; } else { _ct=((T261*)a2)->_current_type; _t1=rT115to_runnable(C,_ct); _t2=XrT58to_runnable(a1,_ct); /*IF*/if (rT7is_equal((T7*)XrT58run_time_mark(_t1),XrT58run_time_mark(_t2))) { R=1; } else { R=XrT58is_a(_t1,_t2); } /*FI*/} /*FI*/return R; } int rT115is_a(T115 *C,T0* a1){ int R=0; /*IF*/if (XrT58is_string(a1)) { R=1; } else { R=rT50is_subclass_of((T50*)rT115base_class(C),XrT58base_class(a1)); } /*FI*//*IF*/if (!(R)) { (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1503); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type(a1,(T0 *)ms36); } /*FI*/return R; } int rT115has_creation(T115 *C,T0* a1){ int R=0; R=rT50has_creation((T50*)rT115base_class(C),a1); return R; } int ofBC115check_type=0; void rT115check_type(T115 *C){ if (ofBC115check_type==0){ T0* _rc=NULL; T0* _bc=NULL; int _ne=0; ofBC115check_type=1; _ne=/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/; _bc=rT115base_class(C); /*IF*/if (!(_bc)) { rT115error(rT115start_position(C),(T0 *)ms1472); } /*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) { _rc=rT115run_class(C); } /*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) { /*IF*/if (((T50*)_bc)->_is_expanded) { rT115error(rT115start_position(C),(T0 *)ms1473); } /*FI*/} /*FI*/}} void rT115make(T115 *C,T0* a1){ {T48 *n=((T48*)se_new(48)); rT48make(n,(T0 *)ms183,a1); C->_base_class_name=(T0 *)n;} } void rT115c_type_in(/*C*/T0* a1){ rT7append((T7*)a1,(T0 *)ms769); } T0* rT116type_any(/*C*/void){ if (ofBC27type_any==0){ T0* R=NULL; ofBC27type_any=1; {T87 *n=((T87*)se_new(87)); rT87make(n,NULL); R=(T0 *)n;} oRBC27type_any=R;} return oRBC27type_any;} void rT116c_initialize_expanded(T116 *C){ T0* _rf=NULL; int _i=0; T0* _wa=NULL; rT43put_character((T43*)oRBC27cpp,'\173'); _wa=rT261writable_attributes((T261*)rT116run_class(C)); /*IF*/if (((int)_wa)) { _i=1; while (!((_i)>(XrT266upper(_wa)))) { _rf=XrT266item(_wa,_i); XrT58c_initialize(XrT262result_type(_rf)); _i=(_i)+(1); /*IF*/if ((_i)<=(XrT266upper(_wa))) { rT43put_character((T43*)oRBC27cpp,'\54'); } /*FI*/} } /*FI*/rT43put_character((T43*)oRBC27cpp,'\175'); } void rT116c_initialize(T116 *C){ /*IF*/if (rT116is_expanded(C)) { rT116c_initialize_expanded(C); } else { rT43put_string((T43*)oRBC27cpp,(T0 *)ms1426); } /*FI*/} void rT116fatal_error(/*C*/T0* a1){ (/*UT*/(void)(T45*)oRBC27eh); rT45fatal_error(a1); } T0* rT116run_time_mark(T116 *C){ T0* R=NULL; R=((T48*)(C)->_base_class_name)->_to_string; return R; } T0* rT116run_type(T116 *C){ T0* R=NULL; R=(T0 *)C; return R; } T0* rT116to_runnable(T116 *C,T0* a1){ T0* R=NULL; T0* _rc=NULL; T0* _bc=NULL; _bc=rT48base_class((T48*)(C)->_base_class_name); /*IF*/if (((T50*)_bc)->_is_expanded) { /*IF*/if (!(rT56fast_has((T56*)oRBC116check_memory,_bc))) { rT50check_expanded_with((T50*)_bc,(T0 *)C); rT56add_last((T56*)oRBC116check_memory,_bc); } /*FI*/} /*FI*/_rc=rT116run_class(C); R=(T0 *)C; return R; } void rT116cast_to_ref(T116 *C){ XrT58cast_to_ref(rT116run_type(C)); } void rT116error(/*C*/T0* a1,T0* a2){ (/*UT*/(void)(T45*)oRBC27eh); rT45add_position(a1); rT45error((T45*)oRBC27eh,a2); } int rT116id(T116 *C){ int R=0; R=((T50*)rT116base_class(C))->_id; return R; } T0* rT116start_position(T116 *C){ T0* R=NULL; R=((T48*)(C)->_base_class_name)->_start_position; return R; } T0* rT116generic_list(T116 *C){ T0* R=NULL; (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms1452); /*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh); rT45do_print((T0 *)ms43); rT45die_with_code(1); /*)*/return R; } int rT116is_reference(T116 *C){ int R=0; T0* _bc=NULL; _bc=rT116base_class(C); /*IF*/if (!(_bc)) { rT116error(rT116start_position(C),(T0 *)ms1475); } else { R=!(((T50*)_bc)->_is_expanded); } /*FI*/return R; } T0* rT116look_up_for(T116 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _bc=NULL; _bc=rT116base_class(C); /*IF*/if (((int)_bc)) { R=rT50look_up_for((T50*)_bc,a1,a2); } else { (/*UT*/(void)(T45*)oRBC27eh); rT45append((T0 *)ms477); (/*UT*/(void)(T45*)oRBC27eh); rT45add_type((T0 *)C,(T0 *)ms36); rT45print_as_error((T45*)oRBC27eh); } /*FI*/return R; } void rT116mapping_c_in(T116 *C,T0* a1){ rT7extend((T7*)a1,'T'); rT2append_in(rT116id(C),a1); }
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.