This is pretty23.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"
/*FEATURE_CLAUSE*/void rT135pretty_print(T135 *C){
int _i=0;
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(0);/*]*/
/*IF*/if (!(((T267*)oRBC27fmt)->_zen_mode)) {
rT267skip((T267*)oRBC27fmt,1);
}
else {
rT267indent((T267*)oRBC27fmt);
}
/*FI*/rT267keyword((T267*)oRBC27fmt,(T0 *)ms1_135);
rT123pretty_print((T123*)(C)->_clients);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(0);/*]*/
/*IF*/if (((int)(C)->_comment)) {
/*IF*/if (((T267*)oRBC27fmt)->_zen_mode) {
}
else if ((((T267*)oRBC27fmt)->_column)>(15)) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT267indent((T267*)oRBC27fmt);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(0);/*]*/
}
/*FI*/rT61pretty_print((T61*)(C)->_comment);
/*IF*/if (!(((T267*)oRBC27fmt)->_zen_mode)) {
rT267skip((T267*)oRBC27fmt,1);
}
/*FI*/}
/*FI*//*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T65*)(C)->_list)->_upper))) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT267indent((T267*)oRBC27fmt);
/*IF*/if (!(((T267*)oRBC27fmt)->_zen_mode)) {
rT267skip((T267*)oRBC27fmt,1);
}
/*FI*/XrT64pretty_print(rT65item((T65*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*//*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(0);/*]*/
/*IF*/if (!(((T267*)oRBC27fmt)->_zen_mode)) {
rT267skip((T267*)oRBC27fmt,1);
}
/*FI*/}/*FEATURE_CLAUSE*/void rT135add_into(T135 *C,T0* a1){
T0* _f=NULL;
int _i=0;
/*IF*/if ((((int)(C)->_list))&&(!(rT65empty((T65*)(C)->_list)))) {
_i=1;
while (!((_i)>(((T65*)(C)->_list)->_upper))) {
_f=rT65item((T65*)(C)->_list,_i);
XrT64set_clients(_f,(C)->_clients);
XrT64add_into(_f,a1);
_i=(_i)+(1);
}
}
/*FI*/}/*FEATURE_CLAUSE*/void rT135make(T135 *C,T0* a1,T0* a2,T0* a3){
C->_clients=a1;
C->_comment=a2;
C->_list=a3;
}/*CLASS_INVARIANT*/void rT265pretty_print(T265 *C){
int _i=0;
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(0);/*]*/
/*IF*/if (!(((T267*)oRBC27fmt)->_zen_mode)) {
rT267skip((T267*)oRBC27fmt,1);
}
/*FI*/rT267keyword((T267*)oRBC27fmt,(T0 *)ms1_265);
/*IF*/if (((int)(C)->_header_comment)) {
rT61pretty_print((T61*)(C)->_header_comment);
}
/*FI*//*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T160*)(C)->_list)->_upper))) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT267indent((T267*)oRBC27fmt);
/*IF*/if (!(((T267*)oRBC27fmt)->_zen_mode)) {
rT267skip((T267*)oRBC27fmt,1);
}
/*FI*//*[IRF3:set_semi_colon_flag*//*AW*/((T267*)oRBC27fmt)->_semi_colon_flag=(1);/*]*/
rT66pretty_print((T66*)rT160item((T160*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*/}/*CLASS_INVARIANT*/void rT265make(T265 *C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}/*PREFIX_NAME*/void rT68bracketed_print(T68 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT68pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*PREFIX_NAME*/int rT68same_as(T68 *C,T0* a1){
int R=0;
R=rT7is_equal((T7*)(C)->_to_key,XrT50to_key(a1));
return R;
}
/*PREFIX_NAME*/T0* rT68add_comment(T68 *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;
}
/*PREFIX_NAME*/void rT68print_as_target(T68 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_to_string);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*PREFIX_NAME*/void rT68pretty_print2(T68 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_to_string);
}/*PREFIX_NAME*/void rT68pretty_print(T68 *C){
rT267keyword((T267*)oRBC27fmt,(T0 *)ms1_68);
rT267put_character((T267*)oRBC27fmt,'\42');
rT267put_string((T267*)oRBC27fmt,(C)->_to_string);
rT267put_character((T267*)oRBC27fmt,'\42');
}/*PREFIX_NAME*/void rT68make(T68 *C,T0* a1,T0* a2){
C->_to_string=a1;
C->_start_position=a2;
C->_to_key=rT7twin((T7*)(C)->_to_string);
rT7extend((T7*)(C)->_to_key,'\46');
}/*CLASS_NAME*/void rT49set_with(T49 *C,T0* a1){
C->_start_position=((T49*)a1)->_start_position;
rT49set_to_string(C,((T49*)a1)->_to_string);
}T0*oRBC49tmp_string;
/*CLASS_NAME*/int rT49frozen_id(T49 *C){
int R=0;
/*IF*/if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms48_27)) {
R=1;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms49_27)) {
R=2;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms42_27)) {
R=3;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms55_27)) {
R=4;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms45_27)) {
R=5;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms40_27)) {
R=6;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms57_27)) {
R=7;
}
else if (((T0 *)(C)->_to_string)==((T0 *)(T0 *)ms53_27)) {
R=8;
}
/*FI*/return R;
}
/*CLASS_NAME*/void rT49pretty_print(T49 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_to_string);
}/*CLASS_NAME*/T0* rT49to_key(T49 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
T0*oRBC49names_memory;
/*CLASS_NAME*/T0* rT49base_class(T49 *C){
T0* R=NULL;
R=rT53base_class((T0 *)C);
return R;
}
/*CLASS_NAME*/void rT49make_unknown(T49 *C){
{T47 *n=((T47*)se_new(47));
rT47with(n,1,1,(T0 *)C);
C->_start_position=(T0 *)n;}
C->_to_string=(T0 *)ms3_49;
}/*CLASS_NAME*/void rT49make(T49 *C,T0* a1,T0* a2){
C->_start_position=a2;
rT49set_to_string(C,a1);
}/*CLASS_NAME*/void rT49set_to_string(T49 *C,T0* a1){
int _i=0;
rT7copy((T7*)oRBC49tmp_string,a1);
rT7to_upper((T7*)oRBC49tmp_string);
_i=rT45index_of((T45*)oRBC49names_memory,oRBC49tmp_string);
/*IF*/if ((_i)<=(((T45*)oRBC49names_memory)->_upper)) {
C->_to_string=rT45item((T45*)oRBC49names_memory,_i);
}
else {
C->_to_string=rT7twin((T7*)oRBC49tmp_string);
rT45add_last((T45*)oRBC49names_memory,(C)->_to_string);
}
/*FI*/}/*PARENT*/void rT118set_undefine(T118 *C,T0* a1){
{T128 *n=((T128*)se_new(128));
rT128make(n,a1);
C->_undefine_list=(T0 *)n;}
}/*PARENT*/void rT118fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*PARENT*/void rT118pretty_print(T118 *C){
int _end_needed=0;
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT267indent((T267*)oRBC27fmt);
XrT60pretty_print((C)->_type);
/*IF*/if (((((!((C)->_rename_list))&&(!((C)->_export_list)))&&(!((C)->_undefine_list)))&&(!((C)->_redefine_list)))&&(!((C)->_select_list))) {
rT267put_character((T267*)oRBC27fmt,'\73');
}
/*FI*//*IF*/if (((int)(C)->_comment)) {
rT267put_character((T267*)oRBC27fmt,'\40');
rT61pretty_print((T61*)(C)->_comment);
}
/*FI*//*IF*/if (((int)(C)->_rename_list)) {
_end_needed=1;
rT120pretty_print((T120*)(C)->_rename_list);
}
/*FI*//*IF*/if (((int)(C)->_export_list)) {
_end_needed=1;
rT124pretty_print((T124*)(C)->_export_list);
}
/*FI*//*IF*/if (((int)(C)->_undefine_list)) {
_end_needed=1;
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms7_118);
rT128pretty_print((T128*)(C)->_undefine_list);
}
/*FI*//*IF*/if (((int)(C)->_redefine_list)) {
_end_needed=1;
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms8_118);
rT128pretty_print((T128*)(C)->_redefine_list);
}
/*FI*//*IF*/if (((int)(C)->_select_list)) {
_end_needed=1;
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms9_118);
rT128pretty_print((T128*)(C)->_select_list);
}
/*FI*//*IF*/if (_end_needed) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms10_118);
}
/*FI*//*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT267indent((T267*)oRBC27fmt);
}/*PARENT*/void rT118get_started(T118 *C,T0* a1){
int _all_check=0;
T0* _fn2=NULL;
T0* _fn=NULL;
T0* _pbc=NULL;
T0* _wbc=NULL;
int _i=0;
_all_check=rT266all_check((T266*)oRBC27eiffel_run_control);
C->_parent_list=a1;
_pbc=XrT60base_class((C)->_type);
_wbc=((T131*)(C)->_parent_list)->_base_class;
/*IF*/if ((_all_check)&&(((int)(C)->_rename_list))) {
rT120get_started((T120*)(C)->_rename_list,_pbc);
}
/*FI*//*IF*/if ((_all_check)&&(((int)(C)->_undefine_list))) {
_i=rT128count((T128*)(C)->_undefine_list);
while (!((_i)==(0))) {
_fn=rT128item((T128*)(C)->_undefine_list,_i);
/*IF*/if (!(rT51has((T51*)_pbc,_fn))) {
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)_fn)->_start_position);
rT118fatal_error((T0 *)ms11_118);
}
/*FI*/_i=(_i)-(1);
}
}
/*FI*//*IF*/if ((_all_check)&&(((int)(C)->_redefine_list))) {
_i=rT128count((T128*)(C)->_redefine_list);
while (!((_i)==(0))) {
_fn=rT128item((T128*)(C)->_redefine_list,_i);
/*IF*/if (!(rT51proper_has((T51*)_wbc,_fn))) {
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)_fn)->_start_position);
rT118fatal_error((T0 *)ms12_118);
}
/*FI*//*IF*/if (!(rT51has((T51*)_pbc,_fn))) {
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)_fn)->_start_position);
rT118fatal_error((T0 *)ms13_118);
}
/*FI*//*IF*/if (((int)(C)->_rename_list)) {
_fn2=rT120to_new_name((T120*)(C)->_rename_list,_fn);
/*IF*/if (((T0 *)_fn2)!=((T0 *)_fn)) {
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)_fn)->_start_position);
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)_fn2)->_start_position);
rT118fatal_error((T0 *)ms14_118);
}
/*FI*/}
/*FI*/_i=(_i)-(1);
}
}
/*FI*/}T0*oRBC118forbidden_parent_list;
/*PARENT*/void rT118add_rename(T118 *C,T0* a1){
/*IF*/if (!((C)->_rename_list)) {
{T120 *n=((T120*)se_new(120));
/*[IRF3:make*//*AW*/(n)->_list=(ma(121,0,1,a1));/*]*/
C->_rename_list=(T0 *)n;}
}
else {
rT120add_last((T120*)(C)->_rename_list,a1);
}
/*FI*/}/*PARENT*/int rT118has(T118 *C,T0* a1){
int R=0;
/*IF*/if (!((C)->_rename_list)) {
R=rT51has((T51*)XrT60base_class((C)->_type),a1);
}
else {
R=rT51has((T51*)XrT60base_class((C)->_type),rT120to_old_name((T120*)(C)->_rename_list,a1));
}
/*FI*/return R;
}
/*PARENT*/void rT118set_redefine(T118 *C,T0* a1){
{T128 *n=((T128*)se_new(128));
rT128make(n,a1);
C->_redefine_list=(T0 *)n;}
}/*PARENT*/void rT118set_select(T118 *C,T0* a1){
{T128 *n=((T128*)se_new(128));
rT128make(n,a1);
C->_select_list=(T0 *)n;}
}/*PARENT*/void rT118make(T118 *C,T0* a1){
C->_type=a1;
/*IF*/if (rT45fast_has((T45*)oRBC118forbidden_parent_list,XrT60written_mark((C)->_type))) {
rT46add_position(XrT60start_position((C)->_type));
rT46append((T0 *)ms1_118);
rT46append(XrT60written_mark((C)->_type));
rT118fatal_error((T0 *)ms2_118);
}
/*FI*/}T0*oRBC27eiffel_run_control;
/*CLASS_NAME_LIST*/void rT126warning(/*C*/T0* a1,T0* a2){
rT46add_position(a1);
rT46warning((T46*)oRBC27eh,a2);
}/*CLASS_NAME_LIST*/void rT126pretty_print(T126 *C){
int _i=0;
_i=1;
while (!((_i)>(((T125*)(C)->_list)->_upper))) {
rT49pretty_print((T49*)rT125item((T125*)(C)->_list,_i));
_i=(_i)+(1);
/*IF*/if ((_i)<=(((T125*)(C)->_list)->_upper)) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms2_126);
}
/*FI*/}
}/*CLASS_NAME_LIST*/int rT126index_of(T126 *C,T0* a1){
int R=0;
T0* _to_string=NULL;
_to_string=/*XrT*NAME*/((T92*)a1)->_to_string;
R=((T125*)(C)->_list)->_upper;
while (!(((R)==(0))||(((T0 *)_to_string)==((T0 *)((T49*)rT125item((T125*)(C)->_list,R))->_to_string)))) {
R=(R)-(1);
}
return R;
}
/*CLASS_NAME_LIST*/void rT126make(T126 *C,T0* a1){
int _i2=0;
int _i=0;
C->_list=a1;
_i=((T125*)(C)->_list)->_upper;
while (!((_i)==(0))) {
_i2=rT126index_of(C,rT125item((T125*)(C)->_list,_i));
/*IF*/if ((_i2)!=(_i)) {
rT46add_position(((T49*)rT125item((T125*)(C)->_list,_i2))->_start_position);
rT126warning(((T49*)rT125item((T125*)(C)->_list,_i))->_start_position,(T0 *)ms1_126);
}
/*FI*/_i=(_i)-(1);
}
}/*PARENT_LIST*/void rT131pretty_print(T131 *C){
int _i=0;
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(0);/*]*/
/*IF*/if (((T267*)oRBC27fmt)->_zen_mode) {
rT267indent((T267*)oRBC27fmt);
}
else {
rT267skip((T267*)oRBC27fmt,1);
}
/*FI*/rT267keyword((T267*)oRBC27fmt,(T0 *)ms10_131);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT267indent((T267*)oRBC27fmt);
/*IF*/if (((int)(C)->_heading_comment)) {
rT61pretty_print((T61*)(C)->_heading_comment);
}
/*FI*/_i=1;
while (!((_i)>(((T130*)(C)->_list)->_upper))) {
rT118pretty_print((T118*)rT130item((T130*)(C)->_list,_i));
_i=(_i)+(1);
}
}/*PARENT_LIST*/void rT131get_started(T131 *C){
int _i=0;
_i=1;
while (!((_i)>(((T130*)(C)->_list)->_upper))) {
rT118get_started((T118*)rT130item((T130*)(C)->_list,_i),(T0 *)C);
_i=(_i)+(1);
}
}/*PARENT_LIST*/int rT131has(T131 *C,T0* a1){
int R=0;
int _i=0;
_i=((T130*)(C)->_list)->_upper;
while (!((R)||((_i)==(0)))) {
R=rT118has((T118*)rT130item((T130*)(C)->_list,_i),a1);
_i=(_i)-(1);
}
return R;
}
/*PARENT_LIST*/void rT131make(T131 *C,T0* a1,T0* a2,T0* a3,T0* a4){
C->_base_class=a1;
C->_heading_comment=a3;
C->_start_position=a2;
C->_list=a4;
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.