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

This is compile_to_c17.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* rT189arg1(T189 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT189start_position(T189 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT189use_current(T189 *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 rT189compile_to_c_old(T189 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT189compile_to_c(T189 *C){
rT189call_proc_call_c2c(C);
}
int rT189to_integer(T189 *C){
int R=0;
rT189error(rT189start_position(C),(T0 *)ms169);
return R;
}
T0* rT189dynamic(/*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* rT189written_in(T189 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT189start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT189call_proc_call_c2c(T189 *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=rT189dynamic(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 rT189copy(T189 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT189is_a(T189 *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(rT189start_position(C));
rT189error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT189make_call_1(T189 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT189make(T189 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT189fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,/*(IRF4*/(T0 *)ms91/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT189make_call_1(C,a1,(C)->_feature_name,_eal);
}
T0* rT188twin(T188 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT188copy((T188*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT188is_static(T188 *C){
int R=0;
/*IF*/if (XrT58is_integer((C)->_result_type)) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT188arg1(C)))) {
R=1;
C->_static_value_mem=(XrT68static_value((C)->_target))%(XrT68static_value(rT188arg1(C)));
}
/*FI*/}
/*FI*/return R;
}
int rT188static_value(T188 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT188fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT188to_runnable_0(T188 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT188error(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));
rT188error(((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* rT188to_runnable(T188 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT188to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT188error(XrT68start_position(rT188arg1(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(rT188arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT188twin(C);
/*(IRF3*/(((T188*)R)->_current_type)=(NULL);
/*)*/R=rT188to_runnable((T188*)R,a1);
}
/*FI*/return R;
}
void rT188error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT188add_comment(T188 *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* rT188arg1(T188 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT188start_position(T188 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT188use_current(T188 *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 rT188compile_to_c_old(T188 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT188compile_to_c(T188 *C){
rT188call_proc_call_c2c(C);
}
int rT188to_integer(T188 *C){
int R=0;
rT188error(rT188start_position(C),(T0 *)ms169);
return R;
}
T0* rT188dynamic(/*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* rT188written_in(T188 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT188start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT188call_proc_call_c2c(T188 *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=rT188dynamic(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 rT188copy(T188 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT188is_a(T188 *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(rT188start_position(C));
rT188error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT188make_call_1(T188 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT188make(T188 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT188fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,(T0 *)ms308,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT188make_call_1(C,a1,(C)->_feature_name,_eal);
}
T0* rT187twin(T187 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT187copy((T187*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT187is_static(T187 *C){
int R=0;
/*IF*/if (XrT58is_integer((C)->_result_type)) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT187arg1(C)))) {
R=1;
C->_static_value_mem=(XrT68static_value((C)->_target))/(XrT68static_value(rT187arg1(C)));
}
/*FI*/}
/*FI*/return R;
}
int rT187static_value(T187 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT187fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT187to_runnable_0(T187 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT187error(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));
rT187error(((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* rT187to_runnable(T187 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT187to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT187error(XrT68start_position(rT187arg1(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(rT187arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT187twin(C);
/*(IRF3*/(((T187*)R)->_current_type)=(NULL);
/*)*/R=rT187to_runnable((T187*)R,a1);
}
/*FI*/return R;
}
void rT187error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT187add_comment(T187 *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* rT187arg1(T187 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT187start_position(T187 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT187use_current(T187 *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 rT187compile_to_c_old(T187 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT187compile_to_c(T187 *C){
rT187call_proc_call_c2c(C);
}
int rT187to_integer(T187 *C){
int R=0;
rT187error(rT187start_position(C),(T0 *)ms169);
return R;
}
T0* rT187dynamic(/*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* rT187written_in(T187 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT187start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT187call_proc_call_c2c(T187 *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=rT187dynamic(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 rT187copy(T187 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT187is_a(T187 *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(rT187start_position(C));
rT187error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT187make_call_1(T187 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT187make(T187 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT187fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,(T0 *)ms306,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT187make_call_1(C,a1,(C)->_feature_name,_eal);
}
T0* rT186twin(T186 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT186copy((T186*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT186is_static(T186 *C){
int R=0;
/*IF*/if (XrT58is_integer((C)->_result_type)) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT186arg1(C)))) {
R=1;
C->_static_value_mem=(XrT68static_value((C)->_target))*(XrT68static_value(rT186arg1(C)));
}
/*FI*/}
/*FI*/return R;
}
int rT186static_value(T186 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT186fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT186to_runnable_0(T186 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT186error(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));
rT186error(((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* rT186to_runnable(T186 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT186to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT186error(XrT68start_position(rT186arg1(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(rT186arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT186twin(C);
/*(IRF3*/(((T186*)R)->_current_type)=(NULL);
/*)*/R=rT186to_runnable((T186*)R,a1);
}
/*FI*/return R;
}
void rT186error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT186add_comment(T186 *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* rT186arg1(T186 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT186start_position(T186 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT186use_current(T186 *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 rT186compile_to_c_old(T186 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT186compile_to_c(T186 *C){
rT186call_proc_call_c2c(C);
}
int rT186to_integer(T186 *C){
int R=0;
rT186error(rT186start_position(C),(T0 *)ms169);
return R;
}
T0* rT186dynamic(/*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* rT186written_in(T186 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT186start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT186call_proc_call_c2c(T186 *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=rT186dynamic(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 rT186copy(T186 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT186is_a(T186 *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(rT186start_position(C));
rT186error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT186make_call_1(T186 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT186make(T186 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT186fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,(T0 *)ms304,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT186make_call_1(C,a1,(C)->_feature_name,_eal);
}
T0* rT185twin(T185 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT185copy((T185*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT185is_static(T185 *C){
int R=0;
/*IF*/if (XrT58is_integer((C)->_result_type)) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT185arg1(C)))) {
R=1;
C->_static_value_mem=rT2_ix94(XrT68static_value((C)->_target),XrT68static_value(rT185arg1(C)));
}
/*FI*/}
/*FI*/return R;
}
int rT185static_value(T185 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT185fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT185to_runnable_0(T185 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT185error(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));
rT185error(((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* rT185to_runnable(T185 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT185to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT185error(XrT68start_position(rT185arg1(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(rT185arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT185twin(C);
/*(IRF3*/(((T185*)R)->_current_type)=(NULL);
/*)*/R=rT185to_runnable((T185*)R,a1);
}
/*FI*/return R;
}
void rT185error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT185add_comment(T185 *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* rT185arg1(T185 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT185start_position(T185 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT185use_current(T185 *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 rT185compile_to_c_old(T185 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT185compile_to_c(T185 *C){
rT185call_proc_call_c2c(C);
}
int rT185to_integer(T185 *C){
int R=0;
rT185error(rT185start_position(C),(T0 *)ms169);
return R;
}
T0* rT185dynamic(/*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* rT185written_in(T185 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT185start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT185call_proc_call_c2c(T185 *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=rT185dynamic(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 rT185copy(T185 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT185is_a(T185 *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(rT185start_position(C));
rT185error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT185make_call_1(T185 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT185make(T185 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT185fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,(T0 *)ms302,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT185make_call_1(C,a1,(C)->_feature_name,_eal);
}
T0* rT183twin(T183 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT183copy((T183*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT183is_static(T183 *C){
int R=0;
R=rT183call_is_static(C);
return R;
}
int rT183static_value(T183 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT183fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT183to_runnable_0(T183 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT183error(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));
rT183error(((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* rT183to_runnable(T183 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT183to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT183error(XrT68start_position(rT183arg1(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(rT183arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT183twin(C);
/*(IRF3*/(((T183*)R)->_current_type)=(NULL);
/*)*/R=rT183to_runnable((T183*)R,a1);
}
/*FI*/return R;
}
void rT183error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT183add_comment(T183 *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* rT183arg1(T183 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT183start_position(T183 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT183use_current(T183 *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;
}
T0* rT183operator(T183 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_to_string;
return R;
}
void rT183compile_to_c_old(T183 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT183compile_to_c(T183 *C){
rT183call_proc_call_c2c(C);
}
int rT183to_integer(T183 *C){
int R=0;
rT183error(rT183start_position(C),(T0 *)ms169);
return R;
}
T0* rT183dynamic(/*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* rT183written_in(T183 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT183start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT183call_proc_call_c2c(T183 *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=rT183dynamic(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 rT183copy(T183 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT183call_is_static(T183 *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 rT183is_a(T183 *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(rT183start_position(C));
rT183error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT183make_infix(T183 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT183fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,rT183operator(C),a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT183make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT183make_call_1(T183 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT183make(T183 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT183make_call_1(C,a1,a2,_eal);
}
T0* rT176twin(T176 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT176copy((T176*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT176is_static(T176 *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 rT176static_value(T176 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT176to_runnable_0(T176 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT176error(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));
rT176error(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* rT176to_runnable(T176 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT176to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT176error(rT171start_position((T171*)(C)->_arguments),(T0 *)ms1159);
}
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)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT176twin(C);
/*(IRF3*/(((T176*)R)->_current_type)=(NULL);
/*)*/R=rT176to_runnable((T176*)R,a1);
}
/*FI*/return R;
}
void rT176error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT176add_comment(T176 *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* rT176start_position(T176 *C){
T0* R=NULL;
R=XrT67start_position((C)->_feature_name);
return R;
}
int rT176use_current(T176 *C){
int R=0;
/*IF*/if ((rT176arg_count(C))>(0)) {
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 rT176compile_to_c_old(T176 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/if ((rT176arg_count(C))>(0)) {
rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT176compile_to_c(T176 *C){
rT176call_proc_call_c2c(C);
}
int rT176to_integer(T176 *C){
int R=0;
rT176error(rT176start_position(C),(T0 *)ms169);
return R;
}
T0* rT176dynamic(/*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* rT176written_in(T176 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT176start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT176call_proc_call_c2c(T176 *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=rT176dynamic(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 rT176copy(T176 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT176is_a(T176 *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(rT176start_position(C));
rT176error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
int rT176arg_count(T176 *C){
int R=0;
R=rT171count((T171*)(C)->_arguments);
return R;
}
void rT176make(T176 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
T0* rT175twin(T175 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
XrT175copy(R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT175is_static(T175 *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 rT175static_value(T175 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT175to_runnable_0(T175 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT175error(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));
rT175error(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* rT175to_runnable(T175 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT175to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT175error(XrT68start_position(rT175arg1(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(rT175arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT175twin(C);
XrT175set_current_type(R,NULL);
R=XrT175to_runnable(R,a1);
}
/*FI*/return R;
}
void rT175error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT175add_comment(T175 *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* rT175arg1(T175 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT175start_position(T175 *C){
T0* R=NULL;
R=XrT67start_position((C)->_feature_name);
return R;
}
int rT175use_current(T175 *C){
int R=0;
/*IF*/if ((1)>(0)) {
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 rT175compile_to_c_old(T175 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/if ((1)>(0)) {
rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}

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