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

This is compile_to_c18.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"
void rT175compile_to_c(T175 *C){
rT175call_proc_call_c2c(C);
}
int rT175to_integer(T175 *C){
int R=0;
rT175error(rT175start_position(C),(T0 *)ms169);
return R;
}
T0* rT175dynamic(/*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* rT175written_in(T175 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT175start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT175call_proc_call_c2c(T175 *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=rT175dynamic(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 rT175copy(T175 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT175is_a(T175 *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(rT175start_position(C));
rT175error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT175make(T175 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
T0* rT163twin(T163 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
XrT163copy(R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT163is_static(T163 *C){
int R=0;
T0* _name=NULL;
/*IF*/if (((int)(C)->_run_feature)) {
_name=XrT67to_string(XrT262name((C)->_run_feature));
/*IF*/if (rT7is_equal((T7*)(T0 *)ms1124,_name)) {
R=1;
/*IF*/if (XrT58is_expanded(XrT68result_type((C)->_target))) {
C->_static_value_mem=1;
}
/*FI*/}
else {
R=rT163call_is_static(C);
}
/*FI*/}
/*FI*/return R;
}
int rT163static_value(T163 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT163to_runnable_0(T163 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT163error(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));
rT163error(XrT67start_position((C)->_feature_name),(T0 *)ms1146);
}
 else if (XrT58is_like_current((C)->_result_type)) {
C->_result_type=XrT68result_type((C)->_target);
}
/*FI*/}
/*FI*/}
T0* rT163to_runnable(T163 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT163to_runnable_0(C,a1);
/*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0))&&((XrT262arg_count((C)->_run_feature))>(0))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT67start_position((C)->_feature_name));
rT163error(XrT262start_position((C)->_run_feature),(T0 *)ms1147);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT163twin(C);
XrT163set_current_type(R,NULL);
R=XrT163to_runnable(R,a1);
}
/*FI*/return R;
}
void rT163error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT163add_comment(T163 *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* rT163start_position(T163 *C){
T0* R=NULL;
R=XrT67start_position((C)->_feature_name);
return R;
}
int rT163use_current(T163 *C){
int R=0;
/*IF*/if ((/*(IRF4*/0/*)*/)>(0)) {
R=rT171use_current((T171*)/*(IRF4*/NULL/*)*/);
}
/*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;
}
int rT163can_be_dropped(T163 *C){
int R=0;
/*IF*/if (XrT68is_current((C)->_target)) {
R=XrT262can_be_dropped((C)->_run_feature);
}
/*FI*/return R;
}
void rT163compile_to_c_old(T163 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/if ((/*(IRF4*/0/*)*/)>(0)) {
rT171compile_to_c_old((T171*)/*(IRF4*/NULL/*)*/);
}
/*FI*/}
void rT163compile_to_c(T163 *C){
T0* _n=NULL;
_n=XrT67to_string((C)->_feature_name);
/*IF*/if (rT7is_equal((T7*)(T0 *)ms1124,_n)) {
/*IF*/if (XrT58is_expanded(XrT58run_type(XrT68result_type((C)->_target)))) {
rT43put_character((T43*)oRBC27cpp,'1');
}
else {
rT43put_character((T43*)oRBC27cpp,'0');
}
/*FI*/}
 else if (rT7is_equal((T7*)(T0 *)ms1202,_n)) {
/*IF*/if (XrT58fast_mapping_c(XrT58run_type(XrT68result_type((C)->_target)))) {
rT43put_character((T43*)oRBC27cpp,'1');
}
else {
rT43put_character((T43*)oRBC27cpp,'0');
}
/*FI*/}
else {
rT163call_proc_call_c2c(C);
}
/*FI*/}
int rT163to_integer(T163 *C){
int R=0;
T0* _rf1=NULL;
_rf1=(C)->_run_feature;
if ((int)_rf1) switch (((T0 *)_rf1)->id) {
case 278: 
break;
default:
_rf1 = NULL;
};/*IF*/if (!(_rf1)) {
rT163error(rT163start_position(C),(T0 *)ms169);
}
else {
R=XrT68to_integer(((T278*)_rf1)->_value);
}
/*FI*/return R;
}
T0* rT163dynamic(/*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* rT163written_in(T163 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT163start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT163call_proc_call_c2c(T163 *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,/*(IRF4*/NULL/*)*/);
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,/*(IRF4*/NULL/*)*/);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
 else if ((rT264count((T264*)_r))==(1)) {
_dyn_rf=rT163dynamic(rT264first((T264*)_r),(C)->_run_feature);
rT43push_check((T43*)oRBC27cpp,_dyn_rf,(C)->_target,/*(IRF4*/NULL/*)*/);
XrT262mapping_c(_dyn_rf);
rT43pop((T43*)oRBC27cpp);
}
else {
rT43use_switch((T43*)oRBC27cpp,(C)->_run_feature,_r,(C)->_target,/*(IRF4*/NULL/*)*/);
}
/*FI*/}
/*FI*/}
void rT163copy(T163 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT163call_is_static(T163 *C){
int R=0;
T0* _rc=NULL;
/*IF*/if (((int)(C)->_run_feature)) {
_rc=XrT262run_class((C)->_run_feature);
/*IF*/if ((rT264count((T264*)((T261*)_rc)->_running))==(1)) {
/*IF*/if (XrT262is_static((C)->_run_feature)) {
C->_static_value_mem=XrT262static_value_mem((C)->_run_feature);
R=1;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int rT163is_a(T163 *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(rT163start_position(C));
rT163error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
int rT163is_pre_computable(T163 *C){
int R=0;
/*IF*/if (XrT68is_current((C)->_target)) {
R=XrT262is_pre_computable((C)->_run_feature);
}
/*FI*/return R;
}
void rT163make(T163 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}
T0* rT161twin(T161 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT161copy((T161*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT161is_static(T161 *C){
int R=0;
/*IF*/if (XrT58is_boolean(XrT68result_type((C)->_target))) {
/*IF*/if (XrT68is_static((C)->_target)) {
R=1;
/*IF*/if ((XrT68static_value((C)->_target))==(0)) {
C->_static_value_mem=1;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int rT161static_value(T161 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT161to_runnable_0(T161 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT161error(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));
rT161error(((T66*)(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* rT161to_runnable(T161 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT161to_runnable_0(C,a1);
/*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0))&&((XrT262arg_count((C)->_run_feature))>(0))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(((T66*)(C)->_feature_name)->_start_position);
rT161error(XrT262start_position((C)->_run_feature),(T0 *)ms1147);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT161twin(C);
/*(IRF3*/(((T161*)R)->_current_type)=(NULL);
/*)*/R=rT161to_runnable((T161*)R,a1);
}
/*FI*/return R;
}
void rT161error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT161add_comment(T161 *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* rT161start_position(T161 *C){
T0* R=NULL;
R=((T66*)(C)->_feature_name)->_start_position;
return R;
}
int rT161use_current(T161 *C){
int R=0;
/*IF*//*AF*//*AE*/
/*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;
}
int rT161can_be_dropped(T161 *C){
int R=0;
/*IF*/if (XrT68is_current((C)->_target)) {
R=XrT262can_be_dropped((C)->_run_feature);
}
/*FI*/return R;
}
void rT161compile_to_c_old(T161 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*//*AF*//*AE*/
/*FI*/}
void rT161compile_to_c(T161 *C){
/*IF*/if ((rT44boost((T44*)oRBC27eiffel_run_control))&&(XrT58is_boolean(XrT58run_type(XrT68result_type((C)->_target))))) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1178);
XrT68compile_to_c((C)->_target);
rT43put_character((T43*)oRBC27cpp,'\51');
}
else {
rT161call_proc_call_c2c(C);
}
/*FI*/}
int rT161to_integer(T161 *C){
int R=0;
T0* _rf1=NULL;
_rf1=(C)->_run_feature;
if ((int)_rf1) switch (((T0 *)_rf1)->id) {
case 278: 
break;
default:
_rf1 = NULL;
};/*IF*/if (!(_rf1)) {
rT161error(rT161start_position(C),(T0 *)ms169);
}
else {
R=XrT68to_integer(((T278*)_rf1)->_value);
}
/*FI*/return R;
}
T0* rT161dynamic(/*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* rT161written_in(T161 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT161start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
int rT161call_is_static(T161 *C){
int R=0;
T0* _rc=NULL;
/*IF*/if (((int)(C)->_run_feature)) {
_rc=XrT262run_class((C)->_run_feature);
/*IF*/if ((rT264count((T264*)((T261*)_rc)->_running))==(1)) {
/*IF*/if (XrT262is_static((C)->_run_feature)) {
C->_static_value_mem=XrT262static_value_mem((C)->_run_feature);
R=1;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
void rT161call_proc_call_c2c(T161 *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,/*(IRF4*/NULL/*)*/);
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,/*(IRF4*/NULL/*)*/);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
 else if ((rT264count((T264*)_r))==(1)) {
_dyn_rf=rT161dynamic(rT264first((T264*)_r),(C)->_run_feature);
rT43push_check((T43*)oRBC27cpp,_dyn_rf,(C)->_target,/*(IRF4*/NULL/*)*/);
XrT262mapping_c(_dyn_rf);
rT43pop((T43*)oRBC27cpp);
}
else {
rT43use_switch((T43*)oRBC27cpp,(C)->_run_feature,_r,(C)->_target,/*(IRF4*/NULL/*)*/);
}
/*FI*/}
/*FI*/}
void rT161copy(T161 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT161is_a(T161 *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(rT161start_position(C));
rT161error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
int rT161is_pre_computable(T161 *C){
int R=0;
/*IF*/if (XrT68is_current((C)->_target)) {
R=XrT262is_pre_computable((C)->_run_feature);
}
/*FI*/return R;
}
void rT161make_call0(T161 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}
void rT161make(T161 *C,T0* a1,T0* a2){
{T66 *n=((T66*)se_new(66));
rT66make(n,/*(IRF4*/(T0 *)ms78/*)*/,a1);
C->_feature_name=(T0 *)n;}
rT161make_call0(C,a2,(C)->_feature_name);
}
T0* rT166twin(T166 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT166copy((T166*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT166is_static(T166 *C){
int R=0;
/*IF*/if (XrT58is_integer(XrT68result_type((C)->_target))) {
/*IF*/if (XrT68is_static((C)->_target)) {
R=1;
C->_static_value_mem=XrT68static_value((C)->_target);
}
/*FI*/}
/*FI*/return R;
}
int rT166static_value(T166 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT166to_runnable_0(T166 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT166error(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));
rT166error(((T66*)(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* rT166to_runnable(T166 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT166to_runnable_0(C,a1);
/*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0))&&((XrT262arg_count((C)->_run_feature))>(0))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(((T66*)(C)->_feature_name)->_start_position);
rT166error(XrT262start_position((C)->_run_feature),(T0 *)ms1147);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT166twin(C);
/*(IRF3*/(((T166*)R)->_current_type)=(NULL);
/*)*/R=rT166to_runnable((T166*)R,a1);
}
/*FI*/return R;
}
void rT166error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT166add_comment(T166 *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* rT166start_position(T166 *C){
T0* R=NULL;
R=((T66*)(C)->_feature_name)->_start_position;
return R;
}
int rT166use_current(T166 *C){
int R=0;
/*IF*//*AF*//*AE*/
/*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;
}
int rT166can_be_dropped(T166 *C){
int R=0;
/*IF*/if (XrT68is_current((C)->_target)) {
R=XrT262can_be_dropped((C)->_run_feature);
}
/*FI*/return R;
}
void rT166compile_to_c_old(T166 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*//*AF*//*AE*/
/*FI*/}
void rT166compile_to_c(T166 *C){
T0* _n=NULL;
_n=((T66*)(C)->_feature_name)->_to_string;
/*IF*/if (rT7is_equal((T7*)(T0 *)ms1124,_n)) {
/*IF*/if (XrT58is_expanded(XrT58run_type(XrT68result_type((C)->_target)))) {
rT43put_character((T43*)oRBC27cpp,'1');
}
else {
rT43put_character((T43*)oRBC27cpp,'0');
}
/*FI*/}
 else if (rT7is_equal((T7*)(T0 *)ms1202,_n)) {
/*IF*/if (XrT58fast_mapping_c(XrT58run_type(XrT68result_type((C)->_target)))) {
rT43put_character((T43*)oRBC27cpp,'1');
}
else {
rT43put_character((T43*)oRBC27cpp,'0');
}
/*FI*/}
else {
rT166call_proc_call_c2c(C);
}
/*FI*/}
int rT166to_integer(T166 *C){
int R=0;
T0* _rf1=NULL;
_rf1=(C)->_run_feature;
if ((int)_rf1) switch (((T0 *)_rf1)->id) {
case 278: 
break;
default:
_rf1 = NULL;
};/*IF*/if (!(_rf1)) {
rT166error(rT166start_position(C),(T0 *)ms169);
}
else {
R=XrT68to_integer(((T278*)_rf1)->_value);
}
/*FI*/return R;
}
T0* rT166dynamic(/*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* rT166written_in(T166 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT166start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
int rT166call_is_static(T166 *C){
int R=0;
T0* _rc=NULL;
/*IF*/if (((int)(C)->_run_feature)) {
_rc=XrT262run_class((C)->_run_feature);
/*IF*/if ((rT264count((T264*)((T261*)_rc)->_running))==(1)) {
/*IF*/if (XrT262is_static((C)->_run_feature)) {
C->_static_value_mem=XrT262static_value_mem((C)->_run_feature);
R=1;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
void rT166call_proc_call_c2c(T166 *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,/*(IRF4*/NULL/*)*/);
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,/*(IRF4*/NULL/*)*/);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
 else if ((rT264count((T264*)_r))==(1)) {
_dyn_rf=rT166dynamic(rT264first((T264*)_r),(C)->_run_feature);
rT43push_check((T43*)oRBC27cpp,_dyn_rf,(C)->_target,/*(IRF4*/NULL/*)*/);
XrT262mapping_c(_dyn_rf);
rT43pop((T43*)oRBC27cpp);
}
else {
rT43use_switch((T43*)oRBC27cpp,(C)->_run_feature,_r,(C)->_target,/*(IRF4*/NULL/*)*/);
}
/*FI*/}
/*FI*/}
void rT166copy(T166 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT166is_a(T166 *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(rT166start_position(C));
rT166error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
int rT166is_pre_computable(T166 *C){
int R=0;
/*IF*/if (XrT68is_current((C)->_target)) {
R=XrT262is_pre_computable((C)->_run_feature);
}
/*FI*/return R;
}
void rT166make_call0(T166 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}
void rT166make(T166 *C,T0* a1,T0* a2){
{T66 *n=((T66*)se_new(66));
rT66make(n,/*(IRF4*/(T0 *)ms80/*)*/,a1);
C->_feature_name=(T0 *)n;}
rT166make_call0(C,a2,(C)->_feature_name);
}
T0* rT167twin(T167 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT167copy((T167*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT167is_static(T167 *C){
int R=0;
/*IF*/if (XrT58is_integer(XrT68result_type((C)->_target))) {
/*IF*/if (XrT68is_static((C)->_target)) {
R=1;
C->_static_value_mem=-(XrT68static_value((C)->_target));
}
/*FI*/}
/*FI*/return R;
}
int rT167static_value(T167 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT167to_runnable_0(T167 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT167error(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));
rT167error(((T66*)(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* rT167to_runnable(T167 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT167to_runnable_0(C,a1);
/*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0))&&((XrT262arg_count((C)->_run_feature))>(0))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(((T66*)(C)->_feature_name)->_start_position);
rT167error(XrT262start_position((C)->_run_feature),(T0 *)ms1147);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT167twin(C);
/*(IRF3*/(((T167*)R)->_current_type)=(NULL);
/*)*/R=rT167to_runnable((T167*)R,a1);
}
/*FI*/return R;
}
void rT167error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT167add_comment(T167 *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* rT167start_position(T167 *C){
T0* R=NULL;
R=((T66*)(C)->_feature_name)->_start_position;
return R;
}
int rT167use_current(T167 *C){
int R=0;
/*IF*//*AF*//*AE*/
/*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;
}
int rT167can_be_dropped(T167 *C){
int R=0;
/*IF*/if (XrT68is_current((C)->_target)) {
R=XrT262can_be_dropped((C)->_run_feature);
}
/*FI*/return R;
}
void rT167compile_to_c_old(T167 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*//*AF*//*AE*/
/*FI*/}
void rT167compile_to_c(T167 *C){
/*IF*/if ((rT44boost((T44*)oRBC27eiffel_run_control))&&(XrT58fast_mapping_c(XrT262current_type((C)->_run_feature)))) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1203);
XrT68compile_to_c((C)->_target);
rT43put_character((T43*)oRBC27cpp,'\51');
}
else {
rT167call_proc_call_c2c(C);
}
/*FI*/}
int rT167to_integer(T167 *C){
int R=0;
T0* _rf1=NULL;
_rf1=(C)->_run_feature;
if ((int)_rf1) switch (((T0 *)_rf1)->id) {
case 278: 
break;
default:
_rf1 = NULL;
};/*IF*/if (!(_rf1)) {
rT167error(rT167start_position(C),(T0 *)ms169);
}
else {
R=XrT68to_integer(((T278*)_rf1)->_value);
}
/*FI*/return R;
}
T0* rT167dynamic(/*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* rT167written_in(T167 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT167start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
int rT167call_is_static(T167 *C){
int R=0;
T0* _rc=NULL;
/*IF*/if (((int)(C)->_run_feature)) {
_rc=XrT262run_class((C)->_run_feature);
/*IF*/if ((rT264count((T264*)((T261*)_rc)->_running))==(1)) {
/*IF*/if (XrT262is_static((C)->_run_feature)) {
C->_static_value_mem=XrT262static_value_mem((C)->_run_feature);
R=1;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
void rT167call_proc_call_c2c(T167 *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,/*(IRF4*/NULL/*)*/);
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,/*(IRF4*/NULL/*)*/);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
 else if ((rT264count((T264*)_r))==(1)) {
_dyn_rf=rT167dynamic(rT264first((T264*)_r),(C)->_run_feature);
rT43push_check((T43*)oRBC27cpp,_dyn_rf,(C)->_target,/*(IRF4*/NULL/*)*/);
XrT262mapping_c(_dyn_rf);
rT43pop((T43*)oRBC27cpp);
}
else {
rT43use_switch((T43*)oRBC27cpp,(C)->_run_feature,_r,(C)->_target,/*(IRF4*/NULL/*)*/);
}
/*FI*/}
/*FI*/}
void rT167copy(T167 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT167is_a(T167 *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(rT167start_position(C));
rT167error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
int rT167is_pre_computable(T167 *C){
int R=0;
/*IF*/if (XrT68is_current((C)->_target)) {
R=XrT262is_pre_computable((C)->_run_feature);
}
/*FI*/return R;
}
void rT167make_call0(T167 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}
void rT167make(T167 *C,T0* a1,T0* a2){
{T66 *n=((T66*)se_new(66));
rT66make(n,/*(IRF4*/(T0 *)ms81/*)*/,a1);
C->_feature_name=(T0 *)n;}
rT167make_call0(C,a2,(C)->_feature_name);
}
T0* rT168twin(T168 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT168copy((T168*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT168is_static(T168 *C){
int R=0;
R=rT168call_is_static(C);
return R;
}
int rT168static_value(T168 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT168to_runnable_0(T168 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT168error(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));
rT168error(((T66*)(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* rT168to_runnable(T168 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT168to_runnable_0(C,a1);
/*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0))&&((XrT262arg_count((C)->_run_feature))>(0))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(((T66*)(C)->_feature_name)->_start_position);
rT168error(XrT262start_position((C)->_run_feature),(T0 *)ms1147);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT168twin(C);
/*(IRF3*/(((T168*)R)->_current_type)=(NULL);
/*)*/R=rT168to_runnable((T168*)R,a1);
}
/*FI*/return R;
}
void rT168error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT168add_comment(T168 *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* rT168start_position(T168 *C){
T0* R=NULL;
R=((T66*)(C)->_feature_name)->_start_position;
return R;
}
int rT168use_current(T168 *C){
int R=0;
/*IF*//*AF*//*AE*/
/*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;
}
int rT168can_be_dropped(T168 *C){
int R=0;
/*IF*/if (XrT68is_current((C)->_target)) {
R=XrT262can_be_dropped((C)->_run_feature);
}
/*FI*/return R;
}
T0* rT168operator(T168 *C){
T0* R=NULL;
R=((T66*)(C)->_feature_name)->_to_string;
return R;
}
void rT168compile_to_c_old(T168 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*//*AF*//*AE*/
/*FI*/}
void rT168compile_to_c(T168 *C){
T0* _n=NULL;
_n=((T66*)(C)->_feature_name)->_to_string;
/*IF*/if (rT7is_equal((T7*)(T0 *)ms1124,_n)) {
/*IF*/if (XrT58is_expanded(XrT58run_type(XrT68result_type((C)->_target)))) {
rT43put_character((T43*)oRBC27cpp,'1');
}
else {
rT43put_character((T43*)oRBC27cpp,'0');
}
/*FI*/}
 else if (rT7is_equal((T7*)(T0 *)ms1202,_n)) {
/*IF*/if (XrT58fast_mapping_c(XrT58run_type(XrT68result_type((C)->_target)))) {
rT43put_character((T43*)oRBC27cpp,'1');
}
else {
rT43put_character((T43*)oRBC27cpp,'0');
}
/*FI*/}
else {
rT168call_proc_call_c2c(C);
}
/*FI*/}
int rT168to_integer(T168 *C){
int R=0;
T0* _rf1=NULL;
_rf1=(C)->_run_feature;
if ((int)_rf1) switch (((T0 *)_rf1)->id) {
case 278: 
break;
default:
_rf1 = NULL;
};/*IF*/if (!(_rf1)) {
rT168error(rT168start_position(C),(T0 *)ms169);
}
else {
R=XrT68to_integer(((T278*)_rf1)->_value);
}
/*FI*/return R;
}
T0* rT168dynamic(/*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* rT168written_in(T168 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT168start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT168call_proc_call_c2c(T168 *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,/*(IRF4*/NULL/*)*/);
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,/*(IRF4*/NULL/*)*/);
XrT262mapping_c((C)->_run_feature);
rT43pop((T43*)oRBC27cpp);
}
 else if ((rT264count((T264*)_r))==(1)) {
_dyn_rf=rT168dynamic(rT264first((T264*)_r),(C)->_run_feature);
rT43push_check((T43*)oRBC27cpp,_dyn_rf,(C)->_target,/*(IRF4*/NULL/*)*/);
XrT262mapping_c(_dyn_rf);
rT43pop((T43*)oRBC27cpp);
}
else {
rT43use_switch((T43*)oRBC27cpp,(C)->_run_feature,_r,(C)->_target,/*(IRF4*/NULL/*)*/);
}
/*FI*/}
/*FI*/}
void rT168copy(T168 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT168call_is_static(T168 *C){
int R=0;
T0* _rc=NULL;
/*IF*/if (((int)(C)->_run_feature)) {
_rc=XrT262run_class((C)->_run_feature);
/*IF*/if ((rT264count((T264*)((T261*)_rc)->_running))==(1)) {
/*IF*/if (XrT262is_static((C)->_run_feature)) {
C->_static_value_mem=XrT262static_value_mem((C)->_run_feature);
R=1;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int rT168is_a(T168 *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(rT168start_position(C));
rT168error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
int rT168is_pre_computable(T168 *C){
int R=0;
/*IF*/if (XrT68is_current((C)->_target)) {
R=XrT262is_pre_computable((C)->_run_feature);
}
/*FI*/return R;
}
void rT168make_prefix(T168 *C,T0* a1,T0* a2){
{T66 *n=((T66*)se_new(66));
rT66make(n,rT168operator(C),a1);
C->_feature_name=(T0 *)n;}
rT168make_call0(C,a2,(C)->_feature_name);
}
void rT168make_call0(T168 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}
void rT168make(T168 *C,T0* a1,T0* a2){
rT168make_call0(C,a1,a2);
}
T0* rT88twin(T88 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT88copy((T88*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT88static_value(T88 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
T0* rT88to_runnable(T88 *C,T0* a1){
T0* R=NULL;
T0* _rf=NULL;
/*IF*/if (!((C)->_current_type)) {
C->_current_type=a1;
_rf=rT52top_rf((T52*)oRBC27small_eiffel);
C->_result_type=rT92type((T92*)XrT262arguments(_rf),(C)->_rank);
R=(T0 *)C;
/*IF*/if (rT50has_feature((T50*)rT88base_class_written(C),(C)->_to_string)) {
_rf=rT261get_feature_with((T261*)XrT58run_class(a1),(C)->_to_string);
/*IF*/if (((int)_rf)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT262start_position(_rf));
}
/*FI*/rT88error((C)->_start_position,(T0 *)ms1131);
}
/*FI*/}
else {
R=rT88twin(C);
/*(IRF3*/(((T88*)R)->_current_type)=(NULL);
/*)*/R=rT88to_runnable((T88*)R,a1);
}
/*FI*/return R;
}
void rT88error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT88add_comment(T88 *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* rT88to_key(T88 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
void rT88compile_to_c(T88 *C){
rT43put_character((T43*)oRBC27cpp,'a');
rT43put_integer((T43*)oRBC27cpp,(C)->_rank);
}
int rT88to_integer(T88 *C){
int R=0;
rT88error((C)->_start_position,(T0 *)ms169);
return R;
}
T0* rT88written_in(T88 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=(C)->_start_position;
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
T0* rT88base_class_written(T88 *C){
T0* R=NULL;
R=rT48base_class((T48*)rT88written_in(C));
return R;
}
void rT88copy(T88 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT88is_a(T88 *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((C)->_start_position);
rT88error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT88make(T88 *C,T0* a1,T0* a2,int a3){
C->_start_position=a1;
C->_to_string=a2;
C->_rank=a3;
}
int rT70same_as(T70 *C,T0* a1){
int R=0;
R=rT7is_equal((T7*)rT70to_key(C),XrT49to_key(a1));
return R;
}
int rT70static_value(T70 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT70fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
T0* rT70to_runnable(T70 *C,T0* a1){
T0* R=NULL;
T0* _rf=NULL;
/*IF*/if (!((C)->_current_type)) {
C->_current_type=a1;
_rf=rT261get_feature((T261*)XrT58run_class((C)->_current_type),(T0 *)C);
/*IF*/if (!(_rf)) {
rT70error((C)->_start_position,(T0 *)ms1125);
}
 else if (XrT262is_writable(_rf)) {
C->_result_type=XrT262result_type(_rf);
}
else {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT262start_position(_rf));
rT70error((C)->_start_position,(T0 *)ms1126);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
else {
rT70error((C)->_start_position,(T0 *)ms1127);
}
/*FI*/}
 else if (((T0 *)a1)==((T0 *)(C)->_current_type)) {
R=(T0 *)C;
}
 else if (rT7is_equal((T7*)XrT58run_time_mark(a1),XrT58run_time_mark((C)->_current_type))) {
rT70error((C)->_start_position,(T0 *)ms1128);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type(a1,(T0 *)ms1129);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((C)->_current_type,(T0 *)ms1130);
rT45print_as_error((T45*)oRBC27eh);
}
else {
{T70 *n=((T70*)se_new(70));
rT70make(n,(C)->_to_string,(C)->_start_position);
R=(T0 *)n;}
R=rT70to_runnable((T70*)R,a1);
}
/*FI*/return R;
}
void rT70error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT70add_comment(T70 *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;
}
int rT70is_equal(T70 *C,T0* a1){
int R=0;
R=rT70standard_is_equal(C,a1);
return R;
}
T0* rT70to_key(T70 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
int rT70can_be_dropped(T70 *C){
int R=0;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position((C)->_start_position);
rT70fatal_error((T0 *)ms1534);
return R;
}
void rT70mapping_c(T70 *C){
/*(IRF3*/(((T7*)oRBC67mapping_c_mem)->_count)=(0);
/*)*/rT70mapping_c_in(C,oRBC67mapping_c_mem);
rT43put_string((T43*)oRBC27cpp,oRBC67mapping_c_mem);
}
void rT70mapping_c_in(T70 *C,T0* a1){
/*IF*/{/*AT*//*IF*/if (rT7is_equal((T7*)(T0 *)ms96,(C)->_to_string)) {
rT7append((T7*)a1,(C)->_to_string);
}
else {
rT7append((T7*)a1,(T0 *)ms804);
rT70mapping_c_aux(C,a1);
}
/*FI*/}
/*FI*/}
void rT70mapping_c_aux(T70 *C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>(((T7*)(C)->_to_string)->_count))) {
rT2append_in(((unsigned char)rT7item((T7*)(C)->_to_string,_i)),a1);
_i=(_i)+(1);
}
}
void rT70compile_to_c(T70 *C){
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1172);
rT43put_string((T43*)oRBC27cpp,(C)->_to_string);
}
int rT70to_integer(T70 *C){
int R=0;
rT70error((C)->_start_position,(T0 *)ms169);
return R;
}
T0* rT70to_err_msg2(T70 *C){
T0* R=NULL;
R=rT70to_err2(C);
return R;
}
T0* rT70to_err1(T70 *C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(C)->_to_string);
R=(T0 *)n;}
rT7precede((T7*)R,'\140');
rT7extend((T7*)R,'\47');
return R;
}
T0* rT70to_err2(T70 *C){
T0* R=NULL;
R=rT70to_err1(C);
/*IF*/if (((int)(C)->_start_position)) {
rT7append((T7*)R,(T0 *)ms458);
rT7append((T7*)R,rT46to_err_msg((T46*)(C)->_start_position));
rT7append((T7*)R,(T0 *)ms462);
}
/*FI*/return R;
}
T0* rT70to_err_msg(T70 *C){
T0* R=NULL;
R=rT70to_err2(C);
rT7prepend((T7*)R,(T0 *)ms1447);
return R;
}
T0* rT70written_in(T70 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=(C)->_start_position;
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}

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