This is pretty15.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"
/*DECLARATION_GROUP*/int rT142count(T142 *C){
int R=0;
R=/*XrT*ARRAY[LOCAL_ARGUMENT]*/((T97*)(C)->_name_list)->_upper;
return R;
}
/*DECLARATION_GROUP*/void rT142pretty_print(T142 *C){
int _i=0;
_i=/*XrT*ARRAY[LOCAL_ARGUMENT]*/((T97*)(C)->_name_list)->_lower;
XrT91pretty_print(/*XrT*ARRAY[LOCAL_ARGUMENT]*/rT97item((T97*)(C)->_name_list,_i));
_i=(_i)+(1);
while (!((_i)>(/*XrT*ARRAY[LOCAL_ARGUMENT]*/((T97*)(C)->_name_list)->_upper))) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms1_142);
XrT91pretty_print(/*XrT*ARRAY[LOCAL_ARGUMENT]*/rT97item((T97*)(C)->_name_list,_i));
_i=(_i)+(1);
}
rT267put_string((T267*)oRBC27fmt,(T0 *)ms2_142);
XrT60pretty_print(/*XrT*LOCAL_ARGUMENT*/((T90*)/*XrT*ARRAY[LOCAL_ARGUMENT]*/rT97item((T97*)(C)->_name_list,1))->_result_type);
}/*DECLARATION_GROUP*/void rT142append_in(T142 *C,T0* a1){
int _i=0;
_i=/*XrT*ARRAY[LOCAL_ARGUMENT]*/((T97*)(C)->_name_list)->_lower;
while (!((_i)>(/*XrT*ARRAY[LOCAL_ARGUMENT]*/((T97*)(C)->_name_list)->_upper))) {
XrT96add_last(a1,/*XrT*ARRAY[LOCAL_ARGUMENT]*/rT97item((T97*)(C)->_name_list,_i));
_i=(_i)+(1);
}
}/*DECLARATION_GROUP*/void rT142make(T142 *C,T0* a1,T0* a2){
int _i=0;
C->_name_list=a1;
_i=/*XrT*ARRAY[LOCAL_ARGUMENT]*/((T97*)(C)->_name_list)->_upper;
while (!((_i)==(0))) {
/*XrT*LOCAL_ARGUMENT*//*[IRF3:set_result_type*//*AW*/((T90*)/*XrT*ARRAY[LOCAL_ARGUMENT]*/rT97item((T97*)(C)->_name_list,_i))->_result_type=(a2);/*]*/
_i=(_i)-(1);
}
}/*DECLARATION_1*/void rT144pretty_print(T144 *C){
XrT91pretty_print((C)->_name);
rT267put_string((T267*)oRBC27fmt,(T0 *)ms1_144);
XrT60pretty_print(/*XrT*LOCAL_ARGUMENT*/((T90*)(C)->_name)->_result_type);
}/*DECLARATION_1*/void rT144append_in(T144 *C,T0* a1){
XrT96add_last(a1,(C)->_name);
}/*DECLARATION_1*/void rT144make(T144 *C,T0* a1,T0* a2){
C->_name=a1;
/*XrT*LOCAL_ARGUMENT*//*[IRF3:set_result_type*//*AW*/((T90*)(C)->_name)->_result_type=(a2);/*]*/
}/*CHECK_INVARIANT*/void rT220pretty_print(T220 *C){
int _i=0;
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,/*(IRF4*/(T0 *)ms110_27/*)*/);
rT267level_incr((T267*)oRBC27fmt);
/*IF*/if (((int)(C)->_header_comment)) {
rT61pretty_print((T61*)(C)->_header_comment);
}
else {
rT267indent((T267*)oRBC27fmt);
}
/*FI*//*IF*/if (((int)(C)->_list)) {
_i=1;
while (!((_i)>(((T160*)(C)->_list)->_upper))) {
/*IF*/if (((((T267*)oRBC27fmt)->_zen_mode)&&((_i)==(((T160*)(C)->_list)->_upper)))) {
/*[IRF3:set_semi_colon_flag*//*AW*/((T267*)oRBC27fmt)->_semi_colon_flag=(0);/*]*/
}
else {
/*[IRF3:set_semi_colon_flag*//*AW*/((T267*)oRBC27fmt)->_semi_colon_flag=(1);/*]*/
}
/*FI*/rT267indent((T267*)oRBC27fmt);
rT66pretty_print((T66*)rT160item((T160*)(C)->_list,_i));
_i=(_i)+(1);
}
}
/*FI*/rT267level_decr((T267*)oRBC27fmt);
rT267indent((T267*)oRBC27fmt);
}/*CHECK_INVARIANT*/void rT220make(T220 *C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}/*EIFFEL_RUN_CONTROL*/int rT266all_check(T266 *C){
int R=0;
R=((C)->_level)>=(0);
return R;
}
/*CHARACTER_CONSTANT*/void rT77bracketed_print(T77 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT77pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*CHARACTER_CONSTANT*/T0* rT77to_string(T77 *C){
T0* R=NULL;
{T7 *n=((T7*)se_new(7));
rT7make(n,0);
R=(T0 *)n;}
rT7extend((T7*)R,'\47');
{int iv1=(C)->_pretty_print_mode;
if (0 == iv1) goto l2;
goto l3;
l2: ;
rT7extend((T7*)R,(C)->_value);
goto l1;
l3: ;
if (1 == iv1) goto l4;
goto l5;
l4: ;
rT77character_coding((C)->_value,R);
goto l1;
l5: ;
if (2 == iv1) goto l6;
goto l7;
l6: ;
rT7extend((T7*)R,'\45');
rT7extend((T7*)R,'\57');
rT2append_in(((unsigned char)(C)->_value),R);
rT7extend((T7*)R,'\57');
goto l1;
l7: ;
l1: ;
}
rT7extend((T7*)R,'\47');
return R;
}
/*CHARACTER_CONSTANT*/T0* rT77add_comment(T77 *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;
}
/*CHARACTER_CONSTANT*/void rT77print_as_target(T77 *C){
rT77bracketed_print(C);
rT267put_character((T267*)oRBC27fmt,'\56');
}/*CHARACTER_CONSTANT*/void rT77pretty_print(T77 *C){
rT267put_string((T267*)oRBC27fmt,rT77to_string(C));
}/*CHARACTER_CONSTANT*/void rT77make(T77 *C,T0* a1,char a2,int a3){
C->_start_position=a1;
C->_value=a2;
/*[IRF3:set_pretty_print_mode*//*AW*/(C)->_pretty_print_mode=(a3);/*]*/
}/*CHARACTER_CONSTANT*/void rT77character_coding(/*C*/char a1,T0* a2){
char _special=0;
{int iv1=a1;
if (64 == iv1) goto l9;
goto l10;
l9: ;
_special='A';
goto l8;
l10: ;
if (8 == iv1) goto l11;
goto l12;
l11: ;
_special='B';
goto l8;
l12: ;
if (94 == iv1) goto l13;
goto l14;
l13: ;
_special='C';
goto l8;
l14: ;
if (36 == iv1) goto l15;
goto l16;
l15: ;
_special='D';
goto l8;
l16: ;
if (12 == iv1) goto l17;
goto l18;
l17: ;
_special='F';
goto l8;
l18: ;
if (92 == iv1) goto l19;
goto l20;
l19: ;
_special='H';
goto l8;
l20: ;
if (126 == iv1) goto l21;
goto l22;
l21: ;
_special='L';
goto l8;
l22: ;
if (10 == iv1) goto l23;
goto l24;
l23: ;
_special='N';
goto l8;
l24: ;
if (96 == iv1) goto l25;
goto l26;
l25: ;
_special='Q';
goto l8;
l26: ;
if (13 == iv1) goto l27;
goto l28;
l27: ;
_special='R';
goto l8;
l28: ;
if (35 == iv1) goto l29;
goto l30;
l29: ;
_special='S';
goto l8;
l30: ;
if (9 == iv1) goto l31;
goto l32;
l31: ;
_special='T';
goto l8;
l32: ;
if (0 == iv1) goto l33;
goto l34;
l33: ;
_special='U';
goto l8;
l34: ;
if (124 == iv1) goto l35;
goto l36;
l35: ;
_special='V';
goto l8;
l36: ;
if (37 == iv1) goto l37;
goto l38;
l37: ;
_special='\45';
goto l8;
l38: ;
if (39 == iv1) goto l39;
goto l40;
l39: ;
_special='\47';
goto l8;
l40: ;
if (34 == iv1) goto l41;
goto l42;
l41: ;
_special='\42';
goto l8;
l42: ;
if (91 == iv1) goto l43;
goto l44;
l43: ;
_special='\50';
goto l8;
l44: ;
if (93 == iv1) goto l45;
goto l46;
l45: ;
_special='\51';
goto l8;
l46: ;
if (123 == iv1) goto l47;
goto l48;
l47: ;
_special='\74';
goto l8;
l48: ;
if (125 == iv1) goto l49;
goto l50;
l49: ;
_special='\76';
goto l8;
l50: ;
l8: ;
}
rT7extend((T7*)a2,'\45');
/*IF*/if ((_special)==('\0')) {
rT7extend((T7*)a2,'\57');
rT2append_in(((unsigned char)a1),a2);
rT7extend((T7*)a2,'\57');
}
else {
rT7extend((T7*)a2,_special);
}
/*FI*/}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.