/*
-- ANSI C code generated by :
-- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
-- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
-- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
--                 http://www.loria.fr/SmallEiffel              --
*/
#include "compile_to_c.h"
/*No:CALL_1_C.arguments*/
T0* r492add_comment(T492* C,T0* a1){
T0* R=NULL;
/*IF*/if (((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(0))) {
R=(T0*)C;
}
else {
{T529*n=malloc(sizeof(*n));
*n=M529;
r529make(n,(T0*)C,a1);
R=(T0*)n;
}
}
/*FI*/return R;
}
int r492to_integer(T492* C){
int R=0;
r492error(r492start_position(C),((T0*)ms69_470));
return R;
}
int r492is_a(T492* C,T0* a1){
int R=0;
R=X291is_a(X291run_type((((T492*)C))->_result_type/*24*/),X291run_type(X662result_type(a1)));
/*IF*/if (!(R)) {
r683add_position(r492start_position(C));
r492error(X662start_position(a1),((T0*)ms4_662));
}
/*FI*/return R;
}
/*No:CALL_1_C.is_current*/
void r492mapping_c_arg(T492* C,T0* a1){
T0* _actual_type=NULL;
_actual_type=X291run_type((((T492*)C))->_result_type/*24*/);
/*IF*/if (X291is_reference(_actual_type)) {
/*IF*/if (X291is_reference(a1)) {
/*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T492* C1=C;
r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
}/*]*/
/*]*/
}
else {
X291to_expanded(_actual_type);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T492* C1=C;
r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\51';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
/*FI*/}
else {
/*IF*/if (X291is_reference(a1)) {
X291to_reference(_actual_type);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T492* C1=C;
r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\51';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
else {
/*IF*/if (X291need_c_struct(a1)) {
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\46';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T492* C1=C;
r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\51';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
else {
/*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T492* C1=C;
r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
}/*]*/
/*]*/
}
/*FI*/}
/*FI*/}
/*FI*/}
/*No:CALL_1_C.static_value*/
void r492make(T492* C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void r492mapping_c_target(T492* C,T0* a1){
T0* _actual_type=NULL;
int _flag=0;
_flag=r324call_invariant_start(a1);
_actual_type=X291run_type((((T492*)C))->_result_type/*24*/);
/*IF*/if (X291is_reference(_actual_type)) {
/*IF*/if (X291is_reference(a1)) {
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='T';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_integer*/r544put_integer(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),X291id(a1));
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\52';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\51';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T492* C1=C;
r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\51';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\51';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
else {
X291to_expanded(_actual_type);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T492* C1=C;
r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\51';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
/*FI*/}
else {
/*IF*/if (X291is_reference(a1)) {
X291to_reference(_actual_type);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T492* C1=C;
r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\51';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
else {
/*IF*/if (X291need_c_struct(a1)) {
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\46';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T492* C1=C;
r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\51';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
else {
/*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T492* C1=C;
r324put_cpc(((T324*)(oBC364cpp)),(T0*)C1);
}/*]*/
/*]*/
}
/*FI*/}
/*FI*/}
/*FI*//*IF*/if (_flag) {
/*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T544* C1=((T544*)(oBC324out_c));
char b1='\51';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
/*FI*/}
/*No:CALL_1_C.nb_errors*/
/*No:CALL_1_C.feature_name*/
/*No:CALL_1_C.fz_iinaiv*/
/*No:CALL_1_C.arg_count*/
/*No:CALL_1_C.dca_inline_argument*/
/*No:CALL_1_C.run_feature*/
/*No:CALL_1_C.call_proc_call_c2c*/
T0* r492start_position(T492* C){
T0* R=NULL;
R=X776start_position((((T492*)C))->_feature_name/*16*/);
return R;
}
/*No:CALL_1_C.target*/
/*No:CALL_1_C.compile_to_c*/
/*No:CALL_1_C.c_simple*/
T0* r492to_runnable(T492* C,T0* a1){
T0* R=NULL;
T0* _tla=NULL;
T0* _a=NULL;
/*IF*/if (((((T492*)C))->_current_type/*8*/)==((void*)(NULL))) {
r492to_runnable_0(C,a1);
_a=X431to_runnable((((T492*)C))->_arguments/*28*/,a1);
/*IF*/if ((_a)==((void*)(NULL))) {
r492error(X662start_position(r492arg1(C)),((T0*)ms55_470));
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
X431match_with((((T492*)C))->_arguments/*28*/,(((T492*)C))->_run_feature/*20*/);
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
_tla=(((T492*)C))->_result_type/*24*/;
if(NULL!=(_tla))switch(((T0*)_tla)->id) {
case 239: 
break;
default:
_tla=NULL;
};/*IF*/if ((_tla)!=((void*)(NULL))) {
C->_result_type=X291run_type(X662result_type(r492arg1(C)));
}
/*FI*/}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
R=(T0*)C;
}
/*FI*/}
else {
R=r492twin(C);
/*[IRF3.3set_current_type*/((((T492*)(((T492*)R))))->_current_type)=(NULL);
/*]*/
R=r492to_runnable(((T492*)R),a1);
}
/*FI*/return R;
}
/*No:CALL_1_C.result_type*/
/*No:CALL_1_C.is_result*/
T0* r492twin(T492* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T492*)R)=*C;
return R;
}
/*No:CALL_1_C.set_current_type*/
/*No:CALL_1_C.is_static*/
int r492call_is_static(T492* C){
int R=0;
T0* _rf=NULL;
T0* _running=NULL;
T0* _rc=NULL;
/*IF*/if (((((T492*)C))->_run_feature/*20*/)!=((void*)(NULL))) {
_rc=X496run_class((((T492*)C))->_run_feature/*20*/);
/*IF*/if ((_rc)!=((void*)(NULL))) {
_running=(((T355*)((T355*)_rc)))->_running/*12*/;
/*IF*/if (((_running)!=((void*)(NULL)))&&((r396count(((T396*)_running)))==(1))) {
_rf=r355dynamic(((T355*)(r396first(((T396*)_running)))),(((T492*)C))->_run_feature/*20*/);
/*IF*/if (X496is_static(_rf)) {
C->_static_value_mem=X496static_value_mem(_rf);
R=1;
}
/*FI*/}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*No:CALL_1_C.fz_07*/
/*No:CALL_1_C.can_be_dropped*/
/*No:CALL_1_C.current_type*/
void r492compile_to_c_old(T492* C){
X662compile_to_c_old((((T492*)C))->_target/*12*/);
/*IF*/{/*AT*/X431compile_to_c_old((((T492*)C))->_arguments/*28*/);
}
/*FI*/}
/*No:CALL_1_C.static_value_mem*/
/*No:CALL_1_C.is_manifest_string*/
/*No:CALL_1_C.is_void*/
void r492to_runnable_0(T492* C,T0* a1){
C->_current_type=a1;
r492cpc_to_runnable(C,a1);
C->_result_type=/*X496*/((T0*)(((T832*)((T832*)((((T492*)C))->_run_feature/*20*/))))->_result_type/*24*/);
/*IF*/if (((((T492*)C))->_result_type/*24*/)==((void*)(NULL))) {
r683add_position(X496start_position((((T492*)C))->_run_feature/*20*/));
r492error(X776start_position((((T492*)C))->_feature_name/*16*/),((T0*)ms1_295));
}
 else if (X291is_like_current((((T492*)C))->_result_type/*24*/)) {
C->_result_type=X662result_type((((T492*)C))->_target/*12*/);
}
/*FI*/}
/*No:CALL_1_C.is_pre_computable*/
void r492cpc_to_runnable(T492* C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=X662to_runnable((((T492*)C))->_target/*12*/,a1);
/*IF*/if ((_t)==((void*)(NULL))) {
r683add_position(X662start_position((((T492*)C))->_target/*12*/));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms2_135);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/C->_target=_t;
_rc=X291run_class(X662result_type((((T492*)C))->_target/*12*/));
C->_run_feature=r355get_rf(((T355*)_rc),(T0*)C);
r576update((((T492*)C))->_target/*12*/,(((T492*)C))->_run_feature/*20*/);
}
int r492use_current(T492* C){
int R=0;
/*IF*/{/*AT*/R=X431use_current((((T492*)C))->_arguments/*28*/);
}
/*FI*//*IF*/if (R) {
}
 else if (X662is_current((((T492*)C))->_target/*12*/)) {
R=X496use_current((((T492*)C))->_run_feature/*20*/);
}
else {
R=X662use_current((((T492*)C))->_target/*12*/);
}
/*FI*/return R;
}
void r492finalize(T492* C){
T0* _rf=NULL;
T0* _rc=NULL;
_rf=(((T492*)C))->_run_feature/*20*/;
_rc=X291run_class(/*X496*/((T0*)(((T832*)((T832*)_rf)))->_current_type/*4*/));
/*IF*/if (!((((T355*)((T355*)_rc)))->_at_run_time/*8*/)) {
_rf=r355dynamic(((T355*)(r396first(((T396*)((((T355*)((T355*)_rc)))->_running/*12*/))))),_rf);
C->_run_feature=_rf;
}
/*FI*/}
void r492error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
/*No:CALL_1_C.isa_dca_inline_argument*/
/*No:CALL_1_C.fatal_error*/
/*No:CALL_1_C.fz_bad_argument*/
T0* r492arg1(T492* C){
T0* R=NULL;
R=X431first((((T492*)C))->_arguments/*28*/);
return R;
}
void r492afd_check(T492* C){
T0* _running=NULL;
T0* _rc=NULL;
_rc=X291run_class(X662result_type((((T492*)C))->_target/*12*/));
_running=(((T355*)((T355*)_rc)))->_running/*12*/;
/*IF*/if ((_running)==((void*)(NULL))) {
r683add_position(X662start_position((((T492*)C))->_target/*12*/));
/*[IRF3.6append*/{T0* b1=((T0*)ms1_135);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=X291run_time_mark((((T355*)((T355*)_rc)))->_current_type/*0*/);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=((T0*)ms141_470);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683print_as_warning(((T683*)(oBC364eh)));
r355set_at_run_time(((T355*)_rc));
}
 else if ((r396count(((T396*)_running)))>(0)) {
r576update((((T492*)C))->_target/*12*/,(((T492*)C))->_run_feature/*20*/);
}
/*FI*/X662afd_check((((T492*)C))->_target/*12*/);
/*IF*/{/*AT*/X431afd_check((((T492*)C))->_arguments/*28*/);
}
/*FI*/}
T0* r126add_comment(T126* C,T0* a1){
T0* R=NULL;
/*IF*/if (((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(0))) {
R=(T0*)C;
}
/*AF*/else {
{T46*n=malloc(sizeof(*n));
*n=M46;
r46make(n,(T0*)C,a1);
R=(T0*)n;
}
}
/*FI*/return R;
}
void r126make(T126* C,T0* a1,T0* a2){
C->_left_side=a1;
C->_right_side=a2;
}
/*No:REVERSE_ASSIGNMENT.nb_errors*/
T0* r126start_position(T126* C){
T0* R=NULL;
R=X662start_position((((T126*)C))->_left_side/*8*/);
return R;
}
void r126compile_to_c(T126* C){
int _i=0;
T0* _run=NULL;
/*IF*/if (X291is_expanded(X291run_type(r126right_type(C)))) {
r683add_position(r126start_position(C));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms1_126);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/_run=(((T355*)((T355*)(X291run_class(r126left_type(C))))))->_running/*12*/;
/*IF*/if (((_run)==((void*)(NULL)))||(r396empty(((T396*)_run)))) {
X662compile_to_c((((T126*)C))->_left_side/*8*/);
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms2_126));
/*]*/
}
else {
X662compile_to_c((((T126*)C))->_left_side/*8*/);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\75';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*IF*/if (X662is_current((((T126*)C))->_right_side/*12*/)) {
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms85_470));
/*]*/
}
/*FI*/X662compile_to_c((((T126*)C))->_right_side/*12*/);
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms3_126));
/*]*/
X662compile_to_c((((T126*)C))->_left_side/*8*/);
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms4_126));
/*]*/
X662compile_to_c((((T126*)C))->_left_side/*8*/);
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms5_126));
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms6_126));
/*]*/
_i=(((T396*)((T396*)_run)))->_lower/*12*/;
while (!((_i)>((((T396*)((T396*)_run)))->_upper/*8*/))) {
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms7_126));
/*]*/
/*[IRF3.5put_integer*/r544put_integer(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),(((T355*)((T355*)(r396item(((T396*)_run),_i)))))->_id/*4*/);
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms8_126));
/*]*/
_i=(_i)+(1);
}
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms9_126));
/*]*/
X662compile_to_c((((T126*)C))->_left_side/*8*/);
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms10_126));
/*]*/
}
/*FI*/}
T0* r126to_runnable(T126* C,T0* a1){
T0* R=NULL;
T0* _e=NULL;
/*IF*/if (((((T126*)C))->_run_compound/*4*/)==((void*)(NULL))) {
C->_run_compound=a1;
_e=X662to_runnable((((T126*)C))->_left_side/*8*/,r126current_type(C));
/*IF*/if ((_e)==((void*)(NULL))) {
r126error(X662start_position((((T126*)C))->_left_side/*8*/),((T0*)ms62_470));
}
else {
C->_left_side=_e;
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
_e=X662to_runnable((((T126*)C))->_right_side/*12*/,r126current_type(C));
/*IF*/if ((_e)==((void*)(NULL))) {
r126error(X662start_position((((T126*)C))->_right_side/*12*/),((T0*)ms63_470));
}
else {
C->_right_side=_e;
}
/*FI*/}
/*FI*//*IF*/if (((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0))&&(X291is_a(X291run_type(r126right_type(C)),X291run_type(r126left_type(C))))) {
/*IF*/if ((!(X662is_current((((T126*)C))->_right_side/*12*/)))&&(!(X291is_like_current(r126left_type(C))))) {
r683add_type(r126right_type(C),((T0*)ms12_126));
r683add_type(r126left_type(C),((T0*)ms13_126));
r126warning(r126start_position(C),((T0*)ms14_126));
}
/*FI*/}
/*FI*//*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)(((T7*)(oBC683explanation)))))->_count)=(0);
/*]*/
r38clear(((T38*)(oBC683positions)));
/*]*/
/*IF*/if (!(X291is_reference(X291run_type(r126left_type(C))))) {
r683add_type(X291run_type(r126left_type(C)),((T0*)ms15_126));
r126error(r126start_position(C),((T0*)ms16_126));
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
R=(T0*)C;
}
/*FI*/}
else {
{T126*n=malloc(sizeof(*n));
*n=M126;
r126make(n,(((T126*)C))->_left_side/*8*/,(((T126*)C))->_right_side/*12*/);
R=(T0*)n;
}
R=r126to_runnable(((T126*)R),a1);
}
/*FI*/return R;
}
T0* r126right_type(T126* C){
T0* R=NULL;
R=X662result_type((((T126*)C))->_right_side/*12*/);
return R;
}
/*No:REVERSE_ASSIGNMENT.left_side*/
T0* r126current_type(T126* C){
T0* R=NULL;
/*IF*/if (((((T126*)C))->_run_compound/*4*/)!=((void*)(NULL))) {
R=(((T592*)((T592*)((((T126*)C))->_run_compound/*4*/))))->_current_type/*4*/;
}
/*FI*/return R;
}
/*No:REVERSE_ASSIGNMENT.run_compound*/
/*No:REVERSE_ASSIGNMENT.is_pre_computable*/
/*No:REVERSE_ASSIGNMENT.fz_cast_t0_star*/
int r126use_current(T126* C){
int R=0;
/*IF*/if (X662use_current((((T126*)C))->_left_side/*8*/)) {
R=1;
}
else {
R=X662use_current((((T126*)C))->_right_side/*12*/);
}
/*FI*/return R;
}
/*No:REVERSE_ASSIGNMENT.right_side*/
/*No:REVERSE_ASSIGNMENT.fz_blhsoa*/
/*No:REVERSE_ASSIGNMENT.fz_brhsoa*/
void r126error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
/*No:REVERSE_ASSIGNMENT.fatal_error*/
/*No:REVERSE_ASSIGNMENT.end_mark_comment*/
void r126afd_check(T126* C){
X662afd_check((((T126*)C))->_right_side/*12*/);
}
T0* r126left_type(T126* C){
T0* R=NULL;
R=X662result_type((((T126*)C))->_left_side/*8*/);
return R;
}
void r126warning(T0* a1,T0* a2){
r683add_position(a1);
r683warning(((T683*)(oBC364eh)),a2);
}
int r542affect(T542* C,T0* a1){
int R=0;
/*IF*/if (/*(IRF4.7for_all*/((((T542*)C))->_list/*4*/)==(NULL)/*)*/) {
R=1;
}
else {
R=r953has(((T953*)((((T542*)C))->_list/*4*/)),a1);
}
/*FI*/return R;
}
void r542make_all(T542* C,T0* a1){
C->_clients=a1;
C->_list=NULL;
}
void r542make(T542* C,T0* a1,T0* a2){
C->_clients=a1;
{T953*n=malloc(sizeof(*n));
*n=M953;
r953make(n,a2);
C->_list=(T0*)n;
}
}
/*No:EXPORT_ITEM.list*/
/*No:EXPORT_ITEM.clients*/
/*No:EXPORT_ITEM.for_all*/
/*No:E_INSPECT.else_position*/
T0* r270add_comment(T270* C,T0* a1){
T0* R=NULL;
/*IF*/if (((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(0))) {
R=(T0*)C;
}
 else {/*AT*//*IF*/if ((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(1)) {
R=(T0*)C;
}
else {
{T46*n=malloc(sizeof(*n));
*n=M46;
r46make(n,(T0*)C,a1);
R=(T0*)n;
}
}
/*FI*/}
/*FI*/return R;
}
/*No:E_INSPECT.when_list*/
/*No:E_INSPECT.fz_else*/
void r270add_when(T270* C,T0* a1){
/*IF*/if (((((T270*)C))->_when_list/*16*/)==((void*)(NULL))) {
{T377*n=malloc(sizeof(*n));
*n=M377;
/*[IRF3.3make*/((((T377*)(n)))->_list)=(se_ma147(1,a1));
/*]*/
C->_when_list=(T0*)n;
}
}
else {
/*[IRF3.5add_last*/r147add_last(((T147*)((((T377*)((T377*)((((T270*)C))->_when_list/*16*/))))->_list/*4*/)),a1);
/*]*/
}
/*FI*/}
void r270make(T270* C,T0* a1,T0* a2){
C->_start_position=a1;
C->_expression=a2;
}
/*No:E_INSPECT.nb_errors*/
/*No:E_INSPECT.expression*/
void r270set_else_compound(T270* C,T0* a1,T0* a2){
C->_else_position=a1;
C->_else_compound=a2;
}
/*No:E_INSPECT.set_run_compound*/
/*No:E_INSPECT.start_position*/
void r270compile_to_c(T270* C){
r324inspect_incr(((T324*)(oBC364cpp)));
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms1_270));
/*]*/
r324put_inspect(((T324*)(oBC364cpp)));
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\75';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
X662compile_to_c((((T270*)C))->_expression/*12*/);
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms134_470));
/*]*/
/*IF*/if (((((T270*)C))->_when_list/*16*/)==((void*)(NULL))) {
/*IF*/if (((((T270*)C))->_else_position/*20*/)==((void*)(NULL))) {
/*IF*/if (r590no_check(((T590*)(oBC364run_control)))) {
r324put_error1(((T324*)(oBC364cpp)),((T0*)ms6_270),(((T270*)C))->_start_position/*8*/);
}
/*FI*/}
 else if (((((T270*)C))->_else_compound/*24*/)!=((void*)(NULL))) {
r592compile_to_c(((T592*)((((T270*)C))->_else_compound/*24*/)));
}
/*FI*/}
else {
r377compile_to_c(((T377*)((((T270*)C))->_when_list/*16*/)),(((T270*)C))->_else_position/*20*/);
/*IF*/if (((((T270*)C))->_else_position/*20*/)==((void*)(NULL))) {
/*IF*/if (r590no_check(((T590*)(oBC364run_control)))) {
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\40';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms10_470));
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\173';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
r324put_error1(((T324*)(oBC364cpp)),((T0*)ms6_270),(((T270*)C))->_start_position/*8*/);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\175';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
/*FI*/}
 else if (((((T270*)C))->_else_compound/*24*/)!=((void*)(NULL))) {
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\40';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms10_470));
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\173';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
r592compile_to_c(((T592*)((((T270*)C))->_else_compound/*24*/)));
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\175';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
/*FI*/}
/*FI*//*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms146_470));
/*]*/
r324inspect_decr(((T324*)(oBC364cpp)));
}
/*No:E_INSPECT.fz_00*/
/*No:E_INSPECT.includes*/
T0* r270to_runnable(T270* C,T0* a1){
T0* R=NULL;
T0* _wl=NULL;
T0* _te=NULL;
T0* _e=NULL;
/*IF*/if (((((T270*)C))->_run_compound/*4*/)==((void*)(NULL))) {
C->_run_compound=a1;
_e=X662to_runnable((((T270*)C))->_expression/*12*/,r270current_type(C));
/*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
C->_expression=_e;
_te=X291run_type(X662result_type(_e));
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
/*IF*/if (X291is_character(_te)) {
/*IF*/if (((((T270*)C))->_when_list/*16*/)!=((void*)(NULL))) {
C->_when_list=r377to_runnable_character(((T377*)((((T270*)C))->_when_list/*16*/)),(T0*)C);
/*IF*/if (((((T270*)C))->_when_list/*16*/)==((void*)(NULL))) {
r270error((((T270*)C))->_start_position/*8*/,((T0*)ms5_270));
}
/*FI*/}
/*FI*/}
 else if (X291is_integer(_te)) {
/*IF*/if (((((T270*)C))->_when_list/*16*/)!=((void*)(NULL))) {
C->_when_list=r377to_runnable_integer(((T377*)((((T270*)C))->_when_list/*16*/)),(T0*)C);
/*IF*/if (((((T270*)C))->_when_list/*16*/)==((void*)(NULL))) {
r270error((((T270*)C))->_start_position/*8*/,((T0*)ms5_270));
}
/*FI*/}
/*FI*/}
else {
/*[IRF3.6append*/{T0* b1=((T0*)ms2_270);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683add_type(_te,((T0*)ms3_270));
r683add_position((((T270*)C))->_start_position/*8*/);
r683print_as_error(((T683*)(oBC364eh)));
}
/*FI*/}
/*FI*//*IF*/if (((((T270*)C))->_else_compound/*24*/)!=((void*)(NULL))) {
C->_else_compound=r592to_runnable(((T592*)((((T270*)C))->_else_compound/*24*/)),r270current_type(C));
}
/*FI*/R=(T0*)C;
}
else {
R=r270twin(C);
{T377*n=malloc(sizeof(*n));
*n=M377;
r377from_when_list(n,(((T270*)C))->_when_list/*16*/);
_wl=(T0*)n;
}
/*[IRF3.3set_when_list*/((((T270*)(((T270*)R))))->_when_list)=(_wl);
/*]*/
/*[IRF3.3set_run_compound*/((((T270*)(((T270*)R))))->_run_compound)=(NULL);
/*]*/
R=r270to_runnable(((T270*)R),a1);
}
/*FI*/return R;
}
/*No:E_INSPECT.fz_12*/
T0* r270twin(T270* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T270*)R)=*C;
return R;
}
/*No:E_INSPECT.em1*/
/*No:E_INSPECT.em2*/
/*No:E_INSPECT.else_compound*/
/*No:E_INSPECT.set_when_list*/
T0* r270current_type(T270* C){
T0* R=NULL;
/*IF*/if (((((T270*)C))->_run_compound/*4*/)!=((void*)(NULL))) {
R=(((T592*)((T592*)((((T270*)C))->_run_compound/*4*/))))->_current_type/*4*/;
}
/*FI*/return R;
}
/*No:E_INSPECT.run_compound*/
/*No:E_INSPECT.is_pre_computable*/
int r270use_current(T270* C){
int R=0;
R=(R)||(X662use_current((((T270*)C))->_expression/*12*/));
/*IF*/if (((((T270*)C))->_when_list/*16*/)!=((void*)(NULL))) {
R=(R)||(r377use_current(((T377*)((((T270*)C))->_when_list/*16*/))));
}
/*FI*//*IF*/if (((((T270*)C))->_else_compound/*24*/)!=((void*)(NULL))) {
R=(R)||(r592use_current(((T592*)((((T270*)C))->_else_compound/*24*/))));
}
/*FI*/return R;
}
void r270error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
/*No:E_INSPECT.end_mark_comment*/
void r270afd_check(T270* C){
X662afd_check((((T270*)C))->_expression/*12*/);
/*IF*/if (((((T270*)C))->_when_list/*16*/)!=((void*)(NULL))) {
r377afd_check(((T377*)((((T270*)C))->_when_list/*16*/)));
}
/*FI*//*IF*/if (((((T270*)C))->_else_compound/*24*/)!=((void*)(NULL))) {
r592afd_check(((T592*)((((T270*)C))->_else_compound/*24*/)));
}
/*FI*/}
/*No:ONCE_FUNCTION.arguments*/
T0* r844try_to_undefine(T844* C,T0* a1,T0* a2){
T0* R=NULL;
X776undefine_in(a1,a2);
R=r844try_to_undefine_aux(C,a1,a2);
/*IF*/if ((R)!=((void*)(NULL))) {
/*X249*//*[IRF3.3set_clients*/((((T853*)(((T853*)R))))->_clients)=((((T844*)C))->_clients/*24*/);
/*]*/
}
else {
r605fatal_undefine(((T605*)a2),a1);
}
/*FI*/return R;
}
/*No:ONCE_FUNCTION.is_deferred*/
/*No:ONCE_FUNCTION.fz_bad_assertion*/
T0* r844runnable(T0* a1,T0* a2,T0* a3){
T0* R=NULL;
T0* _a=NULL;
int _i=0;
/*IF*/if (!(r608empty(((T608*)a1)))) {
R=r608twin(((T608*)a1));
_i=(((T608*)((T608*)R)))->_upper/*8*/;
while (!((_i)==(0))) {
r604push(((T604*)(oBC364small_eiffel)),a3);
_a=r348to_runnable(((T348*)(r608item(((T608*)R),_i))),a2);
/*IF*/if ((_a)==((void*)(NULL))) {
r844error(r348start_position(((T348*)(r608item(((T608*)R),_i)))),((T0*)ms57_470));
}
else {
/*[IRF3.6put*/{T608* C1=((T608*)R);
T0* b1=_a;
int b2=_i;
((((T608*)C1))->_storage/*0*/)[(b2)-((((T608*)C1))->_lower/*12*/)]=(b1);
}/*]*/
}
/*FI*/r604pop(((T604*)(oBC364small_eiffel)));
_i=(_i)-(1);
}
}
/*FI*/return R;
}
/*No:ONCE_FUNCTION.rescue_compound*/
void r844add_into(T844* C,T0* a1){
T0* _fn=NULL;
int _i=0;
C->_base_class=r627base_class(((T627*)(X776start_position(/*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T844*)C))->_names/*8*/))))->_list/*0*/)),1)/*)*/))));
_i=1;
while (!((_i)>(/*(IRF4.6count*/(((T855*)((T855*)((((T953*)((T953*)((((T844*)C))->_names/*8*/))))->_list/*0*/))))->_upper/*8*//*)*/))) {
_fn=/*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T844*)C))->_names/*8*/))))->_list/*0*/)),_i)/*)*/;
/*IF*/if (r237has(((T237*)a1),X776to_key(_fn))) {
_fn=/*X359*/((T0*)/*(IRF4.6first_name*//*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T398*)((T398*)(r237at(((T237*)a1),X776to_key(_fn))))))->_names/*8*/))))->_list/*0*/)),1)/*)*//*)*/);
r683add_position(X776start_position(_fn));
r683add_position(X776start_position(/*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T844*)C))->_names/*8*/))))->_list/*0*/)),_i)/*)*/));
r683error(((T683*)(oBC364eh)),((T0*)ms11_359));
/*[IRF3.6append*/{T0* b1=X776to_string(_fn);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683error(((T683*)(oBC364eh)),((T0*)ms67_470));
}
else {
r237put(((T237*)a1),(T0*)C,X776to_key(_fn));
}
/*FI*/_i=(_i)+(1);
}
}
/*No:ONCE_FUNCTION.end_comment*/
T0* r844try_to_undefine_aux(T844* C,T0* a1,T0* a2){
T0* R=NULL;
{T649*n=malloc(sizeof(*n));
*n=M649;
r649from_effective(n,a1,(((T844*)C))->_arguments/*28*/,(((T844*)C))->_result_type/*12*/,(((T844*)C))->_require_assertion/*36*/,(((T844*)C))->_ensure_assertion/*40*/,a2);
R=(T0*)n;
}
return R;
}
void r844make(T844* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7,T0* a8){
r844make_effective_routine(C,a1,a2,a4,a5,a6,a7,a8);
C->_result_type=a3;
}
/*No:ONCE_FUNCTION.not_computed*/
/*No:ONCE_FUNCTION.nb_errors*/
void r844make_routine(T844* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
r844make_e_feature(C,a1,NULL);
C->_header_comment=a4;
C->_arguments=a2;
C->_obsolete_mark=a3;
C->_require_assertion=a5;
}
/*No:ONCE_FUNCTION.local_vars*/
void r844mapping_c_name_in(T844* C,T0* a1){
r605mapping_c_in(((T605*)((((T844*)C))->_base_class/*4*/)),a1);
r7append(((T7*)a1),X776to_key(/*(IRF4.6first_name*//*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T844*)C))->_names/*8*/))))->_list/*0*/)),1)/*)*//*)*/));
}
void r844set_header_comment(T844* C,T0* a1){
/*IF*/if (((a1)!=((void*)(NULL)))&&((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)>(1))) {
C->_end_comment=a1;
}
/*FI*/}
T0* r844start_position(T844* C){
T0* R=NULL;
R=X776start_position(/*(IRF4.6first_name*//*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T844*)C))->_names/*8*/))))->_list/*0*/)),1)/*)*//*)*/);
return R;
}
T0* r844to_run_feature(T844* C,T0* a1,T0* a2){
T0* R=NULL;
r844check_obsolete(C);
{T868*n=malloc(sizeof(*n));
*n=M868;
r868make(n,a1,a2,(T0*)C);
R=(T0*)n;
}
return R;
}
/*No:ONCE_FUNCTION.ensure_assertion*/
/*No:ONCE_FUNCTION.code_require*/
T0* r844run_ensure(T0* a1){
T0* R=NULL;
T0* _r=NULL;
r608clear(((T608*)(oBC359assertion_collector)));
/*[IRF3.3clear*/{T0* _default_item=NULL;
((((T56*)(((T56*)(oBC359header_comment_memory)))))->_item)=(_default_item);
}/*]*/
r605collect_for(((T605*)(X291base_class(/*X496*/((T0*)(((T832*)((T832*)a1)))->_current_type/*4*/)))),1002,/*X496*/((T0*)(((T832*)((T832*)a1)))->_name/*16*/));
_r=r844runnable(oBC359assertion_collector,/*X496*/((T0*)(((T832*)((T832*)a1)))->_current_type/*4*/),a1);
/*IF*/if ((_r)!=((void*)(NULL))) {
{T633*n=malloc(sizeof(*n));
*n=M633;
r633from_runnable(n,_r);
R=(T0*)n;
}
/*[IRF3.3set_header_comment*/((((T633*)(((T633*)R))))->_header_comment)=((((T56*)((T56*)(oBC359header_comment_memory))))->_item/*0*/);
/*]*/
/*[IRF3.3clear*/{T0* _default_item=NULL;
((((T56*)(((T56*)(oBC359header_comment_memory)))))->_item)=(_default_item);
}/*]*/
}
/*FI*/return R;
}
T0* r844run_require(T0* a1){
T0* R=NULL;
T0* _ar=NULL;
T0* _hc=NULL;
T0* _er=NULL;
T0* _r=NULL;
int _i=0;
r522clear(((T522*)(oBC359require_collector)));
r605collect_for(((T605*)(X291base_class(/*X496*/((T0*)(((T832*)((T832*)a1)))->_current_type/*4*/)))),1001,/*X496*/((T0*)(((T832*)((T832*)a1)))->_name/*16*/));
/*IF*/if (!(r522empty(((T522*)(oBC359require_collector))))) {
_i=1;
while (!((_i)>((((T522*)((T522*)(oBC359require_collector))))->_upper/*8*/))) {
_er=r522item(((T522*)(oBC359require_collector)),_i);
_hc=(((T343*)((T343*)_er)))->_header_comment/*4*/;
/*IF*/if (!(/*(IRF4.7empty*/((((T343*)((T343*)_er)))->_list/*8*/)==(NULL)/*)*/)) {
_r=r844runnable((((T343*)((T343*)_er)))->_list/*8*/,/*X496*/((T0*)(((T832*)((T832*)a1)))->_current_type/*4*/),a1);
/*IF*/if ((_r)!=((void*)(NULL))) {
{T343*n=malloc(sizeof(*n));
*n=M343;
r343from_runnable(n,_r);
_er=(T0*)n;
}
/*[IRF3.3set_header_comment*/((((T343*)(((T343*)_er))))->_header_comment)=(_hc);
/*]*/
/*IF*/if ((_ar)==((void*)(NULL))) {
_ar=se_ma522(1,_er);
}
else {
r522add_last(((T522*)_ar),_er);
}
/*FI*/}
/*FI*/}
/*FI*/_i=(_i)+(1);
}
/*IF*/if ((_ar)!=((void*)(NULL))) {
{T567*n=malloc(sizeof(*n));
*n=M567;
/*[IRF3.3make*/((((T567*)(n)))->_list)=(_ar);
/*]*/
R=(T0*)n;
}
}
/*FI*/}
/*FI*/return R;
}
/*No:ONCE_FUNCTION.result_type*/
/*No:ONCE_FUNCTION.fz_03*/
/*No:ONCE_FUNCTION.em1*/
/*No:ONCE_FUNCTION.obsolete_mark*/
/*No:ONCE_FUNCTION.set_clients*/
/*No:ONCE_FUNCTION.em2*/
/*No:ONCE_FUNCTION.names*/
/*No:ONCE_FUNCTION.require_assertion*/
/*No:ONCE_FUNCTION.use_current_state*/
/*No:ONCE_FUNCTION.code_ensure*/
int r844stupid_switch(T844* C,T0* a1,T0* a2){
int R=0;
R=((((T844*)C))->_routine_body/*52*/)==((void*)(NULL));
return R;
}
void r844set_rescue_compound(T844* C,T0* a1){
/*IF*/if (((a1)!=((void*)(NULL)))&&(/*(IRF4.1is_deferred*/0/*)*/)) {
r844error(r844start_position(C),((T0*)ms6_368));
}
/*FI*/C->_rescue_compound=a1;
}
int r844can_hide(T844* C,T0* a1,T0* a2){
int R=0;
/*IF*/if (((((T844*)C))->_result_type/*12*/)!=((void*)(/*X359*/((T0*)(((T398*)((T398*)a1)))->_result_type/*12*/)))) {
/*IF*/if ((((((T844*)C))->_result_type/*12*/)==((void*)(NULL)))||((/*X359*/((T0*)(((T398*)((T398*)a1)))->_result_type/*12*/))==((void*)(NULL)))) {
r683add_position(X359start_position(a1));
r844error(r844start_position(C),((T0*)ms5_359));
}
/*FI*/}
/*FI*//*IF*/if (((((T844*)C))->_arguments/*28*/)!=((void*)(X359arguments(a1)))) {
/*IF*/if ((((((T844*)C))->_arguments/*28*/)==((void*)(NULL)))||((X359arguments(a1))==((void*)(NULL)))) {
r683add_position(X359start_position(a1));
r844error(r844start_position(C),((T0*)ms6_359));
}
 else if ((/*(IRF4.6count*/(((T65*)((T65*)((((T31*)((T31*)((((T844*)C))->_arguments/*28*/))))->_flat_list/*12*/))))->_upper/*12*//*)*/)!=(/*(IRF4.6count*/(((T65*)((T65*)((((T31*)((T31*)(X359arguments(a1)))))->_flat_list/*12*/))))->_upper/*12*//*)*/)) {
r683add_position(X359start_position(a1));
r844error(r844start_position(C),((T0*)ms7_359));
}
/*FI*/}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
/*IF*/if (((((T844*)C))->_result_type/*12*/)!=((void*)(NULL))) {
/*IF*/if (!(X291is_a_in((((T844*)C))->_result_type/*12*/,/*X359*/((T0*)(((T398*)((T398*)a1)))->_result_type/*12*/),a2))) {
/*[IRF3.6append*/{T0* b1=((T0*)ms13_359);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=X291run_time_mark((((T355*)((T355*)a2)))->_current_type/*0*/);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683error(((T683*)(oBC364eh)),((T0*)ms67_470));
}
/*FI*/}
/*FI*/}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
/*IF*/if (((((T844*)C))->_arguments/*28*/)!=((void*)(NULL))) {
/*IF*/if (!(r31is_a_in(((T31*)((((T844*)C))->_arguments/*28*/)),X359arguments(a1),a2))) {
r683add_position(X359start_position(a1));
r683add_position(r844start_position(C));
/*[IRF3.6append*/{T0* b1=((T0*)ms13_359);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=X291run_time_mark((((T355*)((T355*)a2)))->_current_type/*0*/);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683error(((T683*)(oBC364eh)),((T0*)ms67_470));
}
/*FI*/}
/*FI*/}
/*FI*/R=(/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0);
return R;
}
/*No:ONCE_FUNCTION.header_comment*/
/*No:ONCE_FUNCTION.routine_body*/
int r844is_merge_with(T844* C,T0* a1,T0* a2){
int R=0;
/*IF*/if (((((T844*)C))->_result_type/*12*/)!=((void*)(/*X359*/((T0*)(((T398*)((T398*)a1)))->_result_type/*12*/)))) {
/*IF*/if ((((((T844*)C))->_result_type/*12*/)==((void*)(NULL)))||((/*X359*/((T0*)(((T398*)((T398*)a1)))->_result_type/*12*/))==((void*)(NULL)))) {
r683add_position(X359start_position(a1));
r844error(r844start_position(C),((T0*)ms2_359));
}
/*FI*/}
/*FI*//*IF*/if (((((T844*)C))->_arguments/*28*/)!=((void*)(X359arguments(a1)))) {
/*IF*/if ((((((T844*)C))->_arguments/*28*/)==((void*)(NULL)))||((X359arguments(a1))==((void*)(NULL)))) {
r683add_position(X359start_position(a1));
r844error(r844start_position(C),((T0*)ms3_359));
}
 else if ((/*(IRF4.6count*/(((T65*)((T65*)((((T31*)((T31*)((((T844*)C))->_arguments/*28*/))))->_flat_list/*12*/))))->_upper/*12*//*)*/)!=(/*(IRF4.6count*/(((T65*)((T65*)((((T31*)((T31*)(X359arguments(a1)))))->_flat_list/*12*/))))->_upper/*12*//*)*/)) {
r683add_position(X359start_position(a1));
r844error(r844start_position(C),((T0*)ms4_359));
}
/*FI*/}
/*FI*//*IF*/if (((((T844*)C))->_result_type/*12*/)!=((void*)(NULL))) {
/*IF*/if (!(X291is_a_in((((T844*)C))->_result_type/*12*/,/*X359*/((T0*)(((T398*)((T398*)a1)))->_result_type/*12*/),a2))) {
r683error(((T683*)(oBC364eh)),((T0*)ms12_359));
}
/*FI*/}
/*FI*//*IF*/if (((((T844*)C))->_arguments/*28*/)!=((void*)(NULL))) {
/*IF*/if (!(r31is_a_in(((T31*)((((T844*)C))->_arguments/*28*/)),X359arguments(a1),a2))) {
r683add_position(X359start_position(a1));
r844error(r844start_position(C),((T0*)ms12_359));
}
/*FI*/}
/*FI*/R=(/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0);
return R;
}
/*No:ONCE_FUNCTION.fz_dot*/
/*No:ONCE_FUNCTION.set_ensure_assertion*/
/*No:ONCE_FUNCTION.first_name*/
/*No:ONCE_FUNCTION.clients*/
void r844collect_for(T844* C,int a1){
/*IF*/if ((a1)==(1001)) {
/*IF*/if (((((T844*)C))->_require_assertion/*36*/)!=((void*)(NULL))) {
/*IF*/if (!(r522fast_has(((T522*)(oBC359require_collector)),(((T844*)C))->_require_assertion/*36*/))) {
r522add_last(((T522*)(oBC359require_collector)),(((T844*)C))->_require_assertion/*36*/);
}
/*FI*/}
/*FI*/}
else {
/*IF*/if (((((T844*)C))->_ensure_assertion/*40*/)!=((void*)(NULL))) {
/*[IRF3.3set_item*/((((T56*)(((T56*)(oBC359header_comment_memory)))))->_item)=((((T633*)((T633*)((((T844*)C))->_ensure_assertion/*40*/))))->_header_comment/*4*/);
/*]*/
r633add_into(((T633*)((((T844*)C))->_ensure_assertion/*40*/)),oBC359assertion_collector);
}
/*FI*/}
/*FI*/}
void r844make_effective_routine(T844* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7){
r844make_routine(C,a1,a2,a3,a4,a5);
C->_local_vars=a6;
C->_routine_body=a7;
C->_use_current_state=1024;
}
void r844error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
/*No:ONCE_FUNCTION.base_class*/
/*No:ONCE_FUNCTION.base_class_name*/
void r844make_e_feature(T844* C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void r844check_obsolete(T844* C){
/*IF*/if (!((((T604*)((T604*)(oBC364small_eiffel))))->_short_flag/*4*/)) {
/*IF*/if (((((T844*)C))->_obsolete_mark/*32*/)!=((void*)(NULL))) {
/*[IRF3.6append*/{T0* b1=((T0*)ms7_368);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=(((T805*)((T805*)((((T844*)C))->_obsolete_mark/*32*/))))->_to_string/*16*/;
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r844warning(r844start_position(C),((T0*)ms137_470));
}
/*FI*/}
/*FI*/}
void r844warning(T0* a1,T0* a2){
r683add_position(a1);
r683warning(((T683*)(oBC364eh)),a2);
}
int r832id(T832* C){
int R=0;
R=X291id((((T832*)C))->_current_type/*4*/);
return R;
}
/*No:RUN_FEATURE_3.arguments*/
int r832direct_call(T832* C){
int R=0;
T0* _rf3=NULL;
T0* _args=NULL;
T0* _pc=NULL;
T0* _rb=NULL;
_rb=(((T832*)C))->_routine_body/*32*/;
/*IF*/if (((((_rb)!=((void*)(NULL)))&&((r592count(((T592*)_rb)))==(1)))&&(((((T832*)C))->_arguments/*20*/)==((void*)(NULL))))&&(((((T832*)C))->_local_vars/*48*/)==((void*)(NULL)))) {
_pc=r592first(((T592*)_rb));
if(NULL!=(_pc))switch(((T0*)_pc)->id) {
case 268: case 317: case 568: 
break;
default:
_pc=NULL;
};/*IF*/if ((_pc)!=((void*)(NULL))) {
/*IF*/if (X662is_current(/*X173*/((T0*)(((T268*)((T268*)_pc)))->_target/*8*/))) {
_rf3=/*X173*/((T0*)(((T268*)((T268*)_pc)))->_run_feature/*16*/);
if(NULL!=(_rf3))switch(((T0*)_rf3)->id) {
case 832: 
break;
default:
_rf3=NULL;
};/*IF*/if ((_rf3)!=((void*)(NULL))) {
_args=X173arguments(_pc);
/*IF*/if ((_args)==((void*)(NULL))) {
R=1;
}
else {
R=X431is_static(_args);
}
/*FI*/}
/*FI*/}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*No:RUN_FEATURE_3.C_do_not_use_current*/
int r832do_not_use_current(T832* C){
int R=0;
/*IF*/if (!(r592use_current(((T592*)((((T832*)C))->_routine_body/*32*/))))) {
R=((((T832*)C))->_arguments/*20*/)==((void*)(NULL));
}
/*FI*/return R;
}
/*No:RUN_FEATURE_3.ucs_true*/
/*No:RUN_FEATURE_3.us_copy*/
void r832c_define(T832* C){
/*IF*/if (r832isa_in_line(C)) {
r324incr_inlined_procedure_count(((T324*)(oBC364cpp)));
r832nothing_comment(C);
}
else {
/*IF*/if (r832use_current(C)) {
r324incr_procedure_count(((T324*)(oBC364cpp)));
}
else {
r324incr_real_procedure_count(((T324*)(oBC364cpp)));
}
/*FI*/r832define_prototype(C);
r832define_opening(C);
/*IF*/if (((((T832*)C))->_routine_body/*32*/)!=((void*)(NULL))) {
r592compile_to_c(((T592*)((((T832*)C))->_routine_body/*32*/)));
}
/*FI*/r832define_closing(C);
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms146_470));
/*]*/
}
/*FI*/}
int r832one_pc(T832* C){
int R=0;
T0* _r=NULL;
T0* _rf=NULL;
T0* _pc=NULL;
T0* _rb=NULL;
_rb=(((T832*)C))->_routine_body/*32*/;
/*IF*/if (((_rb)!=((void*)(NULL)))&&((r592count(((T592*)_rb)))==(1))) {
_pc=r592first(((T592*)_rb));
if(NULL!=(_pc))switch(((T0*)_pc)->id) {
case 268: case 317: case 568: 
break;
default:
_pc=NULL;
};/*IF*/if ((_pc)!=((void*)(NULL))) {
_rf=/*X173*/((T0*)(((T268*)((T268*)_pc)))->_run_feature/*16*/);
/*IF*/if (((_rf)!=((void*)(NULL)))&&((_rf)!=((void*)(C)))) {
_r=(((T355*)((T355*)(X496run_class(_rf)))))->_running/*12*/;
/*IF*/if (((_r)!=((void*)(NULL)))&&((r396count(((T396*)_r)))==(1))) {
R=1;
}
/*FI*/}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*No:RUN_FEATURE_3.actuals_clients*/
void r832nothing_comment(T832* C){
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms118_470));
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms4_496));
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),X291run_time_mark((((T832*)C))->_current_type/*4*/));
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\56';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),X776to_string((((T832*)C))->_name/*16*/));
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms81_470));
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\n';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
void r832define_closing(T832* C){
/*IF*/if (r832use_current(C)) {
r324current_class_invariant(((T324*)(oBC364cpp)),(((T832*)C))->_current_type/*4*/);
}
/*FI*//*IF*/if (r590ensure_check(((T590*)(oBC364run_control)))) {
/*IF*/if (((((T832*)C))->_ensure_assertion/*36*/)!=((void*)(NULL))) {
r633compile_to_c(((T633*)((((T832*)C))->_ensure_assertion/*36*/)));
}
/*FI*/}
/*FI*//*IF*/if (r590no_check(((T590*)(oBC364run_control)))) {
/*[IRF3.6rs_unlink*/{T324* C1=((T324*)(oBC364cpp));
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)C1))->_current_out/*56*/)),((T0*)ms156_324));
/*]*/
}/*]*/
}
/*FI*/}
int r832attribute_writer(T832* C){
int R=0;
T0* _wa=NULL;
T0* _an2=NULL;
T0* _args=NULL;
T0* _a=NULL;
T0* _rb=NULL;
_rb=(((T832*)C))->_routine_body/*32*/;
_args=(((T832*)C))->_arguments/*20*/;
/*IF*/if (((_rb)!=((void*)(NULL)))&&((r592count(((T592*)_rb)))==(1))) {
_a=r592first(((T592*)_rb));
if(NULL!=(_a))switch(((T0*)_a)->id) {
case 629: 
break;
default:
_a=NULL;
};/*IF*/if ((_a)!=((void*)(NULL))) {
_wa=(((T629*)((T629*)_a)))->_left_side/*8*/;
if(NULL!=(_wa))switch(((T0*)_wa)->id) {
case 446: 
break;
default:
_wa=NULL;
};/*IF*/if ((_wa)!=((void*)(NULL))) {
/*IF*/if ((_args)==((void*)(NULL))) {
R=!(X662use_current((((T629*)((T629*)_a)))->_right_side/*12*/));
}
 else if ((/*(IRF4.6count*/(((T65*)((T65*)((((T31*)((T31*)_args)))->_flat_list/*12*/))))->_upper/*12*//*)*/)==(1)) {
_an2=(((T629*)((T629*)_a)))->_right_side/*12*/;
if(NULL!=(_an2))switch(((T0*)_an2)->id) {
case 886: 
break;
default:
_an2=NULL;
};R=(_an2)!=((void*)(NULL));
}
/*FI*/}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
int r832empty_or_null_body(T832* C){
int R=0;
T0* _rb=NULL;
_rb=(((T832*)C))->_routine_body/*32*/;
R=((_rb)==((void*)(NULL)))||(/*(IRF4.7empty_or_null_body*/((((T592*)((T592*)_rb)))->_list/*8*/)==(NULL)/*)*/);
return R;
}
/*No:RUN_FEATURE_3.ucs_in_computation*/
int r832need_local_vars(T832* C){
int R=0;
/*IF*/if (((((T832*)C))->_local_vars/*48*/)!=((void*)(NULL))) {
R=r620produce_c(((T620*)((((T832*)C))->_local_vars/*48*/)));
}
/*FI*/return R;
}
void r832make(T832* C,T0* a1,T0* a2,T0* a3){
C->_current_type=a1;
C->_name=a2;
C->_base_feature=a3;
r199put(((T199*)((((T355*)((T355*)(r832run_class(C)))))->_feature_dictionary/*24*/)),(T0*)C,X776to_key(a2));
r604incr_magic_count(((T604*)(oBC364small_eiffel)));
C->_use_current_state=1005;
r604push(((T604*)(oBC364small_eiffel)),(T0*)C);
r832initialize(C);
r604pop(((T604*)(oBC364small_eiffel)));
}
void r832std_compute_use_current(T832* C){
/*IF*/if (((((T832*)C))->_use_current_state/*40*/)==(1006)) {
/*IF*/if (((((T832*)C))->_require_assertion/*28*/)!=((void*)(NULL))) {
/*IF*/if (r567use_current(((T567*)((((T832*)C))->_require_assertion/*28*/)))) {
C->_use_current_state=1004;
}
/*FI*/}
/*FI*/}
/*FI*//*IF*/if (((((T832*)C))->_use_current_state/*40*/)==(1006)) {
/*IF*/if (((((T832*)C))->_routine_body/*32*/)!=((void*)(NULL))) {
/*IF*/if (r592use_current(((T592*)((((T832*)C))->_routine_body/*32*/)))) {
C->_use_current_state=1004;
}
/*FI*/}
/*FI*/}
/*FI*//*IF*/if (((((T832*)C))->_use_current_state/*40*/)==(1006)) {
/*IF*/if (((((T832*)C))->_ensure_assertion/*36*/)!=((void*)(NULL))) {
/*IF*/if (r633use_current(((T633*)((((T832*)C))->_ensure_assertion/*36*/)))) {
C->_use_current_state=1004;
}
/*FI*/}
/*FI*/}
/*FI*//*IF*/if (((((T832*)C))->_use_current_state/*40*/)==(1006)) {
C->_use_current_state=1003;
}
/*FI*/}
/*No:RUN_FEATURE_3.name*/
void r832mapping_name(T832* C){
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='r';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_integer*/r544put_integer(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),r832id(C));
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),X776to_key((((T832*)C))->_name/*16*/));
/*]*/
}
int r832arg_count(T832* C){
int R=0;
/*IF*/if (((((T832*)C))->_arguments/*20*/)!=((void*)(NULL))) {
R=/*(IRF4.6count*/(((T65*)((T65*)((((T31*)((T31*)((((T832*)C))->_arguments/*20*/))))->_flat_list/*12*/))))->_upper/*12*//*)*/;
}
/*FI*/return R;
}
void r832routine_afd_check(T832* C){
/*IF*/if (((((T832*)C))->_require_assertion/*28*/)!=((void*)(NULL))) {
r567afd_check(((T567*)((((T832*)C))->_require_assertion/*28*/)));
}
/*FI*//*IF*/if (((((T832*)C))->_routine_body/*32*/)!=((void*)(NULL))) {
r592afd_check(((T592*)((((T832*)C))->_routine_body/*32*/)));
}
/*FI*//*IF*/if (((((T832*)C))->_ensure_assertion/*36*/)!=((void*)(NULL))) {
r633afd_check(((T633*)((((T832*)C))->_ensure_assertion/*36*/)));
}
/*FI*/}
/*No:RUN_FEATURE_3.fz_open_c_comment*/
/*No:RUN_FEATURE_3.local_vars*/
void r832default_mapping_procedure(T832* C){
r832mapping_name(C);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
r324put_target_as_target(((T324*)(oBC364cpp)));
/*IF*/if ((r832arg_count(C))>(0)) {
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\54';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
r324put_arguments(((T324*)(oBC364cpp)));
}
/*FI*//*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms148_470));
/*]*/
}
int r832dca(T832* C){
int R=0;
T0* _args=NULL;
T0* _rf=NULL;
T0* _pc=NULL;
_pc=r832body_one_dpca(C);
/*IF*/if (((_pc)!=((void*)(NULL)))&&(((((T832*)C))->_local_vars/*48*/)==((void*)(NULL)))) {
_rf=/*X173*/((T0*)(((T268*)((T268*)_pc)))->_run_feature/*16*/);
/*IF*/if ((_rf)!=((void*)(C))) {
_args=X173arguments(_pc);
/*IF*/if ((_args)==((void*)(NULL))) {
R=(r832arg_count(C))==(0);
}
else {
R=X431isa_dca_inline(_args,(T0*)C,_rf);
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
/*No:RUN_FEATURE_3.C_attribute_writer*/
/*No:RUN_FEATURE_3.base_feature*/
void r832define_opening(T832* C){
T0* _t=NULL;
int _i=0;
/*IF*/if (((((T832*)C))->_result_type/*24*/)!=((void*)(NULL))) {
_t=X291run_type((((T832*)C))->_result_type/*24*/);
/*[IRF3.3clear*/((((T7*)(((T7*)(oBC496c_code)))))->_count)=(0);
/*]*/
X291c_type_for_result_in(_t,oBC496c_code);
r7extend(((T7*)(oBC496c_code)),'\40');
r7extend(((T7*)(oBC496c_code)),'R');
r7extend(((T7*)(oBC496c_code)),'\75');
X291c_initialize_in(_t,oBC496c_code);
r7append(((T7*)(oBC496c_code)),((T0*)ms134_470));
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),oBC496c_code);
/*]*/
}
/*FI*//*IF*/if (((((T832*)C))->_local_vars/*48*/)!=((void*)(NULL))) {
r620compile_to_c(((T620*)((((T832*)C))->_local_vars/*48*/)));
}
/*FI*//*IF*/if (r590ensure_check(((T590*)(oBC364run_control)))) {
/*IF*/if (((((T832*)C))->_ensure_assertion/*36*/)!=((void*)(NULL))) {
r633compile_to_c_old(((T633*)((((T832*)C))->_ensure_assertion/*36*/)));
}
/*FI*/}
/*FI*//*IF*/if (((((T832*)C))->_local_vars/*48*/)!=((void*)(NULL))) {
r620initialize_expanded(((T620*)((((T832*)C))->_local_vars/*48*/)));
}
/*FI*//*IF*/if (r590no_check(((T590*)(oBC364run_control)))) {
r324rs_link(((T324*)(oBC364cpp)),(T0*)C);
/*IF*/if (r832use_current(C)) {
/*[IRF3.6rs_push_current*/{T324* C1=((T324*)(oBC364cpp));
T0* b1=(((T832*)C))->_current_type/*4*/;
r324rs_push(C1,((T0*)ms143_473),((T0*)ms157_324),b1);
}/*]*/
}
/*FI*/_i=1;
while (!((_i)>(r832arg_count(C)))) {
_t=X291run_type(r31type(((T31*)((((T832*)C))->_arguments/*20*/)),_i));
r324rs_push_argument(((T324*)(oBC364cpp)),(((T873*)((T873*)(/*(IRF4.6name*/r65item(((T65*)((((T31*)((T31*)((((T832*)C))->_arguments/*20*/))))->_flat_list/*12*/)),_i)/*)*/))))->_to_string/*12*/,_i,_t);
_i=(_i)+(1);
}
/*IF*/if (((((T832*)C))->_result_type/*24*/)!=((void*)(NULL))) {
/*[IRF3.6rs_push_result*/{T324* C1=((T324*)(oBC364cpp));
T0* b1=X291run_type((((T832*)C))->_result_type/*24*/);
r324rs_push(C1,((T0*)ms146_473),((T0*)ms158_324),b1);
}/*]*/
}
/*FI*//*IF*/if (((((T832*)C))->_local_vars/*48*/)!=((void*)(NULL))) {
_i=1;
while (!((_i)>(/*(IRF4.6count*/(((T733*)((T733*)((((T620*)((T620*)((((T832*)C))->_local_vars/*48*/))))->_flat_list/*12*/))))->_upper/*12*//*)*/))) {
r39c_trace(((T39*)(/*(IRF4.6name*/r733item(((T733*)((((T620*)((T620*)((((T832*)C))->_local_vars/*48*/))))->_flat_list/*12*/)),_i)/*)*/)));
_i=(_i)+(1);
}
}
/*FI*/}
/*FI*//*IF*/if (((((T832*)C))->_require_assertion/*28*/)!=((void*)(NULL))) {
r567compile_to_c(((T567*)((((T832*)C))->_require_assertion/*28*/)));
}
/*FI*/}
/*No:RUN_FEATURE_3.start_position*/
/*No:RUN_FEATURE_3.do_not_inline*/
/*No:RUN_FEATURE_3.fz_close_c_comment*/
/*No:RUN_FEATURE_3.fz_00*/
/*No:RUN_FEATURE_3.ensure_assertion*/
int r832is_exported_in(T832* C,T0* a1){
int R=0;
R=r636gives_permission_to(((T636*)(r832clients(C))),a1);
return R;
}
void r832compute_use_current(T832* C){
/*IF*/if ((X291is_reference((((T832*)C))->_current_type/*4*/))&&(r590no_check(((T590*)(oBC364run_control))))) {
C->_use_current_state=1004;
}
else {
r832std_compute_use_current(C);
}
/*FI*/}
/*No:RUN_FEATURE_3.fz_12*/
/*No:RUN_FEATURE_3.result_type*/
/*No:RUN_FEATURE_3.in_line_status*/
/*No:RUN_FEATURE_3.fz_13*/
/*No:RUN_FEATURE_3.C_one_pc*/
/*No:RUN_FEATURE_3.is_static*/
/*No:RUN_FEATURE_3.fz_14*/
void r832add_client(T832* C,T0* a1){
int _i=0;
/*IF*/if (((((T832*)C))->_actuals_clients/*12*/)==((void*)(NULL))) {
{T187*n=malloc(sizeof(*n));
*n=M187;
r187with_capacity(n,4);
C->_actuals_clients=(T0*)n;
}
r187add_last(((T187*)((((T832*)C))->_actuals_clients/*12*/)),a1);
}
else {
_i=r187fast_index_of(((T187*)((((T832*)C))->_actuals_clients/*12*/)),a1);
/*IF*/if ((_i)>((((T187*)((T187*)((((T832*)C))->_actuals_clients/*12*/))))->_upper/*8*/)) {
r187add_last(((T187*)((((T832*)C))->_actuals_clients/*12*/)),a1);
}
/*FI*/}
/*FI*/r355add_client(((T355*)(r832run_class(C))),a1);
}
T0*oBC832tmp_string=NULL;
/*No:RUN_FEATURE_3.require_assertion*/
/*No:RUN_FEATURE_3.use_current_state*/
int r832isa_in_line(T832* C){
int R=0;
/*IF*/if (r590boost(((T590*)(oBC364run_control)))) {
{int z1=(((T832*)C))->_in_line_status/*52*/;

if((-1==z1)){
}
 else 
if((0==z1)){
R=1;
/*IF*/if ((((T0*)ms64_473))==((void*)(X776to_string((((T832*)C))->_name/*16*/)))) {
C->_in_line_status=-(1);
R=0;
}
 else if (r832empty_or_null_body(C)) {
C->_in_line_status=1;
}
 else if (r832do_not_use_current(C)) {
C->_in_line_status=2;
}
 else if (r832attribute_writer(C)) {
C->_in_line_status=3;
}
 else if (r832direct_call(C)) {
C->_in_line_status=4;
}
 else if (r832dca(C)) {
C->_in_line_status=5;
}
 else if (r832one_pc(C)) {
C->_in_line_status=6;
}
else {
C->_in_line_status=-(1);
R=0;
}
/*FI*/}
 else{R=1;
}}
}
/*FI*/return R;
}
/*No:RUN_FEATURE_3.can_be_dropped*/
/*No:RUN_FEATURE_3.C_dca*/
/*No:RUN_FEATURE_3.current_type*/
T0* r832run_class(T832* C){
T0* R=NULL;
R=X291run_class((((T832*)C))->_current_type/*4*/);
return R;
}
/*No:RUN_FEATURE_3.C_empty_or_null_body*/
/*No:RUN_FEATURE_3.static_value_mem*/
void r832define_prototype(T832* C){
int _mem_id=0;
_mem_id=r832id(C);
/*[IRF3.3clear*/((((T7*)(((T7*)(oBC496c_code)))))->_count)=(0);
/*]*/
/*IF*/if (((((T832*)C))->_result_type/*24*/)==((void*)(NULL))) {
r7append(((T7*)(oBC496c_code)),((T0*)ms133_470));
}
else {
X291c_type_for_result_in(X291run_type((((T832*)C))->_result_type/*24*/),oBC496c_code);
}
/*FI*/r7extend(((T7*)(oBC496c_code)),'\40');
r7extend(((T7*)(oBC496c_code)),'r');
r2append_in(_mem_id,oBC496c_code);
X776mapping_c_in((((T832*)C))->_name/*16*/,oBC496c_code);
r7extend(((T7*)(oBC496c_code)),'\50');
/*IF*/if (r832use_current(C)) {
X291c_type_for_target_in((((T832*)C))->_current_type/*4*/,oBC496c_code);
r7extend(((T7*)(oBC496c_code)),'\40');
r7extend(((T7*)(oBC496c_code)),'C');
/*IF*/if (((((T832*)C))->_arguments/*20*/)!=((void*)(NULL))) {
r7extend(((T7*)(oBC496c_code)),'\54');
}
/*FI*/}
/*FI*//*IF*/if (((((T832*)C))->_arguments/*20*/)==((void*)(NULL))) {
/*IF*/if (!(r832use_current(C))) {
r7append(((T7*)(oBC496c_code)),((T0*)ms133_470));
}
/*FI*/}
else {
r31compile_to_c_in(((T31*)((((T832*)C))->_arguments/*20*/)),oBC496c_code);
}
/*FI*/r7extend(((T7*)(oBC496c_code)),'\51');
r324put_c_heading(((T324*)(oBC364cpp)),oBC496c_code);
/*[IRF3.3swap_on_c*/((((T324*)(((T324*)(oBC364cpp)))))->_current_out)=(oBC324out_c);
/*]*/
}
/*No:RUN_FEATURE_3.fz_b5*/
/*No:RUN_FEATURE_3.ucs_not_computed*/
void r832fall_down(T832* C){
T0* _rf=NULL;
T0* _sub_name=NULL;
T0* _sub_bc=NULL;
T0* _current_bc=NULL;
T0* _sub_rc=NULL;
T0* _current_rc=NULL;
int _i=0;
T0* _running=NULL;
_current_rc=X291run_class((((T832*)C))->_current_type/*4*/);
_running=(((T355*)((T355*)_current_rc)))->_running/*12*/;
/*IF*/if ((_running)!=((void*)(NULL))) {
_current_bc=X291base_class((((T832*)C))->_current_type/*4*/);
_i=(((T396*)((T396*)_running)))->_lower/*12*/;
while (!((_i)>((((T396*)((T396*)_running)))->_upper/*8*/))) {
_sub_rc=r396item(((T396*)_running),_i);
/*IF*/if ((_sub_rc)!=((void*)(_current_rc))) {
_sub_bc=X291base_class((((T355*)((T355*)_sub_rc)))->_current_type/*0*/);
_sub_name=r605new_name_of(((T605*)_sub_bc),_current_bc,(((T832*)C))->_name/*16*/);
_rf=r355get_feature(((T355*)_sub_rc),_sub_name);
}
/*FI*/_i=(_i)+(1);
}
}
/*FI*/}
void r832in_line(T832* C){
T0* _rf=NULL;
T0* _pc=NULL;
T0* _e=NULL;
T0* _w=NULL;
T0* _a=NULL;
int _flag=0;
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms1_832));
/*]*/
/*[IRF3.5put_integer*/r544put_integer(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),(((T832*)C))->_in_line_status/*52*/);
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),X776to_string((((T832*)C))->_name/*16*/));
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms81_470));
/*]*/
{int z1=(((T832*)C))->_in_line_status/*52*/;

if((1==z1)){
/*IF*/if (r324cannot_drop_all(((T324*)(oBC364cpp)))) {
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms148_470));
/*]*/
}
/*FI*//*IF*/if (r832need_local_vars(C)) {
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\173';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
r832define_opening(C);
r832define_closing(C);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\175';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
/*FI*/}
 else 
