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

This is pretty25.c in view mode; [Download] [Up]

/* ANSI C code generated by SmallEiffel. */
/*
-- SmallEiffel  -- Release (- 0.91)    --      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"
/*SMALL_EIFFEL*/T0* rT53find_path_for(/*C*/T0* a1){
T0* R=NULL;
int _i=0;
rT7copy((T7*)(T0 *)ms21_53,a1);
rT7to_lower((T7*)(T0 *)ms21_53);
/*IF*/if (!(rT7has_suffix((T7*)(T0 *)ms21_53,(T0 *)ms24_27))) {
rT7append((T7*)(T0 *)ms21_53,(T0 *)ms24_27);
}
/*FI*//*IF*/if (rT53file_exists((T0 *)ms21_53)) {
R=rT7twin((T7*)(T0 *)ms21_53);
}
else {
_i=((T45*)rT53loading_path())->_lower;
while (!((((_i)>(((T45*)rT53loading_path())->_upper))||(((int)R))))) {
rT7copy((T7*)(T0 *)ms20_53,rT45item((T45*)rT53loading_path(),_i));
rT7append((T7*)(T0 *)ms20_53,(T0 *)ms21_53);
/*IF*/if (rT53file_exists((T0 *)ms20_53)) {
R=rT7twin((T7*)(T0 *)ms20_53);
}
/*FI*/_i=(_i)+(1);
}
}
/*FI*//*IF*/if ((!(R))&&(rT59has((T59*)rT53rename_dictionary(),(T0 *)ms21_53))) {
rT7copy((T7*)(T0 *)ms20_53,rT59at((T59*)rT53rename_dictionary(),(T0 *)ms21_53));
/*IF*/if (rT53file_exists((T0 *)ms20_53)) {
R=(T0 *)ms20_53;
}
else {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms22_53);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms20_53);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms23_53);
rT53die_with_code(1);
}
/*FI*/}
/*FI*//*IF*/if (!(R)) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms24_53);
rT38put_string((T38*)oRBC1std_error,a1);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms25_53);
/*[IRF3:clear*//*AW*/((T7*)(T0 *)ms20_53)->_count=(0);/*]*/
rT53append_loading_path_in((T0 *)ms20_53);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms20_53);
}
/*FI*/return R;
}
/*SMALL_EIFFEL*/T0* rT53get_class(/*C*/T0* a1){
T0* R=NULL;
/*IF*/if (rT55has((T55*)oRBC53base_class_dictionary,a1)) {
R=rT55at((T55*)oRBC53base_class_dictionary,a1);
}
else {
rT49make((T49*)rT53tmp_class_name(),a1,NULL);
R=rT49base_class((T49*)rT53tmp_class_name());
}
/*FI*/return R;
}
/*SMALL_EIFFEL*/int rT53is_used(/*C*/T0* a1){
int R=0;
R=rT55has((T55*)oRBC53base_class_dictionary,a1);
return R;
}
/*SMALL_EIFFEL*/T0* rT53get_environment_variable(/*C*/T0* a1){
T0* R=NULL;
void * _p=0;
_p=rT7to_external((T7*)a1);
_p=((void*)getenv((char*)_p));
/*IF*/if (((int)_p)) {
R=(T0*)e2s((char*)_p);
}
/*FI*/return R;
}
/*SMALL_EIFFEL*/char rT53directory_separator(/*C*/void){
if (ofBC27directory_separator==0){
char R=0;
ofBC27directory_separator=1;
R=rT7last((T7*)rT53small_eiffel_directory());
oRBC27directory_separator=R;}
return oRBC27directory_separator;}
/*SMALL_EIFFEL*/void rT53die_with_code(/*C*/int a1){
exit(a1);
}/*SMALL_EIFFEL*/void rT53fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}int ofBC53loading_path=0;
T0*oRBC53loading_path;
/*SMALL_EIFFEL*/T0* rT53loading_path(/*C*/void){
if (ofBC53loading_path==0){
T0* R=NULL;
T0* _file=NULL;
T0* _defaults=NULL;
char _slash=0;
int _i=0;
T0* _path=NULL;
ofBC53loading_path=1;
_path=(T0 *)ms2_53;
{T45 *n=((T45*)se_new(45));
rT45make(n,1,10);
R=(T0 *)n;}
rT45clear((T45*)R);
_slash=rT53directory_separator();
/*IF*/if (rT53file_exists(_path)) {
{T43 *n=((T43*)se_new(43));
/*[IRF3:make*//*AW*/(n)->_mode=((T0 *)ms1_43);/*]*/
_file=(T0 *)n;}
rT53open_read(_file,_path);
while (!(rT43end_of_input((T43*)_file))) {
rT43read_line((T43*)_file);
_path=rT7twin((T7*)oRBC43last_string);
/*IF*/if (!(rT7empty((T7*)_path))) {
/*IF*/if ((rT7last((T7*)_path))!=(_slash)) {
rT7extend((T7*)_path,_slash);
}
/*FI*/rT45add_last((T45*)R,_path);
}
/*FI*/}
rT43disconnect((T43*)_file);
}
/*FI*/_defaults=ma(45,0,3,ms3_53,ms4_53,ms5_53);
_i=1;
while (!((_i)>(((T45*)_defaults)->_upper))) {
_path=rT45item((T45*)_defaults,_i);
rT7prepend((T7*)_path,rT53small_eiffel_directory());
rT7extend((T7*)_path,_slash);
rT45add_last((T45*)R,_path);
_i=(_i)+(1);
}
oRBC53loading_path=R;}
return oRBC53loading_path;}
/*SMALL_EIFFEL*/void rT53incr_magic_count(T53 *C){
C->_magic_count=((C)->_magic_count)+(1);
}/*SMALL_EIFFEL*/void rT53add_class(T53 *C,T0* a1){
rT55put((T55*)oRBC53base_class_dictionary,a1,((T49*)((T51*)a1)->_base_class_name)->_to_string);
rT53incr_magic_count(C);
}/*SMALL_EIFFEL*/int rT53re_load_class(/*C*/T0* a1){
int R=0;
T0* _new_class=NULL;
T0* _name=NULL;
_name=((T49*)((T51*)a1)->_base_class_name)->_to_string;
rT55remove((T55*)oRBC53base_class_dictionary,_name);
_new_class=rT53load_class(_name);
R=((int)_new_class);
return R;
}
/*SMALL_EIFFEL*/void rT53open_read(/*C*/T0* a1,T0* a2){
rT43connect_to((T43*)a1,a2);
/*IF*/if (!(rT43is_connected((T43*)a1))) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms7_27);
rT38put_string((T38*)oRBC1std_error,a2);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms8_27);
rT53die_with_code(1);
}
/*FI*/}int ofBC53tmp_class_name=0;
T0*oRBC53tmp_class_name;
/*SMALL_EIFFEL*/T0* rT53tmp_class_name(/*C*/void){
if (ofBC53tmp_class_name==0){
T0* R=NULL;
ofBC53tmp_class_name=1;
{T49 *n=((T49*)se_new(49));
rT49make(n,(T0 *)ms36_27,NULL);
R=(T0 *)n;}
oRBC53tmp_class_name=R;}
return oRBC53tmp_class_name;}
int ofBC53rename_dictionary=0;
T0*oRBC53rename_dictionary;
/*SMALL_EIFFEL*/T0* rT53rename_dictionary(/*C*/void){
if (ofBC53rename_dictionary==0){
T0* R=NULL;
T0* _short_name=NULL;
T0* _full_name=NULL;
int _i=0;
ofBC53rename_dictionary=1;
{T59 *n=((T59*)se_new(59));
rT59make(n);
R=(T0 *)n;}
_i=1;
while (!((_i)>(((T45*)rT53loading_path())->_upper))) {
rT7copy((T7*)(T0 *)ms20_53,rT45item((T45*)rT53loading_path(),_i));
rT7append((T7*)(T0 *)ms20_53,(T0 *)ms26_53);
/*IF*/if (rT53file_exists((T0 *)ms20_53)) {
rT53open_read(oRBC27tmp_file_read,(T0 *)ms20_53);
while (!(rT43end_of_input((T43*)oRBC27tmp_file_read))) {
rT43read_word((T43*)oRBC27tmp_file_read);
_full_name=rT7twin((T7*)oRBC43last_string);
rT43read_word((T43*)oRBC27tmp_file_read);
_short_name=rT7twin((T7*)oRBC43last_string);
rT7prepend((T7*)_short_name,rT45item((T45*)rT53loading_path(),_i));
/*IF*/if (rT59has((T59*)R,_full_name)) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms27_53);
rT38put_string((T38*)oRBC1std_error,_full_name);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms28_53);
rT38put_string((T38*)oRBC1std_error,_short_name);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms29_53);
rT38put_string((T38*)oRBC1std_error,rT59at((T59*)R,_full_name));
rT38put_string((T38*)oRBC1std_error,(T0 *)ms30_53);
rT53die_with_code(1);
}
/*FI*/rT59put((T59*)R,_short_name,_full_name);
rT43skip_separators((T43*)oRBC27tmp_file_read);
}
rT43disconnect((T43*)oRBC27tmp_file_read);
}
/*FI*/_i=(_i)+(1);
}
oRBC53rename_dictionary=R;}
return oRBC53rename_dictionary;}
/*SMALL_EIFFEL*/void rT53append_loading_path_in(/*C*/T0* a1){
T0* _sed=NULL;
int _i=0;
rT7append((T7*)a1,(T0 *)ms7_53);
_i=((T45*)rT53loading_path())->_lower;
while (!((_i)>(((T45*)rT53loading_path())->_upper))) {
rT7extend((T7*)a1,'\42');
rT7append((T7*)a1,rT45item((T45*)rT53loading_path(),_i));
rT7extend((T7*)a1,'\42');
rT7extend((T7*)a1,'\12');
_i=(_i)+(1);
}
rT7append((T7*)a1,(T0 *)ms8_53);
rT7append((T7*)a1,(T0 *)ms124_27);
_sed=rT53get_environment_variable((T0 *)ms124_27);
rT7append((T7*)a1,(T0 *)ms9_53);
/*IF*/if (!(_sed)) {
rT7append((T7*)a1,(T0 *)ms10_53);
}
else {
rT7append((T7*)a1,(T0 *)ms11_53);
rT7append((T7*)a1,_sed);
rT7append((T7*)a1,(T0 *)ms12_53);
}
/*FI*/rT7extend((T7*)a1,'\12');
}T0*oRBC27tmp_file_read;
/*SMALL_EIFFEL*/T0* rT53small_eiffel_directory(/*C*/void){
if (ofBC27small_eiffel_directory==0){
T0* R=NULL;
char _slash=0;
int _i=0;
ofBC27small_eiffel_directory=1;
R=rT53get_environment_variable((T0 *)ms124_27);
/*IF*/if (!(R)) {
R=rT7twin((T7*)(T0 *)ms124_27);
rT7to_upper((T7*)R);
R=rT53get_environment_variable(R);
/*IF*/if (((int)R)) {
rT7to_upper((T7*)(T0 *)ms124_27);
}
/*FI*/}
/*FI*//*IF*/if (!(R)) {
R=(T0 *)ms1_27;
}
/*FI*/_i=((T7*)R)->_count;
while (!((_i)<(0))) {
_slash=rT7item((T7*)R,_i);
/*IF*/if ((rT3is_letter(_slash))||(rT3is_digit(_slash))) {
_i=(_i)-(1);
}
else {
_i=-(1);
}
/*FI*/}
/*IF*/if ((_i)==(0)) {
rT7extend((T7*)R,'\57');
}
 else if (!((rT7last((T7*)R))==(_slash))) {
rT7extend((T7*)R,_slash);
}
/*FI*/oRBC27small_eiffel_directory=R;}
return oRBC27small_eiffel_directory;}
/*SMALL_EIFFEL*/T0* rT53base_class(/*C*/T0* a1){
T0* R=NULL;
T0* _path=NULL;
/*IF*/if (rT55has((T55*)oRBC53base_class_dictionary,((T49*)a1)->_to_string)) {
R=rT55at((T55*)oRBC53base_class_dictionary,((T49*)a1)->_to_string);
}
 else if (/*(IRF4*/((T52*)oRBC27eiffel_parser)->_is_running/*)*/) {
rT53fatal_error((T0 *)ms13_53);
}
else {
_path=rT53find_path_for(((T49*)a1)->_to_string);
/*IF*/if (((int)_path)) {
R=rT52analyse_class((T52*)oRBC27eiffel_parser,_path);
}
/*FI*//*IF*/if (!(R)) {
rT46add_position(((T49*)a1)->_start_position);
rT53fatal_error((T0 *)ms14_53);
}
 else if (!(rT55has((T55*)oRBC53base_class_dictionary,((T49*)a1)->_to_string))) {
rT46append((T0 *)ms15_53);
rT46append(_path);
rT46append((T0 *)ms16_53);
rT46append(((T49*)a1)->_to_string);
rT53fatal_error((T0 *)ms17_53);
}
/*FI*/}
/*FI*/return R;
}
T0*oRBC53base_class_dictionary;
/*SMALL_EIFFEL*/int rT53next_id(T53 *C){
int R=0;
/*IF*/if (((C)->_last_id)==(0)) {
C->_last_id=25;
}
/*FI*/C->_last_id=((C)->_last_id)+(1);
R=(C)->_last_id;
return R;
}
/*SMALL_EIFFEL*/int rT53next_unique(T53 *C){
int R=0;
/*IF*/if (((C)->_last_unique)<(1000)) {
C->_last_unique=1000;
}
/*FI*/C->_last_unique=((C)->_last_unique)+(1);
R=(C)->_last_unique;
return R;
}
/*SMALL_EIFFEL*/T0* rT53load_class(/*C*/T0* a1){
T0* R=NULL;
T0* _path=NULL;
_path=rT53find_path_for(a1);
/*IF*/if (!(_path)) {
rT53fatal_error((T0 *)ms18_53);
}
else {
R=rT52analyse_class((T52*)oRBC27eiffel_parser,_path);
/*IF*/if (!(R)) {
rT53fatal_error((T0 *)ms19_53);
}
/*FI*/}
/*FI*/return R;
}
/*SMALL_EIFFEL*/int rT53file_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;
}
/*BASE_CLASS*/int rT51proper_has(T51 *C,T0* a1){
int R=0;
R=rT63has((T63*)(C)->_feature_dictionary,XrT69to_key(a1));
return R;
}
/*BASE_CLASS*/int rT51is_generic(T51 *C){
int R=0;
R=((int)(C)->_formal_generic_list);
return R;
}
/*BASE_CLASS*/int rT51is_general(T51 *C){
int R=0;
R=((T0 *)(T0 *)ms48_27)==((T0 *)((T49*)(C)->_base_class_name)->_to_string);
return R;
}
/*BASE_CLASS*/void rT51error(/*C*/T0* a1,T0* a2){
rT46add_position(a1);
rT46error((T46*)oRBC27eh,a2);
}/*BASE_CLASS*/void rT51error1(T51 *C){
rT51error(((T49*)(C)->_base_class_name)->_start_position,(T0 *)ms28_51);
}/*BASE_CLASS*/void rT51add_creation_clause(T51 *C,T0* a1){
/*IF*/if (!((C)->_creation_clause_list)) {
{T133 *n=((T133*)se_new(133));
/*[IRF3:make*//*AW*/(n)->_list=(ma(134,0,1,a1));/*]*/
C->_creation_clause_list=(T0 *)n;}
}
else {
rT133add_last((T133*)(C)->_creation_clause_list,a1);
}
/*FI*/}/*BASE_CLASS*/void rT51add_feature_clause(T51 *C,T0* a1){
/*IF*/if (!((C)->_feature_clause_list)) {
{T263 *n=((T263*)se_new(263));
/*[IRF3:make*//*AW*/(n)->_list=(ma(264,0,1,a1));/*]*/
C->_feature_clause_list=(T0 *)n;}
}
else {
rT263add_last((T263*)(C)->_feature_clause_list,a1);
}
/*FI*/}/*BASE_CLASS*/void rT51pretty_print(T51 *C){
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(0);/*]*/
/*IF*/if (((int)(C)->_index_list)) {
rT84pretty_print((T84*)(C)->_index_list);
rT267indent((T267*)oRBC27fmt);
}
/*FI*//*IF*/if (((int)(C)->_heading_comment1)) {
rT61pretty_print((T61*)(C)->_heading_comment1);
rT267indent((T267*)oRBC27fmt);
}
/*FI*//*IF*/if ((C)->_is_deferred) {
rT267keyword((T267*)oRBC27fmt,(T0 *)ms23_51);
}
 else if ((C)->_is_expanded) {
rT267keyword((T267*)oRBC27fmt,(T0 *)ms116_27);
}
/*FI*/rT267keyword((T267*)oRBC27fmt,(T0 *)ms24_51);
rT49pretty_print((T49*)(C)->_base_class_name);
/*IF*/if (rT51is_generic(C)) {
rT87pretty_print((T87*)(C)->_formal_generic_list);
}
/*FI*/rT267indent((T267*)oRBC27fmt);
/*IF*/if (((int)(C)->_obsolete_type_string)) {
rT267keyword((T267*)oRBC27fmt,(T0 *)ms25_51);
rT78pretty_print((T78*)(C)->_obsolete_type_string);
}
/*FI*/rT267indent((T267*)oRBC27fmt);
/*IF*/if (((int)(C)->_heading_comment2)) {
rT61pretty_print((T61*)(C)->_heading_comment2);
}
/*FI*//*IF*/if (((int)(C)->_parent_list)) {
rT131pretty_print((T131*)(C)->_parent_list);
}
/*FI*//*IF*/if (((int)(C)->_creation_clause_list)) {
rT133pretty_print((T133*)(C)->_creation_clause_list);
}
/*FI*//*IF*/if (((int)(C)->_feature_clause_list)) {
rT263pretty_print((T263*)(C)->_feature_clause_list);
}
/*FI*//*IF*/if (((int)(C)->_invariant_assertion)) {
rT265pretty_print((T265*)(C)->_invariant_assertion);
}
/*FI*//*IF*/if (((int)(C)->_end_comment)) {
rT61pretty_print((T61*)(C)->_end_comment);
}
/*FI*//*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(0);/*]*/
/*IF*/if (((T267*)oRBC27fmt)->_zen_mode) {
rT267skip((T267*)oRBC27fmt,0);
}
else {
rT267skip((T267*)oRBC27fmt,1);
}
/*FI*/rT267keyword((T267*)oRBC27fmt,(T0 *)ms26_51);
/*IF*/if (!(((T267*)oRBC27fmt)->_zen_mode)) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms27_51);
rT267put_string((T267*)oRBC27fmt,((T49*)(C)->_base_class_name)->_to_string);
}
/*FI*/rT267put_character((T267*)oRBC27fmt,'\12');
}/*BASE_CLASS*/int rT51super_has(T51 *C,T0* a1){
int R=0;
/*IF*/if (!((C)->_parent_list)) {
/*IF*/if (rT51is_general(C)) {
R=0;
}
else {
R=rT51has((T51*)/*(IRF4*/rT51class_with((T0 *)ms36_27)/*)*/,a1);
}
/*FI*/}
else {
R=rT131has((T131*)(C)->_parent_list,a1);
}
/*FI*/return R;
}
/*BASE_CLASS*/void rT51add_index_clause(T51 *C,T0* a1){
/*IF*/if (!((C)->_index_list)) {
{T84 *n=((T84*)se_new(84));
/*[IRF3:make*//*AW*/(n)->_list=(ma(85,0,1,a1));/*]*/
C->_index_list=(T0 *)n;}
}
else {
rT85add_last((T85*)((T84*)(C)->_index_list)->_list,a1);
}
/*FI*/}/*BASE_CLASS*/void rT51get_started(T51 *C){
T0* _s1=NULL;
C->_id=rT49frozen_id((T49*)(C)->_base_class_name);
/*IF*/if (((C)->_id)==(0)) {
C->_id=rT53next_id((T53*)oRBC27small_eiffel);
}
/*FI*//*IF*/if (((int)(C)->_feature_clause_list)) {
rT263get_started((T263*)(C)->_feature_clause_list,(C)->_feature_dictionary);
}
/*FI*//*IF*/if (((int)(C)->_parent_list)) {
rT131get_started((T131*)(C)->_parent_list);
}
/*FI*//*IF*/if (((int)(C)->_end_comment)) {
rT61good_end((T61*)(C)->_end_comment,(C)->_base_class_name);
}
/*FI*/}/*BASE_CLASS*/void rT51set_invariant(T51 *C,T0* a1,T0* a2,T0* a3){
/*IF*/if ((((int)a2))||(((int)a3))) {
{T265 *n=((T265*)se_new(265));
rT265make(n,a1,a2,a3);
C->_invariant_assertion=(T0 *)n;}
}
/*FI*/}/*BASE_CLASS*/void rT51set_is_expanded(T51 *C){
/*IF*/if ((C)->_is_deferred) {
rT51error1(C);
}
/*FI*/C->_is_expanded=1;
}/*BASE_CLASS*/void rT51set_is_deferred(T51 *C){
/*IF*/if ((C)->_is_expanded) {
rT51error1(C);
}
/*FI*/C->_is_deferred=1;
}/*BASE_CLASS*/T0* rT51class_with(/*C*/T0* a1){
T0* R=NULL;
R=rT53get_class(a1);
return R;
}
/*BASE_CLASS*/void rT51set_parent_list(T51 *C,T0* a1,T0* a2,T0* a3){
{T131 *n=((T131*)se_new(131));
rT131make(n,(T0 *)C,a1,a2,a3);
C->_parent_list=(T0 *)n;}
}/*BASE_CLASS*/int rT51has(T51 *C,T0* a1){
int R=0;
/*IF*/if (rT63has((T63*)(C)->_feature_dictionary,XrT69to_key(a1))) {
R=1;
}
else {
R=rT51super_has(C,a1);
}
/*FI*/return R;
}
/*BASE_CLASS*/void rT51make(T51 *C,T0* a1){
C->_path=a1;
{T49 *n=((T49*)se_new(49));
rT49make_unknown(n);
C->_base_class_name=(T0 *)n;}
{T63 *n=((T63*)se_new(63));
rT63make(n);
C->_feature_dictionary=(T0 *)n;}
}/*CALL_INFIX_IMPLIES*/void rT206bracketed_print(T206 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT206pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_IMPLIES*/void rT206fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_IMPLIES*/T0* rT206arg1(T206 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_IMPLIES*/T0* rT206add_comment(T206 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT61count((T61*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T226 *n=((T226*)se_new(226));
rT226make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*CALL_INFIX_IMPLIES*/void rT206print_as_target(T206 *C){
rT206bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_IMPLIES*/void rT206print_op(T206 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_IMPLIES*/T0* rT206start_position(T206 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_IMPLIES*/void rT206pretty_print(T206 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT206print_op(C);
/*IF*/if ((XrT70precedence(rT206arg1(C)))==(13)) {
XrT70pretty_print(rT206arg1(C));
}
 else if ((3)>=(XrT70precedence(rT206arg1(C)))) {
XrT70bracketed_print(rT206arg1(C));
}
else {
XrT70pretty_print(rT206arg1(C));
}
/*FI*/}
 else if ((XrT70precedence((C)->_target))<(3)) {
XrT70bracketed_print((C)->_target);
rT206print_op(C);
XrT70pretty_print(rT206arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT206print_op(C);
XrT70pretty_print(rT206arg1(C));
}
/*FI*/}/*CALL_INFIX_IMPLIES*/void rT206make_call_1(T206 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_IMPLIES*/void rT206make(T206 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT206fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,/*(IRF4*/(T0 *)ms117_27/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT206make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_OR_ELSE*/void rT205bracketed_print(T205 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT205pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_OR_ELSE*/void rT205fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_OR_ELSE*/T0* rT205arg1(T205 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_OR_ELSE*/T0* rT205add_comment(T205 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT61count((T61*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T226 *n=((T226*)se_new(226));
rT226make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*CALL_INFIX_OR_ELSE*/void rT205print_as_target(T205 *C){
rT205bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_OR_ELSE*/void rT205print_op(T205 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_OR_ELSE*/T0* rT205start_position(T205 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_OR_ELSE*/void rT205pretty_print(T205 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT205print_op(C);
/*IF*/if ((XrT70precedence(rT205arg1(C)))==(13)) {
XrT70pretty_print(rT205arg1(C));
}
 else if ((4)>=(XrT70precedence(rT205arg1(C)))) {
XrT70bracketed_print(rT205arg1(C));
}
else {
XrT70pretty_print(rT205arg1(C));
}
/*FI*/}
 else if ((XrT70precedence((C)->_target))<(4)) {
XrT70bracketed_print((C)->_target);
rT205print_op(C);
XrT70pretty_print(rT205arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT205print_op(C);
XrT70pretty_print(rT205arg1(C));
}
/*FI*/}/*CALL_INFIX_OR_ELSE*/void rT205make_call_1(T205 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_OR_ELSE*/void rT205make(T205 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT205fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,/*(IRF4*/(T0 *)ms82_27/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT205make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_OR*/void rT204bracketed_print(T204 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT204pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_OR*/void rT204fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_OR*/T0* rT204arg1(T204 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_OR*/T0* rT204add_comment(T204 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT61count((T61*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T226 *n=((T226*)se_new(226));
rT226make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*CALL_INFIX_OR*/void rT204print_as_target(T204 *C){
rT204bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_OR*/void rT204print_op(T204 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_OR*/T0* rT204start_position(T204 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_OR*/void rT204pretty_print(T204 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT204print_op(C);
/*IF*/if ((XrT70precedence(rT204arg1(C)))==(13)) {
XrT70pretty_print(rT204arg1(C));
}
 else if ((4)>=(XrT70precedence(rT204arg1(C)))) {
XrT70bracketed_print(rT204arg1(C));
}
else {
XrT70pretty_print(rT204arg1(C));
}
/*FI*/}
 else if ((XrT70precedence((C)->_target))<(4)) {
XrT70bracketed_print((C)->_target);
rT204print_op(C);
XrT70pretty_print(rT204arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT204print_op(C);
XrT70pretty_print(rT204arg1(C));
}
/*FI*/}/*CALL_INFIX_OR*/void rT204make_call_1(T204 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_OR*/void rT204make(T204 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT204fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,/*(IRF4*/(T0 *)ms81_27/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT204make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_XOR*/void rT203bracketed_print(T203 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT203pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_XOR*/void rT203fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_XOR*/T0* rT203arg1(T203 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_XOR*/T0* rT203add_comment(T203 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT61count((T61*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T226 *n=((T226*)se_new(226));
rT226make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*CALL_INFIX_XOR*/void rT203print_as_target(T203 *C){
rT203bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_XOR*/void rT203print_op(T203 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_XOR*/T0* rT203start_position(T203 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_XOR*/void rT203pretty_print(T203 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT203print_op(C);
/*IF*/if ((XrT70precedence(rT203arg1(C)))==(13)) {
XrT70pretty_print(rT203arg1(C));
}
 else if ((4)>=(XrT70precedence(rT203arg1(C)))) {
XrT70bracketed_print(rT203arg1(C));
}
else {
XrT70pretty_print(rT203arg1(C));
}
/*FI*/}
 else if ((XrT70precedence((C)->_target))<(4)) {
XrT70bracketed_print((C)->_target);
rT203print_op(C);
XrT70pretty_print(rT203arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT203print_op(C);
XrT70pretty_print(rT203arg1(C));
}
/*FI*/}/*CALL_INFIX_XOR*/void rT203make_call_1(T203 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_XOR*/void rT203make(T203 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT203fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,/*(IRF4*/(T0 *)ms122_27/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT203make_call_1(C,a1,(C)->_feature_name,_eal);
}/*CALL_INFIX_AND_THEN*/void rT202bracketed_print(T202 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT202pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CALL_INFIX_AND_THEN*/void rT202fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*CALL_INFIX_AND_THEN*/T0* rT202arg1(T202 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*CALL_INFIX_AND_THEN*/T0* rT202add_comment(T202 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT61count((T61*)a1))==(0))) {
R=(T0 *)C;
}
else {
{T226 *n=((T226*)se_new(226));
rT226make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*CALL_INFIX_AND_THEN*/void rT202print_as_target(T202 *C){
rT202bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CALL_INFIX_AND_THEN*/void rT202print_op(T202 *C){
rT267put_character((T267*)oRBC27fmt,'\40');
rT72pretty_print2((T72*)(C)->_feature_name);
rT267put_character((T267*)oRBC27fmt,'\40');
}/*CALL_INFIX_AND_THEN*/T0* rT202start_position(T202 *C){
T0* R=NULL;
R=((T72*)(C)->_feature_name)->_start_position;
return R;
}
/*CALL_INFIX_AND_THEN*/void rT202pretty_print(T202 *C){
/*IF*/if ((XrT70precedence((C)->_target))==(13)) {
XrT70pretty_print((C)->_target);
rT202print_op(C);
/*IF*/if ((XrT70precedence(rT202arg1(C)))==(13)) {
XrT70pretty_print(rT202arg1(C));
}
 else if ((5)>=(XrT70precedence(rT202arg1(C)))) {
XrT70bracketed_print(rT202arg1(C));
}
else {
XrT70pretty_print(rT202arg1(C));
}
/*FI*/}
 else if ((XrT70precedence((C)->_target))<(5)) {
XrT70bracketed_print((C)->_target);
rT202print_op(C);
XrT70pretty_print(rT202arg1(C));
}
else {
XrT70pretty_print((C)->_target);
rT202print_op(C);
XrT70pretty_print(rT202arg1(C));
}
/*FI*/}/*CALL_INFIX_AND_THEN*/void rT202make_call_1(T202 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_AND_THEN*/void rT202make(T202 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT46add_position(a2);
rT202fatal_error((T0 *)ms1_187);
}
/*FI*/{T72 *n=((T72*)se_new(72));
rT72make(n,/*(IRF4*/(T0 *)ms60_27/*)*/,a2);
C->_feature_name=(T0 *)n;}
{T173 *n=((T173*)se_new(173));
/*[IRF3:make*//*AW*/(n)->_list=(ma(83,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT202make_call_1(C,a1,(C)->_feature_name,_eal);
}

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