This is pretty2.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"
T0* rT147first_name(T147 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT147pretty_tail(T147 *C){
rT260put_string((T260*)oRBC27fmt,(T0 *)ms509);
rT73pretty_print((T73*)rT147value(C,1));
}
void rT147pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT147pretty_print_names(T147 *C){
int _i=0;
_i=1;
rT147pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT147pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT147pretty_print_profile(T147 *C){
rT147pretty_print_names(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*//*(IRF3*//*)*//*(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 rT147pretty_print(T147 *C){
rT147pretty_print_profile(C);
rT147pretty_tail(C);
rT260put_character((T260*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT57pretty_print((T57*)(C)->_header_comment);
}
/*FI*/}
void rT147add_into(T147 *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);
}
}
T0* rT147value(T147 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
void rT147make_e_feature(T147 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT147make(T147 *C,T0* a1,T0* a2,T0* a3){
rT147make_e_feature(C,a1,a2);
C->_value_mem=a3;
}
T0* rT148first_name(T148 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT148pretty_tail(T148 *C){
rT260put_string((T260*)oRBC27fmt,(T0 *)ms509);
rT74pretty_print((T74*)rT148value(C,1));
}
void rT148pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT148pretty_print_names(T148 *C){
int _i=0;
_i=1;
rT148pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT148pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT148pretty_print_profile(T148 *C){
rT148pretty_print_names(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*//*(IRF3*//*)*//*(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 rT148pretty_print(T148 *C){
rT148pretty_print_profile(C);
rT148pretty_tail(C);
rT260put_character((T260*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT57pretty_print((T57*)(C)->_header_comment);
}
/*FI*/}
void rT148add_into(T148 *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);
}
}
T0* rT148value(T148 *C,int a1){
T0* R=NULL;
R=rT149item((T149*)(C)->_values,a1);
return R;
}
void rT148make_e_feature(T148 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT148make(T148 *C,T0* a1,T0* a2,T0* a3){
int _i=0;
rT148make_e_feature(C,a1,a2);
{T149 *n=((T149*)se_new(149));
rT149make(n,1,rT126count((T126*)(C)->_names));
C->_values=(T0 *)n;}
rT149put((T149*)(C)->_values,a3,1);
_i=2;
while (!((_i)>(((T149*)(C)->_values)->_upper))) {
rT149put((T149*)(C)->_values,rT74twin((T74*)a3),_i);
_i=(_i)+(1);
}
}
T0* rT150first_name(T150 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT150pretty_tail(T150 *C){
rT260put_string((T260*)oRBC27fmt,(T0 *)ms509);
rT75pretty_print((T75*)rT150value(C,1));
}
void rT150pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT150pretty_print_names(T150 *C){
int _i=0;
_i=1;
rT150pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT150pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT150pretty_print_profile(T150 *C){
rT150pretty_print_names(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*//*(IRF3*//*)*//*(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 rT150pretty_print(T150 *C){
rT150pretty_print_profile(C);
rT150pretty_tail(C);
rT260put_character((T260*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT57pretty_print((T57*)(C)->_header_comment);
}
/*FI*/}
void rT150add_into(T150 *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);
}
}
T0* rT150value(T150 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
void rT150make_e_feature(T150 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT150make(T150 *C,T0* a1,T0* a2,T0* a3){
rT150make_e_feature(C,a1,a2);
C->_value_mem=a3;
}
T0* rT151first_name(T151 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT151pretty_tail(T151 *C){
rT260put_string((T260*)oRBC27fmt,(T0 *)ms509);
rT77pretty_print((T77*)rT151value(C,1));
}
void rT151pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT151pretty_print_names(T151 *C){
int _i=0;
_i=1;
rT151pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT151pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT151pretty_print_profile(T151 *C){
rT151pretty_print_names(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*//*(IRF3*//*)*//*(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 rT151pretty_print(T151 *C){
rT151pretty_print_profile(C);
rT151pretty_tail(C);
rT260put_character((T260*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT57pretty_print((T57*)(C)->_header_comment);
}
/*FI*/}
void rT151add_into(T151 *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);
}
}
T0* rT151value(T151 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
void rT151make_e_feature(T151 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT151make(T151 *C,T0* a1,T0* a2,T0* a3){
rT151make_e_feature(C,a1,a2);
C->_value_mem=a3;
}
T0* rT152first_name(T152 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT152pretty_tail(T152 *C){
rT260put_string((T260*)oRBC27fmt,(T0 *)ms509);
rT77pretty_print((T77*)rT152value(C,1));
}
void rT152pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT152pretty_print_names(T152 *C){
int _i=0;
_i=1;
rT152pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT152pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT152pretty_print_profile(T152 *C){
rT152pretty_print_names(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*//*(IRF3*//*)*//*(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 rT152pretty_print(T152 *C){
rT152pretty_print_profile(C);
rT152pretty_tail(C);
rT260put_character((T260*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT57pretty_print((T57*)(C)->_header_comment);
}
/*FI*/}
void rT152add_into(T152 *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);
}
}
T0* rT152value(T152 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
void rT152make_e_feature(T152 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT152make(T152 *C,T0* a1,T0* a2,T0* a3){
rT152make_e_feature(C,a1,a2);
C->_value_mem=a3;
}
T0* rT153first_name(T153 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT153pretty_tail(T153 *C){
rT260put_string((T260*)oRBC27fmt,(T0 *)ms509);
rT78pretty_print((T78*)rT153value(C,1));
}
void rT153pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT153pretty_print_names(T153 *C){
int _i=0;
_i=1;
rT153pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT153pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT153pretty_print_profile(T153 *C){
rT153pretty_print_names(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*//*(IRF3*//*)*//*(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 rT153pretty_print(T153 *C){
rT153pretty_print_profile(C);
rT153pretty_tail(C);
rT260put_character((T260*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT57pretty_print((T57*)(C)->_header_comment);
}
/*FI*/}
void rT153add_into(T153 *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);
}
}
T0* rT153value(T153 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
void rT153make_e_feature(T153 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT153make(T153 *C,T0* a1,T0* a2,T0* a3){
rT153make_e_feature(C,a1,a2);
C->_value_mem=a3;
}
T0* rT155name(T155 *C){
T0* R=NULL;
/*IF*/if ((C)->_is_ensure_then) {
R=(T0 *)ms516;
}
else {
R=(T0 *)ms517;
}
/*FI*/return R;
}
void rT155pretty_print(T155 *C){
int _i=0;
rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,rT155name(C));
rT260level_incr((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_header_comment)) {
rT57pretty_print((T57*)(C)->_header_comment);
}
else {
rT260indent((T260*)oRBC27fmt);
}
/*FI*//*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T156*)(C)->_list)->_upper))) {
/*IF*/if (((((T260*)oRBC27fmt)->_zen_mode)&&((_i)==(((T156*)(C)->_list)->_upper)))) {
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(0);
/*)*/}
else {
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(1);
/*)*/}
/*FI*/rT260indent((T260*)oRBC27fmt);
rT62pretty_print((T62*)rT156item((T156*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*/rT260level_decr((T260*)oRBC27fmt);
rT260indent((T260*)oRBC27fmt);
}
void rT155make(T155 *C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}
T0* rT135name(T135 *C){
T0* R=NULL;
/*IF*/if ((C)->_is_require_else) {
R=(T0 *)ms513;
}
else {
R=(T0 *)ms514;
}
/*FI*/return R;
}
void rT135pretty_print(T135 *C){
int _i=0;
rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,rT135name(C));
rT260level_incr((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_header_comment)) {
rT57pretty_print((T57*)(C)->_header_comment);
}
else {
rT260indent((T260*)oRBC27fmt);
}
/*FI*//*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T156*)(C)->_list)->_upper))) {
/*IF*/if (((((T260*)oRBC27fmt)->_zen_mode)&&((_i)==(((T156*)(C)->_list)->_upper)))) {
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(0);
/*)*/}
else {
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(1);
/*)*/}
/*FI*/rT260indent((T260*)oRBC27fmt);
rT62pretty_print((T62*)rT156item((T156*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*/rT260level_decr((T260*)oRBC27fmt);
rT260indent((T260*)oRBC27fmt);
}
void rT135make(T135 *C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}
T0* rT234add_comment(T234 *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 rT234pretty_print(T234 *C){
int _semi_colon_flag=0;
rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms547);
/*IF*/if (((int)(C)->_initialize)) {
rT138pretty_print((T138*)(C)->_initialize);
}
/*FI*//*IF*/if (((int)(C)->_invariant_clause)) {
rT235pretty_print((T235*)(C)->_invariant_clause);
}
/*FI*//*IF*/if (((int)(C)->_variant_clause)) {
rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms549);
_semi_colon_flag=((T260*)oRBC27fmt)->_semi_colon_flag;
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(0);
/*)*/XrT236pretty_print((C)->_variant_clause);
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(_semi_colon_flag);
/*)*/}
/*FI*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms550);
rT260level_incr((T260*)oRBC27fmt);
rT260indent((T260*)oRBC27fmt);
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(0);
/*)*/XrT66pretty_print((C)->_until_expression);
rT260level_decr((T260*)oRBC27fmt);
rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms551);
rT260indent((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_loop_body)) {
rT138pretty_print((T138*)(C)->_loop_body);
}
/*FI*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms552);
/*IF*/if (((T260*)oRBC27fmt)->_print_end_loop) {
rT260put_end((T260*)oRBC27fmt,(T0 *)ms553);
}
/*FI*/}
void rT234make(T234 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6){
C->_start_position=a1;
C->_initialize=a2;
C->_invariant_clause=a3;
C->_variant_clause=a4;
C->_until_expression=a5;
C->_loop_body=a6;
}
T0* rT224add_comment(T224 *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 rT224pretty_print(T224 *C){
rT260keyword((T260*)oRBC27fmt,(T0 *)ms542);
rT260level_incr((T260*)oRBC27fmt);
/*IF*/if (!(((T260*)oRBC27fmt)->_zen_mode)) {
rT260indent((T260*)oRBC27fmt);
}
/*FI*//*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(0);
/*)*/XrT66pretty_print((C)->_expression);
rT260level_decr((T260*)oRBC27fmt);
rT260indent((T260*)oRBC27fmt);
rT230pretty_print((T230*)(C)->_when_list);
/*IF*/if (!((C)->_else_compound)) {
/*IF*/if (((int)(C)->_else_position)) {
rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms99);
}
/*FI*/}
else {
rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms99);
rT260level_incr((T260*)oRBC27fmt);
rT138pretty_print((T138*)(C)->_else_compound);
rT260level_decr((T260*)oRBC27fmt);
}
/*FI*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms545);
/*IF*/if (((T260*)oRBC27fmt)->_print_end_inspect) {
rT260put_end((T260*)oRBC27fmt,(T0 *)ms546);
}
/*FI*/}
void rT224set_else_compound(T224 *C,T0* a1,T0* a2){
C->_else_position=a1;
C->_else_compound=a2;
}
void rT224make(T224 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_expression=a2;
}
void rT224add_when(T224 *C,T0* a1){
/*IF*/if (!((C)->_when_list)) {
{T230 *n=((T230*)se_new(230));
/*(IRF3*/((n)->_list)=(ma(231,0,1,a1));
/*)*/C->_when_list=(T0 *)n;}
}
else {
rT230add_last((T230*)(C)->_when_list,a1);
}
/*FI*/}
void rT170bracketed_print(T170 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT170pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT170add_comment(T170 *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 rT170pretty_print(T170 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
}
T0* rT170to_key(T170 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
void rT170make(T170 *C,T0* a1){
C->_to_string=(T0 *)ms287;
C->_start_position=a1;
}
T0* rT87add_comment(T87 *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 rT87print_as_target(T87 *C){
/*IF*/if (((C)->_is_written)||(((T260*)oRBC27fmt)->_print_current)) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms197);
rT260put_character((T260*)oRBC27fmt,'\56');
}
/*FI*/}
T0* rT87to_key(T87 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
void rT87make(T87 *C,T0* a1,int a2){
C->_start_position=a1;
C->_is_written=a2;
}
void rT120pretty_print(T120 *C){
int _i=0;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms469);
_i=1;
while (!((_i)>(((T125*)(C)->_items)->_upper))) {
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(3);
/*)*/rT122pretty_print((T122*)rT125item((T125*)(C)->_items,_i));
_i=(_i)+(1);
/*IF*/if ((_i)<=(((T125*)(C)->_items)->_upper)) {
rT260put_character((T260*)oRBC27fmt,'\73');
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(3);
/*)*/rT260indent((T260*)oRBC27fmt);
}
/*FI*/}
}
void rT120make(T120 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_items=a2;
}
int rT122for_all(T122 *C){
int R=0;
R=!((C)->_list);
return R;
}
void rT122pretty_print(T122 *C){
int _i=0;
rT121pretty_print((T121*)(C)->_clients);
/*IF*/if (rT122for_all(C)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms474);
}
else {
rT126pretty_print((T126*)(C)->_list);
}
/*FI*/}
void rT122make_all(T122 *C,T0* a1){
C->_clients=a1;
C->_list=NULL;
}
void rT122make(T122 *C,T0* a1,T0* a2){
C->_clients=a1;
{T126 *n=((T126*)se_new(126));
rT126make(n,a2);
C->_list=(T0 *)n;}
}
T0* rT223add_comment(T223 *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 rT44show(T44 *C){
T0* _the_line=NULL;
T0* _str=NULL;
T0* _n=NULL;
int _nb=0;
int _c=0;
_n=((T46*)(C)->_base_class_name)->_to_string;
rT37put_string((T37*)oRBC1std_error,(T0 *)ms37);
rT37put_integer((T37*)oRBC1std_error,(C)->_line);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms39);
rT37put_integer((T37*)oRBC1std_error,(C)->_column);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms40);
rT37put_string((T37*)oRBC1std_error,_n);
_str=rT44path(C);
/*IF*/if (((int)_str)) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms422);
rT37put_string((T37*)oRBC1std_error,_str);
rT37put_character((T37*)oRBC1std_error,'\51');
}
/*FI*/rT37put_string((T37*)oRBC1std_error,(T0 *)ms423);
/*IF*/if ((/*(IRF4*/((T49*)oRBC27eiffel_parser)->_is_running/*)*/)&&(rT7is_equal((T7*)((T46*)rT49current_class_name((T49*)oRBC27eiffel_parser))->_to_string,_n))) {
_the_line=((/*UT*/(void)(T58*)oRBC49text),
rT58item((C)->_line));
}
else if (((int)rT44path(C))) {
rT58read((T58*)oRBC49text,((T48*)rT44base_class(C))->_path);
_the_line=((/*UT*/(void)(T58*)oRBC49text),
rT58item((C)->_line));
}
/*FI*//*IF*/if (((int)_the_line)) {
_c=(C)->_column;
rT37put_string((T37*)oRBC1std_error,_the_line);
rT37put_new_line((T37*)oRBC1std_error);
_nb=1;
while (!((_nb)==(_c))) {
/*IF*/if ((rT7item((T7*)_the_line,_nb))==('\11')) {
rT37put_character((T37*)oRBC1std_error,'\11');
}
else {
rT37put_character((T37*)oRBC1std_error,'\40');
}
/*FI*/_nb=(_nb)+(1);
}
rT37put_string((T37*)oRBC1std_error,(T0 *)ms424);
}
else {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms425);
rT37put_string((T37*)oRBC1std_error,_n);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms426);
}
/*FI*/}
void rT44fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT44path(T44 *C){
T0* R=NULL;
T0* _bc=NULL;
/*IF*/if (/*(IRF4*/((T49*)oRBC27eiffel_parser)->_is_running/*)*/) {
/*IF*/if (((/*UT*/(void)(T50*)oRBC27small_eiffel),
rT50is_used(((T46*)(C)->_base_class_name)->_to_string))) {
_bc=rT46base_class((T46*)(C)->_base_class_name);
}
/*FI*/}
else {
_bc=rT46base_class((T46*)(C)->_base_class_name);
}
/*FI*//*IF*/if (((int)_bc)) {
R=((T48*)_bc)->_path;
}
/*FI*/return R;
}
int rT44is_equal(T44 *C,T0* a1){
int R=0;
R=((((((C)->_line)==(((T44*)a1)->_line))&&(((C)->_column)==(((T44*)a1)->_column)))&&(((int)(C)->_base_class_name)))&&(((int)((T44*)a1)->_base_class_name)))&&(((T0 *)((T46*)(C)->_base_class_name)->_to_string)==((T0 *)((T46*)((T44*)a1)->_base_class_name)->_to_string));
return R;
}
T0* rT44base_class(T44 *C){
T0* R=NULL;
/*IF*/if (/*(IRF4*/((T49*)oRBC27eiffel_parser)->_is_running/*)*/) {
/*IF*/if (rT7empty((T7*)((T46*)(C)->_base_class_name)->_to_string)) {
rT44fatal_error((T0 *)ms410);
}
else if (((/*UT*/(void)(T50*)oRBC27small_eiffel),
rT50is_used(((T46*)(C)->_base_class_name)->_to_string))) {
R=rT46base_class((T46*)(C)->_base_class_name);
}
else {
rT44fatal_error((T0 *)ms411);
}
/*FI*/}
else {
R=rT46base_class((T46*)(C)->_base_class_name);
}
/*FI*/return R;
}
void rT44with(T44 *C,int a1,int a2,T0* a3){
C->_line=a1;
C->_column=a2;
C->_base_class_name=a3;
}
void rT44make(T44 *C,int a1,int a2){
C->_line=a1;
C->_column=a2;
C->_base_class_name=rT49current_class_name((T49*)oRBC27eiffel_parser);
}
T0*oRBC27eiffel_parser;
void rT37put_integer(T37 *C,int a1){
/*(IRF3*/(((T7*)oRBC38tmp_string)->_count)=(0);
/*)*/rT2append_in(a1,oRBC38tmp_string);
rT37put_string(C,oRBC38tmp_string);
}
T0*oRBC38tmp_string;
void rT37put_new_line(T37 *C){
rT37put_character(C,'\12');
}
void rT37die_with_code(/*C*/int a1){
exit(a1);
}
void rT37put_string(T37 *C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>(((T7*)a1)->_count))) {
rT37put_character(C,rT7item((T7*)a1,_i));
_i=(_i)+(1);
}
}
int rT37is_connected(T37 *C){
int R=0;
R=((int)(C)->_path);
return R;
}
void rT37disconnect(T37 *C){
int _err=0;
_err=fclose((C)->_output_stream);
C->_path=NULL;
C->_output_stream=stderr;
}
void rT37connect_to(T37 *C,T0* a1){
C->_mode=(T0 *)ms448;
C->_output_stream=rT37fopen(a1,(C)->_mode);
/*IF*/{/*AT*/C->_path=a1;
}
/*FI*/}
void * rT37fopen(/*C*/T0* a1,T0* a2){
void * R=0;
void * _pm=0;
void * _pf=0;
_pf=rT7to_external((T7*)a1);
_pm=rT7to_external((T7*)a2);
R=(void*)fopen(((char*)_pf),((char*)_pm));
return R;
}
void rT37put_character(T37 *C,char a1){
char _err=0;
_err=fputc(a1,(C)->_output_stream);
/*IF*/if ((_err)!=(a1)) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms5);
/*(IRF3*/rsp();
rT37die_with_code(1);
/*)*/}
/*FI*/}
void rT37make(T37 *C){
C->_output_stream=stderr;
}
T0* rT26get_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;
}
T0*oRBC26backup;
void rT26automat(T26 *C){
T0* _a=NULL;
int _arg=0;
_arg=1;
while (!(((_arg)>(/*(IRF4*/((T34*)oRBC1command_arguments)->_upper/*)*/))||(((C)->_state)>(0)))) {
_a=rT26argument(_arg);
/*IF*/if ((rT7item((T7*)_a,1))!=('\55')) {
rT34add_last((T34*)rT26class_names(),_a);
}
else if (rT7is_equal(ms31,_a)) {
/*IF*/if (((int)(C)->_style)) {
rT26error_style(C,_a);
}
else {
rT260format_default((T260*)oRBC27fmt);
C->_style=_a;
}
/*FI*/}
else if (rT7is_equal(ms431,_a)) {
/*IF*/if (((int)(C)->_style)) {
rT26error_style(C,_a);
}
else {
rT260format_zen((T260*)oRBC27fmt);
C->_style=_a;
}
/*FI*/}
else if (rT7is_equal(ms432,_a)) {
/*IF*/if (((int)(C)->_style)) {
rT26error_style(C,_a);
}
else {
rT260format_end((T260*)oRBC27fmt);
C->_style=_a;
}
/*FI*/}
else if (rT7is_equal(ms433,_a)) {
/*IF*/if (((int)(C)->_style)) {
rT26error_style(C,_a);
}
else {
rT260format_parano((T260*)oRBC27fmt);
C->_style=_a;
}
/*FI*/}
else {
rT41put_string((T41*)oRBC1std_output,(T0 *)ms434);
rT41put_string((T41*)oRBC1std_output,_a);
rT41put_string((T41*)oRBC1std_output,(T0 *)ms435);
C->_state=2;
}
/*FI*/_arg=(_arg)+(1);
}
/*IF*/if ((/*(IRF4*/((T43*)oRBC27eh)->_nb_errors/*)*/)>(0)) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((T0 *)ms436);
rT43print_as_error((T43*)oRBC27eh);
}
else {
/*IF*/if (rT34empty((T34*)rT26class_names())) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((T0 *)ms437);
rT43print_as_error((T43*)oRBC27eh);
}
else {
/*(IRF3*/{
int _i=0;
_i=((T34*)rT26class_names())->_lower;
while (!((_i)>(((T34*)rT26class_names())->_upper))) {
rT26pretty_for(rT34item((T34*)rT26class_names(),_i));
_i=(_i)+(1);
}
}
/*)*/}
/*FI*/}
/*FI*/}
int ofBC27directory_separator=0;
T3 oRBC27directory_separator;
char rT26directory_separator(/*C*/void){
if (ofBC27directory_separator==0){
char R=0;
ofBC27directory_separator=1;
R=rT7last((T7*)rT26small_eiffel_directory());
oRBC27directory_separator=R;}
return oRBC27directory_separator;}
void rT26fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
void rT26die_with_code(/*C*/int a1){
exit(a1);
}
T0*oRBC27hlp_file_name;
void rT26error_style(T26 *C,T0* a1){
C->_state=2;
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((T0 *)ms32);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((C)->_style);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((T0 *)ms33);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append(a1);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((T0 *)ms34);
rT43print_as_error((T43*)oRBC27eh);
}
void rT26add_directory(/*C*/T0* a1,T0* a2){
rT7append((T7*)a1,a2);
rT7extend((T7*)a1,rT26directory_separator());
}
T0*oRBC26path;
void rT26print_hlp(/*C*/T0* a1){
rT7copy((T7*)oRBC27hlp_file_name,rT26small_eiffel_directory());
rT26add_directory(oRBC27hlp_file_name,(T0 *)ms20);
rT7append((T7*)oRBC27hlp_file_name,a1);
/*IF*/if (!(rT7has_suffix((T7*)oRBC27hlp_file_name,(T0 *)ms21))) {
rT7append((T7*)oRBC27hlp_file_name,(T0 *)ms21);
}
/*FI*//*IF*/if (!(rT26file_exists(oRBC27hlp_file_name))) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms23);
rT37put_string((T37*)oRBC1std_error,oRBC27hlp_file_name);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms24);
rT26die_with_code(1);
}
/*FI*/rT41append_file((T41*)oRBC1std_output,oRBC27hlp_file_name);
}
T0*oRBC1command_arguments;
void rT26pretty_for(/*C*/T0* a1){
T0* _new_file=NULL;
T0* _e_class=NULL;
_e_class=((/*UT*/(void)(T50*)oRBC27small_eiffel),
rT50load_class(a1));
/*IF*/if (!(_e_class)) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((T0 *)ms440);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append(a1);
rT26fatal_error((T0 *)ms441);
}
else {
rT7copy((T7*)oRBC26path,((T48*)_e_class)->_path);
rT7copy((T7*)oRBC26backup,oRBC26path);
rT7remove_suffix((T7*)oRBC26backup,(T0 *)ms44);
rT7append((T7*)oRBC26backup,(T0 *)ms442);
/*IF*/if (rT26file_exists(oRBC26backup)) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((T0 *)ms443);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append(oRBC26backup);
rT26fatal_error((T0 *)ms444);
}
/*FI*/rT26rename_file(oRBC26path,oRBC26backup);
/*IF*/if (!(rT26file_exists(oRBC26backup))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((T0 *)ms446);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append(oRBC26path);
rT26fatal_error((T0 *)ms447);
}
/*FI*/_new_file=rT26open_write(oRBC26path);
rT260connect_to((T260*)oRBC27fmt,_new_file);
rT48pretty_print((T48*)_e_class);
XrT38disconnect(_new_file);
/*IF*/if (!(((/*UT*/(void)(T50*)oRBC27small_eiffel),
rT50re_load_class(_e_class)))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43append((T0 *)ms487);
(/*UT*/(void)(T43*)oRBC27eh);
rT43append(oRBC26backup);
rT26fatal_error((T0 *)ms488);
}
/*FI*/}
/*FI*/}
T0* rT26open_write(/*C*/T0* a1){
T0* R=NULL;
{T38 *n=((T38*)se_new(38));
rT38connect_to(n,a1);
R=(T0 *)n;}
/*IF*/if (!(XrT38is_connected(R))) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms449);
rT37put_string((T37*)oRBC1std_error,a1);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms450);
rT26die_with_code(1);
}
/*FI*/return R;
}
void rT26rename_file(/*C*/T0* a1,T0* a2){
void * _np=0;
void * _op=0;
_op=rT7to_external((T7*)a1);
_np=rT7to_external((T7*)a2);
rename(((char*)_op),((char*)_np));
}
int ofBC26class_names=0;
T0*oRBC26class_names;
T0* rT26class_names(/*C*/void){
if (ofBC26class_names==0){
T0* R=NULL;
ofBC26class_names=1;
{T34 *n=((T34*)se_new(34));
rT34make(n,1,10);
R=(T0 *)n;}
rT34clear((T34*)R);
oRBC26class_names=R;}
return oRBC26class_names;}
T0*oRBC1std_output;
int ofBC27small_eiffel_directory=0;
T0*oRBC27small_eiffel_directory;
T0* rT26small_eiffel_directory(/*C*/void){
if (ofBC27small_eiffel_directory==0){
T0* R=NULL;
char _slash=0;
int _i=0;
ofBC27small_eiffel_directory=1;
R=rT26get_environment_variable((T0 *)ms15);
/*IF*/if (!(R)) {
R=rT7twin((T7*)(T0 *)ms15);
rT7to_upper((T7*)R);
R=rT26get_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* rT26argument(/*C*/int a1){
T0* R=NULL;
R=rT34item((T34*)oRBC1command_arguments,a1);
return R;
}
void rT26make(T26 *C){
/*IF*/if ((/*(IRF4*/((T34*)oRBC1command_arguments)->_upper/*)*/)<(1)) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms9);
rT26print_hlp((T0 *)ms28);
rT26die_with_code(1);
}
else {
rT26automat(C);
}
/*FI*/}
int rT26file_exists(/*C*/T0* a1){
int R=0;
void * _p=0;
_p=rT7to_external((T7*)a1);
{FILE *f=fopen(((char*)_p),"r");
R=(f != NULL);
if (R) fclose(f);}
return R;
}
void rT38die_with_code(/*C*/int a1){
exit(a1);
}
int rT38is_connected(T38 *C){
int R=0;
R=((int)(C)->_path);
return R;
}
void rT38disconnect(T38 *C){
int _err=0;
_err=fclose((C)->_output_stream);
C->_path=NULL;
}
void rT38connect_to(T38 *C,T0* a1){
C->_mode=(T0 *)ms448;
C->_output_stream=rT38fopen(a1,(C)->_mode);
/*IF*/{/*AT*/C->_path=a1;
}
/*FI*/}
void * rT38fopen(/*C*/T0* a1,T0* a2){
void * R=0;
void * _pm=0;
void * _pf=0;
_pf=rT7to_external((T7*)a1);
_pm=rT7to_external((T7*)a2);
R=(void*)fopen(((char*)_pf),((char*)_pm));
return R;
}
void rT38put_character(T38 *C,char a1){
char _err=0;
_err=fputc(a1,(C)->_output_stream);
/*IF*/if ((_err)!=(a1)) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms5);
/*(IRF3*/rsp();
rT38die_with_code(1);
/*)*/}
/*FI*/}
T0* rT215add_comment(/*C*/T0* a1){
T0* R=NULL;
return R;
}
void rT215pretty_print(T215 *C){
XrT175pretty_print((C)->_instruction);
rT260level_incr((T260*)oRBC27fmt);
rT260indent((T260*)oRBC27fmt);
rT260level_decr((T260*)oRBC27fmt);
rT57pretty_print((T57*)(C)->_comment);
}
void rT215make(T215 *C,T0* a1,T0* a2){
C->_instruction=a1;
C->_comment=a2;
}
int rT42feof(T42 *C,void * a1){
int R=0;
R=feof((FILE*)C->_input_stream);
return R;
}
int rT42end_of_input(T42 *C){
int R=0;
R=rT42feof(C,(C)->_input_stream);
return R;
}
int rT42is_connected(T42 *C){
int R=0;
R=((int)(C)->_path);
return R;
}
void rT42disconnect(T42 *C){
int _err=0;
_err=fclose((C)->_input_stream);
C->_path=NULL;
}
T0*oRBC42last_string;
char rT42last_character(T42 *C){
char R=0;
R=(C)->_last_character_memory;
return R;
}
void rT42connect_to(T42 *C,T0* a1){
/*(IRF3*/((C)->_mode)=((T0 *)ms25);
/*)*/C->_input_stream=rT42fopen(a1,(C)->_mode);
/*IF*/{/*AT*/C->_path=a1;
}
/*FI*/}
void rT42skip_separators(T42 *C){
while (!((rT42end_of_input(C))||(!(rT3is_separator(rT42last_character(C)))))) {
rT42read_character(C);
}
}
void * rT42fopen(/*C*/T0* a1,T0* a2){
void * R=0;
void * _pm=0;
void * _pf=0;
_pf=rT7to_external((T7*)a1);
_pm=rT7to_external((T7*)a2);
R=(void*)fopen(((char*)_pf),((char*)_pm));
return R;
}
void rT42read_word(T42 *C){
rT42skip_separators(C);
/*(IRF3*/(((T7*)oRBC42last_string)->_count)=(0);
/*)*/while (!((rT42end_of_input(C))||(rT3is_separator(rT42last_character(C))))) {
rT7extend((T7*)oRBC42last_string,rT42last_character(C));
rT42read_character(C);
}
}
void rT42read_line_in(T42 *C,T0* a1){
/*(IRF3*/(((T7*)a1)->_count)=(0);
/*)*/rT42read_character(C);
while (!((rT42end_of_input(C))||((rT42last_character(C))==('\12')))) {
rT7extend((T7*)a1,rT42last_character(C));
rT42read_character(C);
}
}
void rT42read_line(T42 *C){
rT42read_line_in(C,oRBC42last_string);
}
void rT42read_character(T42 *C){
C->_last_character_memory=fgetc((C)->_input_stream);
}
T0* rT7twin(T7 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT7copy((T7*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
int rT7hash_code(T7 *C){
int R=0;
int _i=0;
_i=(C)->_count;
/*IF*/if ((_i)>(5)) {
_i=5;
}
/*FI*/while (!((_i)==(0))) {
R=(R)+(((unsigned char)rT7item(C,_i)));
_i=(_i)-(1);
}
return R;
}
void rT7extend(T7 *C,char a1){
/*IF*/if (((C)->_capacity)>((C)->_count)) {
}
else if (((C)->_capacity)==(0)) {
C->_capacity=32;
C->_storage=rT7malloc((C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(32);
C->_storage=rT7realloc((C)->_storage,(C)->_capacity);
}
/*FI*/C->_count=((C)->_count)+(1);
rT7put(C,a1,(C)->_count);
}
int rT7same_as(T7 *C,T0* a1){
int R=0;
int _i=0;
/*IF*/if (((T0 *)a1)==((T0 *)C)) {
R=1;
}
else {
/*IF*/if ((((T7*)a1)->_count)!=((C)->_count)) {
}
else {
_i=(C)->_count;
while (!(((_i)==(0))||(!(rT3same_as(rT7item(C,_i),rT7item((T7*)a1,_i)))))) {
_i=(_i)-(1);
}
R=(_i)==(0);
}
/*FI*/}
/*FI*/return R;
}
void rT7to_upper(T7 *C){
int _i=0;
_i=(C)->_count;
while (!((_i)==(0))) {
rT7put(C,rT3to_upper(rT7item(C,_i)),_i);
_i=(_i)-(1);
}
}
char rT7first(T7 *C){
char R=0;
R=rT7item(C,1);
return R;
}
void rT7remove_suffix(T7 *C,T0* a1){
rT7remove_last(C,((T7*)a1)->_count);
}
void rT7remove_last(T7 *C,int a1){
C->_count=((C)->_count)-(a1);
}
int rT7has_suffix(T7 *C,T0* a1){
int R=0;
int _i2=0;
int _i1=0;
/*IF*/if ((((T7*)a1)->_count)<=((C)->_count)) {
_i1=(((C)->_count)-(((T7*)a1)->_count))+(1);
_i2=1;
while (!((((_i1)>((C)->_count))||((_i2)>(((T7*)a1)->_count)))||((rT7item(C,_i1))!=(rT7item((T7*)a1,_i2))))) {
_i1=(_i1)+(1);
_i2=(_i2)+(1);
}
R=(_i1)>((C)->_count);
}
/*FI*/return R;
}
int rT7empty(T7 *C){
int R=0;
R=((C)->_count)==(0);
return R;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.