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

This is compile_to_c4.c in view mode; [Download] [Up]

/* ANSI C code generated by SmallEiffel. */
/*
-- SmallEiffel  -- Release (- 0.91)    --      FRANCE
-- Copyright (C), 1994 - Dominique COLNET and Suzanne COLLIN 
-- University Henri Poincare' - Nancy 1 - email colnet@loria.fr 
-- CRIN (Centre de Recherche en Informatique de Nancy)
-- FRANCE 
*/
#include "compile_to_c.h"
/*EXTERNAL_CWC*/int rT214use_current(/*C*/T0* a1){
int R=0;
R=1;
return R;
}
/*EXTERNAL_CSE*/int rT213use_current(/*C*/T0* a1){
int R=0;
T0* _n=NULL;
_n=/*XrT*FEATURE_NAME*/((T70*)XrT218first_name(a1))->_to_string;
/*IF*/if (rT7is_equal((T7*)(T0 *)ms62_27,_n)) {
}
 else if (rT7is_equal((T7*)(T0 *)ms61_27,_n)) {
}
else {
R=1;
}
/*FI*/return R;
}
/*C_PRETTY_PRINTER*/void rT44cecil_define(T44 *C){
T0* _rf=NULL;
int _i=0;
/*IF*/if (((int)(C)->_cecil_list)) {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms218_44);
XrT39put_string((C)->_out_h,(T0 *)ms219_44);
_i=/*XrT*ARRAY[RUN_FEATURE]*/((T273*)(C)->_cecil_list)->_upper;
while (!((_i)==(0))) {
_rf=/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)(C)->_cecil_list,_i);
rT44cecil_define_of(C,_rf);
_i=(_i)-(1);
/*IF*/if ((_i)>(0)) {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms220_44);
}
/*FI*/}
XrT39put_string((C)->_out_h,(T0 *)ms221_44);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms222_44);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44cecil_define_of(T44 *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=/*XrT*RUN_FEATURE*/((T274*)a1)->_current_type;
_rfrt=/*XrT*RUN_FEATURE*/((T274*)a1)->_result_type;
_rfname=/*XrT*RUN_FEATURE*/((T274*)a1)->_name;
_rfargs=/*XrT*RUN_FEATURE*/((T274*)a1)->_arguments;
rT42put_string((T42*)oRBC1std_output,XrT62run_time_mark(_rfct));
rT42put_string((T42*)oRBC1std_output,XrT71to_key(_rfname));
/*[IRF3:clear*//*AW*/((T7*)oRBC44tmp_string)->_count=(0);/*]*/
/*IF*/if (((int)_rfrt)) {
rT44map_external(_rfrt,oRBC44tmp_string);
}
else {
rT7append((T7*)oRBC44tmp_string,(T0 *)ms223_44);
}
/*FI*/rT7extend((T7*)oRBC44tmp_string,'\40');
rT7append((T7*)oRBC44tmp_string,XrT62run_time_mark(_rfct));
rT7append((T7*)oRBC44tmp_string,XrT71to_key(_rfname));
rT7extend((T7*)oRBC44tmp_string,'\50');
rT44map_external(_rfct,oRBC44tmp_string);
rT7extend((T7*)oRBC44tmp_string,'\40');
rT7extend((T7*)oRBC44tmp_string,'C');
/*IF*/if (((int)_rfargs)) {
rT7extend((T7*)oRBC44tmp_string,'\54');
rT97external_prototype((T97*)_rfargs,oRBC44tmp_string);
}
/*FI*/rT7extend((T7*)oRBC44tmp_string,'\51');
rT44put_c_heading(C,oRBC44tmp_string);
_running=((T269*)XrT62run_class(_rfct))->_running;
/*IF*/if (!(_running)) {
rT48add_type(_rfct,(T0 *)ms224_44);
rT48append((T0 *)ms225_44);
rT48append(XrT62run_time_mark(_rfct));
rT48append(XrT71to_key(_rfname));
rT48append((T0 *)ms226_44);
rT48print_as_warning((T48*)oRBC27eh);
}
else {
_running_count=rT271count((T271*)_running);
_rfid=XrT62id(_rfct);
/*IF*/if (((int)_rfrt)) {
XrT39put_string((C)->_out_c,(T0 *)ms227_44);
}
/*FI*//*IF*/if ((_running_count)>(1)) {
rT44update_switch_cltn(C,_rfct,_rfid,/*XrT*RUN_FEATURE*/((T274*)a1)->_name,_running);
XrT39put_character((C)->_out_c,'X');
}
/*FI*/XrT39put_string((C)->_out_c,(T0 *)ms228_44);
XrT39put_integer((C)->_out_c,_rfid);
XrT71mapping_c(_rfname);
XrT39put_character((C)->_out_c,'\50');
/*IF*/if ((_running_count)==(1)) {
XrT39put_character((C)->_out_c,'\50');
XrT62mapping_cast(_rfct);
}
 else if (rT47no_check((T47*)oRBC27eiffel_run_control)) {
rT44put_position(C,NULL);
XrT39put_character((C)->_out_c,'\54');
}
/*FI*/XrT39put_character((C)->_out_c,'C');
/*IF*/if ((_running_count)==(1)) {
XrT39put_character((C)->_out_c,'\51');
}
/*FI*//*IF*/if (((int)_rfargs)) {
_i=1;
/*[IRF3:clear*//*AW*/((T7*)oRBC44tmp_string)->_count=(0);/*]*/
while (!((_i)>(rT97count((T97*)_rfargs)))) {
rT7append((T7*)oRBC44tmp_string,(T0 *)ms229_44);
rT2append_in(_i,oRBC44tmp_string);
_i=(_i)+(1);
}
XrT39put_string((C)->_out_c,oRBC44tmp_string);
}
/*FI*/XrT39put_character((C)->_out_c,'\51');
/*IF*/if (!(_rfrt)) {
rT44put_semicolon(C);
}
/*FI*/}
/*FI*/rT44put_string(C,(T0 *)ms230_44);
}/*C_PRETTY_PRINTER*/void rT44map_external(/*C*/T0* a1,T0* a2){
/*IF*/if (XrT62is_reference(a1)) {
rT7append((T7*)a2,(T0 *)ms126_27);
}
else {
XrT62c_type_in(a1,a2);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44once_pre_computing(T44 *C){
T0* _of=NULL;
T0* _rf6=NULL;
T0* _of_array=NULL;
int _i=0;
/*IF*/if (((int)(C)->_pre_computed_once)) {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms472_44);
_i=((T282*)(C)->_pre_computed_once)->_upper;
{T67 *n=((T67*)se_new(67));
rT67make(n,1,(1)+((_i)/(2)));
_of_array=(T0 *)n;}
rT67clear((T67*)_of_array);
while (!((_i)==(0))) {
_rf6=rT282item((T282*)(C)->_pre_computed_once,_i);
_of=((T281*)_rf6)->_base_feature;
/*IF*/if (!(rT67fast_has((T67*)_of_array,_of))) {
rT42put_character((T42*)oRBC1std_output,'\40');
rT67add_last((T67*)_of_array,_of);
rT281pre_computing((T281*)_rf6);
}
/*FI*/_i=(_i)-(1);
}
rT42put_string((T42*)oRBC1std_output,(T0 *)ms473_44);
rT42put_integer((T42*)oRBC1std_output,rT67count((T67*)_of_array));
rT42put_character((T42*)oRBC1std_output,'\12');
}
/*FI*/}/*C_PRETTY_PRINTER*/T0* rT44get_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;
}
T0*oRBC44c_inline_h_mem;
/*C_PRETTY_PRINTER*/int rT44same_files(/*C*/T0* a1,T0* a2){
int R=0;
T283 _ft={0/*dummy*/};
R=rT283same_files(a1,a2);
return R;
}
/*C_PRETTY_PRINTER*/void rT44define_initialize(T44 *C){
int _no_check=0;
_no_check=rT47no_check((T47*)oRBC27eiffel_run_control);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms480_44);
rT55define_extern_tables((T55*)oRBC27small_eiffel);
rT44incr_elt_c_count(C,50);
rT44put_c_heading(C,(T0 *)ms481_44);
rT44swap_on_c(C);
/*[IRF3:initialize_object_size*/{T0* _rc=NULL;
int _i=0;
_i=1;
while (!((_i)>(((T270*)oRBC55run_class_dictionary)->_count))) {
_rc=rT270item((T270*)oRBC55run_class_dictionary,_i);
/*IF*/if (((T269*)_rc)->_at_run_time) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms82_55);
rT44put_integer((T44*)oRBC27cpp,((T269*)_rc)->_id);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms83_55);
rT44put_integer((T44*)oRBC27cpp,((T269*)_rc)->_id);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms84_55);
}
/*FI*/_i=(_i)+(1);
}
}/*]*/
/*IF*/if (_no_check) {
/*[IRF3:initialize_path_table*/{T0* _rc=NULL;
T0* _bc=NULL;
int _i=0;
rT44put_string((T44*)oRBC27cpp,(T0 *)ms64_55);
_i=1;
while (!((_i)>(((T57*)oRBC55base_class_dictionary)->_count))) {
_bc=rT57item((T57*)oRBC55base_class_dictionary,_i);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms65_55);
rT44put_integer((T44*)oRBC27cpp,((T53*)_bc)->_id);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms66_55);
rT44put_string_c((T44*)oRBC27cpp,((T53*)_bc)->_path);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms67_55);
_i=(_i)+(1);
}
_i=1;
while (!((_i)>(((T270*)oRBC55run_class_dictionary)->_count))) {
_rc=rT270item((T270*)oRBC55run_class_dictionary,_i);
/*IF*/if ((((T269*)_rc)->_at_run_time)&&(XrT62is_generic(((T269*)_rc)->_current_type))) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms68_55);
rT44put_integer((T44*)oRBC27cpp,((T269*)_rc)->_id);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms69_55);
rT44put_integer((T44*)oRBC27cpp,((T53*)rT269base_class((T269*)_rc))->_id);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms70_55);
}
/*FI*/_i=(_i)+(1);
}
}/*]*/
}
/*FI*//*IF*/if (((C)->_generator_used)||(rT47no_check((T47*)oRBC27eiffel_run_control))) {
/*[IRF3:initialize_generator*/{T0* _rc=NULL;
T0* _bc=NULL;
int _i=0;
_i=1;
while (!((_i)>(((T57*)oRBC55base_class_dictionary)->_count))) {
_bc=rT57item((T57*)oRBC55base_class_dictionary,_i);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms71_55);
rT44put_integer((T44*)oRBC27cpp,((T53*)_bc)->_id);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms72_55);
rT44put_string_c((T44*)oRBC27cpp,((T51*)((T53*)_bc)->_base_class_name)->_to_string);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms73_55);
_i=(_i)+(1);
}
_i=1;
while (!((_i)>(((T270*)oRBC55run_class_dictionary)->_count))) {
_rc=rT270item((T270*)oRBC55run_class_dictionary,_i);
/*IF*/if ((((T269*)_rc)->_at_run_time)&&(XrT62is_generic(((T269*)_rc)->_current_type))) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms74_55);
rT44put_integer((T44*)oRBC27cpp,((T269*)_rc)->_id);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms75_55);
rT44put_integer((T44*)oRBC27cpp,((T53*)rT269base_class((T269*)_rc))->_id);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms76_55);
}
/*FI*/_i=(_i)+(1);
}
}/*]*/
}
/*FI*//*IF*/if (((C)->_generating_type_used)||(rT47no_check((T47*)oRBC27eiffel_run_control))) {
/*[IRF3:initialize_generating_type*/{T0* _rc=NULL;
int _i=0;
_i=1;
while (!((_i)>(((T270*)oRBC55run_class_dictionary)->_count))) {
_rc=rT270item((T270*)oRBC55run_class_dictionary,_i);
/*IF*/if (((T269*)_rc)->_at_run_time) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms77_55);
rT44put_integer((T44*)oRBC27cpp,((T269*)_rc)->_id);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms78_55);
/*IF*/if (XrT62is_generic(((T269*)_rc)->_current_type)) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms79_55);
rT44put_string_c((T44*)oRBC27cpp,XrT62run_time_mark(((T269*)_rc)->_current_type));
rT44put_character((T44*)oRBC27cpp,'\51');
}
else {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms80_55);
rT44put_integer((T44*)oRBC27cpp,((T269*)_rc)->_id);
rT44put_character((T44*)oRBC27cpp,'\135');
}
/*FI*/rT44put_string((T44*)oRBC27cpp,(T0 *)ms81_55);
}
/*FI*/_i=(_i)+(1);
}
}/*]*/
}
/*FI*/rT44put_string(C,(T0 *)ms482_44);
}/*C_PRETTY_PRINTER*/void rT44define_to_reference(T44 *C){
T0* _dest_type=NULL;
T0* _src_type=NULL;
T0* _dest_rc=NULL;
T0* _src_rc=NULL;
int _i=0;
_i=1;
while (!((_i)>(((T271*)(C)->_to_reference_mem)->_upper))) {
_src_rc=rT271item((T271*)(C)->_to_reference_mem,_i);
_i=(_i)+(1);
_dest_rc=rT271item((T271*)(C)->_to_reference_mem,_i);
_i=(_i)+(1);
_src_type=((T269*)_src_rc)->_current_type;
_dest_type=((T269*)_dest_rc)->_current_type;
rT42put_string((T42*)oRBC1std_output,(T0 *)ms528_44);
rT42put_string((T42*)oRBC1std_output,XrT62run_time_mark(_src_type));
rT42put_string((T42*)oRBC1std_output,(T0 *)ms232_44);
rT42put_string((T42*)oRBC1std_output,XrT62run_time_mark(_dest_type));
rT42put_string((T42*)oRBC1std_output,(T0 *)ms527_44);
rT7copy((T7*)oRBC44tmp_string,(T0 *)ms233_44);
rT44conversion_name(((T269*)_dest_rc)->_id);
rT7extend((T7*)oRBC44tmp_string,'\50');
XrT62mapping_c_in(_src_type,oRBC44tmp_string);
rT7append((T7*)oRBC44tmp_string,(T0 *)ms234_44);
XrT39put_string((C)->_out_h,oRBC44tmp_string);
XrT39put_string((C)->_out_h,(T0 *)ms235_44);
XrT39put_string((C)->_out_c,oRBC44tmp_string);
rT7copy((T7*)oRBC44tmp_string,(T0 *)ms236_44);
XrT62mapping_c_in(_dest_type,oRBC44tmp_string);
rT7append((T7*)oRBC44tmp_string,(T0 *)ms237_44);
XrT62mapping_c_in(_dest_type,oRBC44tmp_string);
rT7append((T7*)oRBC44tmp_string,(T0 *)ms238_44);
rT2append_in(((T269*)_dest_rc)->_id,oRBC44tmp_string);
rT7append((T7*)oRBC44tmp_string,(T0 *)ms239_44);
XrT39put_string((C)->_out_c,oRBC44tmp_string);
}
}/*C_PRETTY_PRINTER*/void rT44define_to_expanded(T44 *C){
T0* _dest_type=NULL;
T0* _src_type=NULL;
T0* _dest_rc=NULL;
T0* _src_rc=NULL;
int _i=0;
_i=1;
while (!((_i)>(((T271*)(C)->_to_expanded_mem)->_upper))) {
_src_rc=rT271item((T271*)(C)->_to_expanded_mem,_i);
_i=(_i)+(1);
_dest_rc=rT271item((T271*)(C)->_to_expanded_mem,_i);
_i=(_i)+(1);
_src_type=((T269*)_src_rc)->_current_type;
_dest_type=((T269*)_dest_rc)->_current_type;
rT42put_string((T42*)oRBC1std_output,(T0 *)ms528_44);
rT42put_string((T42*)oRBC1std_output,XrT62run_time_mark(_src_type));
rT42put_string((T42*)oRBC1std_output,(T0 *)ms240_44);
rT42put_string((T42*)oRBC1std_output,XrT62run_time_mark(_dest_type));
rT42put_string((T42*)oRBC1std_output,(T0 *)ms527_44);
/*[IRF3:clear*//*AW*/((T7*)oRBC44tmp_string)->_count=(0);/*]*/
XrT62mapping_c_in(_dest_type,oRBC44tmp_string);
rT7extend((T7*)oRBC44tmp_string,'\40');
rT44conversion_name(((T269*)_dest_rc)->_id);
rT7append((T7*)oRBC44tmp_string,(T0 *)ms241_44);
XrT39put_string((C)->_out_h,oRBC44tmp_string);
XrT39put_string((C)->_out_h,(T0 *)ms242_44);
XrT39put_string((C)->_out_c,oRBC44tmp_string);
rT7copy((T7*)oRBC44tmp_string,(T0 *)ms243_44);
rT7append((T7*)oRBC44tmp_string,(T0 *)ms244_44);
XrT39put_string((C)->_out_c,oRBC44tmp_string);
}
}/*C_PRETTY_PRINTER*/void rT44define_switches(T44 *C){
T0* _st=NULL;
int _count=0;
int _j=0;
int _i=0;
/*IF*/if (((int)(C)->_switch_cltn)) {
rT44swap_on_c(C);
rT44split_c_now(C);
_i=((T278*)(C)->_switch_cltn)->_lower;
while (!((_i)>(((T278*)(C)->_switch_cltn)->_upper))) {
_st=rT278item((T278*)(C)->_switch_cltn,_i);
/*IF*/if (((int)_st)) {
_j=((T279*)_st)->_lower;
while (!((_j)>(((T279*)_st)->_upper))) {
rT277c_define((T277*)rT279item((T279*)_st,_j));
rT44incr_elt_c_count(C,20);
_count=(_count)+(1);
_j=(_j)+(1);
}
}
/*FI*/_i=(_i)+(1);
}
rT44split_c_now(C);
}
/*FI*/rT44print_count((T0 *)ms456_44,_count);
}/*C_PRETTY_PRINTER*/void rT44define_used_basics(T44 *C){
T0* _ms=NULL;
int _no_check=0;
int _i=0;
_no_check=rT47no_check((T47*)oRBC27eiffel_run_control);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms281_44);
/*IF*/if (rT55is_used((T0 *)ms57_27)) {
rT44put_c_function(C,ma(45,0,5,ms282_44,ms283_44,ms284_44,ms285_44,ms286_44));
rT44put_c_function(C,ma(45,0,8,ms287_44,ms288_44,ms289_44,ms290_44,ms291_44,ms292_44,ms293_44,ms294_44));
}
/*FI*//*IF*/if (rT55is_used((T0 *)ms37_27)) {
rT44put_c_function(C,ma(45,0,33,ms295_44,ms296_44,ms297_44,ms298_44,ms299_44,ms300_44,ms301_44,ms302_44,ms303_44,ms304_44,ms305_44,ms306_44,ms307_44,ms308_44,ms309_44,ms310_44,ms311_44,ms312_44,ms313_44,ms314_44,ms315_44,ms316_44,ms317_44,ms318_44,ms319_44,ms320_44,ms321_44,ms322_44,ms323_44,ms324_44,ms325_44,ms326_44,ms327_44));
}
/*FI*//*IF*/if (_no_check) {
rT44put_c_function(C,ma(45,0,59,ms328_44,ms329_44,ms330_44,ms331_44,ms332_44,ms333_44,ms334_44,ms335_44,ms336_44,ms337_44,ms338_44,ms339_44,ms340_44,ms341_44,ms342_44,ms343_44,ms344_44,ms345_44,ms346_44,ms347_44,ms348_44,ms349_44,ms350_44,ms351_44,ms352_44,ms353_44,ms354_44,ms355_44,ms356_44,ms357_44,ms358_44,ms359_44,ms360_44,ms361_44,ms362_44,ms363_44,ms364_44,ms365_44,ms366_44,ms367_44,ms368_44,ms369_44,ms370_44,ms371_44,ms372_44,ms373_44,ms374_44,ms375_44,ms376_44,ms377_44,ms378_44,ms379_44,ms380_44,ms381_44,ms382_44,ms383_44,ms384_44,ms385_44,ms386_44));
}
else {
rT44put_c_function(C,ma(45,0,4,ms387_44,ms388_44,ms389_44,ms390_44));
}
/*FI*//*IF*/if (_no_check) {
rT44put_c_function(C,ma(45,0,4,ms391_44,ms392_44,ms393_44,ms394_44));
rT44put_c_function(C,ma(45,0,5,ms395_44,ms396_44,ms397_44,ms398_44,ms399_44));
rT44put_c_function(C,ma(45,0,3,ms400_44,ms401_44,ms402_44));
rT44put_c_function(C,ma(45,0,3,ms403_44,ms404_44,ms405_44));
rT44put_c_function(C,ma(45,0,9,ms406_44,ms407_44,ms408_44,ms409_44,ms410_44,ms411_44,ms412_44,ms413_44,ms414_44));
rT44put_c_function(C,ma(45,0,3,ms415_44,ms416_44,ms417_44));
}
/*FI*/rT44put_c_function(C,ma(45,0,4,ms418_44,ms419_44,ms420_44,ms421_44));
rT44define_switches(C);
/*IF*/if (((int)(C)->_to_expanded_mem)) {
rT44define_to_expanded(C);
}
/*FI*//*IF*/if (((int)(C)->_to_reference_mem)) {
rT44define_to_reference(C);
}
/*FI*//*IF*/if (((C)->_sure_void_count)>(0)) {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms422_44);
rT42put_integer((T42*)oRBC1std_output,(C)->_sure_void_count);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms423_44);
}
/*FI*/rT44print_count((T0 *)ms424_44,(C)->_direct_call_count);
rT44print_count((T0 *)ms425_44,(C)->_check_id_count);
rT44print_count((T0 *)ms426_44,(C)->_switch_count);
rT44print_count((T0 *)ms427_44,(C)->_inlined_procedure_count);
rT44print_count((T0 *)ms428_44,(C)->_inlined_function_count);
rT44print_count((T0 *)ms429_44,(C)->_static_expression_count);
rT44print_count((T0 *)ms430_44,(C)->_real_procedure_count);
rT44print_count((T0 *)ms431_44,(C)->_real_function_count);
rT44print_count((T0 *)ms432_44,(C)->_procedure_count);
rT44print_count((T0 *)ms433_44,(C)->_function_count);
/*IF*/if (((int)(C)->_pre_computed_once)) {
rT44print_count((T0 *)ms434_44,rT282count((T282*)(C)->_pre_computed_once));
}
/*FI*/rT42put_string((T42*)oRBC1std_output,(T0 *)ms435_44);
rT42put_integer((T42*)oRBC1std_output,((T59*)oRBC44stack_code)->_upper);
rT42put_character((T42*)oRBC1std_output,'\12');
rT44define_initialize(C);
}/*C_PRETTY_PRINTER*/void rT44define_se_manifest_strings(T44 *C){
T0* _ms=NULL;
int _i=0;
/*IF*/if ((((T155*)oRBC44ms_list)->_upper)>=(1)) {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms520_44);
rT42put_integer((T42*)oRBC1std_output,rT155count((T155*)oRBC44ms_list));
rT42put_string((T42*)oRBC1std_output,(T0 *)ms521_44);
rT44split_c_now(C);
_i=((T155*)oRBC44ms_list)->_upper;
while (!((_i)==(0))) {
_ms=rT155item((T155*)oRBC44ms_list,_i);
/*IF*/if (((int)_ms)) {
rT7copy((T7*)oRBC44tmp_string,(T0 *)ms522_44);
rT7append((T7*)oRBC44tmp_string,((T80*)_ms)->_mapping_c);
rT44put_extern1(C,oRBC44tmp_string);
}
/*FI*/_i=(_i)-(1);
}
rT44split_c_now(C);
rT44put_c_heading(C,(T0 *)ms523_44);
_i=((T155*)oRBC44ms_list)->_upper;
while (!((_i)==(0))) {
_ms=rT155item((T155*)oRBC44ms_list,_i);
/*IF*/if (((int)_ms)) {
XrT39put_string((C)->_out_c,((T80*)_ms)->_mapping_c);
XrT39put_string((C)->_out_c,(T0 *)ms524_44);
rT44put_string_c(C,((T80*)_ms)->_to_string);
XrT39put_string((C)->_out_c,(T0 *)ms525_44);
}
/*FI*/_i=(_i)-(1);
}
XrT39put_string((C)->_out_c,(T0 *)ms526_44);
rT44split_c_now(C);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44define_main(T44 *C,T0* a1){
T0* _ct=NULL;
T0* _rc=NULL;
int _id=0;
rT42put_string((T42*)oRBC1std_output,(T0 *)ms257_44);
_ct=/*XrT*RUN_FEATURE*/((T274*)a1)->_current_type;
_id=XrT62id(_ct);
_rc=XrT268run_class(a1);
rT44swap_on_c(C);
rT44split_c_now(C);
rT44put_extern1(C,(T0 *)ms258_44);
rT44put_extern1(C,(T0 *)ms259_44);
rT44put_lines(C,ma(45,0,2,ms260_44,ms261_44));
rT44put_character(C,'T');
rT44put_integer(C,_id);
rT44put_string(C,(T0 *)ms262_44);
rT44put_new(C,_ct);
rT44put_string(C,(T0 *)ms263_44);
rT44put_lines(C,ma(45,0,2,ms264_44,ms265_44));
/*IF*/if (((T0 *)(T0 *)ms14_27)!=((T0 *)rT44system_name())) {
rT44put_string(C,(T0 *)ms266_44);
rT44put_string(C,(T0 *)ms267_44);
rT44put_string(C,(T0 *)ms268_44);
}
/*FI*//*IF*/if ((((T155*)oRBC44ms_list)->_upper)>=(1)) {
rT44put_string(C,(T0 *)ms269_44);
}
/*FI*//*IF*/if (rT47no_check((T47*)oRBC27eiffel_run_control)) {
rT44put_lines(C,ma(45,0,4,ms270_44,ms271_44,ms272_44,ms273_44));
}
/*FI*/rT44expanded_attributes(C,(T0 *)ms274_44,NULL,_ct);
rT44once_pre_computing(C);
rT44push_new(C,a1,NULL);
XrT268mapping_c(a1);
rT44pop(C);
/*IF*/if (rT47invariant_check((T47*)oRBC27eiffel_run_control)) {
/*IF*/if (((int)((T269*)_rc)->_invariant_assertion)) {
rT44put_string(C,(T0 *)ms275_44);
rT44put_integer(C,_id);
rT44put_string(C,(T0 *)ms276_44);
}
/*FI*/}
/*FI*//*IF*/if (rT47no_check((T47*)oRBC27eiffel_run_control)) {
rT44put_lines(C,ma(45,0,3,ms277_44,ms278_44,ms279_44));
}
/*FI*/rT44put_string(C,(T0 *)ms280_44);
rT44incr_elt_c_count(C,10);
rT44define_se_manifest_strings(C);
rT44print_included(C);
}int ofBC27directory_separator=0;
T3 oRBC27directory_separator;
/*C_PRETTY_PRINTER*/char rT44directory_separator(/*C*/void){
if (ofBC27directory_separator==0){
char R=0;
ofBC27directory_separator=1;
R=rT7last((T7*)rT44small_eiffel_directory());
oRBC27directory_separator=R;}
return oRBC27directory_separator;}
/*C_PRETTY_PRINTER*/T0* rT44to_bcn(/*C*/T0* a1){
T0* R=NULL;
char _c=0;
int _i=0;
R=rT7twin((T7*)a1);
/*IF*/if (rT7has_suffix((T7*)R,(T0 *)ms24_27)) {
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;
}
/*C_PRETTY_PRINTER*/T0* rT44get_inline_ms(T44 *C){
T0* R=NULL;
T0* _e=NULL;
int _i=0;
_e=rT175expression((T175*)rT280item((T280*)oRBC44stack_args,(C)->_top),1);
R=_e;
if ((int)R) switch (((T0 *)R)->id) {
case 80: 
break;
default:
R = NULL;
};/*IF*/if (!(R)) {
rT48add_position(XrT72start_position(_e));
rT44fatal_error((T0 *)ms519_44);
}
/*FI*/_i=rT155fast_index_of((T155*)oRBC44ms_list,R);
rT155put((T155*)oRBC44ms_list,NULL,_i);
return R;
}
/*C_PRETTY_PRINTER*/void rT44die_with_code(/*C*/int a1){
exit(a1);
}/*C_PRETTY_PRINTER*/void rT44fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*C_PRETTY_PRINTER*/void rT44incr_pre_computed_once_count(T44 *C,T0* a1){
/*IF*/if (!((C)->_pre_computed_once)) {
C->_pre_computed_once=ma(282,0,1,a1);
}
else {
rT282add_last((T282*)(C)->_pre_computed_once,a1);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44incr_real_function_count(T44 *C){
C->_real_function_count=((C)->_real_function_count)+(1);
rT44incr_elt_c_count(C,10);
}/*C_PRETTY_PRINTER*/void rT44incr_function_count(T44 *C){
C->_function_count=((C)->_function_count)+(1);
rT44incr_elt_c_count(C,10);
}/*C_PRETTY_PRINTER*/void rT44incr_inlined_function_count(T44 *C){
C->_inlined_function_count=((C)->_inlined_function_count)+(1);
}/*C_PRETTY_PRINTER*/void rT44incr_real_procedure_count(T44 *C){
C->_real_procedure_count=((C)->_real_procedure_count)+(1);
rT44incr_elt_c_count(C,10);
}/*C_PRETTY_PRINTER*/void rT44incr_procedure_count(T44 *C){
C->_procedure_count=((C)->_procedure_count)+(1);
rT44incr_elt_c_count(C,10);
}/*C_PRETTY_PRINTER*/void rT44incr_inlined_procedure_count(T44 *C){
C->_inlined_procedure_count=((C)->_inlined_procedure_count)+(1);
}/*C_PRETTY_PRINTER*/void rT44incr_static_expression_count(T44 *C){
C->_static_expression_count=((C)->_static_expression_count)+(1);
}/*C_PRETTY_PRINTER*/void rT44incr_elt_c_count(T44 *C,int a1){
C->_elt_c_count=((C)->_elt_c_count)+(a1);
/*IF*/if (((C)->_elt_c_count)>(1500)) {
C->_elt_c_count=0;
XrT39disconnect((C)->_out_c);
C->_split_count=((C)->_split_count)+(1);
rT44path_c_copy_in(rT44path_c(C),(C)->_split_count);
C->_out_c=rT44open_write_c(rT44path_c(C));
rT44add_first_include(C);
/*IF*/if (((T0 *)(C)->_current_out)!=((T0 *)(C)->_out_h)) {
C->_current_out=(C)->_out_c;
}
/*FI*/}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44path_o_in(/*C*/T0* a1,int a2){
rT7append((T7*)a1,rT44path_h());
rT7remove_last((T7*)a1,((T7*)(T0 *)ms26_27)->_count);
rT2append_in(a2,a1);
rT7append((T7*)a1,(T0 *)ms27_27);
}/*C_PRETTY_PRINTER*/void rT44path_c_copy_in(/*C*/T0* a1,int a2){
/*[IRF3:clear*//*AW*/((T7*)a1)->_count=(0);/*]*/
rT7append((T7*)a1,rT44path_h());
rT7remove_last((T7*)a1,((T7*)(T0 *)ms26_27)->_count);
rT2append_in(a2,a1);
rT7append((T7*)a1,(T0 *)ms25_27);
}int ofBC44path_c=0;
T0*oRBC44path_c;
/*C_PRETTY_PRINTER*/T0* rT44path_c(T44 *C){
if (ofBC44path_c==0){
T0* R=NULL;
ofBC44path_c=1;
C->_split_count=1;
{T7 *n=((T7*)se_new(7));
rT7make(n,(((T7*)rT44path_h())->_count)+(2));
R=(T0 *)n;}
rT44path_c_copy_in(R,(C)->_split_count);
oRBC44path_c=R;}
return oRBC44path_c;}
int ofBC44path_h=0;
T0*oRBC44path_h;
/*C_PRETTY_PRINTER*/T0* rT44path_h(/*C*/void){
if (ofBC44path_h==0){
T0* R=NULL;
ofBC44path_h=1;
R=((T47*)oRBC27eiffel_run_control)->_root_class;
/*IF*/if (!(R)) {
rT44fatal_error((T0 *)ms487_44);
}
else {
R=rT44to_bcn(R);
rT7to_lower((T7*)R);
rT7append((T7*)R,(T0 *)ms26_27);
}
/*FI*/oRBC44path_h=R;}
return oRBC44path_h;}
int ofBC44path_make=0;
T0*oRBC44path_make;
/*C_PRETTY_PRINTER*/T0* rT44path_make(/*C*/void){
if (ofBC44path_make==0){
T0* R=NULL;
ofBC44path_make=1;
R=rT7twin((T7*)rT44path_h());
rT7remove_last((T7*)R,((T7*)(T0 *)ms26_27)->_count);
rT7append((T7*)R,rT44make_suffix());
oRBC44path_make=R;}
return oRBC44path_make;}
/*C_PRETTY_PRINTER*/void rT44trace_boolean_expression(T44 *C,T0* a1){
rT44rs_push_position(C,'2',XrT72start_position(a1));
rT44put_string(C,(T0 *)ms439_44);
XrT72compile_to_c(a1);
rT44put_character(C,'\51');
}T0*oRBC1std_error;
/*C_PRETTY_PRINTER*/int rT44new_goto(T44 *C){
int R=0;
C->_goto_count=((C)->_goto_count)+(1);
R=(C)->_goto_count;
return R;
}
/*C_PRETTY_PRINTER*/T0* rT44open_write(/*C*/T0* a1){
T0* R=NULL;
{T39 *n=((T39*)se_new(39));
rT39connect_to(n,a1);
R=(T0 *)n;}
/*IF*/if (!(XrT39is_connected(R))) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms5_27);
rT38put_string((T38*)oRBC1std_error,a1);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms6_27);
rT44die_with_code(1);
}
/*FI*/return R;
}
/*C_PRETTY_PRINTER*/T0* rT44open_write_c(/*C*/T0* a1){
T0* R=NULL;
rT7copy((T7*)oRBC44tmp_string3,a1);
rT7extend((T7*)oRBC44tmp_string3,'\176');
rT44echo_rename_file(a1,oRBC44tmp_string3);
R=rT44open_write(a1);
return R;
}
/*C_PRETTY_PRINTER*/void rT44open_read(/*C*/T0* a1,T0* a2){
rT43connect_to((T43*)a1,a2);
/*IF*/if (!(rT43is_connected((T43*)a1))) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms7_27);
rT38put_string((T38*)oRBC1std_error,a2);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms8_27);
rT44die_with_code(1);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44get_started(T44 *C){
int _no_check=0;
rT44echo_remove_file(rT44path_make());
_no_check=rT47no_check((T47*)oRBC27eiffel_run_control);
C->_has_started=1;
C->_top=0;
C->_out_c=rT44open_write_c(rT44path_c(C));
C->_current_out=(C)->_out_c;
rT44add_first_include(C);
C->_out_h=rT44open_write(rT44path_h());
C->_current_out=(C)->_out_h;
rT44put_banner((C)->_out_h);
rT44include(C,(T0 *)ms1_44);
rT44include(C,(T0 *)ms2_44);
rT44include(C,(T0 *)ms3_44);
rT44include(C,(T0 *)ms4_44);
rT44include(C,(T0 *)ms5_44);
rT44include(C,(T0 *)ms6_44);
rT44include(C,(T0 *)ms7_44);
rT44include(C,(T0 *)ms8_44);
rT44put_lines(C,ma(45,0,6,ms9_44,ms10_44,ms11_44,ms12_44,ms13_44,ms14_44));
rT44put_c_function(C,ma(45,0,6,ms15_44,ms16_44,ms17_44,ms18_44,ms19_44,ms20_44));
rT44cdef_t(C,(T0 *)ms21_44,1);
rT44cdef_id(C,(T0 *)ms22_44,1);
rT44cdef_id(C,(T0 *)ms23_44,2);
rT44cdef_id(C,(T0 *)ms24_44,3);
rT44cdef_id(C,(T0 *)ms25_44,6);
rT44cdef_id(C,(T0 *)ms26_44,4);
rT44cdef_id(C,(T0 *)ms27_44,5);
rT44cdef_id(C,(T0 *)ms28_44,8);
rT44cdef_id(C,(T0 *)ms29_44,10);
rT44cdef_id(C,(T0 *)ms30_44,11);
rT44cdef_id(C,(T0 *)ms31_44,12);
rT44cdef_id(C,(T0 *)ms32_44,13);
rT44cdef_id(C,(T0 *)ms33_44,14);
rT44cdef_id(C,(T0 *)ms34_44,15);
rT44cdef_id(C,(T0 *)ms35_44,16);
rT44cdef_id(C,(T0 *)ms36_44,17);
rT44cdef_id(C,(T0 *)ms37_44,18);
rT44cdef_id(C,(T0 *)ms38_44,19);
rT44cdef_id(C,(T0 *)ms39_44,20);
/*IF*/if (_no_check) {
rT44put_extern3(C,(T0 *)ms40_44,(T0 *)ms41_44);
rT44put_extern3(C,(T0 *)ms42_44,(T0 *)ms43_44);
rT44put_extern3(C,(T0 *)ms44_44,(T0 *)ms45_44);
rT44put_extern3(C,(T0 *)ms46_44,(T0 *)ms47_44);
rT44put_extern3(C,(T0 *)ms48_44,(T0 *)ms49_44);
rT44put_extern3(C,(T0 *)ms50_44,(T0 *)ms51_44);
rT44put_extern3(C,(T0 *)ms111_27,(T0 *)ms111_27);
rT44put_extern3(C,(T0 *)ms119_27,(T0 *)ms119_27);
rT44put_extern1(C,(T0 *)ms52_44);
rT44put_extern1(C,(T0 *)ms53_44);
rT44put_extern1(C,(T0 *)ms54_44);
rT44put_extern1(C,(T0 *)ms55_44);
rT44put_c_function(C,ma(45,0,16,ms56_44,ms57_44,ms58_44,ms59_44,ms60_44,ms61_44,ms62_44,ms63_44,ms64_44,ms65_44,ms66_44,ms67_44,ms68_44,ms69_44,ms70_44,ms71_44));
rT44put_c_function(C,ma(45,0,7,ms72_44,(T0 *)ms530_44,ms73_44,ms74_44,ms75_44,ms76_44,ms77_44));
rT44put_c_function(C,ma(45,0,3,ms78_44,ms79_44,ms80_44));
rT44put_c_function(C,ma(45,0,10,ms81_44,ms82_44,ms83_44,ms84_44,ms85_44,ms86_44,ms87_44,ms88_44,ms89_44,ms90_44));
rT44put_c_function(C,ma(45,0,3,ms91_44,ms92_44,ms93_44));
rT44put_c_function(C,ma(45,0,6,ms94_44,(T0 *)ms530_44,(T0 *)ms531_44,(T0 *)ms529_44,ms95_44,ms96_44));
rT44put_c_function(C,ma(45,0,6,ms97_44,(T0 *)ms530_44,(T0 *)ms531_44,(T0 *)ms529_44,ms98_44,ms99_44));
rT44put_c_function(C,ma(45,0,6,ms100_44,(T0 *)ms530_44,(T0 *)ms531_44,(T0 *)ms529_44,ms101_44,ms102_44));
rT44put_c_function(C,ma(45,0,6,ms103_44,(T0 *)ms530_44,(T0 *)ms531_44,(T0 *)ms529_44,ms104_44,(T0 *)ms533_44));
rT44put_c_function(C,ma(45,0,6,ms105_44,(T0 *)ms530_44,(T0 *)ms531_44,(T0 *)ms529_44,ms106_44,ms107_44));
rT44put_c_function(C,ma(45,0,6,ms108_44,(T0 *)ms530_44,(T0 *)ms531_44,(T0 *)ms529_44,ms109_44,(T0 *)ms532_44));
rT44put_c_function(C,ma(45,0,6,ms110_44,(T0 *)ms530_44,(T0 *)ms531_44,(T0 *)ms529_44,ms111_44,(T0 *)ms532_44));
rT44put_c_function(C,ma(45,0,6,ms112_44,(T0 *)ms530_44,(T0 *)ms531_44,(T0 *)ms529_44,ms113_44,(T0 *)ms533_44));
rT44put_c_function(C,ma(45,0,6,ms114_44,(T0 *)ms530_44,(T0 *)ms531_44,(T0 *)ms529_44,ms115_44,ms116_44));
}
/*FI*//*IF*/if (rT47require_check((T47*)oRBC27eiffel_run_control)) {
rT44put_extern1(C,(T0 *)ms117_44);
rT44put_extern1(C,(T0 *)ms118_44);
rT44put_extern2(C,(T0 *)ms119_44,'0');
rT44put_c_function(C,ma(45,0,5,ms120_44,ms121_44,ms122_44,ms123_44,ms124_44));
rT44put_macro_af(C,(T0 *)ms125_44);
rT44put_macro_af(C,(T0 *)ms126_44);
}
else {
rT44put_macro_af(C,(T0 *)ms127_44);
rT44put_macro_af(C,(T0 *)ms128_44);
}
/*FI*//*IF*/if (rT47ensure_check((T47*)oRBC27eiffel_run_control)) {
rT44put_extern2(C,(T0 *)ms129_44,'0');
rT44put_c_function(C,ma(45,0,3,ms130_44,ms131_44,ms132_44));
rT44put_macro_af(C,(T0 *)ms133_44);
rT44put_macro_af(C,(T0 *)ms134_44);
}
else {
rT44put_macro_af(C,(T0 *)ms135_44);
rT44put_macro_af(C,(T0 *)ms136_44);
}
/*FI*//*IF*/if (rT47invariant_check((T47*)oRBC27eiffel_run_control)) {
rT44put_extern2(C,(T0 *)ms137_44,'0');
rT44put_c_function(C,ma(45,0,3,ms138_44,ms139_44,ms140_44));
rT44put_macro_af(C,(T0 *)ms141_44);
rT44put_macro_af(C,(T0 *)ms142_44);
}
else {
rT44put_macro_af(C,(T0 *)ms143_44);
rT44put_macro_af(C,(T0 *)ms144_44);
}
/*FI*//*IF*/if (rT47loop_check((T47*)oRBC27eiffel_run_control)) {
rT44put_extern2(C,(T0 *)ms145_44,'0');
rT44put_c_function(C,ma(45,0,3,ms146_44,ms147_44,ms148_44));
rT44put_c_function(C,ma(45,0,11,ms149_44,ms150_44,ms151_44,ms152_44,ms153_44,ms154_44,ms155_44,ms156_44,ms157_44,ms158_44,ms159_44));
rT44put_macro_af(C,(T0 *)ms160_44);
rT44put_macro_af(C,(T0 *)ms161_44);
}
else {
rT44put_macro_af(C,(T0 *)ms162_44);
rT44put_macro_af(C,(T0 *)ms163_44);
}
/*FI*//*IF*/if (rT47all_check((T47*)oRBC27eiffel_run_control)) {
rT44put_extern2(C,(T0 *)ms164_44,'0');
rT44put_c_function(C,ma(45,0,3,ms165_44,ms166_44,ms167_44));
rT44put_macro_af(C,(T0 *)ms168_44);
rT44put_macro_af(C,(T0 *)ms169_44);
}
else {
rT44put_macro_af(C,(T0 *)ms170_44);
rT44put_macro_af(C,(T0 *)ms171_44);
}
/*FI*/rT44put_macro_af(C,(T0 *)ms172_44);
rT44put_macro_af(C,(T0 *)ms173_44);
rT44macro_list_printing(C);
C->_current_out=(C)->_out_c;
}/*C_PRETTY_PRINTER*/void rT44macro_list_printing(T44 *C){
int _i=0;
/*IF*/if (((int)(C)->_macro_list)) {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms514_44);
XrT39put_string((C)->_out_h,(T0 *)ms515_44);
_i=1;
while (!((_i)==(((T45*)(C)->_macro_list)->_upper))) {
XrT39put_string((C)->_out_h,rT45item((T45*)(C)->_macro_list,_i));
_i=(_i)+(1);
}
XrT39put_string((C)->_out_h,(T0 *)ms516_44);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms517_44);
}
/*FI*/}/*C_PRETTY_PRINTER*/int rT44target_cannot_be_dropped(T44 *C){
int R=0;
int _function=0;
{int iv1=rT59item((T59*)oRBC44stack_code,(C)->_top);
if ((1004<=iv1)&&(iv1<=1005)) goto l2;
goto l3;
 l2: ;
R=!(XrT72can_be_dropped(/*XrT*ARRAY[EXPRESSION]*/rT85item((T85*)oRBC44stack_target,(C)->_top)));
goto l1;
 l3: ;
 l1: ;
}
/*IF*/if (R) {
_function=((int)/*XrT*RUN_FEATURE*/((T274*)/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)oRBC44stack_rf,(C)->_top))->_result_type);
/*IF*/if (_function) {
rT44put_character(C,'\50');
}
/*FI*/rT44put_string(C,(T0 *)ms197_44);
rT44put_target(C);
rT44put_character(C,'\51');
/*IF*/if (_function) {
rT44put_string(C,(T0 *)ms198_44);
}
else {
rT44put_string(C,(T0 *)ms199_44);
}
/*FI*/}
/*FI*/return R;
}
/*C_PRETTY_PRINTER*/void rT44variant_check(T44 *C,T0* a1){
rT44rs_push_position(C,'6',XrT72start_position(a1));
rT44put_string(C,(T0 *)ms465_44);
XrT72compile_to_c(a1);
rT44put_string(C,(T0 *)ms466_44);
}/*C_PRETTY_PRINTER*/void rT44rename_file(/*C*/T0* a1,T0* a2){
void * _np=0;
void * _op=0;
_op=rT7to_external((T7*)a1);
_np=rT7to_external((T7*)a2);
rename(((char*)_op),((char*)_np));
}T0*oRBC44ms_list;
T0*oRBC27tmp_file_read;
/*C_PRETTY_PRINTER*/void rT44stack_push(T44 *C,int a1){
int _new_size=0;
C->_top=((C)->_top)+(1);
/*IF*/if (((C)->_top)>(((T59*)oRBC44stack_code)->_upper)) {
_new_size=(((T59*)oRBC44stack_code)->_upper)+(12);
rT59resize((T59*)oRBC44stack_code,1,_new_size);
XrT273resize(oRBC44stack_rf,1,_new_size);
XrT85resize(oRBC44stack_target,1,_new_size);
rT280resize((T280*)oRBC44stack_args,1,_new_size);
rT279resize((T279*)oRBC44stack_switch,1,_new_size);
rT45resize((T45*)oRBC44stack_string,1,_new_size);
}
/*FI*/rT59put((T59*)oRBC44stack_code,a1,(C)->_top);
}T0*oRBC44stack_code;
T0*oRBC44stack_rf;
T0*oRBC44stack_target;
T0*oRBC44stack_args;
T0*oRBC44stack_switch;
T0*oRBC44stack_string;
/*C_PRETTY_PRINTER*/void rT44to_reference(T44 *C,T0* a1,T0* a2){
T0* _dest_rc=NULL;
T0* _src_rc=NULL;
_src_rc=XrT62run_class(a1);
_dest_rc=XrT62run_class(a2);
/*IF*/if (!((C)->_to_reference_mem)) {
C->_to_reference_mem=ma(271,0,2,_src_rc,_dest_rc);
}
 else if (!(rT271fast_has((T271*)(C)->_to_reference_mem,_src_rc))) {
rT271add_last((T271*)(C)->_to_reference_mem,_src_rc);
rT271add_last((T271*)(C)->_to_reference_mem,_dest_rc);
}
/*FI*//*[IRF3:clear*//*AW*/((T7*)oRBC44tmp_string)->_count=(0);/*]*/
rT44conversion_name(((T269*)_dest_rc)->_id);
rT44put_string(C,oRBC44tmp_string);
}/*C_PRETTY_PRINTER*/void rT44put_arguments(T44 *C){
T0* _fal=NULL;
{int iv1=rT59item((T59*)oRBC44stack_code,(C)->_top);
if (1003 == iv1) goto l5;
goto l6;
 l5: ;
_fal=/*XrT*RUN_FEATURE*/((T274*)/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)oRBC44stack_rf,(C)->_top))->_arguments;
rT175compile_to_c((T175*)rT280item((T280*)oRBC44stack_args,(C)->_top),_fal);
goto l4;
 l6: ;
