/*
-- 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 "short.h"


T0* r130result_type(T130* C){
T0* R=NULL;
R=X312result_type((C)->_run_feature/*8*/);
/*[IF*/
if(X46is_like_current(R)){
R=/*X312current_type*/((T0*)((T326*)((C)->_run_feature/*8*/))->_current_type/*4*/);
}
/*FI]*/
return R;
}
/*No:CALL_PREFIX_MINUS.target*/


void r130error(T0* a1,T0* a2){
r67add_position(a1);
r67error((T67*)(oBC11eh),a2);
}
/*No:CALL_PREFIX_MINUS.run_feature*/
/*No:CALL_PREFIX_MINUS.precedence*/


void r130make(T130* C,T0* a1,T0* a2){
{T129*n=malloc(sizeof(*n));
*n=M129;
r129make(n,r130operator(),a1);
C->_feature_name=(T0*)n;
}
C->_target=a2;
}


void r130bracketed_short(T130* C){
r39hook_or((T39*)(oBC11short_print),((T0*)ms53_6792),((T0*)ms53_41));
r130short(C);
r39hook_or((T39*)(oBC11short_print),((T0*)ms53_8645),((T0*)ms53_42));
}
/*No:CALL_PREFIX_MINUS.is_current*/
/*No:CALL_PREFIX_MINUS.is_void*/


T0* r130operator(void){
T0* R=NULL;
R=((T0*)ms13_46);
return R;
}


void r130short_target(T130* C){
r130bracketed_short(C);
/*[IRF3.6a_dot*/{T39* C1=(T39*)(oBC11short_print);
r39hook_or(C1,((T0*)ms39_999a),((T0*)ms12_47));
}/*]*/
}


void r130with(T130* C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_run_feature=a3;
r130run_feature_match(C);
}


void r130short(T130* C){
r39a_prefix_name((T39*)(oBC11short_print),(C)->_feature_name/*12*/);
/*[IF*/
if((X53precedence((C)->_target/*4*/))<(11)){
X53bracketed_short((C)->_target/*4*/);
}
else{
X53short((C)->_target/*4*/);
}
/*FI]*/
}
/*No:CALL_PREFIX_MINUS.fatal_error*/


T0* r156type_boolean(void){
if(fBC11type_boolean==0){
fBC11type_boolean=1;
{T252*n=malloc(sizeof(*n));
*n=M252;
r252make(n,NULL);
oBC11type_boolean=(T0*)n;
}
}
return oBC11type_boolean;}
/*No:E_FALSE.start_position*/


T0* r156to_string(void){
T0* R=NULL;
R=((T0*)ms12_2690);
return R;
}


T0* r156add_comment(T156* C,T0* a1){
T0* R=NULL;
/*[IF*/
if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r34count(((T34*)((((T52*)a1))->_list/*4*/)))/*)*/)==(0))){
R=(T0*)C;
}
else{
{T218*n=malloc(sizeof(*n));
*n=M218;
r218make(n,(T0*)C,a1);
R=(T0*)n;
}
}
/*FI]*/
return R;
}
/*No:E_FALSE.to_integer*/
/*No:E_FALSE.to_runnable*/
/*No:E_FALSE.fz_iinaiv*/
/*No:E_FALSE.result_type*/


void r156error(T0* a1,T0* a2){
r67add_position(a1);
r67error((T67*)(oBC11eh),a2);
}
/*No:E_FALSE.precedence*/
/*No:E_FALSE.make*/
/*No:E_FALSE.bracketed_short*/
/*No:E_FALSE.is_current*/
/*No:E_FALSE.fz_false*/
/*No:E_FALSE.is_void*/
/*No:E_FALSE.short_target*/
/*No:E_FALSE.short*/
/*No:E_FALSE.atomic_precedence*/