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

This is compile_to_c2.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* rT227to_runnable_character(T227 *C,T0* a1){
T0* R=NULL;
T0* _when_item=NULL;
int _i=0;
int _ne=0;
/*IF*/if (!((C)->_when_list)) {
_ne=/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/;
C->_when_list=a1;
/*IF*/if (!((C)->_list)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(((T226*)rT227e_inspect(C))->_start_position);
rT227error((C)->_start_position,(T0 *)ms1258);
}
else {
_i=XrT231lower((C)->_list);
while (!(((_i)>(XrT231upper((C)->_list)))||(((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))>(0)))) {
_when_item=XrT229to_runnable_character(XrT231item((C)->_list,_i),(T0 *)C);
/*IF*/if (!(_when_item)) {
rT227error((C)->_start_position,(T0 *)ms1259);
}
else {
XrT231put((C)->_list,_when_item,_i);
}
/*FI*/_i=(_i)+(1);
}
}
/*FI*//*IF*/if (((int)(C)->_compound)) {
C->_compound=rT140to_runnable((T140*)(C)->_compound,rT227current_type(C));
/*IF*/if (!((C)->_compound)) {
rT227error((C)->_start_position,(T0 *)ms1259);
}
/*FI*/}
/*FI*/R=(T0 *)C;
}
else {
{T227 *n=((T227*)se_new(227));
rT227from_e_when(n,(T0 *)C);
R=(T0 *)n;}
R=rT227to_runnable_character((T227*)R,a1);
}
/*FI*/return R;
}
void rT227error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
T0* rT227e_inspect(T227 *C){
T0* R=NULL;
R=((T232*)(C)->_when_list)->_e_inspect;
return R;
}
int rT227use_current(T227 *C){
int R=0;
/*IF*/if (((int)(C)->_compound)) {
R=rT140use_current((T140*)(C)->_compound);
}
/*FI*/return R;
}
void rT227from_e_when(T227 *C,T0* a1){
T0* _when_item=NULL;
int _i=0;
C->_start_position=((T227*)a1)->_start_position;
C->_list=XrT231twin(((T227*)a1)->_list);
_i=XrT231lower((C)->_list);
while (!((_i)>(XrT231upper((C)->_list)))) {
_when_item=XrT229twin(XrT231item((C)->_list,_i));
XrT229clear_e_when(_when_item);
XrT231put((C)->_list,_when_item,_i);
_i=(_i)+(1);
}
C->_header_comment=((T227*)a1)->_header_comment;
C->_compound=((T227*)a1)->_compound;
}
void rT227err_occ(T227 *C,int a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(((T226*)rT227e_inspect(C))->_start_position);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms1373);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(rT2to_string(a1));
rT227error(a2,(T0 *)ms1374);
}
void rT227compile_to_c(T227 *C,int a1){
int _bs=0;
int _bi=0;
int _go_next_when=0;
int _go_start_when=0;
/*IF*/if (((int)(C)->_values)) {
_go_start_when=rT43new_goto((T43*)oRBC27cpp);
_bi=((T277*)(C)->_values)->_lower;
while (!((_bi)>(((T277*)(C)->_values)->_upper))) {
_bs=(_bi)+(1);
while (!(((_bs)>(((T277*)(C)->_values)->_upper))||(!(rT277item((T277*)(C)->_values,_bs))))) {
_bs=(_bs)+(1);
}
_bs=(_bs)-(1);
/*IF*/if ((_bi)==(_bs)) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1318);
rT43put_integer((T43*)oRBC27cpp,_bi);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1319);
rT43put_inspect((T43*)oRBC27cpp);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1320);
rT43put_goto((T43*)oRBC27cpp,_go_start_when);
}
else {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1323);
rT43put_integer((T43*)oRBC27cpp,_bi);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1324);
rT43put_inspect((T43*)oRBC27cpp);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1325);
rT43put_inspect((T43*)oRBC27cpp);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1326);
rT43put_integer((T43*)oRBC27cpp,_bs);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1327);
rT43put_goto((T43*)oRBC27cpp,_go_start_when);
}
/*FI*/_bi=(_bs)+(1);
while (!(((_bi)>(((T277*)(C)->_values)->_upper))||(rT277item((T277*)(C)->_values,_bi)))) {
_bi=(_bi)+(1);
}
}
_go_next_when=rT43new_goto((T43*)oRBC27cpp);
rT43put_goto((T43*)oRBC27cpp,_go_next_when);
rT43put_goto_label((T43*)oRBC27cpp,_go_start_when);
/*IF*/if (((int)(C)->_compound)) {
rT140compile_to_c((T140*)(C)->_compound);
}
/*FI*/rT43put_goto((T43*)oRBC27cpp,a1);
rT43put_goto_label((T43*)oRBC27cpp,_go_next_when);
}
/*FI*/}
int rT227includes_integer(T227 *C,int a1){
int R=0;
R=((((int)(C)->_values))&&(rT277valid_index((T277*)(C)->_values,a1)))&&(rT277item((T277*)(C)->_values,a1));
return R;
}
void rT227add_slice(T227 *C,T0* a1,T0* a2){
T0* _element=NULL;
{T234 *n=((T234*)se_new(234));
rT234make(n,a1,a2);
_element=(T0 *)n;}
/*IF*/if (!((C)->_list)) {
C->_list=ma(235,0,1,_element);
}
else {
XrT231add_last((C)->_list,_element);
}
/*FI*/}
void rT227add_value(T227 *C,T0* a1){
T0* _element=NULL;
{T228 *n=((T228*)se_new(228));
/*(IRF3*/((n)->_expression)=(a1);
/*)*/_element=(T0 *)n;}
/*IF*/if (!((C)->_list)) {
C->_list=ma(230,0,1,_element);
}
else {
XrT231add_last((C)->_list,_element);
}
/*FI*/}
void rT227make(T227 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_header_comment=a2;
}
void rT227add_when_item_2(T227 *C,T0* a1){
int _i=0;
int _u=0;
int _l=0;
_l=((T234*)a1)->_lower_value;
_u=((T234*)a1)->_upper_value;
/*IF*/if ((_l)>=(_u)) {
rT227error(rT234start_position((T234*)a1),(T0 *)ms1378);
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
_i=_l;
while (!((_i)>(_u))) {
/*IF*/if (rT226includes((T226*)rT227e_inspect(C),_i)) {
rT227err_occ(C,_i,rT234start_position((T234*)a1));
_i=(_u)+(1);
}
else {
_i=(_i)+(1);
}
/*FI*/}
}
/*FI*//*IF*/if ((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)==(0)) {
/*IF*/if (!((C)->_values)) {
{T277 *n=((T277*)se_new(277));
rT277make(n,_l,_u);
C->_values=(T0 *)n;}
rT277set_all_with((T277*)(C)->_values,1);
}
else {
rT277force((T277*)(C)->_values,1,_l);
rT277force((T277*)(C)->_values,1,_u);
rT277set_slice_with((T277*)(C)->_values,1,_l,_u);
}
/*FI*/}
/*FI*/}
void rT227add_when_item_1(T227 *C,T0* a1){
int _v=0;
_v=((T228*)a1)->_expression_value;
/*IF*/if (rT226includes((T226*)rT227e_inspect(C),_v)) {
rT227err_occ(C,_v,rT228start_position((T228*)a1));
}
 else if (!((C)->_values)) {
{T277 *n=((T277*)se_new(277));
rT277make(n,_v,_v);
C->_values=(T0 *)n;}
rT277put((T277*)(C)->_values,1,_v);
}
else {
rT277force((T277*)(C)->_values,1,_v);
}
/*FI*/}
void rT213fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
T0* rT213first_name(T213 *C){
T0* R=NULL;
R=rT128item((T128*)(C)->_names,1);
return R;
}
T0* rT213to_run_feature(T213 *C,T0* a1,T0* a2){
T0* R=NULL;
{T281 *n=((T281*)se_new(281));
rT281make(n,a1,a2,(T0 *)C);
R=(T0 *)n;}
return R;
}
void rT213error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
void rT213fe_undefine(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms479);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT67to_string(a1));
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms480);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(((T48*)((T50*)a2)->_base_class_name)->_to_string);
rT213fatal_error((T0 *)ms481);
}
int rT213is_merge_with(T213 *C,T0* a1,T0* a2){
int R=0;
int _ne=0;
_ne=/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/;
/*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)XrT62result_type(a1))) {
/*IF*/if (((!((C)->_result_type))||(!(XrT62result_type(a1))))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT213error(rT213start_position(C),(T0 *)ms484);
}
/*FI*/}
/*FI*//*IF*/if (((T0 *)(C)->_arguments)!=((T0 *)XrT62arguments(a1))) {
/*IF*/if (((!((C)->_arguments))||(!(XrT62arguments(a1))))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT213error(rT213start_position(C),(T0 *)ms485);
}
 else if ((rT92count((T92*)(C)->_arguments))!=(rT92count((T92*)XrT62arguments(a1)))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT213error(rT213start_position(C),(T0 *)ms486);
}
/*FI*/}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) {
/*IF*/if (((int)(C)->_result_type)) {
/*IF*/if (!(XrT58is_a_in((C)->_result_type,XrT62result_type(a1),a2))) {
rT45error((T45*)oRBC27eh,(T0 *)ms487);
}
/*FI*/}
/*FI*/}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) {
/*IF*/if (((int)(C)->_arguments)) {
/*IF*/if (!(rT92is_a_in((T92*)(C)->_arguments,XrT62arguments(a1),a2))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT213error(rT213start_position(C),(T0 *)ms490);
}
/*FI*/}
/*FI*/}
/*FI*/R=((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0);
return R;
}
T0* rT213start_position(T213 *C){
T0* R=NULL;
R=XrT67start_position(rT213first_name(C));
return R;
}
int rT213use_current(T213 *C){
int R=0;
R=XrT207use_current((C)->_langage,(T0 *)C);
return R;
}
void rT213collect_for(T213 *C,int a1){
/*IF*/if ((a1)==(1001)) {
/*IF*/if (((int)(C)->_require_assertion)) {
/*IF*/if (!(rT269fast_has((T269*)oRBC62require_collector,(C)->_require_assertion))) {
rT269add_last((T269*)oRBC62require_collector,(C)->_require_assertion);
}
/*FI*/}
/*FI*/}
else {
/*IF*/if (((int)(C)->_ensure_assertion)) {
rT157add_into((T157*)(C)->_ensure_assertion,oRBC62assertion_collector);
}
/*FI*/}
/*FI*/}
int rT213is_cse(T213 *C){
int R=0;
R=XrT207is_cse((C)->_langage);
return R;
}
void rT213add_into(T213 *C,T0* a1){
T0* _fn=NULL;
int _i=0;
C->_base_class=rT46base_class((T46*)XrT67start_position(rT128item((T128*)(C)->_names,1)));
_i=1;
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
_fn=rT128item((T128*)(C)->_names,_i);
/*IF*/if (rT61has((T61*)a1,XrT67to_key(_fn))) {
_fn=XrT62first_name(rT61at((T61*)a1,XrT67to_key(_fn)));
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT67start_position(_fn));
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT67start_position(rT128item((T128*)(C)->_names,_i)));
rT45error((T45*)oRBC27eh,(T0 *)ms414);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT67to_string(_fn));
rT45error((T45*)oRBC27eh,(T0 *)ms36);
}
else {
rT61put((T61*)a1,(T0 *)C,XrT67to_key(_fn));
}
/*FI*/_i=(_i)+(1);
}
}
T0* rT213try_to_undefine(T213 *C,T0* a1,T0* a2){
T0* R=NULL;
/*IF*/if (XrT67is_frozen(a1)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(rT213start_position(C));
rT213error(XrT67start_position(a1),(T0 *)ms478);
rT213fe_undefine(a1,a2);
}
else {
R=rT213try_to_undefine_aux(C,a1,a2);
/*IF*/if (((int)R)) {
XrT204set_clients(R,(C)->_clients);
}
else {
rT213fe_undefine(a1,a2);
}
/*FI*/}
/*FI*/return R;
}
T0* rT213try_to_undefine_aux(T213 *C,T0* a1,T0* a2){
T0* R=NULL;
{T206 *n=((T206*)se_new(206));
rT206from_effective(n,a1,(C)->_arguments,(C)->_result_type,(C)->_require_assertion,(C)->_ensure_assertion,a2);
R=(T0 *)n;}return R;
}
void rT213set_header_comment(T213 *C,T0* a1){
/*IF*/if ((((int)a1))&&((rT59count((T59*)a1))>(1))) {
C->_end_comment=a1;
}
/*FI*/}
int rT213can_hide(T213 *C,T0* a1,T0* a2){
int R=0;
int _ne=0;
_ne=/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/;
/*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)XrT62result_type(a1))) {
/*IF*/if (((!((C)->_result_type))||(!(XrT62result_type(a1))))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT213error(rT213start_position(C),(T0 *)ms497);
}
/*FI*/}
/*FI*//*IF*/if (((T0 *)(C)->_arguments)!=((T0 *)XrT62arguments(a1))) {
/*IF*/if (((!((C)->_arguments))||(!(XrT62arguments(a1))))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT213error(rT213start_position(C),(T0 *)ms498);
}
 else if ((rT92count((T92*)(C)->_arguments))!=(rT92count((T92*)XrT62arguments(a1)))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT213error(rT213start_position(C),(T0 *)ms499);
}
/*FI*/}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) {
/*IF*/if (((int)(C)->_result_type)) {
/*IF*/if (!(XrT58is_a_in((C)->_result_type,XrT62result_type(a1),a2))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms500);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT58run_time_mark(((T261*)a2)->_current_type));
rT45error((T45*)oRBC27eh,(T0 *)ms501);
}
/*FI*/}
/*FI*/}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) {
/*IF*/if (((int)(C)->_arguments)) {
/*IF*/if (!(rT92is_a_in((T92*)(C)->_arguments,XrT62arguments(a1),a2))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(rT213start_position(C));
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms502);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT58run_time_mark(((T261*)a2)->_current_type));
rT45error((T45*)oRBC27eh,(T0 *)ms503);
}
/*FI*/}
/*FI*/}
/*FI*/R=((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0);
return R;
}
T0* rT213base_class_name(T213 *C){
T0* R=NULL;
R=((T50*)(C)->_base_class)->_base_class_name;
return R;
}
void rT213set_rescue_compound(T213 *C,T0* a1){
/*IF*/if ((((int)a1))&&(/*(IRF4*/0/*)*/)) {
rT213error(rT213start_position(C),(T0 *)ms397);
}
/*FI*/C->_rescue_compound=a1;
}
void rT213make_external_routine(T213 *C,T0* a1,T0* a2){
C->_langage=a1;
/*IF*/if (!(a2)) {
C->_external_name=XrT67to_string(rT213first_name(C));
}
else {
C->_external_name=a2;
}
/*FI*/}
void rT213make_e_feature(T213 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT213make_routine(T213 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
rT213make_e_feature(C,a1,NULL);
C->_header_comment=a4;
C->_arguments=a2;
C->_obsolete_mark=a3;
C->_require_assertion=a5;
}
int rT213is_c(T213 *C){
int R=0;
R=XrT207is_c((C)->_langage);
return R;
}
void rT213make(T213 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7,T0* a8){
rT213make_routine(C,a1,a2,a4,a5,a6);
C->_result_type=a3;
rT213make_external_routine(C,a7,a8);
}
void rT212fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
T0* rT212first_name(T212 *C){
T0* R=NULL;
R=rT128item((T128*)(C)->_names,1);
return R;
}
T0* rT212to_run_feature(T212 *C,T0* a1,T0* a2){
T0* R=NULL;
{T280 *n=((T280*)se_new(280));
rT280make(n,a1,a2,(T0 *)C);
R=(T0 *)n;}
return R;
}
void rT212error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(a1);
rT45error((T45*)oRBC27eh,a2);
}
void rT212fe_undefine(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms479);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT67to_string(a1));
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms480);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(((T48*)((T50*)a2)->_base_class_name)->_to_string);
rT212fatal_error((T0 *)ms481);
}
int rT212is_merge_with(T212 *C,T0* a1,T0* a2){
int R=0;
int _ne=0;
_ne=/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/;
/*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)XrT62result_type(a1))) {
/*IF*/if (((!((C)->_result_type))||(!(XrT62result_type(a1))))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT212error(rT212start_position(C),(T0 *)ms484);
}
/*FI*/}
/*FI*//*IF*/if (((T0 *)(C)->_arguments)!=((T0 *)XrT62arguments(a1))) {
/*IF*/if (((!((C)->_arguments))||(!(XrT62arguments(a1))))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT212error(rT212start_position(C),(T0 *)ms485);
}
 else if ((rT92count((T92*)(C)->_arguments))!=(rT92count((T92*)XrT62arguments(a1)))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT212error(rT212start_position(C),(T0 *)ms486);
}
/*FI*/}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) {
/*IF*/if (((int)(C)->_result_type)) {
/*IF*/if (!(XrT58is_a_in((C)->_result_type,XrT62result_type(a1),a2))) {
rT45error((T45*)oRBC27eh,(T0 *)ms487);
}
/*FI*/}
/*FI*/}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) {
/*IF*/if (((int)(C)->_arguments)) {
/*IF*/if (!(rT92is_a_in((T92*)(C)->_arguments,XrT62arguments(a1),a2))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT212error(rT212start_position(C),(T0 *)ms490);
}
/*FI*/}
/*FI*/}
/*FI*/R=((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0);
return R;
}
T0* rT212start_position(T212 *C){
T0* R=NULL;
R=XrT67start_position(rT212first_name(C));
return R;
}
int rT212use_current(T212 *C){
int R=0;
R=XrT207use_current((C)->_langage,(T0 *)C);
return R;
}
void rT212collect_for(T212 *C,int a1){
/*IF*/if ((a1)==(1001)) {
/*IF*/if (((int)(C)->_require_assertion)) {
/*IF*/if (!(rT269fast_has((T269*)oRBC62require_collector,(C)->_require_assertion))) {
rT269add_last((T269*)oRBC62require_collector,(C)->_require_assertion);
}
/*FI*/}
/*FI*/}
else {
/*IF*/if (((int)(C)->_ensure_assertion)) {
rT157add_into((T157*)(C)->_ensure_assertion,oRBC62assertion_collector);
}
/*FI*/}
/*FI*/}
int rT212is_cse(T212 *C){
int R=0;
R=XrT207is_cse((C)->_langage);
return R;
}
void rT212add_into(T212 *C,T0* a1){
T0* _fn=NULL;
int _i=0;
C->_base_class=rT46base_class((T46*)XrT67start_position(rT128item((T128*)(C)->_names,1)));
_i=1;
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
_fn=rT128item((T128*)(C)->_names,_i);
/*IF*/if (rT61has((T61*)a1,XrT67to_key(_fn))) {
_fn=XrT62first_name(rT61at((T61*)a1,XrT67to_key(_fn)));
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT67start_position(_fn));
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT67start_position(rT128item((T128*)(C)->_names,_i)));
rT45error((T45*)oRBC27eh,(T0 *)ms414);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT67to_string(_fn));
rT45error((T45*)oRBC27eh,(T0 *)ms36);
}
else {
rT61put((T61*)a1,(T0 *)C,XrT67to_key(_fn));
}
/*FI*/_i=(_i)+(1);
}
}
T0* rT212try_to_undefine(T212 *C,T0* a1,T0* a2){
T0* R=NULL;
/*IF*/if (XrT67is_frozen(a1)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(rT212start_position(C));
rT212error(XrT67start_position(a1),(T0 *)ms478);
rT212fe_undefine(a1,a2);
}
else {
R=rT212try_to_undefine_aux(C,a1,a2);
/*IF*/if (((int)R)) {
XrT204set_clients(R,(C)->_clients);
}
else {
rT212fe_undefine(a1,a2);
}
/*FI*/}
/*FI*/return R;
}
T0* rT212try_to_undefine_aux(T212 *C,T0* a1,T0* a2){
T0* R=NULL;
{T205 *n=((T205*)se_new(205));
rT205from_effective(n,a1,(C)->_arguments,(C)->_require_assertion,(C)->_ensure_assertion,a2);
R=(T0 *)n;}return R;
}
void rT212set_header_comment(T212 *C,T0* a1){
/*IF*/if ((((int)a1))&&((rT59count((T59*)a1))>(1))) {
C->_end_comment=a1;
}
/*FI*/}
int rT212can_hide(T212 *C,T0* a1,T0* a2){
int R=0;
int _ne=0;
_ne=/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/;
/*IF*/if (((T0 *)(C)->_result_type)!=((T0 *)XrT62result_type(a1))) {
/*IF*/if (((!((C)->_result_type))||(!(XrT62result_type(a1))))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT212error(rT212start_position(C),(T0 *)ms497);
}
/*FI*/}
/*FI*//*IF*/if (((T0 *)(C)->_arguments)!=((T0 *)XrT62arguments(a1))) {
/*IF*/if (((!((C)->_arguments))||(!(XrT62arguments(a1))))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT212error(rT212start_position(C),(T0 *)ms498);
}
 else if ((rT92count((T92*)(C)->_arguments))!=(rT92count((T92*)XrT62arguments(a1)))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
rT212error(rT212start_position(C),(T0 *)ms499);
}
/*FI*/}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) {
/*IF*/if (((int)(C)->_result_type)) {
/*IF*/if (!(XrT58is_a_in((C)->_result_type,XrT62result_type(a1),a2))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms500);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT58run_time_mark(((T261*)a2)->_current_type));
rT45error((T45*)oRBC27eh,(T0 *)ms501);
}
/*FI*/}
/*FI*/}
/*FI*//*IF*/if (((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0)) {
/*IF*/if (((int)(C)->_arguments)) {
/*IF*/if (!(rT92is_a_in((T92*)(C)->_arguments,XrT62arguments(a1),a2))) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT62start_position(a1));
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(rT212start_position(C));
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms502);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT58run_time_mark(((T261*)a2)->_current_type));
rT45error((T45*)oRBC27eh,(T0 *)ms503);
}
/*FI*/}
/*FI*/}
/*FI*/R=((/*(IRF4*/((T45*)oRBC27eh)->_nb_errors/*)*/)-(_ne))==(0);
return R;
}
T0* rT212base_class_name(T212 *C){
T0* R=NULL;
R=((T50*)(C)->_base_class)->_base_class_name;
return R;
}
void rT212set_rescue_compound(T212 *C,T0* a1){
/*IF*/if ((((int)a1))&&(/*(IRF4*/0/*)*/)) {
rT212error(rT212start_position(C),(T0 *)ms397);
}
/*FI*/C->_rescue_compound=a1;
}
void rT212make_external_routine(T212 *C,T0* a1,T0* a2){
C->_langage=a1;
/*IF*/if (!(a2)) {
C->_external_name=XrT67to_string(rT212first_name(C));
}
else {
C->_external_name=a2;
}
/*FI*/}
void rT212make_e_feature(T212 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT212make_routine(T212 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
rT212make_e_feature(C,a1,NULL);
C->_header_comment=a4;
C->_arguments=a2;
C->_obsolete_mark=a3;
C->_require_assertion=a5;
}
int rT212is_c(T212 *C){
int R=0;
R=XrT207is_c((C)->_langage);
return R;
}
void rT212make(T212 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7){
rT212make_routine(C,a1,a2,a3,a4,a5);
rT212make_external_routine(C,a6,a7);
}
int rT210use_current(/*C*/T0* a1){
int R=0;
return R;
}
int rT209use_current(/*C*/T0* a1){
int R=0;
R=1;
return R;
}
int rT208use_current(/*C*/T0* a1){
int R=0;
T0* _n=NULL;
_n=XrT67to_string(XrT211first_name(a1));
/*IF*/if (rT7is_equal((T7*)(T0 *)ms1605,_n)) {
}
 else if (rT7is_equal((T7*)(T0 *)ms1606,_n)) {
}
else {
R=1;
}
/*FI*/return R;
}
void rT43cecil_define(T43 *C){
T0* _rf=NULL;
int _i=0;
/*IF*/if (((int)(C)->_cecil_list)) {
rT41put_string((T41*)oRBC1std_output,(T0 *)ms792);
XrT38put_string((C)->_out_h,(T0 *)ms793);
_i=XrT266upper((C)->_cecil_list);
while (!((_i)==(0))) {
_rf=XrT266item((C)->_cecil_list,_i);
rT43cecil_define_of(C,_rf);
_i=(_i)-(1);
/*IF*/if ((_i)>(0)) {
rT41put_string((T41*)oRBC1std_output,(T0 *)ms810);
}
/*FI*/}
XrT38put_string((C)->_out_h,(T0 *)ms811);
rT41put_string((T41*)oRBC1std_output,(T0 *)ms812);
}
/*FI*/}
void rT43cecil_define_of(T43 *C,T0* a1){
T0* _rfargs=NULL;
T0* _rfname=NULL;
T0* _rfrt=NULL;
T0* _rfct=NULL;
T0* _running=NULL;
int _running_count=0;
int _i=0;
int _rfid=0;
_rfct=XrT262current_type(a1);
_rfrt=XrT262result_type(a1);
_rfname=XrT262name(a1);
_rfargs=XrT262arguments(a1);
rT41put_string((T41*)oRBC1std_output,XrT58run_time_mark(_rfct));
rT41put_string((T41*)oRBC1std_output,XrT67to_key(_rfname));
/*(IRF3*/(((T7*)oRBC43tmp_string)->_count)=(0);
/*)*//*IF*/if (((int)_rfrt)) {
_rfrt=XrT58run_type(_rfrt);
/*IF*/if (XrT58is_expanded(_rfrt)) {
XrT58mapping_c_in(_rfrt,oRBC43tmp_string);
rT7extend((T7*)oRBC43tmp_string,'\40');
}
else {
rT7append((T7*)oRBC43tmp_string,(T0 *)ms794);
}
/*FI*/}
else {
rT7append((T7*)oRBC43tmp_string,(T0 *)ms795);
}
/*FI*/rT7append((T7*)oRBC43tmp_string,XrT58run_time_mark(_rfct));
rT7append((T7*)oRBC43tmp_string,XrT67to_key(_rfname));
rT7extend((T7*)oRBC43tmp_string,'\50');
/*IF*/if (XrT58fast_mapping_c(_rfct)) {
XrT58mapping_c_in(_rfct,oRBC43tmp_string);
rT7extend((T7*)oRBC43tmp_string,'\40');
}
else {
rT7append((T7*)oRBC43tmp_string,(T0 *)ms796);
}
/*FI*/rT7extend((T7*)oRBC43tmp_string,'C');
/*IF*/if (((int)_rfargs)) {
rT7extend((T7*)oRBC43tmp_string,'\54');
rT92cecil_in((T92*)_rfargs,oRBC43tmp_string);
}
/*FI*/rT7extend((T7*)oRBC43tmp_string,'\51');
rT43put_c_heading(C,oRBC43tmp_string);
_running=((T261*)XrT58run_class(_rfct))->_running;
/*IF*/if (!(_running)) {
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type(_rfct,(T0 *)ms798);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms799);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT58run_time_mark(_rfct));
(/*UT*/(void)(T45*)oRBC27eh);
rT45append(XrT67to_key(_rfname));
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms800);
rT45print_as_warning((T45*)oRBC27eh);
}
else {
_running_count=rT264count((T264*)_running);
_rfid=XrT58id(_rfct);
/*IF*/if (((int)_rfrt)) {
XrT38put_string((C)->_out_c,(T0 *)ms801);
}
/*FI*//*IF*/if ((_running_count)>(1)) {
rT43update_switch_cltn(C,_rfct,_rfid,XrT262name(a1),_running);
XrT38put_character((C)->_out_c,'X');
}
/*FI*/XrT38put_string((C)->_out_c,(T0 *)ms803);
XrT38put_integer((C)->_out_c,_rfid);
XrT67mapping_c(_rfname);
XrT38put_character((C)->_out_c,'\50');
/*IF*/if ((_running_count)==(1)) {
XrT38put_character((C)->_out_c,'\50');
XrT58mapping_cast(_rfct);
}
 else if (rT44no_check((T44*)oRBC27eiffel_run_control)) {
rT43put_position(C,NULL);
XrT38put_character((C)->_out_c,'\54');
}
/*FI*/XrT38put_character((C)->_out_c,'C');
/*IF*/if ((_running_count)==(1)) {
XrT38put_character((C)->_out_c,'\51');
}
/*FI*//*IF*/if (((int)_rfargs)) {
_i=1;
/*(IRF3*/(((T7*)oRBC43tmp_string)->_count)=(0);
/*)*/while (!((_i)>(rT92count((T92*)_rfargs)))) {
rT7append((T7*)oRBC43tmp_string,(T0 *)ms807);
rT2append_in(_i,oRBC43tmp_string);
_i=(_i)+(1);
}
XrT38put_string((C)->_out_c,oRBC43tmp_string);
}
/*FI*/XrT38put_character((C)->_out_c,'\51');
/*IF*/if (!(_rfrt)) {
rT43put_semicolon(C);
}
/*FI*/}
/*FI*/rT43put_string(C,(T0 *)ms809);
}
T0* rT43get_environment_variable(/*C*/T0* a1){
T0* R=NULL;
void * _p=0;
_p=rT7to_external((T7*)a1);
_p=((void*)getenv((char*)_p));
/*IF*/if (((int)_p)) {
R=(T0*)e2s((char*)_p);
}
/*FI*/return R;
}
void rT43once_pre_computing(T43 *C){
T0* _of=NULL;
T0* _rf6=NULL;
T0* _of_array=NULL;
int _i=0;
/*IF*/if (((int)(C)->_pre_computed_once)) {
rT41put_string((T41*)oRBC1std_output,(T0 *)ms846);
_i=((T275*)(C)->_pre_computed_once)->_upper;
{T276 *n=((T276*)se_new(276));
rT276make(n,1,(1)+((_i)/(2)));
_of_array=(T0 *)n;}
rT276clear((T276*)_of_array);
while (!((_i)==(0))) {
_rf6=rT275item((T275*)(C)->_pre_computed_once,_i);
_of=((T274*)_rf6)->_base_feature;
/*IF*/if (!(rT276fast_has((T276*)_of_array,_of))) {
rT41put_character((T41*)oRBC1std_output,'\40');
rT276add_last((T276*)_of_array,_of);
rT274pre_computing((T274*)_rf6);
}
/*FI*/_i=(_i)-(1);
}
rT41put_string((T41*)oRBC1std_output,(T0 *)ms862);
rT41put_integer((T41*)oRBC1std_output,rT276count((T276*)_of_array));
rT41put_character((T41*)oRBC1std_output,'\12');
}
/*FI*/}
void rT43define_initialize(T43 *C){
int _no_check=0;
_no_check=rT44no_check((T44*)oRBC27eiffel_run_control);
rT41put_string((T41*)oRBC1std_output,(T0 *)ms1076);
rT52define_extern_tables((T52*)oRBC27small_eiffel);
rT43incr_elt_c_count(C,50);
rT43put_c_heading(C,(T0 *)ms1088);
rT43swap_on_c(C);
/*(IRF3*/(/*UT*/(void)(T52*)oRBC27small_eiffel);
{
T0* _rc=NULL;
int _i=0;
_i=1;
while (!((_i)>(((T263*)oRBC52run_class_dictionary)->_count))) {
_rc=rT263item((T263*)oRBC52run_class_dictionary,_i);
/*IF*/if (((T261*)_rc)->_at_run_time) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1089);
rT43put_integer((T43*)oRBC27cpp,((T261*)_rc)->_id);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1090);
rT43put_integer((T43*)oRBC27cpp,((T261*)_rc)->_id);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1091);
}
/*FI*/_i=(_i)+(1);
}
}
/*)*//*IF*/if (_no_check) {
/*(IRF3*/(/*UT*/(void)(T52*)oRBC27small_eiffel);
{
T0* _rc=NULL;
T0* _bc=NULL;
int _i=0;
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1092);
_i=1;
while (!((_i)>(((T54*)oRBC52base_class_dictionary)->_count))) {
_bc=rT54item((T54*)oRBC52base_class_dictionary,_i);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1093);
rT43put_integer((T43*)oRBC27cpp,((T50*)_bc)->_id);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1094);
rT43put_string_c((T43*)oRBC27cpp,((T50*)_bc)->_path);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1095);
_i=(_i)+(1);
}
_i=1;
while (!((_i)>(((T263*)oRBC52run_class_dictionary)->_count))) {
_rc=rT263item((T263*)oRBC52run_class_dictionary,_i);
/*IF*/if ((((T261*)_rc)->_at_run_time)&&(XrT58is_generic(((T261*)_rc)->_current_type))) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1096);
rT43put_integer((T43*)oRBC27cpp,((T261*)_rc)->_id);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1097);
rT43put_integer((T43*)oRBC27cpp,((T50*)rT261base_class((T261*)_rc))->_id);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1098);
}
/*FI*/_i=(_i)+(1);
}
}
/*)*/}
/*FI*//*IF*/if (((C)->_generator_used)||(rT44no_check((T44*)oRBC27eiffel_run_control))) {
/*(IRF3*/(/*UT*/(void)(T52*)oRBC27small_eiffel);
{
T0* _rc=NULL;
T0* _bc=NULL;
int _i=0;
_i=1;
while (!((_i)>(((T54*)oRBC52base_class_dictionary)->_count))) {
_bc=rT54item((T54*)oRBC52base_class_dictionary,_i);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1099);
rT43put_integer((T43*)oRBC27cpp,((T50*)_bc)->_id);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1100);
rT43put_string_c((T43*)oRBC27cpp,((T48*)((T50*)_bc)->_base_class_name)->_to_string);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1101);
_i=(_i)+(1);
}
_i=1;
while (!((_i)>(((T263*)oRBC52run_class_dictionary)->_count))) {
_rc=rT263item((T263*)oRBC52run_class_dictionary,_i);
/*IF*/if ((((T261*)_rc)->_at_run_time)&&(XrT58is_generic(((T261*)_rc)->_current_type))) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1102);
rT43put_integer((T43*)oRBC27cpp,((T261*)_rc)->_id);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1103);
rT43put_integer((T43*)oRBC27cpp,((T50*)rT261base_class((T261*)_rc))->_id);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1104);
}
/*FI*/_i=(_i)+(1);
}
}
/*)*/}
/*FI*//*IF*/if (((C)->_generating_type_used)||(rT44no_check((T44*)oRBC27eiffel_run_control))) {
/*(IRF3*/(/*UT*/(void)(T52*)oRBC27small_eiffel);
{
T0* _rc=NULL;
int _i=0;
_i=1;
while (!((_i)>(((T263*)oRBC52run_class_dictionary)->_count))) {
_rc=rT263item((T263*)oRBC52run_class_dictionary,_i);
/*IF*/if (((T261*)_rc)->_at_run_time) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1105);
rT43put_integer((T43*)oRBC27cpp,((T261*)_rc)->_id);
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1106);
/*IF*/if (XrT58is_generic(((T261*)_rc)->_current_type)) {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1107);
rT43put_string_c((T43*)oRBC27cpp,XrT58run_time_mark(((T261*)_rc)->_current_type));
rT43put_character((T43*)oRBC27cpp,'\51');
}
else {
rT43put_string((T43*)oRBC27cpp,(T0 *)ms1108);
rT43put_integer((T43*)oRBC27cpp,((T261*)_rc)->_id);
rT43put_character((T43*)oRBC27cpp,'\135');
}
/*FI*/rT43put_string((T43*)oRBC27cpp,(T0 *)ms1109);
}
/*FI*/_i=(_i)+(1);
}
}
/*)*/}
/*FI*/rT43put_string(C,(T0 *)ms1110);
}
void rT43define_to_reference(T43 *C){
T0* _dest_type=NULL;
T0* _src_type=NULL;
T0* _dest_rc=NULL;
T0* _src_rc=NULL;
int _i=0;
_i=1;
while (!((_i)>(((T264*)(C)->_to_reference_mem)->_upper))) {
_src_rc=rT264item((T264*)(C)->_to_reference_mem,_i);
_i=(_i)+(1);
_dest_rc=rT264item((T264*)(C)->_to_reference_mem,_i);
_i=(_i)+(1);
_src_type=((T261*)_src_rc)->_current_type;
_dest_type=((T261*)_dest_rc)->_current_type;
rT41put_string((T41*)oRBC1std_output,(T0 *)ms1052);
rT41put_string((T41*)oRBC1std_output,XrT58run_time_mark(_src_type));
rT41put_string((T41*)oRBC1std_output,(T0 *)ms1053);
rT41put_string((T41*)oRBC1std_output,XrT58run_time_mark(_dest_type));
rT41put_string((T41*)oRBC1std_output,(T0 *)ms1054);
rT7copy((T7*)oRBC43tmp_string,(T0 *)ms1055);
rT43conversion_name(((T261*)_dest_rc)->_id);
rT7extend((T7*)oRBC43tmp_string,'\50');
XrT58mapping_c_in(_src_type,oRBC43tmp_string);
rT7append((T7*)oRBC43tmp_string,(T0 *)ms1056);
XrT38put_string((C)->_out_h,oRBC43tmp_string);
XrT38put_string((C)->_out_h,(T0 *)ms1057);
XrT38put_string((C)->_out_c,oRBC43tmp_string);
rT7copy((T7*)oRBC43tmp_string,(T0 *)ms1058);
XrT58mapping_c_in(_dest_type,oRBC43tmp_string);
rT7append((T7*)oRBC43tmp_string,(T0 *)ms1059);
XrT58mapping_c_in(_dest_type,oRBC43tmp_string);
rT7append((T7*)oRBC43tmp_string,(T0 *)ms1060);
rT2append_in(((T261*)_dest_rc)->_id,oRBC43tmp_string);
rT7append((T7*)oRBC43tmp_string,(T0 *)ms1061);
XrT38put_string((C)->_out_c,oRBC43tmp_string);
}
}
void rT43define_to_expanded(T43 *C){
T0* _dest_type=NULL;
T0* _src_type=NULL;
T0* _dest_rc=NULL;
T0* _src_rc=NULL;
int _i=0;
_i=1;
while (!((_i)>(((T264*)(C)->_to_expanded_mem)->_upper))) {
_src_rc=rT264item((T264*)(C)->_to_expanded_mem,_i);
_i=(_i)+(1);
_dest_rc=rT264item((T264*)(C)->_to_expanded_mem,_i);
_i=(_i)+(1);
_src_type=((T261*)_src_rc)->_current_type;
_dest_type=((T261*)_dest_rc)->_current_type;
rT41put_string((T41*)oRBC1std_output,(T0 *)ms1044);
rT41put_string((T41*)oRBC1std_output,XrT58run_time_mark(_src_type));
rT41put_string((T41*)oRBC1std_output,(T0 *)ms1045);
rT41put_string((T41*)oRBC1std_output,XrT58run_time_mark(_dest_type));
rT41put_string((T41*)oRBC1std_output,(T0 *)ms1046);
/*(IRF3*/(((T7*)oRBC43tmp_string)->_count)=(0);
/*)*/XrT58mapping_c_in(_dest_type,oRBC43tmp_string);
rT7extend((T7*)oRBC43tmp_string,'\40');
rT43conversion_name(((T261*)_dest_rc)->_id);
rT7append((T7*)oRBC43tmp_string,(T0 *)ms1048);
XrT38put_string((C)->_out_h,oRBC43tmp_string);
XrT38put_string((C)->_out_h,(T0 *)ms1049);
XrT38put_string((C)->_out_c,oRBC43tmp_string);
rT7copy((T7*)oRBC43tmp_string,(T0 *)ms1050);
rT7append((T7*)oRBC43tmp_string,(T0 *)ms1051);
XrT38put_string((C)->_out_c,oRBC43tmp_string);
}
}
void rT43define_main(T43 *C,T0* a1){
T0* _ct=NULL;
T0* _rc=NULL;
int _id=0;
rT41put_string((T41*)oRBC1std_output,(T0 *)ms813);
_ct=XrT262current_type(a1);
_id=XrT58id(_ct);
_rc=XrT262run_class(a1);
rT43swap_on_c(C);
rT43incr_elt_c_count(C,10);
rT43put_extern1(C,(T0 *)ms814);
rT43put_extern1(C,(T0 *)ms815);
rT43put_lines(C,ma(34,0,2,ms816,ms817));
rT43put_character(C,'T');
rT43put_integer(C,_id);
rT43put_string(C,(T0 *)ms818);
rT43put_new(C,_ct);
rT43put_string(C,(T0 *)ms822);
rT43put_lines(C,ma(34,0,2,ms823,ms824));
/*IF*/if (((T0 *)(T0 *)ms825)!=((T0 *)rT43system_name())) {
rT43put_string(C,(T0 *)ms837);
rT43put_string(C,(T0 *)ms838);
rT43put_string(C,(T0 *)ms839);
}
/*FI*//*IF*/if (((int)(C)->_ms_list)) {
rT43put_string(C,(T0 *)ms840);
}
/*FI*//*IF*/if (rT44no_check((T44*)oRBC27eiffel_run_control)) {
rT43put_lines(C,ma(34,0,4,ms841,ms842,ms843,ms844));
}
/*FI*/rT43expanded_attributes(C,(T0 *)ms845,NULL,_ct);
rT43once_pre_computing(C);
rT43push_new(C,a1,NULL);
XrT262mapping_c(a1);
rT43pop(C);
/*IF*/if (rT44invariant_check((T44*)oRBC27eiffel_run_control)) {
/*IF*/if (((int)((T261*)_rc)->_invariant_assertion)) {
rT43put_string(C,(T0 *)ms863);
rT43put_integer(C,_id);
rT43put_string(C,(T0 *)ms864);
}
/*FI*/}
/*FI*//*IF*/if (rT44no_check((T44*)oRBC27eiffel_run_control)) {
rT43put_lines(C,ma(34,0,3,ms865,ms866,ms867));
}
/*FI*/rT43put_string(C,(T0 *)ms868);
rT43incr_elt_c_count(C,10);
rT43define_se_manifest_strings(C);
rT43print_included(C);
}
void rT43define_se_manifest_strings(T43 *C){
T0* _ms=NULL;
int _i=0;
int _nb_elt_c=0;
/*IF*/if (((int)(C)->_ms_list)) {
rT41put_string((T41*)oRBC1std_output,(T0 *)ms869);
rT41put_integer((T41*)oRBC1std_output,rT151count((T151*)(C)->_ms_list));
rT41put_string((T41*)oRBC1std_output,(T0 *)ms870);
_nb_elt_c=rT151count((T151*)(C)->_ms_list);
/*IF*/if ((_nb_elt_c)>(500)) {
_nb_elt_c=(1500)+(1);
}
/*FI*/rT43incr_elt_c_count(C,_nb_elt_c);
_i=((T151*)(C)->_ms_list)->_upper;
while (!((_i)==(0))) {
_ms=rT151item((T151*)(C)->_ms_list,_i);
/*IF*/if (((int)_ms)) {
rT7copy((T7*)oRBC43tmp_string,(T0 *)ms871);
rT2append_in(_i,oRBC43tmp_string);
rT43put_extern1(C,oRBC43tmp_string);
}
/*FI*/_i=(_i)-(1);
}
rT43incr_elt_c_count(C,_nb_elt_c);
rT43put_c_heading(C,(T0 *)ms872);
_i=((T151*)(C)->_ms_list)->_upper;
while (!((_i)==(0))) {
_ms=rT151item((T151*)(C)->_ms_list,_i);
/*IF*/if (((int)_ms)) {
XrT38put_string((C)->_out_c,(T0 *)ms873);
XrT38put_integer((C)->_out_c,_i);
XrT38put_string((C)->_out_c,(T0 *)ms874);
rT43put_string_c(C,((T76*)_ms)->_to_string);
XrT38put_string((C)->_out_c,(T0 *)ms882);
}
/*FI*/_i=(_i)-(1);
}
XrT38put_string((C)->_out_c,(T0 *)ms883);
rT43incr_elt_c_count(C,_nb_elt_c);
}
/*FI*/}
void rT43define_used_basics(T43 *C){
T0* _ms=NULL;
int _no_check=0;
int _i=0;
_no_check=rT44no_check((T44*)oRBC27eiffel_run_control);
rT41put_string((T41*)oRBC1std_output,(T0 *)ms886);
/*IF*/if (((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52is_used((T0 *)ms183))) {
rT43put_c_function(C,ma(34,0,5,ms887,ms888,ms889,ms890,ms891));
rT43put_c_function(C,ma(34,0,8,ms892,ms893,ms894,ms895,ms896,ms897,ms898,ms899));
}
/*FI*//*IF*/if (((/*UT*/(void)(T52*)oRBC27small_eiffel),
rT52is_used((T0 *)ms182))) {
rT43put_c_function(C,ma(34,0,33,ms900,ms901,ms902,ms903,ms904,ms905,ms906,ms907,ms908,ms909,ms910,ms911,ms912,ms913,ms914,ms915,ms916,ms917,ms918,ms919,ms920,ms921,ms922,ms923,ms924,ms925,ms926,ms927,ms928,ms929,ms930,ms931,ms932));
}
/*FI*//*IF*/if (_no_check) {
rT43put_c_function(C,ma(34,0,56,ms933,ms934,ms935,ms936,ms937,ms938,ms939,ms940,ms941,ms942,ms943,ms944,ms945,ms946,ms947,ms948,ms949,ms950,ms951,ms952,ms953,ms954,ms955,ms956,ms957,ms958,ms959,ms960,ms961,ms962,ms963,ms964,ms965,ms966,ms967,ms968,ms969,ms970,ms971,ms972,ms973,ms974,ms975,ms976,ms977,ms978,ms979,ms980,ms981,ms982,ms983,ms984,ms985,ms986,ms987,ms988));
}
else {
rT43put_c_function(C,ma(34,0,4,ms989,ms990,ms991,ms992));
}
/*FI*//*IF*/if (_no_check) {
rT43put_c_function(C,ma(34,0,4,ms993,ms994,ms995,ms996));
rT43put_c_function(C,ma(34,0,5,ms997,ms998,ms999,ms1000,ms1001));
rT43put_c_function(C,ma(34,0,3,ms1002,ms1003,ms1004));
rT43put_c_function(C,ma(34,0,3,ms1005,ms1006,ms1007));
rT43put_c_function(C,ma(34,0,9,ms1008,ms1009,ms1010,ms1011,ms1012,ms1013,ms1014,ms1015,ms1016));
rT43put_c_function(C,ma(34,0,3,ms1017,ms1018,ms1019));
}
/*FI*/rT43put_c_function(C,ma(34,0,4,ms1020,ms1021,ms1022,ms1023));
rT43define_switches(C);
/*IF*/if (((int)(C)->_to_expanded_mem)) {
rT43define_to_expanded(C);
}
/*FI*//*IF*/if (((int)(C)->_to_reference_mem)) {
rT43define_to_reference(C);
}
/*FI*//*IF*/if (((C)->_sure_void_count)>(0)) {
rT41put_string((T41*)oRBC1std_output,(T0 *)ms1062);
rT41put_integer((T41*)oRBC1std_output,(C)->_sure_void_count);
rT41put_string((T41*)oRBC1std_output,(T0 *)ms1063);
}
/*FI*/rT43print_count((T0 *)ms1064,(C)->_direct_call_count);
rT43print_count((T0 *)ms1065,(C)->_check_id_count);
rT43print_count((T0 *)ms1066,(C)->_switch_count);
rT43print_count((T0 *)ms1067,(C)->_inlined_procedure_count);
rT43print_count((T0 *)ms1068,(C)->_inlined_function_count);
rT43print_count((T0 *)ms1069,(C)->_static_expression_count);
rT43print_count((T0 *)ms1070,(C)->_real_procedure_count);
rT43print_count((T0 *)ms1071,(C)->_real_function_count);
rT43print_count((T0 *)ms1072,(C)->_procedure_count);
rT43print_count((T0 *)ms1073,(C)->_function_count);
/*IF*/if (((int)(C)->_pre_computed_once)) {
rT43print_count((T0 *)ms1074,rT275count((T275*)(C)->_pre_computed_once));
}
/*FI*/rT41put_string((T41*)oRBC1std_output,(T0 *)ms1075);
rT41put_integer((T41*)oRBC1std_output,((T55*)oRBC43stack_code)->_upper);
rT41put_character((T41*)oRBC1std_output,'\12');
rT43define_initialize(C);
}
void rT43define_switches(T43 *C){
T0* _st=NULL;
int _count=0;
int _j=0;
int _i=0;
/*IF*/if (((int)(C)->_switch_cltn)) {
rT43swap_on_c(C);
_i=((T271*)(C)->_switch_cltn)->_lower;
while (!((_i)>(((T271*)(C)->_switch_cltn)->_upper))) {
_st=rT271item((T271*)(C)->_switch_cltn,_i);
/*IF*/if (((int)_st)) {
_j=((T272*)_st)->_lower;
while (!((_j)>(((T272*)_st)->_upper))) {
rT270c_define((T270*)rT272item((T272*)_st,_j));
rT43incr_elt_c_count(C,20);
_count=(_count)+(1);
_j=(_j)+(1);
}
}
/*FI*/_i=(_i)+(1);
}
}
/*FI*/rT43print_count((T0 *)ms1043,_count);
}
T0* rT43to_bcn(/*C*/T0* a1){
T0* R=NULL;
char _c=0;
int _i=0;
R=rT7twin((T7*)a1);
/*IF*/if (rT7has_suffix((T7*)R,(T0 *)ms46)) {
rT7remove_last((T7*)R,2);
}
/*FI*/_i=((T7*)R)->_count;
while (!((_i)==(0))) {
_c=rT7item((T7*)R,_i);
/*IF*/if (rT3is_letter(_c)) {
_i=(_i)-(1);
}
 else if ((_c)==('\137')) {
_i=(_i)-(1);
}
 else if (rT3is_digit(_c)) {
_i=(_i)-(1);
}
else {
rT7remove_first((T7*)R,_i);
_i=0;
}
/*FI*/}
rT7to_upper((T7*)R);
return R;
}
int ofBC27directory_separator=0;
T3 oRBC27directory_separator;
char rT43directory_separator(/*C*/void){
if (ofBC27directory_separator==0){
char R=0;
ofBC27directory_separator=1;
R=rT7last((T7*)rT43small_eiffel_directory());
oRBC27directory_separator=R;}
return oRBC27directory_separator;}
void rT43fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45fatal_error(a1);
}
void rT43die_with_code(/*C*/int a1){
exit(a1);
}
void rT43incr_pre_computed_once_count(T43 *C,T0* a1){
/*IF*/if (!((C)->_pre_computed_once)) {
C->_pre_computed_once=ma(275,0,1,a1);
}
else {
rT275add_last((T275*)(C)->_pre_computed_once,a1);
}
/*FI*/}
void rT43incr_real_function_count(T43 *C){
C->_real_function_count=((C)->_real_function_count)+(1);
rT43incr_elt_c_count(C,10);
}
void rT43incr_function_count(T43 *C){
C->_function_count=((C)->_function_count)+(1);
rT43incr_elt_c_count(C,10);
}
void rT43incr_inlined_function_count(T43 *C){
C->_inlined_function_count=((C)->_inlined_function_count)+(1);
}
void rT43incr_real_procedure_count(T43 *C){
C->_real_procedure_count=((C)->_real_procedure_count)+(1);
rT43incr_elt_c_count(C,10);
}
void rT43incr_procedure_count(T43 *C){
C->_procedure_count=((C)->_procedure_count)+(1);
rT43incr_elt_c_count(C,10);
}
void rT43incr_inlined_procedure_count(T43 *C){
C->_inlined_procedure_count=((C)->_inlined_procedure_count)+(1);
}
void rT43incr_static_expression_count(T43 *C){
C->_static_expression_count=((C)->_static_expression_count)+(1);
}
void rT43manifest_string_mapping_c(T43 *C,int a1){
rT43put_string(C,(T0 *)ms1173);
rT43put_integer(C,a1);
}
void rT43incr_elt_c_count(T43 *C,int a1){
C->_elt_c_count=((C)->_elt_c_count)+(a1);
/*IF*/if (((C)->_elt_c_count)>(1500)) {
C->_elt_c_count=0;
XrT38disconnect((C)->_out_c);
C->_split_count=((C)->_split_count)+(1);
rT7copy((T7*)rT43path_c(C),rT43path_h());
rT7remove_last((T7*)rT43path_c(C),2);
rT2append_in((C)->_split_count,rT43path_c(C));
rT7append((T7*)rT43path_c(C),(T0 *)ms528);
C->_out_c=rT43open_write(rT43path_c(C));
rT43add_first_include(C);
/*IF*/if (((T0 *)(C)->_current_out)!=((T0 *)(C)->_out_h)) {
C->_current_out=(C)->_out_c;
}
/*FI*/}
/*FI*/}
int ofBC43path_make=0;
T0*oRBC43path_make;
T0* rT43path_make(/*C*/void){
if (ofBC43path_make==0){
T0* R=NULL;
ofBC43path_make=1;
R=rT7twin((T7*)rT43path_h());
rT7remove_last((T7*)R,2);
rT7append((T7*)R,rT43make_suffix());
oRBC43path_make=R;}
return oRBC43path_make;}
int ofBC43path_h=0;
T0*oRBC43path_h;
T0* rT43path_h(/*C*/void){
if (ofBC43path_h==0){
T0* R=NULL;
ofBC43path_h=1;
R=((T44*)oRBC27eiffel_run_control)->_root_class;
/*IF*/if (!(R)) {
rT43fatal_error((T0 *)ms526);
}
else {
R=rT43to_bcn(R);
rT7to_lower((T7*)R);
rT7append((T7*)R,(T0 *)ms527);
}
/*FI*/oRBC43path_h=R;}
return oRBC43path_h;}
int ofBC43path_c=0;
T0*oRBC43path_c;
T0* rT43path_c(T43 *C){
if (ofBC43path_c==0){
T0* R=NULL;
ofBC43path_c=1;
R=rT7twin((T7*)rT43path_h());
rT7remove_last((T7*)R,2);
C->_split_count=1;
rT2append_in((C)->_split_count,R);
rT7append((T7*)R,(T0 *)ms528);
oRBC43path_c=R;}
return oRBC43path_c;}
void rT43trace_boolean_expression(T43 *C,T0* a1){
rT43rs_push_position(C,'2',XrT68start_position(a1));
rT43put_string(C,(T0 *)ms1307);
XrT68compile_to_c(a1);
rT43put_character(C,'\51');
}
T0*oRBC1std_error;
int rT43new_goto(T43 *C){
int R=0;
C->_goto_count=((C)->_goto_count)+(1);
R=(C)->_goto_count;
return R;
}
T0* rT43open_write(/*C*/T0* a1){
T0* R=NULL;
{T38 *n=((T38*)se_new(38));
rT38connect_to(n,a1);
R=(T0 *)n;}
/*IF*/if (!(XrT38is_connected(R))) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms524);
rT37put_string((T37*)oRBC1std_error,a1);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms525);
rT43die_with_code(1);
}
/*FI*/return R;
}
void rT43open_read(/*C*/T0* a1,T0* a2){
rT42connect_to((T42*)a1,a2);
/*IF*/if (!(rT42is_connected((T42*)a1))) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms48);
rT37put_string((T37*)oRBC1std_error,a2);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms49);
rT43die_with_code(1);
}
/*FI*/}
void rT43macro_list_printing(T43 *C){
int _i=0;
/*IF*/if (((int)(C)->_macro_list)) {
rT41put_string((T41*)oRBC1std_output,(T0 *)ms754);
XrT38put_string((C)->_out_h,(T0 *)ms755);
_i=1;
while (!((_i)==(((T34*)(C)->_macro_list)->_upper))) {
XrT38put_string((C)->_out_h,rT34item((T34*)(C)->_macro_list,_i));
_i=(_i)+(1);
}
XrT38put_string((C)->_out_h,(T0 *)ms756);
rT41put_string((T41*)oRBC1std_output,(T0 *)ms757);
}
/*FI*/}
void rT43get_started(T43 *C){
int _no_check=0;
_no_check=rT44no_check((T44*)oRBC27eiffel_run_control);
C->_has_started=1;
C->_top=0;
C->_out_c=rT43open_write(rT43path_c(C));
C->_current_out=(C)->_out_c;
rT43add_first_include(C);
C->_out_h=rT43open_write(rT43path_h());
C->_current_out=(C)->_out_h;
rT43put_banner((C)->_out_h);
rT43include(C,(T0 *)ms537);
rT43include(C,(T0 *)ms538);
rT43include(C,(T0 *)ms539);
rT43include(C,(T0 *)ms540);
rT43include(C,(T0 *)ms541);
rT43include(C,(T0 *)ms542);
rT43include(C,(T0 *)ms543);
rT43include(C,(T0 *)ms544);
rT43put_lines(C,ma(34,0,6,ms545,ms546,ms547,ms548,ms549,ms550));
rT43put_c_function(C,ma(34,0,6,ms554,ms555,ms556,ms557,ms558,ms559));
rT43cdef_t(C,(T0 *)ms562,1);
rT43cdef_id(C,(T0 *)ms565,1);
rT43cdef_id(C,(T0 *)ms566,2);
rT43cdef_id(C,(T0 *)ms567,3);
rT43cdef_id(C,(T0 *)ms568,6);
rT43cdef_id(C,(T0 *)ms569,4);
rT43cdef_id(C,(T0 *)ms570,5);
rT43cdef_id(C,(T0 *)ms571,8);
rT43cdef_id(C,(T0 *)ms572,10);
rT43cdef_id(C,(T0 *)ms573,11);
rT43cdef_id(C,(T0 *)ms574,12);
rT43cdef_id(C,(T0 *)ms575,13);
rT43cdef_id(C,(T0 *)ms576,14);
rT43cdef_id(C,(T0 *)ms577,15);
rT43cdef_id(C,(T0 *)ms578,16);
rT43cdef_id(C,(T0 *)ms579,17);
rT43cdef_id(C,(T0 *)ms580,18);
rT43cdef_id(C,(T0 *)ms581,19);
/*IF*/if (_no_check) {
rT43put_extern3(C,(T0 *)ms588,(T0 *)ms587);
rT43put_extern3(C,(T0 *)ms590,(T0 *)ms589);
rT43put_extern3(C,(T0 *)ms592,(T0 *)ms591);
rT43put_extern3(C,(T0 *)ms594,(T0 *)ms593);
rT43put_extern3(C,(T0 *)ms596,(T0 *)ms595);
rT43put_extern3(C,(T0 *)ms598,(T0 *)ms597);
rT43put_extern3(C,(T0 *)ms199,(T0 *)ms199);
rT43put_extern3(C,(T0 *)ms289,(T0 *)ms289);
rT43put_extern1(C,(T0 *)ms602);
rT43put_extern1(C,(T0 *)ms603);
rT43put_extern1(C,(T0 *)ms604);
rT43put_extern1(C,(T0 *)ms605);
rT43put_c_function(C,ma(34,0,16,ms606,ms607,ms608,ms609,ms610,ms611,ms612,ms613,ms614,ms615,ms616,ms617,ms618,ms619,ms620,ms621));
rT43put_c_function(C,ma(34,0,7,ms622,ms623,ms624,ms625,ms626,ms627,ms628));
rT43put_c_function(C,ma(34,0,3,ms629,ms630,ms631));
rT43put_c_function(C,ma(34,0,10,ms632,ms633,ms634,ms635,ms636,ms637,ms638,ms639,ms640,ms641));
rT43put_c_function(C,ma(34,0,3,ms642,ms643,ms644));
rT43put_c_function(C,ma(34,0,6,ms645,ms646,ms647,ms648,ms649,ms650));
rT43put_c_function(C,ma(34,0,6,ms651,ms652,ms653,ms654,ms655,ms656));
rT43put_c_function(C,ma(34,0,6,ms657,ms658,ms659,ms660,ms661,ms662));
rT43put_c_function(C,ma(34,0,6,ms663,ms664,ms665,ms666,ms667,ms668));
rT43put_c_function(C,ma(34,0,6,ms669,ms670,ms671,ms672,ms673,ms674));
rT43put_c_function(C,ma(34,0,6,ms675,ms676,ms677,ms678,ms679,ms680));
rT43put_c_function(C,ma(34,0,6,ms681,ms682,ms683,ms684,ms685,ms686));
rT43put_c_function(C,ma(34,0,6,ms687,ms688,ms689,ms690,ms691,ms692));
}
/*FI*//*IF*/if (rT44require_check((T44*)oRBC27eiffel_run_control)) {
rT43put_extern1(C,(T0 *)ms693);
rT43put_extern1(C,(T0 *)ms694);
rT43put_extern2(C,(T0 *)ms698,'0');
rT43put_c_function(C,ma(34,0,5,ms699,ms700,ms701,ms702,ms703));
rT43put_macro_af(C,(T0 *)ms705);
rT43put_macro_af(C,(T0 *)ms706);
}
else {
rT43put_macro_af(C,(T0 *)ms707);
rT43put_macro_af(C,(T0 *)ms708);
}
/*FI*//*IF*/if (rT44ensure_check((T44*)oRBC27eiffel_run_control)) {
rT43put_extern2(C,(T0 *)ms709,'0');
rT43put_c_function(C,ma(34,0,3,ms710,ms711,ms712));
rT43put_macro_af(C,(T0 *)ms713);
rT43put_macro_af(C,(T0 *)ms714);
}
else {
rT43put_macro_af(C,(T0 *)ms715);
rT43put_macro_af(C,(T0 *)ms716);
}
/*FI*//*IF*/if (rT44invariant_check((T44*)oRBC27eiffel_run_control)) {
rT43put_extern2(C,(T0 *)ms717,'0');
rT43put_c_function(C,ma(34,0,3,ms718,ms719,ms720));
rT43put_macro_af(C,(T0 *)ms721);
rT43put_macro_af(C,(T0 *)ms722);
}
else {
rT43put_macro_af(C,(T0 *)ms723);
rT43put_macro_af(C,(T0 *)ms724);
}
/*FI*//*IF*/if (rT44loop_check((T44*)oRBC27eiffel_run_control)) {
rT43put_extern2(C,(T0 *)ms725,'0');
rT43put_c_function(C,ma(34,0,3,ms726,ms727,ms728));
rT43put_c_function(C,ma(34,0,11,ms729,ms730,ms731,ms732,ms733,ms734,ms735,ms736,ms737,ms738,ms739));
rT43put_macro_af(C,(T0 *)ms740);
rT43put_macro_af(C,(T0 *)ms741);
}
else {
rT43put_macro_af(C,(T0 *)ms742);
rT43put_macro_af(C,(T0 *)ms743);
}
/*FI*//*IF*/if (rT44all_check((T44*)oRBC27eiffel_run_control)) {
rT43put_extern2(C,(T0 *)ms744,'0');
rT43put_c_function(C,ma(34,0,3,ms745,ms746,ms747));
rT43put_macro_af(C,(T0 *)ms748);
rT43put_macro_af(C,(T0 *)ms749);
}
else {
rT43put_macro_af(C,(T0 *)ms750);
rT43put_macro_af(C,(T0 *)ms751);
}
/*FI*/rT43put_macro_af(C,(T0 *)ms752);
rT43put_macro_af(C,(T0 *)ms753);
rT43macro_list_printing(C);
C->_current_out=(C)->_out_c;
}
int rT43target_cannot_be_dropped(T43 *C){
int R=0;
int _function=0;
{int iv1=rT55item((T55*)oRBC43stack_code,(C)->_top);
if ((1004<=iv1)&&(iv1<=1005)) goto l2;
goto l3;
 l2: ;
R=!(XrT68can_be_dropped(XrT81item(oRBC43stack_target,(C)->_top)));
goto l1;
 l3: ;
 l1: ;
}
/*IF*/if (R) {
_function=((int)XrT262result_type(XrT266item(oRBC43stack_rf,(C)->_top)));
/*IF*/if (_function) {
rT43put_character(C,'\50');
}
/*FI*/rT43put_string(C,(T0 *)ms1417);
rT43put_target(C);
rT43put_character(C,'\51');
/*IF*/if (_function) {
rT43put_string(C,(T0 *)ms1418);
}
else {
rT43put_string(C,(T0 *)ms1419);
}
/*FI*/}
/*FI*/return R;
}
void rT43variant_check(T43 *C,T0* a1){
rT43rs_push_position(C,'6',XrT68start_position(a1));
rT43put_string(C,(T0 *)ms1338);
XrT68compile_to_c(a1);
rT43put_string(C,(T0 *)ms1339);
}
int ofBC27tmp_file_read=0;
T0*oRBC27tmp_file_read;
T0* rT43tmp_file_read(/*C*/void){
if (ofBC27tmp_file_read==0){
T0* R=NULL;
ofBC27tmp_file_read=1;
{T42 *n=((T42*)se_new(42));
/*(IRF3*/((n)->_mode)=((T0 *)ms25);
/*)*/R=(T0 *)n;}
oRBC27tmp_file_read=R;}
return oRBC27tmp_file_read;}
void rT43stack_push(T43 *C,int a1){
int _new_size=0;
C->_top=((C)->_top)+(1);
/*IF*/if (((C)->_top)>(((T55*)oRBC43stack_code)->_upper)) {
_new_size=(((T55*)oRBC43stack_code)->_upper)+(12);
rT55resize((T55*)oRBC43stack_code,1,_new_size);
XrT266resize(oRBC43stack_rf,1,_new_size);
XrT81resize(oRBC43stack_target,1,_new_size);
rT273resize((T273*)oRBC43stack_args,1,_new_size);
rT272resize((T272*)oRBC43stack_switch,1,_new_size);
rT34resize((T34*)oRBC43stack_string,1,_new_size);
}
/*FI*/rT55put((T55*)oRBC43stack_code,a1,(C)->_top);
}
T0*oRBC43stack_code;
T0*oRBC43stack_rf;
T0*oRBC43stack_target;
T0*oRBC43stack_args;
T0*oRBC43stack_switch;
T0*oRBC43stack_string;
void rT43to_reference(T43 *C,T0* a1,T0* a2){
T0* _dest_rc=NULL;
T0* _src_rc=NULL;
_src_rc=XrT58run_class(a1);
_dest_rc=XrT58run_class(a2);
/*IF*/if (!((C)->_to_reference_mem)) {
C->_to_reference_mem=ma(264,0,2,_src_rc,_dest_rc);
}
 else if (!(rT264fast_has((T264*)(C)->_to_reference_mem,_src_rc))) {
rT264add_last((T264*)(C)->_to_reference_mem,_src_rc);
rT264add_last((T264*)(C)->_to_reference_mem,_dest_rc);
}
/*FI*//*(IRF3*/(((T7*)oRBC43tmp_string)->_count)=(0);
/*)*/rT43conversion_name(((T261*)_dest_rc)->_id);
rT43put_string(C,oRBC43tmp_string);
}
void rT43put_arguments(T43 *C){
T0* _fal=NULL;
{int iv1=rT55item((T55*)oRBC43stack_code,(C)->_top);
if (1003 == iv1) goto l5;
goto l6;
 l5: ;
_fal=XrT262arguments(XrT266item(oRBC43stack_rf,(C)->_top));
rT171compile_to_c((T171*)rT273item((T273*)oRBC43stack_args,(C)->_top),_fal);
goto l4;
 l6: ;
if (1004 == iv1) goto l7;
goto l8;
 l7: ;
_fal=XrT262arguments(XrT266item(oRBC43stack_rf,(C)->_top));
rT171compile_to_c((T171*)rT273item((T273*)oRBC43stack_args,(C)->_top),_fal);
goto l4;
 l8: ;
if (1005 == iv1) goto l9;
goto l10;
 l9: ;
_fal=XrT262arguments(XrT266item(oRBC43stack_rf,(C)->_top));
rT171compile_to_c((T171*)rT273item((T273*)oRBC43stack_args,(C)->_top),_fal);
goto l4;
 l10: ;
if (1006 == iv1) goto l11;
goto l12;
 l11: ;
_fal=XrT262arguments(XrT266item(oRBC43stack_rf,(C)->_top));
rT270put_arguments((T270*)rT272item((T272*)oRBC43stack_switch,(C)->_top),_fal);
goto l4;
 l12: ;
if (1007 == iv1) goto l13;
goto l14;
 l13: ;
_fal=XrT262arguments(XrT266item(oRBC43stack_rf,(C)->_top));
rT171compile_to_c((T171*)rT273item((T273*)oRBC43stack_args,(C)->_top),_fal);
goto l4;
 l14: ;
 l4: ;
}
}
void rT43rs_link(T43 *C,T0* a1){
rT43put_string(C,(T0 *)ms1397);
XrT262mapping_name(a1);
rT43put_string(C,(T0 *)ms1398);
}
T0*oRBC1std_output;
int ofBC27small_eiffel_directory=0;
T0*oRBC27small_eiffel_directory;
T0* rT43small_eiffel_directory(/*C*/void){
if (ofBC27small_eiffel_directory==0){
T0* R=NULL;
char _slash=0;
int _i=0;
ofBC27small_eiffel_directory=1;
R=rT43get_environment_variable((T0 *)ms15);
/*IF*/if (!(R)) {
R=rT7twin((T7*)(T0 *)ms15);
rT7to_upper((T7*)R);
R=rT43get_environment_variable(R);
/*IF*/if (((int)R)) {
rT7to_upper((T7*)(T0 *)ms15);
}
/*FI*/}
/*FI*//*IF*/if (!(R)) {
R=(T0 *)ms19;
}
/*FI*/_i=((T7*)R)->_count;
while (!((_i)<(0))) {
_slash=rT7item((T7*)R,_i);
/*IF*/if ((rT3is_letter(_slash))||(rT3is_digit(_slash))) {
_i=(_i)-(1);
}
else {
_i=-(1);
}
/*FI*/}
/*IF*/if ((_i)==(0)) {
rT7extend((T7*)R,'\57');
}
 else if (!((rT7last((T7*)R))==(_slash))) {
rT7extend((T7*)R,_slash);
}
/*FI*/oRBC27small_eiffel_directory=R;}
return oRBC27small_eiffel_directory;}
void rT43swap_on_c(T43 *C){
C->_current_out=(C)->_out_c;
}
void rT43put_banner(/*C*/T0* a1){
XrT38put_string(a1,(T0 *)ms529);
XrT38put_string(a1,(T0 *)ms446);
XrT38put_string(a1,(T0 *)ms530);
}
void rT43swap_on_h(T43 *C){
C->_current_out=(C)->_out_h;
}
void rT43put_c_inline_h(T43 *C){
int _index=0;
T0* _c_code=NULL;
_c_code=rT171expression((T171*)rT273item((T273*)oRBC43stack_args,(C)->_top),1);
if ((int)_c_code) switch (((T0 *)_c_code)->id) {
case 76: 
break;
default:
_c_code = NULL;
};_index=((T76*)_c_code)->_id;
/*IF*/if (((int)rT151item((T151*)(C)->_ms_list,_index))) {
XrT38put_string((C)->_out_h,((T76*)_c_code)->_to_string);
XrT38put_character((C)->_out_h,'\12');
rT151put((T151*)(C)->_ms_list,NULL,rT151fast_index_of((T151*)(C)->_ms_list,_c_code));
}
/*FI*/}
void rT43put_c_inline_c(T43 *C){
T0* _c_code=NULL;
_c_code=rT171expression((T171*)rT273item((T273*)oRBC43stack_args,(C)->_top),1);
if ((int)_c_code) switch (((T0 *)_c_code)->id) {
case 76: 
break;
default:
_c_code = NULL;
};XrT38put_string((C)->_out_c,((T76*)_c_code)->_to_string);
XrT38put_character((C)->_out_c,'\12');
rT151put((T151*)(C)->_ms_list,NULL,((T76*)_c_code)->_id);
}
void rT43conversion_name(/*C*/int a1){
rT7append((T7*)oRBC43tmp_string,(T0 *)ms1047);
rT2append_in(a1,oRBC43tmp_string);
}
void rT43put_c_heading(T43 *C,T0* a1){
XrT38put_string((C)->_out_h,a1);
XrT38put_string((C)->_out_h,(T0 *)ms551);
XrT38put_string((C)->_out_c,a1);
XrT38put_string((C)->_out_c,(T0 *)ms552);
rT43swap_on_c(C);
}
void rT43put_c_function(T43 *C,T0* a1){
int _i=0;
rT43incr_elt_c_count(C,10);
rT43put_c_heading(C,rT34item((T34*)a1,1));
_i=2;
while (!((_i)>(rT34count((T34*)a1)))) {
XrT38put_string((C)->_out_c,rT34item((T34*)a1,_i));
XrT38put_character((C)->_out_c,'\12');
_i=(_i)+(1);
}
XrT38put_string((C)->_out_c,(T0 *)ms553);
}
void rT43include(T43 *C,T0* a1){
/*IF*/if (!((C)->_included)) {
{T34 *n=((T34*)se_new(34));
rT34make(n,1,5);
C->_included=(T0 *)n;}
rT34clear((T34*)(C)->_included);
}
/*FI*//*IF*/if (!(rT34has((T34*)(C)->_included,a1))) {
/*IF*/if (rT7is_equal((T7*)(T0 *)ms533,a1)) {
rT43add_c_library(C,(T0 *)ms534);
}
/*FI*/rT34add_last((T34*)(C)->_included,a1);
XrT38put_string((C)->_out_h,(T0 *)ms535);
XrT38put_string((C)->_out_h,a1);
XrT38put_string((C)->_out_h,(T0 *)ms536);
}
/*FI*/}
void rT43put_character(T43 *C,char a1){
XrT38put_character((C)->_current_out,a1);
}
void rT43expanded_attributes(T43 *C,T0* a1,T0* a2,T0* a3){
int _i=0;
T0* _at=NULL;
T0* _rf=NULL;
T0* _a=NULL;
T0* _wa=NULL;
_wa=rT261writable_attributes((T261*)XrT58run_class(a3));
/*IF*/if (((int)_wa)) {
_i=XrT266count(_wa);
while (!((_i)==(0))) {
_a=XrT266item(_wa,_i);
_at=XrT58run_type(XrT262result_type(_a));
/*IF*/if (XrT58is_expanded(_at)) {
/*IF*/if (!(XrT58fast_mapping_c(_at))) {
_rf=rT50expanded_initializer((T50*)XrT58base_class(_at),_at);
/*IF*/if (((int)_rf)) {
rT43stack_push(C,1009);
XrT266put(oRBC43stack_rf,_a,(C)->_top);
rT34put((T34*)oRBC43stack_string,a1,(C)->_top);
XrT81put(oRBC43stack_target,a2,(C)->_top);
XrT262mapping_c(_rf);
rT43pop(C);
}
/*FI*/}
/*FI*/}
/*FI*/_i=(_i)-(1);
}
}
/*FI*/}
void rT43put_error1(T43 *C,T0* a1,T0* a2){
rT43put_string(C,(T0 *)ms1330);
rT43put_string_c(C,a1);
rT43put_character(C,'\54');
rT43put_position(C,a2);
rT43put_string(C,(T0 *)ms1331);
}
void rT43put_extern4(T43 *C,T0* a1,T0* a2,int a3){
rT43incr_elt_c_count(C,1);
XrT38put_string((C)->_out_c,a1);
XrT38put_character((C)->_out_c,'\40');
XrT38put_string((C)->_out_c,a2);
XrT38put_character((C)->_out_c,'\133');
XrT38put_integer((C)->_out_c,a3);
XrT38put_string((C)->_out_c,(T0 *)ms1077);
XrT38put_string((C)->_out_h,(T0 *)ms1078);
XrT38put_string((C)->_out_h,a1);
XrT38put_character((C)->_out_h,'\40');
XrT38put_string((C)->_out_h,a2);
XrT38put_string((C)->_out_h,(T0 *)ms1079);
}
void rT43put_extern2(T43 *C,T0* a1,char a2){
rT43incr_elt_c_count(C,1);
XrT38put_string((C)->_out_h,(T0 *)ms695);
XrT38put_string((C)->_out_h,a1);
XrT38put_string((C)->_out_h,(T0 *)ms696);
XrT38put_string((C)->_out_c,a1);
XrT38put_character((C)->_out_c,'\75');
XrT38put_character((C)->_out_c,a2);
XrT38put_string((C)->_out_c,(T0 *)ms697);
}
void rT43put_extern1(T43 *C,T0* a1){
rT43incr_elt_c_count(C,1);
XrT38put_string((C)->_out_h,(T0 *)ms599);
XrT38put_string((C)->_out_h,a1);
XrT38put_string((C)->_out_h,(T0 *)ms600);
XrT38put_string((C)->_out_c,a1);
XrT38put_string((C)->_out_c,(T0 *)ms601);
}
void rT43put_extern3(T43 *C,T0* a1,T0* a2){
rT43incr_elt_c_count(C,1);
XrT38put_string((C)->_out_c,(T0 *)ms582);
XrT38put_string((C)->_out_c,a1);
XrT38put_string((C)->_out_c,(T0 *)ms583);
XrT38put_string((C)->_out_c,a2);
XrT38put_string((C)->_out_c,(T0 *)ms584);
XrT38put_string((C)->_out_h,(T0 *)ms585);
XrT38put_string((C)->_out_h,a1);
XrT38put_string((C)->_out_h,(T0 *)ms586);
}
int rT43next_e_old_id(T43 *C){
int R=0;
C->_last_e_old_id=((C)->_last_e_old_id)+(1);
R=(C)->_last_e_old_id;
return R;
}
void rT43update_switch_cltn(T43 *C,T0* a1,int a2,T0* a3,T0* a4){
int _i=0;
T0* _st=NULL;
T0* _switch=NULL;
/*IF*/if (!((C)->_switch_cltn)) {
{T271 *n=((T271*)se_new(271));
rT271make(n,a2,a2);
C->_switch_cltn=(T0 *)n;}
}
 else if (!(rT271valid_index((T271*)(C)->_switch_cltn,a2))) {
rT271force((T271*)(C)->_switch_cltn,NULL,a2);
}
/*FI*/_st=rT271item((T271*)(C)->_switch_cltn,a2);
/*IF*/if (!(_st)) {
{T270 *n=((T270*)se_new(270));
rT270make(n,a1,a3,a4);
_switch=(T0 *)n;}
rT271put((T271*)(C)->_switch_cltn,ma(272,0,1,_switch),a2);
}
else {
_i=((T272*)_st)->_lower;
while (!(((_i)>(((T272*)_st)->_upper))||(XrT67is_equal(((T270*)rT272item((T272*)_st,_i))->_name,a3)))) {
_i=(_i)+(1);
}
/*IF*/if ((_i)>(((T272*)_st)->_upper)) {
{T270 *n=((T270*)se_new(270));
rT270make(n,a1,a3,a4);
_switch=(T0 *)n;}
rT272add_last((T272*)_st,_switch);
}
/*FI*/}
/*FI*/}
void rT43to_expanded(T43 *C,T0* a1,T0* a2){
T0* _dest_rc=NULL;
T0* _src_rc=NULL;
_src_rc=XrT58run_class(a1);
_dest_rc=XrT58run_class(a2);
/*IF*/if (!((C)->_to_expanded_mem)) {
C->_to_expanded_mem=ma(264,0,2,_src_rc,_dest_rc);
}
 else if (!(rT264fast_has((T264*)(C)->_to_expanded_mem,_src_rc))) {
rT264add_last((T264*)(C)->_to_expanded_mem,_src_rc);
rT264add_last((T264*)(C)->_to_expanded_mem,_dest_rc);
}
/*FI*//*(IRF3*/(((T7*)oRBC43tmp_string)->_count)=(0);
/*)*/rT43conversion_name(((T261*)_dest_rc)->_id);
rT43put_string(C,oRBC43tmp_string);
}
void rT43push_local_expanded(T43 *C,T0* a1){
rT43stack_push(C,1008);
rT34put((T34*)oRBC43stack_string,a1,(C)->_top);
C->_direct_call_count=((C)->_direct_call_count)+(1);
}
void rT43inspect_decr(T43 *C){
C->_inspect_level=((C)->_inspect_level)-(1);
}
void rT43put_goto_label(T43 *C,int a1){
rT43put_string(C,(T0 *)ms1328);
rT43put_integer(C,a1);
rT43put_string(C,(T0 *)ms1329);
}
void rT43put_goto(T43 *C,int a1){
rT43put_string(C,(T0 *)ms1321);
rT43put_integer(C,a1);
rT43put_string(C,(T0 *)ms1322);
}
void rT43inspect_incr(T43 *C){
C->_inspect_level=((C)->_inspect_level)+(1);
}
void rT43put_generator(T43 *C,T0* a1){
C->_generator_used=1;
rT43put_string(C,(T0 *)ms1196);
/*IF*/if (XrT58is_reference(a1)) {
rT43put_target(C);
rT43put_string(C,(T0 *)ms1197);
}
else {
rT43put_target(C);
rT43put_character(C,'\54');
rT43put_integer(C,XrT58id(a1));
rT43put_string(C,(T0 *)ms1198);
}
/*FI*/rT43put_string(C,(T0 *)ms1199);
}
void rT43put_generating_type(T43 *C,T0* a1){
C->_generator_used=1;
C->_generating_type_used=1;
rT43put_string(C,(T0 *)ms1180);
/*IF*/if (XrT58is_reference(a1)) {
rT43put_target(C);
rT43put_string(C,(T0 *)ms1193);
}
else {
rT43put_target(C);
rT43put_character(C,'\54');
rT43put_integer(C,XrT58id(a1));
rT43put_character(C,'\51');
}
/*FI*/rT43put_string(C,(T0 *)ms1194);
}
void rT43use_switch(T43 *C,T0* a1,T0* a2,T0* a3,T0* a4){
T0* _name=NULL;
int _switch_id=0;
T0* _target_type=NULL;
T0* _n=NULL;
_n=XrT67to_string(XrT262name(a1));
/*IF*/if (rT7is_equal((T7*)(T0 *)ms1179,_n)) {
rT43push_direct(C,a1,a3,a4);
rT43put_generating_type(C,XrT262current_type(a1));
rT43pop(C);
}
 else if (rT7is_equal((T7*)(T0 *)ms1195,_n)) {
rT43push_direct(C,a1,a3,a4);
rT43put_generator(C,XrT262current_type(a1));
rT43pop(C);
}
else {
C->_switch_count=((C)->_switch_count)+(1);
_target_type=XrT58run_type(XrT68result_type(a3));
_switch_id=XrT58id(_target_type);
_name=XrT262name(a1);
rT43update_switch_cltn(C,_target_type,_switch_id,_name,a2);
XrT38put_string((C)->_out_c,(T0 *)ms1200);
XrT38put_integer((C)->_out_c,_switch_id);
XrT67mapping_c(_name);
XrT38put_character((C)->_out_c,'\50');
/*IF*/if (rT44no_check((T44*)oRBC27eiffel_run_control)) {
rT43put_position(C,XrT68start_position(a3));
XrT38put_character((C)->_out_c,'\54');
}
/*FI*/XrT68compile_to_c(a3);
/*IF*/if (((int)a4)) {
XrT38put_character((C)->_out_c,'\54');
rT171compile_to_c((T171*)a4,XrT262arguments(a1));
}
/*FI*/rT43put_character(C,'\51');
/*IF*/if (!(XrT262result_type(a1))) {
rT43put_semicolon(C);
}
/*FI*/}
/*FI*/}
void rT43push_check(T43 *C,T0* a1,T0* a2,T0* a3){
rT43stack_push(C,1005);
XrT266put(oRBC43stack_rf,a1,(C)->_top);
XrT81put(oRBC43stack_target,a2,(C)->_top);
rT273put((T273*)oRBC43stack_args,a3,(C)->_top);
}
void rT43push_void(T43 *C,T0* a1,T0* a2,T0* a3){
rT43stack_push(C,1003);
XrT266put(oRBC43stack_rf,a1,(C)->_top);
XrT81put(oRBC43stack_target,a2,(C)->_top);
rT273put((T273*)oRBC43stack_args,a3,(C)->_top);
C->_sure_void_count=((C)->_sure_void_count)+(1);
}
void rT43push_direct(T43 *C,T0* a1,T0* a2,T0* a3){
rT43stack_push(C,1004);
XrT266put(oRBC43stack_rf,a1,(C)->_top);
XrT81put(oRBC43stack_target,a2,(C)->_top);
rT273put((T273*)oRBC43stack_args,a3,(C)->_top);
C->_direct_call_count=((C)->_direct_call_count)+(1);
}
void rT43push_new(T43 *C,T0* a1,T0* a2){
rT43stack_push(C,1007);
XrT266put(oRBC43stack_rf,a1,(C)->_top);
rT273put((T273*)oRBC43stack_args,a2,(C)->_top);
C->_direct_call_count=((C)->_direct_call_count)+(1);
}
void rT43push_switch(T43 *C,T0* a1,T0* a2){
rT43stack_push(C,1006);
XrT266put(oRBC43stack_rf,a1,(C)->_top);
rT272put((T272*)oRBC43stack_switch,a2,(C)->_top);
}
void rT43put_inspect(T43 *C){
rT43put_string(C,(T0 *)ms1316);
rT43put_integer(C,(C)->_inspect_level);
}
void rT43put_integer(T43 *C,int a1){
XrT38put_integer((C)->_current_out,a1);
}
void rT43put_in_c_string(T43 *C,char a1){
/*IF*/if ((a1)==('\12')) {
XrT38put_string((C)->_out_c,(T0 *)ms875);
}
 else if ((a1)==('\134')) {
XrT38put_string((C)->_out_c,(T0 *)ms876);
}
 else if ((a1)==('\42')) {
XrT38put_string((C)->_out_c,(T0 *)ms877);
}
 else if ((a1)==('\47')) {
XrT38put_string((C)->_out_c,(T0 *)ms878);
}
 else if (((((unsigned char)a1))<(32))||((122)<(((unsigned char)a1)))) {
XrT38put_character((C)->_out_c,'\134');
XrT38put_integer((C)->_out_c,rT2to_octal(((unsigned char)a1)));
XrT38put_string((C)->_out_c,(T0 *)ms881);
}
else {
XrT38put_character((C)->_out_c,a1);
}
/*FI*/}
int ofBC27rescue_evobt=0;
void rT43rescue_evobt(/*C*/T0* a1){
if (ofBC27rescue_evobt==0){
ofBC27rescue_evobt=1;
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_type(a1,(T0 *)ms1189);
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms1190);
rT45print_as_warning((T45*)oRBC27eh);
rT261set_at_run_time((T261*)XrT58run_class(a1));
}}
void rT43rs_pop_position(T43 *C){
/*IF*/if (rT44no_check((T44*)oRBC27eiffel_run_control)) {
rT43put_string(C,(T0 *)ms1299);
}
/*FI*/}
void rT43tmp_string_object_library(T43 *C){
int _i=0;
/*IF*/if (((int)(C)->_c_object_list)) {
_i=((T34*)(C)->_c_object_list)->_lower;
while (!((_i)>(((T34*)(C)->_c_object_list)->_upper))) {
rT7extend((T7*)oRBC43tmp_string,'\40');
rT7append((T7*)oRBC43tmp_string,rT34item((T34*)(C)->_c_object_list,_i));
_i=(_i)+(1);
}
}
/*FI*//*IF*/if (((int)(C)->_c_library_list)) {
_i=((T34*)(C)->_c_library_list)->_lower;
while (!((_i)>(((T34*)(C)->_c_library_list)->_upper))) {
rT7extend((T7*)oRBC43tmp_string,'\40');
rT7append((T7*)oRBC43tmp_string,rT34item((T34*)(C)->_c_library_list,_i));
_i=(_i)+(1);
}
}
/*FI*/}
void rT43tmp_string_output(T43 *C){
/*IF*/if (((int)(C)->_output_name)) {
rT7append((T7*)oRBC43tmp_string,(T0 *)ms1117);
rT7append((T7*)oRBC43tmp_string,(C)->_output_name);
rT7extend((T7*)oRBC43tmp_string,'\40');
}
/*FI*/}
void rT43tmp_string_gcc(T43 *C){
rT7copy((T7*)oRBC43tmp_string,(T0 *)ms445);
rT7extend((T7*)oRBC43tmp_string,'\40');
/*IF*/if (((int)(C)->_c_compiler_options)) {
rT7append((T7*)oRBC43tmp_string,(C)->_c_compiler_options);
}
/*FI*/}
T0*oRBC43tmp_string;
void rT43put_local_name(T43 *C,T0* a1){
XrT38put_character((C)->_out_c,'\137');
XrT38put_string((C)->_out_c,a1);
}
void rT43put_lines(T43 *C,T0* a1){
int _i=0;
_i=((T34*)a1)->_lower;
while (!((_i)>(((T34*)a1)->_upper))) {
XrT38put_string((C)->_current_out,rT34item((T34*)a1,_i));
XrT38put_character((C)->_current_out,'\12');
_i=(_i)+(1);
}
}
void rT43put_macro_af(T43 *C,T0* a1){
XrT38put_string((C)->_out_h,(T0 *)ms704);
XrT38put_string((C)->_out_h,a1);
XrT38put_character((C)->_out_h,'\12');
}
void rT43put_new(T43 *C,T0* a1){
rT43put_new_id(C,XrT58id(XrT58run_type(a1)));
}
void rT43put_new_id(T43 *C,int a1){
rT43put_string(C,(T0 *)ms819);
rT43put_integer(C,a1);
rT43put_string(C,(T0 *)ms820);
rT43put_integer(C,a1);
rT43put_string(C,(T0 *)ms821);
}
void rT43rs_unlink(T43 *C){
rT43put_string(C,(T0 *)ms1406);
}
void rT43put_position(T43 *C,T0* a1){
/*IF*/if (!(a1)) {
rT43put_string(C,(T0 *)ms785);
}
else {
rT43put_integer(C,((T46*)a1)->_line);
rT43put_character(C,'\54');
rT43put_integer(C,((T46*)a1)->_column);
rT43put_character(C,'\54');
rT43put_integer(C,((T50*)rT46base_class((T46*)a1))->_id);
}
/*FI*/}
void rT43rs_push_local(T43 *C,T0* a1,T0* a2){
/*(IRF3*/(((T7*)oRBC43tmp_string)->_count)=(0);
/*)*/rT7extend((T7*)oRBC43tmp_string,'\137');
rT7append((T7*)oRBC43tmp_string,a1);
rT43rs_push(C,a1,oRBC43tmp_string,a2);
}
void rT43rs_push_result(T43 *C,T0* a1){
rT43rs_push(C,(T0 *)ms289,(T0 *)ms1405,a1);
}
void rT43rs_push_argument(T43 *C,T0* a1,int a2,T0* a3){
/*(IRF3*/(((T7*)oRBC43tmp_string)->_count)=(0);
/*)*/rT7extend((T7*)oRBC43tmp_string,'a');
rT2append_in(a2,oRBC43tmp_string);
rT43rs_push(C,a1,oRBC43tmp_string,a3);
}
void rT43rs_push(T43 *C,T0* a1,T0* a2,T0* a3){
T0* _str=NULL;
rT43put_string(C,(T0 *)ms1399);
/*IF*/if (XrT58is_reference(a3)) {
rT43put_string(C,(T0 *)ms1400);
}
else {
/*IF*/if (XrT58fast_mapping_c(a3)) {
_str=XrT58written_mark(a3);
rT43put_character(C,rT7item((T7*)_str,1));
rT43put_character(C,rT7item((T7*)_str,2));
rT43put_character(C,rT7item((T7*)_str,3));
}
 else if (XrT58is_bit(a3)) {
rT43put_string(C,(T0 *)ms1401);
}
else {
rT43put_string(C,(T0 *)ms1402);
}
/*FI*/rT43put_character(C,'\50');
}
/*FI*/rT43put_character(C,'\46');
rT43put_string(C,a2);
rT43put_character(C,'\54');
/*IF*/if (((T0 *)a1)==((T0 *)(T0 *)ms199)) {
rT43put_string(C,(T0 *)ms199);
}
 else if (((T0 *)a1)==((T0 *)(T0 *)ms289)) {
rT43put_string(C,(T0 *)ms289);
}
else {
rT43put_string_c(C,a1);
}
/*FI*/rT43put_string(C,(T0 *)ms1403);
}
void rT43rs_push_current(T43 *C,T0* a1){
rT43rs_push(C,(T0 *)ms199,(T0 *)ms1404,a1);
}
void rT43rs_push_position(T43 *C,char a1,T0* a2){
/*IF*/if (rT44no_check((T44*)oRBC27eiffel_run_control)) {
rT43put_string(C,(T0 *)ms784);
rT43put_character(C,a1);
rT43put_character(C,'\54');
rT43put_position(C,a2);
rT43put_character(C,'\51');
/*IF*/if ((a1)!=('2')) {
rT43put_string(C,(T0 *)ms786);
}
/*FI*/}
/*FI*/}
void rT43error_void_or_bad_type(T43 *C,T0* a1){
(/*UT*/(void)(T45*)oRBC27eh);
rT45add_position(XrT68start_position(a1));
(/*UT*/(void)(T45*)oRBC27eh);
rT45append((T0 *)ms1188);
rT43rescue_evobt(XrT58run_type(XrT68result_type(a1)));
/*IF*/if (rT44boost((T44*)oRBC27eiffel_run_control)) {
rT43put_string(C,(T0 *)ms1191);
}
else {
rT43put_string(C,(T0 *)ms1192);
XrT68compile_to_c(a1);
rT43put_character(C,'\54');
rT43put_position(C,XrT68start_position(a1));
rT43put_character(C,'\51');
}
/*FI*/}
void rT43write_make_file(T43 *C){
int _i=0;
XrT38disconnect((C)->_out_h);
XrT38disconnect((C)->_out_c);
rT41put_string((T41*)oRBC1std_output,(T0 *)ms1111);
rT41put_string((T41*)oRBC1std_output,rT43path_make());
rT41put_string((T41*)oRBC1std_output,(T0 *)ms1115);
C->_out_make=rT43open_write(rT43path_make());
_i=(C)->_split_count;
while (!((_i)==(0))) {
rT43tmp_string_gcc(C);
rT7append((T7*)oRBC43tmp_string,(T0 *)ms1116);
rT7append((T7*)oRBC43tmp_string,rT43path_h());
rT7remove_last((T7*)oRBC43tmp_string,2);
rT2append_in(_i,oRBC43tmp_string);
rT7append((T7*)oRBC43tmp_string,(T0 *)ms528);
rT43echo_make(C);
_i=(_i)-(1);
}
rT43tmp_string_gcc(C);
rT43tmp_string_output(C);
_i=1;
while (!((_i)>((C)->_split_count))) {
rT7append((T7*)oRBC43tmp_string,rT43path_h());
rT7remove_last((T7*)oRBC43tmp_string,2);
rT2append_in(_i,oRBC43tmp_string);
rT7append((T7*)oRBC43tmp_string,(T0 *)ms1118);
rT7extend((T7*)oRBC43tmp_string,'\40');
_i=(_i)+(1);
}
rT43tmp_string_object_library(C);
rT43echo_make(C);
/*IF*/if ((rT43directory_separator())!=('\57')) {
C->_no_strip=1;
}
/*FI*//*IF*/if (!((C)->_no_strip)) {
rT43print_strip(C);
}
/*FI*/XrT38disconnect((C)->_out_make);
rT41put_string((T41*)oRBC1std_output,(T0 *)ms1122);
}
void rT43put_string(T43 *C,T0* a1){
XrT38put_string((C)->_current_out,a1);
}

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