/*
-- ANSI C code generated by :
-- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
-- 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"


T6 r255is_boolean(T255* C){
T6 R=0;
R=X54is_boolean((C)->_run_type/*16*/);
return R;
}


void r255mapping_cast(T255* C){
/*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms54_15696)))))->_count)=(0);
/*]*/
r7extend((T7*)(((T0*)ms54_15696)),'\50');
r255c_type_for_target_in(C,((T0*)ms54_15696));
r7extend((T7*)(((T0*)ms54_15696)),'\51');
/*[IRF3.5put_string*/r45put_string(((T45*)(((T25*)(oBC12cpp))->_current_out/*56*/)),((T0*)ms54_15696));
/*]*/
}


T6 r255is_generic(T255* C){
T6 R=0;
R=X54is_generic((C)->_run_type/*16*/);
return R;
}


T6 r255is_real(T255* C){
T6 R=0;
R=X54is_real((C)->_run_type/*16*/);
return R;
}


T6 r255need_c_struct(T255* C){
T6 R=0;
R=X54need_c_struct((C)->_run_type/*16*/);
return R;
}


void r255with(T255* C,T0* a1,T0* a2){
C->_start_position=(((T255*)a1))->_start_position/*4*/;
C->_like_what=(((T255*)a1))->_like_what/*8*/;
C->_written_mark=(((T255*)a1))->_written_mark/*12*/;
C->_run_type=a2;
}


T6 r255is_any(T255* C){
T6 R=0;
R=X54is_any((C)->_run_type/*16*/);
return R;
}


T6 r255is_basic_eiffel_expanded(T255* C){
T6 R=0;
R=X54is_basic_eiffel_expanded((C)->_run_type/*16*/);
return R;
}
/*No:TYPE_LIKE_FEATURE.fz_gc_mark*/
/*No:TYPE_LIKE_FEATURE.fz_like*/


T6 r255need_gc_mark_function(T255* C){
T6 R=0;
R=X54need_gc_mark_function((C)->_run_type/*16*/);
return R;
}


T6 r255is_native_array(T255* C){
T6 R=0;
T0* _tna=NULL;
_tna=(T0*)C;
if(NULL!=(_tna))switch(((T0*)_tna)->id) {
case 263: 
break;
default:
_tna=NULL;
};R=(_tna)!=((void*)(NULL));
return R;
}


T6 r255is_string(T255* C){
T6 R=0;
R=X54is_string((C)->_run_type/*16*/);
return R;
}


T6 r255is_integer(T255* C){
T6 R=0;
R=X54is_integer((C)->_run_type/*16*/);
return R;
}
/*No:TYPE_LIKE_FEATURE.is_anchored*/
/*No:TYPE_LIKE_FEATURE.is_run_type*/


T6 r255is_reference(T255* C){
T6 R=0;
R=X54is_reference((C)->_run_type/*16*/);
return R;
}
/*No:TYPE_LIKE_FEATURE.like_what*/
/*No:TYPE_LIKE_FEATURE.tmp_written_mark*/


T6 r255is_none(T255* C){
T6 R=0;
R=X54is_none((C)->_run_type/*16*/);
return R;
}
/*No:TYPE_LIKE_FEATURE.is_like_argument*/


void r255just_before_gc_mark_in(T255* C,T0* a1){
X54just_before_gc_mark_in((C)->_run_type/*16*/,a1);
}
/*No:TYPE_LIKE_FEATURE.mapping_cast_memory*/


T6 r255is_double(T255* C){
T6 R=0;
R=X54is_double((C)->_run_type/*16*/);
return R;
}