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

This is compile_to_c33.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_INT_DIV*/T0* rT193twin(T193 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT193copy((T193*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_INT_DIV*/int rT193is_static(T193 *C){
int R=0;
/*IF*/if (XrT62is_integer((C)->_result_type)) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT193arg1(C)))) {
R=1;
C->_static_value_mem=(XrT72static_value((C)->_target))/(XrT72static_value(rT193arg1(C)));
}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_INT_DIV*/int rT193static_value(T193 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_INT_DIV*/void rT193fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_INT_DIV*/void rT193cpc_to_runnable(T193 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT193fatal_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_INT_DIV*/void rT193to_runnable_0(T193 *C,T0* a1){
C->_current_type=a1;
rT193cpc_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));
rT193error(((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_INT_DIV*/T0* rT193to_runnable(T193 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT193to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT193error(XrT72start_position(rT193arg1(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(rT193arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT193twin(C);
/*[IRF3:set_current_type*//*AW*/((T193*)R)->_current_type=(NULL);/*]*/
R=rT193to_runnable((T193*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_INT_DIV*/void rT193error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_INT_DIV*/T0* rT193add_comment(T193 *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_INT_DIV*/T0* rT193arg1(T193 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_INT_DIV*/T0* rT193start_position(T193 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_INT_DIV*/int rT193use_current(T193 *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_INT_DIV*/void rT193compile_to_c_old(T193 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_INT_DIV*/void rT193compile_to_c(T193 *C){
rT193call_proc_call_c2c(C);
}/*CALL_INFIX_INT_DIV*/int rT193to_integer(T193 *C){
int R=0;
rT193error(rT193start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_INT_DIV*/void rT193call_proc_call_c2c(T193 *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_INT_DIV*/void rT193copy(T193 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_INT_DIV*/int rT193is_a(T193 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT193start_position(C));
rT193error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_INT_DIV*/int rT193is_pre_computable(T193 *C){
int R=0;
R=rT193is_static(C);
return R;
}
/*CALL_INFIX_INT_DIV*/void rT193make_call_1(T193 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_INT_DIV*/void rT193make(T193 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT193fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,(T0 *)ms1_193,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;}
rT193make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_INT_REM*/T0* rT192twin(T192 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT192copy((T192*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_INT_REM*/int rT192is_static(T192 *C){
int R=0;
/*IF*/if (XrT62is_integer((C)->_result_type)) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT192arg1(C)))) {
R=1;
C->_static_value_mem=(XrT72static_value((C)->_target))%(XrT72static_value(rT192arg1(C)));
}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_INT_REM*/int rT192static_value(T192 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_INT_REM*/void rT192fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_INT_REM*/void rT192cpc_to_runnable(T192 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT192fatal_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_INT_REM*/void rT192to_runnable_0(T192 *C,T0* a1){
C->_current_type=a1;
rT192cpc_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));
rT192error(((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_INT_REM*/T0* rT192to_runnable(T192 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT192to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT192error(XrT72start_position(rT192arg1(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(rT192arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT192twin(C);
/*[IRF3:set_current_type*//*AW*/((T192*)R)->_current_type=(NULL);/*]*/
R=rT192to_runnable((T192*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_INT_REM*/void rT192error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_INT_REM*/T0* rT192add_comment(T192 *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_INT_REM*/T0* rT192arg1(T192 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_INT_REM*/T0* rT192start_position(T192 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_INT_REM*/int rT192use_current(T192 *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_INT_REM*/void rT192compile_to_c_old(T192 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_INT_REM*/void rT192compile_to_c(T192 *C){
rT192call_proc_call_c2c(C);
}/*CALL_INFIX_INT_REM*/int rT192to_integer(T192 *C){
int R=0;
rT192error(rT192start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_INT_REM*/void rT192call_proc_call_c2c(T192 *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_INT_REM*/void rT192copy(T192 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_INT_REM*/int rT192is_a(T192 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT192start_position(C));
rT192error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_INT_REM*/int rT192is_pre_computable(T192 *C){
int R=0;
R=rT192is_static(C);
return R;
}
/*CALL_INFIX_INT_REM*/void rT192make_call_1(T192 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_INT_REM*/void rT192make(T192 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT192fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,(T0 *)ms1_192,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;}
rT192make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_DIV*/T0* rT191twin(T191 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT191copy((T191*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_DIV*/int rT191static_value(T191 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_DIV*/void rT191fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_DIV*/void rT191cpc_to_runnable(T191 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT191fatal_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_DIV*/void rT191to_runnable_0(T191 *C,T0* a1){
C->_current_type=a1;
rT191cpc_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));
rT191error(((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_DIV*/T0* rT191to_runnable(T191 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT191to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT191error(XrT72start_position(rT191arg1(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(rT191arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT191twin(C);
/*[IRF3:set_current_type*//*AW*/((T191*)R)->_current_type=(NULL);/*]*/
R=rT191to_runnable((T191*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_DIV*/void rT191error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_DIV*/T0* rT191add_comment(T191 *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_DIV*/T0* rT191arg1(T191 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_DIV*/T0* rT191start_position(T191 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_DIV*/int rT191use_current(T191 *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_DIV*/void rT191compile_to_c_old(T191 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_DIV*/void rT191compile_to_c(T191 *C){
rT191call_proc_call_c2c(C);
}/*CALL_INFIX_DIV*/int rT191to_integer(T191 *C){
int R=0;
rT191error(rT191start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_DIV*/void rT191call_proc_call_c2c(T191 *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_DIV*/void rT191copy(T191 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_DIV*/int rT191is_a(T191 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT191start_position(C));
rT191error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_DIV*/void rT191make_call_1(T191 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_DIV*/void rT191make(T191 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT191fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,/*(IRF4*/(T0 *)ms125_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;}
rT191make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_POWER*/T0* rT190twin(T190 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT190copy((T190*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_POWER*/int rT190is_static(T190 *C){
int R=0;
/*IF*/if (XrT62is_integer((C)->_result_type)) {
/*IF*/if ((XrT72is_static((C)->_target))&&(XrT72is_static(rT190arg1(C)))) {
R=1;
C->_static_value_mem=rT2_ix94(XrT72static_value((C)->_target),XrT72static_value(rT190arg1(C)));
}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_POWER*/int rT190static_value(T190 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_POWER*/void rT190fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_POWER*/void rT190cpc_to_runnable(T190 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT190fatal_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_POWER*/void rT190to_runnable_0(T190 *C,T0* a1){
C->_current_type=a1;
rT190cpc_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));
rT190error(((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_POWER*/T0* rT190to_runnable(T190 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT190to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT190error(XrT72start_position(rT190arg1(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(rT190arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT190twin(C);
/*[IRF3:set_current_type*//*AW*/((T190*)R)->_current_type=(NULL);/*]*/
R=rT190to_runnable((T190*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_POWER*/void rT190error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_POWER*/T0* rT190add_comment(T190 *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_POWER*/T0* rT190arg1(T190 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_POWER*/T0* rT190start_position(T190 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_POWER*/int rT190use_current(T190 *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_POWER*/void rT190compile_to_c_old(T190 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_POWER*/void rT190compile_to_c(T190 *C){
rT190call_proc_call_c2c(C);
}/*CALL_INFIX_POWER*/int rT190to_integer(T190 *C){
int R=0;
rT190error(rT190start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_POWER*/void rT190call_proc_call_c2c(T190 *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_POWER*/void rT190copy(T190 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_POWER*/int rT190is_a(T190 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT190start_position(C));
rT190error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_POWER*/int rT190is_pre_computable(T190 *C){
int R=0;
R=rT190is_static(C);
return R;
}
/*CALL_INFIX_POWER*/void rT190make_call_1(T190 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_POWER*/void rT190make(T190 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT190fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,(T0 *)ms1_190,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;}
rT190make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_FREEOP*/T0* rT188twin(T188 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT188copy((T188*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_INFIX_FREEOP*/int rT188is_static(T188 *C){
int R=0;
R=rT188call_is_static(C);
return R;
}
/*CALL_INFIX_FREEOP*/int rT188static_value(T188 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_INFIX_FREEOP*/void rT188fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_INFIX_FREEOP*/void rT188cpc_to_runnable(T188 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT188fatal_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_FREEOP*/void rT188to_runnable_0(T188 *C,T0* a1){
C->_current_type=a1;
rT188cpc_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));
rT188error(((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_FREEOP*/T0* rT188to_runnable(T188 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT188to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT188error(XrT72start_position(rT188arg1(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(rT188arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT188twin(C);
/*[IRF3:set_current_type*//*AW*/((T188*)R)->_current_type=(NULL);/*]*/
R=rT188to_runnable((T188*)R,a1);
}
/*FI*/return R;
}
/*CALL_INFIX_FREEOP*/void rT188error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_INFIX_FREEOP*/T0* rT188add_comment(T188 *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_FREEOP*/T0* rT188arg1(T188 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_INFIX_FREEOP*/T0* rT188start_position(T188 *C){
T0* R=NULL;
R=((T74*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_FREEOP*/int rT188use_current(T188 *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_FREEOP*/void rT188compile_to_c_old(T188 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_INFIX_FREEOP*/void rT188compile_to_c(T188 *C){
rT188call_proc_call_c2c(C);
}/*CALL_INFIX_FREEOP*/int rT188to_integer(T188 *C){
int R=0;
rT188error(rT188start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_INFIX_FREEOP*/void rT188call_proc_call_c2c(T188 *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_FREEOP*/void rT188copy(T188 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_INFIX_FREEOP*/int rT188call_is_static(T188 *C){
int R=0;
T0* _rc=NULL;
/*IF*/if (((int)(C)->_run_feature)) {
_rc=XrT268run_class((C)->_run_feature);
/*IF*/if ((rT271count((T271*)((T269*)_rc)->_running))==(1)) {
/*IF*/if (XrT268is_static((C)->_run_feature)) {
C->_static_value_mem=XrT268static_value_mem((C)->_run_feature);
R=1;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_INFIX_FREEOP*/int rT188is_a(T188 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT188start_position(C));
rT188error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_FREEOP*/int rT188is_pre_computable(T188 *C){
int R=0;
R=rT188is_static(C);
return R;
}
/*CALL_INFIX_FREEOP*/void rT188make_call_1(T188 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_FREEOP*/void rT188make(T188 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
{T175 *n=((T175*)se_new(175));
/*[IRF3:make*//*AW*/(n)->_list=(ma(85,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT188make_call_1(C,a1,a2,_eal);
}/*CALL_N*/T0* rT180twin(T180 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT180copy((T180*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_N*/int rT180is_static(T180 *C){
int R=0;
T0* _rc=NULL;
/*IF*/if (((int)(C)->_run_feature)) {
_rc=XrT268run_class((C)->_run_feature);
/*IF*/if ((rT271count((T271*)((T269*)_rc)->_running))==(1)) {
/*IF*/if (XrT268is_static((C)->_run_feature)) {
C->_static_value_mem=XrT268static_value_mem((C)->_run_feature);
R=1;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_N*/int rT180static_value(T180 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_N*/void rT180fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_N*/void rT180cpc_to_runnable(T180 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT180fatal_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_N*/void rT180to_runnable_0(T180 *C,T0* a1){
C->_current_type=a1;
rT180cpc_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));
rT180error(/*XrT*FEATURE_NAME*/((T70*)(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_N*/T0* rT180to_runnable(T180 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT180to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT180error(rT175start_position((T175*)(C)->_arguments),(T0 *)ms1_180);
}
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)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT180twin(C);
/*[IRF3:set_current_type*//*AW*/((T180*)R)->_current_type=(NULL);/*]*/
R=rT180to_runnable((T180*)R,a1);
}
/*FI*/return R;
}
/*CALL_N*/void rT180error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_N*/T0* rT180add_comment(T180 *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_N*/T0* rT180start_position(T180 *C){
T0* R=NULL;
R=/*XrT*FEATURE_NAME*/((T70*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_N*/int rT180use_current(T180 *C){
int R=0;
/*IF*/if ((rT180arg_count(C))>(0)) {
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_N*/void rT180compile_to_c_old(T180 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/if ((rT180arg_count(C))>(0)) {
rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_N*/void rT180compile_to_c(T180 *C){
rT180call_proc_call_c2c(C);
}/*CALL_N*/int rT180to_integer(T180 *C){
int R=0;
rT180error(rT180start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_N*/void rT180call_proc_call_c2c(T180 *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_N*/void rT180copy(T180 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_N*/int rT180is_a(T180 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT180start_position(C));
rT180error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_N*/int rT180arg_count(T180 *C){
int R=0;
R=rT175count((T175*)(C)->_arguments);
return R;
}
/*CALL_N*/int rT180is_pre_computable(T180 *C){
int R=0;
R=rT180is_static(C);
return R;
}
/*CALL_N*/void rT180make(T180 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_1*/T0* rT179twin(T179 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
XrT179copy(R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_1*/int rT179is_static(T179 *C){
int R=0;
T0* _rc=NULL;
/*IF*/if (((int)(C)->_run_feature)) {
_rc=XrT268run_class((C)->_run_feature);
/*IF*/if ((rT271count((T271*)((T269*)_rc)->_running))==(1)) {
/*IF*/if (XrT268is_static((C)->_run_feature)) {
C->_static_value_mem=XrT268static_value_mem((C)->_run_feature);
R=1;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_1*/int rT179static_value(T179 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_1*/void rT179fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_1*/void rT179cpc_to_runnable(T179 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT179fatal_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_1*/void rT179to_runnable_0(T179 *C,T0* a1){
C->_current_type=a1;
rT179cpc_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));
rT179error(/*XrT*FEATURE_NAME*/((T70*)(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_1*/T0* rT179to_runnable(T179 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT179to_runnable_0(C,a1);
_a=rT175to_runnable((T175*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT179error(XrT72start_position(rT179arg1(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(rT179arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT179twin(C);
XrT179set_current_type(R,NULL);
R=XrT179to_runnable(R,a1);
}
/*FI*/return R;
}
/*CALL_1*/void rT179error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_1*/T0* rT179add_comment(T179 *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_1*/T0* rT179arg1(T179 *C){
T0* R=NULL;
R=rT175first((T175*)(C)->_arguments);
return R;
}
/*CALL_1*/T0* rT179start_position(T179 *C){
T0* R=NULL;
R=/*XrT*FEATURE_NAME*/((T70*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_1*/int rT179use_current(T179 *C){
int R=0;
/*IF*/if ((1)>(0)) {
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_1*/void rT179compile_to_c_old(T179 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/if ((1)>(0)) {
rT175compile_to_c_old((T175*)(C)->_arguments);
}
/*FI*/}/*CALL_1*/void rT179compile_to_c(T179 *C){
rT179call_proc_call_c2c(C);
}/*CALL_1*/int rT179to_integer(T179 *C){
int R=0;
rT179error(rT179start_position(C),(T0 *)ms104_27);
return R;
}
/*CALL_1*/void rT179call_proc_call_c2c(T179 *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_1*/void rT179copy(T179 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_1*/int rT179is_a(T179 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT179start_position(C));
rT179error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_1*/int rT179is_pre_computable(T179 *C){
int R=0;
R=rT179is_static(C);
return R;
}
/*CALL_1*/void rT179make(T179 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}

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