ftp.nice.ch/pub/next/developer/languages/eiffel/SmallEiffel.0.91.N.bs.tar.gz#/SmallEiffel/bin_c/compile_to_c7.c

This is compile_to_c7.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_REAL*/T0* rT157first_name(T157 *C){
T0* R=NULL;
R=rT130item((T130*)(C)->_names,1);
return R;
}
/*CST_ATT_REAL*/T0* rT157to_run_feature(T157 *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_REAL*/void rT157error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CST_ATT_REAL*/int rT157is_merge_with(T157 *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));
rT157error(rT157start_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));
rT157error(rT157start_position(C),(T0 *)ms2_66);
}
 else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) {
rT48add_position(XrT66start_position(a1));
rT157error(rT157start_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));
rT157error(rT157start_position(C),(T0 *)ms13_66);
}
/*FI*/}
/*FI*/}
/*FI*/R=((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0);
return R;
}
/*CST_ATT_REAL*/T0* rT157start_position(T157 *C){
T0* R=NULL;
R=/*XrT*FEATURE_NAME*/((T70*)rT157first_name(C))->_start_position;
return R;
}
/*CST_ATT_REAL*/void rT157collect_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_REAL*/void rT157add_into(T157 *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_REAL*/T0* rT157try_to_undefine(T157 *C,T0* a1,T0* a2){
T0* R=NULL;
XrT71undefine_in(a1,a2);
R=rT157try_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_REAL*/T0* rT157try_to_undefine_aux(T157 *C,T0* a1,T0* a2){
T0* R=NULL;
rT48add_position(rT157start_position(C));
rT157error(/*XrT*FEATURE_NAME*/((T70*)a1)->_start_position,(T0 *)ms1_150);
rT53fatal_undefine((T53*)a2,a1);
return R;
}
/*CST_ATT_REAL*/int rT157stupid_switch(/*C*/T0* a1,T0* a2){
int R=0;
R=1;
return R;
}
/*CST_ATT_REAL*/int rT157can_hide(T157 *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));
rT157error(rT157start_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));
rT157error(rT157start_position(C),(T0 *)ms5_66);
}
 else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) {
rT48add_position(XrT66start_position(a1));
rT157error(rT157start_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(rT157start_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_REAL*/T0* rT157base_class_name(T157 *C){
T0* R=NULL;
R=((T53*)(C)->_base_class)->_base_class_name;
return R;
}
/*CST_ATT_REAL*/T0* rT157value(T157 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
/*CST_ATT_REAL*/void rT157make_e_feature(T157 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}/*CST_ATT_REAL*/void rT157make(T157 *C,T0* a1,T0* a2,T0* a3){
rT157make_e_feature(C,a1,a2);
C->_value_mem=a3;
}/*CST_ATT_DOUBLE*/T0* rT158first_name(T158 *C){
T0* R=NULL;
R=rT130item((T130*)(C)->_names,1);
return R;
}
/*CST_ATT_DOUBLE*/T0* rT158to_run_feature(T158 *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_DOUBLE*/void rT158error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CST_ATT_DOUBLE*/int rT158is_merge_with(T158 *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));
rT158error(rT158start_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));
rT158error(rT158start_position(C),(T0 *)ms2_66);
}
 else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) {
rT48add_position(XrT66start_position(a1));
rT158error(rT158start_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));
rT158error(rT158start_position(C),(T0 *)ms13_66);
}
/*FI*/}
/*FI*/}
/*FI*/R=((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0);
return R;
}
/*CST_ATT_DOUBLE*/T0* rT158start_position(T158 *C){
T0* R=NULL;
R=/*XrT*FEATURE_NAME*/((T70*)rT158first_name(C))->_start_position;
return R;
}
/*CST_ATT_DOUBLE*/void rT158collect_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_DOUBLE*/void rT158add_into(T158 *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_DOUBLE*/T0* rT158try_to_undefine(T158 *C,T0* a1,T0* a2){
T0* R=NULL;
XrT71undefine_in(a1,a2);
R=rT158try_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_DOUBLE*/T0* rT158try_to_undefine_aux(T158 *C,T0* a1,T0* a2){
T0* R=NULL;
rT48add_position(rT158start_position(C));
rT158error(/*XrT*FEATURE_NAME*/((T70*)a1)->_start_position,(T0 *)ms1_150);
rT53fatal_undefine((T53*)a2,a1);
return R;
}
/*CST_ATT_DOUBLE*/int rT158stupid_switch(/*C*/T0* a1,T0* a2){
int R=0;
R=1;
return R;
}
/*CST_ATT_DOUBLE*/int rT158can_hide(T158 *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));
rT158error(rT158start_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));
rT158error(rT158start_position(C),(T0 *)ms5_66);
}
 else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) {
rT48add_position(XrT66start_position(a1));
rT158error(rT158start_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(rT158start_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_DOUBLE*/T0* rT158base_class_name(T158 *C){
T0* R=NULL;
R=((T53*)(C)->_base_class)->_base_class_name;
return R;
}
/*CST_ATT_DOUBLE*/T0* rT158value(T158 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
/*CST_ATT_DOUBLE*/void rT158make_e_feature(T158 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}/*CST_ATT_DOUBLE*/void rT158make(T158 *C,T0* a1,T0* a2,T0* a3){
rT158make_e_feature(C,a1,a2);
C->_value_mem=a3;
}/*CST_ATT_INTEGER*/T0* rT159first_name(T159 *C){
T0* R=NULL;
R=rT130item((T130*)(C)->_names,1);
return R;
}
/*CST_ATT_INTEGER*/T0* rT159to_run_feature(T159 *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_INTEGER*/void rT159error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CST_ATT_INTEGER*/int rT159is_merge_with(T159 *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));
rT159error(rT159start_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));
rT159error(rT159start_position(C),(T0 *)ms2_66);
}
 else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) {
rT48add_position(XrT66start_position(a1));
rT159error(rT159start_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));
rT159error(rT159start_position(C),(T0 *)ms13_66);
}
/*FI*/}
/*FI*/}
/*FI*/R=((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0);
return R;
}
/*CST_ATT_INTEGER*/T0* rT159start_position(T159 *C){
T0* R=NULL;
R=/*XrT*FEATURE_NAME*/((T70*)rT159first_name(C))->_start_position;
return R;
}
/*CST_ATT_INTEGER*/void rT159collect_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_INTEGER*/void rT159add_into(T159 *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_INTEGER*/T0* rT159try_to_undefine(T159 *C,T0* a1,T0* a2){
T0* R=NULL;
XrT71undefine_in(a1,a2);
R=rT159try_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_INTEGER*/T0* rT159try_to_undefine_aux(T159 *C,T0* a1,T0* a2){
T0* R=NULL;
rT48add_position(rT159start_position(C));
rT159error(/*XrT*FEATURE_NAME*/((T70*)a1)->_start_position,(T0 *)ms1_150);
rT53fatal_undefine((T53*)a2,a1);
return R;
}
/*CST_ATT_INTEGER*/int rT159stupid_switch(/*C*/T0* a1,T0* a2){
int R=0;
R=1;
return R;
}
/*CST_ATT_INTEGER*/int rT159can_hide(T159 *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));
rT159error(rT159start_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));
rT159error(rT159start_position(C),(T0 *)ms5_66);
}
 else if ((rT97count((T97*)/*(IRF4*/NULL/*)*/))!=(rT97count((T97*)XrT66arguments(a1)))) {
rT48add_position(XrT66start_position(a1));
rT159error(rT159start_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(rT159start_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_INTEGER*/T0* rT159base_class_name(T159 *C){
T0* R=NULL;
R=((T53*)(C)->_base_class)->_base_class_name;
return R;
}
/*CST_ATT_INTEGER*/T0* rT159value(T159 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
/*CST_ATT_INTEGER*/void rT159make_e_feature(T159 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}/*CST_ATT_INTEGER*/void rT159make(T159 *C,T0* a1,T0* a2,T0* a3){
rT159make_e_feature(C,a1,a2);
C->_value_mem=a3;
}/*E_ENSURE*/int rT161use_current(T161 *C){
int R=0;
int _i=0;
/*IF*/if (((int)(C)->_list)) {
_i=((T162*)(C)->_list)->_upper;
while (!((R)||((_i)==(0)))) {
R=rT68use_current((T68*)rT162item((T162*)(C)->_list,_i));
_i=(_i)-(1);
}
}
/*FI*/return R;
}
/*E_ENSURE*/void rT161add_into(T161 *C,T0* a1){
T0* _a=NULL;
int _i=0;
/*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T162*)(C)->_list)->_upper))) {
_a=rT162item((T162*)(C)->_list,_i);
/*IF*/if (!(rT162fast_has((T162*)a1,_a))) {
rT162add_last((T162*)a1,_a);
}
/*FI*/_i=(_i)+(1);
}
}
/*FI*/}/*E_ENSURE*/void rT161from_runnable(T161 *C,T0* a1){
C->_list=a1;
C->_current_type=((T68*)rT162item((T162*)(C)->_list,1))->_current_type;
}/*E_ENSURE*/void rT161compile_to_c_old(T161 *C){
int _i=0;
/*IF*/if (((int)(C)->_list)) {
_i=((T162*)(C)->_list)->_lower;
while (!((_i)>(((T162*)(C)->_list)->_upper))) {
rT68compile_to_c_old((T68*)rT162item((T162*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*/}/*E_ENSURE*/void rT161compile_to_c(T161 *C){
int _i=0;
/*[IRF3:set_check_assertion_mode*//*AW*/((T44*)oRBC27cpp)->_check_assertion_mode=(/*(IRF4*/(T0 *)ms3_161/*)*/);/*]*/
/*IF*/if (((int)(C)->_list)) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms1_140);
rT44put_string((T44*)oRBC27cpp,/*(IRF4*/(T0 *)ms3_161/*)*/);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms2_140);
rT44put_string((T44*)oRBC27cpp,/*(IRF4*/(T0 *)ms3_161/*)*/);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms3_140);
_i=1;
while (!((_i)>(((T162*)(C)->_list)->_upper))) {
rT68compile_to_c((T68*)rT162item((T162*)(C)->_list,_i));
_i=(_i)+(1);
}
rT44put_string((T44*)oRBC27cpp,(T0 *)ms4_140);
rT44put_string((T44*)oRBC27cpp,/*(IRF4*/(T0 *)ms3_161/*)*/);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms5_140);
}
/*FI*/}/*E_ENSURE*/void rT161make(T161 *C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}/*E_REQUIRE*/int rT139use_current(T139 *C){
int R=0;
int _i=0;
/*IF*/if (((int)(C)->_list)) {
_i=((T162*)(C)->_list)->_upper;
while (!((R)||((_i)==(0)))) {
R=rT68use_current((T68*)rT162item((T162*)(C)->_list,_i));
_i=(_i)-(1);
}
}
/*FI*/return R;
}
/*E_REQUIRE*/int rT139empty(T139 *C){
int R=0;
R=!((C)->_list);
return R;
}
/*E_REQUIRE*/void rT139from_runnable(T139 *C,T0* a1){
C->_list=a1;
C->_current_type=((T68*)rT162item((T162*)(C)->_list,1))->_current_type;
}/*E_REQUIRE*/void rT139compile_to_c(T139 *C){
int _i=0;
/*[IRF3:set_check_assertion_mode*//*AW*/((T44*)oRBC27cpp)->_check_assertion_mode=(/*(IRF4*/(T0 *)ms3_139/*)*/);/*]*/
/*IF*/if (((int)(C)->_list)) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms1_140);
rT44put_string((T44*)oRBC27cpp,/*(IRF4*/(T0 *)ms3_139/*)*/);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms2_140);
rT44put_string((T44*)oRBC27cpp,/*(IRF4*/(T0 *)ms3_139/*)*/);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms3_140);
_i=1;
while (!((_i)>(((T162*)(C)->_list)->_upper))) {
rT68compile_to_c((T68*)rT162item((T162*)(C)->_list,_i));
_i=(_i)+(1);
}
rT44put_string((T44*)oRBC27cpp,(T0 *)ms4_140);
rT44put_string((T44*)oRBC27cpp,/*(IRF4*/(T0 *)ms3_139/*)*/);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms5_140);
}
/*FI*/}/*E_REQUIRE*/void rT139make(T139 *C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}/*E_LOOP*/T0* rT245current_type(T245 *C){
T0* R=NULL;
/*IF*/if (((int)(C)->_run_compound)) {
R=((T142*)(C)->_run_compound)->_current_type;
}
/*FI*/return R;
}
/*E_LOOP*/T0* rT245to_runnable(T245 *C,T0* a1){
T0* R=NULL;
int _loop_check=0;
T0* _ue=NULL;
_loop_check=rT47loop_check((T47*)oRBC27eiffel_run_control);
/*IF*/if (!((C)->_run_compound)) {
C->_run_compound=a1;
/*IF*/if (((int)(C)->_initialize)) {
C->_initialize=rT142to_runnable((T142*)(C)->_initialize,rT245current_type(C));
/*IF*/if (!((C)->_initialize)) {
rT245error((C)->_start_position,(T0 *)ms8_245);
}
/*FI*/}
/*FI*//*IF*/if ((_loop_check)&&(((int)(C)->_invariant_clause))) {
C->_invariant_clause=rT244to_runnable((T244*)(C)->_invariant_clause,((T142*)a1)->_current_type);
/*IF*/if (!((C)->_invariant_clause)) {
rT245error((C)->_start_position,(T0 *)ms9_245);
}
/*FI*/}
/*FI*//*IF*/if ((_loop_check)&&(((int)(C)->_variant_clause))) {
C->_variant_clause=XrT243to_runnable((C)->_variant_clause,rT245current_type(C));
/*IF*/if (!((C)->_variant_clause)) {
rT245error((C)->_start_position,(T0 *)ms10_245);
}
/*FI*/}
/*FI*/_ue=XrT72to_runnable((C)->_until_expression,rT245current_type(C));
/*IF*/if (((int)_ue)) {
/*IF*/if (!(XrT62is_boolean(XrT72result_type(_ue)))) {
rT245error(XrT72start_position(_ue),(T0 *)ms11_245);
rT48add_type(XrT72result_type(_ue),(T0 *)ms107_27);
rT48print_as_error((T48*)oRBC27eh);
}
/*FI*/C->_until_expression=_ue;
}
else {
rT245error((C)->_start_position,(T0 *)ms12_245);
}
/*FI*//*IF*/if (((int)(C)->_loop_body)) {
C->_loop_body=rT142to_runnable((T142*)(C)->_loop_body,rT245current_type(C));
/*IF*/if (!((C)->_loop_body)) {
rT245error((C)->_start_position,(T0 *)ms13_245);
}
/*FI*/}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
{T245 *n=((T245*)se_new(245));
rT245make(n,(C)->_start_position,(C)->_initialize,(C)->_invariant_clause,(C)->_variant_clause,(C)->_until_expression,(C)->_loop_body);
R=(T0 *)n;}
R=rT245to_runnable((T245*)R,a1);
}
/*FI*/return R;
}
/*E_LOOP*/void rT245error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*E_LOOP*/T0* rT245add_comment(T245 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT63count((T63*)a1))==(0))) {
R=(T0 *)C;
}
 else {/*AT*//*IF*/if ((rT63count((T63*)a1))==(1)) {
R=(T0 *)C;
}
else {
{T224 *n=((T224*)se_new(224));
rT224make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/}
/*FI*/return R;
}
/*E_LOOP*/int rT245use_current(T245 *C){
int R=0;
int _loop_check=0;
_loop_check=rT47loop_check((T47*)oRBC27eiffel_run_control);
/*IF*/if ((_loop_check)&&(((int)(C)->_variant_clause))) {
R=(R)||(XrT243use_current((C)->_variant_clause));
}
/*FI*//*IF*/if (((int)(C)->_initialize)) {
R=(R)||(rT142use_current((T142*)(C)->_initialize));
}
/*FI*/R=(R)||(XrT72use_current((C)->_until_expression));
/*IF*/if ((_loop_check)&&(((int)(C)->_invariant_clause))) {
R=(R)||(rT244use_current((T244*)(C)->_invariant_clause));
}
/*FI*//*IF*/if (((int)(C)->_loop_body)) {
R=(R)||(rT142use_current((T142*)(C)->_loop_body));
}
/*FI*/return R;
}
/*E_LOOP*/void rT245compile_to_c(T245 *C){
int _invariant_flag=0;
int _variant_flag=0;
int _loop_check=0;
_loop_check=rT47loop_check((T47*)oRBC27eiffel_run_control);
/*IF*/if ((_loop_check)&&(((int)(C)->_variant_clause))) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms1_245);
_variant_flag=1;
}
/*FI*//*IF*/if (((int)(C)->_initialize)) {
rT142compile_to_c((T142*)(C)->_initialize);
}
/*FI*//*IF*/if ((_loop_check)&&(((int)(C)->_invariant_clause))) {
rT244compile_to_c((T244*)(C)->_invariant_clause);
_invariant_flag=1;
}
/*FI*/rT44put_string((T44*)oRBC27cpp,(T0 *)ms2_245);
/*IF*/if (rT47no_check((T47*)oRBC27eiffel_run_control)) {
rT44trace_boolean_expression((T44*)oRBC27cpp,(C)->_until_expression);
}
else {
XrT72compile_to_c((C)->_until_expression);
}
/*FI*/rT44put_string((T44*)oRBC27cpp,(T0 *)ms3_245);
/*IF*/if (_variant_flag) {
rT44variant_check((T44*)oRBC27cpp,/*XrT*LOOP_VARIANT*/((T246*)(C)->_variant_clause)->_expression);
}
/*FI*//*IF*/if (((int)(C)->_loop_body)) {
rT142compile_to_c((T142*)(C)->_loop_body);
}
/*FI*//*IF*/if (_invariant_flag) {
rT244compile_to_c((T244*)(C)->_invariant_clause);
}
/*FI*/rT44put_string((T44*)oRBC27cpp,(T0 *)ms4_245);
/*IF*/if (_variant_flag) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms5_245);
}
/*FI*/}/*E_LOOP*/void rT245make(T245 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6){
C->_start_position=a1;
C->_initialize=a2;
C->_invariant_clause=a3;
C->_variant_clause=a4;
C->_until_expression=a5;
C->_loop_body=a6;
}/*E_INSPECT*/T0* rT233current_type(T233 *C){
T0* R=NULL;
/*IF*/if (((int)(C)->_run_compound)) {
R=((T142*)(C)->_run_compound)->_current_type;
}
/*FI*/return R;
}
/*E_INSPECT*/T0* rT233twin(T233 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT233copy((T233*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*E_INSPECT*/T0* rT233to_runnable(T233 *C,T0* a1){
T0* R=NULL;
T0* _wl=NULL;
T0* _te=NULL;
T0* _e=NULL;
/*IF*/if (!((C)->_run_compound)) {
C->_run_compound=a1;
_e=XrT72to_runnable((C)->_expression,rT233current_type(C));
/*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
C->_expression=_e;
_te=XrT62run_type(XrT72result_type(_e));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
/*IF*/if (XrT62is_character(_te)) {
/*IF*/if (((int)(C)->_when_list)) {
C->_when_list=rT239to_runnable_character((T239*)(C)->_when_list,(T0 *)C);
/*IF*/if (!((C)->_when_list)) {
rT233error((C)->_start_position,(T0 *)ms10_233);
}
/*FI*/}
/*FI*/}
 else if (XrT62is_integer(_te)) {
/*IF*/if (((int)(C)->_when_list)) {
C->_when_list=rT239to_runnable_integer((T239*)(C)->_when_list,(T0 *)C);
/*IF*/if (!((C)->_when_list)) {
rT233error((C)->_start_position,(T0 *)ms10_233);
}
/*FI*/}
/*FI*/}
else {
rT48append((T0 *)ms5_233);
rT48add_type(_te,(T0 *)ms6_233);
rT48add_position((C)->_start_position);
rT48print_as_error((T48*)oRBC27eh);
}
/*FI*/}
/*FI*//*IF*/if (((int)(C)->_else_compound)) {
C->_else_compound=rT142to_runnable((T142*)(C)->_else_compound,rT233current_type(C));
}
/*FI*/R=(T0 *)C;
}
else {
R=rT233twin(C);
{T239 *n=((T239*)se_new(239));
rT239from_when_list(n,(C)->_when_list);
_wl=(T0 *)n;}
/*[IRF3:set_when_list*//*AW*/((T233*)R)->_when_list=(_wl);/*]*/
/*[IRF3:set_run_compound*//*AW*/((T233*)R)->_run_compound=(NULL);/*]*/
R=rT233to_runnable((T233*)R,a1);
}
/*FI*/return R;
}
/*E_INSPECT*/void rT233error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*E_INSPECT*/T0* rT233add_comment(T233 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT63count((T63*)a1))==(0))) {
R=(T0 *)C;
}
 else {/*AT*//*IF*/if ((rT63count((T63*)a1))==(1)) {
R=(T0 *)C;
}
else {
{T224 *n=((T224*)se_new(224));
rT224make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/}
/*FI*/return R;
}
/*E_INSPECT*/int rT233use_current(T233 *C){
int R=0;
R=(R)||(XrT72use_current((C)->_expression));
/*IF*/if (((int)(C)->_when_list)) {
R=(R)||(rT239use_current((T239*)(C)->_when_list));
}
/*FI*//*IF*/if (((int)(C)->_else_compound)) {
R=(R)||(rT142use_current((T142*)(C)->_else_compound));
}
/*FI*/return R;
}
/*E_INSPECT*/void rT233set_else_compound(T233 *C,T0* a1,T0* a2){
C->_else_position=a1;
C->_else_compound=a2;
}/*E_INSPECT*/void rT233compile_to_c(T233 *C){
int _go_out_inspect=0;
rT44inspect_incr((T44*)oRBC27cpp);
_go_out_inspect=rT44new_goto((T44*)oRBC27cpp);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms1_233);
rT44put_inspect((T44*)oRBC27cpp);
rT44put_character((T44*)oRBC27cpp,'\75');
XrT72compile_to_c((C)->_expression);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms2_233);
/*IF*/if (((int)(C)->_when_list)) {
rT239compile_to_c((T239*)(C)->_when_list,_go_out_inspect);
}
/*FI*//*IF*/if (!((C)->_else_position)) {
/*IF*/if (rT47no_check((T47*)oRBC27eiffel_run_control)) {
rT44put_error1((T44*)oRBC27cpp,(T0 *)ms3_233,(C)->_start_position);
}
/*FI*/}
else {
/*IF*/if (((int)(C)->_else_compound)) {
rT142compile_to_c((T142*)(C)->_else_compound);
}
/*FI*/}
/*FI*/rT44put_goto_label((T44*)oRBC27cpp,_go_out_inspect);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms4_233);
rT44inspect_decr((T44*)oRBC27cpp);
}/*E_INSPECT*/int rT233includes(T233 *C,int a1){
int R=0;
R=rT239includes_integer((T239*)(C)->_when_list,a1);
return R;
}
/*E_INSPECT*/void rT233copy(T233 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*E_INSPECT*/void rT233make(T233 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_expression=a2;
}/*E_INSPECT*/void rT233add_when(T233 *C,T0* a1){
/*IF*/if (!((C)->_when_list)) {
{T239 *n=((T239*)se_new(239));
/*[IRF3:make*//*AW*/(n)->_list=(ma(240,0,1,a1));/*]*/
C->_when_list=(T0 *)n;}
}
else {
rT239add_last((T239*)(C)->_when_list,a1);
}
/*FI*/}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.