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

This is pretty8.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* rT188arg1(T188 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT188add_comment(T188 *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 rT188print_as_target(T188 *C){
rT188bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT188print_op(T188 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT188start_position(T188 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT188pretty_print(T188 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT188print_op(C);
/*IF*/if ((XrT66precedence(rT188arg1(C)))==(13)) {
XrT66pretty_print(rT188arg1(C));
}
 else if ((7)>=(XrT66precedence(rT188arg1(C)))) {
XrT66bracketed_print(rT188arg1(C));
}
else {
XrT66pretty_print(rT188arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(7)) {
XrT66bracketed_print((C)->_target);
rT188print_op(C);
XrT66pretty_print(rT188arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT188print_op(C);
XrT66pretty_print(rT188arg1(C));
}
/*FI*/}
void rT188make_call_1(T188 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT188make(T188 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT188fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,/*(IRF4*/(T0 *)ms78/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT188make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT187bracketed_print(T187 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT187pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT187fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT187arg1(T187 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT187add_comment(T187 *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 rT187print_as_target(T187 *C){
rT187bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT187print_op(T187 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT187start_position(T187 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT187pretty_print(T187 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT187print_op(C);
/*IF*/if ((XrT66precedence(rT187arg1(C)))==(13)) {
XrT66pretty_print(rT187arg1(C));
}
 else if ((8)>=(XrT66precedence(rT187arg1(C)))) {
XrT66bracketed_print(rT187arg1(C));
}
else {
XrT66pretty_print(rT187arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(8)) {
XrT66bracketed_print((C)->_target);
rT187print_op(C);
XrT66pretty_print(rT187arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT187print_op(C);
XrT66pretty_print(rT187arg1(C));
}
/*FI*/}
void rT187make_call_1(T187 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT187make(T187 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT187fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,/*(IRF4*/(T0 *)ms89/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT187make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT186bracketed_print(T186 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT186pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT186fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT186arg1(T186 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT186add_comment(T186 *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 rT186print_as_target(T186 *C){
rT186bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT186print_op(T186 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT186start_position(T186 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT186pretty_print(T186 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT186print_op(C);
/*IF*/if ((XrT66precedence(rT186arg1(C)))==(13)) {
XrT66pretty_print(rT186arg1(C));
}
 else if ((8)>=(XrT66precedence(rT186arg1(C)))) {
XrT66bracketed_print(rT186arg1(C));
}
else {
XrT66pretty_print(rT186arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(8)) {
XrT66bracketed_print((C)->_target);
rT186print_op(C);
XrT66pretty_print(rT186arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT186print_op(C);
XrT66pretty_print(rT186arg1(C));
}
/*FI*/}
void rT186make_call_1(T186 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT186make(T186 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT186fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,(T0 *)ms306,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT186make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT185bracketed_print(T185 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT185pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT185fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT185arg1(T185 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT185add_comment(T185 *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 rT185print_as_target(T185 *C){
rT185bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT185print_op(T185 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT185start_position(T185 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT185pretty_print(T185 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT185print_op(C);
/*IF*/if ((XrT66precedence(rT185arg1(C)))==(13)) {
XrT66pretty_print(rT185arg1(C));
}
 else if ((8)>=(XrT66precedence(rT185arg1(C)))) {
XrT66bracketed_print(rT185arg1(C));
}
else {
XrT66pretty_print(rT185arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(8)) {
XrT66bracketed_print((C)->_target);
rT185print_op(C);
XrT66pretty_print(rT185arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT185print_op(C);
XrT66pretty_print(rT185arg1(C));
}
/*FI*/}
void rT185make_call_1(T185 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT185make(T185 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT185fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,(T0 *)ms304,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT185make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT184bracketed_print(T184 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT184pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT184fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT184arg1(T184 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT184add_comment(T184 *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 rT184print_as_target(T184 *C){
rT184bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT184print_op(T184 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT184start_position(T184 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT184pretty_print(T184 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT184print_op(C);
/*IF*/if ((XrT66precedence(rT184arg1(C)))==(13)) {
XrT66pretty_print(rT184arg1(C));
}
 else if ((8)>=(XrT66precedence(rT184arg1(C)))) {
XrT66bracketed_print(rT184arg1(C));
}
else {
XrT66pretty_print(rT184arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(8)) {
XrT66bracketed_print((C)->_target);
rT184print_op(C);
XrT66pretty_print(rT184arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT184print_op(C);
XrT66pretty_print(rT184arg1(C));
}
/*FI*/}
void rT184make_call_1(T184 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT184make(T184 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT184fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,(T0 *)ms302,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT184make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT183bracketed_print(T183 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT183pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT183fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT183arg1(T183 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT183add_comment(T183 *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 rT183print_as_target(T183 *C){
rT183bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT183print_op(T183 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT183start_position(T183 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT183pretty_print(T183 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT183print_op(C);
/*IF*/if ((XrT66precedence(rT183arg1(C)))==(13)) {
XrT66pretty_print(rT183arg1(C));
}
 else if ((9)>(XrT66precedence(rT183arg1(C)))) {
XrT66bracketed_print(rT183arg1(C));
}
else {
XrT66pretty_print(rT183arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<=(9)) {
XrT66bracketed_print((C)->_target);
rT183print_op(C);
XrT66pretty_print(rT183arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT183print_op(C);
XrT66pretty_print(rT183arg1(C));
}
/*FI*/}
void rT183make_call_1(T183 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT183make(T183 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT183fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,(T0 *)ms300,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT183make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT181bracketed_print(T181 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT181pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT181fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT181arg1(T181 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT181add_comment(T181 *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 rT181print_as_target(T181 *C){
rT181bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT181print_op(T181 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT181start_position(T181 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT181pretty_print(T181 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT181print_op(C);
/*IF*/if ((XrT66precedence(rT181arg1(C)))==(13)) {
XrT66pretty_print(rT181arg1(C));
}
 else if ((10)>=(XrT66precedence(rT181arg1(C)))) {
XrT66bracketed_print(rT181arg1(C));
}
else {
XrT66pretty_print(rT181arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(10)) {
XrT66bracketed_print((C)->_target);
rT181print_op(C);
XrT66pretty_print(rT181arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT181print_op(C);
XrT66pretty_print(rT181arg1(C));
}
/*FI*/}
T0* rT181operator(T181 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_to_string;
return R;
}
void rT181make_infix(T181 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT181fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,rT181operator(C),a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT181make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT181make_call_1(T181 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT181make(T181 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT181make_call_1(C,a1,a2,_eal);
}
void rT174bracketed_print(T174 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT174pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT174add_comment(T174 *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 rT174print_as_target(T174 *C){
rT174pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
T0* rT174start_position(T174 *C){
T0* R=NULL;
R=XrT65start_position((C)->_feature_name);
return R;
}
void rT174pretty_print(T174 *C){
XrT66print_as_target((C)->_target);
rT260put_string((T260*)oRBC27fmt,XrT65to_string((C)->_feature_name));
rT260level_incr((T260*)oRBC27fmt);
rT169pretty_print((T169*)(C)->_arguments);
rT260level_decr((T260*)oRBC27fmt);
}
void rT174make(T174 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT173bracketed_print(T173 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT173pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT173arg1(T173 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT173add_comment(T173 *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 rT173print_as_target(T173 *C){
rT173pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
T0* rT173start_position(T173 *C){
T0* R=NULL;
R=XrT65start_position((C)->_feature_name);
return R;
}
void rT173pretty_print(T173 *C){
XrT66print_as_target((C)->_target);
rT260put_string((T260*)oRBC27fmt,XrT65to_string((C)->_feature_name));
rT260put_character((T260*)oRBC27fmt,'\50');
XrT66pretty_print(rT173arg1(C));
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT173make(T173 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT161bracketed_print(T161 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT161pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT161add_comment(T161 *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 rT161print_as_target(T161 *C){
rT161pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
T0* rT161start_position(T161 *C){
T0* R=NULL;
R=XrT65start_position((C)->_feature_name);
return R;
}
void rT161pretty_print(T161 *C){
XrT66print_as_target((C)->_target);
rT260put_string((T260*)oRBC27fmt,XrT65to_string((C)->_feature_name));
}
void rT161make(T161 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}
void rT159bracketed_print(T159 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT159pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT159add_comment(T159 *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 rT159print_as_target(T159 *C){
rT159bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
T0* rT159start_position(T159 *C){
T0* R=NULL;
R=((T64*)(C)->_feature_name)->_start_position;
return R;
}
void rT159pretty_print(T159 *C){
rT64pretty_print2((T64*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
/*IF*/if ((XrT66precedence((C)->_target))<(11)) {
rT260put_character((T260*)oRBC27fmt,'\50');
XrT66pretty_print((C)->_target);
rT260put_character((T260*)oRBC27fmt,'\51');
}
else {
XrT66pretty_print((C)->_target);
}
/*FI*/}
void rT159make_call0(T159 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}
void rT159make(T159 *C,T0* a1,T0* a2){
{T64 *n=((T64*)se_new(64));
rT64make(n,/*(IRF4*/(T0 *)ms76/*)*/,a1);
C->_feature_name=(T0 *)n;}
rT159make_call0(C,a2,(C)->_feature_name);
}
void rT164bracketed_print(T164 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT164pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT164add_comment(T164 *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 rT164print_as_target(T164 *C){
rT164bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
T0* rT164start_position(T164 *C){
T0* R=NULL;
R=((T64*)(C)->_feature_name)->_start_position;
return R;
}
void rT164pretty_print(T164 *C){
rT64pretty_print2((T64*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
/*IF*/if ((XrT66precedence((C)->_target))<(11)) {
rT260put_character((T260*)oRBC27fmt,'\50');
XrT66pretty_print((C)->_target);
rT260put_character((T260*)oRBC27fmt,'\51');
}
else {
XrT66pretty_print((C)->_target);
}
/*FI*/}
void rT164make_call0(T164 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}
void rT164make(T164 *C,T0* a1,T0* a2){
{T64 *n=((T64*)se_new(64));
rT64make(n,/*(IRF4*/(T0 *)ms78/*)*/,a1);
C->_feature_name=(T0 *)n;}
rT164make_call0(C,a2,(C)->_feature_name);
}
void rT165bracketed_print(T165 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT165pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT165add_comment(T165 *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 rT165print_as_target(T165 *C){
rT165bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
T0* rT165start_position(T165 *C){
T0* R=NULL;
R=((T64*)(C)->_feature_name)->_start_position;
return R;
}
void rT165pretty_print(T165 *C){
rT64pretty_print2((T64*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
/*IF*/if ((XrT66precedence((C)->_target))<(11)) {
rT260put_character((T260*)oRBC27fmt,'\50');
XrT66pretty_print((C)->_target);
rT260put_character((T260*)oRBC27fmt,'\51');
}
else {
XrT66pretty_print((C)->_target);
}
/*FI*/}
void rT165make_call0(T165 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}
void rT165make(T165 *C,T0* a1,T0* a2){
{T64 *n=((T64*)se_new(64));
rT64make(n,/*(IRF4*/(T0 *)ms79/*)*/,a1);
C->_feature_name=(T0 *)n;}
rT165make_call0(C,a2,(C)->_feature_name);
}
void rT166bracketed_print(T166 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT166pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT166add_comment(T166 *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 rT166print_as_target(T166 *C){
rT166bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
T0* rT166start_position(T166 *C){
T0* R=NULL;
R=((T64*)(C)->_feature_name)->_start_position;
return R;
}
void rT166pretty_print(T166 *C){
rT64pretty_print2((T64*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
/*IF*/if ((XrT66precedence((C)->_target))<(11)) {
rT260put_character((T260*)oRBC27fmt,'\50');
XrT66pretty_print((C)->_target);
rT260put_character((T260*)oRBC27fmt,'\51');
}
else {
XrT66pretty_print((C)->_target);
}
/*FI*/}
T0* rT166operator(T166 *C){
T0* R=NULL;
R=((T64*)(C)->_feature_name)->_to_string;
return R;
}
void rT166make_prefix(T166 *C,T0* a1,T0* a2){
{T64 *n=((T64*)se_new(64));
rT64make(n,rT166operator(C),a1);
C->_feature_name=(T0 *)n;}
rT166make_call0(C,a2,(C)->_feature_name);
}
void rT166make_call0(T166 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}
void rT166make(T166 *C,T0* a1,T0* a2){
rT166make_call0(C,a1,a2);
}
void rT86bracketed_print(T86 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT86pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
T0* rT86add_comment(T86 *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 rT86print_as_target(T86 *C){
rT86pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT86pretty_print(T86 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
}
T0* rT86to_key(T86 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
void rT86make(T86 *C,T0* a1,T0* a2,int a3){
C->_start_position=a1;
C->_to_string=a2;
C->_rank=a3;
}
void rT68bracketed_print(T68 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT68pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
int rT68same_as(T68 *C,T0* a1){
int R=0;
R=rT7is_equal((T7*)rT68to_key(C),XrT47to_key(a1));
return R;
}
T0* rT68add_comment(T68 *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 rT68print_as_target(T68 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT68pretty_print2(T68 *C){
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
}
void rT68pretty_print(T68 *C){
rT260keyword((T260*)oRBC27fmt,(T0 *)ms490);
rT260put_character((T260*)oRBC27fmt,'\42');
rT260put_string((T260*)oRBC27fmt,(C)->_to_string);
rT260put_character((T260*)oRBC27fmt,'\42');
}
T0* rT68to_key(T68 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
void rT68make(T68 *C,T0* a1,T0* a2){
C->_to_string=a1;
C->_start_position=a2;
}
void rT62pretty_print(T62 *C){
/*IF*/if (((int)(C)->_tag)) {
rT260put_string((T260*)oRBC27fmt,((T157*)(C)->_tag)->_to_string);
rT260put_string((T260*)oRBC27fmt,(T0 *)ms483);
}
/*FI*//*IF*/if (((int)(C)->_expression)) {
XrT66pretty_print((C)->_expression);
/*IF*/if (((T260*)oRBC27fmt)->_semi_colon_flag) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms484);
}
/*FI*/}
/*FI*//*IF*/if (((int)(C)->_comment)) {
rT57pretty_print((T57*)(C)->_comment);
}
/*FI*/}
void rT62make(T62 *C,T0* a1,T0* a2,T0* a3){
C->_tag=a1;
C->_expression=a2;
C->_comment=a3;
}
void rT138pretty_print(T138 *C){
int _i=0;
rT260level_incr((T260*)oRBC27fmt);
rT260indent((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_header_comment)) {
rT57pretty_print((T57*)(C)->_header_comment);
}
/*FI*//*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T216*)(C)->_list)->_upper))) {
/*(IRF3*/(((T260*)oRBC27fmt)->_semi_colon_flag)=(1);
/*)*/rT260indent((T260*)oRBC27fmt);
XrT175pretty_print(rT216item((T216*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*/rT260level_decr((T260*)oRBC27fmt);
}
void rT138make(T138 *C,T0* a1,T0* a2){
C->_header_comment=a1;
C->_list=a2;
}
int rT257count(T257 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT257item(T257 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT257realloc(T257 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT257add_last(T257 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT257count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT257malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT257realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT257put(C,a1,(C)->_upper);
}
T0** rT257malloc(T257 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT257put(T257 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
int rT233count(T233 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT233item(T233 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT233realloc(T233 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT233add_last(T233 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT233count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT233malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT233realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT233put(C,a1,(C)->_upper);
}
T0** rT233malloc(T233 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT233put(T233 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
int rT231count(T231 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT231item(T231 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}

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