if((2==z1)){
/*IF*/if (r324target_cannot_be_dropped(((T324*)(oBC364cpp)))) {
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms148_470));
/*]*/
}
/*FI*/_flag=r832need_local_vars(C);
/*IF*/if (_flag) {
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\173';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
r832define_opening(C);
}
/*FI*/r592compile_to_c(((T592*)((((T832*)C))->_routine_body/*32*/)));
/*IF*/if (_flag) {
r832define_closing(C);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\175';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
/*FI*/}
 else 
if((3==z1)){
_flag=r832need_local_vars(C);
/*IF*/if (_flag) {
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\173';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
r832define_opening(C);
}
/*FI*/_a=r592first(((T592*)((((T832*)C))->_routine_body/*32*/)));
if(NULL!=(_a))switch(((T0*)_a)->id) {
case 629: 
break;
default:
_a=NULL;
};_w=(((T629*)((T629*)_a)))->_left_side/*8*/;
if(NULL!=(_w))switch(((T0*)_w)->id) {
case 406: case 454: case 446: 
break;
default:
_w=NULL;
};_w=X776name_in(_w,X291base_class((((T832*)C))->_current_type/*4*/));
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
X291mapping_cast((((T832*)C))->_current_type/*4*/);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
r324put_target_as_target(((T324*)(oBC364cpp)));
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms147_470));
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms240_470));
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),X776to_string(_w));
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\51';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\75';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
_e=(((T629*)((T629*)_a)))->_right_side/*12*/;
/*IF*/if (((((T832*)C))->_arguments/*20*/)==((void*)(NULL))) {
X662compile_to_c(_e);
}
else {
r324put_arguments(((T324*)(oBC364cpp)));
}
/*FI*//*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\51';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms134_470));
/*]*/
/*IF*/if (_flag) {
r832define_closing(C);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\175';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
/*FI*/}
 else 
