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

This is compile_to_c34.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_0*/T0* rT167twin(T167 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
XrT167copy(R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_0*/int rT167is_static(T167 *C){
int R=0;
T0* _name=NULL;
/*IF*/if (((int)(C)->_run_feature)) {
_name=/*XrT*FEATURE_NAME*/((T70*)/*XrT*RUN_FEATURE*/((T274*)(C)->_run_feature)->_name)->_to_string;
/*IF*/if (rT7is_equal((T7*)(T0 *)ms75_27,_name)) {
R=1;
/*IF*/if (XrT62is_expanded(XrT72result_type((C)->_target))) {
C->_static_value_mem=1;
}
/*FI*/}
else {
R=rT167call_is_static(C);
}
/*FI*/}
/*FI*/return R;
}
/*CALL_0*/int rT167static_value(T167 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_0*/void rT167fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_0*/void rT167cpc_to_runnable(T167 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT167fatal_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_0*/void rT167to_runnable_0(T167 *C,T0* a1){
C->_current_type=a1;
rT167cpc_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));
rT167error(/*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_0*/T0* rT167to_runnable(T167 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT167to_runnable_0(C,a1);
/*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0))&&((XrT268arg_count((C)->_run_feature))>(0))) {
rT48add_position(/*XrT*FEATURE_NAME*/((T70*)(C)->_feature_name)->_start_position);
rT167error(XrT268start_position((C)->_run_feature),(T0 *)ms1_167);
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT167twin(C);
XrT167set_current_type(R,NULL);
R=XrT167to_runnable(R,a1);
}
/*FI*/return R;
}
/*CALL_0*/void rT167error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_0*/T0* rT167add_comment(T167 *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_0*/T0* rT167start_position(T167 *C){
T0* R=NULL;
R=/*XrT*FEATURE_NAME*/((T70*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_0*/int rT167use_current(T167 *C){
int R=0;
/*IF*/if ((/*(IRF4*/0/*)*/)>(0)) {
R=rT175use_current((T175*)/*(IRF4*/NULL/*)*/);
}
/*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_0*/int rT167can_be_dropped(T167 *C){
int R=0;
/*IF*/if (XrT72is_current((C)->_target)) {
R=XrT268can_be_dropped((C)->_run_feature);
}
/*FI*/return R;
}
/*CALL_0*/void rT167compile_to_c_old(T167 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*/if ((/*(IRF4*/0/*)*/)>(0)) {
rT175compile_to_c_old((T175*)/*(IRF4*/NULL/*)*/);
}
/*FI*/}/*CALL_0*/void rT167compile_to_c(T167 *C){
T0* _n=NULL;
_n=/*XrT*FEATURE_NAME*/((T70*)(C)->_feature_name)->_to_string;
/*IF*/if (rT7is_equal((T7*)(T0 *)ms75_27,_n)) {
/*IF*/if (XrT62is_expanded(XrT62run_type(XrT72result_type((C)->_target)))) {
rT44put_character((T44*)oRBC27cpp,'1');
}
else {
rT44put_character((T44*)oRBC27cpp,'0');
}
/*FI*/}
 else if (rT7is_equal((T7*)(T0 *)ms74_27,_n)) {
/*IF*/if (XrT62fast_mapping_c(XrT62run_type(XrT72result_type((C)->_target)))) {
rT44put_character((T44*)oRBC27cpp,'1');
}
else {
rT44put_character((T44*)oRBC27cpp,'0');
}
/*FI*/}
else {
rT167call_proc_call_c2c(C);
}
/*FI*/}/*CALL_0*/int rT167to_integer(T167 *C){
int R=0;
T0* _rf1=NULL;
_rf1=(C)->_run_feature;
if ((int)_rf1) switch (((T0 *)_rf1)->id) {
case 285: 
break;
default:
_rf1 = NULL;
};/*IF*/if (!(_rf1)) {
rT167error(rT167start_position(C),(T0 *)ms104_27);
}
else {
R=XrT72to_integer(((T285*)_rf1)->_value);
}
/*FI*/return R;
}
/*CALL_0*/void rT167call_proc_call_c2c(T167 *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,/*(IRF4*/NULL/*)*/);
XrT268mapping_c((C)->_run_feature);
rT44pop((T44*)oRBC27cpp);
}
else {
rT44push_cpc((T44*)oRBC27cpp,(C)->_run_feature,((T269*)XrT62run_class(_tt))->_running,(C)->_target,/*(IRF4*/NULL/*)*/);
}
/*FI*/}/*CALL_0*/void rT167copy(T167 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_0*/int rT167call_is_static(T167 *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_0*/int rT167is_a(T167 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT167start_position(C));
rT167error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_0*/int rT167is_pre_computable(T167 *C){
int R=0;
/*IF*/if (XrT72is_current((C)->_target)) {
R=XrT268is_pre_computable((C)->_run_feature);
}
/*FI*/return R;
}
/*CALL_0*/void rT167make(T167 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}/*CALL_PREFIX_NOT*/T0* rT172twin(T172 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT172copy((T172*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_PREFIX_NOT*/int rT172is_static(T172 *C){
int R=0;
/*IF*/if (XrT62is_boolean(XrT72result_type((C)->_target))) {
/*IF*/if (XrT72is_static((C)->_target)) {
R=1;
/*IF*/if ((XrT72static_value((C)->_target))==(0)) {
C->_static_value_mem=1;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*CALL_PREFIX_NOT*/int rT172static_value(T172 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_PREFIX_NOT*/void rT172fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_PREFIX_NOT*/void rT172cpc_to_runnable(T172 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT172fatal_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_PREFIX_NOT*/void rT172to_runnable_0(T172 *C,T0* a1){
C->_current_type=a1;
rT172cpc_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));
rT172error(((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_PREFIX_NOT*/T0* rT172to_runnable(T172 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT172to_runnable_0(C,a1);
/*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0))&&((XrT268arg_count((C)->_run_feature))>(0))) {
rT48add_position(((T70*)(C)->_feature_name)->_start_position);
rT172error(XrT268start_position((C)->_run_feature),(T0 *)ms1_167);
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT172twin(C);
/*[IRF3:set_current_type*//*AW*/((T172*)R)->_current_type=(NULL);/*]*/
R=rT172to_runnable((T172*)R,a1);
}
/*FI*/return R;
}
/*CALL_PREFIX_NOT*/void rT172error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_PREFIX_NOT*/T0* rT172add_comment(T172 *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_PREFIX_NOT*/T0* rT172start_position(T172 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_PREFIX_NOT*/int rT172use_current(T172 *C){
int R=0;
/*IF*//*AF*//*AE*/
/*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_PREFIX_NOT*/int rT172can_be_dropped(T172 *C){
int R=0;
/*IF*/if (XrT72is_current((C)->_target)) {
R=XrT268can_be_dropped((C)->_run_feature);
}
/*FI*/return R;
}
/*CALL_PREFIX_NOT*/void rT172compile_to_c_old(T172 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*//*AF*//*AE*/
/*FI*/}/*CALL_PREFIX_NOT*/void rT172compile_to_c(T172 *C){
/*IF*/if ((rT47boost((T47*)oRBC27eiffel_run_control))&&(XrT62is_boolean(XrT62run_type(XrT72result_type((C)->_target))))) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms1_172);
XrT72compile_to_c((C)->_target);
rT44put_character((T44*)oRBC27cpp,'\51');
}
else {
rT172call_proc_call_c2c(C);
}
/*FI*/}/*CALL_PREFIX_NOT*/int rT172to_integer(T172 *C){
int R=0;
T0* _rf1=NULL;
_rf1=(C)->_run_feature;
if ((int)_rf1) switch (((T0 *)_rf1)->id) {
case 285: 
break;
default:
_rf1 = NULL;
};/*IF*/if (!(_rf1)) {
rT172error(rT172start_position(C),(T0 *)ms104_27);
}
else {
R=XrT72to_integer(((T285*)_rf1)->_value);
}
/*FI*/return R;
}
/*CALL_PREFIX_NOT*/int rT172call_is_static(T172 *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_PREFIX_NOT*/void rT172call_proc_call_c2c(T172 *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,/*(IRF4*/NULL/*)*/);
XrT268mapping_c((C)->_run_feature);
rT44pop((T44*)oRBC27cpp);
}
else {
rT44push_cpc((T44*)oRBC27cpp,(C)->_run_feature,((T269*)XrT62run_class(_tt))->_running,(C)->_target,/*(IRF4*/NULL/*)*/);
}
/*FI*/}/*CALL_PREFIX_NOT*/void rT172copy(T172 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_PREFIX_NOT*/int rT172is_a(T172 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT172start_position(C));
rT172error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_PREFIX_NOT*/int rT172is_pre_computable(T172 *C){
int R=0;
/*IF*/if (XrT72is_current((C)->_target)) {
R=XrT268is_pre_computable((C)->_run_feature);
}
/*FI*/return R;
}
/*CALL_PREFIX_NOT*/void rT172make_call0(T172 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}/*CALL_PREFIX_NOT*/void rT172make(T172 *C,T0* a1,T0* a2){
{T70 *n=((T70*)se_new(70));
rT70make(n,/*(IRF4*/(T0 *)ms118_27/*)*/,a1);
C->_feature_name=(T0 *)n;}
rT172make_call0(C,a2,(C)->_feature_name);
}/*CALL_PREFIX_PLUS*/T0* rT171twin(T171 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT171copy((T171*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_PREFIX_PLUS*/int rT171is_static(T171 *C){
int R=0;
/*IF*/if (XrT62is_integer(XrT72result_type((C)->_target))) {
/*IF*/if (XrT72is_static((C)->_target)) {
R=1;
C->_static_value_mem=XrT72static_value((C)->_target);
}
/*FI*/}
/*FI*/return R;
}
/*CALL_PREFIX_PLUS*/int rT171static_value(T171 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_PREFIX_PLUS*/void rT171fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_PREFIX_PLUS*/void rT171cpc_to_runnable(T171 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT171fatal_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_PREFIX_PLUS*/void rT171to_runnable_0(T171 *C,T0* a1){
C->_current_type=a1;
rT171cpc_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));
rT171error(((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_PREFIX_PLUS*/T0* rT171to_runnable(T171 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT171to_runnable_0(C,a1);
/*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0))&&((XrT268arg_count((C)->_run_feature))>(0))) {
rT48add_position(((T70*)(C)->_feature_name)->_start_position);
rT171error(XrT268start_position((C)->_run_feature),(T0 *)ms1_167);
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT171twin(C);
/*[IRF3:set_current_type*//*AW*/((T171*)R)->_current_type=(NULL);/*]*/
R=rT171to_runnable((T171*)R,a1);
}
/*FI*/return R;
}
/*CALL_PREFIX_PLUS*/void rT171error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_PREFIX_PLUS*/T0* rT171add_comment(T171 *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_PREFIX_PLUS*/T0* rT171start_position(T171 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_PREFIX_PLUS*/int rT171use_current(T171 *C){
int R=0;
/*IF*//*AF*//*AE*/
/*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_PREFIX_PLUS*/int rT171can_be_dropped(T171 *C){
int R=0;
/*IF*/if (XrT72is_current((C)->_target)) {
R=XrT268can_be_dropped((C)->_run_feature);
}
/*FI*/return R;
}
/*CALL_PREFIX_PLUS*/void rT171compile_to_c_old(T171 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*//*AF*//*AE*/
/*FI*/}/*CALL_PREFIX_PLUS*/void rT171compile_to_c(T171 *C){
T0* _n=NULL;
_n=((T70*)(C)->_feature_name)->_to_string;
/*IF*/if (rT7is_equal((T7*)(T0 *)ms75_27,_n)) {
/*IF*/if (XrT62is_expanded(XrT62run_type(XrT72result_type((C)->_target)))) {
rT44put_character((T44*)oRBC27cpp,'1');
}
else {
rT44put_character((T44*)oRBC27cpp,'0');
}
/*FI*/}
 else if (rT7is_equal((T7*)(T0 *)ms74_27,_n)) {
/*IF*/if (XrT62fast_mapping_c(XrT62run_type(XrT72result_type((C)->_target)))) {
rT44put_character((T44*)oRBC27cpp,'1');
}
else {
rT44put_character((T44*)oRBC27cpp,'0');
}
/*FI*/}
else {
rT171call_proc_call_c2c(C);
}
/*FI*/}/*CALL_PREFIX_PLUS*/int rT171to_integer(T171 *C){
int R=0;
T0* _rf1=NULL;
_rf1=(C)->_run_feature;
if ((int)_rf1) switch (((T0 *)_rf1)->id) {
case 285: 
break;
default:
_rf1 = NULL;
};/*IF*/if (!(_rf1)) {
rT171error(rT171start_position(C),(T0 *)ms104_27);
}
else {
R=XrT72to_integer(((T285*)_rf1)->_value);
}
/*FI*/return R;
}
/*CALL_PREFIX_PLUS*/int rT171call_is_static(T171 *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_PREFIX_PLUS*/void rT171call_proc_call_c2c(T171 *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,/*(IRF4*/NULL/*)*/);
XrT268mapping_c((C)->_run_feature);
rT44pop((T44*)oRBC27cpp);
}
else {
rT44push_cpc((T44*)oRBC27cpp,(C)->_run_feature,((T269*)XrT62run_class(_tt))->_running,(C)->_target,/*(IRF4*/NULL/*)*/);
}
/*FI*/}/*CALL_PREFIX_PLUS*/void rT171copy(T171 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_PREFIX_PLUS*/int rT171is_a(T171 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT171start_position(C));
rT171error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_PREFIX_PLUS*/int rT171is_pre_computable(T171 *C){
int R=0;
/*IF*/if (XrT72is_current((C)->_target)) {
R=XrT268is_pre_computable((C)->_run_feature);
}
/*FI*/return R;
}
/*CALL_PREFIX_PLUS*/void rT171make_call0(T171 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}/*CALL_PREFIX_PLUS*/void rT171make(T171 *C,T0* a1,T0* a2){
{T70 *n=((T70*)se_new(70));
rT70make(n,/*(IRF4*/(T0 *)ms95_27/*)*/,a1);
C->_feature_name=(T0 *)n;}
rT171make_call0(C,a2,(C)->_feature_name);
}/*CALL_PREFIX_MINUS*/T0* rT170twin(T170 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT170copy((T170*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_PREFIX_MINUS*/int rT170is_static(T170 *C){
int R=0;
/*IF*/if (XrT62is_integer(XrT72result_type((C)->_target))) {
/*IF*/if (XrT72is_static((C)->_target)) {
R=1;
C->_static_value_mem=-(XrT72static_value((C)->_target));
}
/*FI*/}
/*FI*/return R;
}
/*CALL_PREFIX_MINUS*/int rT170static_value(T170 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_PREFIX_MINUS*/void rT170fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_PREFIX_MINUS*/void rT170cpc_to_runnable(T170 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT170fatal_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_PREFIX_MINUS*/void rT170to_runnable_0(T170 *C,T0* a1){
C->_current_type=a1;
rT170cpc_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));
rT170error(((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_PREFIX_MINUS*/T0* rT170to_runnable(T170 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT170to_runnable_0(C,a1);
/*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0))&&((XrT268arg_count((C)->_run_feature))>(0))) {
rT48add_position(((T70*)(C)->_feature_name)->_start_position);
rT170error(XrT268start_position((C)->_run_feature),(T0 *)ms1_167);
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT170twin(C);
/*[IRF3:set_current_type*//*AW*/((T170*)R)->_current_type=(NULL);/*]*/
R=rT170to_runnable((T170*)R,a1);
}
/*FI*/return R;
}
/*CALL_PREFIX_MINUS*/void rT170error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_PREFIX_MINUS*/T0* rT170add_comment(T170 *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_PREFIX_MINUS*/T0* rT170start_position(T170 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_PREFIX_MINUS*/int rT170use_current(T170 *C){
int R=0;
/*IF*//*AF*//*AE*/
/*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_PREFIX_MINUS*/int rT170can_be_dropped(T170 *C){
int R=0;
/*IF*/if (XrT72is_current((C)->_target)) {
R=XrT268can_be_dropped((C)->_run_feature);
}
/*FI*/return R;
}
/*CALL_PREFIX_MINUS*/void rT170compile_to_c_old(T170 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*//*AF*//*AE*/
/*FI*/}/*CALL_PREFIX_MINUS*/void rT170compile_to_c(T170 *C){
/*IF*/if ((rT47boost((T47*)oRBC27eiffel_run_control))&&(XrT62fast_mapping_c(/*XrT*RUN_FEATURE*/((T274*)(C)->_run_feature)->_current_type))) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms1_170);
XrT72compile_to_c((C)->_target);
rT44put_character((T44*)oRBC27cpp,'\51');
}
else {
rT170call_proc_call_c2c(C);
}
/*FI*/}/*CALL_PREFIX_MINUS*/int rT170to_integer(T170 *C){
int R=0;
T0* _rf1=NULL;
_rf1=(C)->_run_feature;
if ((int)_rf1) switch (((T0 *)_rf1)->id) {
case 285: 
break;
default:
_rf1 = NULL;
};/*IF*/if (!(_rf1)) {
rT170error(rT170start_position(C),(T0 *)ms104_27);
}
else {
R=XrT72to_integer(((T285*)_rf1)->_value);
}
/*FI*/return R;
}
/*CALL_PREFIX_MINUS*/int rT170call_is_static(T170 *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_PREFIX_MINUS*/void rT170call_proc_call_c2c(T170 *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,/*(IRF4*/NULL/*)*/);
XrT268mapping_c((C)->_run_feature);
rT44pop((T44*)oRBC27cpp);
}
else {
rT44push_cpc((T44*)oRBC27cpp,(C)->_run_feature,((T269*)XrT62run_class(_tt))->_running,(C)->_target,/*(IRF4*/NULL/*)*/);
}
/*FI*/}/*CALL_PREFIX_MINUS*/void rT170copy(T170 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_PREFIX_MINUS*/int rT170is_a(T170 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT170start_position(C));
rT170error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_PREFIX_MINUS*/int rT170is_pre_computable(T170 *C){
int R=0;
/*IF*/if (XrT72is_current((C)->_target)) {
R=XrT268is_pre_computable((C)->_run_feature);
}
/*FI*/return R;
}
/*CALL_PREFIX_MINUS*/void rT170make_call0(T170 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}/*CALL_PREFIX_MINUS*/void rT170make(T170 *C,T0* a1,T0* a2){
{T70 *n=((T70*)se_new(70));
rT70make(n,/*(IRF4*/(T0 *)ms96_27/*)*/,a1);
C->_feature_name=(T0 *)n;}
rT170make_call0(C,a2,(C)->_feature_name);
}/*CALL_PREFIX_FREEOP*/T0* rT165twin(T165 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT165copy((T165*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*CALL_PREFIX_FREEOP*/int rT165is_static(T165 *C){
int R=0;
R=rT165call_is_static(C);
return R;
}
/*CALL_PREFIX_FREEOP*/int rT165static_value(T165 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*CALL_PREFIX_FREEOP*/void rT165fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*CALL_PREFIX_FREEOP*/void rT165cpc_to_runnable(T165 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=XrT72to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT48add_position(XrT72start_position((C)->_target));
rT165fatal_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_PREFIX_FREEOP*/void rT165to_runnable_0(T165 *C,T0* a1){
C->_current_type=a1;
rT165cpc_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));
rT165error(((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_PREFIX_FREEOP*/T0* rT165to_runnable(T165 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT165to_runnable_0(C,a1);
/*IF*/if (((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0))&&((XrT268arg_count((C)->_run_feature))>(0))) {
rT48add_position(((T70*)(C)->_feature_name)->_start_position);
rT165error(XrT268start_position((C)->_run_feature),(T0 *)ms1_167);
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT165twin(C);
/*[IRF3:set_current_type*//*AW*/((T165*)R)->_current_type=(NULL);/*]*/
R=rT165to_runnable((T165*)R,a1);
}
/*FI*/return R;
}
/*CALL_PREFIX_FREEOP*/void rT165error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*CALL_PREFIX_FREEOP*/T0* rT165add_comment(T165 *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_PREFIX_FREEOP*/T0* rT165start_position(T165 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_PREFIX_FREEOP*/int rT165use_current(T165 *C){
int R=0;
/*IF*//*AF*//*AE*/
/*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_PREFIX_FREEOP*/int rT165can_be_dropped(T165 *C){
int R=0;
/*IF*/if (XrT72is_current((C)->_target)) {
R=XrT268can_be_dropped((C)->_run_feature);
}
/*FI*/return R;
}
/*CALL_PREFIX_FREEOP*/void rT165compile_to_c_old(T165 *C){
XrT72compile_to_c_old((C)->_target);
/*IF*//*AF*//*AE*/
/*FI*/}/*CALL_PREFIX_FREEOP*/void rT165compile_to_c(T165 *C){
T0* _n=NULL;
_n=((T70*)(C)->_feature_name)->_to_string;
/*IF*/if (rT7is_equal((T7*)(T0 *)ms75_27,_n)) {
/*IF*/if (XrT62is_expanded(XrT62run_type(XrT72result_type((C)->_target)))) {
rT44put_character((T44*)oRBC27cpp,'1');
}
else {
rT44put_character((T44*)oRBC27cpp,'0');
}
/*FI*/}
 else if (rT7is_equal((T7*)(T0 *)ms74_27,_n)) {
/*IF*/if (XrT62fast_mapping_c(XrT62run_type(XrT72result_type((C)->_target)))) {
rT44put_character((T44*)oRBC27cpp,'1');
}
else {
rT44put_character((T44*)oRBC27cpp,'0');
}
/*FI*/}
else {
rT165call_proc_call_c2c(C);
}
/*FI*/}/*CALL_PREFIX_FREEOP*/int rT165to_integer(T165 *C){
int R=0;
T0* _rf1=NULL;
_rf1=(C)->_run_feature;
if ((int)_rf1) switch (((T0 *)_rf1)->id) {
case 285: 
break;
default:
_rf1 = NULL;
};/*IF*/if (!(_rf1)) {
rT165error(rT165start_position(C),(T0 *)ms104_27);
}
else {
R=XrT72to_integer(((T285*)_rf1)->_value);
}
/*FI*/return R;
}
/*CALL_PREFIX_FREEOP*/void rT165call_proc_call_c2c(T165 *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,/*(IRF4*/NULL/*)*/);
XrT268mapping_c((C)->_run_feature);
rT44pop((T44*)oRBC27cpp);
}
else {
rT44push_cpc((T44*)oRBC27cpp,(C)->_run_feature,((T269*)XrT62run_class(_tt))->_running,(C)->_target,/*(IRF4*/NULL/*)*/);
}
/*FI*/}/*CALL_PREFIX_FREEOP*/void rT165copy(T165 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*CALL_PREFIX_FREEOP*/int rT165call_is_static(T165 *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_PREFIX_FREEOP*/int rT165is_a(T165 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT165start_position(C));
rT165error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_PREFIX_FREEOP*/int rT165is_pre_computable(T165 *C){
int R=0;
/*IF*/if (XrT72is_current((C)->_target)) {
R=XrT268is_pre_computable((C)->_run_feature);
}
/*FI*/return R;
}
/*CALL_PREFIX_FREEOP*/void rT165make_call0(T165 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}/*CALL_PREFIX_FREEOP*/void rT165make(T165 *C,T0* a1,T0* a2){
rT165make_call0(C,a1,a2);
}/*ARGUMENT_NAME*/void rT92name_clash(T92 *C){
T0* _rc=NULL;
T0* _rf=NULL;
/*IF*/if (rT53has_feature((T53*)rT92base_class_written(C),(C)->_to_string)) {
_rc=XrT62run_class((C)->_current_type);
_rf=rT269get_feature_with((T269*)_rc,(C)->_to_string);
/*IF*/if (((int)_rf)) {
rT48add_position(XrT268start_position(_rf));
}
/*FI*/rT92error((C)->_start_position,(T0 *)ms1_92);
}
/*FI*/}/*ARGUMENT_NAME*/T0* rT92twin(T92 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
rT92copy((T92*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*ARGUMENT_NAME*/int rT92static_value(T92 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*ARGUMENT_NAME*/T0* rT92to_runnable(T92 *C,T0* a1){
T0* R=NULL;
T0* _rf=NULL;
/*IF*/if (!((C)->_current_type)) {
C->_current_type=a1;
R=(T0 *)C;
/*IF*/if (((T0 *)(C)->_declaration_name)==((T0 *)C)) {
rT92result_type_to_runnable(C);
}
else {
_rf=rT55top_rf((T55*)oRBC27small_eiffel);
C->_result_type=rT97type((T97*)/*XrT*RUN_FEATURE*/((T274*)_rf)->_arguments,(C)->_rank);
}
/*FI*/}
else {
R=rT92twin(C);
/*[IRF3:set_current_type*//*AW*/((T92*)R)->_current_type=(NULL);/*]*/
R=rT92to_runnable((T92*)R,a1);
}
/*FI*/return R;
}
/*ARGUMENT_NAME*/void rT92error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*ARGUMENT_NAME*/T0* rT92add_comment(T92 *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;
}
/*ARGUMENT_NAME*/void rT92result_type_to_runnable(T92 *C){
T0* _rt=NULL;
_rt=XrT62to_runnable((C)->_result_type,(C)->_current_type);
/*IF*/if (!(_rt)) {
rT92error(XrT62start_position((C)->_result_type),(T0 *)ms1_93);
}
else {
C->_result_type=_rt;
}
/*FI*/}/*ARGUMENT_NAME*/void rT92set_declaration_name(T92 *C){
C->_declaration_name=(T0 *)C;
}/*ARGUMENT_NAME*/T0* rT92to_key(T92 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
/*ARGUMENT_NAME*/void rT92refer_to(T92 *C,T0* a1,T0* a2,int a3){
C->_start_position=a1;
C->_rank=a3;
C->_declaration_name=rT97name((T97*)a2,a3);
C->_to_string=((T92*)(C)->_declaration_name)->_to_string;
C->_result_type=((T92*)(C)->_declaration_name)->_result_type;
}/*ARGUMENT_NAME*/void rT92compile_to_c(T92 *C){
rT44put_character((T44*)oRBC27cpp,'a');
rT44put_integer((T44*)oRBC27cpp,(C)->_rank);
}/*ARGUMENT_NAME*/int rT92to_integer(T92 *C){
int R=0;
rT92error((C)->_start_position,(T0 *)ms104_27);
return R;
}
/*ARGUMENT_NAME*/T0* rT92written_in(T92 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=(C)->_start_position;
/*IF*/if (((int)_sp)) {
R=((T49*)_sp)->_base_class_name;
}
/*FI*/return R;
}
/*ARGUMENT_NAME*/T0* rT92base_class_written(T92 *C){
T0* R=NULL;
R=rT51base_class((T51*)rT92written_in(C));
return R;
}
/*ARGUMENT_NAME*/void rT92copy(T92 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}/*ARGUMENT_NAME*/int rT92is_a(T92 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position((C)->_start_position);
rT92error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*ARGUMENT_NAME*/void rT92make(T92 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_to_string=a2;
C->_declaration_name=(T0 *)C;
}/*INFIX_NAME*/int rT74same_as(T74 *C,T0* a1){
int R=0;
R=rT7is_equal((T7*)rT74to_key(C),XrT52to_key(a1));
return R;
}
/*INFIX_NAME*/int rT74static_value(T74 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
/*INFIX_NAME*/void rT74fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*INFIX_NAME*/T0* rT74to_runnable(T74 *C,T0* a1){
T0* R=NULL;
T0* _rf=NULL;
/*IF*/if (!((C)->_current_type)) {
C->_current_type=a1;
_rf=rT269get_feature((T269*)XrT62run_class((C)->_current_type),(T0 *)C);
/*IF*/if (!(_rf)) {
rT74error((C)->_start_position,(T0 *)ms2_71);
}
 else if (XrT268is_writable(_rf)) {
C->_result_type=/*XrT*RUN_FEATURE*/((T274*)_rf)->_result_type;
}
else {
rT48add_position(XrT268start_position(_rf));
rT74error((C)->_start_position,(T0 *)ms3_71);
}
/*FI*//*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
else {
rT74error((C)->_start_position,(T0 *)ms4_71);
}
/*FI*/}
 else if (((T0 *)a1)==((T0 *)(C)->_current_type)) {
R=(T0 *)C;
}
 else if (rT7is_equal((T7*)XrT62run_time_mark(a1),XrT62run_time_mark((C)->_current_type))) {
rT74error((C)->_start_position,(T0 *)ms5_71);
rT48add_type(a1,(T0 *)ms6_71);
rT48add_type((C)->_current_type,(T0 *)ms7_71);
rT48print_as_error((T48*)oRBC27eh);
}
else {
{T74 *n=((T74*)se_new(74));
rT74make(n,(C)->_to_string,(C)->_start_position);
R=(T0 *)n;}
R=rT74to_runnable((T74*)R,a1);
}
/*FI*/return R;
}
/*INFIX_NAME*/void rT74error(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48error((T48*)oRBC27eh,a2);
}/*INFIX_NAME*/T0* rT74add_comment(T74 *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;
}
/*INFIX_NAME*/int rT74is_equal(T74 *C,T0* a1){
int R=0;
R=rT74standard_is_equal(C,a1);
return R;
}
/*INFIX_NAME*/void rT74undefine_in(T74 *C,T0* a1){
/*IF*/if ((C)->_is_frozen) {
rT74error((C)->_start_position,(T0 *)ms12_71);
rT53fatal_undefine((T53*)a1,(T0 *)C);
}
/*FI*/}/*INFIX_NAME*/T0* rT74to_key(T74 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
/*INFIX_NAME*/int rT74can_be_dropped(T74 *C){
int R=0;
rT48add_position((C)->_start_position);
rT74fatal_error((T0 *)ms1_71);
return R;
}
/*INFIX_NAME*/void rT74mapping_c(T74 *C){
/*[IRF3:clear*//*AW*/((T7*)oRBC71mapping_c_mem)->_count=(0);/*]*/
rT74mapping_c_in(C,oRBC71mapping_c_mem);
rT44put_string((T44*)oRBC27cpp,oRBC71mapping_c_mem);
}/*INFIX_NAME*/void rT74mapping_c_in(T74 *C,T0* a1){
/*IF*/{/*AT*//*IF*/if (rT7is_equal((T7*)(T0 *)ms117_27,(C)->_to_string)) {
rT7append((T7*)a1,(C)->_to_string);
}
else {
rT7append((T7*)a1,(T0 *)ms8_71);
rT74mapping_c_aux(C,a1);
}
/*FI*/}
/*FI*/}/*INFIX_NAME*/void rT74mapping_c_aux(T74 *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);
}
}/*INFIX_NAME*/void rT74compile_to_c(T74 *C){
rT44put_string((T44*)oRBC27cpp,(T0 *)ms10_71);
rT44put_string((T44*)oRBC27cpp,(C)->_to_string);
}/*INFIX_NAME*/int rT74to_integer(T74 *C){
int R=0;
rT74error((C)->_start_position,(T0 *)ms104_27);
return R;
}
/*INFIX_NAME*/T0* rT74written_in(T74 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=(C)->_start_position;
/*IF*/if (((int)_sp)) {
R=((T49*)_sp)->_base_class_name;
}
/*FI*/return R;
}
/*INFIX_NAME*/T0* rT74run_feature(T74 *C,T0* a1){
T0* R=NULL;
R=rT269get_feature((T269*)XrT62run_class(a1),(T0 *)C);
return R;
}
/*INFIX_NAME*/int rT74standard_is_equal(T74 *C,T0* a1){
int R=0;
/*IF*//*AF*/if (((T0 *)a1)==((T0 *)C)) {
R=1;
}
else {
R=!memcmp(C,a1,s[C->id]);
}
/*FI*/return R;
}
/*INFIX_NAME*/int rT74is_a(T74 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position((C)->_start_position);
rT74error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*INFIX_NAME*/void rT74make(T74 *C,T0* a1,T0* a2){
C->_to_string=a1;
C->_start_position=a2;
}

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