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

This is compile_to_c30.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_OR_ELSE*/T0* rT207twin(T207 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT207copy((T207*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_OR_ELSE*/int rT207is_static(T207 *C){
int R=0;
/*IF*/if (XrT62is_boolean(XrT72result_type((C)->_target))) {
/*IF*/if (XrT72is_static((C)->_target)) {
/*IF*/if ((XrT72static_value((C)->_target))==(1)) {
R=1;
C->_static_value_mem=1;
}
else {
R=XrT72is_static(rT207arg1(C));
C->_static_value_mem=XrT72static_value(rT207arg1(C));
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_OR_ELSE*/int rT207static_value(T207 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_OR_ELSE*/void rT207fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_OR_ELSE*/void rT207cpc_to_runnable(T207 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT207fatal_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_OR_ELSE*/void rT207to_runnable_0(T207 *C,T0* a1){
C->_current_type=a1;
rT207cpc_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));
rT207error(((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_OR_ELSE*/T0* rT207to_runnable(T207 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT207to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT207error(XrT72start_position(rT207arg1(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(rT207arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT207twin(C);
/*[IRF3:set_current_type*//*AW*/((T207*)R)->_current_type=(NULL);/*]*/
R=rT207to_runnable((T207*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_OR_ELSE*/void rT207error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_OR_ELSE*/T0* rT207add_comment(T207 *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_OR_ELSE*/T0* rT207arg1(T207 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_OR_ELSE*/T0* rT207start_position(T207 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_OR_ELSE*/int rT207use_current(T207 *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_OR_ELSE*/void rT207compile_to_c_old(T207 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_OR_ELSE*/void rT207compile_to_c(T207 *C){
rT207call_proc_call_c2c(C);
}/*CALL_INFIX_OR_ELSE*/int rT207to_integer(T207 *C){
int R=0;
rT207error(rT207start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_OR_ELSE*/void rT207call_proc_call_c2c(T207 *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_OR_ELSE*/void rT207copy(T207 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_OR_ELSE*/int rT207is_a(T207 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT207start_position(C));
rT207error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_OR_ELSE*/int rT207is_pre_computable(T207 *C){
int R=0;
R=rT207is_static(C);
return R;
}
/*CALL_INFIX_OR_ELSE*/void rT207make_call_1(T207 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_OR_ELSE*/void rT207make(T207 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT207fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,/*(IRF4*/(T0 *)ms82_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;}
rT207make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_OR*/T0* rT206twin(T206 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT206copy((T206*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_OR*/int rT206is_static(T206 *C){
int R=0;
/*IF*/if (XrT62is_boolean(XrT72result_type((C)->_target))) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT206arg1(C)))) {
R=1;
C->_static_value_mem=(XrT72static_value((C)->_target))+(XrT72static_value(rT206arg1(C)));
/*IF*/if (((C)->_static_value_mem)==(2)) {
C->_static_value_mem=1;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_OR*/int rT206static_value(T206 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_OR*/void rT206fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_OR*/void rT206cpc_to_runnable(T206 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT206fatal_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_OR*/void rT206to_runnable_0(T206 *C,T0* a1){
C->_current_type=a1;
rT206cpc_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));
rT206error(((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_OR*/T0* rT206to_runnable(T206 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT206to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT206error(XrT72start_position(rT206arg1(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(rT206arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT206twin(C);
/*[IRF3:set_current_type*//*AW*/((T206*)R)->_current_type=(NULL);/*]*/
R=rT206to_runnable((T206*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_OR*/void rT206error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_OR*/T0* rT206add_comment(T206 *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_OR*/T0* rT206arg1(T206 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_OR*/T0* rT206start_position(T206 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_OR*/int rT206use_current(T206 *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_OR*/void rT206compile_to_c_old(T206 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_OR*/void rT206compile_to_c(T206 *C){
/*IF*/if ((rT47boost((T47*)oRBC27eiffel_run_control))&&(XrT62is_boolean(XrT62run_type(XrT72result_type((C)->_target))))) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms1_206);
XrT72compile_to_c((C)->_target);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms2_206);
XrT72compile_to_c(rT206arg1(C));
rT44put_string((T44*)oRBC27cpp,(T0 *)ms3_206);
}
else {
rT206call_proc_call_c2c(C);
}
/*FI*/}/*CALL_INFIX_OR*/int rT206to_integer(T206 *C){
int R=0;
rT206error(rT206start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_OR*/void rT206call_proc_call_c2c(T206 *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_OR*/void rT206copy(T206 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_OR*/int rT206is_a(T206 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT206start_position(C));
rT206error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_OR*/int rT206is_pre_computable(T206 *C){
int R=0;
R=rT206is_static(C);
return R;
}
/*CALL_INFIX_OR*/void rT206make_call_1(T206 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_OR*/void rT206make(T206 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT206fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,/*(IRF4*/(T0 *)ms81_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;}
rT206make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_XOR*/T0* rT205twin(T205 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT205copy((T205*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_XOR*/int rT205is_static(T205 *C){
int R=0;
/*IF*/if (XrT62is_boolean(XrT72result_type((C)->_target))) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT205arg1(C)))) {
R=1;
C->_static_value_mem=(XrT72static_value((C)->_target))+(XrT72static_value(rT205arg1(C)));
/*IF*/if (((C)->_static_value_mem)==(1)) {
C->_static_value_mem=1;
}
else {
C->_static_value_mem=0;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_XOR*/int rT205static_value(T205 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_XOR*/void rT205fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_XOR*/void rT205cpc_to_runnable(T205 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT205fatal_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_XOR*/void rT205to_runnable_0(T205 *C,T0* a1){
C->_current_type=a1;
rT205cpc_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));
rT205error(((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_XOR*/T0* rT205to_runnable(T205 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT205to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT205error(XrT72start_position(rT205arg1(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(rT205arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT205twin(C);
/*[IRF3:set_current_type*//*AW*/((T205*)R)->_current_type=(NULL);/*]*/
R=rT205to_runnable((T205*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_XOR*/void rT205error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_XOR*/T0* rT205add_comment(T205 *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_XOR*/T0* rT205arg1(T205 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_XOR*/T0* rT205start_position(T205 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_XOR*/int rT205use_current(T205 *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_XOR*/void rT205compile_to_c_old(T205 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_XOR*/void rT205compile_to_c(T205 *C){
rT205call_proc_call_c2c(C);
}/*CALL_INFIX_XOR*/int rT205to_integer(T205 *C){
int R=0;
rT205error(rT205start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_XOR*/void rT205call_proc_call_c2c(T205 *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_XOR*/void rT205copy(T205 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_XOR*/int rT205is_a(T205 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT205start_position(C));
rT205error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_XOR*/int rT205is_pre_computable(T205 *C){
int R=0;
R=rT205is_static(C);
return R;
}
/*CALL_INFIX_XOR*/void rT205make_call_1(T205 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_XOR*/void rT205make(T205 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT205fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,/*(IRF4*/(T0 *)ms122_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;}
rT205make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_AND_THEN*/T0* rT204twin(T204 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT204copy((T204*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_AND_THEN*/int rT204is_static(T204 *C){
int R=0;
/*IF*/if (XrT62is_boolean(XrT72result_type((C)->_target))) {
/*IF*/if (XrT72is_static((C)->_target)) {
/*IF*/if ((XrT72static_value((C)->_target))==(0)) {
R=1;
}
else {
R=XrT72is_static(rT204arg1(C));
C->_static_value_mem=XrT72static_value(rT204arg1(C));
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_AND_THEN*/int rT204static_value(T204 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_AND_THEN*/void rT204fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_AND_THEN*/void rT204cpc_to_runnable(T204 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT204fatal_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_AND_THEN*/void rT204to_runnable_0(T204 *C,T0* a1){
C->_current_type=a1;
rT204cpc_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));
rT204error(((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_AND_THEN*/T0* rT204to_runnable(T204 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT204to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT204error(XrT72start_position(rT204arg1(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(rT204arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT204twin(C);
/*[IRF3:set_current_type*//*AW*/((T204*)R)->_current_type=(NULL);/*]*/
R=rT204to_runnable((T204*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_AND_THEN*/void rT204error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_AND_THEN*/T0* rT204add_comment(T204 *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_AND_THEN*/T0* rT204arg1(T204 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_AND_THEN*/T0* rT204start_position(T204 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_AND_THEN*/int rT204use_current(T204 *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_AND_THEN*/void rT204compile_to_c_old(T204 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_AND_THEN*/void rT204compile_to_c(T204 *C){
rT204call_proc_call_c2c(C);
}/*CALL_INFIX_AND_THEN*/int rT204to_integer(T204 *C){
int R=0;
rT204error(rT204start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_AND_THEN*/void rT204call_proc_call_c2c(T204 *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_AND_THEN*/void rT204copy(T204 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_AND_THEN*/int rT204is_a(T204 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT204start_position(C));
rT204error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_AND_THEN*/int rT204is_pre_computable(T204 *C){
int R=0;
R=rT204is_static(C);
return R;
}
/*CALL_INFIX_AND_THEN*/void rT204make_call_1(T204 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_AND_THEN*/void rT204make(T204 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT204fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,/*(IRF4*/(T0 *)ms60_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;}
rT204make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_AND*/T0* rT203twin(T203 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT203copy((T203*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_AND*/int rT203is_static(T203 *C){
int R=0;
/*IF*/if (XrT62is_boolean(XrT72result_type((C)->_target))) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT203arg1(C)))) {
R=1;
C->_static_value_mem=(XrT72static_value((C)->_target))+(XrT72static_value(rT203arg1(C)));
/*IF*/if (((C)->_static_value_mem)==(2)) {
C->_static_value_mem=1;
}
else {
C->_static_value_mem=0;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_AND*/int rT203static_value(T203 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_AND*/void rT203fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_AND*/void rT203cpc_to_runnable(T203 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT203fatal_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_AND*/void rT203to_runnable_0(T203 *C,T0* a1){
C->_current_type=a1;
rT203cpc_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));
rT203error(((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_AND*/T0* rT203to_runnable(T203 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT203to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT203error(XrT72start_position(rT203arg1(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(rT203arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT203twin(C);
/*[IRF3:set_current_type*//*AW*/((T203*)R)->_current_type=(NULL);/*]*/
R=rT203to_runnable((T203*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_AND*/void rT203error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_AND*/T0* rT203add_comment(T203 *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_AND*/T0* rT203arg1(T203 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_AND*/T0* rT203start_position(T203 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_AND*/int rT203use_current(T203 *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_AND*/void rT203compile_to_c_old(T203 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_AND*/void rT203compile_to_c(T203 *C){
/*IF*/if ((rT47boost((T47*)oRBC27eiffel_run_control))&&(XrT62is_boolean(XrT62run_type(XrT72result_type((C)->_target))))) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms1_203);
XrT72compile_to_c((C)->_target);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms2_203);
XrT72compile_to_c(rT203arg1(C));
rT44put_string((T44*)oRBC27cpp,(T0 *)ms3_203);
}
else {
rT203call_proc_call_c2c(C);
}
/*FI*/}/*CALL_INFIX_AND*/int rT203to_integer(T203 *C){
int R=0;
rT203error(rT203start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_AND*/void rT203call_proc_call_c2c(T203 *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_AND*/void rT203copy(T203 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_AND*/int rT203is_a(T203 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT203start_position(C));
rT203error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_AND*/int rT203is_pre_computable(T203 *C){
int R=0;
R=rT203is_static(C);
return R;
}
/*CALL_INFIX_AND*/void rT203make_call_1(T203 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_AND*/void rT203make(T203 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT203fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,/*(IRF4*/(T0 *)ms59_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;}
rT203make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_EQUAL*/T0* rT202type_boolean(/*C*/void){
if (ofBC27type_boolean==0){
T0* R=NULL;
ofBC27type_boolean=1;
{T109 *n=((T109*)se_new(109));
rT109make(n,NULL);
R=(T0 *)n;}
oRBC27type_boolean=R;}
return oRBC27type_boolean;}
/*CALL_INFIX_EQUAL*/T0* rT202twin(T202 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT202copy((T202*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_EQUAL*/int rT202is_static_exp(/*C*/T0* a1){
int R=0;
T0* _t=NULL;
_t=XrT62run_type(XrT72result_type(a1));
/*IF*/if (XrT62is_expanded(_t)) {
R=1;
}
else {
R=((XrT72is_current(a1))||(XrT72is_manifest_string(a1)))||(XrT72is_manifest_array(a1));
}
/*FI*/return R;
}
/*CALL_INFIX_EQUAL*/int rT202is_static(T202 *C){
int R=0;
/*IF*/if (XrT72is_void((C)->_target)) {
R=rT202is_static_exp(rT202arg1(C));
}
 else if (XrT72is_void(rT202arg1(C))) {
R=rT202is_static_exp((C)->_target);
}
 else if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT202arg1(C)))) {
R=1;
/*IF*/if ((XrT72static_value((C)->_target))==(XrT72static_value(rT202arg1(C)))) {
C->_static_value_mem=1;
}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_EQUAL*/int rT202static_value(T202 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_EQUAL*/void rT202fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_EQUAL*/void rT202to_runnable_0(T202 *C,T0* a1){
C->_current_type=a1;
rT202cpc_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));
rT202error(((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_EQUAL*/void rT202cpc_to_runnable(T202 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT202fatal_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_EQUAL*/void rT202to_runnable_equal_not_equal(T202 *C,T0* a1){
T0* _at=NULL;
T0* _tt=NULL;
T0* _a=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT202error(XrT72start_position((C)->_target),(T0 *)ms2_189);
}
else {
C->_target=_t;
}
/*FI*/_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (((int)_a)) {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
_tt=XrT62run_type(XrT72result_type((C)->_target));
_at=XrT62run_type(XrT72result_type(rT202arg1(C)));
/*IF*/if (XrT62is_none(_tt)) {
/*IF*/if (XrT62is_expanded(_at)) {
XrT62used_as_reference(_at);
}
/*FI*/}
 else if (XrT62is_none(_at)) {
/*IF*/if (XrT62is_expanded(_tt)) {
XrT62used_as_reference(_tt);
}
/*FI*/}
 else if (XrT62is_reference(_tt)) {
/*IF*/if (XrT62is_reference(_at)) {
/*IF*/if (XrT62is_a(_tt,_at)) {
}
else {
/*[IRF3:cancel*//*[IRF3:clear*//*AW*/((T7*)oRBC48explanation)->_count=(0);/*]*/
rT50clear((T50*)oRBC48positions);
/*]*/
/*IF*/if (XrT62is_a(_at,_tt)) {
}
else {
rT202error_comparison(C,(T0 *)ms3_189);
}
/*FI*/}
/*FI*/}
 else if (!(XrT62is_a(_at,_tt))) {
rT202error_comparison(C,(T0 *)ms4_189);
}
else {
XrT62used_as_reference(_at);
}
/*FI*/}
else {
/*IF*/if (XrT62is_expanded(_at)) {
/*IF*/if (XrT62fast_mapping_c(_at)) {
/*IF*/if (XrT62is_a(_tt,_at)) {
}
else {
/*[IRF3:cancel*//*[IRF3:clear*//*AW*/((T7*)oRBC48explanation)->_count=(0);/*]*/
rT50clear((T50*)oRBC48positions);
/*]*/
/*IF*/if (XrT62is_a(_at,_tt)) {
}
else {
rT202error_comparison(C,(T0 *)ms5_189);
}
/*FI*/}
/*FI*/}
 else if (!(XrT62is_a(_at,_tt))) {
rT202error_comparison(C,(T0 *)ms6_189);
}
/*FI*/}
 else if (!(XrT62is_a(_tt,_at))) {
rT202error_comparison(C,(T0 *)ms7_189);
}
else {
XrT62used_as_reference(_tt);
}
/*FI*/}
/*FI*/}
/*FI*/}/*CALL_INFIX_EQUAL*/T0* rT202to_runnable(T202 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT202to_runnable_equal_not_equal(C,a1);
C->_result_type=rT202type_boolean();
/*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
{T202 *n=((T202*)se_new(202));
rT202make(n,(C)->_target,((T74*)(C)->_feature_name)->_start_position,rT202arg1(C));
R=(T0 *)n;}
R=rT202to_runnable((T202*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_EQUAL*/void rT202error_comparison(T202 *C,T0* a1){
rT48add_position(((T74*)(C)->_feature_name)->_start_position);
rT48append((T0 *)ms8_189);
rT48append(a1);
rT48append((T0 *)ms9_189);
rT48add_type((C)->_current_type,(T0 *)ms102_27);
rT48print_as_error((T48*)oRBC27eh);
}/*CALL_INFIX_EQUAL*/void rT202error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_EQUAL*/T0* rT202add_comment(T202 *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_EQUAL*/T0* rT202arg1(T202 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_EQUAL*/T0* rT202start_position(T202 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_EQUAL*/int rT202use_current(T202 *C){
int R=0;
R=(XrT72use_current((C)->_target))||(XrT72use_current(rT202arg1(C)));
return R;
}
/*CALL_INFIX_EQUAL*/void rT202compile_to_c_old(T202 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_EQUAL*/void rT202compile_to_c(T202 *C){
T0* _at=NULL;
T0* _tt=NULL;
_tt=XrT62run_type(XrT72result_type((C)->_target));
_at=XrT62run_type(XrT72result_type(rT202arg1(C)));
/*IF*/if (XrT62is_expanded(_tt)) {
/*IF*/if (XrT62is_expanded(_at)) {
/*IF*/if (XrT62fast_mapping_c(_tt)) {
rT44put_character((T44*)oRBC27cpp,'\50');
XrT72compile_to_c((C)->_target);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms2_202);
XrT72compile_to_c(rT202arg1(C));
rT44put_character((T44*)oRBC27cpp,'\51');
}
else {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms3_202);
XrT72compile_to_c((C)->_target);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms4_202);
XrT72compile_to_c(rT202arg1(C));
rT44put_string((T44*)oRBC27cpp,(T0 *)ms5_202);
rT44put_integer((T44*)oRBC27cpp,XrT62id(_tt));
rT44put_string((T44*)oRBC27cpp,(T0 *)ms6_202);
}
/*FI*/}
else {
rT202c2c_exp_ref((C)->_target,_tt,rT202arg1(C),_at);
}
/*FI*/}
 else if (XrT62is_expanded(_at)) {
rT202c2c_exp_ref(rT202arg1(C),_at,(C)->_target,_tt);
}
else {
/*IF*/if (XrT72is_void(rT202arg1(C))) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms7_202);
XrT72compile_to_c((C)->_target);
rT44put_character((T44*)oRBC27cpp,'\51');
}
 else if (XrT72is_void((C)->_target)) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms8_202);
XrT72compile_to_c(rT202arg1(C));
rT44put_character((T44*)oRBC27cpp,'\51');
}
else {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms9_202);
XrT72compile_to_c((C)->_target);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms10_202);
XrT72compile_to_c(rT202arg1(C));
rT44put_character((T44*)oRBC27cpp,'\51');
}
/*FI*/}
/*FI*/}/*CALL_INFIX_EQUAL*/int rT202to_integer(T202 *C){
int R=0;
rT202error(rT202start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_EQUAL*/void rT202call_proc_call_c2c(T202 *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_EQUAL*/void rT202copy(T202 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_EQUAL*/int rT202is_a(T202 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT202start_position(C));
rT202error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_EQUAL*/void rT202c2c_exp_ref(/*C*/T0* a1,T0* a2,T0* a3,T0* a4){
/*IF*/if (XrT72is_void(a3)) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms11_202);
XrT72compile_to_c(a1);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms12_202);
}
else {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms13_202);
XrT72compile_to_c(a1);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms14_202);
XrT72compile_to_c(a3);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms15_202);
}
/*FI*/}/*CALL_INFIX_EQUAL*/int rT202is_pre_computable(T202 *C){
int R=0;
R=rT202is_static(C);
return R;
}
/*CALL_INFIX_EQUAL*/void rT202make_call_1(T202 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_EQUAL*/void rT202make(T202 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT202fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,(T0 *)ms1_202,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;}
rT202make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_NOT_EQUAL*/T0* rT201type_boolean(/*C*/void){
if (ofBC27type_boolean==0){
T0* R=NULL;
ofBC27type_boolean=1;
{T109 *n=((T109*)se_new(109));
rT109make(n,NULL);
R=(T0 *)n;}
oRBC27type_boolean=R;}
return oRBC27type_boolean;}
/*CALL_INFIX_NOT_EQUAL*/T0* rT201twin(T201 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT201copy((T201*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_NOT_EQUAL*/int rT201is_static_exp(T201 *C,T0* a1){
int R=0;
T0* _t=NULL;
_t=XrT62run_type(XrT72result_type(a1));
/*IF*/if (XrT62is_expanded(_t)) {
R=1;
C->_static_value_mem=1;
}
 else if (((XrT72is_current(a1))||(XrT72is_manifest_string(a1)))||(XrT72is_manifest_array(a1))) {
R=1;
C->_static_value_mem=1;
}
/*FI*/return R;
}
/*CALL_INFIX_NOT_EQUAL*/int rT201is_static(T201 *C){
int R=0;
/*IF*/if (XrT72is_void((C)->_target)) {
R=rT201is_static_exp(C,rT201arg1(C));
}
 else if (XrT72is_void(rT201arg1(C))) {
R=rT201is_static_exp(C,(C)->_target);
}
 else if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT201arg1(C)))) {
R=1;
/*IF*/if ((XrT72static_value((C)->_target))!=(XrT72static_value(rT201arg1(C)))) {
C->_static_value_mem=1;
}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_NOT_EQUAL*/int rT201static_value(T201 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_NOT_EQUAL*/void rT201fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_NOT_EQUAL*/void rT201to_runnable_0(T201 *C,T0* a1){
C->_current_type=a1;
rT201cpc_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));
rT201error(((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_NOT_EQUAL*/void rT201cpc_to_runnable(T201 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT201fatal_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_NOT_EQUAL*/void rT201to_runnable_equal_not_equal(T201 *C,T0* a1){
T0* _at=NULL;
T0* _tt=NULL;
T0* _a=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT201error(XrT72start_position((C)->_target),(T0 *)ms2_189);
}
else {
C->_target=_t;
}
/*FI*/_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (((int)_a)) {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
_tt=XrT62run_type(XrT72result_type((C)->_target));
_at=XrT62run_type(XrT72result_type(rT201arg1(C)));
/*IF*/if (XrT62is_none(_tt)) {
/*IF*/if (XrT62is_expanded(_at)) {
XrT62used_as_reference(_at);
}
/*FI*/}
 else if (XrT62is_none(_at)) {
/*IF*/if (XrT62is_expanded(_tt)) {
XrT62used_as_reference(_tt);
}
/*FI*/}
 else if (XrT62is_reference(_tt)) {
/*IF*/if (XrT62is_reference(_at)) {
/*IF*/if (XrT62is_a(_tt,_at)) {
}
else {
/*[IRF3:cancel*//*[IRF3:clear*//*AW*/((T7*)oRBC48explanation)->_count=(0);/*]*/
rT50clear((T50*)oRBC48positions);
/*]*/
/*IF*/if (XrT62is_a(_at,_tt)) {
}
else {
rT201error_comparison(C,(T0 *)ms3_189);
}
/*FI*/}
/*FI*/}
 else if (!(XrT62is_a(_at,_tt))) {
rT201error_comparison(C,(T0 *)ms4_189);
}
else {
XrT62used_as_reference(_at);
}
/*FI*/}
else {
/*IF*/if (XrT62is_expanded(_at)) {
/*IF*/if (XrT62fast_mapping_c(_at)) {
/*IF*/if (XrT62is_a(_tt,_at)) {
}
else {
/*[IRF3:cancel*//*[IRF3:clear*//*AW*/((T7*)oRBC48explanation)->_count=(0);/*]*/
rT50clear((T50*)oRBC48positions);
/*]*/
/*IF*/if (XrT62is_a(_at,_tt)) {
}
else {
rT201error_comparison(C,(T0 *)ms5_189);
}
/*FI*/}
/*FI*/}
 else if (!(XrT62is_a(_at,_tt))) {
rT201error_comparison(C,(T0 *)ms6_189);
}
/*FI*/}
 else if (!(XrT62is_a(_tt,_at))) {
rT201error_comparison(C,(T0 *)ms7_189);
}
else {
XrT62used_as_reference(_tt);
}
/*FI*/}
/*FI*/}
/*FI*/}/*CALL_INFIX_NOT_EQUAL*/T0* rT201to_runnable(T201 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT201to_runnable_equal_not_equal(C,a1);
C->_result_type=rT201type_boolean();
/*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
{T201 *n=((T201*)se_new(201));
rT201make(n,(C)->_target,((T74*)(C)->_feature_name)->_start_position,rT201arg1(C));
R=(T0 *)n;}
R=rT201to_runnable((T201*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_NOT_EQUAL*/void rT201error_comparison(T201 *C,T0* a1){
rT48add_position(((T74*)(C)->_feature_name)->_start_position);
rT48append((T0 *)ms8_189);
rT48append(a1);
rT48append((T0 *)ms9_189);
rT48add_type((C)->_current_type,(T0 *)ms102_27);
rT48print_as_error((T48*)oRBC27eh);
}/*CALL_INFIX_NOT_EQUAL*/void rT201error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_NOT_EQUAL*/T0* rT201add_comment(T201 *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_NOT_EQUAL*/T0* rT201arg1(T201 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_NOT_EQUAL*/T0* rT201start_position(T201 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_NOT_EQUAL*/int rT201use_current(T201 *C){
int R=0;
R=(XrT72use_current((C)->_target))||(XrT72use_current(rT201arg1(C)));
return R;
}
/*CALL_INFIX_NOT_EQUAL*/void rT201compile_to_c_old(T201 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_NOT_EQUAL*/void rT201compile_to_c(T201 *C){
T0* _at=NULL;
T0* _tt=NULL;
_tt=XrT62run_type(XrT72result_type((C)->_target));
_at=XrT62run_type(XrT72result_type(rT201arg1(C)));
/*IF*/if (XrT62is_expanded(_tt)) {
/*IF*/if (XrT62is_expanded(_at)) {
/*IF*/if (XrT62fast_mapping_c(_tt)) {
rT44put_character((T44*)oRBC27cpp,'\50');
XrT72compile_to_c((C)->_target);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms2_201);
XrT72compile_to_c(rT201arg1(C));
rT44put_character((T44*)oRBC27cpp,'\51');
}
else {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms3_201);
XrT72compile_to_c((C)->_target);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms4_201);
XrT72compile_to_c(rT201arg1(C));
rT44put_string((T44*)oRBC27cpp,(T0 *)ms5_201);
rT44put_integer((T44*)oRBC27cpp,XrT62id(_tt));
rT44put_string((T44*)oRBC27cpp,(T0 *)ms6_201);
}
/*FI*/}
else {
rT201c2c_exp_ref((C)->_target,_tt,rT201arg1(C),_at);
}
/*FI*/}
 else if (XrT62is_expanded(_at)) {
rT201c2c_exp_ref(rT201arg1(C),_at,(C)->_target,_tt);
}
else {
/*IF*/if (XrT72is_void(rT201arg1(C))) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms7_201);
XrT72compile_to_c((C)->_target);
rT44put_character((T44*)oRBC27cpp,'\51');
}
 else if (XrT72is_void((C)->_target)) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms8_201);
XrT72compile_to_c(rT201arg1(C));
rT44put_character((T44*)oRBC27cpp,'\51');
}
else {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms9_201);
XrT72compile_to_c((C)->_target);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms10_201);
XrT72compile_to_c(rT201arg1(C));
rT44put_character((T44*)oRBC27cpp,'\51');
}
/*FI*/}
/*FI*/}/*CALL_INFIX_NOT_EQUAL*/int rT201to_integer(T201 *C){
int R=0;
rT201error(rT201start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_NOT_EQUAL*/void rT201call_proc_call_c2c(T201 *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_NOT_EQUAL*/void rT201copy(T201 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}

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