This is pretty9.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"
/*WHEN_ITEM_1*/void rT233pretty_print(T233 *C){
XrT70pretty_print((C)->_expression);
}/*E_VOID*/void rT175bracketed_print(T175 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT175pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*E_VOID*/void rT175fatal_error(/*C*/T0* a1){
rT46fatal_error(a1);
}/*E_VOID*/T0* rT175add_comment(T175 *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;
}
/*E_VOID*/void rT175pretty_print(T175 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_to_string);
}/*E_VOID*/T0* rT175to_key(T175 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
/*E_VOID*/void rT175make(T175 *C,T0* a1){
C->_start_position=a1;
C->_to_string=(T0 *)ms121_27;
}/*PROC_CALL_N*/T0* rT183add_comment(T183 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT61count((T61*)a1))==(0))) {
R=(T0 *)C;
}
/*AF*/else {
{T222 *n=((T222*)se_new(222));
rT222make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*PROC_CALL_N*/void rT183pretty_print(T183 *C){
XrT70print_as_target((C)->_target);
rT267put_string((T267*)oRBC27fmt,/*XrT*FEATURE_NAME*/((T68*)(C)->_feature_name)->_to_string);
rT267level_incr((T267*)oRBC27fmt);
rT173pretty_print((T173*)(C)->_arguments);
rT267level_decr((T267*)oRBC27fmt);
/*IF*/if (((T267*)oRBC27fmt)->_semi_colon_flag) {
rT267put_character((T267*)oRBC27fmt,'\73');
}
/*FI*/}/*PROC_CALL_N*/void rT183make(T183 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*PROC_CALL_1*/T0* rT182arg1(T182 *C){
T0* R=NULL;
R=rT173first((T173*)(C)->_arguments);
return R;
}
/*PROC_CALL_1*/T0* rT182add_comment(T182 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT61count((T61*)a1))==(0))) {
R=(T0 *)C;
}
/*AF*/else {
{T222 *n=((T222*)se_new(222));
rT222make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*PROC_CALL_1*/void rT182pretty_print(T182 *C){
XrT70print_as_target((C)->_target);
rT267put_string((T267*)oRBC27fmt,/*XrT*FEATURE_NAME*/((T68*)(C)->_feature_name)->_to_string);
rT267put_character((T267*)oRBC27fmt,'\50');
XrT70pretty_print(rT182arg1(C));
rT267put_character((T267*)oRBC27fmt,'\51');
/*IF*/if (((T267*)oRBC27fmt)->_semi_colon_flag) {
rT267put_character((T267*)oRBC27fmt,'\73');
}
/*FI*/}/*PROC_CALL_1*/void rT182make(T182 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*PROC_CALL_0*/T0* rT181add_comment(T181 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT61count((T61*)a1))==(0))) {
R=(T0 *)C;
}
/*AF*/else {
{T222 *n=((T222*)se_new(222));
rT222make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/return R;
}
/*PROC_CALL_0*/void rT181pretty_print(T181 *C){
XrT70print_as_target((C)->_target);
rT267put_string((T267*)oRBC27fmt,/*XrT*FEATURE_NAME*/((T68*)(C)->_feature_name)->_to_string);
/*IF*/if (((T267*)oRBC27fmt)->_semi_colon_flag) {
rT267put_character((T267*)oRBC27fmt,'\73');
}
/*FI*/}/*PROC_CALL_0*/void rT181make(T181 *C,T0* a1,T0* a2){
C->_target=a1;
C->_feature_name=a2;
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.