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

This is compile_to_c32.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"
/*CALL_INFIX_LE*/T0* rT200twin(T200 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT200copy((T200*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_LE*/int rT200is_static(T200 *C){
int R=0;
/*IF*/if (XrT62is_integer(XrT72result_type((C)->_target))) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT200arg1(C)))) {
R=1;
/*IF*/if ((XrT72static_value((C)->_target))<=(XrT72static_value(rT200arg1(C)))) {
C->_static_value_mem=1;
}
else {
C->_static_value_mem=0;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_LE*/int rT200static_value(T200 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_LE*/void rT200fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_LE*/void rT200cpc_to_runnable(T200 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT200fatal_error((T0 *)ms1_169);
}
/*FI*/C->_target=_t;
_rc=XrT62run_class(XrT72result_type((C)->_target));
C->_run_feature=rT269get_rf((T269*)_rc,(T0 *)C);
}/*CALL_INFIX_LE*/void rT200to_runnable_0(T200 *C,T0* a1){
C->_current_type=a1;
rT200cpc_to_runnable(C,a1);
C->_result_type=/*XrT*RUN_FEATURE*/((T274*)(C)->_run_feature)->_result_type;
/*IF*/if (!((C)->_result_type)) {
rT48add_position(XrT268start_position((C)->_run_feature));
rT200error(((T74*)(C)->_feature_name)->_start_position,(T0 *)ms1_168);
}
 else if (XrT62is_like_current((C)->_result_type)) {
C->_result_type=XrT72result_type((C)->_target);
}
/*FI*/}/*CALL_INFIX_LE*/T0* rT200to_runnable(T200 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT200to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT200error(XrT72start_position(rT200arg1(C)),(T0 *)ms1_179);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT175match_with((T175*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT62is_like_argument((C)->_result_type))) {
C->_result_type=XrT62run_type(XrT72result_type(rT200arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT200twin(C);
/*[IRF3:set_current_type*//*AW*/((T200*)R)->_current_type=(NULL);/*]*/
R=rT200to_runnable((T200*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_LE*/void rT200error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_LE*/T0* rT200add_comment(T200 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT63count((T63*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T228 *n=((T228*)se_new(228));
rT228make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*CALL_INFIX_LE*/T0* rT200arg1(T200 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_LE*/T0* rT200start_position(T200 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_LE*/int rT200use_current(T200 *C){
int R=0;
/*IF*/{/*AT*/R=rT175use_current((T175*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT72is_current((C)->_target)) {
R=XrT268use_current((C)->_run_feature);
}
else {
R=XrT72use_current((C)->_target);
}
/*FI*/return R;
}
/*CALL_INFIX_LE*/void rT200compile_to_c_old(T200 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_LE*/void rT200compile_to_c(T200 *C){
/*IF*/if ((rT47boost((T47*)oRBC27eiffel_run_control))&&(XrT62is_character(XrT62run_type(XrT72result_type((C)->_target))))) {
rT44put_character((T44*)oRBC27cpp,'\50');
XrT72compile_to_c((C)->_target);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms2_200);
XrT72compile_to_c(rT200arg1(C));
rT44put_character((T44*)oRBC27cpp,'\51');
}
else {
rT200call_proc_call_c2c(C);
}
/*FI*/}/*CALL_INFIX_LE*/int rT200to_integer(T200 *C){
int R=0;
rT200error(rT200start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_LE*/void rT200call_proc_call_c2c(T200 *C){
T0* _tt=NULL;
_tt=XrT62run_type(XrT72result_type((C)->_target));
/*IF*/if (((XrT72is_current((C)->_target))||(XrT72is_manifest_string((C)->_target)))||(XrT62is_expanded(_tt))) {
rT44push_direct((T44*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT268mapping_c((C)->_run_feature);
rT44pop((T44*)oRBC27cpp);
}
else {
rT44push_cpc((T44*)oRBC27cpp,(C)->_run_feature,((T269*)XrT62run_class(_tt))->_running,(C)->_target,(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_LE*/void rT200copy(T200 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_LE*/int rT200is_a(T200 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT200start_position(C));
rT200error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_LE*/int rT200is_pre_computable(T200 *C){
int R=0;
R=rT200is_static(C);
return R;
}
/*CALL_INFIX_LE*/void rT200make_call_1(T200 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_LE*/void rT200make(T200 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT200fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,(T0 *)ms1_200,a2);
C->_feature_name=(T0 *)n;}
{T175 *n=((T175*)se_new(175));
/*[IRF3:make*//*AW*/(n)->_list=(ma(85,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT200make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_LT*/T0* rT199twin(T199 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT199copy((T199*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_LT*/int rT199is_static(T199 *C){
int R=0;
/*IF*/if (XrT62is_integer(XrT72result_type((C)->_target))) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT199arg1(C)))) {
R=1;
/*IF*/if ((XrT72static_value((C)->_target))<(XrT72static_value(rT199arg1(C)))) {
C->_static_value_mem=1;
}
else {
C->_static_value_mem=0;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_LT*/int rT199static_value(T199 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_LT*/void rT199fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_LT*/void rT199cpc_to_runnable(T199 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT199fatal_error((T0 *)ms1_169);
}
/*FI*/C->_target=_t;
_rc=XrT62run_class(XrT72result_type((C)->_target));
C->_run_feature=rT269get_rf((T269*)_rc,(T0 *)C);
}/*CALL_INFIX_LT*/void rT199to_runnable_0(T199 *C,T0* a1){
C->_current_type=a1;
rT199cpc_to_runnable(C,a1);
C->_result_type=/*XrT*RUN_FEATURE*/((T274*)(C)->_run_feature)->_result_type;
/*IF*/if (!((C)->_result_type)) {
rT48add_position(XrT268start_position((C)->_run_feature));
rT199error(((T74*)(C)->_feature_name)->_start_position,(T0 *)ms1_168);
}
 else if (XrT62is_like_current((C)->_result_type)) {
C->_result_type=XrT72result_type((C)->_target);
}
/*FI*/}/*CALL_INFIX_LT*/T0* rT199to_runnable(T199 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT199to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT199error(XrT72start_position(rT199arg1(C)),(T0 *)ms1_179);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT175match_with((T175*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT62is_like_argument((C)->_result_type))) {
C->_result_type=XrT62run_type(XrT72result_type(rT199arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT199twin(C);
/*[IRF3:set_current_type*//*AW*/((T199*)R)->_current_type=(NULL);/*]*/
R=rT199to_runnable((T199*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_LT*/void rT199error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_LT*/T0* rT199add_comment(T199 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT63count((T63*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T228 *n=((T228*)se_new(228));
rT228make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*CALL_INFIX_LT*/T0* rT199arg1(T199 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_LT*/T0* rT199start_position(T199 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_LT*/int rT199use_current(T199 *C){
int R=0;
/*IF*/{/*AT*/R=rT175use_current((T175*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT72is_current((C)->_target)) {
R=XrT268use_current((C)->_run_feature);
}
else {
R=XrT72use_current((C)->_target);
}
/*FI*/return R;
}
/*CALL_INFIX_LT*/void rT199compile_to_c_old(T199 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_LT*/void rT199compile_to_c(T199 *C){
/*IF*/if ((rT47boost((T47*)oRBC27eiffel_run_control))&&(XrT62is_character(XrT62run_type(XrT72result_type((C)->_target))))) {
rT44put_character((T44*)oRBC27cpp,'\50');
XrT72compile_to_c((C)->_target);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms2_199);
XrT72compile_to_c(rT199arg1(C));
rT44put_character((T44*)oRBC27cpp,'\51');
}
else {
rT199call_proc_call_c2c(C);
}
/*FI*/}/*CALL_INFIX_LT*/int rT199to_integer(T199 *C){
int R=0;
rT199error(rT199start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_LT*/void rT199call_proc_call_c2c(T199 *C){
T0* _tt=NULL;
_tt=XrT62run_type(XrT72result_type((C)->_target));
/*IF*/if (((XrT72is_current((C)->_target))||(XrT72is_manifest_string((C)->_target)))||(XrT62is_expanded(_tt))) {
rT44push_direct((T44*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT268mapping_c((C)->_run_feature);
rT44pop((T44*)oRBC27cpp);
}
else {
rT44push_cpc((T44*)oRBC27cpp,(C)->_run_feature,((T269*)XrT62run_class(_tt))->_running,(C)->_target,(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_LT*/void rT199copy(T199 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_LT*/int rT199is_a(T199 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT199start_position(C));
rT199error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_LT*/int rT199is_pre_computable(T199 *C){
int R=0;
R=rT199is_static(C);
return R;
}
/*CALL_INFIX_LT*/void rT199make_call_1(T199 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_LT*/void rT199make(T199 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT199fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,(T0 *)ms1_199,a2);
C->_feature_name=(T0 *)n;}
{T175 *n=((T175*)se_new(175));
/*[IRF3:make*//*AW*/(n)->_list=(ma(85,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT199make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_GE*/T0* rT198twin(T198 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT198copy((T198*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_GE*/int rT198is_static(T198 *C){
int R=0;
/*IF*/if (XrT62is_integer(XrT72result_type((C)->_target))) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT198arg1(C)))) {
R=1;
/*IF*/if ((XrT72static_value((C)->_target))>=(XrT72static_value(rT198arg1(C)))) {
C->_static_value_mem=1;
}
else {
C->_static_value_mem=0;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_GE*/int rT198static_value(T198 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_GE*/void rT198fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_GE*/void rT198cpc_to_runnable(T198 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT198fatal_error((T0 *)ms1_169);
}
/*FI*/C->_target=_t;
_rc=XrT62run_class(XrT72result_type((C)->_target));
C->_run_feature=rT269get_rf((T269*)_rc,(T0 *)C);
}/*CALL_INFIX_GE*/void rT198to_runnable_0(T198 *C,T0* a1){
C->_current_type=a1;
rT198cpc_to_runnable(C,a1);
C->_result_type=/*XrT*RUN_FEATURE*/((T274*)(C)->_run_feature)->_result_type;
/*IF*/if (!((C)->_result_type)) {
rT48add_position(XrT268start_position((C)->_run_feature));
rT198error(((T74*)(C)->_feature_name)->_start_position,(T0 *)ms1_168);
}
 else if (XrT62is_like_current((C)->_result_type)) {
C->_result_type=XrT72result_type((C)->_target);
}
/*FI*/}/*CALL_INFIX_GE*/T0* rT198to_runnable(T198 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT198to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT198error(XrT72start_position(rT198arg1(C)),(T0 *)ms1_179);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT175match_with((T175*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT62is_like_argument((C)->_result_type))) {
C->_result_type=XrT62run_type(XrT72result_type(rT198arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT198twin(C);
/*[IRF3:set_current_type*//*AW*/((T198*)R)->_current_type=(NULL);/*]*/
R=rT198to_runnable((T198*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_GE*/void rT198error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_GE*/T0* rT198add_comment(T198 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT63count((T63*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T228 *n=((T228*)se_new(228));
rT228make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*CALL_INFIX_GE*/T0* rT198arg1(T198 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_GE*/T0* rT198start_position(T198 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_GE*/int rT198use_current(T198 *C){
int R=0;
/*IF*/{/*AT*/R=rT175use_current((T175*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT72is_current((C)->_target)) {
R=XrT268use_current((C)->_run_feature);
}
else {
R=XrT72use_current((C)->_target);
}
/*FI*/return R;
}
/*CALL_INFIX_GE*/void rT198compile_to_c_old(T198 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_GE*/void rT198compile_to_c(T198 *C){
/*IF*/if ((rT47boost((T47*)oRBC27eiffel_run_control))&&(XrT62is_character(XrT62run_type(XrT72result_type((C)->_target))))) {
rT44put_character((T44*)oRBC27cpp,'\50');
XrT72compile_to_c((C)->_target);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms2_198);
XrT72compile_to_c(rT198arg1(C));
rT44put_character((T44*)oRBC27cpp,'\51');
}
else {
rT198call_proc_call_c2c(C);
}
/*FI*/}/*CALL_INFIX_GE*/int rT198to_integer(T198 *C){
int R=0;
rT198error(rT198start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_GE*/void rT198call_proc_call_c2c(T198 *C){
T0* _tt=NULL;
_tt=XrT62run_type(XrT72result_type((C)->_target));
/*IF*/if (((XrT72is_current((C)->_target))||(XrT72is_manifest_string((C)->_target)))||(XrT62is_expanded(_tt))) {
rT44push_direct((T44*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT268mapping_c((C)->_run_feature);
rT44pop((T44*)oRBC27cpp);
}
else {
rT44push_cpc((T44*)oRBC27cpp,(C)->_run_feature,((T269*)XrT62run_class(_tt))->_running,(C)->_target,(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_GE*/void rT198copy(T198 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_GE*/int rT198is_a(T198 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT198start_position(C));
rT198error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_GE*/int rT198is_pre_computable(T198 *C){
int R=0;
R=rT198is_static(C);
return R;
}
/*CALL_INFIX_GE*/void rT198make_call_1(T198 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_GE*/void rT198make(T198 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT198fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,(T0 *)ms1_198,a2);
C->_feature_name=(T0 *)n;}
{T175 *n=((T175*)se_new(175));
/*[IRF3:make*//*AW*/(n)->_list=(ma(85,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT198make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_GT*/T0* rT197twin(T197 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT197copy((T197*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_GT*/int rT197is_static(T197 *C){
int R=0;
/*IF*/if (XrT62is_integer(XrT72result_type((C)->_target))) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT197arg1(C)))) {
R=1;
/*IF*/if ((XrT72static_value((C)->_target))>(XrT72static_value(rT197arg1(C)))) {
C->_static_value_mem=1;
}
else {
C->_static_value_mem=0;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_GT*/int rT197static_value(T197 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_GT*/void rT197fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_GT*/void rT197cpc_to_runnable(T197 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT197fatal_error((T0 *)ms1_169);
}
/*FI*/C->_target=_t;
_rc=XrT62run_class(XrT72result_type((C)->_target));
C->_run_feature=rT269get_rf((T269*)_rc,(T0 *)C);
}/*CALL_INFIX_GT*/void rT197to_runnable_0(T197 *C,T0* a1){
C->_current_type=a1;
rT197cpc_to_runnable(C,a1);
C->_result_type=/*XrT*RUN_FEATURE*/((T274*)(C)->_run_feature)->_result_type;
/*IF*/if (!((C)->_result_type)) {
rT48add_position(XrT268start_position((C)->_run_feature));
rT197error(((T74*)(C)->_feature_name)->_start_position,(T0 *)ms1_168);
}
 else if (XrT62is_like_current((C)->_result_type)) {
C->_result_type=XrT72result_type((C)->_target);
}
/*FI*/}/*CALL_INFIX_GT*/T0* rT197to_runnable(T197 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT197to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT197error(XrT72start_position(rT197arg1(C)),(T0 *)ms1_179);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT175match_with((T175*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT62is_like_argument((C)->_result_type))) {
C->_result_type=XrT62run_type(XrT72result_type(rT197arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT197twin(C);
/*[IRF3:set_current_type*//*AW*/((T197*)R)->_current_type=(NULL);/*]*/
R=rT197to_runnable((T197*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_GT*/void rT197error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_GT*/T0* rT197add_comment(T197 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT63count((T63*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T228 *n=((T228*)se_new(228));
rT228make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*CALL_INFIX_GT*/T0* rT197arg1(T197 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_GT*/T0* rT197start_position(T197 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_GT*/int rT197use_current(T197 *C){
int R=0;
/*IF*/{/*AT*/R=rT175use_current((T175*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT72is_current((C)->_target)) {
R=XrT268use_current((C)->_run_feature);
}
else {
R=XrT72use_current((C)->_target);
}
/*FI*/return R;
}
/*CALL_INFIX_GT*/void rT197compile_to_c_old(T197 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_GT*/void rT197compile_to_c(T197 *C){
/*IF*/if ((rT47boost((T47*)oRBC27eiffel_run_control))&&(XrT62is_character(XrT62run_type(XrT72result_type((C)->_target))))) {
rT44put_character((T44*)oRBC27cpp,'\50');
XrT72compile_to_c((C)->_target);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms2_197);
XrT72compile_to_c(rT197arg1(C));
rT44put_character((T44*)oRBC27cpp,'\51');
}
else {
rT197call_proc_call_c2c(C);
}
/*FI*/}/*CALL_INFIX_GT*/int rT197to_integer(T197 *C){
int R=0;
rT197error(rT197start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_GT*/void rT197call_proc_call_c2c(T197 *C){
T0* _tt=NULL;
_tt=XrT62run_type(XrT72result_type((C)->_target));
/*IF*/if (((XrT72is_current((C)->_target))||(XrT72is_manifest_string((C)->_target)))||(XrT62is_expanded(_tt))) {
rT44push_direct((T44*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT268mapping_c((C)->_run_feature);
rT44pop((T44*)oRBC27cpp);
}
else {
rT44push_cpc((T44*)oRBC27cpp,(C)->_run_feature,((T269*)XrT62run_class(_tt))->_running,(C)->_target,(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_GT*/void rT197copy(T197 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_GT*/int rT197is_a(T197 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT197start_position(C));
rT197error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_GT*/int rT197is_pre_computable(T197 *C){
int R=0;
R=rT197is_static(C);
return R;
}
/*CALL_INFIX_GT*/void rT197make_call_1(T197 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_GT*/void rT197make(T197 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT197fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,(T0 *)ms1_197,a2);
C->_feature_name=(T0 *)n;}
{T175 *n=((T175*)se_new(175));
/*[IRF3:make*//*AW*/(n)->_list=(ma(85,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT197make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_PLUS*/T0* rT196twin(T196 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT196copy((T196*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_PLUS*/int rT196is_static(T196 *C){
int R=0;
/*IF*/if (XrT62is_integer((C)->_result_type)) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT196arg1(C)))) {
R=1;
C->_static_value_mem=(XrT72static_value((C)->_target))+(XrT72static_value(rT196arg1(C)));
}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_PLUS*/int rT196static_value(T196 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_PLUS*/void rT196fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_PLUS*/void rT196cpc_to_runnable(T196 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT196fatal_error((T0 *)ms1_169);
}
/*FI*/C->_target=_t;
_rc=XrT62run_class(XrT72result_type((C)->_target));
C->_run_feature=rT269get_rf((T269*)_rc,(T0 *)C);
}/*CALL_INFIX_PLUS*/void rT196to_runnable_0(T196 *C,T0* a1){
C->_current_type=a1;
rT196cpc_to_runnable(C,a1);
C->_result_type=/*XrT*RUN_FEATURE*/((T274*)(C)->_run_feature)->_result_type;
/*IF*/if (!((C)->_result_type)) {
rT48add_position(XrT268start_position((C)->_run_feature));
rT196error(((T74*)(C)->_feature_name)->_start_position,(T0 *)ms1_168);
}
 else if (XrT62is_like_current((C)->_result_type)) {
C->_result_type=XrT72result_type((C)->_target);
}
/*FI*/}/*CALL_INFIX_PLUS*/T0* rT196to_runnable(T196 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT196to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT196error(XrT72start_position(rT196arg1(C)),(T0 *)ms1_179);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT175match_with((T175*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT62is_like_argument((C)->_result_type))) {
C->_result_type=XrT62run_type(XrT72result_type(rT196arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT196twin(C);
/*[IRF3:set_current_type*//*AW*/((T196*)R)->_current_type=(NULL);/*]*/
R=rT196to_runnable((T196*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_PLUS*/void rT196error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_PLUS*/T0* rT196add_comment(T196 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT63count((T63*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T228 *n=((T228*)se_new(228));
rT228make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*CALL_INFIX_PLUS*/T0* rT196arg1(T196 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_PLUS*/T0* rT196start_position(T196 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_PLUS*/int rT196use_current(T196 *C){
int R=0;
/*IF*/{/*AT*/R=rT175use_current((T175*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT72is_current((C)->_target)) {
R=XrT268use_current((C)->_run_feature);
}
else {
R=XrT72use_current((C)->_target);
}
/*FI*/return R;
}
/*CALL_INFIX_PLUS*/void rT196compile_to_c_old(T196 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_PLUS*/void rT196compile_to_c(T196 *C){
rT196call_proc_call_c2c(C);
}/*CALL_INFIX_PLUS*/int rT196to_integer(T196 *C){
int R=0;
rT196error(rT196start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_PLUS*/void rT196call_proc_call_c2c(T196 *C){
T0* _tt=NULL;
_tt=XrT62run_type(XrT72result_type((C)->_target));
/*IF*/if (((XrT72is_current((C)->_target))||(XrT72is_manifest_string((C)->_target)))||(XrT62is_expanded(_tt))) {
rT44push_direct((T44*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT268mapping_c((C)->_run_feature);
rT44pop((T44*)oRBC27cpp);
}
else {
rT44push_cpc((T44*)oRBC27cpp,(C)->_run_feature,((T269*)XrT62run_class(_tt))->_running,(C)->_target,(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_PLUS*/void rT196copy(T196 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_PLUS*/int rT196is_a(T196 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT196start_position(C));
rT196error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_PLUS*/int rT196is_pre_computable(T196 *C){
int R=0;
R=rT196is_static(C);
return R;
}
/*CALL_INFIX_PLUS*/void rT196make_call_1(T196 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_PLUS*/void rT196make(T196 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT196fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,/*(IRF4*/(T0 *)ms95_27/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T175 *n=((T175*)se_new(175));
/*[IRF3:make*//*AW*/(n)->_list=(ma(85,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT196make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_MINUS*/T0* rT195twin(T195 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT195copy((T195*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_MINUS*/int rT195is_static(T195 *C){
int R=0;
/*IF*/if (XrT62is_integer((C)->_result_type)) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT195arg1(C)))) {
R=1;
C->_static_value_mem=(XrT72static_value((C)->_target))-(XrT72static_value(rT195arg1(C)));
}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_MINUS*/int rT195static_value(T195 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_MINUS*/void rT195fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_MINUS*/void rT195cpc_to_runnable(T195 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT195fatal_error((T0 *)ms1_169);
}
/*FI*/C->_target=_t;
_rc=XrT62run_class(XrT72result_type((C)->_target));
C->_run_feature=rT269get_rf((T269*)_rc,(T0 *)C);
}/*CALL_INFIX_MINUS*/void rT195to_runnable_0(T195 *C,T0* a1){
C->_current_type=a1;
rT195cpc_to_runnable(C,a1);
C->_result_type=/*XrT*RUN_FEATURE*/((T274*)(C)->_run_feature)->_result_type;
/*IF*/if (!((C)->_result_type)) {
rT48add_position(XrT268start_position((C)->_run_feature));
rT195error(((T74*)(C)->_feature_name)->_start_position,(T0 *)ms1_168);
}
 else if (XrT62is_like_current((C)->_result_type)) {
C->_result_type=XrT72result_type((C)->_target);
}
/*FI*/}/*CALL_INFIX_MINUS*/T0* rT195to_runnable(T195 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT195to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT195error(XrT72start_position(rT195arg1(C)),(T0 *)ms1_179);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT175match_with((T175*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT62is_like_argument((C)->_result_type))) {
C->_result_type=XrT62run_type(XrT72result_type(rT195arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT195twin(C);
/*[IRF3:set_current_type*//*AW*/((T195*)R)->_current_type=(NULL);/*]*/
R=rT195to_runnable((T195*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_MINUS*/void rT195error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_MINUS*/T0* rT195add_comment(T195 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT63count((T63*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T228 *n=((T228*)se_new(228));
rT228make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*CALL_INFIX_MINUS*/T0* rT195arg1(T195 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_MINUS*/T0* rT195start_position(T195 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_MINUS*/int rT195use_current(T195 *C){
int R=0;
/*IF*/{/*AT*/R=rT175use_current((T175*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT72is_current((C)->_target)) {
R=XrT268use_current((C)->_run_feature);
}
else {
R=XrT72use_current((C)->_target);
}
/*FI*/return R;
}
/*CALL_INFIX_MINUS*/void rT195compile_to_c_old(T195 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_MINUS*/void rT195compile_to_c(T195 *C){
rT195call_proc_call_c2c(C);
}/*CALL_INFIX_MINUS*/int rT195to_integer(T195 *C){
int R=0;
rT195error(rT195start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_MINUS*/void rT195call_proc_call_c2c(T195 *C){
T0* _tt=NULL;
_tt=XrT62run_type(XrT72result_type((C)->_target));
/*IF*/if (((XrT72is_current((C)->_target))||(XrT72is_manifest_string((C)->_target)))||(XrT62is_expanded(_tt))) {
rT44push_direct((T44*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT268mapping_c((C)->_run_feature);
rT44pop((T44*)oRBC27cpp);
}
else {
rT44push_cpc((T44*)oRBC27cpp,(C)->_run_feature,((T269*)XrT62run_class(_tt))->_running,(C)->_target,(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_MINUS*/void rT195copy(T195 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_MINUS*/int rT195is_a(T195 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT195start_position(C));
rT195error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_MINUS*/int rT195is_pre_computable(T195 *C){
int R=0;
R=rT195is_static(C);
return R;
}
/*CALL_INFIX_MINUS*/void rT195make_call_1(T195 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_MINUS*/void rT195make(T195 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT195fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,/*(IRF4*/(T0 *)ms96_27/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T175 *n=((T175*)se_new(175));
/*[IRF3:make*//*AW*/(n)->_list=(ma(85,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT195make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_TIMES*/T0* rT194twin(T194 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT194copy((T194*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_TIMES*/int rT194is_static(T194 *C){
int R=0;
/*IF*/if (XrT62is_integer((C)->_result_type)) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT194arg1(C)))) {
R=1;
C->_static_value_mem=(XrT72static_value((C)->_target))*(XrT72static_value(rT194arg1(C)));
}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_TIMES*/int rT194static_value(T194 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_TIMES*/void rT194fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_TIMES*/void rT194cpc_to_runnable(T194 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT194fatal_error((T0 *)ms1_169);
}
/*FI*/C->_target=_t;
_rc=XrT62run_class(XrT72result_type((C)->_target));
C->_run_feature=rT269get_rf((T269*)_rc,(T0 *)C);
}/*CALL_INFIX_TIMES*/void rT194to_runnable_0(T194 *C,T0* a1){
C->_current_type=a1;
rT194cpc_to_runnable(C,a1);
C->_result_type=/*XrT*RUN_FEATURE*/((T274*)(C)->_run_feature)->_result_type;
/*IF*/if (!((C)->_result_type)) {
rT48add_position(XrT268start_position((C)->_run_feature));
rT194error(((T74*)(C)->_feature_name)->_start_position,(T0 *)ms1_168);
}
 else if (XrT62is_like_current((C)->_result_type)) {
C->_result_type=XrT72result_type((C)->_target);
}
/*FI*/}/*CALL_INFIX_TIMES*/T0* rT194to_runnable(T194 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT194to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT194error(XrT72start_position(rT194arg1(C)),(T0 *)ms1_179);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT175match_with((T175*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT62is_like_argument((C)->_result_type))) {
C->_result_type=XrT62run_type(XrT72result_type(rT194arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT194twin(C);
/*[IRF3:set_current_type*//*AW*/((T194*)R)->_current_type=(NULL);/*]*/
R=rT194to_runnable((T194*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_TIMES*/void rT194error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_TIMES*/T0* rT194add_comment(T194 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT63count((T63*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T228 *n=((T228*)se_new(228));
rT228make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*CALL_INFIX_TIMES*/T0* rT194arg1(T194 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_TIMES*/T0* rT194start_position(T194 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_TIMES*/int rT194use_current(T194 *C){
int R=0;
/*IF*/{/*AT*/R=rT175use_current((T175*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT72is_current((C)->_target)) {
R=XrT268use_current((C)->_run_feature);
}
else {
R=XrT72use_current((C)->_target);
}
/*FI*/return R;
}
/*CALL_INFIX_TIMES*/void rT194compile_to_c_old(T194 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_TIMES*/void rT194compile_to_c(T194 *C){
rT194call_proc_call_c2c(C);
}/*CALL_INFIX_TIMES*/int rT194to_integer(T194 *C){
int R=0;
rT194error(rT194start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_TIMES*/void rT194call_proc_call_c2c(T194 *C){
T0* _tt=NULL;
_tt=XrT62run_type(XrT72result_type((C)->_target));
/*IF*/if (((XrT72is_current((C)->_target))||(XrT72is_manifest_string((C)->_target)))||(XrT62is_expanded(_tt))) {
rT44push_direct((T44*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT268mapping_c((C)->_run_feature);
rT44pop((T44*)oRBC27cpp);
}
else {
rT44push_cpc((T44*)oRBC27cpp,(C)->_run_feature,((T269*)XrT62run_class(_tt))->_running,(C)->_target,(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_TIMES*/void rT194copy(T194 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_TIMES*/int rT194is_a(T194 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT194start_position(C));
rT194error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_TIMES*/int rT194is_pre_computable(T194 *C){
int R=0;
R=rT194is_static(C);
return R;
}
/*CALL_INFIX_TIMES*/void rT194make_call_1(T194 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_TIMES*/void rT194make(T194 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT194fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,(T0 *)ms1_194,a2);
C->_feature_name=(T0 *)n;}
{T175 *n=((T175*)se_new(175));
/*[IRF3:make*//*AW*/(n)->_list=(ma(85,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT194make_call_1(C,a1,(C)->_feature_name,_eal);
}

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