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

This is compile_to_c16.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 rT196compile_to_c_old(T196 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT196compile_to_c(T196 *C){
/*IF*/if ((rT44boost((T44*)oRBC27eiffel_run_control))&&(XrT58is_character(XrT58run_type(XrT68result_type((C)->_target))))) {
rT43put_character((T43*)oRBC27cpp,'\50');
XrT68compile_to_c((C)->_target);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1237);
XrT68compile_to_c(rT196arg1(C));
rT43put_character((T43*)oRBC27cpp,'\51');
}
else {
rT196call_proc_call_c2c(C);
}
/*FI*/}
int rT196to_integer(T196 *C){
int R=0;
rT196error(rT196start_position(C),(T0 *)ms169);
return R;
}
T0* rT196dynamic(/*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* rT196written_in(T196 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT196start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT196call_proc_call_c2c(T196 *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=rT196dynamic(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 rT196copy(T196 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT196is_a(T196 *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(rT196start_position(C));
rT196error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT196make_call_1(T196 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT196make(T196 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT196fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,(T0 *)ms316,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT196make_call_1(C,a1,(C)->_feature_name,_eal);
}
T0* rT195twin(T195 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT195copy((T195*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT195is_static(T195 *C){
int R=0;
/*IF*/if (XrT58is_integer(XrT68result_type((C)->_target))) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT195arg1(C)))) {
R=1;
/*IF*/if ((XrT68static_value((C)->_target))<(XrT68static_value(rT195arg1(C)))) {
C->_static_value_mem=1;
}
else {
C->_static_value_mem=0;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int rT195static_value(T195 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT195fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT195to_runnable_0(T195 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT195error(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));
rT195error(((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* rT195to_runnable(T195 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT195to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT195error(XrT68start_position(rT195arg1(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(rT195arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT195twin(C);
/*(IRF3*/(((T195*)R)->_current_type)=(NULL);
/*)*/R=rT195to_runnable((T195*)R,a1);
}
/*FI*/return R;
}
void rT195error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT195add_comment(T195 *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* rT195arg1(T195 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT195start_position(T195 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT195use_current(T195 *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 rT195compile_to_c_old(T195 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT195compile_to_c(T195 *C){
/*IF*/if ((rT44boost((T44*)oRBC27eiffel_run_control))&&(XrT58is_character(XrT58run_type(XrT68result_type((C)->_target))))) {
rT43put_character((T43*)oRBC27cpp,'\50');
XrT68compile_to_c((C)->_target);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1238);
XrT68compile_to_c(rT195arg1(C));
rT43put_character((T43*)oRBC27cpp,'\51');
}
else {
rT195call_proc_call_c2c(C);
}
/*FI*/}
int rT195to_integer(T195 *C){
int R=0;
rT195error(rT195start_position(C),(T0 *)ms169);
return R;
}
T0* rT195dynamic(/*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* rT195written_in(T195 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT195start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT195call_proc_call_c2c(T195 *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=rT195dynamic(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 rT195copy(T195 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT195is_a(T195 *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(rT195start_position(C));
rT195error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT195make_call_1(T195 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT195make(T195 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT195fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,(T0 *)ms318,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT195make_call_1(C,a1,(C)->_feature_name,_eal);
}
T0* rT194twin(T194 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT194copy((T194*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT194is_static(T194 *C){
int R=0;
/*IF*/if (XrT58is_integer(XrT68result_type((C)->_target))) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT194arg1(C)))) {
R=1;
/*IF*/if ((XrT68static_value((C)->_target))<=(XrT68static_value(rT194arg1(C)))) {
C->_static_value_mem=1;
}
else {
C->_static_value_mem=0;
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int rT194static_value(T194 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT194fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT194to_runnable_0(T194 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT194error(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));
rT194error(((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* rT194to_runnable(T194 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT194to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT194error(XrT68start_position(rT194arg1(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(rT194arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT194twin(C);
/*(IRF3*/(((T194*)R)->_current_type)=(NULL);
/*)*/R=rT194to_runnable((T194*)R,a1);
}
/*FI*/return R;
}
void rT194error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT194add_comment(T194 *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* rT194arg1(T194 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT194start_position(T194 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT194use_current(T194 *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 rT194compile_to_c_old(T194 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT194compile_to_c(T194 *C){
/*IF*/if ((rT44boost((T44*)oRBC27eiffel_run_control))&&(XrT58is_character(XrT58run_type(XrT68result_type((C)->_target))))) {
rT43put_character((T43*)oRBC27cpp,'\50');
XrT68compile_to_c((C)->_target);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1236);
XrT68compile_to_c(rT194arg1(C));
rT43put_character((T43*)oRBC27cpp,'\51');
}
else {
rT194call_proc_call_c2c(C);
}
/*FI*/}
int rT194to_integer(T194 *C){
int R=0;
rT194error(rT194start_position(C),(T0 *)ms169);
return R;
}
T0* rT194dynamic(/*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* rT194written_in(T194 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT194start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT194call_proc_call_c2c(T194 *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=rT194dynamic(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 rT194copy(T194 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT194is_a(T194 *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(rT194start_position(C));
rT194error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT194make_call_1(T194 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT194make(T194 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT194fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,(T0 *)ms314,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT194make_call_1(C,a1,(C)->_feature_name,_eal);
}
T0* rT193type_boolean(/*C*/void){
if (ofBC27type_boolean==0){
T0* R=NULL;
ofBC27type_boolean=1;
{T107 *n=((T107*)se_new(107));
rT107make(n,NULL);
R=(T0 *)n;}
oRBC27type_boolean=R;}
return oRBC27type_boolean;}
T0* rT193twin(T193 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT193copy((T193*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT193is_static_exp(T193 *C,T0* a1){
int R=0;
T0* _t=NULL;
_t=XrT58run_type(XrT68result_type(a1));
/*IF*/if (XrT58is_expanded(_t)) {
R=1;
C->_static_value_mem=1;
}
 else if (((XrT68is_current(a1))||(XrT68is_manifest_string(a1)))||(XrT68is_manifest_array(a1))) {
R=1;
C->_static_value_mem=1;
}
/*FI*/return R;
}
int rT193is_static(T193 *C){
int R=0;
/*IF*/if (XrT68is_void((C)->_target)) {
R=rT193is_static_exp(C,rT193arg1(C));
}
 else if (XrT68is_void(rT193arg1(C))) {
R=rT193is_static_exp(C,(C)->_target);
}
 else if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT193arg1(C)))) {
R=1;
/*IF*/if ((XrT68static_value((C)->_target))!=(XrT68static_value(rT193arg1(C)))) {
C->_static_value_mem=1;
}
/*FI*/}
/*FI*/return R;
}
int rT193static_value(T193 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT193fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT193to_runnable_0(T193 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT193error(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));
rT193error(((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*/}
void rT193to_runnable_equal_not_equal(T193 *C,T0* a1){
T0* _at=NULL;
T0* _tt=NULL;
T0* _a=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT193error(XrT68start_position((C)->_target),(T0 *)ms1163);
}
else {
C->_target=_t;
}
/*FI*/_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (((int)_a)) {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
_tt=XrT58run_type(XrT68result_type((C)->_target));
_at=XrT58run_type(XrT68result_type(rT193arg1(C)));
/*IF*/if (XrT58is_none(_tt)) {
/*IF*/if (XrT58is_expanded(_at)) {
XrT58used_as_reference(_at);
}
/*FI*/}
 else if (XrT58is_none(_at)) {
/*IF*/if (XrT58is_expanded(_tt)) {
XrT58used_as_reference(_tt);
}
/*FI*/}
 else if (XrT58is_reference(_tt)) {
/*IF*/if (XrT58is_reference(_at)) {
/*IF*/if (XrT58is_a(_tt,_at)) {
}
else {
/*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh);
/*(IRF3*/(((T7*)oRBC45explanation)->_count)=(0);
/*)*/rT47clear((T47*)rT45positions());
/*)*//*IF*/if (XrT58is_a(_at,_tt)) {
}
else {
rT193error_comparison(C,(T0 *)ms1166);
}
/*FI*/}
/*FI*/}
 else if (!(XrT58is_a(_at,_tt))) {
rT193error_comparison(C,(T0 *)ms1167);
}
else {
XrT58used_as_reference(_at);
}
/*FI*/}
else {
/*IF*/if (XrT58is_expanded(_at)) {
/*IF*/if (XrT58fast_mapping_c(_at)) {
/*IF*/if (XrT58is_a(_tt,_at)) {
}
else {
/*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh);
/*(IRF3*/(((T7*)oRBC45explanation)->_count)=(0);
/*)*/rT47clear((T47*)rT45positions());
/*)*//*IF*/if (XrT58is_a(_at,_tt)) {
}
else {
rT193error_comparison(C,(T0 *)ms1168);
}
/*FI*/}
/*FI*/}
 else if (!(XrT58is_a(_at,_tt))) {
rT193error_comparison(C,(T0 *)ms1169);
}
/*FI*/}
 else if (!(XrT58is_a(_tt,_at))) {
rT193error_comparison(C,(T0 *)ms1170);
}
else {
XrT58used_as_reference(_tt);
}
/*FI*/}
/*FI*/}
/*FI*/}
T0* rT193to_runnable(T193 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT193to_runnable_equal_not_equal(C,a1);
C->_result_type=rT193type_boolean();
/*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
{T193 *n=((T193*)se_new(193));
rT193make(n,(C)->_target,((T70*)(C)->_feature_name)->_start_position,rT193arg1(C));
R=(T0 *)n;}
R=rT193to_runnable((T193*)R,a1);
}
/*FI*/return R;
}
void rT193error_comparison(T193 *C,T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(((T70*)(C)->_feature_name)->_start_position);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms1164);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(a1);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms1165);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((C)->_current_type,(T0 *)ms36);
rT45print_as_error((T45*)oRBC27eh);
}
void rT193error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT193add_comment(T193 *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* rT193arg1(T193 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT193start_position(T193 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT193use_current(T193 *C){
int R=0;
R=(XrT68use_current((C)->_target))||(XrT68use_current(rT193arg1(C)));
return R;
}
void rT193compile_to_c_old(T193 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT193compile_to_c(T193 *C){
T0* _at=NULL;
T0* _tt=NULL;
_tt=XrT58run_type(XrT68result_type((C)->_target));
_at=XrT58run_type(XrT68result_type(rT193arg1(C)));
/*IF*/if (XrT58is_expanded(_tt)) {
/*IF*/if (XrT58is_expanded(_at)) {
/*IF*/if (XrT58fast_mapping_c(_tt)) {
rT43put_character((T43*)oRBC27cpp,'\50');
XrT68compile_to_c((C)->_target);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1222);
XrT68compile_to_c(rT193arg1(C));
rT43put_character((T43*)oRBC27cpp,'\51');
}
else {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1223);
XrT68compile_to_c((C)->_target);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1224);
XrT68compile_to_c(rT193arg1(C));
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1225);
rT43put_integer((T43*)oRBC27cpp,XrT58id(_tt));
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1226);
}
/*FI*/}
else {
rT193c2c_exp_ref((C)->_target,_tt,rT193arg1(C),_at);
}
/*FI*/}
 else if (XrT58is_expanded(_at)) {
rT193c2c_exp_ref(rT193arg1(C),_at,(C)->_target,_tt);
}
else {
/*IF*/if (XrT68is_void(rT193arg1(C))) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1232);
XrT68compile_to_c((C)->_target);
rT43put_character((T43*)oRBC27cpp,'\51');
}
 else if (XrT68is_void((C)->_target)) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1233);
XrT68compile_to_c(rT193arg1(C));
rT43put_character((T43*)oRBC27cpp,'\51');
}
else {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1234);
XrT68compile_to_c((C)->_target);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1235);
XrT68compile_to_c(rT193arg1(C));
rT43put_character((T43*)oRBC27cpp,'\51');
}
/*FI*/}
/*FI*/}
int rT193to_integer(T193 *C){
int R=0;
rT193error(rT193start_position(C),(T0 *)ms169);
return R;
}
T0* rT193dynamic(/*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* rT193written_in(T193 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT193start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT193call_proc_call_c2c(T193 *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=rT193dynamic(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 rT193copy(T193 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT193is_a(T193 *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(rT193start_position(C));
rT193error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT193c2c_exp_ref(/*C*/T0* a1,T0* a2,T0* a3,T0* a4){
/*IF*/if (XrT68is_void(a3)) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1227);
XrT68compile_to_c(a3);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1228);
}
else {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1229);
XrT68compile_to_c(a1);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1230);
XrT68compile_to_c(a3);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1231);
}
/*FI*/}
void rT193make_call_1(T193 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT193make(T193 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT193fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,(T0 *)ms312,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT193make_call_1(C,a1,(C)->_feature_name,_eal);
}
T0* rT192type_boolean(/*C*/void){
if (ofBC27type_boolean==0){
T0* R=NULL;
ofBC27type_boolean=1;
{T107 *n=((T107*)se_new(107));
rT107make(n,NULL);
R=(T0 *)n;}
oRBC27type_boolean=R;}
return oRBC27type_boolean;}
T0* rT192twin(T192 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT192copy((T192*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT192is_static_exp(/*C*/T0* a1){
int R=0;
T0* _t=NULL;
_t=XrT58run_type(XrT68result_type(a1));
/*IF*/if (XrT58is_expanded(_t)) {
R=1;
}
else {
R=((XrT68is_current(a1))||(XrT68is_manifest_string(a1)))||(XrT68is_manifest_array(a1));
}
/*FI*/return R;
}
int rT192is_static(T192 *C){
int R=0;
/*IF*/if (XrT68is_void((C)->_target)) {
R=rT192is_static_exp(rT192arg1(C));
}
 else if (XrT68is_void(rT192arg1(C))) {
R=rT192is_static_exp((C)->_target);
}
 else if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT192arg1(C)))) {
R=1;
/*IF*/if ((XrT68static_value((C)->_target))==(XrT68static_value(rT192arg1(C)))) {
C->_static_value_mem=1;
}
/*FI*/}
/*FI*/return R;
}
int rT192static_value(T192 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT192fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT192to_runnable_0(T192 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT192error(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));
rT192error(((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*/}
void rT192to_runnable_equal_not_equal(T192 *C,T0* a1){
T0* _at=NULL;
T0* _tt=NULL;
T0* _a=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT192error(XrT68start_position((C)->_target),(T0 *)ms1163);
}
else {
C->_target=_t;
}
/*FI*/_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (((int)_a)) {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
_tt=XrT58run_type(XrT68result_type((C)->_target));
_at=XrT58run_type(XrT68result_type(rT192arg1(C)));
/*IF*/if (XrT58is_none(_tt)) {
/*IF*/if (XrT58is_expanded(_at)) {
XrT58used_as_reference(_at);
}
/*FI*/}
 else if (XrT58is_none(_at)) {
/*IF*/if (XrT58is_expanded(_tt)) {
XrT58used_as_reference(_tt);
}
/*FI*/}
 else if (XrT58is_reference(_tt)) {
/*IF*/if (XrT58is_reference(_at)) {
/*IF*/if (XrT58is_a(_tt,_at)) {
}
else {
/*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh);
/*(IRF3*/(((T7*)oRBC45explanation)->_count)=(0);
/*)*/rT47clear((T47*)rT45positions());
/*)*//*IF*/if (XrT58is_a(_at,_tt)) {
}
else {
rT192error_comparison(C,(T0 *)ms1166);
}
/*FI*/}
/*FI*/}
 else if (!(XrT58is_a(_at,_tt))) {
rT192error_comparison(C,(T0 *)ms1167);
}
else {
XrT58used_as_reference(_at);
}
/*FI*/}
else {
/*IF*/if (XrT58is_expanded(_at)) {
/*IF*/if (XrT58fast_mapping_c(_at)) {
/*IF*/if (XrT58is_a(_tt,_at)) {
}
else {
/*(IRF3*/(/*UT*/(void)(T45*)oRBC27eh);
/*(IRF3*/(((T7*)oRBC45explanation)->_count)=(0);
/*)*/rT47clear((T47*)rT45positions());
/*)*//*IF*/if (XrT58is_a(_at,_tt)) {
}
else {
rT192error_comparison(C,(T0 *)ms1168);
}
/*FI*/}
/*FI*/}
 else if (!(XrT58is_a(_at,_tt))) {
rT192error_comparison(C,(T0 *)ms1169);
}
/*FI*/}
 else if (!(XrT58is_a(_tt,_at))) {
rT192error_comparison(C,(T0 *)ms1170);
}
else {
XrT58used_as_reference(_tt);
}
/*FI*/}
/*FI*/}
/*FI*/}
T0* rT192to_runnable(T192 *C,T0* a1){
T0* R=NULL;
/*IF*/if (!((C)->_current_type)) {
rT192to_runnable_equal_not_equal(C,a1);
C->_result_type=rT192type_boolean();
/*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
{T192 *n=((T192*)se_new(192));
rT192make(n,(C)->_target,((T70*)(C)->_feature_name)->_start_position,rT192arg1(C));
R=(T0 *)n;}
R=rT192to_runnable((T192*)R,a1);
}
/*FI*/return R;
}
void rT192error_comparison(T192 *C,T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(((T70*)(C)->_feature_name)->_start_position);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms1164);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(a1);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms1165);
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type((C)->_current_type,(T0 *)ms36);
rT45print_as_error((T45*)oRBC27eh);
}
void rT192error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT192add_comment(T192 *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* rT192arg1(T192 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT192start_position(T192 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT192use_current(T192 *C){
int R=0;
R=(XrT68use_current((C)->_target))||(XrT68use_current(rT192arg1(C)));
return R;
}
void rT192compile_to_c_old(T192 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT192compile_to_c(T192 *C){
T0* _at=NULL;
T0* _tt=NULL;
_tt=XrT58run_type(XrT68result_type((C)->_target));
_at=XrT58run_type(XrT68result_type(rT192arg1(C)));
/*IF*/if (XrT58is_expanded(_tt)) {
/*IF*/if (XrT58is_expanded(_at)) {
/*IF*/if (XrT58fast_mapping_c(_tt)) {
rT43put_character((T43*)oRBC27cpp,'\50');
XrT68compile_to_c((C)->_target);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1208);
XrT68compile_to_c(rT192arg1(C));
rT43put_character((T43*)oRBC27cpp,'\51');
}
else {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1209);
XrT68compile_to_c((C)->_target);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1210);
XrT68compile_to_c(rT192arg1(C));
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1211);
rT43put_integer((T43*)oRBC27cpp,XrT58id(_tt));
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1212);
}
/*FI*/}
else {
rT192c2c_exp_ref((C)->_target,_tt,rT192arg1(C),_at);
}
/*FI*/}
 else if (XrT58is_expanded(_at)) {
rT192c2c_exp_ref(rT192arg1(C),_at,(C)->_target,_tt);
}
else {
/*IF*/if (XrT68is_void(rT192arg1(C))) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1218);
XrT68compile_to_c((C)->_target);
rT43put_character((T43*)oRBC27cpp,'\51');
}
 else if (XrT68is_void((C)->_target)) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1219);
XrT68compile_to_c(rT192arg1(C));
rT43put_character((T43*)oRBC27cpp,'\51');
}
else {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1220);
XrT68compile_to_c((C)->_target);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1221);
XrT68compile_to_c(rT192arg1(C));
rT43put_character((T43*)oRBC27cpp,'\51');
}
/*FI*/}
/*FI*/}
int rT192to_integer(T192 *C){
int R=0;
rT192error(rT192start_position(C),(T0 *)ms169);
return R;
}
T0* rT192dynamic(/*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* rT192written_in(T192 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT192start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT192call_proc_call_c2c(T192 *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=rT192dynamic(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 rT192copy(T192 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT192is_a(T192 *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(rT192start_position(C));
rT192error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT192c2c_exp_ref(/*C*/T0* a1,T0* a2,T0* a3,T0* a4){
/*IF*/if (XrT68is_void(a3)) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1213);
XrT68compile_to_c(a1);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1214);
}
else {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1215);
XrT68compile_to_c(a1);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1216);
XrT68compile_to_c(a3);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1217);
}
/*FI*/}
void rT192make_call_1(T192 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT192make(T192 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT192fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,(T0 *)ms310,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT192make_call_1(C,a1,(C)->_feature_name,_eal);
}
T0* rT191twin(T191 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT191copy((T191*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT191is_static(T191 *C){
int R=0;
/*IF*/if (XrT58is_integer((C)->_result_type)) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT191arg1(C)))) {
R=1;
C->_static_value_mem=(XrT68static_value((C)->_target))-(XrT68static_value(rT191arg1(C)));
}
/*FI*/}
/*FI*/return R;
}
int rT191static_value(T191 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT191fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT191to_runnable_0(T191 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT191error(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));
rT191error(((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* rT191to_runnable(T191 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT191to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT191error(XrT68start_position(rT191arg1(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(rT191arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT191twin(C);
/*(IRF3*/(((T191*)R)->_current_type)=(NULL);
/*)*/R=rT191to_runnable((T191*)R,a1);
}
/*FI*/return R;
}
void rT191error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT191add_comment(T191 *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* rT191arg1(T191 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT191start_position(T191 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT191use_current(T191 *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 rT191compile_to_c_old(T191 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT191compile_to_c(T191 *C){
rT191call_proc_call_c2c(C);
}
int rT191to_integer(T191 *C){
int R=0;
rT191error(rT191start_position(C),(T0 *)ms169);
return R;
}
T0* rT191dynamic(/*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* rT191written_in(T191 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT191start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT191call_proc_call_c2c(T191 *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=rT191dynamic(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 rT191copy(T191 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT191is_a(T191 *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(rT191start_position(C));
rT191error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT191make_call_1(T191 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT191make(T191 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT191fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,/*(IRF4*/(T0 *)ms81/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT191make_call_1(C,a1,(C)->_feature_name,_eal);
}
T0* rT190twin(T190 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT190copy((T190*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT190is_static(T190 *C){
int R=0;
/*IF*/if (XrT58is_integer((C)->_result_type)) {
/*IF*/if ((XrT68is_static((C)->_target))&&(XrT68is_static(rT190arg1(C)))) {
R=1;
C->_static_value_mem=(XrT68static_value((C)->_target))+(XrT68static_value(rT190arg1(C)));
}
/*FI*/}
/*FI*/return R;
}
int rT190static_value(T190 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT190fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT190to_runnable_0(T190 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT190error(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));
rT190error(((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* rT190to_runnable(T190 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT190to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT190error(XrT68start_position(rT190arg1(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(rT190arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT190twin(C);
/*(IRF3*/(((T190*)R)->_current_type)=(NULL);
/*)*/R=rT190to_runnable((T190*)R,a1);
}
/*FI*/return R;
}
void rT190error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT190add_comment(T190 *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* rT190arg1(T190 *C){
T0* R=NULL;
R=rT171first((T171*)(C)->_arguments);
return R;
}
T0* rT190start_position(T190 *C){
T0* R=NULL;
R=((T70*)(C)->_feature_name)->_start_position;
return R;
}
int rT190use_current(T190 *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 rT190compile_to_c_old(T190 *C){
XrT68compile_to_c_old((C)->_target);
/*IF*/{/*AT*/rT171compile_to_c_old((T171*)(C)->_arguments);
}
/*FI*/}
void rT190compile_to_c(T190 *C){
rT190call_proc_call_c2c(C);
}
int rT190to_integer(T190 *C){
int R=0;
rT190error(rT190start_position(C),(T0 *)ms169);
return R;
}
T0* rT190dynamic(/*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* rT190written_in(T190 *C){
T0* R=NULL;
T0* _sp=NULL;
_sp=rT190start_position(C);
/*IF*/if (((int)_sp)) {
R=((T46*)_sp)->_base_class_name;
}
/*FI*/return R;
}
void rT190call_proc_call_c2c(T190 *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=rT190dynamic(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 rT190copy(T190 *C,T0* a1){
/*IF*//*AF*//*AE*/
memcpy(C,a1,s[C->id]);
/*FI*/}
int rT190is_a(T190 *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(rT190start_position(C));
rT190error(XrT68start_position(a1),(T0 *)ms1289);
}
/*FI*/return R;
}
void rT190make_call_1(T190 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT190make(T190 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a2);
rT190fatal_error((T0 *)ms301);
}
/*FI*/{T70 *n=((T70*)se_new(70));
rT70make(n,/*(IRF4*/(T0 *)ms80/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T171 *n=((T171*)se_new(171));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT190make_call_1(C,a1,(C)->_feature_name,_eal);
}
T0* rT189twin(T189 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT189copy((T189*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT189static_value(T189 *C){
int R=0;
R=(C)->_static_value_mem;
return R;
}
void rT189fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT189to_runnable_0(T189 *C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
C->_current_type=a1;
_t=XrT68to_runnable((C)->_target,a1);
/*IF*/if (!(_t)) {
rT189error(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));
rT189error(((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* rT189to_runnable(T189 *C,T0* a1){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (!((C)->_current_type)) {
rT189to_runnable_0(C,a1);
_a=rT171to_runnable((T171*)(C)->_arguments,a1);
/*IF*/if (!(_a)) {
rT189error(XrT68start_position(rT189arg1(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(rT189arg1(C)));
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
R=(T0 *)C;
}
/*FI*/}
else {
R=rT189twin(C);
/*(IRF3*/(((T189*)R)->_current_type)=(NULL);
/*)*/R=rT189to_runnable((T189*)R,a1);
}
/*FI*/return R;
}
void rT189error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT189add_comment(T189 *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;
}

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