/*
-- 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 "pretty.h"
/*No:TMP_FEATURE.arguments*/
T0* r505n(void){
T0* R=NULL;
{T953*n=malloc(sizeof(*n));
*n=M953;
r953make(n,r855twin(((T855*)(oBC505names))));
R=(T0*)n;
}
return R;
}
T0* r505to_cst_att_integer(T505* C,T0* a1){
T0* R=NULL;
/*IF*/if (((((T505*)C))->_type/*4*/)!=((void*)(NULL))) {
/*IF*/if (X291is_integer((((T505*)C))->_type/*4*/)) {
{T689*n=malloc(sizeof(*n));
*n=M689;
r689make(n,r505n(),(((T505*)C))->_type/*4*/,a1);
R=(T0*)n;
}
}
 else if (X291is_real((((T505*)C))->_type/*4*/)) {
{T835*n=malloc(sizeof(*n));
*n=M835;
r835make(n,r505n(),(((T505*)C))->_type/*4*/,r342to_real_constant(((T342*)a1)));
R=(T0*)n;
}
}
 else if (X291is_double((((T505*)C))->_type/*4*/)) {
{T118*n=malloc(sizeof(*n));
*n=M118;
r118make(n,r505n(),(((T505*)C))->_type/*4*/,r342to_real_constant(((T342*)a1)));
R=(T0*)n;
}
}
else {
r505error(X776start_position(r855first(((T855*)(oBC505names)))),((T0*)ms6_505));
}
/*FI*/}
else {
r505error(X776start_position(r855first(((T855*)(oBC505names)))),((T0*)ms7_505));
}
/*FI*/return R;
}
/*No:TMP_FEATURE.add_synonym*/
/*No:TMP_FEATURE.set_type*/
T0* r505to_writable_attribute(T505* C){
T0* R=NULL;
/*IF*/if (((((T505*)C))->_type/*4*/)==((void*)(NULL))) {
r505error(X776start_position(r855first(((T855*)(oBC505names)))),((T0*)ms1_505));
}
 else if (((((T505*)C))->_arguments/*0*/)!=((void*)(NULL))) {
r505error(r818current_position(((T818*)(oBC364eiffel_parser))),((T0*)ms2_505));
}
/*FI*/{T106*n=malloc(sizeof(*n));
*n=M106;
r106make(n,r505n(),(((T505*)C))->_type/*4*/);
R=(T0*)n;
}
return R;
}
T0* r505to_cst_att_boolean(T505* C,T0* a1){
T0* R=NULL;
/*IF*/if ((((((T505*)C))->_type/*4*/)!=((void*)(NULL)))&&(X291is_boolean((((T505*)C))->_type/*4*/))) {
{T580*n=malloc(sizeof(*n));
*n=M580;
r580make(n,r505n(),(((T505*)C))->_type/*4*/,a1);
R=(T0*)n;
}
}
else {
r505error(X776start_position(r855first(((T855*)(oBC505names)))),((T0*)ms3_505));
}
/*FI*/return R;
}
/*No:TMP_FEATURE.type*/
/*No:TMP_FEATURE.local_vars*/
/*No:TMP_FEATURE.set_header_comment*/
void r505set_require(T505* C,T0* a1,T0* a2,T0* a3){
/*IF*/if (((a2)!=((void*)(NULL)))||((a3)!=((void*)(NULL)))) {
{T343*n=malloc(sizeof(*n));
*n=M343;
r343make(n,a1,a2,a3);
C->_require_assertion=(T0*)n;
}
}
/*FI*/}
/*No:TMP_FEATURE.set_local_vars*/
T0* r505to_deferred_routine(T505* C){
T0* R=NULL;
/*IF*/if (((((T505*)C))->_type/*4*/)==((void*)(NULL))) {
{T853*n=malloc(sizeof(*n));
*n=M853;
/*[IRF3.6make*/{T853* C1=n;
T0* b1=r505n();
T0* b2=(((T505*)C))->_arguments/*0*/;
T0* b3=(((T505*)C))->_obsolete_mark/*12*/;
T0* b4=(((T505*)C))->_header_comment/*8*/;
T0* b5=(((T505*)C))->_require_assertion/*16*/;
r853make_routine(C1,b1,b2,b3,b4,b5);
}/*]*/
R=(T0*)n;
}
}
else {
{T649*n=malloc(sizeof(*n));
*n=M649;
r649make(n,r505n(),(((T505*)C))->_arguments/*0*/,(((T505*)C))->_type/*4*/,(((T505*)C))->_obsolete_mark/*12*/,(((T505*)C))->_header_comment/*8*/,(((T505*)C))->_require_assertion/*16*/);
R=(T0*)n;
}
}
/*FI*/return R;
}
T0* r505to_procedure_or_function(T505* C){
T0* R=NULL;
/*IF*/if (((((T505*)C))->_type/*4*/)==((void*)(NULL))) {
{T297*n=malloc(sizeof(*n));
*n=M297;
r297make(n,r505n(),(((T505*)C))->_arguments/*0*/,(((T505*)C))->_obsolete_mark/*12*/,(((T505*)C))->_header_comment/*8*/,(((T505*)C))->_require_assertion/*16*/,(((T505*)C))->_local_vars/*20*/,(((T505*)C))->_routine_body/*24*/);
R=(T0*)n;
}
}
else {
{T696*n=malloc(sizeof(*n));
*n=M696;
r696make(n,r505n(),(((T505*)C))->_arguments/*0*/,(((T505*)C))->_type/*4*/,(((T505*)C))->_obsolete_mark/*12*/,(((T505*)C))->_header_comment/*8*/,(((T505*)C))->_require_assertion/*16*/,(((T505*)C))->_local_vars/*20*/,(((T505*)C))->_routine_body/*24*/);
R=(T0*)n;
}
}
/*FI*/return R;
}
/*No:TMP_FEATURE.obsolete_mark*/
/*No:TMP_FEATURE.require_assertion*/
T0*oBC505names=NULL;
T0* r505to_cst_att_real(T505* C,T0* a1){
T0* R=NULL;
/*IF*/if (((((T505*)C))->_type/*4*/)!=((void*)(NULL))) {
/*IF*/if (X291is_real((((T505*)C))->_type/*4*/)) {
{T835*n=malloc(sizeof(*n));
*n=M835;
r835make(n,r505n(),(((T505*)C))->_type/*4*/,a1);
R=(T0*)n;
}
}
 else if (X291is_double((((T505*)C))->_type/*4*/)) {
{T118*n=malloc(sizeof(*n));
*n=M118;
r118make(n,r505n(),(((T505*)C))->_type/*4*/,a1);
R=(T0*)n;
}
}
else {
r683add_position((((T936*)((T936*)a1)))->_start_position/*8*/);
r683add_position(X776start_position(r855first(((T855*)(oBC505names)))));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms8_505);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/}
else {
r505error(X776start_position(r855first(((T855*)(oBC505names)))),((T0*)ms9_505));
}
/*FI*/return R;
}
/*No:TMP_FEATURE.set_arguments*/
T0* r505to_cst_att_string(T505* C,T0* a1){
T0* R=NULL;
/*IF*/if ((((((T505*)C))->_type/*4*/)!=((void*)(NULL)))&&(X291is_string((((T505*)C))->_type/*4*/))) {
{T380*n=malloc(sizeof(*n));
*n=M380;
r380make(n,r505n(),(((T505*)C))->_type/*4*/,a1);
R=(T0*)n;
}
}
else {
r505error(X776start_position(r855first(((T855*)(oBC505names)))),((T0*)ms10_505));
}
/*FI*/return R;
}
/*No:TMP_FEATURE.header_comment*/
/*No:TMP_FEATURE.set_routine_body*/
/*No:TMP_FEATURE.routine_body*/
T0* r505to_external_routine(T505* C,T0* a1,T0* a2){
T0* R=NULL;
/*IF*/if (((((T505*)C))->_type/*4*/)==((void*)(NULL))) {
{T883*n=malloc(sizeof(*n));
*n=M883;
r883make(n,r505n(),(((T505*)C))->_arguments/*0*/,(((T505*)C))->_obsolete_mark/*12*/,(((T505*)C))->_header_comment/*8*/,(((T505*)C))->_require_assertion/*16*/,a1,a2);
R=(T0*)n;
}
}
else {
{T679*n=malloc(sizeof(*n));
*n=M679;
r679make(n,r505n(),(((T505*)C))->_arguments/*0*/,(((T505*)C))->_type/*4*/,(((T505*)C))->_obsolete_mark/*12*/,(((T505*)C))->_header_comment/*8*/,(((T505*)C))->_require_assertion/*16*/,a1,a2);
R=(T0*)n;
}
}
/*FI*/return R;
}
T0* r505to_cst_att_unique(T505* C){
T0* R=NULL;
T0* _sp=NULL;
/*IF*/if (((((T505*)C))->_type/*4*/)==((void*)(NULL))) {
_sp=X776start_position(r855first(((T855*)(oBC505names))));
r505error(_sp,((T0*)ms11_505));
}
/*FI*//*IF*/if (!(X291is_integer((((T505*)C))->_type/*4*/))) {
r505error(X291start_position((((T505*)C))->_type/*4*/),((T0*)ms12_505));
}
/*FI*/{T398*n=malloc(sizeof(*n));
*n=M398;
r398make(n,r505n(),(((T505*)C))->_type/*4*/);
R=(T0*)n;
}
return R;
}
T0* r505to_cst_att_character(T505* C,T0* a1){
T0* R=NULL;
/*IF*/if ((((((T505*)C))->_type/*4*/)!=((void*)(NULL)))&&(X291is_character((((T505*)C))->_type/*4*/))) {
{T554*n=malloc(sizeof(*n));
*n=M554;
r554make(n,r505n(),(((T505*)C))->_type/*4*/,a1);
R=(T0*)n;
}
}
else {
r505error(X776start_position(r855first(((T855*)(oBC505names)))),((T0*)ms5_505));
}
/*FI*/return R;
}
void r505error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
/*No:TMP_FEATURE.fatal_error*/
void r505set_require_else(T505* C,T0* a1,T0* a2,T0* a3){
/*IF*/if (((a2)!=((void*)(NULL)))||((a3)!=((void*)(NULL)))) {
{T343*n=malloc(sizeof(*n));
*n=M343;
r343make(n,a1,a2,a3);
C->_require_assertion=(T0*)n;
}
/*[IRF3.3set_require_else*/((((T343*)(((T343*)((((T505*)C))->_require_assertion/*16*/)))))->_is_require_else)=(1);
/*]*/
}
/*FI*/}
void r505initialize(T505* C){
r855clear(((T855*)(oBC505names)));
C->_arguments=NULL;
C->_type=NULL;
C->_header_comment=NULL;
C->_obsolete_mark=NULL;
C->_require_assertion=NULL;
C->_local_vars=NULL;
C->_routine_body=NULL;
}
/*No:TMP_FEATURE.set_obsolete_mark*/
T0* r505to_cst_att_bit(T505* C,T0* a1){
T0* R=NULL;
/*IF*/if ((((((T505*)C))->_type/*4*/)!=((void*)(NULL)))&&(X291is_bit((((T505*)C))->_type/*4*/))) {
{T588*n=malloc(sizeof(*n));
*n=M588;
r588make(n,r505n(),(((T505*)C))->_type/*4*/,a1);
R=(T0*)n;
}
}
else {
r505error(X776start_position(r855first(((T855*)(oBC505names)))),((T0*)ms4_505));
}
/*FI*/return R;
}
T0* r505to_once_routine(T505* C){
T0* R=NULL;
/*IF*/if (((((T505*)C))->_type/*4*/)==((void*)(NULL))) {
{T134*n=malloc(sizeof(*n));
*n=M134;
r134make(n,r505n(),(((T505*)C))->_arguments/*0*/,(((T505*)C))->_obsolete_mark/*12*/,(((T505*)C))->_header_comment/*8*/,(((T505*)C))->_require_assertion/*16*/,(((T505*)C))->_local_vars/*20*/,(((T505*)C))->_routine_body/*24*/);
R=(T0*)n;
}
}
else {
{T844*n=malloc(sizeof(*n));
*n=M844;
r844make(n,r505n(),(((T505*)C))->_arguments/*0*/,(((T505*)C))->_type/*4*/,(((T505*)C))->_obsolete_mark/*12*/,(((T505*)C))->_header_comment/*8*/,(((T505*)C))->_require_assertion/*16*/,(((T505*)C))->_local_vars/*20*/,(((T505*)C))->_routine_body/*24*/);
R=(T0*)n;
}
}
/*FI*/return R;
}
void r544connect_to(T544* C,T0* a1){
C->_output_stream=fopen(r7to_external(((T7*)a1)),"w");
/*IF*/if ((NULL!=(((T544*)C))->_output_stream/*4*/)) {
C->_path=a1;
}
/*FI*/}
/*No:STD_FILE_WRITE.make*/
void r544disconnect(T544* C){
fclose((((T544*)C))->_output_stream/*4*/);
C->_path=NULL;
}
/*No:STD_FILE_WRITE.path*/
/*No:STD_FILE_WRITE.output_stream*/
/*No:STD_FILE_WRITE.is_connected*/
/*No:STD_FILE_WRITE.put_character*/
/*No:RENAME_PAIR.new_name*/
void r498make(T498* C,T0* a1,T0* a2){
/*IF*/if ((X776to_string(a1))==((void*)(X776to_string(a2)))) {
r683add_position(X776start_position(a1));
r683add_position(X776start_position(a2));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms1_498);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/C->_old_name=a1;
C->_new_name=a2;
}
void r498pretty_print(T498* C){
X776definition_pretty_print((((T498*)C))->_old_name/*0*/);
r238keyword(((T238*)(oBC364fmt)),((T0*)ms2_498));
X776definition_pretty_print((((T498*)C))->_new_name/*4*/);
}
/*No:RENAME_PAIR.fatal_error*/
/*No:RENAME_PAIR.old_name*/
T0*oBC523tmp_written_mark=NULL;
int r523has_creation(T523* C,T0* a1){
int R=0;
R=r605has_creation(((T605*)(r523base_class(C))),a1);
return R;
}
/*No:TYPE_EXPANDED.is_anchored*/
/*No:TYPE_EXPANDED.is_array*/
int r523is_a(T523* C,T0* a1){
int R=0;
R=((((T523*)C))->_run_time_mark/*16*/)==((void*)(X291run_time_mark(a1)));
/*IF*/if (!(R)) {
r683add_type((T0*)C,((T0*)ms71_470));
r683add_type(a1,((T0*)ms67_470));
}
/*FI*/return R;
}
int r523is_pointer(T523* C){
int R=0;
R=X291is_pointer((((T523*)C))->_mapped/*12*/);
return R;
}
/*No:TYPE_EXPANDED.run_type*/
/*No:TYPE_EXPANDED.is_string*/
/*No:TYPE_EXPANDED.is_like_feature*/
T0* r523compute_mark(T0* a1){
T0* R=NULL;
r7copy(((T7*)(oBC523tmp_written_mark)),((T0*)ms14_470));
r7extend(((T7*)(oBC523tmp_written_mark)),'\40');
r7append(((T7*)(oBC523tmp_written_mark)),a1);
R=r902item(oBC523tmp_written_mark);
return R;
}
/*No:TYPE_EXPANDED.is_like_current*/
void r523make(T523* C,T0* a1,T0* a2){
C->_start_position=a1;
C->_mapped=a2;
C->_written_mark=r523compute_mark(X291written_mark((((T523*)C))->_mapped/*12*/));
}
/*No:TYPE_EXPANDED.start_position*/
/*No:TYPE_EXPANDED.fz_inako*/
int r523is_character(T523* C){
int R=0;
R=X291is_character((((T523*)C))->_mapped/*12*/);
return R;
}
/*No:TYPE_EXPANDED.written_mark*/
T0* r523to_runnable(T523* C,T0* a1){
T0* R=NULL;
T0* _m=NULL;
/*IF*/if (((((T523*)C))->_run_type/*20*/)==((void*)(C))) {
R=(T0*)C;
}
 else if (((((T523*)C))->_run_type/*20*/)==((void*)((((T523*)C))->_mapped/*12*/))) {
R=(T0*)C;
}
else {
_m=X291to_runnable((((T523*)C))->_mapped/*12*/,a1);
/*IF*/if ((_m)==((void*)(NULL))) {
r683add_position((((T523*)C))->_start_position/*4*/);
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms1_523);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*//*IF*/if (((((T523*)C))->_run_type/*20*/)!=((void*)(NULL))) {
{T523*n=malloc(sizeof(*n));
*n=M523;
r523from_other(n,(T0*)C,X291run_type(_m));
R=(T0*)n;
}
}
 else if (X291is_expanded(_m)) {
C->_run_type=_m;
C->_run_time_mark=X291run_time_mark(_m);
R=(T0*)C;
}
 else if (((((T523*)C))->_mapped/*12*/)==((void*)(X291run_type(_m)))) {
C->_run_time_mark=r523compute_mark(X291run_time_mark(_m));
C->_run_type=(T0*)C;
R=(T0*)C;
}
else {
C->_run_time_mark=r523compute_mark(X291run_time_mark(_m));
{T523*n=malloc(sizeof(*n));
*n=M523;
r523from_other(n,(T0*)C,X291run_type(_m));
C->_run_type=(T0*)n;
}
R=(T0*)C;
}
/*FI*/r368set_at_run_time(((T368*)(X291run_class((((T523*)((T523*)R)))->_run_type/*20*/))));
}
/*FI*/return R;
}
/*No:TYPE_EXPANDED.is_run_type*/
/*No:TYPE_EXPANDED.is_formal_generic*/
T0* r523generic_list(T523* C){
T0* R=NULL;
R=X291generic_list((((T523*)C))->_mapped/*12*/);
return R;
}
int r523is_real(T523* C){
int R=0;
R=X291is_real((((T523*)C))->_mapped/*12*/);
return R;
}
int r523is_bit(T523* C){
int R=0;
R=X291is_bit((((T523*)C))->_mapped/*12*/);
return R;
}
/*No:TYPE_EXPANDED.pretty_print*/
T0* r523smallest_ancestor(T523* C,T0* a1){
T0* R=NULL;
/*IF*/if (((((T523*)C))->_run_time_mark/*16*/)==((void*)(X291run_time_mark(a1)))) {
R=(((T523*)C))->_run_type/*20*/;
}
else {
R=X291run_type(X291smallest_ancestor((((T523*)C))->_mapped/*12*/,a1));
}
/*FI*/return R;
}
int r523is_boolean(T523* C){
int R=0;
R=X291is_boolean((((T523*)C))->_mapped/*12*/);
return R;
}
int r523is_double(T523* C){
int R=0;
R=X291is_double((((T523*)C))->_mapped/*12*/);
return R;
}
T0* r523run_class(T523* C){
T0* R=NULL;
R=r604run_class((((T523*)C))->_run_type/*20*/);
return R;
}
/*No:TYPE_EXPANDED.run_time_mark*/
/*No:TYPE_EXPANDED.mapped*/
int r523is_a_in(T523* C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (((((T523*)C))->_written_mark/*8*/)==((void*)(X291written_mark(a1)))) {
R=1;
}
else {
_ct=(((T368*)((T368*)a2)))->_current_type/*0*/;
_t1=r523to_runnable(C,_ct);
_t2=X291to_runnable(a1,_ct);
/*IF*/if ((X291run_time_mark(_t1))==((void*)(X291run_time_mark(_t2)))) {
R=1;
}
else {
R=X291is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
T0* r523look_up_for(T523* C,T0* a1,T0* a2){
T0* R=NULL;
R=r605look_up_for(((T605*)(r523base_class(C))),a1,a2);
return R;
}
T0* r523expanded_initializer(T523* C){
T0* R=NULL;
R=r605expanded_initializer(((T605*)(r523base_class(C))),(T0*)C);
return R;
}
/*No:TYPE_EXPANDED.fz_dot*/
int r523is_generic(T523* C){
int R=0;
R=X291is_generic((((T523*)C))->_mapped/*12*/);
return R;
}
/*No:TYPE_EXPANDED.used_as_reference*/
/*No:TYPE_EXPANDED.is_reference*/
T0* r523base_class(T523* C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=r523base_class_name(C);
/*IF*/if ((_bcn)!=((void*)(NULL))) {
R=r451base_class(((T451*)_bcn));
}
else {
/*[IRF3.6append*/{T0* b1=((T0*)ms3_291);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683add_type((T0*)C,((T0*)ms67_470));
r683print_as_fatal_error(((T683*)(oBC364eh)));
}
/*FI*/return R;
}
void r523from_other(T523* C,T0* a1,T0* a2){
C->_start_position=(((T523*)((T523*)a1)))->_start_position/*4*/;
C->_written_mark=(((T523*)((T523*)a1)))->_written_mark/*8*/;
C->_mapped=a2;
/*IF*/if (X291is_expanded((((T523*)C))->_mapped/*12*/)) {
C->_run_time_mark=X291run_time_mark((((T523*)C))->_mapped/*12*/);
C->_run_type=(((T523*)C))->_mapped/*12*/;
}
else {
C->_run_time_mark=r523compute_mark(X291run_time_mark((((T523*)C))->_mapped/*12*/));
C->_run_type=(T0*)C;
}
/*FI*/}
/*No:TYPE_EXPANDED.fatal_error*/
/*No:TYPE_EXPANDED.is_any*/
T0* r523base_class_name(T523* C){
T0* R=NULL;
R=X291base_class_name((((T523*)C))->_mapped/*12*/);
return R;
}
/*No:TYPE_EXPANDED.is_expanded*/
/*No:TYPE_EXPANDED.fz_expanded*/
int r523is_basic_eiffel_expanded(T523* C){
int R=0;
/*IF*/if (((((T523*)C))->_run_type/*20*/)==((void*)((((T523*)C))->_mapped/*12*/))) {
R=X291is_basic_eiffel_expanded((((T523*)C))->_mapped/*12*/);
}
/*FI*/return R;
}
/*No:TYPE_EXPANDED.is_none*/
int r523is_integer(T523* C){
int R=0;
R=X291is_integer((((T523*)C))->_mapped/*12*/);
return R;
}
T0* r805add_comment(T805* 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 r805to_integer(T805* C){
int R=0;
r805error((((T805*)C))->_start_position/*8*/,((T0*)ms69_470));
return R;
}
void r805pretty_print_character(T805* C,int a1){
int _val=0;
/*IF*/if ((((((T805*)C))->_percent/*24*/)!=((void*)(NULL)))&&(r429fast_has(((T429*)((((T805*)C))->_percent/*24*/)),a1))) {
/*[IRF3.3clear*/((((T7*)(((T7*)(oBC805tmp_string)))))->_count)=(0);
/*]*/
r805character_coding(/*(IRF4.6item*/((((T7*)((T7*)((((T805*)C))->_to_string/*12*/))))->_storage/*0*/)[(a1)-(1)]/*)*/,oBC805tmp_string);
r238put_string(((T238*)(oBC364fmt)),oBC805tmp_string);
}
 else if ((((((T805*)C))->_ascii/*20*/)!=((void*)(NULL)))&&(r429fast_has(((T429*)((((T805*)C))->_ascii/*20*/)),a1))) {
_val=((unsigned char)/*(IRF4.6item*/((((T7*)((T7*)((((T805*)C))->_to_string/*12*/))))->_storage/*0*/)[(a1)-(1)]/*)*/);
r238put_string(((T238*)(oBC364fmt)),((T0*)ms7_805));
r238put_integer(((T238*)(oBC364fmt)),_val);
r238put_string(((T238*)(oBC364fmt)),((T0*)ms47_473));
}
else {
r238put_character(((T238*)(oBC364fmt)),/*(IRF4.6item*/((((T7*)((T7*)((((T805*)C))->_to_string/*12*/))))->_storage/*0*/)[(a1)-(1)]/*)*/);
}
/*FI*/}
int r805is_a(T805* C,T0* a1){
int R=0;
R=X291is_a(/*(IRF4.4run_type*/((T0*)((T491*)/*(IRF4.8result_type*/r805type_string()/*)*/))/*)*/,X291run_type(X662result_type(a1)));
/*IF*/if (!(R)) {
r683add_position((((T805*)C))->_start_position/*8*/);
r805error(X662start_position(a1),((T0*)ms4_662));
}
/*FI*/return R;
}
void r805from_manifest_string(T805* C,T0* a1,int a2){
*((T805*)(C))=*((T805*)(a1));
C->_mapping_c=r7twin(((T7*)((((T805*)((T805*)a1)))->_mapping_c/*28*/)));
r7extend(((T7*)((((T805*)C))->_mapping_c/*28*/)),'\137');
r2append_in(a2,(((T805*)C))->_mapping_c/*28*/);
}
/*No:MANIFEST_STRING.is_current*/
void r805character_coding(char a1,T0* a2){
char _special=0;
{int z1=a1;

if((64==z1)){
_special='A';
}
 else 
if((8==z1)){
_special='B';
}
 else 
if((94==z1)){
_special='C';
}
 else 
if((36==z1)){
_special='D';
}
 else 
if((12==z1)){
_special='F';
}
 else 
if((92==z1)){
_special='H';
}
 else 
if((126==z1)){
_special='L';
}
 else 
if((10==z1)){
_special='N';
}
 else 
if((96==z1)){
_special='Q';
}
 else 
if((13==z1)){
_special='R';
}
 else 
if((35==z1)){
_special='S';
}
 else 
if((9==z1)){
_special='T';
}
 else 
if((0==z1)){
_special='U';
}
 else 
if((124==z1)){
_special='V';
}
 else 
if((37==z1)){
_special='\45';
}
 else 
if((39==z1)){
_special='\47';
}
 else 
if((34==z1)){
_special='\42';
}
 else 
if((91==z1)){
_special='\50';
}
 else 
if((93==z1)){
_special='\51';
}
 else 
if((123==z1)){
_special='\74';
}
 else 
if((125==z1)){
_special='\76';
}
}
r7extend(((T7*)a2),'\45');
/*IF*/if ((_special)==('\0')) {
r7extend(((T7*)a2),'\57');
r2append_in(((unsigned char)a1),a2);
r7extend(((T7*)a2),'\57');
}
else {
r7extend(((T7*)a2),_special);
}
/*FI*/}
void r805make(T805* C,T0* a1,int a2){
C->_start_position=a1;
{T7*n=malloc(sizeof(*n));
*n=M7;
r7make(n,0);
C->_to_string=(T0*)n;
}
{T7*n=malloc(sizeof(*n));
*n=M7;
r7make(n,12);
C->_mapping_c=(T0*)n;
}
r7copy(((T7*)((((T805*)C))->_mapping_c/*28*/)),((T0*)ms1_805));
r2append_in(a2,(((T805*)C))->_mapping_c/*28*/);
}
void r805print_as_target(T805* C){
r238put_character(((T238*)(oBC364fmt)),'\50');
r805pretty_print(C);
r238put_character(((T238*)(oBC364fmt)),'\51');
r238put_character(((T238*)(oBC364fmt)),'\56');
}
/*No:MANIFEST_STRING.to_string*/
/*No:MANIFEST_STRING.fz_iinaiv*/
T0* r805type_string(void){
if (fBC364type_string==0){
T0* R=NULL;
fBC364type_string=1;
{T491*n=malloc(sizeof(*n));
*n=M491;
r491make(n,NULL);
R=(T0*)n;
}
oBC364type_string=R;}
return oBC364type_string;}
/*No:MANIFEST_STRING.break*/
/*No:MANIFEST_STRING.add*/
/*No:MANIFEST_STRING.start_position*/
/*No:MANIFEST_STRING.precedence*/
T0* r805to_runnable(T805* C,T0* a1){
T0* R=NULL;
T0* _dummy=NULL;
T0* _bc=NULL;
_dummy=r491to_runnable(((T491*)(r805type_string())),a1);
/*IF*/if (((((T805*)C))->_current_type/*4*/)==((void*)(NULL))) {
C->_current_type=a1;
r7extend(((T7*)((((T805*)C))->_mapping_c/*28*/)),'\137');
_bc=r627base_class(((T627*)((((T805*)C))->_start_position/*8*/)));
r2append_in((((T605*)((T605*)_bc)))->_id/*0*/,(((T805*)C))->_mapping_c/*28*/);
r368set_at_run_time(((T368*)(r491run_class(((T491*)(/*(IRF4.8result_type*/r805type_string()/*)*/))))));
r340add_last((T0*)C);
R=(T0*)C;
}
else {
R=r805twin(C);
/*[IRF3.3set_current_type*/((((T805*)(((T805*)R))))->_current_type)=(a1);
/*]*/
}
/*FI*/return R;
}
void r805bracketed_pretty_print(T805* C){
int _column=0;
int _i=0;
_column=(((T238*)((T238*)(oBC364fmt))))->_column/*8*/;
r238put_character(((T238*)(oBC364fmt)),'\42');
_i=1;
while (!((_i)>((((T7*)((T7*)((((T805*)C))->_to_string/*12*/))))->_count/*4*/))) {
/*IF*/if (r805is_on_next_line(C,_i)) {
r238put_string(((T238*)(oBC364fmt)),((T0*)ms2_805));
while (!((_column)==((((T238*)((T238*)(oBC364fmt))))->_column/*8*/))) {
r238put_character(((T238*)(oBC364fmt)),'\40');
}
r238put_character(((T238*)(oBC364fmt)),'\45');
}
/*FI*/r805pretty_print_character(C,_i);
_i=(_i)+(1);
}
r238put_character(((T238*)(oBC364fmt)),'\42');
}
/*No:MANIFEST_STRING.ascii*/
/*No:MANIFEST_STRING.us_slash*/
/*No:MANIFEST_STRING.percent*/
/*No:MANIFEST_STRING.result_type*/
T0* r805twin(T805* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T805*)R)=*C;
return R;
}
/*No:MANIFEST_STRING.set_current_type*/
void r805add_ascii(T805* C,char a1){
r7extend(((T7*)((((T805*)C))->_to_string/*12*/)),a1);
/*IF*/if (((((T805*)C))->_ascii/*20*/)==((void*)(NULL))) {
C->_ascii=se_ma429(1,(((T7*)((T7*)((((T805*)C))->_to_string/*12*/))))->_count/*4*/);
}
else {
r429add_last(((T429*)((((T805*)C))->_ascii/*20*/)),(((T7*)((T7*)((((T805*)C))->_to_string/*12*/))))->_count/*4*/);
}
/*FI*/}
/*No:MANIFEST_STRING.atomic_precedence*/
void r805pretty_print(T805* C){
int _column=0;
int _i=0;
_column=(((T238*)((T238*)(oBC364fmt))))->_column/*8*/;
r238put_character(((T238*)(oBC364fmt)),'\42');
_i=1;
while (!((_i)>((((T7*)((T7*)((((T805*)C))->_to_string/*12*/))))->_count/*4*/))) {
/*IF*/if (r805is_on_next_line(C,_i)) {
r238put_string(((T238*)(oBC364fmt)),((T0*)ms2_805));
while (!((_column)==((((T238*)((T238*)(oBC364fmt))))->_column/*8*/))) {
r238put_character(((T238*)(oBC364fmt)),'\40');
}
r238put_character(((T238*)(oBC364fmt)),'\45');
}
/*FI*/r805pretty_print_character(C,_i);
_i=(_i)+(1);
}
r238put_character(((T238*)(oBC364fmt)),'\42');
}
T0*oBC805tmp_string=NULL;
/*No:MANIFEST_STRING.current_type*/
T0*oBC364manifest_string_pool=NULL;
/*No:MANIFEST_STRING.is_manifest_string*/
/*No:MANIFEST_STRING.is_void*/
void r805add_percent(T805* C,char a1){
r7extend(((T7*)((((T805*)C))->_to_string/*12*/)),a1);
/*IF*/if (((((T805*)C))->_percent/*24*/)==((void*)(NULL))) {
C->_percent=se_ma429(1,(((T7*)((T7*)((((T805*)C))->_to_string/*12*/))))->_count/*4*/);
}
else {
r429add_last(((T429*)((((T805*)C))->_percent/*24*/)),(((T7*)((T7*)((((T805*)C))->_to_string/*12*/))))->_count/*4*/);
}
/*FI*/}
void r805error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
int r805is_on_next_line(T805* C,int a1){
int R=0;
/*IF*/if (((((T805*)C))->_break/*16*/)!=((void*)(NULL))) {
R=r429fast_has(((T429*)((((T805*)C))->_break/*16*/)),a1);
}
/*FI*/return R;
}
/*No:MANIFEST_STRING.mapping_c*/
void r805break_line(T805* C){
/*IF*/if (((((T805*)C))->_break/*16*/)==((void*)(NULL))) {
C->_break=se_ma429(1,((((T7*)((T7*)((((T805*)C))->_to_string/*12*/))))->_count/*4*/)+(1));
}
else {
r429add_last(((T429*)((((T805*)C))->_break/*16*/)),((((T7*)((T7*)((((T805*)C))->_to_string/*12*/))))->_count/*4*/)+(1));
}
/*FI*/}
T0* r85language_name(void){
T0* R=NULL;
R=((T0*)ms121_470);
return R;
}
/*No:NATIVE_SMALL_EIFFEL.pretty_print*/
/*No:NATIVE_SMALL_EIFFEL.fz_se*/
/*No:CALL_INFIX_MINUS.arguments*/
T0* r574add_comment(T574* 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 r574to_integer(T574* C){
int R=0;
r574error(/*(IRF4.6start_position*/(((T454*)((T454*)((((T574*)C))->_feature_name/*24*/))))->_start_position/*8*//*)*/,((T0*)ms69_470));
return R;
}
int r574is_a(T574* C,T0* a1){
int R=0;
R=X291is_a(X291run_type((((T574*)C))->_result_type/*16*/),X291run_type(X662result_type(a1)));
/*IF*/if (!(R)) {
r683add_position(/*(IRF4.6start_position*/(((T454*)((T454*)((((T574*)C))->_feature_name/*24*/))))->_start_position/*8*//*)*/);
r574error(X662start_position(a1),((T0*)ms4_662));
}
/*FI*/return R;
}
/*No:CALL_INFIX_MINUS.is_current*/
void r574make(T574* C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if (((a1)==((void*)(NULL)))||((a3)==((void*)(NULL)))) {
r683add_position(a2);
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms1_618);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/{T454*n=malloc(sizeof(*n));
*n=M454;
r454make(n,r574operator(),a2);
C->_feature_name=(T0*)n;
}
{T431*n=malloc(sizeof(*n));
*n=M431;
/*[IRF3.3make*/((((T431*)(n)))->_list)=(se_ma96(1,a3));
/*]*/
_eal=(T0*)n;
}
r574make_call_1(C,a1,(((T574*)C))->_feature_name/*24*/,_eal);
}
void r574print_as_target(T574* C){
r238put_character(((T238*)(oBC364fmt)),'\50');
r574pretty_print(C);
r238put_character(((T238*)(oBC364fmt)),'\51');
r238put_character(((T238*)(oBC364fmt)),'\56');
}
/*No:CALL_INFIX_MINUS.nb_errors*/
/*No:CALL_INFIX_MINUS.feature_name*/
/*No:CALL_INFIX_MINUS.fz_iinaiv*/
/*No:CALL_INFIX_MINUS.run_feature*/
/*No:CALL_INFIX_MINUS.start_position*/
/*No:CALL_INFIX_MINUS.target*/
/*No:CALL_INFIX_MINUS.precedence*/
T0* r574to_runnable(T574* C,T0* a1){
T0* R=NULL;
T0* _tla=NULL;
T0* _a=NULL;
/*IF*/if (((((T574*)C))->_current_type/*4*/)==((void*)(NULL))) {
r574to_runnable_0(C,a1);
_a=r431to_runnable(((T431*)((((T574*)C))->_arguments/*20*/)),a1);
/*IF*/if ((_a)==((void*)(NULL))) {
r574error(X662start_position(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/),((T0*)ms55_470));
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
r431match_with(((T431*)((((T574*)C))->_arguments/*20*/)),(((T574*)C))->_run_feature/*12*/);
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
_tla=(((T574*)C))->_result_type/*16*/;
if(NULL!=(_tla))switch(((T0*)_tla)->id) {
case 239: 
break;
default:
_tla=NULL;
};/*IF*/if ((_tla)!=((void*)(NULL))) {
C->_result_type=X291run_type(X662result_type(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/));
}
/*FI*/}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
R=(T0*)C;
}
/*FI*/}
else {
R=r574twin(C);
/*[IRF3.3set_current_type*/((((T574*)(((T574*)R))))->_current_type)=(NULL);
/*]*/
R=r574to_runnable(((T574*)R),a1);
}
/*FI*/return R;
}
void r574bracketed_pretty_print(T574* C){
r238put_character(((T238*)(oBC364fmt)),'\50');
r574pretty_print(C);
r238put_character(((T238*)(oBC364fmt)),'\51');
}
/*No:CALL_INFIX_MINUS.result_type*/
T0* r574twin(T574* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T574*)R)=*C;
return R;
}
/*No:CALL_INFIX_MINUS.set_current_type*/
T0* r574operator(void){
T0* R=NULL;
R=((T0*)ms37_473);
return R;
}
/*No:CALL_INFIX_MINUS.atomic_precedence*/
void r574pretty_print(T574* C){
/*IF*/if ((X662precedence((((T574*)C))->_target/*8*/))==(13)) {
X662pretty_print((((T574*)C))->_target/*8*/);
r574print_op(C);
/*IF*/if ((X662precedence(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/))==(13)) {
X662pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/);
}
 else if ((7)>=(X662precedence(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/))) {
X662bracketed_pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/);
}
else {
X662pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/);
}
/*FI*/}
 else if ((X662precedence(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/))==(13)) {
/*IF*/if ((X662precedence((((T574*)C))->_target/*8*/))>=(7)) {
X662bracketed_pretty_print((((T574*)C))->_target/*8*/);
}
else {
X662pretty_print((((T574*)C))->_target/*8*/);
}
/*FI*/r574print_op(C);
X662pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/);
}
 else if ((7)<=(X662precedence((((T574*)C))->_target/*8*/))) {
X662bracketed_pretty_print((((T574*)C))->_target/*8*/);
r574print_op(C);
/*IF*/if ((7)<=(X662precedence(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/))) {
X662bracketed_pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/);
}
else {
X662pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/);
}
/*FI*/}
else {
X662pretty_print((((T574*)C))->_target/*8*/);
r574print_op(C);
X662pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T574*)C))->_arguments/*20*/)))/*)*/);
}
/*FI*/}
void r574print_op(T574* C){
r238put_character(((T238*)(oBC364fmt)),'\40');
/*[IRF3.6pretty_print*/{T454* C1=((T454*)((((T574*)C))->_feature_name/*24*/));
r238put_string(((T238*)(oBC364fmt)),(((T454*)C1))->_to_string/*4*/);
}/*]*/
r238put_character(((T238*)(oBC364fmt)),'\40');
}
/*No:CALL_INFIX_MINUS.us_minus*/
/*No:CALL_INFIX_MINUS.current_type*/
void r574make_call_1(T574* C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
/*No:CALL_INFIX_MINUS.is_manifest_string*/
/*No:CALL_INFIX_MINUS.is_void*/
void r574to_runnable_0(T574* C,T0* a1){
C->_current_type=a1;
r574cpc_to_runnable(C,a1);
C->_result_type=/*X496*/((T0*)(((T808*)((T808*)((((T574*)C))->_run_feature/*12*/))))->_result_type/*24*/);
/*IF*/if (((((T574*)C))->_result_type/*16*/)==((void*)(NULL))) {
r683add_position(X496start_position((((T574*)C))->_run_feature/*12*/));
r574error((((T454*)((T454*)((((T574*)C))->_feature_name/*24*/))))->_start_position/*8*/,((T0*)ms1_295));
}
 else if (X291is_like_current((((T574*)C))->_result_type/*16*/)) {
C->_result_type=X662result_type((((T574*)C))->_target/*8*/);
}
/*FI*/}
void r574cpc_to_runnable(T574* C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=X662to_runnable((((T574*)C))->_target/*8*/,a1);
/*IF*/if ((_t)==((void*)(NULL))) {
r683add_position(X662start_position((((T574*)C))->_target/*8*/));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms2_135);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/C->_target=_t;
_rc=X291run_class(X662result_type((((T574*)C))->_target/*8*/));
C->_run_feature=r368get_rf(((T368*)_rc),(T0*)C);
r576update((((T574*)C))->_target/*8*/,(((T574*)C))->_run_feature/*12*/);
}
void r574error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
/*No:CALL_INFIX_MINUS.fatal_error*/
/*No:CALL_INFIX_MINUS.fz_bad_argument*/
/*No:CALL_INFIX_MINUS.arg1*/
/*No:PRETTY.dos_system*/
/*No:PRETTY.fz_system_se*/
/*No:PRETTY.fz_sys*/
/*No:PRETTY.unix_system*/
void r943error_style(T943* C,T0* a1){
C->_state=2;
/*[IRF3.6append*/{T0* b1=((T0*)ms10_943);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=(((T943*)C))->_style/*4*/;
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=((T0*)ms11_943);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=a1;
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=((T0*)ms67_470);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683print_as_error(((T683*)(oBC364eh)));
}
/*No:PRETTY.exit_failure_code*/
/*No:PRETTY.vms_system*/
T0* r943small_eiffel_directory(T943* C){
if (fBC364small_eiffel_directory==0){
T0* R=NULL;
char _slash=0;
int _i=0;
fBC364small_eiffel_directory=1;
R=r943get_environment_variable(C,((T0*)ms121_470));
/*IF*/if ((R)==((void*)(NULL))) {
R=r7twin(((T7*)(((T0*)ms121_470))));
r7to_upper(((T7*)R));
R=r943get_environment_variable(C,R);
/*IF*/if ((R)!=((void*)(NULL))) {
r7to_upper(((T7*)(((T0*)ms121_470))));
}
/*FI*/}
/*FI*//*IF*/if ((R)==((void*)(NULL))) {
R=((T0*)ms1_364);
}
/*FI*/_i=(((T7*)((T7*)R)))->_count/*4*/;
while (!((_i)<(0))) {
_slash=/*(IRF4.6item*/((((T7*)((T7*)R)))->_storage/*0*/)[(_i)-(1)]/*)*/;
/*IF*/if ((r3is_letter(_slash))||(r3is_digit(_slash))) {
_i=(_i)-(1);
}
else {
_i=-(1);
}
/*FI*/}
/*IF*/if ((_i)==(0)) {
r7extend(((T7*)R),'\57');
}
 else if (!((r7last(((T7*)R)))==(_slash))) {
r7extend(((T7*)R),_slash);
}
/*FI*/oBC364small_eiffel_directory=R;}
return oBC364small_eiffel_directory;}
void r943automat(T943* C){
T0* _a=NULL;
int _arg=0;
_arg=1;
while (!(((_arg)>(/*(IRF4.9argument_count*/(((T927*)((T927*)(r943command_arguments()))))->_upper/*8*//*)*/))||(((((T943*)C))->_state/*0*/)>(0)))) {
_a=r943argument(_arg);
/*IF*/if ((/*(IRF4.6item*/((((T7*)((T7*)_a)))->_storage/*0*/)[(1)-(1)]/*)*/)!=('\55')) {
r52add_last(((T52*)(r943class_names())),_a);
}
 else if (r7is_equal(ms3_943,_a)) {
/*[IRF3.3set_no_warning*/((((T683*)(((T683*)(oBC364eh)))))->_no_warning)=(1);
/*]*/
}
 else if (r7is_equal(ms4_943,_a)) {
/*IF*/if (((((T943*)C))->_style/*4*/)!=((void*)(NULL))) {
r943error_style(C,_a);
}
else {
/*[IRF3.3set_default*/((((T238*)(((T238*)(oBC364fmt)))))->_mode)=(0);
/*]*/
C->_style=_a;
}
/*FI*/}
 else if (r7is_equal(ms5_943,_a)) {
/*IF*/if (((((T943*)C))->_style/*4*/)!=((void*)(NULL))) {
r943error_style(C,_a);
}
else {
/*[IRF3.3set_zen*/((((T238*)(((T238*)(oBC364fmt)))))->_mode)=(1);
/*]*/
C->_style=_a;
}
/*FI*/}
 else if (r7is_equal(ms6_943,_a)) {
/*IF*/if (((((T943*)C))->_style/*4*/)!=((void*)(NULL))) {
r943error_style(C,_a);
}
else {
/*[IRF3.3set_end*/((((T238*)(((T238*)(oBC364fmt)))))->_mode)=(2);
/*]*/
C->_style=_a;
}
/*FI*/}
 else if (r7is_equal(ms7_943,_a)) {
/*IF*/if (((((T943*)C))->_style/*4*/)!=((void*)(NULL))) {
r943error_style(C,_a);
}
else {
/*[IRF3.3set_parano*/((((T238*)(((T238*)(oBC364fmt)))))->_mode)=(3);
/*]*/
C->_style=_a;
}
/*FI*/}
else {
r306w_put_string(((T0*)ms142_470));
r306w_put_string(_a);
r306w_put_character('\n');
C->_state=2;
}
/*FI*/_arg=(_arg)+(1);
}
/*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)>(0)) {
/*[IRF3.6append*/{T0* b1=((T0*)ms8_943);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683print_as_error(((T683*)(oBC364eh)));
}
else {
/*IF*/if (r52empty(((T52*)(r943class_names())))) {
/*[IRF3.6append*/{T0* b1=((T0*)ms9_943);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683print_as_error(((T683*)(oBC364eh)));
}
else {
r943pretty_print(C);
}
/*FI*/}
/*FI*/}
/*No:PRETTY.amiga_system*/
void r943make(T943* C){
/*IF*/if ((/*(IRF4.9argument_count*/(((T927*)((T927*)(r943command_arguments()))))->_upper/*8*//*)*/)<(1)) {
r306w_put_string(((T0*)ms1_943));
r943print_help(C,((T0*)ms2_943));
exit(1);
}
else {
r943automat(C);
}
/*FI*/}
/*No:PRETTY.rename_file*/
/*No:PRETTY.nb_errors*/
/*No:PRETTY.help_suffix*/
T0*oBC364help_file_name=NULL;
T0*oBC943new_file=NULL;
T0*oBC943path=NULL;
void r943add_directory(T943* C,T0* a1,T0* a2){
/*IF*/if ((((T0*)ms17_364))==((void*)(r943system_name(C)))) {
r7set_last(((T7*)a1),'\57');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\57');
}
 else if ((((T0*)ms19_364))==((void*)(r943system_name(C)))) {
r7set_last(((T7*)a1),'\134');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\134');
}
 else if ((((T0*)ms15_364))==((void*)(r943system_name(C)))) {
r7set_last(((T7*)a1),'\72');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\72');
}
 else if ((((T0*)ms14_364))==((void*)(r943system_name(C)))) {
r7set_last(((T7*)a1),'\134');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\134');
}
 else if ((((T0*)ms16_364))==((void*)(r943system_name(C)))) {
r7set_last(((T7*)a1),'\134');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\134');
}
 else if ((((T0*)ms13_364))==((void*)(r943system_name(C)))) {
r7set_last(((T7*)a1),'\57');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\57');
}
 else if ((((T0*)ms18_364))==((void*)(r943system_name(C)))) {
r7set_last(((T7*)a1),'\135');
r7remove_last(((T7*)a1),1);
r7set_last(((T7*)a1),'\56');
r7append(((T7*)a1),a2);
r7set_last(((T7*)a1),'\135');
}
/*FI*/}
T670 oBC1file_tools=0;
/*No:PRETTY.windows_system*/
void r943pretty_for(T943* C,T0* a1){
T0* _e_class=NULL;
_e_class=r604load_class(((T604*)(oBC364small_eiffel)),a1);
/*IF*/if ((_e_class)==((void*)(NULL))) {
/*[IRF3.6append*/{T0* b1=((T0*)ms12_943);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=a1;
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms13_943);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
else {
r7copy(((T7*)(oBC943path)),(((T605*)((T605*)_e_class)))->_path/*4*/);
r7copy(((T7*)(oBC943backup)),oBC943path);
/*[IRF3.6remove_suffix*/{T7* C1=((T7*)(oBC943backup));
T0* b1=((T0*)ms25_364);
r7remove_last(C1,(((T7*)((T7*)b1)))->_count/*4*/);
}/*]*/
r7append(((T7*)(oBC943backup)),((T0*)ms38_364));
/*IF*/if (r943file_exists(oBC943backup)) {
/*[IRF3.6append*/{T0* b1=((T0*)ms14_943);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=oBC943backup;
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms15_943);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*//*[IRF3.6rename_file*/{T0* b1=oBC943path;
T0* b2=oBC943backup;
/*[IRF3.6rename_to*/{T0* c1=b1;
T0* c2=b2;
rename(((char*)r7to_external(((T7*)c1))),((char*)r7to_external(((T7*)c2))));
}/*]*/
}/*]*/
/*IF*/if (!(r943file_exists(oBC943backup))) {
/*[IRF3.6append*/{T0* b1=((T0*)ms16_943);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=oBC943path;
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms17_943);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/r943sfw_connect(C,oBC943new_file,oBC943path);
r238connect_to(((T238*)(oBC364fmt)),oBC943new_file);
r605pretty_print(((T605*)_e_class));
r544disconnect(((T544*)(oBC943new_file)));
/*IF*/if (!(r604re_load_class(((T604*)(oBC364small_eiffel)),_e_class))) {
/*[IRF3.6append*/{T0* b1=((T0*)ms18_943);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6append*/{T0* b1=oBC943backup;
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms19_943);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/}
/*FI*/}
T0* r943get_environment_variable(T943* C,T0* a1){
T0* R=NULL;
void* _p=0;
_p=r7to_external(((T7*)a1));
R=(NULL==(_p=getenv((char*)_p)))?NULL:((T0*)e2s((char*)_p));
return R;
}
void r943print_help(T943* C,T0* a1){
r7copy(((T7*)(oBC364help_file_name)),r943small_eiffel_directory(C));
r943add_directory(C,oBC364help_file_name,((T0*)ms2_364));
r7append(((T7*)(oBC364help_file_name)),a1);
/*IF*/if (!(r7has_suffix(((T7*)(oBC364help_file_name)),((T0*)ms39_364)))) {
r7append(((T7*)(oBC364help_file_name)),((T0*)ms39_364));
}
/*FI*//*IF*/if (!(r943file_exists(oBC364help_file_name))) {
r306w_put_string(((T0*)ms3_364));
r306w_put_string(oBC364help_file_name);
r306w_put_string(((T0*)ms242_470));
exit(1);
}
/*FI*/r830append_file(((T830*)(oBC1std_output)),oBC364help_file_name);
}
/*No:PRETTY.style*/
int fBC1command_arguments=0;
T0*oBC1command_arguments=NULL;
T0* r943command_arguments(void){
if (fBC1command_arguments==0){
T0* R=NULL;
T0* _arg=NULL;
int _i=0;
fBC1command_arguments=1;
_i=se_argc;
{T927*n=malloc(sizeof(*n));
*n=M927;
r927make(n,_i);
R=(T0*)n;
}
while (!((_i)==(0))) {
_i=(_i)-(1);
_arg=((T0*)e2s(se_argv[_i]));
/*[IRF3.5put*/((((T927*)((T927*)R)))->_storage/*0*/)[_i]=(_arg);
/*]*/
}
oBC1command_arguments=R;}
return oBC1command_arguments;}
T0* r943system_name(T943* C){
if (fBC364system_name==0){
T0* R=NULL;
int _i=0;
fBC364system_name=1;
r7copy(((T7*)(oBC364tmp_path)),r943small_eiffel_directory(C));
/*IF*/if (r7has(((T7*)(oBC364tmp_path)),'\57')) {
r7set_last(((T7*)(oBC364tmp_path)),'\57');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms126_470));
r7extend(((T7*)(oBC364tmp_path)),'\57');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r7copy(((T7*)(oBC364tmp_path)),r943small_eiffel_directory(C));
/*IF*/if (r7has(((T7*)(oBC364tmp_path)),'\134')) {
r7set_last(((T7*)(oBC364tmp_path)),'\134');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms126_470));
r7extend(((T7*)(oBC364tmp_path)),'\134');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*/}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r7copy(((T7*)(oBC364tmp_path)),r943small_eiffel_directory(C));
/*IF*/if (r7has(((T7*)(oBC364tmp_path)),'\72')) {
r7set_last(((T7*)(oBC364tmp_path)),'\72');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms126_470));
r7extend(((T7*)(oBC364tmp_path)),'\72');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*/}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r7copy(((T7*)(oBC364tmp_path)),r943small_eiffel_directory(C));
/*IF*/if (r7has(((T7*)(oBC364tmp_path)),'\135')) {
r7set_last(((T7*)(oBC364tmp_path)),'\135');
r7remove_last(((T7*)(oBC364tmp_path)),1);
r7extend(((T7*)(oBC364tmp_path)),'\56');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms126_470));
r7extend(((T7*)(oBC364tmp_path)),'\135');
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*/}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r7copy(((T7*)(oBC364tmp_path)),r943small_eiffel_directory(C));
r7append(((T7*)(oBC364tmp_path)),((T0*)ms127_470));
r306sfr_connect(((T306*)(oBC364echo)),oBC364tmp_file_read,oBC364tmp_path);
}
/*FI*//*IF*/if (!(/*(IRF4.7is_connected*/((((T675*)((T675*)(oBC364tmp_file_read))))->_path/*4*/)!=(NULL)/*)*/)) {
r306w_put_string(((T0*)ms20_364));
r306w_put_string(((T0*)ms127_470));
r306w_put_string(((T0*)ms21_364));
r306w_put_string(r943small_eiffel_directory(C));
r306w_put_string(((T0*)ms242_470));
exit(1);
}
/*FI*/r675read_line(((T675*)(oBC364tmp_file_read)));
R=oBC762last_string;
_i=r52index_of(((T52*)(oBC364system_list)),R);
r675disconnect(((T675*)(oBC364tmp_file_read)));
/*IF*/if ((_i)>((((T52*)((T52*)(oBC364system_list))))->_upper/*8*/)) {
r306w_put_string(((T0*)ms22_364));
r306w_put_string(oBC364tmp_path);
r306w_put_string(((T0*)ms23_364));
_i=1;
while (!((_i)>((((T52*)((T52*)(oBC364system_list))))->_upper/*8*/))) {
r306w_put_string(r52item(((T52*)(oBC364system_list)),_i));
r306w_put_character('\n');
_i=(_i)+(1);
}
}
else {
R=r52item(((T52*)(oBC364system_list)),_i);
r306put_string(((T306*)(oBC364echo)),((T0*)ms24_364));
r306put_string(((T306*)(oBC364echo)),R);
r306put_string(((T306*)(oBC364echo)),((T0*)ms242_470));
}
/*FI*/oBC364system_name=R;}
return oBC364system_name;}
int fBC943class_names=0;
T0*oBC943class_names=NULL;
T0* r943class_names(void){
if (fBC943class_names==0){
T0* R=NULL;
fBC943class_names=1;
{T52*n=malloc(sizeof(*n));
*n=M52;
r52make(n,1,10);
R=(T0*)n;
}
r52clear(((T52*)R));
oBC943class_names=R;}
return oBC943class_names;}
/*No:PRETTY.fz_b0*/
T0*oBC943backup=NULL;
void r943pretty_print(T943* C){
int _i=0;
_i=(((T52*)((T52*)(r943class_names()))))->_lower/*12*/;
while (!((_i)>((((T52*)((T52*)(r943class_names()))))->_upper/*8*/))) {
r943pretty_for(C,r52item(((T52*)(r943class_names())),_i));
_i=(_i)+(1);
}
}
/*No:PRETTY.fz_se*/
/*No:PRETTY.os2_system*/
/*No:PRETTY.fz_08*/
void r943sfw_connect(T943* C,T0* a1,T0* a2){
r544connect_to(((T544*)a1),a2);
/*IF*/if (/*(IRF4.7is_connected*/((((T544*)((T544*)a1)))->_path/*0*/)!=(NULL)/*)*/) {
r306put_string(((T306*)(oBC364echo)),((T0*)ms6_364));
r306put_string(((T306*)(oBC364echo)),a2);
r306put_string(((T306*)(oBC364echo)),((T0*)ms7_364));
}
else {
r306w_put_string(((T0*)ms8_364));
r306w_put_string(a2);
r306w_put_string(((T0*)ms242_470));
exit(1);
}
/*FI*/}
/*No:PRETTY.state*/
int r943file_exists(T0* a1){
int R=0;
R=r670is_readable(a1);
return R;
}
/*No:PRETTY.argument_count*/
/*No:PRETTY.macintosh_system*/
/*No:PRETTY.fz_dot*/
/*No:PRETTY.eiffel_suffix*/
/*No:PRETTY.fatal_error*/
T0* r943argument(int a1){
T0* R=NULL;
R=/*(IRF4.6item*/((((T927*)((T927*)(r943command_arguments()))))->_storage/*0*/)[a1]/*)*/;
return R;
}
/*No:PRETTY.backup_suffix*/
void r576update_with(T0* a1){
T0* _running=NULL;
T0* _dictionary2=NULL;
T0* _key2=NULL;
T0* _key1=NULL;
T0* _current_type=NULL;
_current_type=/*X496*/((T0*)(((T808*)((T808*)a1)))->_current_type/*4*/);
_running=(((T368*)((T368*)(X291run_class(_current_type)))))->_running/*12*/;
/*IF*/if (((_running)!=((void*)(NULL)))&&((r396count(((T396*)_running)))>(1))) {
_key1=X291run_time_mark(_current_type);
_key2=X776to_key(/*X496*/((T0*)(((T808*)((T808*)a1)))->_name/*16*/));
/*IF*/if (r338has(((T338*)(oBC576dictionary)),_key1)) {
_dictionary2=r338at(((T338*)(oBC576dictionary)),_key1);
/*IF*/if (!(r199has(((T199*)_dictionary2),_key2))) {
r199put(((T199*)_dictionary2),a1,_key2);
}
/*FI*/}
else {
{T199*n=malloc(sizeof(*n));
*n=M199;
r199make(n);
_dictionary2=(T0*)n;
}
r199put(((T199*)_dictionary2),a1,_key2);
r338put(((T338*)(oBC576dictionary)),_dictionary2,_key1);
}
/*FI*/}
/*FI*/}
void r576update(T0* a1,T0* a2){
T0* _running=NULL;
T0* _current_type=NULL;
/*IF*/if (X662is_current(a1)) {
}
 else if (X662is_manifest_string(a1)) {
}
else {
_current_type=/*X496*/((T0*)(((T808*)((T808*)a2)))->_current_type/*4*/);
/*IF*/if (X291is_reference(_current_type)) {
_running=(((T368*)((T368*)(X291run_class(_current_type)))))->_running/*12*/;
/*IF*/if (((_running)!=((void*)(NULL)))&&((r396count(((T396*)_running)))>(1))) {
r576update_with(a2);
}
/*FI*/}
/*FI*/}
/*FI*/}
T0*oBC576dictionary=NULL;
/*No:CALL_INFIX_IMPLIES.arguments*/
T0* r90add_comment(T90* 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 r90to_integer(T90* C){
int R=0;
r90error(/*(IRF4.6start_position*/(((T454*)((T454*)((((T90*)C))->_feature_name/*24*/))))->_start_position/*8*//*)*/,((T0*)ms69_470));
return R;
}
int r90is_a(T90* C,T0* a1){
int R=0;
R=X291is_a(X291run_type((((T90*)C))->_result_type/*16*/),X291run_type(X662result_type(a1)));
/*IF*/if (!(R)) {
r683add_position(/*(IRF4.6start_position*/(((T454*)((T454*)((((T90*)C))->_feature_name/*24*/))))->_start_position/*8*//*)*/);
r90error(X662start_position(a1),((T0*)ms4_662));
}
/*FI*/return R;
}
/*No:CALL_INFIX_IMPLIES.is_current*/
void r90make(T90* C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if (((a1)==((void*)(NULL)))||((a3)==((void*)(NULL)))) {
r683add_position(a2);
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms1_618);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/{T454*n=malloc(sizeof(*n));
*n=M454;
r454make(n,r90operator(),a2);
C->_feature_name=(T0*)n;
}
{T431*n=malloc(sizeof(*n));
*n=M431;
/*[IRF3.3make*/((((T431*)(n)))->_list)=(se_ma96(1,a3));
/*]*/
_eal=(T0*)n;
}
r90make_call_1(C,a1,(((T90*)C))->_feature_name/*24*/,_eal);
}
void r90print_as_target(T90* C){
r238put_character(((T238*)(oBC364fmt)),'\50');
r90pretty_print(C);
r238put_character(((T238*)(oBC364fmt)),'\51');
r238put_character(((T238*)(oBC364fmt)),'\56');
}
/*No:CALL_INFIX_IMPLIES.nb_errors*/
/*No:CALL_INFIX_IMPLIES.feature_name*/
/*No:CALL_INFIX_IMPLIES.fz_iinaiv*/
/*No:CALL_INFIX_IMPLIES.run_feature*/
/*No:CALL_INFIX_IMPLIES.start_position*/
/*No:CALL_INFIX_IMPLIES.target*/
/*No:CALL_INFIX_IMPLIES.precedence*/
T0* r90to_runnable(T90* C,T0* a1){
T0* R=NULL;
T0* _tla=NULL;
T0* _a=NULL;
/*IF*/if (((((T90*)C))->_current_type/*4*/)==((void*)(NULL))) {
r90to_runnable_0(C,a1);
_a=r431to_runnable(((T431*)((((T90*)C))->_arguments/*20*/)),a1);
/*IF*/if ((_a)==((void*)(NULL))) {
r90error(X662start_position(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/),((T0*)ms55_470));
}
else {
C->_arguments=_a;
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
r431match_with(((T431*)((((T90*)C))->_arguments/*20*/)),(((T90*)C))->_run_feature/*12*/);
}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
_tla=(((T90*)C))->_result_type/*16*/;
if(NULL!=(_tla))switch(((T0*)_tla)->id) {
case 239: 
break;
default:
_tla=NULL;
};/*IF*/if ((_tla)!=((void*)(NULL))) {
C->_result_type=X291run_type(X662result_type(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/));
}
/*FI*/}
/*FI*//*IF*/if ((/*(IRF4.9nb_errors*/(((T683*)((T683*)(oBC364eh))))->_nb_errors/*0*//*)*/)==(0)) {
R=(T0*)C;
}
/*FI*/}
else {
R=r90twin(C);
/*[IRF3.3set_current_type*/((((T90*)(((T90*)R))))->_current_type)=(NULL);
/*]*/
R=r90to_runnable(((T90*)R),a1);
}
/*FI*/return R;
}
void r90bracketed_pretty_print(T90* C){
r238put_character(((T238*)(oBC364fmt)),'\50');
r90pretty_print(C);
r238put_character(((T238*)(oBC364fmt)),'\51');
}
/*No:CALL_INFIX_IMPLIES.result_type*/
T0* r90twin(T90* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T90*)R)=*C;
return R;
}
/*No:CALL_INFIX_IMPLIES.set_current_type*/
T0* r90operator(void){
T0* R=NULL;
R=((T0*)ms34_473);
return R;
}
/*No:CALL_INFIX_IMPLIES.atomic_precedence*/
void r90pretty_print(T90* C){
/*IF*/if ((X662precedence((((T90*)C))->_target/*8*/))==(13)) {
X662pretty_print((((T90*)C))->_target/*8*/);
r90print_op(C);
/*IF*/if ((X662precedence(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/))==(13)) {
X662pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/);
}
 else if ((3)>=(X662precedence(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/))) {
X662bracketed_pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/);
}
else {
X662pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/);
}
/*FI*/}
 else if ((X662precedence(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/))==(13)) {
/*IF*/if ((X662precedence((((T90*)C))->_target/*8*/))>=(3)) {
X662bracketed_pretty_print((((T90*)C))->_target/*8*/);
}
else {
X662pretty_print((((T90*)C))->_target/*8*/);
}
/*FI*/r90print_op(C);
X662pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/);
}
 else if ((3)<=(X662precedence((((T90*)C))->_target/*8*/))) {
X662bracketed_pretty_print((((T90*)C))->_target/*8*/);
r90print_op(C);
/*IF*/if ((3)<=(X662precedence(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/))) {
X662bracketed_pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/);
}
else {
X662pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/);
}
/*FI*/}
else {
X662pretty_print((((T90*)C))->_target/*8*/);
r90print_op(C);
X662pretty_print(/*(IRF4.6arg1*/r431first(((T431*)((((T90*)C))->_arguments/*20*/)))/*)*/);
}
/*FI*/}
/*No:CALL_INFIX_IMPLIES.us_implies*/
void r90print_op(T90* C){
r238put_character(((T238*)(oBC364fmt)),'\40');
/*[IRF3.6pretty_print*/{T454* C1=((T454*)((((T90*)C))->_feature_name/*24*/));
r238put_string(((T238*)(oBC364fmt)),(((T454*)C1))->_to_string/*4*/);
}/*]*/
r238put_character(((T238*)(oBC364fmt)),'\40');
}
/*No:CALL_INFIX_IMPLIES.current_type*/
void r90make_call_1(T90* C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
/*No:CALL_INFIX_IMPLIES.is_manifest_string*/
/*No:CALL_INFIX_IMPLIES.is_void*/
void r90to_runnable_0(T90* C,T0* a1){
C->_current_type=a1;
r90cpc_to_runnable(C,a1);
C->_result_type=/*X496*/((T0*)(((T808*)((T808*)((((T90*)C))->_run_feature/*12*/))))->_result_type/*24*/);
/*IF*/if (((((T90*)C))->_result_type/*16*/)==((void*)(NULL))) {
r683add_position(X496start_position((((T90*)C))->_run_feature/*12*/));
r90error((((T454*)((T454*)((((T90*)C))->_feature_name/*24*/))))->_start_position/*8*/,((T0*)ms1_295));
}
 else if (X291is_like_current((((T90*)C))->_result_type/*16*/)) {
C->_result_type=X662result_type((((T90*)C))->_target/*8*/);
}
/*FI*/}
void r90cpc_to_runnable(T90* C,T0* a1){
T0* _rc=NULL;
T0* _t=NULL;
_t=X662to_runnable((((T90*)C))->_target/*8*/,a1);
/*IF*/if ((_t)==((void*)(NULL))) {
r683add_position(X662start_position((((T90*)C))->_target/*8*/));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms2_135);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*FI*/C->_target=_t;
_rc=X291run_class(X662result_type((((T90*)C))->_target/*8*/));
C->_run_feature=r368get_rf(((T368*)_rc),(T0*)C);
r576update((((T90*)C))->_target/*8*/,(((T90*)C))->_run_feature/*12*/);
}
void r90error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
/*No:CALL_INFIX_IMPLIES.fatal_error*/
/*No:CALL_INFIX_IMPLIES.fz_bad_argument*/
/*No:CALL_INFIX_IMPLIES.arg1*/