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

This is compile_to_c15.c in view mode; [Download] [Up]

/* ANSI C code generated by SmallEiffel. */
/*
-- SmallEiffel  -- Release (- 0.95)    --      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"
T0* rT203add_comment(T203 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT59count((T59*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T221 *n=((T221*)se_new(221));
rT221make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
T0* rT203arg1(T203 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT203start_position(T203 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT203use_current(T203 *C){
int R=0;
/*IF*/{/*AT*/R=rT171use_current((T171*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT68is_current((C)->_target)) {
R=XrT262use_current((C)->_run_feature);
}
else {
R=XrT68use_current((C)->_target);
}
/*FI*/return R;
}
void rT203compile_to_c_old(T203 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT203compile_to_c(T203 *C){
rT203call_proc_call_c2c(C);
}
int rT203to_integer(T203 *C){
int R=0;
rT203error(rT203start_position(C),(T0 *)ms169);
return R;
}
T0* rT203dynamic(/*C*/T0* a1,T0* a2){
T0* R=NULL;
T0* _static=NULL;
T0* _sta_name=NULL;
T0* _dyn_name=NULL;
_static=XrT262current_type(a2);
_sta_name=XrT262name(a2);
_dyn_name=rT50name_of((T50*)rT261base_class((T261*)a1),XrT58base_class(_static),_sta_name);
R=rT261get_feature((T261*)a1,_dyn_name);
return R;
}
T0* rT203written_in(T203 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT203start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT203call_proc_call_c2c(T203 *C){
T0* _dyn_rf=NULL;
T0* _tt=NULL;
T0* _r=NULL;
_tt=XrT58run_type(XrT68result_type((C)->_target));
/*IF*/if (((XrT68is_current((C)->_target))||(XrT68is_manifest_string((C)->_target)))||(XrT58is_expanded(_tt))) {
rT43push_direct((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
else {
_r=((T261*)XrT58run_class(_tt))->_running;
/*IF*/if (!(_r)) {
rT43push_void((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
 else if ((rT264count((T264*)_r))==(1)) {
_dyn_rf=rT203dynamic(rT264first((T264*)_r),(C)->_run_feature);
rT43push_check((T43*)oRBC27cpp,_dyn_rf,(C)->_target,(C)->_arguments);
XrT262mapping_c(_dyn_rf);
rT43pop((T43*)oRBC27cpp);
}
else {
rT43use_switch((T43*)oRBC27cpp,(C)->_run_feature,_r,(C)->_target,(C)->_arguments);
}
/*FI*/}
/*FI*/}
void rT203copy(T203 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT203is_a(T203 *C,T0* a1){
int R=0;
R=XrT58is_a(XrT58run_type((C)->_result_type),XrT58run_type(XrT68result_type(a1)));
/*IF*/if (!(R)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(rT203start_position(C));
rT203error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT203make_call_1(T203 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT203make(T203 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT203fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,/*(IRF4*/(T0 *)ms96/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT203make_call_1(C,a1,(C)->_feature_name,_eal);
}
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;
}
int rT202is_static(T202 *C){
int R=0;
/*IF*/if (XrT58is_boolean(XrT68result_type((C)->_target))) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT202arg1(C)))) {
R=1;
C->_static_value_mem=(XrT68static_value((C)->_target))+(XrT68static_value(rT202arg1(C)));
/*IF*/if (((C)->_static_value_mem)==(1)) {
C->_static_value_mem=1;
}
else {
C->_static_value_mem=0;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int rT202static_value(T202 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT202fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT202to_runnable_0(T202 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT202error(XrT68start_position((C)->_target),(T0 *)ms1134);
}
else {
C->_target=_t;
_rc=XrT58run_class(XrT68result_type((C)->_target));
C->_run_feature=rT261get_rf((T261*)_rc,(C)->_target,(C)->_feature_name);
C->_result_type=XrT262result_type((C)->_run_feature);
/*IF*/if (!((C)->_result_type)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT262start_position((C)->_run_feature));
rT202error(((T70*)(C)->_feature_name)->_start_position,(T0 *)ms1146);
}
 else if (XrT58is_like_current((C)->_result_type)) {
C->_result_type=XrT68result_type((C)->_target);
}
/*FI*/}
/*FI*/}
T0* rT202to_runnable(T202 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT202to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT202error(XrT68start_position(rT202arg1(C)),(T0 *)ms1151);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT171match_with((T171*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT58is_like_argument((C)->_result_type))) {
C->_result_type=XrT58run_type(XrT68result_type(rT202arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT202twin(C);
/*(IRF3*/(((T202*)R)->_current_type)=(NULL);
/*)*/R=rT202to_runnable((T202*)R,a1);
}
/*FI*/return R;
}
void rT202error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT202add_comment(T202 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT59count((T59*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T221 *n=((T221*)se_new(221));
rT221make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
T0* rT202arg1(T202 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT202start_position(T202 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT202use_current(T202 *C){
int R=0;
/*IF*/{/*AT*/R=rT171use_current((T171*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT68is_current((C)->_target)) {
R=XrT262use_current((C)->_run_feature);
}
else {
R=XrT68use_current((C)->_target);
}
/*FI*/return R;
}
void rT202compile_to_c_old(T202 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT202compile_to_c(T202 *C){
rT202call_proc_call_c2c(C);
}
int rT202to_integer(T202 *C){
int R=0;
rT202error(rT202start_position(C),(T0 *)ms169);
return R;
}
T0* rT202dynamic(/*C*/T0* a1,T0* a2){
T0* R=NULL;
T0* _static=NULL;
T0* _sta_name=NULL;
T0* _dyn_name=NULL;
_static=XrT262current_type(a2);
_sta_name=XrT262name(a2);
_dyn_name=rT50name_of((T50*)rT261base_class((T261*)a1),XrT58base_class(_static),_sta_name);
R=rT261get_feature((T261*)a1,_dyn_name);
return R;
}
T0* rT202written_in(T202 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT202start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT202call_proc_call_c2c(T202 *C){
T0* _dyn_rf=NULL;
T0* _tt=NULL;
T0* _r=NULL;
_tt=XrT58run_type(XrT68result_type((C)->_target));
/*IF*/if (((XrT68is_current((C)->_target))||(XrT68is_manifest_string((C)->_target)))||(XrT58is_expanded(_tt))) {
rT43push_direct((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
else {
_r=((T261*)XrT58run_class(_tt))->_running;
/*IF*/if (!(_r)) {
rT43push_void((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
 else if ((rT264count((T264*)_r))==(1)) {
_dyn_rf=rT202dynamic(rT264first((T264*)_r),(C)->_run_feature);
rT43push_check((T43*)oRBC27cpp,_dyn_rf,(C)->_target,(C)->_arguments);
XrT262mapping_c(_dyn_rf);
rT43pop((T43*)oRBC27cpp);
}
else {
rT43use_switch((T43*)oRBC27cpp,(C)->_run_feature,_r,(C)->_target,(C)->_arguments);
}
/*FI*/}
/*FI*/}
void rT202copy(T202 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT202is_a(T202 *C,T0* a1){
int R=0;
R=XrT58is_a(XrT58run_type((C)->_result_type),XrT58run_type(XrT68result_type(a1)));
/*IF*/if (!(R)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(rT202start_position(C));
rT202error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT202make_call_1(T202 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT202make(T202 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT202fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,/*(IRF4*/(T0 *)ms95/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT202make_call_1(C,a1,(C)->_feature_name,_eal);
}
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;
}
int rT201is_static(T201 *C){
int R=0;
/*IF*/if (XrT58is_boolean(XrT68result_type((C)->_target))) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT201arg1(C)))) {
R=1;
C->_static_value_mem=(XrT68static_value((C)->_target))+(XrT68static_value(rT201arg1(C)));
/*IF*/if (((C)->_static_value_mem)==(2)) {
C->_static_value_mem=1;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int rT201static_value(T201 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT201fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT201to_runnable_0(T201 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT201error(XrT68start_position((C)->_target),(T0 *)ms1134);
}
else {
C->_target=_t;
_rc=XrT58run_class(XrT68result_type((C)->_target));
C->_run_feature=rT261get_rf((T261*)_rc,(C)->_target,(C)->_feature_name);
C->_result_type=XrT262result_type((C)->_run_feature);
/*IF*/if (!((C)->_result_type)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT262start_position((C)->_run_feature));
rT201error(((T70*)(C)->_feature_name)->_start_position,(T0 *)ms1146);
}
 else if (XrT58is_like_current((C)->_result_type)) {
C->_result_type=XrT68result_type((C)->_target);
}
/*FI*/}
/*FI*/}
T0* rT201to_runnable(T201 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT201to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT201error(XrT68start_position(rT201arg1(C)),(T0 *)ms1151);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT171match_with((T171*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT58is_like_argument((C)->_result_type))) {
C->_result_type=XrT58run_type(XrT68result_type(rT201arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT201twin(C);
/*(IRF3*/(((T201*)R)->_current_type)=(NULL);
/*)*/R=rT201to_runnable((T201*)R,a1);
}
/*FI*/return R;
}
void rT201error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT201add_comment(T201 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT59count((T59*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T221 *n=((T221*)se_new(221));
rT221make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
T0* rT201arg1(T201 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT201start_position(T201 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT201use_current(T201 *C){
int R=0;
/*IF*/{/*AT*/R=rT171use_current((T171*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT68is_current((C)->_target)) {
R=XrT262use_current((C)->_run_feature);
}
else {
R=XrT68use_current((C)->_target);
}
/*FI*/return R;
}
void rT201compile_to_c_old(T201 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT201compile_to_c(T201 *C){
/*IF*/if ((rT44boost((T44*)oRBC27eiffel_run_control))&&(XrT58is_boolean(XrT58run_type(XrT68result_type((C)->_target))))) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1243);
XrT68compile_to_c((C)->_target);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1244);
XrT68compile_to_c(rT201arg1(C));
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1245);
}
else {
rT201call_proc_call_c2c(C);
}
/*FI*/}
int rT201to_integer(T201 *C){
int R=0;
rT201error(rT201start_position(C),(T0 *)ms169);
return R;
}
T0* rT201dynamic(/*C*/T0* a1,T0* a2){
T0* R=NULL;
T0* _static=NULL;
T0* _sta_name=NULL;
T0* _dyn_name=NULL;
_static=XrT262current_type(a2);
_sta_name=XrT262name(a2);
_dyn_name=rT50name_of((T50*)rT261base_class((T261*)a1),XrT58base_class(_static),_sta_name);
R=rT261get_feature((T261*)a1,_dyn_name);
return R;
}
T0* rT201written_in(T201 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT201start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT201call_proc_call_c2c(T201 *C){
T0* _dyn_rf=NULL;
T0* _tt=NULL;
T0* _r=NULL;
_tt=XrT58run_type(XrT68result_type((C)->_target));
/*IF*/if (((XrT68is_current((C)->_target))||(XrT68is_manifest_string((C)->_target)))||(XrT58is_expanded(_tt))) {
rT43push_direct((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
else {
_r=((T261*)XrT58run_class(_tt))->_running;
/*IF*/if (!(_r)) {
rT43push_void((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
 else if ((rT264count((T264*)_r))==(1)) {
_dyn_rf=rT201dynamic(rT264first((T264*)_r),(C)->_run_feature);
rT43push_check((T43*)oRBC27cpp,_dyn_rf,(C)->_target,(C)->_arguments);
XrT262mapping_c(_dyn_rf);
rT43pop((T43*)oRBC27cpp);
}
else {
rT43use_switch((T43*)oRBC27cpp,(C)->_run_feature,_r,(C)->_target,(C)->_arguments);
}
/*FI*/}
/*FI*/}
void rT201copy(T201 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT201is_a(T201 *C,T0* a1){
int R=0;
R=XrT58is_a(XrT58run_type((C)->_result_type),XrT58run_type(XrT68result_type(a1)));
/*IF*/if (!(R)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(rT201start_position(C));
rT201error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT201make_call_1(T201 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT201make(T201 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT201fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,/*(IRF4*/(T0 *)ms100/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT201make_call_1(C,a1,(C)->_feature_name,_eal);
}
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;
}
int rT200is_static(T200 *C){
int R=0;
/*IF*/if (XrT58is_boolean(XrT68result_type((C)->_target))) {
/*IF*/if (XrT68is_static((C)->_target)) {
/*IF*/if ((XrT68static_value((C)->_target))==(1)) {
R=1;
C->_static_value_mem=1;
}
else {
R=XrT68is_static(rT200arg1(C));
C->_static_value_mem=XrT68static_value(rT200arg1(C));
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int rT200static_value(T200 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT200fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT200to_runnable_0(T200 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT200error(XrT68start_position((C)->_target),(T0 *)ms1134);
}
else {
C->_target=_t;
_rc=XrT58run_class(XrT68result_type((C)->_target));
C->_run_feature=rT261get_rf((T261*)_rc,(C)->_target,(C)->_feature_name);
C->_result_type=XrT262result_type((C)->_run_feature);
/*IF*/if (!((C)->_result_type)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT262start_position((C)->_run_feature));
rT200error(((T70*)(C)->_feature_name)->_start_position,(T0 *)ms1146);
}
 else if (XrT58is_like_current((C)->_result_type)) {
C->_result_type=XrT68result_type((C)->_target);
}
/*FI*/}
/*FI*/}
T0* rT200to_runnable(T200 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT200to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT200error(XrT68start_position(rT200arg1(C)),(T0 *)ms1151);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT171match_with((T171*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT58is_like_argument((C)->_result_type))) {
C->_result_type=XrT58run_type(XrT68result_type(rT200arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT200twin(C);
/*(IRF3*/(((T200*)R)->_current_type)=(NULL);
/*)*/R=rT200to_runnable((T200*)R,a1);
}
/*FI*/return R;
}
void rT200error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT200add_comment(T200 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT59count((T59*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T221 *n=((T221*)se_new(221));
rT221make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
T0* rT200arg1(T200 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT200start_position(T200 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT200use_current(T200 *C){
int R=0;
/*IF*/{/*AT*/R=rT171use_current((T171*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT68is_current((C)->_target)) {
R=XrT262use_current((C)->_run_feature);
}
else {
R=XrT68use_current((C)->_target);
}
/*FI*/return R;
}
void rT200compile_to_c_old(T200 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT200compile_to_c(T200 *C){
rT200call_proc_call_c2c(C);
}
int rT200to_integer(T200 *C){
int R=0;
rT200error(rT200start_position(C),(T0 *)ms169);
return R;
}
T0* rT200dynamic(/*C*/T0* a1,T0* a2){
T0* R=NULL;
T0* _static=NULL;
T0* _sta_name=NULL;
T0* _dyn_name=NULL;
_static=XrT262current_type(a2);
_sta_name=XrT262name(a2);
_dyn_name=rT50name_of((T50*)rT261base_class((T261*)a1),XrT58base_class(_static),_sta_name);
R=rT261get_feature((T261*)a1,_dyn_name);
return R;
}
T0* rT200written_in(T200 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT200start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT200call_proc_call_c2c(T200 *C){
T0* _dyn_rf=NULL;
T0* _tt=NULL;
T0* _r=NULL;
_tt=XrT58run_type(XrT68result_type((C)->_target));
/*IF*/if (((XrT68is_current((C)->_target))||(XrT68is_manifest_string((C)->_target)))||(XrT58is_expanded(_tt))) {
rT43push_direct((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
else {
_r=((T261*)XrT58run_class(_tt))->_running;
/*IF*/if (!(_r)) {
rT43push_void((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
 else if ((rT264count((T264*)_r))==(1)) {
_dyn_rf=rT200dynamic(rT264first((T264*)_r),(C)->_run_feature);
rT43push_check((T43*)oRBC27cpp,_dyn_rf,(C)->_target,(C)->_arguments);
XrT262mapping_c(_dyn_rf);
rT43pop((T43*)oRBC27cpp);
}
else {
rT43use_switch((T43*)oRBC27cpp,(C)->_run_feature,_r,(C)->_target,(C)->_arguments);
}
/*FI*/}
/*FI*/}
void rT200copy(T200 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT200is_a(T200 *C,T0* a1){
int R=0;
R=XrT58is_a(XrT58run_type((C)->_result_type),XrT58run_type(XrT68result_type(a1)));
/*IF*/if (!(R)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(rT200start_position(C));
rT200error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT200make_call_1(T200 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT200make(T200 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT200fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,/*(IRF4*/(T0 *)ms102/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT200make_call_1(C,a1,(C)->_feature_name,_eal);
}
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;
}
int rT199is_static(T199 *C){
int R=0;
/*IF*/if (XrT58is_boolean(XrT68result_type((C)->_target))) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT199arg1(C)))) {
R=1;
C->_static_value_mem=(XrT68static_value((C)->_target))+(XrT68static_value(rT199arg1(C)));
/*IF*/if (((C)->_static_value_mem)==(2)) {
C->_static_value_mem=1;
}
else {
C->_static_value_mem=0;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int rT199static_value(T199 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT199fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT199to_runnable_0(T199 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT199error(XrT68start_position((C)->_target),(T0 *)ms1134);
}
else {
C->_target=_t;
_rc=XrT58run_class(XrT68result_type((C)->_target));
C->_run_feature=rT261get_rf((T261*)_rc,(C)->_target,(C)->_feature_name);
C->_result_type=XrT262result_type((C)->_run_feature);
/*IF*/if (!((C)->_result_type)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT262start_position((C)->_run_feature));
rT199error(((T70*)(C)->_feature_name)->_start_position,(T0 *)ms1146);
}
 else if (XrT58is_like_current((C)->_result_type)) {
C->_result_type=XrT68result_type((C)->_target);
}
/*FI*/}
/*FI*/}
T0* rT199to_runnable(T199 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT199to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT199error(XrT68start_position(rT199arg1(C)),(T0 *)ms1151);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT171match_with((T171*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT58is_like_argument((C)->_result_type))) {
C->_result_type=XrT58run_type(XrT68result_type(rT199arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT199twin(C);
/*(IRF3*/(((T199*)R)->_current_type)=(NULL);
/*)*/R=rT199to_runnable((T199*)R,a1);
}
/*FI*/return R;
}
void rT199error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT199add_comment(T199 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT59count((T59*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T221 *n=((T221*)se_new(221));
rT221make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
T0* rT199arg1(T199 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT199start_position(T199 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT199use_current(T199 *C){
int R=0;
/*IF*/{/*AT*/R=rT171use_current((T171*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT68is_current((C)->_target)) {
R=XrT262use_current((C)->_run_feature);
}
else {
R=XrT68use_current((C)->_target);
}
/*FI*/return R;
}
void rT199compile_to_c_old(T199 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT199compile_to_c(T199 *C){
/*IF*/if ((rT44boost((T44*)oRBC27eiffel_run_control))&&(XrT58is_boolean(XrT58run_type(XrT68result_type((C)->_target))))) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1240);
XrT68compile_to_c((C)->_target);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1241);
XrT68compile_to_c(rT199arg1(C));
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1242);
}
else {
rT199call_proc_call_c2c(C);
}
/*FI*/}
int rT199to_integer(T199 *C){
int R=0;
rT199error(rT199start_position(C),(T0 *)ms169);
return R;
}
T0* rT199dynamic(/*C*/T0* a1,T0* a2){
T0* R=NULL;
T0* _static=NULL;
T0* _sta_name=NULL;
T0* _dyn_name=NULL;
_static=XrT262current_type(a2);
_sta_name=XrT262name(a2);
_dyn_name=rT50name_of((T50*)rT261base_class((T261*)a1),XrT58base_class(_static),_sta_name);
R=rT261get_feature((T261*)a1,_dyn_name);
return R;
}
T0* rT199written_in(T199 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT199start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT199call_proc_call_c2c(T199 *C){
T0* _dyn_rf=NULL;
T0* _tt=NULL;
T0* _r=NULL;
_tt=XrT58run_type(XrT68result_type((C)->_target));
/*IF*/if (((XrT68is_current((C)->_target))||(XrT68is_manifest_string((C)->_target)))||(XrT58is_expanded(_tt))) {
rT43push_direct((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
else {
_r=((T261*)XrT58run_class(_tt))->_running;
/*IF*/if (!(_r)) {
rT43push_void((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
 else if ((rT264count((T264*)_r))==(1)) {
_dyn_rf=rT199dynamic(rT264first((T264*)_r),(C)->_run_feature);
rT43push_check((T43*)oRBC27cpp,_dyn_rf,(C)->_target,(C)->_arguments);
XrT262mapping_c(_dyn_rf);
rT43pop((T43*)oRBC27cpp);
}
else {
rT43use_switch((T43*)oRBC27cpp,(C)->_run_feature,_r,(C)->_target,(C)->_arguments);
}
/*FI*/}
/*FI*/}
void rT199copy(T199 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT199is_a(T199 *C,T0* a1){
int R=0;
R=XrT58is_a(XrT58run_type((C)->_result_type),XrT58run_type(XrT68result_type(a1)));
/*IF*/if (!(R)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(rT199start_position(C));
rT199error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT199make_call_1(T199 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT199make(T199 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT199fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,/*(IRF4*/(T0 *)ms97/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT199make_call_1(C,a1,(C)->_feature_name,_eal);
}
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;
}
int rT198is_static(T198 *C){
int R=0;
/*IF*/if (XrT58is_boolean(XrT68result_type((C)->_target))) {
/*IF*/if (XrT68is_static((C)->_target)) {
/*IF*/if ((XrT68static_value((C)->_target))==(0)) {
R=1;
}
else {
R=XrT68is_static(rT198arg1(C));
C->_static_value_mem=XrT68static_value(rT198arg1(C));
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int rT198static_value(T198 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT198fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT198to_runnable_0(T198 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT198error(XrT68start_position((C)->_target),(T0 *)ms1134);
}
else {
C->_target=_t;
_rc=XrT58run_class(XrT68result_type((C)->_target));
C->_run_feature=rT261get_rf((T261*)_rc,(C)->_target,(C)->_feature_name);
C->_result_type=XrT262result_type((C)->_run_feature);
/*IF*/if (!((C)->_result_type)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT262start_position((C)->_run_feature));
rT198error(((T70*)(C)->_feature_name)->_start_position,(T0 *)ms1146);
}
 else if (XrT58is_like_current((C)->_result_type)) {
C->_result_type=XrT68result_type((C)->_target);
}
/*FI*/}
/*FI*/}
T0* rT198to_runnable(T198 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT198to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT198error(XrT68start_position(rT198arg1(C)),(T0 *)ms1151);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT171match_with((T171*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT58is_like_argument((C)->_result_type))) {
C->_result_type=XrT58run_type(XrT68result_type(rT198arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT198twin(C);
/*(IRF3*/(((T198*)R)->_current_type)=(NULL);
/*)*/R=rT198to_runnable((T198*)R,a1);
}
/*FI*/return R;
}
void rT198error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT198add_comment(T198 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT59count((T59*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T221 *n=((T221*)se_new(221));
rT221make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
T0* rT198arg1(T198 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT198start_position(T198 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT198use_current(T198 *C){
int R=0;
/*IF*/{/*AT*/R=rT171use_current((T171*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT68is_current((C)->_target)) {
R=XrT262use_current((C)->_run_feature);
}
else {
R=XrT68use_current((C)->_target);
}
/*FI*/return R;
}
void rT198compile_to_c_old(T198 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT198compile_to_c(T198 *C){
rT198call_proc_call_c2c(C);
}
int rT198to_integer(T198 *C){
int R=0;
rT198error(rT198start_position(C),(T0 *)ms169);
return R;
}
T0* rT198dynamic(/*C*/T0* a1,T0* a2){
T0* R=NULL;
T0* _static=NULL;
T0* _sta_name=NULL;
T0* _dyn_name=NULL;
_static=XrT262current_type(a2);
_sta_name=XrT262name(a2);
_dyn_name=rT50name_of((T50*)rT261base_class((T261*)a1),XrT58base_class(_static),_sta_name);
R=rT261get_feature((T261*)a1,_dyn_name);
return R;
}
T0* rT198written_in(T198 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT198start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT198call_proc_call_c2c(T198 *C){
T0* _dyn_rf=NULL;
T0* _tt=NULL;
T0* _r=NULL;
_tt=XrT58run_type(XrT68result_type((C)->_target));
/*IF*/if (((XrT68is_current((C)->_target))||(XrT68is_manifest_string((C)->_target)))||(XrT58is_expanded(_tt))) {
rT43push_direct((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
else {
_r=((T261*)XrT58run_class(_tt))->_running;
/*IF*/if (!(_r)) {
rT43push_void((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
 else if ((rT264count((T264*)_r))==(1)) {
_dyn_rf=rT198dynamic(rT264first((T264*)_r),(C)->_run_feature);
rT43push_check((T43*)oRBC27cpp,_dyn_rf,(C)->_target,(C)->_arguments);
XrT262mapping_c(_dyn_rf);
rT43pop((T43*)oRBC27cpp);
}
else {
rT43use_switch((T43*)oRBC27cpp,(C)->_run_feature,_r,(C)->_target,(C)->_arguments);
}
/*FI*/}
/*FI*/}
void rT198copy(T198 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT198is_a(T198 *C,T0* a1){
int R=0;
R=XrT58is_a(XrT58run_type((C)->_result_type),XrT58run_type(XrT68result_type(a1)));
/*IF*/if (!(R)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(rT198start_position(C));
rT198error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT198make_call_1(T198 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT198make(T198 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT198fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,/*(IRF4*/(T0 *)ms99/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT198make_call_1(C,a1,(C)->_feature_name,_eal);
}
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;
}
int rT197is_static(T197 *C){
int R=0;
/*IF*/if (XrT58is_integer(XrT68result_type((C)->_target))) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT197arg1(C)))) {
R=1;
/*IF*/if ((XrT68static_value((C)->_target))>(XrT68static_value(rT197arg1(C)))) {
C->_static_value_mem=1;
}
else {
C->_static_value_mem=0;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int rT197static_value(T197 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT197fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT197to_runnable_0(T197 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT197error(XrT68start_position((C)->_target),(T0 *)ms1134);
}
else {
C->_target=_t;
_rc=XrT58run_class(XrT68result_type((C)->_target));
C->_run_feature=rT261get_rf((T261*)_rc,(C)->_target,(C)->_feature_name);
C->_result_type=XrT262result_type((C)->_run_feature);
/*IF*/if (!((C)->_result_type)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT262start_position((C)->_run_feature));
rT197error(((T70*)(C)->_feature_name)->_start_position,(T0 *)ms1146);
}
 else if (XrT58is_like_current((C)->_result_type)) {
C->_result_type=XrT68result_type((C)->_target);
}
/*FI*/}
/*FI*/}
T0* rT197to_runnable(T197 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT197to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT197error(XrT68start_position(rT197arg1(C)),(T0 *)ms1151);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT171match_with((T171*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT58is_like_argument((C)->_result_type))) {
C->_result_type=XrT58run_type(XrT68result_type(rT197arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT197twin(C);
/*(IRF3*/(((T197*)R)->_current_type)=(NULL);
/*)*/R=rT197to_runnable((T197*)R,a1);
}
/*FI*/return R;
}
void rT197error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT197add_comment(T197 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT59count((T59*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T221 *n=((T221*)se_new(221));
rT221make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
T0* rT197arg1(T197 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT197start_position(T197 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT197use_current(T197 *C){
int R=0;
/*IF*/{/*AT*/R=rT171use_current((T171*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT68is_current((C)->_target)) {
R=XrT262use_current((C)->_run_feature);
}
else {
R=XrT68use_current((C)->_target);
}
/*FI*/return R;
}
void rT197compile_to_c_old(T197 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT197compile_to_c(T197 *C){
/*IF*/if ((rT44boost((T44*)oRBC27eiffel_run_control))&&(XrT58is_character(XrT58run_type(XrT68result_type((C)->_target))))) {
rT43put_character((T43*)oRBC27cpp,'\50');
XrT68compile_to_c((C)->_target);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1239);
XrT68compile_to_c(rT197arg1(C));
rT43put_character((T43*)oRBC27cpp,'\51');
}
else {
rT197call_proc_call_c2c(C);
}
/*FI*/}
int rT197to_integer(T197 *C){
int R=0;
rT197error(rT197start_position(C),(T0 *)ms169);
return R;
}
T0* rT197dynamic(/*C*/T0* a1,T0* a2){
T0* R=NULL;
T0* _static=NULL;
T0* _sta_name=NULL;
T0* _dyn_name=NULL;
_static=XrT262current_type(a2);
_sta_name=XrT262name(a2);
_dyn_name=rT50name_of((T50*)rT261base_class((T261*)a1),XrT58base_class(_static),_sta_name);
R=rT261get_feature((T261*)a1,_dyn_name);
return R;
}
T0* rT197written_in(T197 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT197start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT197call_proc_call_c2c(T197 *C){
T0* _dyn_rf=NULL;
T0* _tt=NULL;
T0* _r=NULL;
_tt=XrT58run_type(XrT68result_type((C)->_target));
/*IF*/if (((XrT68is_current((C)->_target))||(XrT68is_manifest_string((C)->_target)))||(XrT58is_expanded(_tt))) {
rT43push_direct((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
else {
_r=((T261*)XrT58run_class(_tt))->_running;
/*IF*/if (!(_r)) {
rT43push_void((T43*)oRBC27cpp,(C)->_run_feature,(C)->_target,(C)->_arguments);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
 else if ((rT264count((T264*)_r))==(1)) {
_dyn_rf=rT197dynamic(rT264first((T264*)_r),(C)->_run_feature);
rT43push_check((T43*)oRBC27cpp,_dyn_rf,(C)->_target,(C)->_arguments);
XrT262mapping_c(_dyn_rf);
rT43pop((T43*)oRBC27cpp);
}
else {
rT43use_switch((T43*)oRBC27cpp,(C)->_run_feature,_r,(C)->_target,(C)->_arguments);
}
/*FI*/}
/*FI*/}
void rT197copy(T197 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT197is_a(T197 *C,T0* a1){
int R=0;
R=XrT58is_a(XrT58run_type((C)->_result_type),XrT58run_type(XrT68result_type(a1)));
/*IF*/if (!(R)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(rT197start_position(C));
rT197error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT197make_call_1(T197 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT197make(T197 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT197fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,(T0 *)ms320,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT197make_call_1(C,a1,(C)->_feature_name,_eal);
}
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;
}
int rT196is_static(T196 *C){
int R=0;
/*IF*/if (XrT58is_integer(XrT68result_type((C)->_target))) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT196arg1(C)))) {
R=1;
/*IF*/if ((XrT68static_value((C)->_target))>=(XrT68static_value(rT196arg1(C)))) {
C->_static_value_mem=1;
}
else {
C->_static_value_mem=0;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int rT196static_value(T196 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT196fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT196to_runnable_0(T196 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT196error(XrT68start_position((C)->_target),(T0 *)ms1134);
}
else {
C->_target=_t;
_rc=XrT58run_class(XrT68result_type((C)->_target));
C->_run_feature=rT261get_rf((T261*)_rc,(C)->_target,(C)->_feature_name);
C->_result_type=XrT262result_type((C)->_run_feature);
/*IF*/if (!((C)->_result_type)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT262start_position((C)->_run_feature));
rT196error(((T70*)(C)->_feature_name)->_start_position,(T0 *)ms1146);
}
 else if (XrT58is_like_current((C)->_result_type)) {
C->_result_type=XrT68result_type((C)->_target);
}
/*FI*/}
/*FI*/}
T0* rT196to_runnable(T196 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT196to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT196error(XrT68start_position(rT196arg1(C)),(T0 *)ms1151);
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
rT171match_with((T171*)(C)->_arguments,(C)->_run_feature);
}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0))&&(XrT58is_like_argument((C)->_result_type))) {
C->_result_type=XrT58run_type(XrT68result_type(rT196arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT196twin(C);
/*(IRF3*/(((T196*)R)->_current_type)=(NULL);
/*)*/R=rT196to_runnable((T196*)R,a1);
}
/*FI*/return R;
}
void rT196error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT196add_comment(T196 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT59count((T59*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T221 *n=((T221*)se_new(221));
rT221make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
T0* rT196arg1(T196 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT196start_position(T196 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT196use_current(T196 *C){
int R=0;
/*IF*/{/*AT*/R=rT171use_current((T171*)(C)->_arguments);
}
/*FI*//*IF*/if (R) {
}
 else if (XrT68is_current((C)->_target)) {
R=XrT262use_current((C)->_run_feature);
}
else {
R=XrT68use_current((C)->_target);
}
/*FI*/return R;
}

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