This is pretty6.c in view mode; [Download] [Up]
/* ANSI C code generated by SmallEiffel. */
/*
-- SmallEiffel -- Release (- 0.95) -- FRANCE
-- Copyright (C), 1994 - Dominique COLNET and Suzanne COLLIN
-- University Henri Poincare' - Nancy 1 - email colnet@loria.fr
-- CRIN (Centre de Recherche en Informatique de Nancy)
-- FRANCE
*/
#include "pretty.h"
void rT220pretty_print(T220 *C){
rT260level_incr((T260*)oRBC27fmt);
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(0);
/*)*/XrT66pretty_print((C)->_expression);
rT260level_decr((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms536);
rT260indent((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_then_compound)) {
rT138pretty_print((T138*)(C)->_then_compound);
}
/*FI*/}
void rT220make(T220 *C,T0* a1,T0* a2){
C->_expression=a1;
C->_then_compound=a2;
}
T0* rT217add_comment(T217 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
else {/*AT*//*IF*/if ((rT57count((T57*)a1))==(1)) {
R=(T0 *)C;
}
else {
{T215 *n=((T215*)se_new(215));
rT215make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/}
/*FI*/return R;
}
void rT217pretty_print(T217 *C){
rT260keyword((T260*)oRBC27fmt,(T0 *)ms535);
rT221pretty_print((T221*)(C)->_ifthenlist);
/*IF*/if (((int)(C)->_else_compound)) {
rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms538);
rT138pretty_print((T138*)(C)->_else_compound);
}
/*FI*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms539);
/*IF*/if (((T260*)oRBC27fmt)->_print_end_if) {
rT260put_end((T260*)oRBC27fmt,(T0 *)ms540);
}
/*FI*/}
void rT217add_if_then(T217 *C,T0* a1,T0* a2){
T0* _ifthen=NULL;
{T220 *n=((T220*)se_new(220));
rT220make(n,a1,a2);
_ifthen=(T0 *)n;}
/*IF*/if (!((C)->_ifthenlist)) {
{T221 *n=((T221*)se_new(221));
/*(IRF3*/((n)->_list)=(ma(222,0,1,_ifthen));
/*)*/C->_ifthenlist=(T0 *)n;}
}
else {
rT221add_last((T221*)(C)->_ifthenlist,_ifthen);
}
/*FI*/}
int rT57count(T57 *C){
int R=0;
R=rT34count((T34*)(C)->_list);
return R;
}
void rT57error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
int rT57dummy(T57 *C){
int R=0;
T0* _str=NULL;
/*IF*/if ((rT34count((T34*)(C)->_list))==(1)) {
_str=rT34first((T34*)(C)->_list);
/*IF*/if ((((T7*)_str)->_count)<(10)) {
R=1;
}
else {
rT57error(NULL,(T0 *)ms520);
}
/*FI*/}
/*FI*/return R;
}
void rT57pretty_print(T57 *C){
int _column=0;
int _i=0;
/*IF*/if ((((((T260*)oRBC27fmt)->_column)>(1))&&((((T260*)oRBC27fmt)->_last_character)!=('\40')))) {
rT260put_character((T260*)oRBC27fmt,'\40');
}
/*FI*/_column=((T260*)oRBC27fmt)->_column;
_i=((T34*)(C)->_list)->_lower;
while (!((_i)>(((T34*)(C)->_list)->_upper))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms455);
rT260put_string((T260*)oRBC27fmt,rT34item((T34*)(C)->_list,_i));
_i=(_i)+(1);
/*IF*/if ((_i)<=(((T34*)(C)->_list)->_upper)) {
rT260put_character((T260*)oRBC27fmt,'\12');
while (!((((T260*)oRBC27fmt)->_column)==(_column))) {
rT260put_character((T260*)oRBC27fmt,'\40');
}
}
/*FI*/}
rT260put_character((T260*)oRBC27fmt,'\12');
rT260indent((T260*)oRBC27fmt);
}
void rT57add_last(T57 *C,T0* a1){
rT34add_last((T34*)(C)->_list,a1);
}
void rT57make(T57 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_list=a2;
}
int rT6_ix111114(T6 C,int a1){
int R=0;
R=(C)||(a1);
return R;
}
int rT6_px110111116(T6 C){
int R=0;
/*IF*/if (C) {
}
else {
R=1;
}
/*FI*/return R;
}
int rT6_ix97110100(T6 C,int a1){
int R=0;
R=(C)&&(a1);
return R;
}
void rT117pretty_print(T117 *C){
XrT65pretty_print((C)->_old_name);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms467);
XrT65pretty_print((C)->_new_name);
}
void rT117make(T117 *C,T0* a1,T0* a2){
C->_old_name=a1;
C->_new_name=a2;
}
void rT118fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
void rT118pretty_print(T118 *C){
int _i=0;
int _icount=0;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms466);
_i=1;
while (!((_i)>(((T119*)(C)->_list)->_upper))) {
rT117pretty_print((T117*)rT119item((T119*)(C)->_list,_i));
_i=(_i)+(1);
_icount=(_icount)+(1);
/*IF*/if ((_i)<=(((T119*)(C)->_list)->_upper)) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms468);
/*IF*/if ((_icount)>(3)) {
_icount=0;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(3);
/*)*/rT260indent((T260*)oRBC27fmt);
}
/*FI*/}
/*FI*/}
}
void rT118get_started(T118 *C,T0* a1){
T0* _rp=NULL;
int _i=0;
_i=((T119*)(C)->_list)->_upper;
while (!((_i)==(0))) {
_rp=rT119item((T119*)(C)->_list,_i);
/*IF*/if (!(rT48has((T48*)a1,((T117*)_rp)->_old_name))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(XrT65start_position(((T117*)_rp)->_old_name));
rT118fatal_error((T0 *)ms413);
}
/*FI*/_i=(_i)-(1);
}
}
void rT118add_last(T118 *C,T0* a1){
rT119add_last((T119*)(C)->_list,a1);
}
T0* rT118to_new_name(T118 *C,T0* a1){
T0* R=NULL;
int _i=0;
_i=1;
while (!((((int)R))||((_i)>(((T119*)(C)->_list)->_upper)))) {
/*IF*/if (XrT65same_as(((T117*)rT119item((T119*)(C)->_list,_i))->_old_name,a1)) {
R=((T117*)rT119item((T119*)(C)->_list,_i))->_new_name;
}
/*FI*/_i=(_i)+(1);
}
/*IF*/if (!(R)) {
R=a1;
}
/*FI*/return R;
}
T0* rT212add_comment(T212 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
else {/*AT*//*IF*/if ((rT57count((T57*)a1))==(1)) {
R=(T0 *)C;
}
else {
{T215 *n=((T215*)se_new(215));
rT215make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/}
/*FI*/return R;
}
void rT212pretty_print(T212 *C){
rT213pretty_print((T213*)(C)->_check_invariant);
rT260put_string((T260*)oRBC27fmt,(T0 *)ms529);
/*IF*/if (((T260*)oRBC27fmt)->_print_end_check) {
rT260put_end((T260*)oRBC27fmt,(T0 *)ms531);
}
/*FI*/}
void rT212make(T212 *C,T0* a1,T0* a2,T0* a3){
{T213 *n=((T213*)se_new(213));
rT213make(n,a1,a2,a3);
C->_check_invariant=(T0 *)n;}
}
void rT256pretty_print(T256 *C){
int _i=0;
_i=1;
while (!((_i)>(((T257*)(C)->_list)->_upper))) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(0);
/*)*/rT260indent((T260*)oRBC27fmt);
/*IF*/if (!(((T260*)oRBC27fmt)->_zen_mode)) {
rT260skip((T260*)oRBC27fmt,1);
}
/*FI*/rT133pretty_print((T133*)rT257item((T257*)(C)->_list,_i));
_i=(_i)+(1);
}
}
void rT256get_started(T256 *C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>(((T257*)(C)->_list)->_upper))) {
rT133add_into((T133*)rT257item((T257*)(C)->_list,_i),a1);
_i=(_i)+(1);
}
}
void rT256add_last(T256 *C,T0* a1){
rT257add_last((T257*)(C)->_list,a1);
}
T0* rT90name(T90 *C,int a1){
T0* R=NULL;
R=((T92*)rT94item((T94*)(C)->_flat_list,a1))->_name;
return R;
}
int rT90count(T90 *C){
int R=0;
R=((T94*)(C)->_flat_list)->_upper;
return R;
}
void rT90error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
int rT90rank_of(T90 *C,T0* a1){
int R=0;
T0* _ns=NULL;
_ns=XrT47to_string(a1);
R=rT90count(C);
while (!(((R)==(0))||(rT7is_equal((T7*)_ns,XrT47to_string(rT90name(C,R)))))) {
R=(R)-(1);
}
return R;
}
void rT90pretty_print(T90 *C){
int _i=0;
rT260put_character((T260*)oRBC27fmt,'\50');
rT260level_incr((T260*)oRBC27fmt);
_i=1;
while (!((_i)>(XrT141upper((C)->_list)))) {
XrT93pretty_print(XrT141item((C)->_list,_i));
_i=(_i)+(1);
/*IF*/if ((_i)<=(XrT141upper((C)->_list))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms510);
}
/*FI*/}
rT260level_decr((T260*)oRBC27fmt);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT90super_make(T90 *C,T0* a1,T0* a2){
int _actual_count=0;
int _ifl=0;
int _il=0;
C->_start_position=a1;
C->_list=a2;
_il=1;
while (!((_il)>(XrT141upper((C)->_list)))) {
_actual_count=(_actual_count)+(XrT93count(XrT141item((C)->_list,_il)));
_il=(_il)+(1);
}
{T94 *n=((T94*)se_new(94));
rT94make(n,1,_actual_count);
C->_flat_list=(T0 *)n;}
_ifl=1;
_il=1;
while (!((_il)>(XrT141upper((C)->_list)))) {
_ifl=XrT93put_into(XrT141item((C)->_list,_il),(C)->_flat_list,_ifl);
_il=(_il)+(1);
}
}
void rT90make(T90 *C,T0* a1,T0* a2){
int _rank=0;
int _i=0;
T0* _tla=NULL;
T0* _an=NULL;
T0* _tlf=NULL;
T0* _d1=NULL;
rT90super_make(C,a1,a2);
_i=1;
while (!((_i)>(((T94*)(C)->_flat_list)->_upper))) {
_d1=rT94item((T94*)(C)->_flat_list,_i);
_tlf=((T92*)_d1)->_type;
if ((int)_tlf) switch (((T0 *)_tlf)->id) {
case 97:
break;
default:
_tlf = NULL;
};/*IF*/if (((int)_tlf)) {
_rank=rT90rank_of(C,((T97*)_tlf)->_like_what);
/*IF*/if ((_rank)==(_i)) {
rT90error(((T97*)_tlf)->_start_position,(T0 *)ms254);
}
else if ((_rank)>(0)) {
{T86 *n=((T86*)se_new(86));
rT86make(n,XrT65start_position(((T97*)_tlf)->_like_what),XrT65to_string(((T97*)_tlf)->_like_what),_rank);
_an=(T0 *)n;}
{T96 *n=((T96*)se_new(96));
rT96make(n,((T97*)_tlf)->_start_position,_an);
_tla=(T0 *)n;}
/*(IRF3*/(((T92*)_d1)->_type)=(_tla);
/*)*/}
/*FI*/}
/*FI*/_i=(_i)+(1);
}
}
void rT83fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
int rT83count(T83 *C){
int R=0;
R=((T84*)(C)->_list)->_upper;
return R;
}
void rT83pretty_print(T83 *C){
int _i=0;
rT260put_character((T260*)oRBC27fmt,'\133');
rT260level_incr((T260*)oRBC27fmt);
_i=1;
while (!((_i)>(((T84*)(C)->_list)->_upper))) {
rT82pretty_print((T82*)rT84item((T84*)(C)->_list,_i));
_i=(_i)+(1);
/*IF*/if ((_i)<=(((T84*)(C)->_list)->_upper)) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms459);
}
/*FI*/}
rT260put_character((T260*)oRBC27fmt,'\135');
rT260level_decr((T260*)oRBC27fmt);
}
T0* rT83item(T83 *C,int a1){
T0* R=NULL;
R=rT84item((T84*)(C)->_list,a1);
return R;
}
int rT83index_of(T83 *C,T0* a1){
int R=0;
T0* _to_string=NULL;
_to_string=((T46*)a1)->_to_string;
R=((T84*)(C)->_list)->_upper;
while (!(((R)==(0))||(((T0 *)_to_string)==((T0 *)((T46*)((T82*)rT84item((T84*)(C)->_list,R))->_name)->_to_string)))) {
R=(R)-(1);
}
return R;
}
void rT83make(T83 *C,T0* a1,T0* a2){
T0* _fga=NULL;
int _i=0;
int _rank=0;
C->_start_position=a1;
C->_list=a2;
_i=((T84*)a2)->_upper;
while (!((_i)==(0))) {
_fga=rT84item((T84*)a2,_i);
_rank=rT83index_of(C,((T82*)_fga)->_name);
/*IF*/if ((_rank)!=(_i)) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(rT82start_position((T82*)rT84item((T84*)a2,_rank)));
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(rT82start_position((T82*)_fga));
rT83fatal_error((T0 *)ms213);
}
/*FI*/_i=(_i)-(1);
}
}
int rT82constrained(T82 *C){
int R=0;
R=((int)(C)->_constraint);
return R;
}
T0* rT82start_position(T82 *C){
T0* R=NULL;
R=((T46*)(C)->_name)->_start_position;
return R;
}
void rT82pretty_print(T82 *C){
rT46pretty_print((T46*)(C)->_name);
/*IF*/if (rT82constrained(C)) {
rT260level_incr((T260*)oRBC27fmt);
rT260put_string((T260*)oRBC27fmt,(T0 *)ms458);
XrT56pretty_print((C)->_constraint);
rT260level_decr((T260*)oRBC27fmt);
}
/*FI*/}
void rT82make(T82 *C,T0* a1,T0* a2){
C->_name=a1;
C->_constraint=a2;
}
void rT65bracketed_print(T65 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT65pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
int rT65same_as(T65 *C,T0* a1){
int R=0;
R=rT7is_equal((T7*)rT65to_key(C),XrT47to_key(a1));
return R;
}
T0* rT65add_comment(T65 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T219 *n=((T219*)se_new(219));
rT219make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
void rT65print_as_target(T65 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT65pretty_print(T65 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
}
T0* rT65to_key(T65 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
void rT65make(T65 *C,T0* a1,T0* a2){
C->_to_string=a1;
C->_start_position=a2;
}
int rT126count(T126 *C){
int R=0;
R=((T127*)(C)->_list)->_upper;
return R;
}
void rT126error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
void rT126pretty_print(T126 *C){
int _icount=0;
int _i=0;
_i=1;
while (!((_i)>(rT126count(C)))) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(3);
/*)*/XrT65pretty_print(rT127item((T127*)(C)->_list,_i));
_i=(_i)+(1);
_icount=(_icount)+(1);
/*IF*/if ((_i)<=(rT126count(C))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms475);
/*IF*/if ((_icount)>(4)) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(3);
/*)*/rT260indent((T260*)oRBC27fmt);
_icount=0;
}
/*FI*/}
/*FI*/}
}
T0* rT126item(T126 *C,int a1){
T0* R=NULL;
R=rT127item((T127*)(C)->_list,a1);
return R;
}
int rT126index_of(T126 *C,T0* a1){
int R=0;
T0* _fn_key=NULL;
_fn_key=XrT65to_key(a1);
R=1;
while (!(((R)>(rT126count(C)))||(rT7is_equal((T7*)_fn_key,XrT65to_key(rT126item(C,R)))))) {
R=(R)+(1);
}
return R;
}
void rT126make(T126 *C,T0* a1){
int _i2=0;
int _i=0;
C->_list=a1;
_i=((T127*)a1)->_upper;
while (!((_i)==(0))) {
_i2=rT126index_of(C,rT127item((T127*)a1,_i));
/*IF*/if ((_i2)!=(_i)) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(XrT65start_position(rT127item((T127*)a1,_i2)));
rT126error(XrT65start_position(rT127item((T127*)a1,_i)),(T0 *)ms233);
}
/*FI*/_i=(_i)-(1);
}
}
void rT133pretty_print(T133 *C){
int _i=0;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(0);
/*)*//*IF*/if (!(((T260*)oRBC27fmt)->_zen_mode)) {
rT260skip((T260*)oRBC27fmt,1);
}
else {
rT260indent((T260*)oRBC27fmt);
}
/*FI*/rT260keyword((T260*)oRBC27fmt,(T0 *)ms481);
rT121pretty_print((T121*)(C)->_clients);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(0);
/*)*//*IF*/if (((int)(C)->_comment)) {
/*IF*/if (((T260*)oRBC27fmt)->_zen_mode) {
}
else if ((((T260*)oRBC27fmt)->_column)>(15)) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(0);
/*)*/}
/*FI*/rT57pretty_print((T57*)(C)->_comment);
/*IF*/if (!(((T260*)oRBC27fmt)->_zen_mode)) {
rT260skip((T260*)oRBC27fmt,1);
}
/*FI*/}
/*FI*//*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T61*)(C)->_list)->_upper))) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
/*IF*/if (!(((T260*)oRBC27fmt)->_zen_mode)) {
rT260skip((T260*)oRBC27fmt,1);
}
/*FI*/XrT60pretty_print(rT61item((T61*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*//*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(0);
/*)*//*IF*/if (!(((T260*)oRBC27fmt)->_zen_mode)) {
rT260skip((T260*)oRBC27fmt,1);
}
/*FI*/}
void rT133add_into(T133 *C,T0* a1){
T0* _f=NULL;
int _i=0;
/*IF*/if ((((int)(C)->_list))&&(!(rT61empty((T61*)(C)->_list)))) {
_i=1;
while (!((_i)>(((T61*)(C)->_list)->_upper))) {
_f=rT61item((T61*)(C)->_list,_i);
XrT60set_clients(_f,(C)->_clients);
XrT60add_into(_f,a1);
_i=(_i)+(1);
}
}
/*FI*/}
void rT133make(T133 *C,T0* a1,T0* a2,T0* a3){
C->_clients=a1;
C->_comment=a2;
C->_list=a3;
}
void rT258pretty_print(T258 *C){
int _i=0;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(0);
/*)*//*IF*/if (!(((T260*)oRBC27fmt)->_zen_mode)) {
rT260skip((T260*)oRBC27fmt,1);
}
/*FI*/rT260keyword((T260*)oRBC27fmt,(T0 *)ms482);
/*IF*/if (((int)(C)->_header_comment)) {
rT57pretty_print((T57*)(C)->_header_comment);
}
/*FI*//*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T156*)(C)->_list)->_upper))) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
/*IF*/if (!(((T260*)oRBC27fmt)->_zen_mode)) {
rT260skip((T260*)oRBC27fmt,1);
}
/*FI*//*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(1);
/*)*/rT62pretty_print((T62*)rT156item((T156*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*/}
void rT258make(T258 *C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}
void rT64bracketed_print(T64 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT64pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
int rT64same_as(T64 *C,T0* a1){
int R=0;
R=rT7is_equal((T7*)(C)->_to_key,XrT47to_key(a1));
return R;
}
T0* rT64add_comment(T64 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T219 *n=((T219*)se_new(219));
rT219make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
void rT64print_as_target(T64 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT64pretty_print2(T64 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
}
void rT64pretty_print(T64 *C){
rT260keyword((T260*)oRBC27fmt,(T0 *)ms489);
rT260put_character((T260*)oRBC27fmt,'\42');
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
rT260put_character((T260*)oRBC27fmt,'\42');
}
void rT64make(T64 *C,T0* a1,T0* a2){
C->_to_string=a1;
C->_start_position=a2;
C->_to_key=rT7twin((T7*)(C)->_to_string);
rT7append((T7*)(C)->_to_key,(T0 *)ms77);
}
void rT46set_with(T46 *C,T0* a1){
C->_start_position=((T46*)a1)->_start_position;
rT46set_to_string(C,((T46*)a1)->_to_string);
}
T0*oRBC46tmp_string;
int rT46frozen_id(T46 *C){
int R=0;
/*IF*/if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms176)) {
R=1;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms187)) {
R=2;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms184)) {
R=3;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms189)) {
R=4;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms191)) {
R=5;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms182)) {
R=6;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms181)) {
R=7;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms178)) {
R=8;
}
/*FI*/return R;
}
void rT46pretty_print(T46 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
}
T0* rT46to_key(T46 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
T0*oRBC46names_memory;
T0* rT46base_class(T46 *C){
T0* R=NULL;
R=((/*UT*/(void)(T50*)oRBC27small_eiffel),
rT50base_class((T0 *)C));
return R;
}
void rT46make_unknown(T46 *C){
{T44 *n=((T44*)se_new(44));
rT44with(n,1,1,(T0 *)C);
C->_start_position=(T0 *)n;}
C->_to_string=(T0 *)ms71;
}
void rT46make(T46 *C,T0* a1,T0* a2){
C->_start_position=a2;
rT46set_to_string(C,a1);
}
void rT46set_to_string(T46 *C,T0* a1){
int _i=0;
rT7copy((T7*)oRBC46tmp_string,a1);
rT7to_upper((T7*)oRBC46tmp_string);
_i=rT34index_of((T34*)oRBC46names_memory,oRBC46tmp_string);
/*IF*/if ((_i)<=(((T34*)oRBC46names_memory)->_upper)) {
C->_to_string=rT34item((T34*)oRBC46names_memory,_i);
}
else {
C->_to_string=rT7twin((T7*)oRBC46tmp_string);
rT34add_last((T34*)oRBC46names_memory,(C)->_to_string);
}
/*FI*/}
void rT116set_undefine(T116 *C,T0* a1){
{T126 *n=((T126*)se_new(126));
rT126make(n,a1);
C->_undefine_list=(T0 *)n;}
}
void rT116fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
void rT116pretty_print(T116 *C){
int _end_needed=0;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
XrT56pretty_print((C)->_type);
/*IF*/if (((((!((C)->_rename_list))&&(!((C)->_export_list)))&&(!((C)->_undefine_list)))&&(!((C)->_redefine_list)))&&(!((C)->_select_list))) {
rT260put_character((T260*)oRBC27fmt,'\73');
}
/*FI*//*IF*/if (((int)(C)->_comment)) {
rT260put_character((T260*)oRBC27fmt,'\40');
rT57pretty_print((T57*)(C)->_comment);
}
/*FI*//*IF*/if (((int)(C)->_rename_list)) {
_end_needed=1;
rT118pretty_print((T118*)(C)->_rename_list);
}
/*FI*//*IF*/if (((int)(C)->_export_list)) {
_end_needed=1;
rT120pretty_print((T120*)(C)->_export_list);
}
/*FI*//*IF*/if (((int)(C)->_undefine_list)) {
_end_needed=1;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms476);
rT126pretty_print((T126*)(C)->_undefine_list);
}
/*FI*//*IF*/if (((int)(C)->_redefine_list)) {
_end_needed=1;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms477);
rT126pretty_print((T126*)(C)->_redefine_list);
}
/*FI*//*IF*/if (((int)(C)->_select_list)) {
_end_needed=1;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms478);
rT126pretty_print((T126*)(C)->_select_list);
}
/*FI*//*IF*/if (_end_needed) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms479);
}
/*FI*//*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
}
void rT116get_started(T116 *C,T0* a1){
int _all_check=0;
T0* _fn2=NULL;
T0* _fn=NULL;
T0* _pbc=NULL;
T0* _wbc=NULL;
int _i=0;
_all_check=rT259all_check((T259*)oRBC27eiffel_run_control);
C->_parent_list=a1;
_pbc=XrT56base_class((C)->_type);
_wbc=((T129*)(C)->_parent_list)->_base_class;
/*IF*/if ((_all_check)&&(((int)(C)->_rename_list))) {
rT118get_started((T118*)(C)->_rename_list,_pbc);
}
/*FI*//*IF*/if ((_all_check)&&(((int)(C)->_undefine_list))) {
_i=rT126count((T126*)(C)->_undefine_list);
while (!((_i)==(0))) {
_fn=rT126item((T126*)(C)->_undefine_list,_i);
/*IF*/if (!(rT48has((T48*)_pbc,_fn))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(XrT65start_position(_fn));
rT116fatal_error((T0 *)ms414);
}
/*FI*/_i=(_i)-(1);
}
}
/*FI*//*IF*/if ((_all_check)&&(((int)(C)->_redefine_list))) {
_i=rT126count((T126*)(C)->_redefine_list);
while (!((_i)==(0))) {
_fn=rT126item((T126*)(C)->_redefine_list,_i);
/*IF*/if (!(rT48proper_has((T48*)_wbc,_fn))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(XrT65start_position(_fn));
rT116fatal_error((T0 *)ms415);
}
/*FI*//*IF*/if (!(rT48has((T48*)_pbc,_fn))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(XrT65start_position(_fn));
rT116fatal_error((T0 *)ms416);
}
/*FI*//*IF*/if (((int)(C)->_rename_list)) {
_fn2=rT118to_new_name((T118*)(C)->_rename_list,_fn);
/*IF*/if (((T0 *)_fn2)!=((T0 *)_fn)) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(XrT65start_position(_fn));
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(XrT65start_position(_fn2));
rT116fatal_error((T0 *)ms417);
}
/*FI*/}
/*FI*/_i=(_i)-(1);
}
}
/*FI*/}
T0*oRBC116forbidden_parent_list;
void rT116add_rename(T116 *C,T0* a1){
/*IF*/if (!((C)->_rename_list)) {
{T118 *n=((T118*)se_new(118));
/*(IRF3*/((n)->_list)=(ma(119,0,1,a1));
/*)*/C->_rename_list=(T0 *)n;}
}
else {
rT118add_last((T118*)(C)->_rename_list,a1);
}
/*FI*/}
int rT116has(T116 *C,T0* a1){
int R=0;
R=rT48has((T48*)XrT56base_class((C)->_type),a1);
return R;
}
void rT116set_redefine(T116 *C,T0* a1){
{T126 *n=((T126*)se_new(126));
rT126make(n,a1);
C->_redefine_list=(T0 *)n;}
}
void rT116set_select(T116 *C,T0* a1){
{T126 *n=((T126*)se_new(126));
rT126make(n,a1);
C->_select_list=(T0 *)n;}
}
void rT116make(T116 *C,T0* a1){
C->_type=a1;
/*IF*/if (rT34fast_has((T34*)oRBC116forbidden_parent_list,XrT56written_mark((C)->_type))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(XrT56start_position((C)->_type));
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((T0 *)ms218);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append(XrT56written_mark((C)->_type));
rT116fatal_error((T0 *)ms219);
}
/*FI*/}
T0*oRBC27eiffel_run_control;
void rT124warning(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43warning((T43*)oRBC27eh,a2);
}
void rT124pretty_print(T124 *C){
int _i=0;
_i=1;
while (!((_i)>(((T123*)(C)->_list)->_upper))) {
rT46pretty_print((T46*)rT123item((T123*)(C)->_list,_i));
_i=(_i)+(1);
/*IF*/if ((_i)<=(((T123*)(C)->_list)->_upper)) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms473);
}
/*FI*/}
}
int rT124index_of(T124 *C,T0* a1){
int R=0;
T0* _to_string=NULL;
_to_string=XrT47to_string(a1);
R=((T123*)(C)->_list)->_upper;
while (!(((R)==(0))||(((T0 *)_to_string)==((T0 *)((T46*)rT123item((T123*)(C)->_list,R))->_to_string)))) {
R=(R)-(1);
}
return R;
}
void rT124make(T124 *C,T0* a1){
int _i2=0;
int _i=0;
C->_list=a1;
_i=((T123*)(C)->_list)->_upper;
while (!((_i)==(0))) {
_i2=rT124index_of(C,rT123item((T123*)(C)->_list,_i));
/*IF*/if ((_i2)!=(_i)) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(((T46*)rT123item((T123*)(C)->_list,_i2))->_start_position);
rT124warning(((T46*)rT123item((T123*)(C)->_list,_i))->_start_position,(T0 *)ms229);
}
/*FI*/_i=(_i)-(1);
}
}
int rT129count(T129 *C){
int R=0;
R=((T128*)(C)->_list)->_upper;
return R;
}
void rT129pretty_print(T129 *C){
int _i=0;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(0);
/*)*//*IF*/if (((T260*)oRBC27fmt)->_zen_mode) {
rT260indent((T260*)oRBC27fmt);
}
else {
rT260skip((T260*)oRBC27fmt,1);
}
/*FI*/rT260keyword((T260*)oRBC27fmt,(T0 *)ms465);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_heading_comment)) {
rT57pretty_print((T57*)(C)->_heading_comment);
}
/*FI*/_i=1;
while (!((_i)>(((T128*)(C)->_list)->_upper))) {
rT116pretty_print((T116*)rT128item((T128*)(C)->_list,_i));
_i=(_i)+(1);
}
}
void rT129get_started(T129 *C){
int _i=0;
_i=1;
while (!((_i)>(((T128*)(C)->_list)->_upper))) {
rT116get_started((T116*)rT128item((T128*)(C)->_list,_i),(T0 *)C);
_i=(_i)+(1);
}
}
int rT129has(T129 *C,T0* a1){
int R=0;
int _i=0;
_i=1;
while (!((R)||((_i)>(((T128*)(C)->_list)->_upper)))) {
R=rT116has((T116*)rT128item((T128*)(C)->_list,_i),a1);
_i=(_i)+(1);
}
return R;
}
void rT129make(T129 *C,T0* a1,T0* a2,T0* a3,T0* a4){
C->_base_class=a1;
C->_heading_comment=a3;
C->_start_position=a2;
C->_list=a4;
}
T0* rT247add_comment(T247 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
/*AF*/else {
{T215 *n=((T215*)se_new(215));
rT215make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
void rT247pretty_print_assignment(/*C*/T0* a1,T0* a2,T0* a3){
int _semi_colon_flag=0;
XrT66pretty_print(a1);
rT260put_character((T260*)oRBC27fmt,'\40');
rT260put_string((T260*)oRBC27fmt,a2);
rT260put_character((T260*)oRBC27fmt,'\40');
_semi_colon_flag=((T260*)oRBC27fmt)->_semi_colon_flag;
rT260level_incr((T260*)oRBC27fmt);
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(0);
/*)*/XrT66pretty_print(a3);
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(_semi_colon_flag);
/*)*//*IF*/if (_semi_colon_flag) {
rT260put_character((T260*)oRBC27fmt,'\73');
}
/*FI*/rT260level_decr((T260*)oRBC27fmt);
}
void rT247pretty_print(T247 *C){
rT247pretty_print_assignment((C)->_left_side,(T0 *)ms556,(C)->_right_side);
}
void rT247make(T247 *C,T0* a1,T0* a2){
C->_left_side=a1;
C->_right_side=a2;
}
void rT95pretty_print(T95 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
}
T0* rT95to_key(T95 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
void rT95make(T95 *C,T0* a1,T0* a2){
C->_to_string=a1;
C->_start_position=a2;
}
void rT78bracketed_print(T78 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT78pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT78to_string(T78 *C){
T0* R=NULL;
R=rT2to_string((C)->_value);
return R;
}
void rT78error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
T0* rT78add_comment(T78 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T219 *n=((T219*)se_new(219));
rT219make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
T0* rT78_px45(T78 *C){
T0* R=NULL;
{T78 *n=((T78*)se_new(78));
rT78make(n,-((C)->_value),NULL);
R=(T0 *)n;}
return R;
}
void rT78print_as_target(T78 *C){
rT78bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT78pretty_print(T78 *C){
rT260put_string((T260*)oRBC27fmt,rT78to_string(C));
}
T0* rT78to_real_constant(T78 *C){
T0* R=NULL;
rT78error((C)->_start_position,(T0 *)ms270);
return R;
}
void rT78make(T78 *C,int a1,T0* a2){
C->_value=a1;
C->_start_position=a2;
}
T0* rT72add_comment(T72 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T219 *n=((T219*)se_new(219));
rT219make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
int rT2min(T2 C,int a1){
int R=0;
/*IF*/if ((C)<(a1)) {
R=C;
}
else {
R=a1;
}
/*FI*/return R;
}
int rT2max(T2 C,int a1){
int R=0;
/*IF*/if ((a1)<(C)) {
R=C;
}
else {
R=a1;
}
/*FI*/return R;
}
T0* rT2to_string(T2 C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7make(n,0);
R=(T0 *)n;}
rT2append_in(C,R);
return R;
}
char rT2digit(T2 C){
char R=0;
R=rT7item(ms38,(C)+(1));
return R;
}
void rT2append_in(T2 C,T0* a1){
int _i=0;
int _val=0;
/*IF*/if ((C)==(0)) {
rT7extend((T7*)a1,'0');
}
else {
/*IF*/if ((C)<(0)) {
rT7extend((T7*)a1,'\55');
rT2append_in(-(C),a1);
}
else {
_i=(((T7*)a1)->_count)+(1);
_val=C;
while (!((_val)==(0))) {
rT7extend((T7*)a1,rT2digit((_val)%(10)));
_val=(_val)/(10);
}
_val=((T7*)a1)->_count;
while (!((_i)>=(_val))) {
rT7swap((T7*)a1,_i,_val);
_val=(_val)-(1);
_i=(_i)+(1);
}
}
/*FI*/}
/*FI*/}
float rT2to_real(T2 C){
float R=0;
R=C;
return R;
}
void rT80pretty_print(T80 *C){
int _i=0;
rT260put_string((T260*)oRBC27fmt,(T0 *)ms451);
rT260level_incr((T260*)oRBC27fmt);
rT260indent((T260*)oRBC27fmt);
_i=1;
while (!((_i)>(((T81*)(C)->_list)->_upper))) {
rT63pretty_print((T63*)rT81item((T81*)(C)->_list,_i));
_i=(_i)+(1);
/*IF*/if ((_i)<=(((T81*)(C)->_list)->_upper)) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms454);
}
/*FI*/}
rT260put_character((T260*)oRBC27fmt,'\73');
rT260level_decr((T260*)oRBC27fmt);
rT260indent((T260*)oRBC27fmt);
}
void rT63pretty_print(T63 *C){
int _i=0;
/*IF*/if (((int)(C)->_index)) {
rT260put_string((T260*)oRBC27fmt,(C)->_index);
rT260put_string((T260*)oRBC27fmt,(T0 *)ms452);
}
/*FI*//*IF*/if (((int)(C)->_list)) {
rT260level_incr((T260*)oRBC27fmt);
_i=XrT79lower((C)->_list);
while (!((_i)>(XrT79upper((C)->_list)))) {
XrT66pretty_print(XrT79item((C)->_list,_i));
_i=(_i)+(1);
/*IF*/if ((_i)<=(XrT79upper((C)->_list))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms453);
}
/*FI*/}
rT260level_decr((T260*)oRBC27fmt);
}
/*FI*/}
void rT63add_index_value(T63 *C,T0* a1){
/*IF*/if (!((C)->_list)) {
C->_list=ma(79,0,1,a1);
}
else {
XrT79add_last((C)->_list,a1);
}
/*FI*/}
T0* rT250first_name(T250 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT250error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
T0* rT250start_position(T250 *C){
T0* R=NULL;
R=XrT65start_position(rT250first_name(C));
return R;
}
void rT250pretty_print_routine_body(T250 *C){
/*IF*/if (((int)(C)->_local_vars)) {
rT137pretty_print((T137*)(C)->_local_vars);
}
/*FI*/rT260indent((T260*)oRBC27fmt);
/*(IRF3*/rT260keyword((T260*)oRBC27fmt,(T0 *)ms527);
/*)*/rT260put_character((T260*)oRBC27fmt,'\40');
/*IF*/if (((int)(C)->_routine_body)) {
rT138pretty_print((T138*)(C)->_routine_body);
}
/*FI*/}
void rT250pretty_print_arguments(T250 *C){
/*IF*/if (((int)(C)->_arguments)) {
rT90pretty_print((T90*)(C)->_arguments);
}
/*FI*/}
void rT250pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT250pretty_print_names(T250 *C){
int _i=0;
_i=1;
rT250pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT250pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT250pretty_print_profile(T250 *C){
rT250pretty_print_names(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT250pretty_print_arguments(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(3);
/*)*//*IF*/if (((int)(C)->_result_type)) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms507);
XrT56pretty_print((C)->_result_type);
}
/*FI*/}
void rT250pretty_print(T250 *C){
T0* _fn=NULL;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
rT250pretty_print_profile(C);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms511);
/*IF*/if (((int)(C)->_obsolete_mark)) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms512);
rT74pretty_print((T74*)(C)->_obsolete_mark);
}
/*FI*//*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_header_comment)) {
rT57pretty_print((T57*)(C)->_header_comment);
}
/*FI*//*IF*/if (((int)(C)->_require_assertion)) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT135pretty_print((T135*)(C)->_require_assertion);
}
/*FI*//*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
rT250pretty_print_routine_body(C);
/*IF*/if (((int)(C)->_ensure_assertion)) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT155pretty_print((T155*)(C)->_ensure_assertion);
}
/*FI*//*IF*/if (((int)(C)->_rescue_compound)) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms518);
rT138pretty_print((T138*)(C)->_rescue_compound);
}
/*FI*//*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms519);
/*IF*/if ((((int)(C)->_end_comment))&&(!(rT57dummy((T57*)(C)->_end_comment)))) {
rT57pretty_print((T57*)(C)->_end_comment);
}
else if (((T260*)oRBC27fmt)->_print_end_routine) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms521);
_fn=rT250first_name(C);
/*IF*/if (XrT65is_prefix_name(_fn)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms522);
rT260put_character((T260*)oRBC27fmt,'\42');
rT260put_string((T260*)oRBC27fmt,XrT65to_string(_fn));
rT260put_character((T260*)oRBC27fmt,'\42');
}
else if (XrT65is_infix_name(_fn)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms523);
rT260put_character((T260*)oRBC27fmt,'\42');
rT260put_string((T260*)oRBC27fmt,XrT65to_string(_fn));
rT260put_character((T260*)oRBC27fmt,'\42');
}
else {
rT260put_string((T260*)oRBC27fmt,XrT65to_string(_fn));
}
/*FI*/}
/*FI*/rT260put_character((T260*)oRBC27fmt,'\12');
}
void rT250add_into(T250 *C,T0* a1){
T0* _fn=NULL;
int _i=0;
C->_base_class=rT44base_class((T44*)XrT65start_position(rT126item((T126*)(C)->_names,1)));
_i=1;
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
_fn=rT126item((T126*)(C)->_names,_i);
/*IF*/if (rT59has((T59*)a1,XrT65to_key(_fn))) {
_fn=XrT60first_name(rT59at((T59*)a1,XrT65to_key(_fn)));
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(XrT65start_position(_fn));
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(XrT65start_position(rT126item((T126*)(C)->_names,_i)));
rT43error((T43*)oRBC27eh,(T0 *)ms412);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append(XrT65to_string(_fn));
rT43error((T43*)oRBC27eh,(T0 *)ms34);
}
else {
rT59put((T59*)a1,(T0 *)C,XrT65to_key(_fn));
}
/*FI*/_i=(_i)+(1);
}
}
void rT250set_header_comment(T250 *C,T0* a1){
/*IF*/if ((((int)a1))&&((rT57count((T57*)a1))>(1))) {
C->_end_comment=a1;
}
/*FI*/}
void rT250set_rescue_compound(T250 *C,T0* a1){
/*IF*/if ((((int)a1))&&(/*(IRF4*/0/*)*/)) {
rT250error(rT250start_position(C),(T0 *)ms395);
}
/*FI*/C->_rescue_compound=a1;
}
void rT250make_e_feature(T250 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT250make_routine(T250 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
rT250make_e_feature(C,a1,NULL);
C->_header_comment=a4;
C->_arguments=a2;
C->_obsolete_mark=a3;
C->_require_assertion=a5;
}
void rT250make(T250 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7){
rT250make_routine(C,a1,a2,a3,a4,a5);
C->_local_vars=a6;
C->_routine_body=a7;
C->_use_current_state=1008;
}
T0* rT50find_path_for(/*C*/T0* a1){
T0* R=NULL;
int _i=0;
rT7copy((T7*)(T0 *)ms43,a1);
rT7to_lower((T7*)(T0 *)ms43);
/*IF*/if (!(rT7has_suffix((T7*)(T0 *)ms43,(T0 *)ms44))) {
rT7append((T7*)(T0 *)ms43,(T0 *)ms44);
}
/*FI*//*IF*/if (rT50file_exists((T0 *)ms43)) {
R=rT7twin((T7*)(T0 *)ms43);
}
else {
_i=((T34*)rT50loading_path())->_lower;
while (!((((_i)>(((T34*)rT50loading_path())->_upper))||(((int)R))))) {
rT7copy((T7*)(T0 *)ms51,rT34item((T34*)rT50loading_path(),_i));
rT7append((T7*)(T0 *)ms51,(T0 *)ms43);
/*IF*/if (rT50file_exists((T0 *)ms51)) {
R=rT7twin((T7*)(T0 *)ms51);
}
/*FI*/_i=(_i)+(1);
}
}
/*FI*//*IF*/if ((!(R))&&(rT55has((T55*)rT50rename_dictionary(),(T0 *)ms43))) {
rT7copy((T7*)(T0 *)ms51,rT55at((T55*)rT50rename_dictionary(),(T0 *)ms43));
/*IF*/if (rT50file_exists((T0 *)ms51)) {
R=(T0 *)ms51;
}
else {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms58);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms51);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms59);
rT50die_with_code(1);
}
/*FI*/}
/*FI*//*IF*/if (!(R)) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms60);
rT37put_string((T37*)oRBC1std_error,a1);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms61);
/*(IRF3*/(((T7*)(T0 *)ms51)->_count)=(0);
/*)*/rT50append_loading_path_in((T0 *)ms51);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms51);
}
/*FI*/return R;
}
T0* rT50get_class(/*C*/T0* a1){
T0* R=NULL;
/*IF*/if (rT52has((T52*)oRBC50base_class_dictionary,a1)) {
R=rT52at((T52*)oRBC50base_class_dictionary,a1);
}
else {
rT46make((T46*)rT50tmp_class_name(),a1,NULL);
R=rT46base_class((T46*)rT50tmp_class_name());
}
/*FI*/return R;
}
int rT50is_used(/*C*/T0* a1){
int R=0;
R=rT52has((T52*)oRBC50base_class_dictionary,a1);
return R;
}
T0* rT50get_environment_variable(/*C*/T0* a1){
T0* R=NULL;
void * _p=0;
_p=rT7to_external((T7*)a1);
_p=((void*)getenv((char*)_p));
/*IF*/if (((int)_p)) {
R=(T0*)e2s((char*)_p);
}
/*FI*/return R;
}
char rT50directory_separator(/*C*/void){
if (ofBC27directory_separator==0){
char R=0;
ofBC27directory_separator=1;
R=rT7last((T7*)rT50small_eiffel_directory());
oRBC27directory_separator=R;}
return oRBC27directory_separator;}
void rT50die_with_code(/*C*/int a1){
exit(a1);
}
void rT50fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
int ofBC50loading_path=0;
T0*oRBC50loading_path;
T0* rT50loading_path(/*C*/void){
if (ofBC50loading_path==0){
T0* R=NULL;
T0* _file=NULL;
T0* _defaults=NULL;
char _slash=0;
int _i=0;
T0* _path=NULL;
ofBC50loading_path=1;
_path=(T0 *)ms45;
{T34 *n=((T34*)se_new(34));
rT34make(n,1,10);
R=(T0 *)n;}
rT34clear((T34*)R);
_slash=rT50directory_separator();
/*IF*/if (rT50file_exists(_path)) {
{T42 *n=((T42*)se_new(42));
/*(IRF3*/((n)->_mode)=((T0 *)ms25);
/*)*/_file=(T0 *)n;}
rT50open_read(_file,_path);
while (!(rT42end_of_input((T42*)_file))) {
rT42read_line((T42*)_file);
_path=rT7twin((T7*)oRBC42last_string);
/*IF*/if (!(rT7empty((T7*)_path))) {
/*IF*/if ((rT7last((T7*)_path))!=(_slash)) {
rT7extend((T7*)_path,_slash);
}
/*FI*/rT34add_last((T34*)R,_path);
}
/*FI*/}
rT42disconnect((T42*)_file);
}
/*FI*/_defaults=ma(34,0,3,ms48,ms49,ms50);
_i=1;
while (!((_i)>(((T34*)_defaults)->_upper))) {
_path=rT34item((T34*)_defaults,_i);
rT7prepend((T7*)_path,rT50small_eiffel_directory());
rT7extend((T7*)_path,_slash);
rT34add_last((T34*)R,_path);
_i=(_i)+(1);
}
oRBC50loading_path=R;}
return oRBC50loading_path;}
void rT50incr_magic_count(T50 *C){
C->_magic_count=((C)->_magic_count)+(1);
}
void rT50add_class(T50 *C,T0* a1){
rT52put((T52*)oRBC50base_class_dictionary,a1,((T46*)((T48*)a1)->_base_class_name)->_to_string);
rT50incr_magic_count(C);
}
int rT50re_load_class(/*C*/T0* a1){
int R=0;
T0* _new_class=NULL;
T0* _name=NULL;
_name=((T46*)((T48*)a1)->_base_class_name)->_to_string;
rT52remove((T52*)oRBC50base_class_dictionary,_name);
_new_class=rT50load_class(_name);
R=((int)_new_class);
return R;
}
void rT50open_read(/*C*/T0* a1,T0* a2){
rT42connect_to((T42*)a1,a2);
/*IF*/if (!(rT42is_connected((T42*)a1))) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms46);
rT37put_string((T37*)oRBC1std_error,a2);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms47);
rT50die_with_code(1);
}
/*FI*/}
int ofBC50tmp_class_name=0;
T0*oRBC50tmp_class_name;
T0* rT50tmp_class_name(/*C*/void){
if (ofBC50tmp_class_name==0){
T0* R=NULL;
ofBC50tmp_class_name=1;
{T46 *n=((T46*)se_new(46));
rT46make(n,(T0 *)ms175,NULL);
R=(T0 *)n;}
oRBC50tmp_class_name=R;}
return oRBC50tmp_class_name;}
int ofBC50rename_dictionary=0;
T0*oRBC50rename_dictionary;
T0* rT50rename_dictionary(/*C*/void){
if (ofBC50rename_dictionary==0){
T0* R=NULL;
T0* _short_name=NULL;
T0* _full_name=NULL;
int _i=0;
ofBC50rename_dictionary=1;
{T55 *n=((T55*)se_new(55));
rT55make(n);
R=(T0 *)n;}
_i=1;
while (!((_i)>(((T34*)rT50loading_path())->_upper))) {
rT7copy((T7*)(T0 *)ms51,rT34item((T34*)rT50loading_path(),_i));
rT7append((T7*)(T0 *)ms51,(T0 *)ms52);
/*IF*/if (rT50file_exists((T0 *)ms51)) {
rT50open_read(rT50tmp_file_read(),(T0 *)ms51);
while (!(rT42end_of_input((T42*)rT50tmp_file_read()))) {
rT42read_word((T42*)rT50tmp_file_read());
_full_name=rT7twin((T7*)oRBC42last_string);
rT42read_word((T42*)rT50tmp_file_read());
_short_name=rT7twin((T7*)oRBC42last_string);
rT7prepend((T7*)_short_name,rT34item((T34*)rT50loading_path(),_i));
/*IF*/if (rT55has((T55*)R,_full_name)) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms53);
rT37put_string((T37*)oRBC1std_error,_full_name);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms54);
rT37put_string((T37*)oRBC1std_error,_short_name);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms55);
rT37put_string((T37*)oRBC1std_error,rT55at((T55*)R,_full_name));
rT37put_string((T37*)oRBC1std_error,(T0 *)ms56);
rT50die_with_code(1);
}
/*FI*/rT55put((T55*)R,_short_name,_full_name);
rT42skip_separators((T42*)rT50tmp_file_read());
}
rT42disconnect((T42*)rT50tmp_file_read());
}
/*FI*/_i=(_i)+(1);
}
oRBC50rename_dictionary=R;}
return oRBC50rename_dictionary;}
void rT50append_loading_path_in(/*C*/T0* a1){
T0* _sed=NULL;
int _i=0;
rT7append((T7*)a1,(T0 *)ms62);
_i=((T34*)rT50loading_path())->_lower;
while (!((_i)>(((T34*)rT50loading_path())->_upper))) {
rT7extend((T7*)a1,'\42');
rT7append((T7*)a1,rT34item((T34*)rT50loading_path(),_i));
rT7extend((T7*)a1,'\42');
rT7extend((T7*)a1,'\12');
_i=(_i)+(1);
}
rT7append((T7*)a1,(T0 *)ms63);
rT7append((T7*)a1,(T0 *)ms15);
_sed=rT50get_environment_variable((T0 *)ms15);
rT7append((T7*)a1,(T0 *)ms64);
/*IF*/if (!(_sed)) {
rT7append((T7*)a1,(T0 *)ms65);
}
else {
rT7append((T7*)a1,(T0 *)ms66);
rT7append((T7*)a1,_sed);
rT7append((T7*)a1,(T0 *)ms67);
}
/*FI*/rT7extend((T7*)a1,'\12');
}
int ofBC27tmp_file_read=0;
T0*oRBC27tmp_file_read;
T0* rT50tmp_file_read(/*C*/void){
if (ofBC27tmp_file_read==0){
T0* R=NULL;
ofBC27tmp_file_read=1;
{T42 *n=((T42*)se_new(42));
/*(IRF3*/((n)->_mode)=((T0 *)ms25);
/*)*/R=(T0 *)n;}
oRBC27tmp_file_read=R;}
return oRBC27tmp_file_read;}
T0* rT50small_eiffel_directory(/*C*/void){
if (ofBC27small_eiffel_directory==0){
T0* R=NULL;
char _slash=0;
int _i=0;
ofBC27small_eiffel_directory=1;
R=rT50get_environment_variable((T0 *)ms15);
/*IF*/if (!(R)) {
R=rT7twin((T7*)(T0 *)ms15);
rT7to_upper((T7*)R);
R=rT50get_environment_variable(R);
/*IF*/if (((int)R)) {
rT7to_upper((T7*)(T0 *)ms15);
}
/*FI*/}
/*FI*//*IF*/if (!(R)) {
R=(T0 *)ms19;
}
/*FI*/_i=((T7*)R)->_count;
while (!((_i)<(0))) {
_slash=rT7item((T7*)R,_i);
/*IF*/if ((rT3is_letter(_slash))||(rT3is_digit(_slash))) {
_i=(_i)-(1);
}
else {
_i=-(1);
}
/*FI*/}
/*IF*/if ((_i)==(0)) {
rT7extend((T7*)R,'\57');
}
else if (!((rT7last((T7*)R))==(_slash))) {
rT7extend((T7*)R,_slash);
}
/*FI*/oRBC27small_eiffel_directory=R;}
return oRBC27small_eiffel_directory;}
T0* rT50base_class(/*C*/T0* a1){
T0* R=NULL;
T0* _path=NULL;
/*IF*/if (rT52has((T52*)oRBC50base_class_dictionary,((T46*)a1)->_to_string)) {
R=rT52at((T52*)oRBC50base_class_dictionary,((T46*)a1)->_to_string);
}
else if (/*(IRF4*/((T49*)oRBC27eiffel_parser)->_is_running/*)*/) {
rT50fatal_error((T0 *)ms42);
}
else {
_path=rT50find_path_for(((T46*)a1)->_to_string);
/*IF*/if (((int)_path)) {
R=rT49analyse_class((T49*)oRBC27eiffel_parser,_path);
}
/*FI*//*IF*/if (!(R)) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(((T46*)a1)->_start_position);
rT50fatal_error((T0 *)ms418);
}
else if (!(rT52has((T52*)oRBC50base_class_dictionary,((T46*)a1)->_to_string))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((T0 *)ms419);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append(_path);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((T0 *)ms420);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append(((T46*)a1)->_to_string);
rT50fatal_error((T0 *)ms421);
}
/*FI*/}
/*FI*/return R;
}
T0*oRBC50base_class_dictionary;
int rT50next_id(T50 *C){
int R=0;
/*IF*/if (((C)->_last_id)==(0)) {
C->_last_id=25;
}
/*FI*/C->_last_id=((C)->_last_id)+(1);
R=(C)->_last_id;
return R;
}
int rT50next_unique(T50 *C){
int R=0;
/*IF*/if (((C)->_last_unique)<(1000)) {
C->_last_unique=1000;
}
/*FI*/C->_last_unique=((C)->_last_unique)+(1);
R=(C)->_last_unique;
return R;
}
T0* rT50load_class(/*C*/T0* a1){
T0* R=NULL;
T0* _path=NULL;
_path=rT50find_path_for(a1);
/*IF*/if (!(_path)) {
rT50fatal_error((T0 *)ms438);
}
else {
R=rT49analyse_class((T49*)oRBC27eiffel_parser,_path);
/*IF*/if (!(R)) {
rT50fatal_error((T0 *)ms439);
}
/*FI*/}
/*FI*/return R;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.