/*
-- 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"
int r283is_expanded(T283* C){
int R=0;
R=X291is_expanded((((T283*)C))->_run_type/*12*/);
return R;
}
int r283is_basic_eiffel_expanded(T283* C){
int R=0;
R=X291is_basic_eiffel_expanded((((T283*)C))->_run_type/*12*/);
return R;
}
int r283is_none(T283* C){
int R=0;
R=X291is_none((((T283*)C))->_run_type/*12*/);
return R;
}
void r283to_expanded(T283* C){
X291to_expanded((((T283*)C))->_run_type/*12*/);
}
int r283is_integer(T283* C){
int R=0;
R=X291is_integer((((T283*)C))->_run_type/*12*/);
return R;
}
void r283warning(T0* a1,T0* a2){
r683add_position(a1);
r683warning(((T683*)(oBC364eh)),a2);
}
T0* r283make_runnable(T283* C,T0* a1){
T0* R=NULL;
T0* _rt2=NULL;
_rt2=X291run_type(a1);
/*IF*/if ((_rt2)==((void*)(NULL))) {
/*IF*/if ((a1)!=((void*)(NULL))) {
r683add_position(X291start_position(a1));
}
/*FI*/r283error(/*(IRF4.6start_position*/(((T451*)((T451*)((((T283*)C))->_formal_name/*4*/))))->_start_position/*4*//*)*/,((T0*)ms59_470));
}
 else if (((((T283*)C))->_run_type/*12*/)==((void*)(NULL))) {
C->_run_type=_rt2;
R=(T0*)C;
}
else {
R=r283twin(C);
/*[IRF3.3set_run_type*/((((T283*)(((T283*)R))))->_run_type)=(_rt2);
/*]*/
}
/*FI*/return R;
}
void r283c_header_pass4(T283* C){
X291c_header_pass4((((T283*)C))->_run_type/*12*/);
}
void r320c_mapping_procedure_non_small_eiffel(T0* a1,T0* a2){
int _bfuc=0;
T0* _bf=NULL;
_bf=(((T906*)((T906*)a1)))->_base_feature/*44*/;
_bfuc=r883use_current(((T883*)_bf));
/*IF*/if ((!(_bfuc))&&(r324target_cannot_be_dropped(((T324*)(oBC364cpp))))) {
/*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms148_470));
/*]*/
}
/*FI*//*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),r883external_c_name(((T883*)_bf)));
/*]*/
/*[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 (_bfuc) {
r324put_target_as_value(((T324*)(oBC364cpp)));
}
/*FI*//*IF*/if ((r906arg_count(((T906*)a1)))>(0)) {
/*IF*/if (_bfuc) {
/*[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*/)));
}/*]*/
/*]*/
}
/*FI*/r324put_arguments(((T324*)(oBC364cpp)));
}
/*FI*//*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),((T0*)ms148_470));
/*]*/
}
void r320c_mapping_function_non_small_eiffel(T0* a1,T0* a2){
int _tcbd=0;
int _bfuc=0;
T0* _bf=NULL;
_bf=(((T892*)((T892*)a1)))->_base_feature/*48*/;
_bfuc=r679use_current(((T679*)_bf));
/*IF*/if (!(_bfuc)) {
_tcbd=r324target_cannot_be_dropped(((T324*)(oBC364cpp)));
/*IF*/if (_tcbd) {
/*[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*/)));
}/*]*/
/*]*/
}
/*FI*/}
/*FI*//*[IRF3.5put_string*/r544put_string(((T544*)((((T324*)((T324*)(oBC364cpp))))->_current_out/*56*/)),r679external_c_name(((T679*)_bf)));
/*]*/
/*[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 (_bfuc) {
r324put_target_as_value(((T324*)(oBC364cpp)));
}
/*FI*//*IF*/if ((r892arg_count(((T892*)a1)))>(0)) {
/*IF*/if (_bfuc) {
/*[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*/)));
}/*]*/
/*]*/
}
/*FI*/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*/)));
}/*]*/
/*]*/
/*IF*/if ((!(_bfuc))&&(_tcbd)) {
/*[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*/}
/*No:NATIVE_WITHOUT_CURRENT.c_define_function*/
/*No:NATIVE_WITHOUT_CURRENT.fz_14*/
/*No:NATIVE_WITHOUT_CURRENT.c_define_procedure*/
/*No:NATIVE_WITHOUT_CURRENT.stupid_switch*/
/*No:NATIVE_WITHOUT_CURRENT.c_mapping_procedure*/
/*No:NATIVE_WITHOUT_CURRENT.c_mapping_function*/
/*No:NATIVE_WITHOUT_CURRENT.use_current*/