if((4==z1)){
_flag=r832need_local_vars(C);
/*IF*/if (_flag) {
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\173';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
r832define_opening(C);
}
/*FI*/_pc=r592first(((T592*)((((T832*)C))->_routine_body/*32*/)));
if(NULL!=(_pc))switch(((T0*)_pc)->id) {
case 268: case 317: case 568: 
break;
default:
_pc=NULL;
};_rf=/*X173*/((T0*)(((T268*)((T268*)_pc)))->_run_feature/*16*/);
r324push_same_target(((T324*)(oBC364cpp)),_rf,X173arguments(_pc));
X496mapping_c(_rf);
r324pop(((T324*)(oBC364cpp)));
/*IF*/if (_flag) {
r832define_closing(C);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\175';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
/*FI*/}
 else 
if((5==z1)){
_pc=r592first(((T592*)((((T832*)C))->_routine_body/*32*/)));
if(NULL!=(_pc))switch(((T0*)_pc)->id) {
case 268: case 317: case 568: 
break;
default:
_pc=NULL;
};X173finalize(_pc);
r324push_inline_dca(((T324*)(oBC364cpp)),(T0*)C,_pc);
X496mapping_c(/*X173*/((T0*)(((T268*)((T268*)_pc)))->_run_feature/*16*/));
r324pop(((T324*)(oBC364cpp)));
}
 else {/*IF*/if (!(r832use_current(C))) {
/*IF*/if (r324target_cannot_be_dropped(((T324*)(oBC364cpp)))) {
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms148_470));
/*]*/
}
/*FI*/}
/*FI*//*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\173';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*IF*/if (r832use_current(C)) {
/*[IRF3.3clear*/((((T7*)(((T7*)(oBC832tmp_string)))))->_count)=(0);
/*]*/
X291c_type_for_target_in((((T832*)C))->_current_type/*4*/,oBC832tmp_string);
r7extend(((T7*)(oBC832tmp_string)),'\40');
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),oBC832tmp_string);
/*]*/
r324inline_level_incr(((T324*)(oBC364cpp)));
r324print_current(((T324*)(oBC364cpp)));
r324inline_level_decr(((T324*)(oBC364cpp)));
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\75';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
r324put_target_as_target(((T324*)(oBC364cpp)));
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms134_470));
/*]*/
}
/*FI*//*IF*/if (((((T832*)C))->_arguments/*20*/)!=((void*)(NULL))) {
r31inline_one_pc(((T31*)((((T832*)C))->_arguments/*20*/)));
}
/*FI*//*IF*/if (r832need_local_vars(C)) {
r620inline_one_pc(((T620*)((((T832*)C))->_local_vars/*48*/)));
r324inline_level_incr(((T324*)(oBC364cpp)));
r620initialize_expanded(((T620*)((((T832*)C))->_local_vars/*48*/)));
r324inline_level_decr(((T324*)(oBC364cpp)));
}
/*FI*//*[IRF3.4push_inline_one_pc*/r324stack_push(((T324*)(oBC364cpp)),1014);
/*]*/
r324inline_level_incr(((T324*)(oBC364cpp)));
r592compile_to_c(((T592*)((((T832*)C))->_routine_body/*32*/)));
r324inline_level_decr(((T324*)(oBC364cpp)));
r324pop(((T324*)(oBC364cpp)));
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\175';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}}
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms2_832));
/*]*/
}
/*No:RUN_FEATURE_3.routine_body*/
/*No:RUN_FEATURE_3.fz_void*/
/*No:RUN_FEATURE_3.C_direct_call*/
/*No:RUN_FEATURE_3.ucs_false*/
int r832is_pre_computable(T832* C){
int R=0;
/*IF*/if (((((T832*)C))->_arguments/*20*/)==((void*)(NULL))) {
/*IF*/if (((((T832*)C))->_routine_body/*32*/)==((void*)(NULL))) {
R=1;
}
else {
/*IF*/if (((((T832*)C))->_local_vars/*48*/)==((void*)(NULL))) {
R=r592is_pre_computable(((T592*)((((T832*)C))->_routine_body/*32*/)));
}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
T0* r832clients(T832* C){
T0* R=NULL;
T0* _bfbc=NULL;
T0* _bc=NULL;
/*IF*/if (((((T832*)C))->_clients_memory/*8*/)==((void*)(NULL))) {
_bc=X291base_class((((T832*)C))->_current_type/*4*/);
_bfbc=(((T297*)((T297*)((((T832*)C))->_base_feature/*44*/))))->_base_class/*4*/;
/*IF*/if ((_bc)==((void*)(_bfbc))) {
R=(((T297*)((T297*)((((T832*)C))->_base_feature/*44*/))))->_clients/*24*/;
}
else {
R=r605clients_for(((T605*)_bc),(((T832*)C))->_name/*16*/);
}
/*FI*/C->_clients_memory=R;
}
else {
R=(((T832*)C))->_clients_memory/*8*/;
}
/*FI*/return R;
}
int r832use_current(T832* C){
int R=0;
{int z1=(((T832*)C))->_use_current_state/*40*/;

if((1004==z1)){
R=1;
}
 else 
if((1003==z1)){
}
 else 
if((1005==z1)){
C->_use_current_state=1006;
r832compute_use_current(C);
R=r832use_current(C);
}
 else {R=1;
}}
return R;
}
T0* r832body_one_dpca(T832* C){
T0* R=NULL;
T0* _r=NULL;
T0* _rf2=NULL;
T0* _c0c=NULL;
T0* _pc=NULL;
T0* _rb=NULL;
/*IF*/if (((((T832*)C))->_local_vars/*48*/)==((void*)(NULL))) {
_rb=(((T832*)C))->_routine_body/*32*/;
/*IF*/if (((_rb)!=((void*)(NULL)))&&((r592count(((T592*)_rb)))==(1))) {
_pc=r592first(((T592*)_rb));
if(NULL!=(_pc))switch(((T0*)_pc)->id) {
case 268: case 317: case 568: 
break;
default:
_pc=NULL;
};/*IF*/if ((_pc)!=((void*)(NULL))) {
_c0c=/*X173*/((T0*)(((T268*)((T268*)_pc)))->_target/*8*/);
if(NULL!=(_c0c))switch(((T0*)_c0c)->id) {
case 487: 
break;
default:
_c0c=NULL;
};/*IF*/if (((_c0c)!=((void*)(NULL)))&&(X662is_current((((T487*)((T487*)_c0c)))->_target/*12*/))) {
_rf2=(((T487*)((T487*)_c0c)))->_run_feature/*20*/;
if(NULL!=(_rf2))switch(((T0*)_rf2)->id) {
case 820: 
break;
default:
_rf2=NULL;
};/*IF*/if ((_rf2)!=((void*)(NULL))) {
_r=(((T355*)((T355*)(r820run_class(((T820*)_rf2))))))->_running/*12*/;
/*IF*/if (((_r)!=((void*)(NULL)))&&((r396count(((T396*)_r)))==(1))) {
_r=(((T355*)((T355*)(X496run_class(/*X173*/((T0*)(((T268*)((T268*)_pc)))->_run_feature/*16*/))))))->_running/*12*/;
/*IF*/if (((_r)!=((void*)(NULL)))&&((r396count(((T396*)_r)))==(1))) {
R=_pc;
}
/*FI*/}
/*FI*/}
/*FI*/}
/*FI*/}
/*FI*/}
/*FI*/}
/*FI*/return R;
}
T0* r832is_attribute_writer(T832* C){
T0* R=NULL;
T0* _a=NULL;
/*IF*/if (r832isa_in_line(C)) {
/*IF*/if (((((T832*)C))->_in_line_status/*52*/)==(3)) {
_a=r592first(((T592*)((((T832*)C))->_routine_body/*32*/)));
if(NULL!=(_a))switch(((T0*)_a)->id) {
case 629: 
break;
default:
_a=NULL;
};R=(((T629*)((T629*)_a)))->_left_side/*8*/;
if(NULL!=(R))switch(((T0*)R)->id) {
case 446: 
break;
default:
R=NULL;
};}
/*FI*/}
/*FI*/return R;
}
void r832mapping_c(T832* C){
/*IF*/if (r832isa_in_line(C)) {
r832in_line(C);
}
 else if (r832use_current(C)) {
r832default_mapping_procedure(C);
}
else {
/*IF*/if (r324target_cannot_be_dropped(((T324*)(oBC364cpp)))) {
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms148_470));
/*]*/
}
/*FI*/r832mapping_name(C);
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\50';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
/*IF*/if ((r832arg_count(C))>(0)) {
r324put_arguments(((T324*)(oBC364cpp)));
}
/*FI*//*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms148_470));
/*]*/
}
/*FI*/}
int r832is_empty_or_null_body(T832* C){
int R=0;
/*IF*/if (r832isa_in_line(C)) {
R=((((T832*)C))->_in_line_status/*52*/)==(1);
}
/*FI*/return R;
}
/*No:RUN_FEATURE_3.address_of*/
void r832put_tag(T832* C){
T0* _fn=NULL;
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\42';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
_fn=/*(IRF4.6first_name*//*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T297*)((T297*)((((T832*)C))->_base_feature/*44*/))))->_names/*8*/))))->_list/*0*/)),1)/*)*//*)*/;
X776cpp_put_infix_or_prefix(_fn);
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),X776to_string(_fn));
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms1_496));
/*]*/
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),(((T451*)((T451*)(/*(IRF4.6base_class_name*/(((T605*)((T605*)((((T297*)((T297*)((((T832*)C))->_base_feature/*44*/))))->_base_class/*4*/))))->_base_class_name/*24*//*)*/))))->_to_string/*0*/);
/*]*/
/*[IRF3.5put_character*//*[IRF3.6put_character*/{T544* C1=((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/));
char b1='\42';
putc(b1,((FILE*)((((T544*)C1))->_output_stream/*4*/)));
}/*]*/
/*]*/
}
/*No:RUN_FEATURE_3.clients_memory*/
void r832initialize(T832* C){
C->_arguments=(((T297*)((T297*)((((T832*)C))->_base_feature/*44*/))))->_arguments/*28*/;
/*IF*/if (((((T832*)C))->_arguments/*20*/)!=((void*)(NULL))) {
C->_arguments=r31to_runnable(((T31*)((((T832*)C))->_arguments/*20*/)),(((T832*)C))->_current_type/*4*/);
}
/*FI*/C->_local_vars=(((T297*)((T297*)((((T832*)C))->_base_feature/*44*/))))->_local_vars/*20*/;
/*IF*/if (((((T832*)C))->_local_vars/*48*/)!=((void*)(NULL))) {
C->_local_vars=r620to_runnable(((T620*)((((T832*)C))->_local_vars/*48*/)),(((T832*)C))->_current_type/*4*/);
}
/*FI*/C->_routine_body=(((T297*)((T297*)((((T832*)C))->_base_feature/*44*/))))->_routine_body/*52*/;
/*IF*/if (((((T832*)C))->_routine_body/*32*/)!=((void*)(NULL))) {
C->_routine_body=r592to_runnable(((T592*)((((T832*)C))->_routine_body/*32*/)),(((T832*)C))->_current_type/*4*/);
}
/*FI*//*IF*/if (r590require_check(((T590*)(oBC364run_control)))) {
C->_require_assertion=r297run_require((T0*)C);
}
/*FI*//*IF*/if (r590ensure_check(((T590*)(oBC364run_control)))) {
C->_ensure_assertion=r297run_ensure((T0*)C);
}
/*FI*/}
/*No:RUN_FEATURE_3.afd_check*/
T0* r530add_comment(T530* C,T0* a1){
T0* R=NULL;
/*IF*/if (((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(0))) {
R=(T0*)C;
}
 else {/*AT*//*IF*/if ((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(1)) {
R=(T0*)C;
}
else {
{T46*n=malloc(sizeof(*n));
*n=M46;
r46make(n,(T0*)C,a1);
R=(T0*)n;
}
}
/*FI*/}
/*FI*/return R;
}
/*No:IFTHENELSE.static_false*/
/*No:IFTHENELSE.make*/
/*No:IFTHENELSE.nb_errors*/
/*No:IFTHENELSE.set_else_compound*/
/*No:IFTHENELSE.static_true*/
/*No:IFTHENELSE.start_position*/
void r530compile_to_c(T530* C){
int _static_value=0;
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms1_530));
/*]*/
_static_value=r712compile_to_c(((T712*)((((T530*)C))->_ifthenlist/*12*/)));
{int z1=_static_value;

if((1017==z1)){
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms2_530));
/*]*/
/*IF*/if (((((T530*)C))->_else_compound/*16*/)!=((void*)(NULL))) {
r592compile_to_c(((T592*)((((T530*)C))->_else_compound/*16*/)));
}
/*FI*/}
 else 