if (1004 == iv1) goto l7;
goto l8;
 l7: ;
_fal=/*XrT*RUN_FEATURE*/((T274*)/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)oRBC44stack_rf,(C)->_top))->_arguments;
rT175compile_to_c((T175*)rT280item((T280*)oRBC44stack_args,(C)->_top),_fal);
goto l4;
 l8: ;
if (1005 == iv1) goto l9;
goto l10;
 l9: ;
_fal=/*XrT*RUN_FEATURE*/((T274*)/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)oRBC44stack_rf,(C)->_top))->_arguments;
rT175compile_to_c((T175*)rT280item((T280*)oRBC44stack_args,(C)->_top),_fal);
goto l4;
 l10: ;
if (1006 == iv1) goto l11;
goto l12;
 l11: ;
_fal=/*XrT*RUN_FEATURE*/((T274*)/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)oRBC44stack_rf,(C)->_top))->_arguments;
rT277put_arguments((T277*)rT279item((T279*)oRBC44stack_switch,(C)->_top),_fal);
goto l4;
 l12: ;
if (1007 == iv1) goto l13;
goto l14;
 l13: ;
_fal=/*XrT*RUN_FEATURE*/((T274*)/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)oRBC44stack_rf,(C)->_top))->_arguments;
rT175compile_to_c((T175*)rT280item((T280*)oRBC44stack_args,(C)->_top),_fal);
goto l4;
 l14: ;
 l4: ;
}
}/*C_PRETTY_PRINTER*/void rT44rs_link(T44 *C,T0* a1){
rT44put_string(C,(T0 *)ms445_44);
XrT268mapping_name(a1);
rT44put_string(C,(T0 *)ms446_44);
}/*C_PRETTY_PRINTER*/T0* rT44dynamic(/*C*/T0* a1,T0* a2){
T0* R=NULL;
T0* _static=NULL;
T0* _oldn=NULL;
T0* _newn=NULL;
_static=/*XrT*RUN_FEATURE*/((T274*)a2)->_current_type;
_oldn=/*XrT*RUN_FEATURE*/((T274*)a2)->_name;
_newn=rT53new_name_of((T53*)rT269base_class((T269*)a1),XrT62base_class(_static),_oldn);
R=rT269get_feature((T269*)a1,_newn);
return R;
}
int ofBC27small_eiffel_directory=0;
T0*oRBC27small_eiffel_directory;
/*C_PRETTY_PRINTER*/T0* rT44small_eiffel_directory(/*C*/void){
if (ofBC27small_eiffel_directory==0){
T0* R=NULL;
char _slash=0;
int _i=0;
ofBC27small_eiffel_directory=1;
R=rT44get_environment_variable((T0 *)ms124_27);
/*IF*/if (!(R)) {
R=rT7twin((T7*)(T0 *)ms124_27);
rT7to_upper((T7*)R);
R=rT44get_environment_variable(R);
/*IF*/if (((int)R)) {
rT7to_upper((T7*)(T0 *)ms124_27);
}
/*FI*/}
/*FI*//*IF*/if (!(R)) {
R=(T0 *)ms1_27;
}
/*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;}
T0*oRBC1std_output;
/*C_PRETTY_PRINTER*/void rT44put_bit_count(T44 *C){
T0* _type_bit=NULL;
_type_bit=XrT72result_type(/*XrT*ARRAY[EXPRESSION]*/rT85item((T85*)oRBC44stack_target,(C)->_top));
if ((int)_type_bit) switch (((T0 *)_type_bit)->id) {
case 103: case 105: 
break;
default:
_type_bit = NULL;
};rT44put_integer(C,XrT104nb(_type_bit));
}/*C_PRETTY_PRINTER*/void rT44put_banner(/*C*/T0* a1){
XrT39put_string(a1,(T0 *)ms500_44);
XrT39put_string(a1,(T0 *)ms1_55);
XrT39put_string(a1,(T0 *)ms501_44);
}/*C_PRETTY_PRINTER*/void rT44swap_on_c(T44 *C){
C->_current_out=(C)->_out_c;
}/*C_PRETTY_PRINTER*/void rT44swap_on_h(T44 *C){
C->_current_out=(C)->_out_h;
}/*C_PRETTY_PRINTER*/void rT44put_c_inline_h(T44 *C){
int _index=0;
T0* _c_code=NULL;
_c_code=rT44get_inline_ms(C);
/*IF*/if (rT155has((T155*)oRBC44c_inline_h_mem,_c_code)) {
}
else {
rT155add_last((T155*)oRBC44c_inline_h_mem,_c_code);
XrT39put_string((C)->_out_h,((T80*)_c_code)->_to_string);
XrT39put_character((C)->_out_h,'\12');
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44put_c_inline_c(T44 *C){
T0* _c_code=NULL;
_c_code=rT44get_inline_ms(C);
XrT39put_string((C)->_out_c,((T80*)_c_code)->_to_string);
XrT39put_character((C)->_out_c,'\12');
}/*C_PRETTY_PRINTER*/void rT44conversion_name(/*C*/int a1){
rT7append((T7*)oRBC44tmp_string,(T0 *)ms231_44);
rT2append_in(a1,oRBC44tmp_string);
}/*C_PRETTY_PRINTER*/void rT44include(T44 *C,T0* a1){
/*IF*/if (!((C)->_included)) {
{T45 *n=((T45*)se_new(45));
rT45make(n,1,5);
C->_included=(T0 *)n;}
rT45clear((T45*)(C)->_included);
}
/*FI*//*IF*/if (!(rT45has((T45*)(C)->_included,a1))) {
/*IF*/if (rT7is_equal((T7*)(T0 *)ms123_27,a1)) {
rT44add_c_library(C,(T0 *)ms245_44);
}
/*FI*/rT45add_last((T45*)(C)->_included,a1);
XrT39put_string((C)->_out_h,(T0 *)ms246_44);
XrT39put_string((C)->_out_h,a1);
XrT39put_string((C)->_out_h,(T0 *)ms247_44);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44put_c_function(T44 *C,T0* a1){
int _i=0;
rT44incr_elt_c_count(C,10);
rT44put_c_heading(C,rT45item((T45*)a1,1));
_i=2;
while (!((_i)>(rT45count((T45*)a1)))) {
XrT39put_string((C)->_out_c,rT45item((T45*)a1,_i));
XrT39put_character((C)->_out_c,'\12');
_i=(_i)+(1);
}
XrT39put_string((C)->_out_c,(T0 *)ms190_44);
}/*C_PRETTY_PRINTER*/void rT44put_c_heading(T44 *C,T0* a1){
XrT39put_string((C)->_out_h,a1);
XrT39put_string((C)->_out_h,(T0 *)ms188_44);
XrT39put_string((C)->_out_c,a1);
XrT39put_string((C)->_out_c,(T0 *)ms189_44);
rT44swap_on_c(C);
}/*C_PRETTY_PRINTER*/void rT44put_comment(T44 *C,T0* a1){
rT44put_string(C,(T0 *)ms255_44);
rT44put_string(C,a1);
rT44put_string(C,(T0 *)ms256_44);
}/*C_PRETTY_PRINTER*/void rT44put_character(T44 *C,char a1){
XrT39put_character((C)->_current_out,a1);
}/*C_PRETTY_PRINTER*/void rT44expanded_attributes(T44 *C,T0* a1,T0* a2,T0* a3){
int _i=0;
T0* _at=NULL;
T0* _rf=NULL;
T0* _a=NULL;
T0* _wa=NULL;
_wa=rT269writable_attributes((T269*)XrT62run_class(a3));
/*IF*/if (((int)_wa)) {
_i=/*XrT*ARRAY[RUN_FEATURE]*/((T273*)_wa)->_upper;
while (!((_i)==(0))) {
_a=/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)_wa,_i);
_at=XrT62run_type(/*XrT*RUN_FEATURE*/((T274*)_a)->_result_type);
/*IF*/if (XrT62is_expanded(_at)) {
/*IF*/if (!(XrT62fast_mapping_c(_at))) {
_rf=rT53expanded_initializer((T53*)XrT62base_class(_at),_at);
/*IF*/if (((int)_rf)) {
rT44stack_push(C,1009);
/*XrT*ARRAY[RUN_FEATURE]*/rT273put((T273*)oRBC44stack_rf,_a,(C)->_top);
rT45put((T45*)oRBC44stack_string,a1,(C)->_top);
/*XrT*ARRAY[EXPRESSION]*/rT85put((T85*)oRBC44stack_target,a2,(C)->_top);
XrT268mapping_c(_rf);
rT44pop(C);
}
/*FI*/}
/*FI*/}
/*FI*/_i=(_i)-(1);
}
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44put_error1(T44 *C,T0* a1,T0* a2){
rT44put_string(C,(T0 *)ms253_44);
rT44put_string_c(C,a1);
rT44put_character(C,'\54');
rT44put_position(C,a2);
rT44put_string(C,(T0 *)ms254_44);
}/*C_PRETTY_PRINTER*/void rT44put_extern4(T44 *C,T0* a1,T0* a2,int a3){
rT44incr_elt_c_count(C,1);
XrT39put_string((C)->_out_c,a1);
XrT39put_character((C)->_out_c,'\40');
XrT39put_string((C)->_out_c,a2);
XrT39put_character((C)->_out_c,'\133');
XrT39put_integer((C)->_out_c,a3);
XrT39put_string((C)->_out_c,(T0 *)ms185_44);
XrT39put_string((C)->_out_h,(T0 *)ms186_44);
XrT39put_string((C)->_out_h,a1);
XrT39put_character((C)->_out_h,'\40');
XrT39put_string((C)->_out_h,a2);
XrT39put_string((C)->_out_h,(T0 *)ms187_44);
}/*C_PRETTY_PRINTER*/void rT44put_extern3(T44 *C,T0* a1,T0* a2){
rT44incr_elt_c_count(C,1);
XrT39put_string((C)->_out_c,(T0 *)ms180_44);
XrT39put_string((C)->_out_c,a1);
XrT39put_string((C)->_out_c,(T0 *)ms181_44);
XrT39put_string((C)->_out_c,a2);
XrT39put_string((C)->_out_c,(T0 *)ms182_44);
XrT39put_string((C)->_out_h,(T0 *)ms183_44);
XrT39put_string((C)->_out_h,a1);
XrT39put_string((C)->_out_h,(T0 *)ms184_44);
}/*C_PRETTY_PRINTER*/void rT44put_extern1(T44 *C,T0* a1){
rT44incr_elt_c_count(C,1);
XrT39put_string((C)->_out_h,(T0 *)ms174_44);
XrT39put_string((C)->_out_h,a1);
XrT39put_string((C)->_out_h,(T0 *)ms175_44);
XrT39put_string((C)->_out_c,a1);
XrT39put_string((C)->_out_c,(T0 *)ms176_44);
}/*C_PRETTY_PRINTER*/void rT44put_extern2(T44 *C,T0* a1,char a2){
rT44incr_elt_c_count(C,1);
XrT39put_string((C)->_out_h,(T0 *)ms177_44);
XrT39put_string((C)->_out_h,a1);
XrT39put_string((C)->_out_h,(T0 *)ms178_44);
XrT39put_string((C)->_out_c,a1);
XrT39put_character((C)->_out_c,'\75');
XrT39put_character((C)->_out_c,a2);
XrT39put_string((C)->_out_c,(T0 *)ms179_44);
}/*C_PRETTY_PRINTER*/int rT44next_e_old_id(T44 *C){
int R=0;
C->_last_e_old_id=((C)->_last_e_old_id)+(1);
R=(C)->_last_e_old_id;
return R;
}
/*C_PRETTY_PRINTER*/void rT44update_switch_cltn(T44 *C,T0* a1,int a2,T0* a3,T0* a4){
int _i=0;
T0* _st=NULL;
T0* _switch=NULL;
/*IF*/if (!((C)->_switch_cltn)) {
{T278 *n=((T278*)se_new(278));
rT278make(n,a2,a2);
C->_switch_cltn=(T0 *)n;}
}
 else if (!(rT278valid_index((T278*)(C)->_switch_cltn,a2))) {
rT278force((T278*)(C)->_switch_cltn,NULL,a2);
}
/*FI*/_st=rT278item((T278*)(C)->_switch_cltn,a2);
/*IF*/if (!(_st)) {
{T277 *n=((T277*)se_new(277));
rT277make(n,a1,a3,a4);
_switch=(T0 *)n;}
rT278put((T278*)(C)->_switch_cltn,ma(279,0,1,_switch),a2);
}
else {
_i=((T279*)_st)->_lower;
while (!(((_i)>(((T279*)_st)->_upper))||(XrT71is_equal(((T277*)rT279item((T279*)_st,_i))->_name,a3)))) {
_i=(_i)+(1);
}
/*IF*/if ((_i)>(((T279*)_st)->_upper)) {
{T277 *n=((T277*)se_new(277));
rT277make(n,a1,a3,a4);
_switch=(T0 *)n;}
rT279add_last((T279*)_st,_switch);
}
/*FI*/}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44put_generator(T44 *C,T0* a1){
C->_generator_used=1;
rT44put_string(C,(T0 *)ms203_44);
/*IF*/if (XrT62is_reference(a1)) {
rT44put_target(C);
rT44put_string(C,(T0 *)ms204_44);
}
else {
rT44put_target(C);
rT44put_character(C,'\54');
rT44put_integer(C,XrT62id(a1));
rT44put_string(C,(T0 *)ms205_44);
}
/*FI*/rT44put_string(C,(T0 *)ms206_44);
}/*C_PRETTY_PRINTER*/void rT44put_generating_type(T44 *C,T0* a1){
C->_generator_used=1;
C->_generating_type_used=1;
rT44put_string(C,(T0 *)ms200_44);
/*IF*/if (XrT62is_reference(a1)) {
rT44put_target(C);
rT44put_string(C,(T0 *)ms201_44);
}
else {
rT44put_target(C);
rT44put_character(C,'\54');
rT44put_integer(C,XrT62id(a1));
rT44put_character(C,'\51');
}
/*FI*/rT44put_string(C,(T0 *)ms202_44);
}/*C_PRETTY_PRINTER*/void rT44to_expanded(T44 *C,T0* a1,T0* a2){
T0* _dest_rc=NULL;
T0* _src_rc=NULL;
_src_rc=XrT62run_class(a1);
_dest_rc=XrT62run_class(a2);
/*IF*/if (!((C)->_to_expanded_mem)) {
C->_to_expanded_mem=ma(271,0,2,_src_rc,_dest_rc);
}
 else if (!(rT271fast_has((T271*)(C)->_to_expanded_mem,_src_rc))) {
rT271add_last((T271*)(C)->_to_expanded_mem,_src_rc);
rT271add_last((T271*)(C)->_to_expanded_mem,_dest_rc);
}
/*FI*//*[IRF3:clear*//*AW*/((T7*)oRBC44tmp_string)->_count=(0);/*]*/
rT44conversion_name(((T269*)_dest_rc)->_id);
rT44put_string(C,oRBC44tmp_string);
}/*C_PRETTY_PRINTER*/void rT44push_local_expanded(T44 *C,T0* a1){
rT44stack_push(C,1008);
rT45put((T45*)oRBC44stack_string,a1,(C)->_top);
C->_direct_call_count=((C)->_direct_call_count)+(1);
}/*C_PRETTY_PRINTER*/void rT44inspect_decr(T44 *C){
C->_inspect_level=((C)->_inspect_level)-(1);
}/*C_PRETTY_PRINTER*/void rT44put_goto_label(T44 *C,int a1){
rT44put_string(C,(T0 *)ms216_44);
rT44put_integer(C,a1);
rT44put_string(C,(T0 *)ms217_44);
}/*C_PRETTY_PRINTER*/void rT44put_goto(T44 *C,int a1){
rT44put_string(C,(T0 *)ms214_44);
rT44put_integer(C,a1);
rT44put_string(C,(T0 *)ms215_44);
}/*C_PRETTY_PRINTER*/void rT44inspect_incr(T44 *C){
C->_inspect_level=((C)->_inspect_level)+(1);
}/*C_PRETTY_PRINTER*/void rT44use_switch(T44 *C,T0* a1,T0* a2,T0* a3,T0* a4){
T0* _rf=NULL;
T0* _rc=NULL;
T0* _name=NULL;
int _switch_id=0;
T0* _target_type=NULL;
/*IF*/if ((rT47boost((T47*)oRBC27eiffel_run_control))&&(rT44stupid_switch(a1,a2,a3,a4))) {
rT44put_string(C,(T0 *)ms248_44);
rT44put_string(C,XrT62run_time_mark(/*XrT*RUN_FEATURE*/((T274*)a1)->_current_type));
rT44put_string(C,(T0 *)ms249_44);
_rc=rT271item((T271*)a2,1);
_rf=rT44dynamic(_rc,a1);
rT44push_check(C,_rf,a3,a4);
XrT268mapping_c(_rf);
rT44pop(C);
}
else {
C->_switch_count=((C)->_switch_count)+(1);
_target_type=XrT62run_type(XrT72result_type(a3));
_switch_id=XrT62id(_target_type);
_name=/*XrT*RUN_FEATURE*/((T274*)a1)->_name;
rT44update_switch_cltn(C,_target_type,_switch_id,_name,a2);
XrT39put_string((C)->_out_c,(T0 *)ms250_44);
XrT39put_integer((C)->_out_c,_switch_id);
XrT71mapping_c(_name);
XrT39put_character((C)->_out_c,'\50');
/*IF*/if (rT47no_check((T47*)oRBC27eiffel_run_control)) {
rT44put_position(C,XrT72start_position(a3));
XrT39put_character((C)->_out_c,'\54');
}
/*FI*/XrT72compile_to_c(a3);
/*IF*/if (((int)a4)) {
XrT39put_character((C)->_out_c,'\54');
rT175compile_to_c((T175*)a4,/*XrT*RUN_FEATURE*/((T274*)a1)->_arguments);
}
/*FI*/rT44put_character(C,'\51');
/*IF*/if (!(/*XrT*RUN_FEATURE*/((T274*)a1)->_result_type)) {
rT44put_semicolon(C);
}
/*FI*/}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44push_check(T44 *C,T0* a1,T0* a2,T0* a3){
rT44stack_push(C,1005);
/*XrT*ARRAY[RUN_FEATURE]*/rT273put((T273*)oRBC44stack_rf,a1,(C)->_top);
/*XrT*ARRAY[EXPRESSION]*/rT85put((T85*)oRBC44stack_target,a2,(C)->_top);
rT280put((T280*)oRBC44stack_args,a3,(C)->_top);
}/*C_PRETTY_PRINTER*/void rT44push_void(T44 *C,T0* a1,T0* a2,T0* a3){
rT44stack_push(C,1003);
/*XrT*ARRAY[RUN_FEATURE]*/rT273put((T273*)oRBC44stack_rf,a1,(C)->_top);
/*XrT*ARRAY[EXPRESSION]*/rT85put((T85*)oRBC44stack_target,a2,(C)->_top);
rT280put((T280*)oRBC44stack_args,a3,(C)->_top);
C->_sure_void_count=((C)->_sure_void_count)+(1);
}/*C_PRETTY_PRINTER*/void rT44push_cpc(T44 *C,T0* a1,T0* a2,T0* a3,T0* a4){
T0* _dyn_rf=NULL;
/*IF*/if (!(a2)) {
rT44push_void(C,a1,a3,a4);
XrT268mapping_c(a1);
rT44pop(C);
}
 else if ((rT271count((T271*)a2))==(1)) {
_dyn_rf=rT44dynamic(rT271first((T271*)a2),a1);
rT44push_check(C,_dyn_rf,a3,a4);
XrT268mapping_c(_dyn_rf);
rT44pop(C);
}
else {
rT44use_switch(C,a1,a2,a3,a4);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44push_direct(T44 *C,T0* a1,T0* a2,T0* a3){
rT44stack_push(C,1004);
/*XrT*ARRAY[RUN_FEATURE]*/rT273put((T273*)oRBC44stack_rf,a1,(C)->_top);
/*XrT*ARRAY[EXPRESSION]*/rT85put((T85*)oRBC44stack_target,a2,(C)->_top);
rT280put((T280*)oRBC44stack_args,a3,(C)->_top);
C->_direct_call_count=((C)->_direct_call_count)+(1);
}/*C_PRETTY_PRINTER*/void rT44push_switch(T44 *C,T0* a1,T0* a2){
rT44stack_push(C,1006);
/*XrT*ARRAY[RUN_FEATURE]*/rT273put((T273*)oRBC44stack_rf,a1,(C)->_top);
rT279put((T279*)oRBC44stack_switch,a2,(C)->_top);
}/*C_PRETTY_PRINTER*/void rT44push_new(T44 *C,T0* a1,T0* a2){
rT44stack_push(C,1007);
/*XrT*ARRAY[RUN_FEATURE]*/rT273put((T273*)oRBC44stack_rf,a1,(C)->_top);
rT280put((T280*)oRBC44stack_args,a2,(C)->_top);
C->_direct_call_count=((C)->_direct_call_count)+(1);
}/*C_PRETTY_PRINTER*/void rT44put_inspect(T44 *C){
rT44put_string(C,(T0 *)ms453_44);
rT44put_integer(C,(C)->_inspect_level);
}/*C_PRETTY_PRINTER*/void rT44put_in_c_string(T44 *C,char a1){
/*IF*/if ((a1)==('\12')) {
XrT39put_string((C)->_out_c,(T0 *)ms460_44);
}
 else if ((a1)==('\134')) {
XrT39put_string((C)->_out_c,(T0 *)ms461_44);
}
 else if ((a1)==('\42')) {
XrT39put_string((C)->_out_c,(T0 *)ms462_44);
}
 else if ((a1)==('\47')) {
XrT39put_string((C)->_out_c,(T0 *)ms463_44);
}
 else if (((((unsigned char)a1))<(32))||((122)<(((unsigned char)a1)))) {
XrT39put_character((C)->_out_c,'\134');
XrT39put_integer((C)->_out_c,rT2to_octal(((unsigned char)a1)));
XrT39put_string((C)->_out_c,(T0 *)ms464_44);
}
else {
XrT39put_character((C)->_out_c,a1);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44put_integer(T44 *C,int a1){
XrT39put_integer((C)->_current_out,a1);
}int ofBC27rescue_evobt=0;
/*C_PRETTY_PRINTER*/void rT44rescue_evobt(/*C*/T0* a1){
if (ofBC27rescue_evobt==0){
ofBC27rescue_evobt=1;
rT48add_type(a1,(T0 *)ms10_27);
rT48append((T0 *)ms11_27);
rT48print_as_warning((T48*)oRBC27eh);
rT269set_at_run_time((T269*)XrT62run_class(a1));
}}
/*C_PRETTY_PRINTER*/void rT44rs_pop_position(T44 *C){
/*IF*/if (rT47no_check((T47*)oRBC27eiffel_run_control)) {
rT44put_string(C,(T0 *)ms452_44);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44tmp_string_object_library(T44 *C){
int _i=0;
/*IF*/if (((int)(C)->_c_object_list)) {
_i=((T45*)(C)->_c_object_list)->_lower;
while (!((_i)>(((T45*)(C)->_c_object_list)->_upper))) {
rT7extend((T7*)oRBC44tmp_string,'\40');
rT7append((T7*)oRBC44tmp_string,rT45item((T45*)(C)->_c_object_list,_i));
_i=(_i)+(1);
}
}
/*FI*//*IF*/if (((int)(C)->_c_library_list)) {
_i=((T45*)(C)->_c_library_list)->_lower;
while (!((_i)>(((T45*)(C)->_c_library_list)->_upper))) {
rT7extend((T7*)oRBC44tmp_string,'\40');
rT7append((T7*)oRBC44tmp_string,rT45item((T45*)(C)->_c_library_list,_i));
_i=(_i)+(1);
}
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44tmp_string_output(T44 *C){
/*IF*/if (((int)(C)->_output_name)) {
rT7append((T7*)oRBC44tmp_string,(T0 *)ms513_44);
rT7append((T7*)oRBC44tmp_string,(C)->_output_name);
rT7extend((T7*)oRBC44tmp_string,'\40');
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44tmp_string_gcc(T44 *C){
rT7copy((T7*)oRBC44tmp_string,(T0 *)ms502_44);
rT7extend((T7*)oRBC44tmp_string,'\40');
/*IF*/if (((int)(C)->_c_compiler_options)) {
rT7append((T7*)oRBC44tmp_string,(C)->_c_compiler_options);
}
/*FI*/}T0*oRBC44tmp_string2;
T0*oRBC44tmp_string3;
T0*oRBC44tmp_string;
/*C_PRETTY_PRINTER*/void rT44put_local_name(T44 *C,T0* a1){
XrT39put_character((C)->_out_c,'\137');
XrT39put_string((C)->_out_c,a1);
}/*C_PRETTY_PRINTER*/void rT44put_lines(T44 *C,T0* a1){
int _i=0;
_i=((T45*)a1)->_lower;
while (!((_i)>(((T45*)a1)->_upper))) {
XrT39put_string((C)->_current_out,rT45item((T45*)a1,_i));
XrT39put_character((C)->_current_out,'\12');
_i=(_i)+(1);
}
}/*C_PRETTY_PRINTER*/void rT44put_macro_af(T44 *C,T0* a1){
XrT39put_string((C)->_out_h,(T0 *)ms518_44);
XrT39put_string((C)->_out_h,a1);
XrT39put_character((C)->_out_h,'\12');
}/*C_PRETTY_PRINTER*/void rT44put_new(T44 *C,T0* a1){
rT44put_new_id(C,XrT62id(XrT62run_type(a1)));
}/*C_PRETTY_PRINTER*/void rT44put_new_id(T44 *C,int a1){
rT44put_string(C,(T0 *)ms192_44);
rT44put_integer(C,a1);
rT44put_string(C,(T0 *)ms193_44);
rT44put_integer(C,a1);
rT44put_string(C,(T0 *)ms194_44);
}/*C_PRETTY_PRINTER*/void rT44put_object_size(T44 *C,T0* a1){
/*IF*/if (XrT62is_reference(a1)) {
rT44put_string(C,(T0 *)ms208_44);
/*IF*/if (rT47boost((T47*)oRBC27eiffel_run_control)) {
rT44put_target(C);
}
else {
rT44put_string(C,(T0 *)ms209_44);
rT44put_target(C);
rT44put_character(C,'\54');
rT44put_position(C,XrT72start_position(/*XrT*ARRAY[EXPRESSION]*/rT85item((T85*)oRBC44stack_target,(C)->_top)));
rT44put_character(C,'\51');
}
/*FI*/rT44put_string(C,(T0 *)ms210_44);
}
else {
rT44put_string(C,(T0 *)ms211_44);
/*IF*/if (XrT72c_simple(/*XrT*ARRAY[EXPRESSION]*/rT85item((T85*)oRBC44stack_target,(C)->_top))) {
rT44put_character(C,'0');
}
else {
rT44put_target(C);
}
/*FI*/rT44put_string(C,(T0 *)ms212_44);
rT44put_integer(C,XrT62id(a1));
rT44put_string(C,(T0 *)ms213_44);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44rs_unlink(T44 *C){
rT44put_string(C,(T0 *)ms447_44);
}/*C_PRETTY_PRINTER*/void rT44put_position(T44 *C,T0* a1){
/*IF*/if (!(a1)) {
rT44put_string(C,(T0 *)ms195_44);
}
else {
rT44put_integer(C,((T49*)a1)->_line);
rT44put_character(C,'\54');
rT44put_integer(C,((T49*)a1)->_column);
rT44put_character(C,'\54');
rT44put_integer(C,((T53*)rT49base_class((T49*)a1))->_id);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44rs_push_local(T44 *C,T0* a1,T0* a2){
/*[IRF3:clear*//*AW*/((T7*)oRBC44tmp_string)->_count=(0);/*]*/
rT7extend((T7*)oRBC44tmp_string,'\137');
rT7append((T7*)oRBC44tmp_string,a1);
rT44rs_push(C,a1,oRBC44tmp_string,a2);
}/*C_PRETTY_PRINTER*/void rT44rs_push_result(T44 *C,T0* a1){
rT44rs_push(C,(T0 *)ms119_27,(T0 *)ms449_44,a1);
}/*C_PRETTY_PRINTER*/void rT44rs_push_argument(T44 *C,T0* a1,int a2,T0* a3){
/*[IRF3:clear*//*AW*/((T7*)oRBC44tmp_string)->_count=(0);/*]*/
rT7extend((T7*)oRBC44tmp_string,'a');
rT2append_in(a2,oRBC44tmp_string);
rT44rs_push(C,a1,oRBC44tmp_string,a3);
}/*C_PRETTY_PRINTER*/void rT44rs_push(T44 *C,T0* a1,T0* a2,T0* a3){
T0* _str=NULL;
rT44put_string(C,(T0 *)ms467_44);
/*IF*/if (XrT62is_reference(a3)) {
rT44put_string(C,(T0 *)ms468_44);
}
else {
/*IF*/if (XrT62fast_mapping_c(a3)) {
_str=XrT62written_mark(a3);
rT44put_character(C,rT7item((T7*)_str,1));
rT44put_character(C,rT7item((T7*)_str,2));
rT44put_character(C,rT7item((T7*)_str,3));
}
 else if (XrT62is_bit(a3)) {
rT44put_string(C,(T0 *)ms469_44);
}
else {
rT44put_string(C,(T0 *)ms470_44);
}
/*FI*/rT44put_character(C,'\50');
}
/*FI*/rT44put_character(C,'\46');
rT44put_string(C,a2);
rT44put_character(C,'\54');
/*IF*/if (((T0 *)a1)==((T0 *)(T0 *)ms111_27)) {
rT44put_string(C,(T0 *)ms111_27);
}
 else if (((T0 *)a1)==((T0 *)(T0 *)ms119_27)) {
rT44put_string(C,(T0 *)ms119_27);
}
else {
rT44put_string_c(C,a1);
}
/*FI*/rT44put_string(C,(T0 *)ms471_44);
}/*C_PRETTY_PRINTER*/void rT44rs_push_current(T44 *C,T0* a1){
rT44rs_push(C,(T0 *)ms111_27,(T0 *)ms448_44,a1);
}/*C_PRETTY_PRINTER*/void rT44remove_file(/*C*/T0* a1){
void * _p=0;
_p=rT7to_external((T7*)a1);
remove(((char*)_p));
}/*C_PRETTY_PRINTER*/void rT44rs_push_position(T44 *C,char a1,T0* a2){
/*IF*/if (rT47no_check((T47*)oRBC27eiffel_run_control)) {
rT44put_string(C,(T0 *)ms450_44);
rT44put_character(C,a1);
rT44put_character(C,'\54');
rT44put_position(C,a2);
rT44put_character(C,'\51');
/*IF*/if ((a1)!=('2')) {
rT44put_string(C,(T0 *)ms451_44);
}
/*FI*/}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44error_void_or_bad_type(T44 *C,T0* a1){
rT48add_position(XrT72start_position(a1));
rT48append((T0 *)ms442_44);
rT44rescue_evobt(XrT62run_type(XrT72result_type(a1)));
/*IF*/if (rT47boost((T47*)oRBC27eiffel_run_control)) {
rT44put_string(C,(T0 *)ms443_44);
}
else {
rT44put_string(C,(T0 *)ms444_44);
XrT72compile_to_c(a1);
rT44put_character(C,'\54');
rT44put_position(C,XrT72start_position(a1));
rT44put_character(C,'\51');
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44write_make_file(T44 *C){
int _i=0;
XrT39disconnect((C)->_out_h);
XrT39disconnect((C)->_out_c);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms504_44);
rT42put_string((T42*)oRBC1std_output,rT44path_make());
rT42put_string((T42*)oRBC1std_output,(T0 *)ms505_44);
C->_out_make=rT44open_write(rT44path_make());
_i=(C)->_split_count;
while (!((_i)==(0))) {
rT44path_c_copy_in(oRBC44tmp_string,_i);
rT7copy((T7*)oRBC44tmp_string2,oRBC44tmp_string);
rT7extend((T7*)oRBC44tmp_string2,'\176');
/*[IRF3:clear*//*AW*/((T7*)oRBC44tmp_string3)->_count=(0);/*]*/
rT44path_o_in(oRBC44tmp_string3,_i);
/*IF*/if ((rT44file_exists(oRBC44tmp_string3))&&(rT44same_files(oRBC44tmp_string,oRBC44tmp_string2))) {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms506_44);
rT42put_string((T42*)oRBC1std_output,oRBC44tmp_string3);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms507_44);
}
else {
rT44echo_remove_file(oRBC44tmp_string3);
rT44tmp_string_gcc(C);
rT7append((T7*)oRBC44tmp_string,(T0 *)ms508_44);
rT7append((T7*)oRBC44tmp_string,oRBC44tmp_string2);
rT7remove_last((T7*)oRBC44tmp_string,1);
rT44echo_make(C);
}
/*FI*/_i=(_i)-(1);
/*IF*/if (rT44file_exists(oRBC44tmp_string2)) {
rT44echo_remove_file(oRBC44tmp_string2);
}
/*FI*/}
rT44tmp_string_gcc(C);
rT44tmp_string_output(C);
_i=1;
while (!((_i)>((C)->_split_count))) {
rT44path_o_in(oRBC44tmp_string,_i);
rT7extend((T7*)oRBC44tmp_string,'\40');
_i=(_i)+(1);
}
rT44tmp_string_object_library(C);
rT44echo_make(C);
/*IF*/if ((rT44directory_separator())!=('\57')) {
C->_no_strip=1;
}
/*FI*//*IF*/if (!((C)->_no_strip)) {
rT44print_strip(C);
}
/*FI*/XrT39disconnect((C)->_out_make);
/*IF*/if ((/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/)>(0)) {
rT44echo_remove_file(rT44path_make());
}
/*FI*//*[IRF3:show_nb_warnings*/rT54show_nb(/*(IRF4*/((T48*)oRBC27eh)->_nb_warnings/*)*/,(T0 *)ms6_54);
/*]*/
/*[IRF3:show_nb_errors*/rT54show_nb(/*(IRF4*/((T48*)oRBC27eh)->_nb_errors/*)*/,(T0 *)ms7_54);
/*]*/
rT42put_string((T42*)oRBC1std_output,(T0 *)ms509_44);
}/*C_PRETTY_PRINTER*/void rT44put_string_c(T44 *C,T0* a1){
int _i=0;
XrT39put_character((C)->_out_c,'\42');
_i=1;
while (!((_i)>(((T7*)a1)->_count))) {
rT44put_in_c_string(C,rT7item((T7*)a1,_i));
_i=(_i)+(1);
}
XrT39put_character((C)->_out_c,'\42');
}/*C_PRETTY_PRINTER*/void rT44put_string(T44 *C,T0* a1){
XrT39put_string((C)->_current_out,a1);
}/*C_PRETTY_PRINTER*/void rT44put_semicolon(T44 *C){
XrT39put_string((C)->_current_out,(T0 *)ms191_44);
}/*C_PRETTY_PRINTER*/void rT44put_to_pointer(T44 *C){
rT44put_string(C,(T0 *)ms207_44);
rT44put_target(C);
rT44put_character(C,'\51');
}/*C_PRETTY_PRINTER*/void rT44put_target(T44 *C){
int _ivt_flag=0;
T0* _rf=NULL;
T0* _tt=NULL;
T0* _target=NULL;
{int iv1=rT59item((T59*)oRBC44stack_code,(C)->_top);
if (1004 == iv1) goto l16;
goto l17;
 l16: ;
_target=/*XrT*ARRAY[EXPRESSION]*/rT85item((T85*)oRBC44stack_target,(C)->_top);
_tt=XrT62run_type(XrT72result_type(_target));
/*IF*/if (XrT72is_current(_target)) {
XrT39put_character((C)->_out_c,'C');
}
 else if (XrT62fast_mapping_c(_tt)) {
XrT72compile_to_c(_target);
}
else {
_ivt_flag=rT44call_invariant_start(C,_tt);
/*IF*/if (XrT62is_expanded(_tt)) {
rT44put_character(C,'\46');
XrT72compile_to_c(_target);
/*IF*/if (_ivt_flag) {
rT44call_invariant_end(C);
}
/*FI*/}
 else if (_ivt_flag) {
XrT39put_character((C)->_out_c,'\50');
XrT62mapping_cast(_tt);
XrT72compile_to_c(_target);
XrT39put_character((C)->_out_c,'\51');
rT44call_invariant_end(C);
}
else {
XrT72compile_to_c(_target);
}
/*FI*/}
/*FI*/goto l15;
 l17: ;
if (1007 == iv1) goto l18;
goto l19;
 l18: ;
rT44put_character(C,'n');
goto l15;
 l19: ;
if (1005 == iv1) goto l20;
goto l21;
 l20: ;
_target=/*XrT*ARRAY[EXPRESSION]*/rT85item((T85*)oRBC44stack_target,(C)->_top);
_rf=/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)oRBC44stack_rf,(C)->_top);
_tt=/*XrT*RUN_FEATURE*/((T274*)_rf)->_current_type;
/*IF*/if (rT47boost((T47*)oRBC27eiffel_run_control)) {
XrT62mapping_cast(_tt);
XrT72compile_to_c(_target);
}
else {
_ivt_flag=rT44call_invariant_start(C,_tt);
rT44check_id(C,_target,XrT268id(_rf));
/*IF*/if (_ivt_flag) {
rT44call_invariant_end(C);
}
/*FI*/}
/*FI*/goto l15;
 l21: ;
if (1006 == iv1) goto l22;
goto l23;
 l22: ;
_rf=/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)oRBC44stack_rf,(C)->_top);
(/*UT*/(void)(T277*)rT279item((T279*)oRBC44stack_switch,(C)->_top));
rT277put_target(_rf);
goto l15;
 l23: ;
if (1008 == iv1) goto l24;
goto l25;
 l24: ;
rT44put_character(C,'\46');
rT44put_local_name(C,rT45item((T45*)oRBC44stack_string,(C)->_top));
goto l15;
 l25: ;
if (1009 == iv1) goto l26;
goto l27;
 l26: ;
XrT39put_character((C)->_out_c,'\46');
_target=/*XrT*ARRAY[EXPRESSION]*/rT85item((T85*)oRBC44stack_target,(C)->_top);
/*IF*/if (((int)_target)) {
XrT72compile_to_c(_target);
}
else {
XrT39put_string((C)->_out_c,rT45item((T45*)oRBC44stack_string,(C)->_top));
}
/*FI*/XrT39put_string((C)->_out_c,(T0 *)ms196_44);
XrT39put_string((C)->_out_c,/*XrT*FEATURE_NAME*/((T70*)/*XrT*RUN_FEATURE*/((T274*)/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)oRBC44stack_rf,(C)->_top))->_name)->_to_string);
goto l15;
 l27: ;
if (1003 == iv1) goto l28;
goto l29;
 l28: ;
_target=/*XrT*ARRAY[EXPRESSION]*/rT85item((T85*)oRBC44stack_target,(C)->_top);
rT44error_void_or_bad_type(C,_target);
goto l15;
 l29: ;
 l15: ;
}
}/*C_PRETTY_PRINTER*/void rT44split_c_now(T44 *C){
/*IF*/if (((C)->_elt_c_count)>(15)) {
rT44incr_elt_c_count(C,1500);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44print_strip(T44 *C){
/*IF*/if ((((T0 *)(T0 *)ms16_27)==((T0 *)rT44system_name()))||(((T0 *)(T0 *)ms12_27)==((T0 *)rT44system_name()))) {
/*[IRF3:clear*//*AW*/((T7*)oRBC44tmp_string)->_count=(0);/*]*/
/*IF*/if (((T0 *)(T0 *)ms16_27)==((T0 *)rT44system_name())) {
rT7append((T7*)oRBC44tmp_string,(T0 *)ms510_44);
}
else {
rT7append((T7*)oRBC44tmp_string,(T0 *)ms511_44);
}
/*FI*//*IF*/if (!((C)->_output_name)) {
rT7append((T7*)oRBC44tmp_string,(T0 *)ms512_44);
}
else {
rT7append((T7*)oRBC44tmp_string,(C)->_output_name);
}
/*FI*/rT44echo_make(C);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44print_count(/*C*/T0* a1,int a2){
/*IF*/if ((a2)>(0)) {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms474_44);
rT42put_string((T42*)oRBC1std_output,a1);
/*IF*/if ((a2)>(1)) {
rT42put_character((T42*)oRBC1std_output,'s');
}
/*FI*/rT42put_string((T42*)oRBC1std_output,(T0 *)ms475_44);
rT42put_integer((T42*)oRBC1std_output,a2);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms476_44);
}
else {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms477_44);
rT42put_string((T42*)oRBC1std_output,a1);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms478_44);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44print_included(T44 *C){
int _i=0;
/*IF*/if (((int)(C)->_included)) {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms454_44);
_i=((T45*)(C)->_included)->_lower;
while (!((_i)>(((T45*)(C)->_included)->_upper))) {
rT42put_string((T42*)oRBC1std_output,rT45item((T45*)(C)->_included,_i));
_i=(_i)+(1);
/*IF*/if ((_i)<=(((T45*)(C)->_included)->_upper)) {
rT42put_character((T42*)oRBC1std_output,'\54');
}
/*FI*/}
rT42put_string((T42*)oRBC1std_output,(T0 *)ms455_44);
}
/*FI*/}/*C_PRETTY_PRINTER*/int rT44stupid_switch(/*C*/T0* a1,T0* a2,T0* a3,T0* a4){
int R=0;
T0* _rc=NULL;
T0* _f2=NULL;
T0* _f1=NULL;
int _i=0;
R=1;
_i=((T271*)a2)->_upper;
_f1=XrT268base_feature(a1);
while (!((!(R))||((_i)==(0)))) {
_rc=rT271item((T271*)a2,_i);
_f2=XrT268base_feature(rT44dynamic(_rc,a1));
R=((T0 *)_f1)==((T0 *)_f2);
_i=(_i)-(1);
}
/*IF*/if (R) {
R=XrT66stupid_switch(_f1,a1,a2);
}
/*FI*/return R;
}
T0*oRBC27system_list;
int ofBC27system_name=0;
T0*oRBC27system_name;
/*C_PRETTY_PRINTER*/T0* rT44system_name(/*C*/void){
if (ofBC27system_name==0){
T0* R=NULL;
int _i=0;
T0* _path=NULL;
ofBC27system_name=1;
_path=rT7twin((T7*)rT44small_eiffel_directory());
rT44add_directory(_path,(T0 *)ms18_27);
rT7append((T7*)_path,(T0 *)ms19_27);
/*IF*/if (!(rT44file_exists(_path))) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms20_27);
rT38put_string((T38*)oRBC1std_error,_path);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms21_27);
rT44die_with_code(1);
}
/*FI*/rT44open_read(oRBC27tmp_file_read,_path);
rT43read_word((T43*)oRBC27tmp_file_read);
R=oRBC43last_string;
_i=rT45index_of((T45*)oRBC27system_list,R);
rT43disconnect((T43*)oRBC27tmp_file_read);
/*IF*/if ((_i)>(((T45*)oRBC27system_list)->_upper)) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms22_27);
rT38put_string((T38*)oRBC1std_error,_path);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms23_27);
_i=1;
while (!((_i)>(((T45*)oRBC27system_list)->_upper))) {
rT38put_string((T38*)oRBC1std_error,rT45item((T45*)oRBC27system_list,_i));
rT38put_character((T38*)oRBC1std_error,'\12');
_i=(_i)+(1);
}
}
else {
R=rT45item((T45*)oRBC27system_list,_i);
}
/*FI*/oRBC27system_name=R;}
return oRBC27system_name;}
/*C_PRETTY_PRINTER*/void rT44pop(T44 *C){
C->_top=((C)->_top)-(1);
}/*C_PRETTY_PRINTER*/void rT44add_cecil(T44 *C,T0* a1){
/*IF*/if (!((C)->_cecil_list)) {
C->_cecil_list=ma(273,0,1,a1);
}
else {
/*IF*/if (XrT273fast_has((C)->_cecil_list,a1)) {
}
else {
XrT273add_last((C)->_cecil_list,a1);
}
/*FI*/}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44add_c_library(T44 *C,T0* a1){
/*IF*/if (!((C)->_c_library_list)) {
C->_c_library_list=ma(45,0,1,a1);
}
 else if (rT45has((T45*)(C)->_c_library_list,a1)) {
}
else {
rT45add_last((T45*)(C)->_c_library_list,a1);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44add_c_compiler_option(T44 *C,T0* a1){
/*IF*/if (!((C)->_c_compiler_options)) {
{T7 *n=((T7*)se_new(7));
rT7make(n,10);
C->_c_compiler_options=(T0 *)n;}
/*[IRF3:clear*//*AW*/((T7*)(C)->_c_compiler_options)->_count=(0);/*]*/
}
/*FI*/rT7append((T7*)(C)->_c_compiler_options,a1);
rT7extend((T7*)(C)->_c_compiler_options,'\40');
}/*C_PRETTY_PRINTER*/void rT44add_c_object(T44 *C,T0* a1){
/*IF*/if (!((C)->_c_object_list)) {
C->_c_object_list=ma(45,0,1,a1);
}
 else if (rT45has((T45*)(C)->_c_object_list,a1)) {
}
else {
rT45add_last((T45*)(C)->_c_object_list,a1);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44add_directory(/*C*/T0* a1,T0* a2){
rT7append((T7*)a1,a2);
rT7extend((T7*)a1,rT44directory_separator());
}/*C_PRETTY_PRINTER*/void rT44add_first_include(T44 *C){
rT44put_banner((C)->_out_c);
XrT39put_string((C)->_out_c,(T0 *)ms488_44);
XrT39put_string((C)->_out_c,rT44path_h());
XrT39put_string((C)->_out_c,(T0 *)ms489_44);
}/*C_PRETTY_PRINTER*/void rT44cdef_t(T44 *C,T0* a1,int a2){
rT7copy((T7*)oRBC44tmp_string,(T0 *)ms485_44);
rT7append((T7*)oRBC44tmp_string,a1);
rT7append((T7*)oRBC44tmp_string,(T0 *)ms486_44);
rT2append_in(a2,oRBC44tmp_string);
rT7extend((T7*)oRBC44tmp_string,'\12');
XrT39put_string((C)->_out_h,oRBC44tmp_string);
}/*C_PRETTY_PRINTER*/void rT44cdef_id(T44 *C,T0* a1,int a2){
rT7copy((T7*)oRBC44tmp_string,(T0 *)ms483_44);
rT7append((T7*)oRBC44tmp_string,a1);
rT7append((T7*)oRBC44tmp_string,(T0 *)ms484_44);
rT2append_in(a2,oRBC44tmp_string);
rT7extend((T7*)oRBC44tmp_string,'\12');
XrT39put_string((C)->_out_h,oRBC44tmp_string);
}/*C_PRETTY_PRINTER*/void rT44add_manifest_string(/*C*/T0* a1){
rT155add_last((T155*)oRBC44ms_list,a1);
}/*C_PRETTY_PRINTER*/void rT44call_invariant_end(T44 *C){
XrT39put_character((C)->_out_c,'\51');
}/*C_PRETTY_PRINTER*/int rT44call_invariant_start(T44 *C,T0* a1){
int R=0;
T0* _rc=NULL;
_rc=XrT62run_class(XrT62run_type(a1));
/*IF*/if (((rT47invariant_check((T47*)oRBC27eiffel_run_control))&&(((T269*)_rc)->_at_run_time))&&(((int)((T269*)_rc)->_invariant_assertion))) {
XrT39put_string((C)->_out_c,(T0 *)ms479_44);
XrT39put_integer((C)->_out_c,((T269*)_rc)->_id);
XrT39put_character((C)->_out_c,'\50');
R=1;
}
/*FI*/return R;
}
int ofBC27make_suffix=0;
T0*oRBC27make_suffix;
/*C_PRETTY_PRINTER*/T0* rT44make_suffix(/*C*/void){
if (ofBC27make_suffix==0){
T0* R=NULL;
ofBC27make_suffix=1;
/*IF*/if (((T0 *)(T0 *)ms15_27)==((T0 *)rT44system_name())) {
R=(T0 *)ms31_27;
}
 else if (((T0 *)(T0 *)ms16_27)==((T0 *)rT44system_name())) {
R=(T0 *)ms32_27;
}
else {
R=(T0 *)ms33_27;
}
/*FI*/oRBC27make_suffix=R;}
return oRBC27make_suffix;}
/*C_PRETTY_PRINTER*/void rT44check_id(T44 *C,T0* a1,int a2){
/*IF*/if (rT47no_check((T47*)oRBC27eiffel_run_control)) {
rT44put_string(C,(T0 *)ms457_44);
rT44put_integer(C,a2);
rT44put_string(C,(T0 *)ms458_44);
rT44put_integer(C,a2);
rT44put_character(C,'\54');
XrT72compile_to_c(a1);
rT44put_character(C,'\54');
rT44put_position(C,XrT72start_position(a1));
rT44put_string(C,(T0 *)ms459_44);
C->_check_id_count=((C)->_check_id_count)+(1);
}
else {
XrT72compile_to_c(a1);
C->_direct_call_count=((C)->_direct_call_count)+(1);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44echo_make(T44 *C){
XrT39put_string((C)->_out_make,oRBC44tmp_string);
XrT39put_character((C)->_out_make,'\12');
}/*C_PRETTY_PRINTER*/void rT44echo_rename_file(/*C*/T0* a1,T0* a2){
/*IF*/if (rT44file_exists(a1)) {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms129_27);
rT42put_string((T42*)oRBC1std_output,a1);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms130_27);
rT42put_string((T42*)oRBC1std_output,a2);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms131_27);
rT44rename_file(a1,a2);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44echo_remove_file(/*C*/T0* a1){
/*IF*/if (rT44file_exists(a1)) {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms127_27);
rT42put_string((T42*)oRBC1std_output,a1);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms128_27);
rT44remove_file(a1);
}
/*FI*/}/*C_PRETTY_PRINTER*/void rT44check_assertion(T44 *C,T0* a1){
int _static=0;
_static=XrT72is_static(a1);
/*IF*/if ((!(_static))||((XrT72static_value(a1))==(0))) {
rT44rs_push_position(C,'4',XrT72start_position(a1));
rT44put_string(C,(T0 *)ms440_44);
rT44put_string(C,(C)->_check_assertion_mode);
rT44put_character(C,'\50');
/*IF*/if (_static) {
C->_static_expression_count=((C)->_static_expression_count)+(1);
rT44put_character(C,'0');
}
else {
XrT72compile_to_c(a1);
}
/*FI*/rT44put_string(C,(T0 *)ms441_44);
}
/*FI*/}T0*oRBC27eiffel_parser;
T0*oRBC27eiffel_run_control;
/*C_PRETTY_PRINTER*/int rT44file_exists(/*C*/T0* a1){
int R=0;
void * _p=0;
_p=rT7to_external((T7*)a1);
{FILE *f=fopen(((char*)_p),"r");
R=(f != NULL);
if (R) fclose(f);}
return R;
}
/*TAG_NAME*/T0* rT163to_key(T163 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
/*TAG_NAME*/void rT163make(T163 *C,T0* a1,T0* a2){
C->_to_string=a1;
C->_start_position=a2;
}/*SWITCH*/void rT277cpp_dicho(T277 *C,int a1,int a2,int a3){
int _exp_to_ref=0;
T0* _dyn_rf=NULL;
T0* _dyn_rc=NULL;
int _m=0;
/*IF*/if ((a1)==(a2)) {
_dyn_rc=rT271item((T271*)(C)->_switch,a1);
_dyn_rf=rT277dynamic(_dyn_rc,(C)->_static_rf);
/*IF*/if (a3) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms17_277);
_exp_to_ref=(XrT62is_expanded(/*XrT*RUN_FEATURE*/((T274*)_dyn_rf)->_result_type))&&(XrT62is_reference(/*XrT*RUN_FEATURE*/((T274*)(C)->_static_rf)->_result_type));
/*IF*/if (_exp_to_ref) {
XrT62to_reference(/*XrT*RUN_FEATURE*/((T274*)_dyn_rf)->_result_type);
rT44put_character((T44*)oRBC27cpp,'\50');
}
/*FI*/}
/*FI*/rT44push_switch((T44*)oRBC27cpp,_dyn_rf,(T0 *)C);
XrT268mapping_c(_dyn_rf);
rT44pop((T44*)oRBC27cpp);
/*IF*/if (a3) {
/*IF*/if (_exp_to_ref) {
rT44put_character((T44*)oRBC27cpp,'\51');
}
/*FI*/rT44put_character((T44*)oRBC27cpp,'\73');
}
/*FI*/}
else {
_m=((a1)+(a2))/(2);
_dyn_rc=rT271item((T271*)(C)->_switch,_m);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms18_277);
rT44put_integer((T44*)oRBC27cpp,((T269*)_dyn_rc)->_id);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms19_277);
rT277cpp_dicho(C,a1,_m,a3);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms20_277);
rT277cpp_dicho(C,(_m)+(1),a2,a3);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms21_277);
}
/*FI*/}/*SWITCH*/void rT277sort_running(/*C*/T0* a1){
int _moved=0;
int _buble=0;
int _max=0;
int _min=0;
_max=((T271*)a1)->_upper;
_min=1;
_moved=1;
while (!(!(_moved))) {
_moved=0;
/*IF*/if (((_max)-(_min))>(0)) {
_buble=(_min)+(1);
while (!((_buble)>(_max))) {
/*IF*/if ((((T269*)rT271item((T271*)a1,(_buble)-(1)))->_id)>(((T269*)rT271item((T271*)a1,_buble))->_id)) {
rT271swap((T271*)a1,(_buble)-(1),_buble);
_moved=1;
}
/*FI*/_buble=(_buble)+(1);
}
_max=(_max)-(1);
}
/*FI*//*IF*/if ((_moved)&&(((_max)-(_min))>(0))) {
_moved=0;
_buble=(_max)-(1);
while (!((_buble)<(_min))) {
/*IF*/if ((((T269*)rT271item((T271*)a1,_buble))->_id)>(((T269*)rT271item((T271*)a1,(_buble)+(1)))->_id)) {
rT271swap((T271*)a1,_buble,(_buble)+(1));
_moved=1;
}
/*FI*/_buble=(_buble)-(1);
}
_min=(_min)+(1);
}
/*FI*/}
}T0*oRBC277ts;
/*SWITCH*/void rT277fatal_error(/*C*/T0* a1){
rT48fatal_error(a1);
}/*SWITCH*/void rT277put_target(/*C*/T0* a1){
int _invariant_flag=0;
_invariant_flag=rT44call_invariant_start((T44*)oRBC27cpp,/*XrT*RUN_FEATURE*/((T274*)a1)->_current_type);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms12_277);
rT44put_integer((T44*)oRBC27cpp,XrT268id(a1));
rT44put_string((T44*)oRBC27cpp,(T0 *)ms13_277);
/*IF*/if (_invariant_flag) {
rT44call_invariant_end((T44*)oRBC27cpp);
}
/*FI*/}/*SWITCH*/void rT277c_define(T277 *C){
int _i=0;
T0* _result_type=NULL;
T0* _t=NULL;
T0* _arguments=NULL;
int _boost=0;
_boost=rT47boost((T47*)oRBC27eiffel_run_control);
_arguments=/*XrT*RUN_FEATURE*/((T274*)(C)->_static_rf)->_arguments;
_result_type=/*XrT*RUN_FEATURE*/((T274*)(C)->_static_rf)->_result_type;
/*[IRF3:clear*//*AW*/((T7*)oRBC277ts)->_count=(0);/*]*/
rT7append((T7*)oRBC277ts,(T0 *)ms1_277);
rT7append((T7*)oRBC277ts,XrT62run_time_mark((C)->_target_type));
rT7append((T7*)oRBC277ts,(T0 *)ms2_277);
/*IF*/if (!(_result_type)) {
rT7append((T7*)oRBC277ts,(T0 *)ms3_277);
}
else {
_result_type=XrT62run_type(_result_type);
XrT62c_type_in(_result_type,oRBC277ts);
}
/*FI*/rT7append((T7*)oRBC277ts,(T0 *)ms4_277);
rT2append_in(XrT62id((C)->_target_type),oRBC277ts);
XrT71mapping_c_in((C)->_name,oRBC277ts);
/*IF*/if (_boost) {
rT7append((T7*)oRBC277ts,(T0 *)ms5_277);
}
else {
rT7append((T7*)oRBC277ts,(T0 *)ms6_277);
}
/*FI*//*IF*/if (((int)_arguments)) {
_i=1;
while (!((_i)>(rT97count((T97*)_arguments)))) {
rT7extend((T7*)oRBC277ts,'\54');
_t=XrT62run_type(rT97type((T97*)_arguments,_i));
XrT62c_type_in(_t,oRBC277ts);
rT7append((T7*)oRBC277ts,(T0 *)ms7_277);
rT2append_in(_i,oRBC277ts);
_i=(_i)+(1);
}
}
/*FI*/rT7extend((T7*)oRBC277ts,'\51');
rT44put_c_heading((T44*)oRBC27cpp,oRBC277ts);
rT44swap_on_c((T44*)oRBC27cpp);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms8_277);
rT277sort_running((C)->_switch);
/*IF*/if (_boost) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms9_277);
}
else {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms10_277);
}
/*FI*/rT277cpp_dicho(C,((T271*)(C)->_switch)->_lower,((T271*)(C)->_switch)->_upper,((int)_result_type));
rT44put_string((T44*)oRBC27cpp,(T0 *)ms11_277);
}/*SWITCH*/void rT277put_arguments(T277 *C,T0* a1){
T0* _ft=NULL;
T0* _at=NULL;
int _i=0;
T0* _eal=NULL;
_eal=/*XrT*RUN_FEATURE*/((T274*)(C)->_static_rf)->_arguments;
_i=1;
while (!((_i)>(rT97count((T97*)_eal)))) {
/*IF*/if ((_i)>(1)) {
rT44put_character((T44*)oRBC27cpp,'\54');
}
/*FI*/_at=XrT62run_type(rT97type((T97*)_eal,_i));
_ft=XrT62run_type(rT97type((T97*)a1,_i));
/*IF*/if (XrT62is_expanded(_ft)) {
/*IF*/if (XrT62is_expanded(_at)) {
rT44put_character((T44*)oRBC27cpp,'a');
rT44put_integer((T44*)oRBC27cpp,_i);
}
else {
/*IF*/if (XrT62fast_mapping_c(_ft)) {
rT44put_character((T44*)oRBC27cpp,'\50');
XrT62cast_to_ref(_ft);
rT44put_character((T44*)oRBC27cpp,'a');
rT44put_integer((T44*)oRBC27cpp,_i);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms14_277);
}
else {
rT48add_position(XrT62start_position(rT97type((T97*)a1,_i)));
rT48add_position(XrT62start_position(rT97type((T97*)_eal,_i)));
rT277fatal_error((T0 *)ms15_277);
}
/*FI*/}
/*FI*/}
 else if (XrT62is_expanded(_at)) {
rT48add_position(XrT62start_position(rT97type((T97*)a1,_i)));
rT48add_position(XrT62start_position(rT97type((T97*)_eal,_i)));
rT277fatal_error((T0 *)ms16_277);
}
else {
rT44put_character((T44*)oRBC27cpp,'a');
rT44put_integer((T44*)oRBC27cpp,_i);
}
/*FI*/_i=(_i)+(1);
}
}/*SWITCH*/T0* rT277dynamic(/*C*/T0* a1,T0* a2){
T0* R=NULL;
T0* _static=NULL;
T0* _oldn=NULL;
T0* _newn=NULL;
_static=/*XrT*RUN_FEATURE*/((T274*)a2)->_current_type;
_oldn=/*XrT*RUN_FEATURE*/((T274*)a2)->_name;
_newn=rT53new_name_of((T53*)rT269base_class((T269*)a1),XrT62base_class(_static),_oldn);
R=rT269get_feature((T269*)a1,_newn);
return R;
}
/*SWITCH*/void rT277make(T277 *C,T0* a1,T0* a2,T0* a3){
C->_target_type=a1;
C->_name=a2;
C->_switch=a3;
C->_static_rf=rT269get_feature((T269*)XrT62run_class((C)->_target_type),(C)->_name);
}/*ERROR_HANDLER*/void rT48warning(T48 *C,T0* a1){
rT48append(a1);
rT48print_as_warning(C);
}/*ERROR_HANDLER*/void rT48extend(/*C*/char a1){
rT7extend((T7*)oRBC48explanation,a1);
}/*ERROR_HANDLER*/void rT48die_with_code(/*C*/int a1){
exit(a1);
}/*ERROR_HANDLER*/void rT48fatal_error(/*C*/T0* a1){
rT7append((T7*)oRBC48explanation,a1);
/*[IRF3:print_as_fatal_error*/rT48do_print((T0 *)ms4_48);
rT48die_with_code(1);
/*]*/
/*[IRF3:crash*/rsp();
rT48die_with_code(1);
/*]*/
}/*ERROR_HANDLER*/void rT48error(T48 *C,T0* a1){
rT48append(a1);
rT48print_as_error(C);
}/*ERROR_HANDLER*/void rT48incr_nb_errors(T48 *C){
C->_nb_errors=((C)->_nb_errors)+(1);
/*IF*/if (((C)->_nb_errors)>=(10)) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms109_27);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms5_48);
rT38put_integer((T38*)oRBC1std_error,10);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms6_48);
rT48die_with_code(1);
}
/*FI*/}/*ERROR_HANDLER*/void rT48incr_nb_warnings(T48 *C){
C->_nb_warnings=((C)->_nb_warnings)+(1);
}/*ERROR_HANDLER*/void rT48print_as_warning(T48 *C){
rT48do_print((T0 *)ms2_48);
rT48incr_nb_warnings(C);
}

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