This is pretty17.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"
/*DEFERRED_PROCEDURE*/void rT208error(/*C*/T0* a1,T0* a2){
rT46add_position(a1);
rT46error((T46*)oRBC27eh,a2);
}/*DEFERRED_PROCEDURE*/T0* rT208start_position(T208 *C){
T0* R=NULL;
R=/*XrT*FEATURE_NAME*/((T68*)rT208first_name(C))->_start_position;
return R;
}
/*DEFERRED_PROCEDURE*/void rT208pretty_print_arguments(T208 *C){
/*IF*/if (((int)(C)->_arguments)) {
rT95pretty_print((T95*)(C)->_arguments);
}
/*FI*/}/*DEFERRED_PROCEDURE*/void rT208pretty_print_one_name(/*C*/T0* a1){
/*IF*/if (/*XrT*FEATURE_NAME*/((T68*)a1)->_is_frozen) {
rT267keyword((T267*)oRBC27fmt,(T0 *)ms11_64);
}
/*FI*/XrT69pretty_print(a1);
}/*DEFERRED_PROCEDURE*/void rT208pretty_print_names(T208 *C){
int _i=0;
_i=1;
rT208pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms10_64);
rT208pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
}
}/*DEFERRED_PROCEDURE*/void rT208pretty_print_profile(T208 *C){
rT208pretty_print_names(C);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT208pretty_print_arguments(C);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(3);/*]*/
/*IF*/if (((int)(C)->_result_type)) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms9_64);
XrT60pretty_print((C)->_result_type);
}
/*FI*/}/*DEFERRED_PROCEDURE*/void rT208pretty_print(T208 *C){
T0* _fn=NULL;
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT267indent((T267*)oRBC27fmt);
rT208pretty_print_profile(C);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms1_158);
/*IF*/if (((int)(C)->_obsolete_mark)) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms2_158);
rT78pretty_print((T78*)(C)->_obsolete_mark);
}
/*FI*//*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
/*IF*/if (((int)(C)->_header_comment)) {
rT61pretty_print((T61*)(C)->_header_comment);
}
/*FI*//*IF*/if (((int)(C)->_require_assertion)) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT137pretty_print((T137*)(C)->_require_assertion);
}
/*FI*//*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
/*[IRF3:pretty_print_routine_body*/rT267put_string((T267*)oRBC27fmt,(T0 *)ms1_207);
/*]*/
/*IF*/if (((int)(C)->_ensure_assertion)) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT159pretty_print((T159*)(C)->_ensure_assertion);
}
/*FI*//*IF*/if (((int)(C)->_rescue_compound)) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms3_158);
rT140pretty_print((T140*)(C)->_rescue_compound);
}
/*FI*//*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms4_158);
/*IF*/if ((((int)(C)->_end_comment))&&(!(rT61dummy((T61*)(C)->_end_comment)))) {
rT61pretty_print((T61*)(C)->_end_comment);
}
else if (((T267*)oRBC27fmt)->_print_end_routine) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms5_158);
_fn=rT208first_name(C);
/*IF*/if (XrT69is_prefix_name(_fn)) {
rT267keyword((T267*)oRBC27fmt,(T0 *)ms6_158);
rT267put_character((T267*)oRBC27fmt,'\42');
rT267put_string((T267*)oRBC27fmt,/*XrT*FEATURE_NAME*/((T68*)_fn)->_to_string);
rT267put_character((T267*)oRBC27fmt,'\42');
}
else if (XrT69is_infix_name(_fn)) {
rT267keyword((T267*)oRBC27fmt,(T0 *)ms7_158);
rT267put_character((T267*)oRBC27fmt,'\42');
rT267put_string((T267*)oRBC27fmt,/*XrT*FEATURE_NAME*/((T68*)_fn)->_to_string);
rT267put_character((T267*)oRBC27fmt,'\42');
}
else {
rT267put_string((T267*)oRBC27fmt,/*XrT*FEATURE_NAME*/((T68*)_fn)->_to_string);
}
/*FI*/}
/*FI*/rT267put_character((T267*)oRBC27fmt,'\12');
}/*DEFERRED_PROCEDURE*/void rT208add_into(T208 *C,T0* a1){
T0* _fn=NULL;
int _i=0;
C->_base_class=rT47base_class((T47*)/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,1))->_start_position);
_i=1;
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
_fn=rT128item((T128*)(C)->_names,_i);
/*IF*/if (rT63has((T63*)a1,XrT69to_key(_fn))) {
_fn=XrT64first_name(rT63at((T63*)a1,XrT69to_key(_fn)));
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)_fn)->_start_position);
rT46add_position(/*XrT*FEATURE_NAME*/((T68*)rT128item((T128*)(C)->_names,_i))->_start_position);
rT46error((T46*)oRBC27eh,(T0 *)ms12_64);
rT46append(/*XrT*FEATURE_NAME*/((T68*)_fn)->_to_string);
rT46error((T46*)oRBC27eh,(T0 *)ms102_27);
}
else {
rT63put((T63*)a1,(T0 *)C,XrT69to_key(_fn));
}
/*FI*/_i=(_i)+(1);
}
}/*DEFERRED_PROCEDURE*/void rT208set_header_comment(T208 *C,T0* a1){
/*IF*/if ((((int)a1))&&((rT61count((T61*)a1))>(1))) {
C->_end_comment=a1;
}
/*FI*/}/*DEFERRED_PROCEDURE*/void rT208set_rescue_compound(T208 *C,T0* a1){
/*IF*/if ((((int)a1))&&(/*(IRF4*/1/*)*/)) {
rT208error(rT208start_position(C),(T0 *)ms8_158);
}
/*FI*/C->_rescue_compound=a1;
}/*DEFERRED_PROCEDURE*/void rT208make_e_feature(T208 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}/*DEFERRED_PROCEDURE*/void rT208make_routine(T208 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
rT208make_e_feature(C,a1,NULL);
C->_header_comment=a4;
C->_arguments=a2;
C->_obsolete_mark=a3;
C->_require_assertion=a5;
}/*DEFERRED_PROCEDURE*/void rT208make(T208 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
rT208make_routine(C,a1,a2,a3,a4,a5);
}/*FMT*/void rT267put_integer(T267 *C,int a1){
/*[IRF3:clear*//*AW*/((T7*)(T0 *)ms2_267)->_count=(0);/*]*/
rT2append_in(a1,(T0 *)ms2_267);
rT267put_string(C,(T0 *)ms2_267);
}/*FMT*/void rT267put_string(T267 *C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>(((T7*)a1)->_count))) {
rT267put_character(C,rT7item((T7*)a1,_i));
_i=(_i)+(1);
}
}/*FMT*/void rT267indent(T267 *C){
int _goal=0;
_goal=(1)+(((C)->_indent_level)*(3));
/*IF*/if (((C)->_column)>(_goal)) {
rT267put_character(C,'\12');
}
/*FI*/while (!((_goal)==((C)->_column))) {
rT267put_character(C,'\40');
}
{int iv1=(C)->_last_character;
if (10 == iv1) goto l409;
if (32 == iv1) goto l409;
goto l410;
l409: ;
goto l408;
l410: ;
rT267put_character(C,'\12');
rT267indent(C);
l408: ;
}
}/*FMT*/void rT267keyword(T267 *C,T0* a1){
{int iv1=(C)->_last_character;
if (10 == iv1) goto l412;
if (32 == iv1) goto l412;
goto l413;
l412: ;
goto l411;
l413: ;
rT267put_character(C,'\40');
l411: ;
}
rT267put_string(C,a1);
/*IF*/if (((C)->_last_character)!=('\40')) {
rT267put_character(C,'\40');
}
/*FI*/}/*FMT*/void rT267connect_to(T267 *C,T0* a1){
C->_sfw=a1;
C->_line=1;
C->_column=1;
C->_blank_lines=0;
C->_last_character='\0';
}/*FMT*/void rT267format_parano(T267 *C){
C->_print_current=1;
C->_print_end_check=1;
C->_print_end_loop=1;
C->_print_end_if=1;
C->_print_end_inspect=1;
C->_print_end_routine=1;
C->_print_end_debug=1;
}/*FMT*/void rT267format_end(T267 *C){
C->_print_current=0;
C->_print_end_check=1;
C->_print_end_loop=1;
C->_print_end_if=1;
C->_print_end_inspect=1;
C->_print_end_routine=1;
C->_print_end_debug=1;
}/*FMT*/void rT267format_zen(T267 *C){
C->_zen_mode=1;
C->_print_current=0;
C->_print_end_check=0;
C->_print_end_loop=0;
C->_print_end_if=0;
C->_print_end_inspect=0;
C->_print_end_routine=0;
C->_print_end_debug=0;
}/*FMT*/void rT267format_default(T267 *C){
C->_print_current=0;
C->_print_end_check=0;
C->_print_end_loop=0;
C->_print_end_if=0;
C->_print_end_inspect=0;
C->_print_end_routine=1;
C->_print_end_debug=0;
}/*FMT*/void rT267skip(T267 *C,int a1){
while (!(((C)->_blank_lines)>=(a1))) {
rT267put_character(C,'\12');
}
rT267indent(C);
}/*FMT*/void rT267level_decr(T267 *C){
C->_indent_level=((C)->_indent_level)-(1);
}/*FMT*/void rT267level_incr(T267 *C){
C->_indent_level=((C)->_indent_level)+(1);
}/*FMT*/void rT267put_character(T267 *C,char a1){
XrT39put_character((C)->_sfw,a1);
C->_last_character=a1;
{int iv1=a1;
if (10 == iv1) goto l415;
goto l416;
l415: ;
C->_line=((C)->_line)+(1);
C->_column=1;
C->_blank_lines=((C)->_blank_lines)+(1);
goto l414;
l416: ;
if (9 == iv1) goto l417;
if (32 == iv1) goto l417;
goto l418;
l417: ;
C->_column=((C)->_column)+(1);
goto l414;
l418: ;
C->_column=((C)->_column)+(1);
C->_blank_lines=-(1);
l414: ;
}
}/*FMT*/void rT267put_end(T267 *C,T0* a1){
rT267put_string(C,(T0 *)ms1_267);
rT267put_string(C,a1);
rT267put_character(C,'\12');
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.