if((1016==z1)){
}
 else {/*IF*/if (((((T530*)C))->_else_compound/*16*/)!=((void*)(NULL))) {
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms3_530));
/*]*/
r592compile_to_c(((T592*)((((T530*)C))->_else_compound/*16*/)));
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms4_530));
/*]*/
}
/*FI*/}}
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms5_530));
/*]*/
}
T0* r530to_runnable(T530* C,T0* a1){
T0* R=NULL;
T0* _ec=NULL;
T0* _itl=NULL;
int _ne=0;
_ne=/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/;
/*IF*/if (((((T530*)C))->_run_compound/*4*/)==((void*)(NULL))) {
C->_run_compound=a1;
_itl=r712to_runnable(((T712*)((((T530*)C))->_ifthenlist/*12*/)),a1);
/*IF*/if ((_itl)==((void*)(NULL))) {
}
else {
C->_ifthenlist=_itl;
}
/*FI*//*IF*/if ((((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)-(_ne))==(0))&&(((((T530*)C))->_else_compound/*16*/)!=((void*)(NULL)))) {
_ec=r592to_runnable(((T592*)((((T530*)C))->_else_compound/*16*/)),r530current_type(C));
/*IF*/if ((_ec)==((void*)(NULL))) {
}
else {
C->_else_compound=_ec;
}
/*FI*/}
/*FI*//*IF*/if ((_itl)!=((void*)(NULL))) {
R=(T0*)C;
}
/*FI*/}
else {
R=r530to_runnable(((T530*)(r530twin(C))),a1);
}
/*FI*/return R;
}
T0* r530twin(T530* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T530*)R)=M530;
r530copy(((T530*)R),((T0*)C));
return R;
}
/*No:IFTHENELSE.ifthenlist*/
/*No:IFTHENELSE.else_compound*/
void r530copy(T530* C,T0* a1){
C->_start_position=(((T530*)((T530*)a1)))->_start_position/*8*/;
C->_ifthenlist=(((T530*)((T530*)a1)))->_ifthenlist/*12*/;
C->_else_compound=(((T530*)((T530*)a1)))->_else_compound/*16*/;
}
T0* r530current_type(T530* C){
T0* R=NULL;
/*IF*/if (((((T530*)C))->_run_compound/*4*/)!=((void*)(NULL))) {
R=(((T592*)((T592*)((((T530*)C))->_run_compound/*4*/))))->_current_type/*4*/;
}
/*FI*/return R;
}
/*No:IFTHENELSE.run_compound*/
/*No:IFTHENELSE.non_static*/
/*No:IFTHENELSE.is_pre_computable*/
int r530use_current(T530* C){
int R=0;
/*IF*/if (r712use_current(((T712*)((((T530*)C))->_ifthenlist/*12*/)))) {
R=1;
}
 else if (((((T530*)C))->_else_compound/*16*/)!=((void*)(NULL))) {
R=r592use_current(((T592*)((((T530*)C))->_else_compound/*16*/)));
}
/*FI*/return R;
}
void r530add_if_then(T530* C,T0* a1,T0* a2){
T0* _ifthen=NULL;
{T809*n=malloc(sizeof(*n));
*n=M809;
r809make(n,a1,a2);
_ifthen=(T0*)n;
}
/*IF*/if (((((T530*)C))->_ifthenlist/*12*/)==((void*)(NULL))) {
{T712*n=malloc(sizeof(*n));
*n=M712;
/*[IRF3.3make*/((((T712*)(n)))->_list)=(se_ma948(1,_ifthen));
/*]*/
C->_ifthenlist=(T0*)n;
}
}
else {
/*[IRF3.5add_last*/r948add_last(((T948*)((((T712*)((T712*)((((T530*)C))->_ifthenlist/*12*/))))->_list/*0*/)),_ifthen);
/*]*/
}
/*FI*/}
/*No:IFTHENELSE.end_mark_comment*/
void r530afd_check(T530* C){
r712afd_check(((T712*)((((T530*)C))->_ifthenlist/*12*/)));
/*IF*/if (((((T530*)C))->_else_compound/*16*/)!=((void*)(NULL))) {
r592afd_check(((T592*)((((T530*)C))->_else_compound/*16*/)));
}
/*FI*/}
/*No:EXTERNAL_PROCEDURE.arguments*/
T0* r883try_to_undefine(T883* C,T0* a1,T0* a2){
T0* R=NULL;
X776undefine_in(a1,a2);
R=r883try_to_undefine_aux(C,a1,a2);
/*IF*/if ((R)!=((void*)(NULL))) {
/*X249*//*[IRF3.3set_clients*/((((T853*)(((T853*)R))))->_clients)=((((T883*)C))->_clients/*20*/);
/*]*/
}
else {
r605fatal_undefine(((T605*)a2),a1);
}
/*FI*/return R;
}
/*No:EXTERNAL_PROCEDURE.is_deferred*/
/*No:EXTERNAL_PROCEDURE.fz_bad_assertion*/
T0* r883runnable(T0* a1,T0* a2,T0* a3){
T0* R=NULL;
T0* _a=NULL;
int _i=0;
/*IF*/if (!(r608empty(((T608*)a1)))) {
R=r608twin(((T608*)a1));
_i=(((T608*)((T608*)R)))->_upper/*8*/;
while (!((_i)==(0))) {
r604push(((T604*)(oBC364small_eiffel)),a3);
_a=r348to_runnable(((T348*)(r608item(((T608*)R),_i))),a2);
/*IF*/if ((_a)==((void*)(NULL))) {
r883error(r348start_position(((T348*)(r608item(((T608*)R),_i)))),((T0*)ms57_470));
}
else {
/*[IRF3.6put*/{T608* C1=((T608*)R);
T0* b1=_a;
int b2=_i;
((((T608*)C1))->_storage/*0*/)[(b2)-((((T608*)C1))->_lower/*12*/)]=(b1);
}/*]*/
}
/*FI*/r604pop(((T604*)(oBC364small_eiffel)));
_i=(_i)-(1);
}
}
/*FI*/return R;
}
/*No:EXTERNAL_PROCEDURE.rescue_compound*/
void r883add_into(T883* C,T0* a1){
T0* _fn=NULL;
int _i=0;
C->_base_class=r627base_class(((T627*)(X776start_position(/*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T883*)C))->_names/*8*/))))->_list/*0*/)),1)/*)*/))));
_i=1;
while (!((_i)>(/*(IRF4.6count*/(((T855*)((T855*)((((T953*)((T953*)((((T883*)C))->_names/*8*/))))->_list/*0*/))))->_upper/*8*//*)*/))) {
_fn=/*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T883*)C))->_names/*8*/))))->_list/*0*/)),_i)/*)*/;
/*IF*/if (r237has(((T237*)a1),X776to_key(_fn))) {
_fn=/*X359*/((T0*)/*(IRF4.6first_name*//*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T398*)((T398*)(r237at(((T237*)a1),X776to_key(_fn))))))->_names/*8*/))))->_list/*0*/)),1)/*)*//*)*/);
r683add_position(X776start_position(_fn));
r683add_position(X776start_position(/*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T883*)C))->_names/*8*/))))->_list/*0*/)),_i)/*)*/));
r683error(((T683*)(oBC364eh)),((T0*)ms11_359));
/*[IRF3.6append*/{T0* b1=X776to_string(_fn);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683error(((T683*)(oBC364eh)),((T0*)ms67_470));
}
else {
r237put(((T237*)a1),(T0*)C,X776to_key(_fn));
}
/*FI*/_i=(_i)+(1);
}
}
/*No:EXTERNAL_PROCEDURE.end_comment*/
T0* r883try_to_undefine_aux(T883* C,T0* a1,T0* a2){
T0* R=NULL;
{T853*n=malloc(sizeof(*n));
*n=M853;
r853from_effective(n,a1,(((T883*)C))->_arguments/*24*/,(((T883*)C))->_require_assertion/*32*/,(((T883*)C))->_ensure_assertion/*36*/,a2);
R=(T0*)n;
}
return R;
}
T0* r883external_c_name(T883* C){
T0* R=NULL;
/*IF*/if (((((T883*)C))->_alias_string/*52*/)==((void*)(NULL))) {
R=X776to_string(/*(IRF4.6first_name*//*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T883*)C))->_names/*8*/))))->_list/*0*/)),1)/*)*//*)*/);
}
else {
R=(((T883*)C))->_alias_string/*52*/;
}
/*FI*/return R;
}
void r883make(T883* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7){
r883make_routine(C,a1,a2,a3,a4,a5);
r883make_external_routine(C,a6,a7);
}
/*No:EXTERNAL_PROCEDURE.nb_errors*/
/*No:EXTERNAL_PROCEDURE.native*/
void r883make_routine(T883* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
r883make_e_feature(C,a1,NULL);
C->_header_comment=a4;
C->_arguments=a2;
C->_obsolete_mark=a3;
C->_require_assertion=a5;
}
void r883set_header_comment(T883* C,T0* a1){
/*IF*/if (((a1)!=((void*)(NULL)))&&((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)>(1))) {
C->_end_comment=a1;
}
/*FI*/}
T0* r883start_position(T883* C){
T0* R=NULL;
R=X776start_position(/*(IRF4.6first_name*//*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T883*)C))->_names/*8*/))))->_list/*0*/)),1)/*)*//*)*/);
return R;
}
T0* r883to_run_feature(T883* C,T0* a1,T0* a2){
T0* R=NULL;
r883check_obsolete(C);
{T906*n=malloc(sizeof(*n));
*n=M906;
r906make(n,a1,a2,(T0*)C);
R=(T0*)n;
}
return R;
}
/*No:EXTERNAL_PROCEDURE.alias_string*/
/*No:EXTERNAL_PROCEDURE.ensure_assertion*/
/*No:EXTERNAL_PROCEDURE.code_require*/
T0* r883run_ensure(T0* a1){
T0* R=NULL;
T0* _r=NULL;
r608clear(((T608*)(oBC359assertion_collector)));
/*[IRF3.3clear*/{T0* _default_item=NULL;
((((T56*)(((T56*)(oBC359header_comment_memory)))))->_item)=(_default_item);
}/*]*/
r605collect_for(((T605*)(X291base_class(/*X496*/((T0*)(((T832*)((T832*)a1)))->_current_type/*4*/)))),1002,/*X496*/((T0*)(((T832*)((T832*)a1)))->_name/*16*/));
_r=r883runnable(oBC359assertion_collector,/*X496*/((T0*)(((T832*)((T832*)a1)))->_current_type/*4*/),a1);
/*IF*/if ((_r)!=((void*)(NULL))) {
{T633*n=malloc(sizeof(*n));
*n=M633;
r633from_runnable(n,_r);
R=(T0*)n;
}
/*[IRF3.3set_header_comment*/((((T633*)(((T633*)R))))->_header_comment)=((((T56*)((T56*)(oBC359header_comment_memory))))->_item/*0*/);
/*]*/
/*[IRF3.3clear*/{T0* _default_item=NULL;
((((T56*)(((T56*)(oBC359header_comment_memory)))))->_item)=(_default_item);
}/*]*/
}
/*FI*/return R;
}
T0* r883run_require(T0* a1){
T0* R=NULL;
T0* _ar=NULL;
T0* _hc=NULL;
T0* _er=NULL;
T0* _r=NULL;
int _i=0;
r522clear(((T522*)(oBC359require_collector)));
r605collect_for(((T605*)(X291base_class(/*X496*/((T0*)(((T832*)((T832*)a1)))->_current_type/*4*/)))),1001,/*X496*/((T0*)(((T832*)((T832*)a1)))->_name/*16*/));
/*IF*/if (!(r522empty(((T522*)(oBC359require_collector))))) {
_i=1;
while (!((_i)>((((T522*)((T522*)(oBC359require_collector))))->_upper/*8*/))) {
_er=r522item(((T522*)(oBC359require_collector)),_i);
_hc=(((T343*)((T343*)_er)))->_header_comment/*4*/;
/*IF*/if (!(/*(IRF4.7empty*/((((T343*)((T343*)_er)))->_list/*8*/)==(NULL)/*)*/)) {
_r=r883runnable((((T343*)((T343*)_er)))->_list/*8*/,/*X496*/((T0*)(((T832*)((T832*)a1)))->_current_type/*4*/),a1);
/*IF*/if ((_r)!=((void*)(NULL))) {
{T343*n=malloc(sizeof(*n));
*n=M343;
r343from_runnable(n,_r);
_er=(T0*)n;
}
/*[IRF3.3set_header_comment*/((((T343*)(((T343*)_er))))->_header_comment)=(_hc);
/*]*/
/*IF*/if ((_ar)==((void*)(NULL))) {
_ar=se_ma522(1,_er);
}
else {
r522add_last(((T522*)_ar),_er);
}
/*FI*/}
/*FI*/}
/*FI*/_i=(_i)+(1);
}
/*IF*/if ((_ar)!=((void*)(NULL))) {
{T567*n=malloc(sizeof(*n));
*n=M567;
/*[IRF3.3make*/((((T567*)(n)))->_list)=(_ar);
/*]*/
R=(T0*)n;
}
}
/*FI*/}
/*FI*/return R;
}
/*No:EXTERNAL_PROCEDURE.result_type*/
/*No:EXTERNAL_PROCEDURE.fz_03*/
/*No:EXTERNAL_PROCEDURE.em1*/
/*No:EXTERNAL_PROCEDURE.obsolete_mark*/
/*No:EXTERNAL_PROCEDURE.set_clients*/
/*No:EXTERNAL_PROCEDURE.em2*/
/*No:EXTERNAL_PROCEDURE.names*/
/*No:EXTERNAL_PROCEDURE.require_assertion*/
/*No:EXTERNAL_PROCEDURE.code_ensure*/
int r883stupid_switch(T883* C,T0* a1,T0* a2){
int R=0;
R=X845stupid_switch((((T883*)C))->_native/*48*/,X776to_string(/*(IRF4.6first_name*//*(IRF4.6item*/r855item(((T855*)((((T953*)((T953*)((((T883*)C))->_names/*8*/))))->_list/*0*/)),1)/*)*//*)*/));
return R;
}
void r883set_rescue_compound(T883* C,T0* a1){
/*IF*/if (((a1)!=((void*)(NULL)))&&(/*(IRF4.1is_deferred*/0/*)*/)) {
r883error(r883start_position(C),((T0*)ms6_368));
}
/*FI*/C->_rescue_compound=a1;
}
void r883make_external_routine(T883* C,T0* a1,T0* a2){
C->_native=a1;
C->_alias_string=a2;
}
int r883can_hide(T883* C,T0* a1,T0* a2){
int R=0;
/*IF*/if (((((T883*)C))->_result_type/*12*/)!=((void*)(/*X359*/((T0*)(((T398*)((T398*)a1)))->_result_type/*12*/)))) {
/*IF*/if ((((((T883*)C))->_result_type/*12*/)==((void*)(NULL)))||((/*X359*/((T0*)(((T398*)((T398*)a1)))->_result_type/*12*/))==((void*)(NULL)))) {
r683add_position(X359start_position(a1));
r883error(r883start_position(C),((T0*)ms5_359));
}
/*FI*/}
/*FI*//*IF*/if (((((T883*)C))->_arguments/*24*/)!=((void*)(X359arguments(a1)))) {
/*IF*/if ((((((T883*)C))->_arguments/*24*/)==((void*)(NULL)))||((X359arguments(a1))==((void*)(NULL)))) {
r683add_position(X359start_position(a1));
r883error(r883start_position(C),((T0*)ms6_359));
}
 else if ((/*(IRF4.6count*/(((T65*)((T65*)((((T31*)((T31*)((((T883*)C))->_arguments/*24*/))))->_flat_list/*12*/))))->_upper/*12*//*)*/)!=(/*(IRF4.6count*/(((T65*)((T65*)((((T31*)((T31*)(X359arguments(a1)))))->_flat_list/*12*/))))->_upper/*12*//*)*/)) {
r683add_position(X359start_position(a1));
r883error(r883start_position(C),((T0*)ms7_359));
}
/*FI*/}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
/*IF*/if (((((T883*)C))->_result_type/*12*/)!=((void*)(NULL))) {
/*IF*/if (!(X291is_a_in((((T883*)C))->_result_type/*12*/,/*X359*/((T0*)(((T398*)((T398*)a1)))->_result_type/*12*/),a2))) {
/*[IRF3.6append*/{T0* b1=((T0*)ms13_359);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=X291run_time_mark((((T355*)((T355*)a2)))->_current_type/*0*/);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683error(((T683*)(oBC364eh)),((T0*)ms67_470));
}
/*FI*/}
/*FI*/}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
/*IF*/if (((((T883*)C))->_arguments/*24*/)!=((void*)(NULL))) {
/*IF*/if (!(r31is_a_in(((T31*)((((T883*)C))->_arguments/*24*/)),X359arguments(a1),a2))) {
r683add_position(X359start_position(a1));
r683add_position(r883start_position(C));
/*[IRF3.6append*/{T0* b1=((T0*)ms13_359);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=X291run_time_mark((((T355*)((T355*)a2)))->_current_type/*0*/);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683error(((T683*)(oBC364eh)),((T0*)ms67_470));
}
/*FI*/}
/*FI*/}
/*FI*/R=(/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0);
return R;
}
/*No:EXTERNAL_PROCEDURE.header_comment*/
int r883is_merge_with(T883* C,T0* a1,T0* a2){
int R=0;
/*IF*/if (((((T883*)C))->_result_type/*12*/)!=((void*)(/*X359*/((T0*)(((T398*)((T398*)a1)))->_result_type/*12*/)))) {
/*IF*/if ((((((T883*)C))->_result_type/*12*/)==((void*)(NULL)))||((/*X359*/((T0*)(((T398*)((T398*)a1)))->_result_type/*12*/))==((void*)(NULL)))) {
r683add_position(X359start_position(a1));
r883error(r883start_position(C),((T0*)ms2_359));
}
/*FI*/}
/*FI*//*IF*/if (((((T883*)C))->_arguments/*24*/)!=((void*)(X359arguments(a1)))) {
/*IF*/if ((((((T883*)C))->_arguments/*24*/)==((void*)(NULL)))||((X359arguments(a1))==((void*)(NULL)))) {
r683add_position(X359start_position(a1));
r883error(r883start_position(C),((T0*)ms3_359));
}
 else if ((/*(IRF4.6count*/(((T65*)((T65*)((((T31*)((T31*)((((T883*)C))->_arguments/*24*/))))->_flat_list/*12*/))))->_upper/*12*//*)*/)!=(/*(IRF4.6count*/(((T65*)((T65*)((((T31*)((T31*)(X359arguments(a1)))))->_flat_list/*12*/))))->_upper/*12*//*)*/)) {
r683add_position(X359start_position(a1));
r883error(r883start_position(C),((T0*)ms4_359));
}
/*FI*/}
/*FI*//*IF*/if (((((T883*)C))->_result_type/*12*/)!=((void*)(NULL))) {
/*IF*/if (!(X291is_a_in((((T883*)C))->_result_type/*12*/,/*X359*/((T0*)(((T398*)((T398*)a1)))->_result_type/*12*/),a2))) {
r683error(((T683*)(oBC364eh)),((T0*)ms12_359));
}
/*FI*/}
/*FI*//*IF*/if (((((T883*)C))->_arguments/*24*/)!=((void*)(NULL))) {
/*IF*/if (!(r31is_a_in(((T31*)((((T883*)C))->_arguments/*24*/)),X359arguments(a1),a2))) {
r683add_position(X359start_position(a1));
r883error(r883start_position(C),((T0*)ms12_359));
}
/*FI*/}
/*FI*/R=(/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0);
return R;
}
/*No:EXTERNAL_PROCEDURE.fz_dot*/
/*No:EXTERNAL_PROCEDURE.set_ensure_assertion*/
/*No:EXTERNAL_PROCEDURE.first_name*/
/*No:EXTERNAL_PROCEDURE.clients*/
int r883use_current(T883* C){
int R=0;
R=X845use_current((((T883*)C))->_native/*48*/,(T0*)C);
return R;
}
void r883collect_for(T883* C,int a1){
/*IF*/if ((a1)==(1001)) {
/*IF*/if (((((T883*)C))->_require_assertion/*32*/)!=((void*)(NULL))) {
/*IF*/if (!(r522fast_has(((T522*)(oBC359require_collector)),(((T883*)C))->_require_assertion/*32*/))) {
r522add_last(((T522*)(oBC359require_collector)),(((T883*)C))->_require_assertion/*32*/);
}
/*FI*/}
/*FI*/}
else {
/*IF*/if (((((T883*)C))->_ensure_assertion/*36*/)!=((void*)(NULL))) {
/*[IRF3.3set_item*/((((T56*)(((T56*)(oBC359header_comment_memory)))))->_item)=((((T633*)((T633*)((((T883*)C))->_ensure_assertion/*36*/))))->_header_comment/*4*/);
/*]*/
r633add_into(((T633*)((((T883*)C))->_ensure_assertion/*36*/)),oBC359assertion_collector);
}
/*FI*/}
/*FI*/}
void r883error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
/*No:EXTERNAL_PROCEDURE.base_class*/
/*No:EXTERNAL_PROCEDURE.base_class_name*/