/*
-- 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 "short.h"
T0* r936add_comment(T936* 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 r936to_integer(T936* C){
int R=0;
r936error((((T936*)C))->_start_position/*8*/,((T0*)ms69_470));
return R;
}
void r936bracketed_short(T936* C){
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms6_662),((T0*)ms7_662));
/*[IRF3.6short*/{T936* C1=C;
r580a_base_type_constant(((T580*)(oBC364short_print)),(((T936*)C1))->_to_string/*12*/);
}/*]*/
r580hook_or(((T580*)(oBC364short_print)),((T0*)ms8_662),((T0*)ms9_662));
}
int r936is_a(T936* C,T0* a1){
int R=0;
R=X291is_a(/*(IRF4.4run_type*/((T0*)((T209*)r936result_type()))/*)*/,X291run_type(X662result_type(a1)));
/*IF*/if (!(R)) {
r683add_position((((T936*)C))->_start_position/*8*/);
r936error(X662start_position(a1),((T0*)ms4_662));
}
/*FI*/return R;
}
/*No:REAL_CONSTANT.is_current*/
void r936make(T936* C,T0* a1,T0* a2){
C->_start_position=a1;
C->_to_string=a2;
}
/*No:REAL_CONSTANT.to_string*/
/*No:REAL_CONSTANT.fz_iinaiv*/
/*No:REAL_CONSTANT.unary_minus*/
/*No:REAL_CONSTANT.start_position*/
/*No:REAL_CONSTANT.precedence*/
T0* r936to_runnable(T936* C,T0* a1){
T0* R=NULL;
/*IF*/if (((((T936*)C))->_current_type/*4*/)==((void*)(NULL))) {
C->_current_type=a1;
R=(T0*)C;
}
else {
R=r936twin(C);
/*[IRF3.3set_current_type*/((((T936*)(((T936*)R))))->_current_type)=(a1);
/*]*/
}
/*FI*/return R;
}
int fBC936result_type=0;
T0*oBC936result_type=NULL;
T0* r936result_type(void){
if (fBC936result_type==0){
T0* R=NULL;
fBC936result_type=1;
{T209*n=malloc(sizeof(*n));
*n=M209;
r209make(n,NULL);
R=(T0*)n;
}
oBC936result_type=R;}
return oBC936result_type;}
T0* r936twin(T936* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T936*)R)=*C;
return R;
}
/*No:REAL_CONSTANT.set_current_type*/
/*No:REAL_CONSTANT.atomic_precedence*/
/*No:REAL_CONSTANT.current_type*/
/*No:REAL_CONSTANT.is_manifest_string*/
/*No:REAL_CONSTANT.is_void*/
void r936error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
void r936short_target(T936* C){
r936bracketed_short(C);
/*[IRF3.6a_dot*/{T580* C1=((T580*)(oBC364short_print));
r580hook_or(C1,((T0*)ms58_580),((T0*)ms67_470));
}/*]*/
}