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

This is pretty7.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"
int rT50file_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;
}
int rT48proper_has(T48 *C,T0* a1){
int R=0;
R=rT59has((T59*)(C)->_feature_dictionary,XrT65to_key(a1));
return R;
}
int rT48is_generic(T48 *C){
int R=0;
R=((int)(C)->_formal_generic_list);
return R;
}
int rT48is_general(T48 *C){
int R=0;
R=((T0 *)(T0 *)ms176)==((T0 *)((T46*)(C)->_base_class_name)->_to_string);
return R;
}
void rT48error(/*C*/T0* a1,T0* a2){
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a1);
rT43error((T43*)oRBC27eh,a2);
}
void rT48error1(T48 *C){
rT48error(((T46*)(C)->_base_class_name)->_start_position,(T0 *)ms170);
}
void rT48add_creation_clause(T48 *C,T0* a1){
/*IF*/if (!((C)->_creation_clause_list)) {
{T131 *n=((T131*)se_new(131));
/*(IRF3*/((n)->_list)=(ma(132,0,1,a1));
/*)*/C->_creation_clause_list=(T0 *)n;}
}
else {
rT131add_last((T131*)(C)->_creation_clause_list,a1);
}
/*FI*/}
void rT48add_feature_clause(T48 *C,T0* a1){
/*IF*/if (!((C)->_feature_clause_list)) {
{T256 *n=((T256*)se_new(256));
/*(IRF3*/((n)->_list)=(ma(257,0,1,a1));
/*)*/C->_feature_clause_list=(T0 *)n;}
}
else {
rT256add_last((T256*)(C)->_feature_clause_list,a1);
}
/*FI*/}
void rT48pretty_print(T48 *C){
/*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(0);
/*)*//*IF*/if (((int)(C)->_index_list)) {
rT80pretty_print((T80*)(C)->_index_list);
rT260indent((T260*)oRBC27fmt);
}
/*FI*//*IF*/if (((int)(C)->_heading_comment1)) {
rT57pretty_print((T57*)(C)->_heading_comment1);
rT260indent((T260*)oRBC27fmt);
}
/*FI*//*IF*/if ((C)->_is_deferred) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms456);
}
 else if ((C)->_is_expanded) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms115);
}
/*FI*/rT260keyword((T260*)oRBC27fmt,(T0 *)ms457);
rT46pretty_print((T46*)(C)->_base_class_name);
/*IF*/if (rT48is_generic(C)) {
rT83pretty_print((T83*)(C)->_formal_generic_list);
}
/*FI*/rT260indent((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_obsolete_type_string)) {
rT260keyword((T260*)oRBC27fmt,(T0 *)ms460);
rT74pretty_print((T74*)(C)->_obsolete_type_string);
}
/*FI*/rT260indent((T260*)oRBC27fmt);
/*IF*/if (((int)(C)->_heading_comment2)) {
rT57pretty_print((T57*)(C)->_heading_comment2);
}
/*FI*//*IF*/if (((int)(C)->_parent_list)) {
rT129pretty_print((T129*)(C)->_parent_list);
}
/*FI*//*IF*/if (((int)(C)->_creation_clause_list)) {
rT131pretty_print((T131*)(C)->_creation_clause_list);
}
/*FI*//*IF*/if (((int)(C)->_feature_clause_list)) {
rT256pretty_print((T256*)(C)->_feature_clause_list);
}
/*FI*//*IF*/if (((int)(C)->_invariant_assertion)) {
rT258pretty_print((T258*)(C)->_invariant_assertion);
}
/*FI*//*IF*/if (((int)(C)->_end_comment)) {
rT57pretty_print((T57*)(C)->_end_comment);
}
/*FI*//*(IRF3*/(((T260*)oRBC27fmt)->_indent_level)=(0);
/*)*//*IF*/if (((T260*)oRBC27fmt)->_zen_mode) {
rT260skip((T260*)oRBC27fmt,0);
}
else {
rT260skip((T260*)oRBC27fmt,1);
}
/*FI*/rT260keyword((T260*)oRBC27fmt,(T0 *)ms485);
/*IF*/if (!(((T260*)oRBC27fmt)->_zen_mode)) {
rT260put_string((T260*)oRBC27fmt,(T0 *)ms486);
rT260put_string((T260*)oRBC27fmt,((T46*)(C)->_base_class_name)->_to_string);
}
/*FI*/rT260put_character((T260*)oRBC27fmt,'\12');
}
int rT48super_has(T48 *C,T0* a1){
int R=0;
/*IF*/if ((!((C)->_parent_list))||((rT129count((T129*)(C)->_parent_list))==(0))) {
/*IF*/if (rT48is_general(C)) {
R=0;
}
else {
R=rT48has((T48*)/*(IRF4*/rT48class_with((T0 *)ms175)/*)*/,a1);
}
/*FI*/}
else {
R=rT129has((T129*)(C)->_parent_list,a1);
}
/*FI*/return R;
}
void rT48add_index_clause(T48 *C,T0* a1){
/*IF*/if (!((C)->_index_list)) {
{T80 *n=((T80*)se_new(80));
/*(IRF3*/((n)->_list)=(ma(81,0,1,a1));
/*)*/C->_index_list=(T0 *)n;}
}
else {
rT81add_last((T81*)((T80*)(C)->_index_list)->_list,a1);
}
/*FI*/}
void rT48get_started(T48 *C){
T0* _s1=NULL;
C->_id=rT46frozen_id((T46*)(C)->_base_class_name);
/*IF*/if (((C)->_id)==(0)) {
C->_id=rT50next_id((T50*)oRBC27small_eiffel);
}
/*FI*//*IF*/if (((int)(C)->_feature_clause_list)) {
rT256get_started((T256*)(C)->_feature_clause_list,(C)->_feature_dictionary);
}
/*FI*//*IF*/if (((int)(C)->_parent_list)) {
rT129get_started((T129*)(C)->_parent_list);
}
/*FI*/}
void rT48set_invariant(T48 *C,T0* a1,T0* a2,T0* a3){
/*IF*/if ((((int)a2))||(((int)a3))) {
{T258 *n=((T258*)se_new(258));
rT258make(n,a1,a2,a3);
C->_invariant_assertion=(T0 *)n;}
}
/*FI*/}
void rT48set_is_expanded(T48 *C){
/*IF*/if ((C)->_is_deferred) {
rT48error1(C);
}
/*FI*/C->_is_expanded=1;
}
void rT48set_is_deferred(T48 *C){
/*IF*/if ((C)->_is_expanded) {
rT48error1(C);
}
/*FI*/C->_is_deferred=1;
}
T0* rT48class_with(/*C*/T0* a1){
T0* R=NULL;
R=((/*UT*/(void)(T50*)oRBC27small_eiffel),
rT50get_class(a1));
return R;
}
void rT48set_parent_list(T48 *C,T0* a1,T0* a2,T0* a3){
{T129 *n=((T129*)se_new(129));
rT129make(n,(T0 *)C,a1,a2,a3);
C->_parent_list=(T0 *)n;}
}
int rT48has(T48 *C,T0* a1){
int R=0;
/*IF*/if (rT59has((T59*)(C)->_feature_dictionary,XrT65to_key(a1))) {
R=1;
}
else {
R=rT48super_has(C,a1);
}
/*FI*/return R;
}
void rT48make(T48 *C,T0* a1){
C->_path=a1;
{T46 *n=((T46*)se_new(46));
rT46make_unknown(n);
C->_base_class_name=(T0 *)n;}
{T59 *n=((T59*)se_new(59));
rT59make(n);
C->_feature_dictionary=(T0 *)n;}
}
void rT201bracketed_print(T201 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT201pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT201fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT201arg1(T201 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT201add_comment(T201 *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 rT201print_as_target(T201 *C){
rT201bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT201print_op(T201 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT201start_position(T201 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT201pretty_print(T201 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT201print_op(C);
/*IF*/if ((XrT66precedence(rT201arg1(C)))==(13)) {
XrT66pretty_print(rT201arg1(C));
}
 else if ((3)>=(XrT66precedence(rT201arg1(C)))) {
XrT66bracketed_print(rT201arg1(C));
}
else {
XrT66pretty_print(rT201arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(3)) {
XrT66bracketed_print((C)->_target);
rT201print_op(C);
XrT66pretty_print(rT201arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT201print_op(C);
XrT66pretty_print(rT201arg1(C));
}
/*FI*/}
void rT201make_call_1(T201 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT201make(T201 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT201fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,/*(IRF4*/(T0 *)ms94/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT201make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT200bracketed_print(T200 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT200pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT200fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT200arg1(T200 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT200add_comment(T200 *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 rT200print_as_target(T200 *C){
rT200bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT200print_op(T200 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT200start_position(T200 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT200pretty_print(T200 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT200print_op(C);
/*IF*/if ((XrT66precedence(rT200arg1(C)))==(13)) {
XrT66pretty_print(rT200arg1(C));
}
 else if ((4)>=(XrT66precedence(rT200arg1(C)))) {
XrT66bracketed_print(rT200arg1(C));
}
else {
XrT66pretty_print(rT200arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(4)) {
XrT66bracketed_print((C)->_target);
rT200print_op(C);
XrT66pretty_print(rT200arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT200print_op(C);
XrT66pretty_print(rT200arg1(C));
}
/*FI*/}
void rT200make_call_1(T200 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT200make(T200 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT200fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,/*(IRF4*/(T0 *)ms93/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT200make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT199bracketed_print(T199 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT199pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT199fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT199arg1(T199 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT199add_comment(T199 *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 rT199print_as_target(T199 *C){
rT199bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT199print_op(T199 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT199start_position(T199 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT199pretty_print(T199 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT199print_op(C);
/*IF*/if ((XrT66precedence(rT199arg1(C)))==(13)) {
XrT66pretty_print(rT199arg1(C));
}
 else if ((4)>=(XrT66precedence(rT199arg1(C)))) {
XrT66bracketed_print(rT199arg1(C));
}
else {
XrT66pretty_print(rT199arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(4)) {
XrT66bracketed_print((C)->_target);
rT199print_op(C);
XrT66pretty_print(rT199arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT199print_op(C);
XrT66pretty_print(rT199arg1(C));
}
/*FI*/}
void rT199make_call_1(T199 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT199make(T199 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT199fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,/*(IRF4*/(T0 *)ms98/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT199make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT198bracketed_print(T198 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT198pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT198fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT198arg1(T198 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT198add_comment(T198 *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 rT198print_as_target(T198 *C){
rT198bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT198print_op(T198 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT198start_position(T198 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT198pretty_print(T198 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT198print_op(C);
/*IF*/if ((XrT66precedence(rT198arg1(C)))==(13)) {
XrT66pretty_print(rT198arg1(C));
}
 else if ((4)>=(XrT66precedence(rT198arg1(C)))) {
XrT66bracketed_print(rT198arg1(C));
}
else {
XrT66pretty_print(rT198arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(4)) {
XrT66bracketed_print((C)->_target);
rT198print_op(C);
XrT66pretty_print(rT198arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT198print_op(C);
XrT66pretty_print(rT198arg1(C));
}
/*FI*/}
void rT198make_call_1(T198 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT198make(T198 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT198fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,/*(IRF4*/(T0 *)ms100/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT198make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT197bracketed_print(T197 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT197pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT197fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT197arg1(T197 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT197add_comment(T197 *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 rT197print_as_target(T197 *C){
rT197bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT197print_op(T197 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT197start_position(T197 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT197pretty_print(T197 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT197print_op(C);
/*IF*/if ((XrT66precedence(rT197arg1(C)))==(13)) {
XrT66pretty_print(rT197arg1(C));
}
 else if ((5)>=(XrT66precedence(rT197arg1(C)))) {
XrT66bracketed_print(rT197arg1(C));
}
else {
XrT66pretty_print(rT197arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(5)) {
XrT66bracketed_print((C)->_target);
rT197print_op(C);
XrT66pretty_print(rT197arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT197print_op(C);
XrT66pretty_print(rT197arg1(C));
}
/*FI*/}
void rT197make_call_1(T197 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT197make(T197 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT197fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,/*(IRF4*/(T0 *)ms95/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT197make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT196bracketed_print(T196 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT196pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT196fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT196arg1(T196 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT196add_comment(T196 *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 rT196print_as_target(T196 *C){
rT196bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT196print_op(T196 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT196start_position(T196 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT196pretty_print(T196 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT196print_op(C);
/*IF*/if ((XrT66precedence(rT196arg1(C)))==(13)) {
XrT66pretty_print(rT196arg1(C));
}
 else if ((5)>=(XrT66precedence(rT196arg1(C)))) {
XrT66bracketed_print(rT196arg1(C));
}
else {
XrT66pretty_print(rT196arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(5)) {
XrT66bracketed_print((C)->_target);
rT196print_op(C);
XrT66pretty_print(rT196arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT196print_op(C);
XrT66pretty_print(rT196arg1(C));
}
/*FI*/}
void rT196make_call_1(T196 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT196make(T196 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT196fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,/*(IRF4*/(T0 *)ms97/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT196make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT195bracketed_print(T195 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT195pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT195fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT195arg1(T195 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT195add_comment(T195 *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 rT195print_as_target(T195 *C){
rT195bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT195print_op(T195 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT195start_position(T195 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT195pretty_print(T195 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT195print_op(C);
/*IF*/if ((XrT66precedence(rT195arg1(C)))==(13)) {
XrT66pretty_print(rT195arg1(C));
}
 else if ((6)>=(XrT66precedence(rT195arg1(C)))) {
XrT66bracketed_print(rT195arg1(C));
}
else {
XrT66pretty_print(rT195arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(6)) {
XrT66bracketed_print((C)->_target);
rT195print_op(C);
XrT66pretty_print(rT195arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT195print_op(C);
XrT66pretty_print(rT195arg1(C));
}
/*FI*/}
void rT195make_call_1(T195 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT195make(T195 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT195fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,(T0 *)ms318,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT195make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT194bracketed_print(T194 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT194pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT194fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT194arg1(T194 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT194add_comment(T194 *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 rT194print_as_target(T194 *C){
rT194bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT194print_op(T194 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT194start_position(T194 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT194pretty_print(T194 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT194print_op(C);
/*IF*/if ((XrT66precedence(rT194arg1(C)))==(13)) {
XrT66pretty_print(rT194arg1(C));
}
 else if ((6)>=(XrT66precedence(rT194arg1(C)))) {
XrT66bracketed_print(rT194arg1(C));
}
else {
XrT66pretty_print(rT194arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(6)) {
XrT66bracketed_print((C)->_target);
rT194print_op(C);
XrT66pretty_print(rT194arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT194print_op(C);
XrT66pretty_print(rT194arg1(C));
}
/*FI*/}
void rT194make_call_1(T194 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT194make(T194 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT194fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,(T0 *)ms314,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT194make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT193bracketed_print(T193 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT193pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT193fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT193arg1(T193 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT193add_comment(T193 *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 rT193print_as_target(T193 *C){
rT193bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT193print_op(T193 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT193start_position(T193 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT193pretty_print(T193 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT193print_op(C);
/*IF*/if ((XrT66precedence(rT193arg1(C)))==(13)) {
XrT66pretty_print(rT193arg1(C));
}
 else if ((6)>=(XrT66precedence(rT193arg1(C)))) {
XrT66bracketed_print(rT193arg1(C));
}
else {
XrT66pretty_print(rT193arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(6)) {
XrT66bracketed_print((C)->_target);
rT193print_op(C);
XrT66pretty_print(rT193arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT193print_op(C);
XrT66pretty_print(rT193arg1(C));
}
/*FI*/}
void rT193make_call_1(T193 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT193make(T193 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT193fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,(T0 *)ms316,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT193make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT192bracketed_print(T192 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT192pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT192fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT192arg1(T192 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT192add_comment(T192 *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 rT192print_as_target(T192 *C){
rT192bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT192print_op(T192 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT192start_position(T192 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT192pretty_print(T192 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT192print_op(C);
/*IF*/if ((XrT66precedence(rT192arg1(C)))==(13)) {
XrT66pretty_print(rT192arg1(C));
}
 else if ((6)>=(XrT66precedence(rT192arg1(C)))) {
XrT66bracketed_print(rT192arg1(C));
}
else {
XrT66pretty_print(rT192arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(6)) {
XrT66bracketed_print((C)->_target);
rT192print_op(C);
XrT66pretty_print(rT192arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT192print_op(C);
XrT66pretty_print(rT192arg1(C));
}
/*FI*/}
void rT192make_call_1(T192 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT192make(T192 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT192fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,(T0 *)ms312,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT192make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT191bracketed_print(T191 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT191pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT191fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT191arg1(T191 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT191add_comment(T191 *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 rT191print_as_target(T191 *C){
rT191bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT191print_op(T191 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT191start_position(T191 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT191pretty_print(T191 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT191print_op(C);
/*IF*/if ((XrT66precedence(rT191arg1(C)))==(13)) {
XrT66pretty_print(rT191arg1(C));
}
 else if ((6)>=(XrT66precedence(rT191arg1(C)))) {
XrT66bracketed_print(rT191arg1(C));
}
else {
XrT66pretty_print(rT191arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(6)) {
XrT66bracketed_print((C)->_target);
rT191print_op(C);
XrT66pretty_print(rT191arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT191print_op(C);
XrT66pretty_print(rT191arg1(C));
}
/*FI*/}
void rT191make_call_1(T191 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT191make(T191 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT191fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,(T0 *)ms310,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT191make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT190bracketed_print(T190 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT190pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT190fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT190arg1(T190 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT190add_comment(T190 *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 rT190print_as_target(T190 *C){
rT190bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT190print_op(T190 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT190start_position(T190 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT190pretty_print(T190 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT190print_op(C);
/*IF*/if ((XrT66precedence(rT190arg1(C)))==(13)) {
XrT66pretty_print(rT190arg1(C));
}
 else if ((6)>=(XrT66precedence(rT190arg1(C)))) {
XrT66bracketed_print(rT190arg1(C));
}
else {
XrT66pretty_print(rT190arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(6)) {
XrT66bracketed_print((C)->_target);
rT190print_op(C);
XrT66pretty_print(rT190arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT190print_op(C);
XrT66pretty_print(rT190arg1(C));
}
/*FI*/}
void rT190make_call_1(T190 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT190make(T190 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT190fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,(T0 *)ms308,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT190make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT189bracketed_print(T189 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT189pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT189fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}
T0* rT189arg1(T189 *C){
T0* R=NULL;
R=rT169first((T169*)(C)->_arguments);
return R;
}
T0* rT189add_comment(T189 *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 rT189print_as_target(T189 *C){
rT189bracketed_print(C);
rT260put_character((T260*)oRBC27fmt,'\56');
}
void rT189print_op(T189 *C){
rT260put_character((T260*)oRBC27fmt,'\40');
rT68pretty_print2((T68*)(C)->_feature_name);
rT260put_character((T260*)oRBC27fmt,'\40');
}
T0* rT189start_position(T189 *C){
T0* R=NULL;
R=((T68*)(C)->_feature_name)->_start_position;
return R;
}
void rT189pretty_print(T189 *C){
/*IF*/if ((XrT66precedence((C)->_target))==(13)) {
XrT66pretty_print((C)->_target);
rT189print_op(C);
/*IF*/if ((XrT66precedence(rT189arg1(C)))==(13)) {
XrT66pretty_print(rT189arg1(C));
}
 else if ((7)>=(XrT66precedence(rT189arg1(C)))) {
XrT66bracketed_print(rT189arg1(C));
}
else {
XrT66pretty_print(rT189arg1(C));
}
/*FI*/}
 else if ((XrT66precedence((C)->_target))<(7)) {
XrT66bracketed_print((C)->_target);
rT189print_op(C);
XrT66pretty_print(rT189arg1(C));
}
else {
XrT66pretty_print((C)->_target);
rT189print_op(C);
XrT66pretty_print(rT189arg1(C));
}
/*FI*/}
void rT189make_call_1(T189 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}
void rT189make(T189 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
(/*UT*/(void)(T43*)oRBC27eh);
rT43add_position(a2);
rT189fatal_error((T0 *)ms299);
}
/*FI*/{T68 *n=((T68*)se_new(68));
rT68make(n,/*(IRF4*/(T0 *)ms79/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T169 *n=((T169*)se_new(169));
/*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
/*)*/_eal=(T0 *)n;}
rT189make_call_1(C,a1,(C)->_feature_name,_eal);
}
void rT188bracketed_print(T188 *C){
rT260put_character((T260*)oRBC27fmt,'\50');
rT188pretty_print(C);
rT260put_character((T260*)oRBC27fmt,'\51');
}
void rT188fatal_error(/*C*/T0* a1){
(/*UT*/(void)(T43*)oRBC27eh);
rT43fatal_error(a1);
}

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