This is compile_to_c6.c in view mode; [Download] [Up]
/* ANSI C code generated by SmallEiffel. */ /* -- SmallEiffel -- Release (- 0.91) -- 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" /*CST_ATT_UNIQUE*/T0* rT148first_name(T148 *C){ T0* R=NULL; R=rT130item((T130*)(C)->_names,1); return R; } /*CST_ATT_UNIQUE*/T0* rT148to_run_feature(T148 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _rc=NULL; _rc=XrT62run_class(a1); R=rT269at((T269*)_rc,a2); if ((int)R) switch (((T0 *)R)->id) { case 285: break; default: R = NULL; };/*IF*/if (!(R)) { {T285 *n=((T285*)se_new(285)); rT285make(n,a1,a2,(T0 *)C); R=(T0 *)n;} } /*FI*/return R; } /*CST_ATT_UNIQUE*/void rT148error(/*C*/T0* a1,T0* a2){ rT48add_position(a1); rT48error((T48*)oRBC27eh,a2); }/*CST_ATT_UNIQUE*/int rT148is_merge_with(T148 *C,T0* a1,T0* a2){ int R=0; int _ne=0; _ne=/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/; /*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)/*XrT*E_FEATURE*/((T148*)a1)->_result_type)) { /*IF*/if (((!((C)->_result_type))||(!(/*XrT*E_FEATURE*/((T148*)a1)->_result_type)))) { rT48add_position(XrT66start_position(a1)); rT148error(rT148start_position(C),(T0 *)ms1_66); } /*FI*/} /*FI*//*IF*/if (((T0 *)/*(IRF4*/NULL/*)*/)!=((T0 *)XrT66arguments(a1))) { /*IF*/if (((!(/*(IRF4*/NULL/*)*/))||(!(XrT66arguments(a1))))) { rT48add_position(XrT66start_position(a1)); rT148error(rT148start_position(C),(T0 *)ms2_66); } else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) { rT48add_position(XrT66start_position(a1)); rT148error(rT148start_position(C),(T0 *)ms3_66); } /*FI*/} /*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) { /*IF*/if (((int)(C)->_result_type)) { /*IF*/if (!(XrT62is_a_in((C)->_result_type,/*XrT*E_FEATURE*/((T148*)a1)->_result_type,a2))) { rT48error((T48*)oRBC27eh,(T0 *)ms13_66); } /*FI*/} /*FI*/} /*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT97is_a_in((T97*)/*(IRF4*/NULL/*)*/,XrT66arguments(a1),a2))) { rT48add_position(XrT66start_position(a1)); rT148error(rT148start_position(C),(T0 *)ms13_66); } /*FI*/} /*FI*/} /*FI*/R=((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0); return R; } /*CST_ATT_UNIQUE*/T0* rT148start_position(T148 *C){ T0* R=NULL; R=/*XrT*FEATURE_NAME*/((T70*)rT148first_name(C))->_start_position; return R; } /*CST_ATT_UNIQUE*/void rT148collect_for(/*C*/int a1){ /*IF*/if ((a1)==(1001)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT276fast_has((T276*)oRBC66require_collector,/*(IRF4*/NULL/*)*/))) { rT276add_last((T276*)oRBC66require_collector,/*(IRF4*/NULL/*)*/); } /*FI*/} /*FI*/} else { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { rT161add_into((T161*)/*(IRF4*/NULL/*)*/,oRBC66assertion_collector); } /*FI*/} /*FI*/}/*CST_ATT_UNIQUE*/void rT148add_into(T148 *C,T0* a1){ T0* _fn=NULL; int _i=0; C->_base_class=rT49base_class((T49*)/*XrT*FEATURE_NAME*/((T70*)rT130item((T130*)(C)->_names,1))->_start_position); _i=1; while (!((_i)>(rT130count((T130*)(C)->_names)))) { _fn=rT130item((T130*)(C)->_names,_i); /*IF*/if (rT65has((T65*)a1,XrT71to_key(_fn))) { _fn=XrT66first_name(rT65at((T65*)a1,XrT71to_key(_fn))); rT48add_position(/*XrT*FEATURE_NAME*/((T70*)_fn)->_start_position); rT48add_position(/*XrT*FEATURE_NAME*/((T70*)rT130item((T130*)(C)->_names,_i))->_start_position); rT48error((T48*)oRBC27eh,(T0 *)ms12_66); rT48append(/*XrT*FEATURE_NAME*/((T70*)_fn)->_to_string); rT48error((T48*)oRBC27eh,(T0 *)ms102_27); } else { rT65put((T65*)a1,(T0 *)C,XrT71to_key(_fn)); } /*FI*/_i=(_i)+(1); } }/*CST_ATT_UNIQUE*/T0* rT148try_to_undefine(T148 *C,T0* a1,T0* a2){ T0* R=NULL; XrT71undefine_in(a1,a2); R=rT148try_to_undefine_aux(C,a1,a2); /*IF*/if (((int)R)) { /*XrT*DEFERRED_ROUTINE*//*[IRF3:set_clients*//*AW*/((T210*)R)->_clients=((C)->_clients);/*]*/ } else { rT53fatal_undefine((T53*)a2,a1); } /*FI*/return R; } /*CST_ATT_UNIQUE*/T0* rT148try_to_undefine_aux(T148 *C,T0* a1,T0* a2){ T0* R=NULL; rT48add_position(rT148start_position(C)); rT148error(/*XrT*FEATURE_NAME*/((T70*)a1)->_start_position,(T0 *)ms1_150); rT53fatal_undefine((T53*)a2,a1); return R; } /*CST_ATT_UNIQUE*/int rT148stupid_switch(/*C*/T0* a1,T0* a2){ int R=0; R=1; return R; } /*CST_ATT_UNIQUE*/int rT148can_hide(T148 *C,T0* a1,T0* a2){ int R=0; /*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)/*XrT*E_FEATURE*/((T148*)a1)->_result_type)) { /*IF*/if (((!((C)->_result_type))||(!(/*XrT*E_FEATURE*/((T148*)a1)->_result_type)))) { rT48add_position(XrT66start_position(a1)); rT148error(rT148start_position(C),(T0 *)ms4_66); } /*FI*/} /*FI*//*IF*/if (((T0 *)/*(IRF4*/NULL/*)*/)!=((T0 *)XrT66arguments(a1))) { /*IF*/if (((!(/*(IRF4*/NULL/*)*/))||(!(XrT66arguments(a1))))) { rT48add_position(XrT66start_position(a1)); rT148error(rT148start_position(C),(T0 *)ms5_66); } else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) { rT48add_position(XrT66start_position(a1)); rT148error(rT148start_position(C),(T0 *)ms6_66); } /*FI*/} /*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (((int)(C)->_result_type)) { /*IF*/if (!(XrT62is_a_in((C)->_result_type,/*XrT*E_FEATURE*/((T148*)a1)->_result_type,a2))) { rT48append((T0 *)ms14_66); rT48append(XrT62run_time_mark(((T269*)a2)->_current_type)); rT48error((T48*)oRBC27eh,(T0 *)ms7_66); } /*FI*/} /*FI*/} /*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT97is_a_in((T97*)/*(IRF4*/NULL/*)*/,XrT66arguments(a1),a2))) { rT48add_position(XrT66start_position(a1)); rT48add_position(rT148start_position(C)); rT48append((T0 *)ms14_66); rT48append(XrT62run_time_mark(((T269*)a2)->_current_type)); rT48error((T48*)oRBC27eh,(T0 *)ms8_66); } /*FI*/} /*FI*/} /*FI*/R=(/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0); return R; } /*CST_ATT_UNIQUE*/T0* rT148base_class_name(T148 *C){ T0* R=NULL; R=((T53*)(C)->_base_class)->_base_class_name; return R; } /*CST_ATT_UNIQUE*/T0* rT148value(T148 *C,int a1){ T0* R=NULL; R=rT151item((T151*)(C)->_values,a1); return R; } /*CST_ATT_UNIQUE*/void rT148make_e_feature(T148 *C,T0* a1,T0* a2){ C->_names=a1; C->_result_type=a2; }/*CST_ATT_UNIQUE*/void rT148make(T148 *C,T0* a1,T0* a2){ T0* _ic=NULL; int _i=0; rT148make_e_feature(C,a1,a2); {T151 *n=((T151*)se_new(151)); rT151make(n,1,rT130count((T130*)(C)->_names)); C->_values=(T0 *)n;} _i=1; while (!((_i)>(((T151*)(C)->_values)->_upper))) { {T84 *n=((T84*)se_new(84)); rT84make(n,rT55next_unique((T55*)oRBC27small_eiffel),NULL); _ic=(T0 *)n;} rT151put((T151*)(C)->_values,_ic,_i); _i=(_i)+(1); } }/*CST_ATT_BOOLEAN*/T0* rT152first_name(T152 *C){ T0* R=NULL; R=rT130item((T130*)(C)->_names,1); return R; } /*CST_ATT_BOOLEAN*/T0* rT152to_run_feature(T152 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _rc=NULL; _rc=XrT62run_class(a1); R=rT269at((T269*)_rc,a2); if ((int)R) switch (((T0 *)R)->id) { case 285: break; default: R = NULL; };/*IF*/if (!(R)) { {T285 *n=((T285*)se_new(285)); rT285make(n,a1,a2,(T0 *)C); R=(T0 *)n;} } /*FI*/return R; } /*CST_ATT_BOOLEAN*/void rT152error(/*C*/T0* a1,T0* a2){ rT48add_position(a1); rT48error((T48*)oRBC27eh,a2); }/*CST_ATT_BOOLEAN*/int rT152is_merge_with(T152 *C,T0* a1,T0* a2){ int R=0; int _ne=0; _ne=/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/; /*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)/*XrT*E_FEATURE*/((T148*)a1)->_result_type)) { /*IF*/if (((!((C)->_result_type))||(!(/*XrT*E_FEATURE*/((T148*)a1)->_result_type)))) { rT48add_position(XrT66start_position(a1)); rT152error(rT152start_position(C),(T0 *)ms1_66); } /*FI*/} /*FI*//*IF*/if (((T0 *)/*(IRF4*/NULL/*)*/)!=((T0 *)XrT66arguments(a1))) { /*IF*/if (((!(/*(IRF4*/NULL/*)*/))||(!(XrT66arguments(a1))))) { rT48add_position(XrT66start_position(a1)); rT152error(rT152start_position(C),(T0 *)ms2_66); } else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) { rT48add_position(XrT66start_position(a1)); rT152error(rT152start_position(C),(T0 *)ms3_66); } /*FI*/} /*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) { /*IF*/if (((int)(C)->_result_type)) { /*IF*/if (!(XrT62is_a_in((C)->_result_type,/*XrT*E_FEATURE*/((T148*)a1)->_result_type,a2))) { rT48error((T48*)oRBC27eh,(T0 *)ms13_66); } /*FI*/} /*FI*/} /*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT97is_a_in((T97*)/*(IRF4*/NULL/*)*/,XrT66arguments(a1),a2))) { rT48add_position(XrT66start_position(a1)); rT152error(rT152start_position(C),(T0 *)ms13_66); } /*FI*/} /*FI*/} /*FI*/R=((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0); return R; } /*CST_ATT_BOOLEAN*/T0* rT152start_position(T152 *C){ T0* R=NULL; R=/*XrT*FEATURE_NAME*/((T70*)rT152first_name(C))->_start_position; return R; } /*CST_ATT_BOOLEAN*/void rT152collect_for(/*C*/int a1){ /*IF*/if ((a1)==(1001)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT276fast_has((T276*)oRBC66require_collector,/*(IRF4*/NULL/*)*/))) { rT276add_last((T276*)oRBC66require_collector,/*(IRF4*/NULL/*)*/); } /*FI*/} /*FI*/} else { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { rT161add_into((T161*)/*(IRF4*/NULL/*)*/,oRBC66assertion_collector); } /*FI*/} /*FI*/}/*CST_ATT_BOOLEAN*/void rT152add_into(T152 *C,T0* a1){ T0* _fn=NULL; int _i=0; C->_base_class=rT49base_class((T49*)/*XrT*FEATURE_NAME*/((T70*)rT130item((T130*)(C)->_names,1))->_start_position); _i=1; while (!((_i)>(rT130count((T130*)(C)->_names)))) { _fn=rT130item((T130*)(C)->_names,_i); /*IF*/if (rT65has((T65*)a1,XrT71to_key(_fn))) { _fn=XrT66first_name(rT65at((T65*)a1,XrT71to_key(_fn))); rT48add_position(/*XrT*FEATURE_NAME*/((T70*)_fn)->_start_position); rT48add_position(/*XrT*FEATURE_NAME*/((T70*)rT130item((T130*)(C)->_names,_i))->_start_position); rT48error((T48*)oRBC27eh,(T0 *)ms12_66); rT48append(/*XrT*FEATURE_NAME*/((T70*)_fn)->_to_string); rT48error((T48*)oRBC27eh,(T0 *)ms102_27); } else { rT65put((T65*)a1,(T0 *)C,XrT71to_key(_fn)); } /*FI*/_i=(_i)+(1); } }/*CST_ATT_BOOLEAN*/T0* rT152try_to_undefine(T152 *C,T0* a1,T0* a2){ T0* R=NULL; XrT71undefine_in(a1,a2); R=rT152try_to_undefine_aux(C,a1,a2); /*IF*/if (((int)R)) { /*XrT*DEFERRED_ROUTINE*//*[IRF3:set_clients*//*AW*/((T210*)R)->_clients=((C)->_clients);/*]*/ } else { rT53fatal_undefine((T53*)a2,a1); } /*FI*/return R; } /*CST_ATT_BOOLEAN*/T0* rT152try_to_undefine_aux(T152 *C,T0* a1,T0* a2){ T0* R=NULL; rT48add_position(rT152start_position(C)); rT152error(/*XrT*FEATURE_NAME*/((T70*)a1)->_start_position,(T0 *)ms1_150); rT53fatal_undefine((T53*)a2,a1); return R; } /*CST_ATT_BOOLEAN*/int rT152stupid_switch(/*C*/T0* a1,T0* a2){ int R=0; R=1; return R; } /*CST_ATT_BOOLEAN*/int rT152can_hide(T152 *C,T0* a1,T0* a2){ int R=0; /*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)/*XrT*E_FEATURE*/((T148*)a1)->_result_type)) { /*IF*/if (((!((C)->_result_type))||(!(/*XrT*E_FEATURE*/((T148*)a1)->_result_type)))) { rT48add_position(XrT66start_position(a1)); rT152error(rT152start_position(C),(T0 *)ms4_66); } /*FI*/} /*FI*//*IF*/if (((T0 *)/*(IRF4*/NULL/*)*/)!=((T0 *)XrT66arguments(a1))) { /*IF*/if (((!(/*(IRF4*/NULL/*)*/))||(!(XrT66arguments(a1))))) { rT48add_position(XrT66start_position(a1)); rT152error(rT152start_position(C),(T0 *)ms5_66); } else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) { rT48add_position(XrT66start_position(a1)); rT152error(rT152start_position(C),(T0 *)ms6_66); } /*FI*/} /*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (((int)(C)->_result_type)) { /*IF*/if (!(XrT62is_a_in((C)->_result_type,/*XrT*E_FEATURE*/((T148*)a1)->_result_type,a2))) { rT48append((T0 *)ms14_66); rT48append(XrT62run_time_mark(((T269*)a2)->_current_type)); rT48error((T48*)oRBC27eh,(T0 *)ms7_66); } /*FI*/} /*FI*/} /*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT97is_a_in((T97*)/*(IRF4*/NULL/*)*/,XrT66arguments(a1),a2))) { rT48add_position(XrT66start_position(a1)); rT48add_position(rT152start_position(C)); rT48append((T0 *)ms14_66); rT48append(XrT62run_time_mark(((T269*)a2)->_current_type)); rT48error((T48*)oRBC27eh,(T0 *)ms8_66); } /*FI*/} /*FI*/} /*FI*/R=(/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0); return R; } /*CST_ATT_BOOLEAN*/T0* rT152base_class_name(T152 *C){ T0* R=NULL; R=((T53*)(C)->_base_class)->_base_class_name; return R; } /*CST_ATT_BOOLEAN*/T0* rT152value(T152 *C,int a1){ T0* R=NULL; R=(C)->_value_mem; return R; } /*CST_ATT_BOOLEAN*/void rT152make_e_feature(T152 *C,T0* a1,T0* a2){ C->_names=a1; C->_result_type=a2; }/*CST_ATT_BOOLEAN*/void rT152make(T152 *C,T0* a1,T0* a2,T0* a3){ rT152make_e_feature(C,a1,a2); C->_value_mem=a3; }/*CST_ATT_CHARACTER*/T0* rT153first_name(T153 *C){ T0* R=NULL; R=rT130item((T130*)(C)->_names,1); return R; } /*CST_ATT_CHARACTER*/T0* rT153to_run_feature(T153 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _rc=NULL; _rc=XrT62run_class(a1); R=rT269at((T269*)_rc,a2); if ((int)R) switch (((T0 *)R)->id) { case 285: break; default: R = NULL; };/*IF*/if (!(R)) { {T285 *n=((T285*)se_new(285)); rT285make(n,a1,a2,(T0 *)C); R=(T0 *)n;} } /*FI*/return R; } /*CST_ATT_CHARACTER*/void rT153error(/*C*/T0* a1,T0* a2){ rT48add_position(a1); rT48error((T48*)oRBC27eh,a2); }/*CST_ATT_CHARACTER*/int rT153is_merge_with(T153 *C,T0* a1,T0* a2){ int R=0; int _ne=0; _ne=/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/; /*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)/*XrT*E_FEATURE*/((T148*)a1)->_result_type)) { /*IF*/if (((!((C)->_result_type))||(!(/*XrT*E_FEATURE*/((T148*)a1)->_result_type)))) { rT48add_position(XrT66start_position(a1)); rT153error(rT153start_position(C),(T0 *)ms1_66); } /*FI*/} /*FI*//*IF*/if (((T0 *)/*(IRF4*/NULL/*)*/)!=((T0 *)XrT66arguments(a1))) { /*IF*/if (((!(/*(IRF4*/NULL/*)*/))||(!(XrT66arguments(a1))))) { rT48add_position(XrT66start_position(a1)); rT153error(rT153start_position(C),(T0 *)ms2_66); } else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) { rT48add_position(XrT66start_position(a1)); rT153error(rT153start_position(C),(T0 *)ms3_66); } /*FI*/} /*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) { /*IF*/if (((int)(C)->_result_type)) { /*IF*/if (!(XrT62is_a_in((C)->_result_type,/*XrT*E_FEATURE*/((T148*)a1)->_result_type,a2))) { rT48error((T48*)oRBC27eh,(T0 *)ms13_66); } /*FI*/} /*FI*/} /*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT97is_a_in((T97*)/*(IRF4*/NULL/*)*/,XrT66arguments(a1),a2))) { rT48add_position(XrT66start_position(a1)); rT153error(rT153start_position(C),(T0 *)ms13_66); } /*FI*/} /*FI*/} /*FI*/R=((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0); return R; } /*CST_ATT_CHARACTER*/T0* rT153start_position(T153 *C){ T0* R=NULL; R=/*XrT*FEATURE_NAME*/((T70*)rT153first_name(C))->_start_position; return R; } /*CST_ATT_CHARACTER*/void rT153collect_for(/*C*/int a1){ /*IF*/if ((a1)==(1001)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT276fast_has((T276*)oRBC66require_collector,/*(IRF4*/NULL/*)*/))) { rT276add_last((T276*)oRBC66require_collector,/*(IRF4*/NULL/*)*/); } /*FI*/} /*FI*/} else { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { rT161add_into((T161*)/*(IRF4*/NULL/*)*/,oRBC66assertion_collector); } /*FI*/} /*FI*/}/*CST_ATT_CHARACTER*/void rT153add_into(T153 *C,T0* a1){ T0* _fn=NULL; int _i=0; C->_base_class=rT49base_class((T49*)/*XrT*FEATURE_NAME*/((T70*)rT130item((T130*)(C)->_names,1))->_start_position); _i=1; while (!((_i)>(rT130count((T130*)(C)->_names)))) { _fn=rT130item((T130*)(C)->_names,_i); /*IF*/if (rT65has((T65*)a1,XrT71to_key(_fn))) { _fn=XrT66first_name(rT65at((T65*)a1,XrT71to_key(_fn))); rT48add_position(/*XrT*FEATURE_NAME*/((T70*)_fn)->_start_position); rT48add_position(/*XrT*FEATURE_NAME*/((T70*)rT130item((T130*)(C)->_names,_i))->_start_position); rT48error((T48*)oRBC27eh,(T0 *)ms12_66); rT48append(/*XrT*FEATURE_NAME*/((T70*)_fn)->_to_string); rT48error((T48*)oRBC27eh,(T0 *)ms102_27); } else { rT65put((T65*)a1,(T0 *)C,XrT71to_key(_fn)); } /*FI*/_i=(_i)+(1); } }/*CST_ATT_CHARACTER*/T0* rT153try_to_undefine(T153 *C,T0* a1,T0* a2){ T0* R=NULL; XrT71undefine_in(a1,a2); R=rT153try_to_undefine_aux(C,a1,a2); /*IF*/if (((int)R)) { /*XrT*DEFERRED_ROUTINE*//*[IRF3:set_clients*//*AW*/((T210*)R)->_clients=((C)->_clients);/*]*/ } else { rT53fatal_undefine((T53*)a2,a1); } /*FI*/return R; } /*CST_ATT_CHARACTER*/T0* rT153try_to_undefine_aux(T153 *C,T0* a1,T0* a2){ T0* R=NULL; rT48add_position(rT153start_position(C)); rT153error(/*XrT*FEATURE_NAME*/((T70*)a1)->_start_position,(T0 *)ms1_150); rT53fatal_undefine((T53*)a2,a1); return R; } /*CST_ATT_CHARACTER*/int rT153stupid_switch(/*C*/T0* a1,T0* a2){ int R=0; R=1; return R; } /*CST_ATT_CHARACTER*/int rT153can_hide(T153 *C,T0* a1,T0* a2){ int R=0; /*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)/*XrT*E_FEATURE*/((T148*)a1)->_result_type)) { /*IF*/if (((!((C)->_result_type))||(!(/*XrT*E_FEATURE*/((T148*)a1)->_result_type)))) { rT48add_position(XrT66start_position(a1)); rT153error(rT153start_position(C),(T0 *)ms4_66); } /*FI*/} /*FI*//*IF*/if (((T0 *)/*(IRF4*/NULL/*)*/)!=((T0 *)XrT66arguments(a1))) { /*IF*/if (((!(/*(IRF4*/NULL/*)*/))||(!(XrT66arguments(a1))))) { rT48add_position(XrT66start_position(a1)); rT153error(rT153start_position(C),(T0 *)ms5_66); } else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) { rT48add_position(XrT66start_position(a1)); rT153error(rT153start_position(C),(T0 *)ms6_66); } /*FI*/} /*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (((int)(C)->_result_type)) { /*IF*/if (!(XrT62is_a_in((C)->_result_type,/*XrT*E_FEATURE*/((T148*)a1)->_result_type,a2))) { rT48append((T0 *)ms14_66); rT48append(XrT62run_time_mark(((T269*)a2)->_current_type)); rT48error((T48*)oRBC27eh,(T0 *)ms7_66); } /*FI*/} /*FI*/} /*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT97is_a_in((T97*)/*(IRF4*/NULL/*)*/,XrT66arguments(a1),a2))) { rT48add_position(XrT66start_position(a1)); rT48add_position(rT153start_position(C)); rT48append((T0 *)ms14_66); rT48append(XrT62run_time_mark(((T269*)a2)->_current_type)); rT48error((T48*)oRBC27eh,(T0 *)ms8_66); } /*FI*/} /*FI*/} /*FI*/R=(/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0); return R; } /*CST_ATT_CHARACTER*/T0* rT153base_class_name(T153 *C){ T0* R=NULL; R=((T53*)(C)->_base_class)->_base_class_name; return R; } /*CST_ATT_CHARACTER*/T0* rT153value(T153 *C,int a1){ T0* R=NULL; R=(C)->_value_mem; return R; } /*CST_ATT_CHARACTER*/void rT153make_e_feature(T153 *C,T0* a1,T0* a2){ C->_names=a1; C->_result_type=a2; }/*CST_ATT_CHARACTER*/void rT153make(T153 *C,T0* a1,T0* a2,T0* a3){ rT153make_e_feature(C,a1,a2); C->_value_mem=a3; }/*CST_ATT_STRING*/T0* rT154first_name(T154 *C){ T0* R=NULL; R=rT130item((T130*)(C)->_names,1); return R; } /*CST_ATT_STRING*/T0* rT154to_run_feature(T154 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _rc=NULL; _rc=XrT62run_class(a1); R=rT269at((T269*)_rc,a2); if ((int)R) switch (((T0 *)R)->id) { case 285: break; default: R = NULL; };/*IF*/if (!(R)) { {T285 *n=((T285*)se_new(285)); rT285make(n,a1,a2,(T0 *)C); R=(T0 *)n;} } /*FI*/return R; } /*CST_ATT_STRING*/void rT154error(/*C*/T0* a1,T0* a2){ rT48add_position(a1); rT48error((T48*)oRBC27eh,a2); }/*CST_ATT_STRING*/int rT154is_merge_with(T154 *C,T0* a1,T0* a2){ int R=0; int _ne=0; _ne=/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/; /*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)/*XrT*E_FEATURE*/((T148*)a1)->_result_type)) { /*IF*/if (((!((C)->_result_type))||(!(/*XrT*E_FEATURE*/((T148*)a1)->_result_type)))) { rT48add_position(XrT66start_position(a1)); rT154error(rT154start_position(C),(T0 *)ms1_66); } /*FI*/} /*FI*//*IF*/if (((T0 *)/*(IRF4*/NULL/*)*/)!=((T0 *)XrT66arguments(a1))) { /*IF*/if (((!(/*(IRF4*/NULL/*)*/))||(!(XrT66arguments(a1))))) { rT48add_position(XrT66start_position(a1)); rT154error(rT154start_position(C),(T0 *)ms2_66); } else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) { rT48add_position(XrT66start_position(a1)); rT154error(rT154start_position(C),(T0 *)ms3_66); } /*FI*/} /*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) { /*IF*/if (((int)(C)->_result_type)) { /*IF*/if (!(XrT62is_a_in((C)->_result_type,/*XrT*E_FEATURE*/((T148*)a1)->_result_type,a2))) { rT48error((T48*)oRBC27eh,(T0 *)ms13_66); } /*FI*/} /*FI*/} /*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT97is_a_in((T97*)/*(IRF4*/NULL/*)*/,XrT66arguments(a1),a2))) { rT48add_position(XrT66start_position(a1)); rT154error(rT154start_position(C),(T0 *)ms13_66); } /*FI*/} /*FI*/} /*FI*/R=((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0); return R; } /*CST_ATT_STRING*/T0* rT154start_position(T154 *C){ T0* R=NULL; R=/*XrT*FEATURE_NAME*/((T70*)rT154first_name(C))->_start_position; return R; } /*CST_ATT_STRING*/void rT154collect_for(/*C*/int a1){ /*IF*/if ((a1)==(1001)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT276fast_has((T276*)oRBC66require_collector,/*(IRF4*/NULL/*)*/))) { rT276add_last((T276*)oRBC66require_collector,/*(IRF4*/NULL/*)*/); } /*FI*/} /*FI*/} else { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { rT161add_into((T161*)/*(IRF4*/NULL/*)*/,oRBC66assertion_collector); } /*FI*/} /*FI*/}/*CST_ATT_STRING*/void rT154add_into(T154 *C,T0* a1){ T0* _fn=NULL; int _i=0; C->_base_class=rT49base_class((T49*)/*XrT*FEATURE_NAME*/((T70*)rT130item((T130*)(C)->_names,1))->_start_position); _i=1; while (!((_i)>(rT130count((T130*)(C)->_names)))) { _fn=rT130item((T130*)(C)->_names,_i); /*IF*/if (rT65has((T65*)a1,XrT71to_key(_fn))) { _fn=XrT66first_name(rT65at((T65*)a1,XrT71to_key(_fn))); rT48add_position(/*XrT*FEATURE_NAME*/((T70*)_fn)->_start_position); rT48add_position(/*XrT*FEATURE_NAME*/((T70*)rT130item((T130*)(C)->_names,_i))->_start_position); rT48error((T48*)oRBC27eh,(T0 *)ms12_66); rT48append(/*XrT*FEATURE_NAME*/((T70*)_fn)->_to_string); rT48error((T48*)oRBC27eh,(T0 *)ms102_27); } else { rT65put((T65*)a1,(T0 *)C,XrT71to_key(_fn)); } /*FI*/_i=(_i)+(1); } }/*CST_ATT_STRING*/T0* rT154try_to_undefine(T154 *C,T0* a1,T0* a2){ T0* R=NULL; XrT71undefine_in(a1,a2); R=rT154try_to_undefine_aux(C,a1,a2); /*IF*/if (((int)R)) { /*XrT*DEFERRED_ROUTINE*//*[IRF3:set_clients*//*AW*/((T210*)R)->_clients=((C)->_clients);/*]*/ } else { rT53fatal_undefine((T53*)a2,a1); } /*FI*/return R; } /*CST_ATT_STRING*/T0* rT154try_to_undefine_aux(T154 *C,T0* a1,T0* a2){ T0* R=NULL; rT48add_position(rT154start_position(C)); rT154error(/*XrT*FEATURE_NAME*/((T70*)a1)->_start_position,(T0 *)ms1_150); rT53fatal_undefine((T53*)a2,a1); return R; } /*CST_ATT_STRING*/int rT154stupid_switch(/*C*/T0* a1,T0* a2){ int R=0; R=1; return R; } /*CST_ATT_STRING*/int rT154can_hide(T154 *C,T0* a1,T0* a2){ int R=0; /*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)/*XrT*E_FEATURE*/((T148*)a1)->_result_type)) { /*IF*/if (((!((C)->_result_type))||(!(/*XrT*E_FEATURE*/((T148*)a1)->_result_type)))) { rT48add_position(XrT66start_position(a1)); rT154error(rT154start_position(C),(T0 *)ms4_66); } /*FI*/} /*FI*//*IF*/if (((T0 *)/*(IRF4*/NULL/*)*/)!=((T0 *)XrT66arguments(a1))) { /*IF*/if (((!(/*(IRF4*/NULL/*)*/))||(!(XrT66arguments(a1))))) { rT48add_position(XrT66start_position(a1)); rT154error(rT154start_position(C),(T0 *)ms5_66); } else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) { rT48add_position(XrT66start_position(a1)); rT154error(rT154start_position(C),(T0 *)ms6_66); } /*FI*/} /*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (((int)(C)->_result_type)) { /*IF*/if (!(XrT62is_a_in((C)->_result_type,/*XrT*E_FEATURE*/((T148*)a1)->_result_type,a2))) { rT48append((T0 *)ms14_66); rT48append(XrT62run_time_mark(((T269*)a2)->_current_type)); rT48error((T48*)oRBC27eh,(T0 *)ms7_66); } /*FI*/} /*FI*/} /*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT97is_a_in((T97*)/*(IRF4*/NULL/*)*/,XrT66arguments(a1),a2))) { rT48add_position(XrT66start_position(a1)); rT48add_position(rT154start_position(C)); rT48append((T0 *)ms14_66); rT48append(XrT62run_time_mark(((T269*)a2)->_current_type)); rT48error((T48*)oRBC27eh,(T0 *)ms8_66); } /*FI*/} /*FI*/} /*FI*/R=(/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0); return R; } /*CST_ATT_STRING*/T0* rT154base_class_name(T154 *C){ T0* R=NULL; R=((T53*)(C)->_base_class)->_base_class_name; return R; } /*CST_ATT_STRING*/T0* rT154value(T154 *C,int a1){ T0* R=NULL; R=rT155item((T155*)(C)->_values,a1); return R; } /*CST_ATT_STRING*/void rT154make_e_feature(T154 *C,T0* a1,T0* a2){ C->_names=a1; C->_result_type=a2; }/*CST_ATT_STRING*/void rT154make(T154 *C,T0* a1,T0* a2,T0* a3){ T0* _ms=NULL; int _i=0; rT154make_e_feature(C,a1,a2); {T155 *n=((T155*)se_new(155)); rT155make(n,1,rT130count((T130*)(C)->_names)); C->_values=(T0 *)n;} rT155put((T155*)(C)->_values,a3,1); _i=2; while (!((_i)>(((T155*)(C)->_values)->_upper))) { {T80 *n=((T80*)se_new(80)); rT80from_manifest_string(n,a3,_i); _ms=(T0 *)n;} rT155put((T155*)(C)->_values,_ms,_i); _i=(_i)+(1); } }/*CST_ATT_BIT*/T0* rT156first_name(T156 *C){ T0* R=NULL; R=rT130item((T130*)(C)->_names,1); return R; } /*CST_ATT_BIT*/T0* rT156to_run_feature(T156 *C,T0* a1,T0* a2){ T0* R=NULL; T0* _rc=NULL; _rc=XrT62run_class(a1); R=rT269at((T269*)_rc,a2); if ((int)R) switch (((T0 *)R)->id) { case 285: break; default: R = NULL; };/*IF*/if (!(R)) { {T285 *n=((T285*)se_new(285)); rT285make(n,a1,a2,(T0 *)C); R=(T0 *)n;} } /*FI*/return R; } /*CST_ATT_BIT*/void rT156error(/*C*/T0* a1,T0* a2){ rT48add_position(a1); rT48error((T48*)oRBC27eh,a2); }/*CST_ATT_BIT*/int rT156is_merge_with(T156 *C,T0* a1,T0* a2){ int R=0; int _ne=0; _ne=/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/; /*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)/*XrT*E_FEATURE*/((T148*)a1)->_result_type)) { /*IF*/if (((!((C)->_result_type))||(!(/*XrT*E_FEATURE*/((T148*)a1)->_result_type)))) { rT48add_position(XrT66start_position(a1)); rT156error(rT156start_position(C),(T0 *)ms1_66); } /*FI*/} /*FI*//*IF*/if (((T0 *)/*(IRF4*/NULL/*)*/)!=((T0 *)XrT66arguments(a1))) { /*IF*/if (((!(/*(IRF4*/NULL/*)*/))||(!(XrT66arguments(a1))))) { rT48add_position(XrT66start_position(a1)); rT156error(rT156start_position(C),(T0 *)ms2_66); } else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) { rT48add_position(XrT66start_position(a1)); rT156error(rT156start_position(C),(T0 *)ms3_66); } /*FI*/} /*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) { /*IF*/if (((int)(C)->_result_type)) { /*IF*/if (!(XrT62is_a_in((C)->_result_type,/*XrT*E_FEATURE*/((T148*)a1)->_result_type,a2))) { rT48error((T48*)oRBC27eh,(T0 *)ms13_66); } /*FI*/} /*FI*/} /*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT97is_a_in((T97*)/*(IRF4*/NULL/*)*/,XrT66arguments(a1),a2))) { rT48add_position(XrT66start_position(a1)); rT156error(rT156start_position(C),(T0 *)ms13_66); } /*FI*/} /*FI*/} /*FI*/R=((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0); return R; } /*CST_ATT_BIT*/T0* rT156start_position(T156 *C){ T0* R=NULL; R=/*XrT*FEATURE_NAME*/((T70*)rT156first_name(C))->_start_position; return R; } /*CST_ATT_BIT*/void rT156collect_for(/*C*/int a1){ /*IF*/if ((a1)==(1001)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT276fast_has((T276*)oRBC66require_collector,/*(IRF4*/NULL/*)*/))) { rT276add_last((T276*)oRBC66require_collector,/*(IRF4*/NULL/*)*/); } /*FI*/} /*FI*/} else { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { rT161add_into((T161*)/*(IRF4*/NULL/*)*/,oRBC66assertion_collector); } /*FI*/} /*FI*/}/*CST_ATT_BIT*/void rT156add_into(T156 *C,T0* a1){ T0* _fn=NULL; int _i=0; C->_base_class=rT49base_class((T49*)/*XrT*FEATURE_NAME*/((T70*)rT130item((T130*)(C)->_names,1))->_start_position); _i=1; while (!((_i)>(rT130count((T130*)(C)->_names)))) { _fn=rT130item((T130*)(C)->_names,_i); /*IF*/if (rT65has((T65*)a1,XrT71to_key(_fn))) { _fn=XrT66first_name(rT65at((T65*)a1,XrT71to_key(_fn))); rT48add_position(/*XrT*FEATURE_NAME*/((T70*)_fn)->_start_position); rT48add_position(/*XrT*FEATURE_NAME*/((T70*)rT130item((T130*)(C)->_names,_i))->_start_position); rT48error((T48*)oRBC27eh,(T0 *)ms12_66); rT48append(/*XrT*FEATURE_NAME*/((T70*)_fn)->_to_string); rT48error((T48*)oRBC27eh,(T0 *)ms102_27); } else { rT65put((T65*)a1,(T0 *)C,XrT71to_key(_fn)); } /*FI*/_i=(_i)+(1); } }/*CST_ATT_BIT*/T0* rT156try_to_undefine(T156 *C,T0* a1,T0* a2){ T0* R=NULL; XrT71undefine_in(a1,a2); R=rT156try_to_undefine_aux(C,a1,a2); /*IF*/if (((int)R)) { /*XrT*DEFERRED_ROUTINE*//*[IRF3:set_clients*//*AW*/((T210*)R)->_clients=((C)->_clients);/*]*/ } else { rT53fatal_undefine((T53*)a2,a1); } /*FI*/return R; } /*CST_ATT_BIT*/T0* rT156try_to_undefine_aux(T156 *C,T0* a1,T0* a2){ T0* R=NULL; rT48add_position(rT156start_position(C)); rT156error(/*XrT*FEATURE_NAME*/((T70*)a1)->_start_position,(T0 *)ms1_150); rT53fatal_undefine((T53*)a2,a1); return R; } /*CST_ATT_BIT*/int rT156stupid_switch(/*C*/T0* a1,T0* a2){ int R=0; R=1; return R; } /*CST_ATT_BIT*/int rT156can_hide(T156 *C,T0* a1,T0* a2){ int R=0; /*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)/*XrT*E_FEATURE*/((T148*)a1)->_result_type)) { /*IF*/if (((!((C)->_result_type))||(!(/*XrT*E_FEATURE*/((T148*)a1)->_result_type)))) { rT48add_position(XrT66start_position(a1)); rT156error(rT156start_position(C),(T0 *)ms4_66); } /*FI*/} /*FI*//*IF*/if (((T0 *)/*(IRF4*/NULL/*)*/)!=((T0 *)XrT66arguments(a1))) { /*IF*/if (((!(/*(IRF4*/NULL/*)*/))||(!(XrT66arguments(a1))))) { rT48add_position(XrT66start_position(a1)); rT156error(rT156start_position(C),(T0 *)ms5_66); } else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) { rT48add_position(XrT66start_position(a1)); rT156error(rT156start_position(C),(T0 *)ms6_66); } /*FI*/} /*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (((int)(C)->_result_type)) { /*IF*/if (!(XrT62is_a_in((C)->_result_type,/*XrT*E_FEATURE*/((T148*)a1)->_result_type,a2))) { rT48append((T0 *)ms14_66); rT48append(XrT62run_time_mark(((T269*)a2)->_current_type)); rT48error((T48*)oRBC27eh,(T0 *)ms7_66); } /*FI*/} /*FI*/} /*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) { /*IF*/if (((int)/*(IRF4*/NULL/*)*/)) { /*IF*/if (!(rT97is_a_in((T97*)/*(IRF4*/NULL/*)*/,XrT66arguments(a1),a2))) { rT48add_position(XrT66start_position(a1)); rT48add_position(rT156start_position(C)); rT48append((T0 *)ms14_66); rT48append(XrT62run_time_mark(((T269*)a2)->_current_type)); rT48error((T48*)oRBC27eh,(T0 *)ms8_66); } /*FI*/} /*FI*/} /*FI*/R=(/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0); return R; } /*CST_ATT_BIT*/T0* rT156base_class_name(T156 *C){ T0* R=NULL; R=((T53*)(C)->_base_class)->_base_class_name; return R; } /*CST_ATT_BIT*/T0* rT156value(T156 *C,int a1){ T0* R=NULL; R=(C)->_value_mem; return R; } /*CST_ATT_BIT*/void rT156make_e_feature(T156 *C,T0* a1,T0* a2){ C->_names=a1; C->_result_type=a2; }/*CST_ATT_BIT*/void rT156make(T156 *C,T0* a1,T0* a2,T0* a3){ rT156make_e_feature(C,a1,a2); C->_value_mem=a3; }
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.