ftp.nice.ch/pub/next/developer/languages/eiffel/SmallEiffel.0.95.N.bs.tar.gz#/SmallEiffel/bin_c/pretty1.c

This is pretty1.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 *se_new(int id){
int sz=s[id];
T0 *n=malloc(sz);
memset(n,0,sz);
n->id=id;
return n;
}
T0*oRBC27fmt;
T0* rT251first_name(T251 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT251error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
T0*oRBC27eh;
T0* rT251start_position(T251 *C){
T0* R=NULL;
R=XrT65start_position(rT251first_name(C));
return R;
}
void rT251pretty_print_routine_body(T251 *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 rT251pretty_print_arguments(T251 *C){
/*IF*/if (((int)(C)->_arguments)) {
rT90pretty_print((T90*)(C)->_arguments);
}
/*FI*/}
void rT251pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT251pretty_print_names(T251 *C){
int _i=0;
_i=1;
rT251pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT251pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT251pretty_print_profile(T251 *C){
rT251pretty_print_names(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT251pretty_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 rT251pretty_print(T251 *C){
T0* _fn=NULL;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
rT251pretty_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);
rT251pretty_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=rT251first_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 rT251add_into(T251 *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 rT251set_header_comment(T251 *C,T0* a1){
/*IF*/if ((((int)a1))&&((rT57count((T57*)a1))>(1))) {
C->_end_comment=a1;
}
/*FI*/}
void rT251set_rescue_compound(T251 *C,T0* a1){
/*IF*/if ((((int)a1))&&(/*(IRF4*/0/*)*/)) {
rT251error(rT251start_position(C),(T0 *)ms395);
}
/*FI*/C->_rescue_compound=a1;
}
void rT251make_e_feature(T251 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT251make_routine(T251 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
rT251make_e_feature(C,a1,NULL);
C->_header_comment=a4;
C->_arguments=a2;
C->_obsolete_mark=a3;
C->_require_assertion=a5;
}
void rT251make_effective_routine(T251 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7){
rT251make_routine(C,a1,a2,a3,a4,a5);
C->_local_vars=a6;
C->_routine_body=a7;
C->_use_current_state=1008;
}
void rT251make(T251 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7,T0* a8){
rT251make_effective_routine(C,a1,a2,a4,a5,a6,a7,a8);
C->_result_type=a3;
}
void rT75bracketed_print(T75 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT75pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT75add_comment(T75 *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 rT75print_as_target(T75 *C){
rT75bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT75pretty_print(T75 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_value);
rT260put_character((T260*)oRBC27fmt,'B');
}
void rT77bracketed_print(T77 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT77pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT77error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
T0* rT77add_comment(T77 *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* rT77_px45(T77 *C){
T0* R=NULL;
rT77error((C)->_start_position,(T0 *)ms166);
return R;
}
void rT77print_as_target(T77 *C){
rT77bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT77pretty_print(T77 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
}
T0* rT77to_integer_constant(T77 *C){
T0* R=NULL;
rT77error((C)->_start_position,(T0 *)ms267);
return R;
}
void rT77make(T77 *C,T0* a1,T0* a2,int a3,float a4,int a5){
C->_start_position=a1;
C->_to_string=a2;
C->_integral_part=a3;
C->_fractional_part=a4;
C->_exponent=a5;
}
void rT167bracketed_print(T167 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT167pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT167add_comment(T167 *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 rT167print_as_target(T167 *C){
rT167bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
T0* rT167start_position(T167 *C){
T0* R=NULL;
R=XrT66start_position((C)->_expression);
return R;
}
void rT167pretty_print(T167 *C){
rT260put_string((T260*)oRBC27fmt,(T0 *)ms497);
rT260level_incr((T260*)oRBC27fmt);
XrT66pretty_print((C)->_expression);
rT260level_decr((T260*)oRBC27fmt);
}
T0* rT254first_name(T254 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT254error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
T0* rT254start_position(T254 *C){
T0* R=NULL;
R=XrT65start_position(rT254first_name(C));
return R;
}
void rT254pretty_print_routine_body(T254 *C){
/*IF*/if (((int)(C)->_local_vars)) {
rT137pretty_print((T137*)(C)->_local_vars);
}
/*FI*/rT260indent((T260*)oRBC27fmt);
/*(IRF3*/rT260put_string((T260*)oRBC27fmt,(T0 *)ms528);
/*)*/rT260put_character((T260*)oRBC27fmt,'\40');
/*IF*/if (((int)(C)->_routine_body)) {
rT138pretty_print((T138*)(C)->_routine_body);
}
/*FI*/}
void rT254pretty_print_arguments(T254 *C){
/*IF*/if (((int)(C)->_arguments)) {
rT90pretty_print((T90*)(C)->_arguments);
}
/*FI*/}
void rT254pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT254pretty_print_names(T254 *C){
int _i=0;
_i=1;
rT254pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT254pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT254pretty_print_profile(T254 *C){
rT254pretty_print_names(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT254pretty_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 rT254pretty_print(T254 *C){
T0* _fn=NULL;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
rT254pretty_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);
rT254pretty_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=rT254first_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 rT254add_into(T254 *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 rT254set_header_comment(T254 *C,T0* a1){
/*IF*/if ((((int)a1))&&((rT57count((T57*)a1))>(1))) {
C->_end_comment=a1;
}
/*FI*/}
void rT254set_rescue_compound(T254 *C,T0* a1){
/*IF*/if ((((int)a1))&&(/*(IRF4*/0/*)*/)) {
rT254error(rT254start_position(C),(T0 *)ms395);
}
/*FI*/C->_rescue_compound=a1;
}
void rT254make_e_feature(T254 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT254make_routine(T254 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
rT254make_e_feature(C,a1,NULL);
C->_header_comment=a4;
C->_arguments=a2;
C->_obsolete_mark=a3;
C->_require_assertion=a5;
}
void rT254make_effective_routine(T254 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7){
rT254make_routine(C,a1,a2,a3,a4,a5);
C->_local_vars=a6;
C->_routine_body=a7;
C->_use_current_state=1008;
}
void rT254make(T254 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7,T0* a8){
rT254make_effective_routine(C,a1,a2,a4,a5,a6,a7,a8);
C->_result_type=a3;
}
T0* rT253first_name(T253 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT253error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
T0* rT253start_position(T253 *C){
T0* R=NULL;
R=XrT65start_position(rT253first_name(C));
return R;
}
void rT253pretty_print_routine_body(T253 *C){
/*IF*/if (((int)(C)->_local_vars)) {
rT137pretty_print((T137*)(C)->_local_vars);
}
/*FI*/rT260indent((T260*)oRBC27fmt);
/*(IRF3*/rT260put_string((T260*)oRBC27fmt,(T0 *)ms528);
/*)*/rT260put_character((T260*)oRBC27fmt,'\40');
/*IF*/if (((int)(C)->_routine_body)) {
rT138pretty_print((T138*)(C)->_routine_body);
}
/*FI*/}
void rT253pretty_print_arguments(T253 *C){
/*IF*/if (((int)(C)->_arguments)) {
rT90pretty_print((T90*)(C)->_arguments);
}
/*FI*/}
void rT253pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT253pretty_print_names(T253 *C){
int _i=0;
_i=1;
rT253pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT253pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT253pretty_print_profile(T253 *C){
rT253pretty_print_names(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT253pretty_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 rT253pretty_print(T253 *C){
T0* _fn=NULL;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
rT253pretty_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);
rT253pretty_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=rT253first_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 rT253add_into(T253 *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 rT253set_header_comment(T253 *C,T0* a1){
/*IF*/if ((((int)a1))&&((rT57count((T57*)a1))>(1))) {
C->_end_comment=a1;
}
/*FI*/}
void rT253set_rescue_compound(T253 *C,T0* a1){
/*IF*/if ((((int)a1))&&(/*(IRF4*/0/*)*/)) {
rT253error(rT253start_position(C),(T0 *)ms395);
}
/*FI*/C->_rescue_compound=a1;
}
void rT253make_e_feature(T253 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT253make_routine(T253 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
rT253make_e_feature(C,a1,NULL);
C->_header_comment=a4;
C->_arguments=a2;
C->_obsolete_mark=a3;
C->_require_assertion=a5;
}
void rT253make(T253 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7){
rT253make_routine(C,a1,a2,a3,a4,a5);
C->_local_vars=a6;
C->_routine_body=a7;
C->_use_current_state=1008;
}
T0* rT248add_comment(T248 *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 rT248pretty_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 rT248pretty_print(T248 *C){
rT248pretty_print_assignment((C)->_left_side,(T0 *)ms557,(C)->_right_side);
}
void rT248make(T248 *C,T0* a1,T0* a2){
C->_left_side=a1;
C->_right_side=a2;
}
void rT219bracketed_print(T219 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT219pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT219add_comment(T219 *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 rT219print_as_target(T219 *C){
XrT66print_as_target((C)->_expression);
}
T0* rT219start_position(T219 *C){
T0* R=NULL;
R=XrT66start_position((C)->_expression);
return R;
}
int rT219precedence(T219 *C){
int R=0;
R=XrT66precedence((C)->_expression);
return R;
}
void rT219pretty_print(T219 *C){
XrT66pretty_print((C)->_expression);
rT57pretty_print((T57*)(C)->_comment);
}
void rT219make(T219 *C,T0* a1,T0* a2){
C->_expression=a1;
C->_comment=a2;
}
T0* rT255first_name(T255 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT255pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT255pretty_print_names(T255 *C){
int _i=0;
_i=1;
rT255pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT255pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT255pretty_print_profile(T255 *C){
rT255pretty_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 rT255pretty_print(T255 *C){
rT255pretty_print_profile(C);
/*(IRF3*//*)*/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 rT255add_into(T255 *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 rT255make(T255 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT225pretty_print(T225 *C){
int _i=0;
rT260keyword((T260*)oRBC27fmt,(T0 *)ms543);
rT260level_incr((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_header_comment)) {
rT57pretty_print((T57*)(C)->_header_comment);
}
/*FI*//*IF*/if (((int)(C)->_list)) {
_i=XrT229lower((C)->_list);
while (!((_i)>(XrT229upper((C)->_list)))) {
XrT227pretty_print(XrT229item((C)->_list,_i));
_i=(_i)+(1);
/*IF*/if ((_i)<=(XrT229upper((C)->_list))) {
rT260put_character((T260*)oRBC27fmt,'\54');
}
/*FI*/}
}
/*FI*/rT260level_decr((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms544);
rT260level_incr((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_compound)) {
rT138pretty_print((T138*)(C)->_compound);
}
/*FI*/rT260level_decr((T260*)oRBC27fmt);
}
void rT225add_slice(T225 *C,T0* a1,T0* a2){
T0* _element=NULL;
{T232 *n=((T232*)se_new(232));
rT232make(n,a1,a2);
_element=(T0 *)n;}
/*IF*/if (!((C)->_list)) {
C->_list=ma(233,0,1,_element);
}
else {
XrT229add_last((C)->_list,_element);
}
/*FI*/}
void rT225add_value(T225 *C,T0* a1){
T0* _element=NULL;
{T226 *n=((T226*)se_new(226));
/*(IRF3*/((n)->_expression)=(a1);
/*)*/_element=(T0 *)n;}
/*IF*/if (!((C)->_list)) {
C->_list=ma(228,0,1,_element);
}
else {
XrT229add_last((C)->_list,_element);
}
/*FI*/}
void rT225make(T225 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_header_comment=a2;
}
T0* rT211first_name(T211 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT211error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
T0* rT211start_position(T211 *C){
T0* R=NULL;
R=XrT65start_position(rT211first_name(C));
return R;
}
void rT211pretty_print_routine_body(T211 *C){
rT260keyword((T260*)oRBC27fmt,(T0 *)ms524);
XrT205pretty_print((C)->_langage);
/*IF*/if ((!(rT7is_equal((T7*)(C)->_external_name,XrT65to_string(rT211first_name(C)))))||((rT126count((T126*)(C)->_names))>(1))) {
rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms525);
rT260put_character((T260*)oRBC27fmt,'\42');
rT260put_string((T260*)oRBC27fmt,(C)->_external_name);
rT260put_character((T260*)oRBC27fmt,'\42');
}
/*FI*/}
void rT211pretty_print_arguments(T211 *C){
/*IF*/if (((int)(C)->_arguments)) {
rT90pretty_print((T90*)(C)->_arguments);
}
/*FI*/}
void rT211pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT211pretty_print_names(T211 *C){
int _i=0;
_i=1;
rT211pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT211pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT211pretty_print_profile(T211 *C){
rT211pretty_print_names(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT211pretty_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 rT211pretty_print(T211 *C){
T0* _fn=NULL;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
rT211pretty_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);
rT211pretty_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=rT211first_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 rT211add_into(T211 *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 rT211set_header_comment(T211 *C,T0* a1){
/*IF*/if ((((int)a1))&&((rT57count((T57*)a1))>(1))) {
C->_end_comment=a1;
}
/*FI*/}
void rT211set_rescue_compound(T211 *C,T0* a1){
/*IF*/if ((((int)a1))&&(/*(IRF4*/0/*)*/)) {
rT211error(rT211start_position(C),(T0 *)ms395);
}
/*FI*/C->_rescue_compound=a1;
}
void rT211make_external_routine(T211 *C,T0* a1,T0* a2){
C->_langage=a1;
/*IF*/if (!(a2)) {
C->_external_name=XrT65to_string(rT211first_name(C));
}
else {
C->_external_name=a2;
}
/*FI*/}
void rT211make_e_feature(T211 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT211make_routine(T211 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
rT211make_e_feature(C,a1,NULL);
C->_header_comment=a4;
C->_arguments=a2;
C->_obsolete_mark=a3;
C->_require_assertion=a5;
}
void rT211make(T211 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7,T0* a8){
rT211make_routine(C,a1,a2,a4,a5,a6);
C->_result_type=a3;
rT211make_external_routine(C,a7,a8);
}
T0* rT210first_name(T210 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT210error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
T0* rT210start_position(T210 *C){
T0* R=NULL;
R=XrT65start_position(rT210first_name(C));
return R;
}
void rT210pretty_print_routine_body(T210 *C){
rT260keyword((T260*)oRBC27fmt,(T0 *)ms524);
XrT205pretty_print((C)->_langage);
/*IF*/if ((!(rT7is_equal((T7*)(C)->_external_name,XrT65to_string(rT210first_name(C)))))||((rT126count((T126*)(C)->_names))>(1))) {
rT260indent((T260*)oRBC27fmt);
rT260keyword((T260*)oRBC27fmt,(T0 *)ms525);
rT260put_character((T260*)oRBC27fmt,'\42');
rT260put_string((T260*)oRBC27fmt,(C)->_external_name);
rT260put_character((T260*)oRBC27fmt,'\42');
}
/*FI*/}
void rT210pretty_print_arguments(T210 *C){
/*IF*/if (((int)(C)->_arguments)) {
rT90pretty_print((T90*)(C)->_arguments);
}
/*FI*/}
void rT210pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT210pretty_print_names(T210 *C){
int _i=0;
_i=1;
rT210pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT210pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT210pretty_print_profile(T210 *C){
rT210pretty_print_names(C);
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(2);
/*)*/rT210pretty_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 rT210pretty_print(T210 *C){
T0* _fn=NULL;
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
rT210pretty_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);
rT210pretty_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=rT210first_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 rT210add_into(T210 *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 rT210set_header_comment(T210 *C,T0* a1){
/*IF*/if ((((int)a1))&&((rT57count((T57*)a1))>(1))) {
C->_end_comment=a1;
}
/*FI*/}
void rT210set_rescue_compound(T210 *C,T0* a1){
/*IF*/if ((((int)a1))&&(/*(IRF4*/0/*)*/)) {
rT210error(rT210start_position(C),(T0 *)ms395);
}
/*FI*/C->_rescue_compound=a1;
}
void rT210make_external_routine(T210 *C,T0* a1,T0* a2){
C->_langage=a1;
/*IF*/if (!(a2)) {
C->_external_name=XrT65to_string(rT210first_name(C));
}
else {
C->_external_name=a2;
}
/*FI*/}
void rT210make_e_feature(T210 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT210make_routine(T210 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
rT210make_e_feature(C,a1,NULL);
C->_header_comment=a4;
C->_arguments=a2;
C->_obsolete_mark=a3;
C->_require_assertion=a5;
}
void rT210make(T210 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7){
rT210make_routine(C,a1,a2,a3,a4,a5);
rT210make_external_routine(C,a6,a7);
}
T0*oRBC208langage_name;
T0*oRBC207langage_name;
T0*oRBC206langage_name;
T0* rT157to_key(T157 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
void rT157make(T157 *C,T0* a1,T0* a2){
C->_to_string=a1;
C->_start_position=a2;
}
void rT43warning(T43 *C,T0* a1){
rT43append(a1);
rT43print_as_warning(C);
}
void rT43die_with_code(/*C*/int a1){
exit(a1);
}
void rT43fatal_error(/*C*/T0* a1){
rT7append((T7*)oRBC43explanation,a1);
/*(IRF3*/rT43do_print((T0 *)ms41);
rT43die_with_code(1);
/*)*//*(IRF3*/rsp();
rT43die_with_code(1);
/*)*/}
void rT43error(T43 *C,T0* a1){
rT43append(a1);
rT43print_as_error(C);
}
void rT43incr_nb_errors(T43 *C){
C->_nb_errors=((C)->_nb_errors)+(1);
/*IF*/if (((C)->_nb_errors)>=(10)) {
rT37put_string((T37*)oRBC1std_error,(T0 *)ms429);
rT37put_integer((T37*)oRBC1std_error,10);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms430);
rT43die_with_code(1);
}
/*FI*/}
void rT43incr_nb_warnings(T43 *C){
C->_nb_warnings=((C)->_nb_warnings)+(1);
}
void rT43print_as_warning(T43 *C){
rT43do_print((T0 *)ms74);
rT43incr_nb_warnings(C);
}
void rT43print_as_error(T43 *C){
rT43do_print((T0 *)ms428);
rT43incr_nb_errors(C);
}
int ofBC43positions=0;
T0*oRBC43positions;
T0* rT43positions(/*C*/void){
if (ofBC43positions==0){
T0* R=NULL;
ofBC43positions=1;
{T45 *n=((T45*)se_new(45));
rT45make(n,1,5);
R=(T0 *)n;}
rT45clear((T45*)R);
oRBC43positions=R;}
return oRBC43positions;}
T0*oRBC1std_error;
void rT43do_print(/*C*/T0* a1){
char _previous_cc=0;
char _cc=0;
int _cpt=0;
int _i=0;
rT37put_string((T37*)oRBC1std_error,(T0 *)ms35);
rT37put_string((T37*)oRBC1std_error,a1);
rT37put_string((T37*)oRBC1std_error,(T0 *)ms36);
_i=1;
_cpt=(9)+(((T7*)a1)->_count);
while (!((_i)>(((T7*)oRBC43explanation)->_count))) {
_previous_cc=_cc;
_cc=rT7item((T7*)oRBC43explanation,_i);
_i=(_i)+(1);
/*IF*/if ((_cpt)>(60)) {
/*IF*/if ((_cc)==('\40')) {
rT37put_character((T37*)oRBC1std_error,'\12');
_cpt=0;
}
 else if (((_previous_cc)==('\54'))||((_previous_cc)==('\57'))) {
rT37put_character((T37*)oRBC1std_error,'\12');
rT37put_character((T37*)oRBC1std_error,_cc);
_cpt=1;
}
else {
rT37put_character((T37*)oRBC1std_error,_cc);
_cpt=(_cpt)+(1);
}
/*FI*/}
else {
rT37put_character((T37*)oRBC1std_error,_cc);
_cpt=(_cpt)+(1);
}
/*FI*/}
rT37put_character((T37*)oRBC1std_error,'\12');
_i=((T45*)rT43positions())->_lower;
while (!((_i)>(((T45*)rT43positions())->_upper))) {
rT44show((T44*)rT45item((T45*)rT43positions(),_i));
_i=(_i)+(1);
}
/*(IRF3*//*(IRF3*/(((T7*)oRBC43explanation)->_count)=(0);
/*)*/rT45clear((T45*)rT43positions());
/*)*/rT37put_string((T37*)oRBC1std_error,(T0 *)ms427);
}
void rT43append(/*C*/T0* a1){
rT7append((T7*)oRBC43explanation,a1);
}
void rT43add_position(/*C*/T0* a1){
/*IF*/if (((int)a1)) {
/*IF*/if (!(rT45has((T45*)rT43positions(),a1))) {
rT45add_last((T45*)rT43positions(),a1);
}
/*FI*/}
/*FI*/}
T0*oRBC43explanation;
T0* rT142first_name(T142 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT142pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT142pretty_print_names(T142 *C){
int _i=0;
_i=1;
rT142pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT142pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT142pretty_print_profile(T142 *C){
rT142pretty_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 rT142pretty_print(T142 *C){
rT142pretty_print_profile(C);
/*(IRF3*/rT260put_string((T260*)oRBC27fmt,(T0 *)ms508);
/*)*/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 rT142add_into(T142 *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*oRBC27small_eiffel;
void rT142make_e_feature(T142 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT142make(T142 *C,T0* a1,T0* a2){
T0* _ic=NULL;
int _i=0;
rT142make_e_feature(C,a1,a2);
{T145 *n=((T145*)se_new(145));
rT145make(n,1,rT126count((T126*)(C)->_names));
C->_values=(T0 *)n;}
_i=1;
while (!((_i)>(((T145*)(C)->_values)->_upper))) {
{T78 *n=((T78*)se_new(78));
rT78make(n,rT50next_unique((T50*)oRBC27small_eiffel),NULL);
_ic=(T0 *)n;}
rT145put((T145*)(C)->_values,_ic,_i);
_i=(_i)+(1);
}
}
T0* rT146first_name(T146 *C){
T0* R=NULL;
R=rT126item((T126*)(C)->_names,1);
return R;
}
void rT146pretty_tail(T146 *C){
rT260put_string((T260*)oRBC27fmt,(T0 *)ms509);
XrT69pretty_print(rT146value(C,1));
}
void rT146pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (XrT65is_frozen(a1)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms505);
}
/*FI*/XrT65pretty_print(a1);
}
void rT146pretty_print_names(T146 *C){
int _i=0;
_i=1;
rT146pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT126count((T126*)(C)->_names)))) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms506);
rT146pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
_i=(_i)+(1);
}
}
void rT146pretty_print_profile(T146 *C){
rT146pretty_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 rT146pretty_print(T146 *C){
rT146pretty_print_profile(C);
rT146pretty_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 rT146add_into(T146 *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* rT146value(T146 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
void rT146make_e_feature(T146 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}
void rT146make(T146 *C,T0* a1,T0* a2,T0* a3){
rT146make_e_feature(C,a1,a2);
C->_value_mem=a3;
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.