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


T0* r152add_comment(T152* C,T0* a1){
T0* R=NULL;
/*[IF*/
if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r32count(((T32*)((((T64*)a1))->_list/*4*/)))/*)*/)==(0))){
R=(T0*)C;
}
else{
{T214*n=malloc(sizeof(*n));
*n=M214;
r214make(n,(T0*)C,a1);
R=(T0*)n;
}
}
/*FI]*/
return R;
}
/*No:E_FALSE.to_integer*/
/*No:E_FALSE.print_as_target*/
/*No:E_FALSE.bracketed_pretty_print*/
/*No:E_FALSE.to_runnable*/
/*No:E_FALSE.fz_iinaiv*/
/*No:E_FALSE.result_type*/


void r152error(T0* a1,T0* a2){
r37add_position(a1);
r37error((T37*)(oBC11eh),a2);
}
/*No:E_FALSE.precedence*/
/*No:E_FALSE.make*/
/*No:E_FALSE.is_current*/
/*No:E_FALSE.fz_false*/
/*No:E_FALSE.pretty_print*/
/*No:E_FALSE.is_void*/
/*No:E_FALSE.atomic_precedence*/
/*No:ARGUMENT_NAME2.start_position*/


T0* r172to_string(T172* C){
T0* R=NULL;
R=((T174*)(/*(IRF4.6name*/r175item(((T175*)(((T171*)((C)->_formal_arg_list/*12*/))->_flat_list/*8*/)),(C)->_rank/*8*/)/*)*/))->_to_string/*8*/;
return R;
}


T0* r172add_comment(T172* C,T0* a1){
T0* R=NULL;
/*[IF*/
if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r32count(((T32*)((((T64*)a1))->_list/*4*/)))/*)*/)==(0))){
R=(T0*)C;
}
else{
{T214*n=malloc(sizeof(*n));
*n=M214;
r214make(n,(T0*)C,a1);
R=(T0*)n;
}
}
/*FI]*/
return R;
}


T2 r172to_integer(T172* C){
T2 R=0;
r172error((C)->_start_position/*4*/,((T0*)ms12_45846));
return R;
}


void r172print_as_target(T172* C){
r310put_string((T310*)(oBC11fmt),r172to_string(C));
r310put_character((T310*)(oBC11fmt),'\56');
}
/*No:ARGUMENT_NAME2.rank*/
/*No:ARGUMENT_NAME2.bracketed_pretty_print*/


T0* r172to_runnable(T172* C,T0* a1){
T0* R=NULL;
T0* _fal=NULL;
T0* _rf=NULL;
_rf=r42top_rf((T42*)(oBC11small_eiffel));
_fal=X312arguments(_rf);
/*[IF*/
if(((C)->_formal_arg_list/*12*/)==((void*)(_fal))){
R=(T0*)C;
}
else{
{T172*n=malloc(sizeof(*n));
*n=M172;
r172with(n,(T0*)C,_fal);
R=(T0*)n;
}
}
/*FI]*/
return R;
}
/*No:ARGUMENT_NAME2.formal_arg_list*/
/*No:ARGUMENT_NAME2.fz_iinaiv*/


void r172refer_to(T172* C,T0* a1,T0* a2,T2 a3){
C->_start_position=a1;
C->_formal_arg_list=a2;
C->_rank=a3;
}


T0* r172result_type(T172* C){
T0* R=NULL;
R=r171type((T171*)((C)->_formal_arg_list/*12*/),(C)->_rank/*8*/);
return R;
}


void r172error(T0* a1,T0* a2){
r37add_position(a1);
r37error((T37*)(oBC11eh),a2);
}
/*No:ARGUMENT_NAME2.precedence*/
/*No:ARGUMENT_NAME2.is_current*/
/*No:ARGUMENT_NAME2.pretty_print*/
/*No:ARGUMENT_NAME2.is_void*/


void r172with(T172* C,T0* a1,T0* a2){
*((T172*)(C))=*((T172*)(a1));
C->_formal_arg_list=a2;
}
/*No:ARGUMENT_NAME2.atomic_precedence*/