This is pretty6.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"
/*CST_ATT_INTEGER*/T0* rT157first_name(T157 *C){
T0* R=NULL;
R=rT128item((T128*)(C)->_names,1);
return R;
}
/*CST_ATT_INTEGER*/void rT157pretty_tail(T157 *C){
rT267put_string((T267*)oRBC27fmt,(T0 *)ms1_147);
rT82pretty_print((T82*)rT157value(C,1));
}/*CST_ATT_INTEGER*/void rT157pretty_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);
}/*CST_ATT_INTEGER*/void rT157pretty_print_names(T157 *C){
int _i=0;
_i=1;
rT157pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
while (!((_i)>(rT128count((T128*)(C)->_names)))) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms10_64);
rT157pretty_print_one_name(rT128item((T128*)(C)->_names,_i));
_i=(_i)+(1);
}
}/*CST_ATT_INTEGER*/void rT157pretty_print_profile(T157 *C){
rT157pretty_print_names(C);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
/*[IRF3:pretty_print_arguments*//*]*/
/*[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*/}/*CST_ATT_INTEGER*/void rT157pretty_print(T157 *C){
rT157pretty_print_profile(C);
rT157pretty_tail(C);
rT267put_character((T267*)oRBC27fmt,'\73');
/*IF*/if (((int)(C)->_header_comment)) {
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/
rT267indent((T267*)oRBC27fmt);
/*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/
rT61pretty_print((T61*)(C)->_header_comment);
}
/*FI*/}/*CST_ATT_INTEGER*/void rT157add_into(T157 *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);
}
}/*CST_ATT_INTEGER*/T0* rT157value(T157 *C,int a1){
T0* R=NULL;
R=(C)->_value_mem;
return R;
}
/*CST_ATT_INTEGER*/void rT157make_e_feature(T157 *C,T0* a1,T0* a2){
C->_names=a1;
C->_result_type=a2;
}/*CST_ATT_INTEGER*/void rT157make(T157 *C,T0* a1,T0* a2,T0* a3){
rT157make_e_feature(C,a1,a2);
C->_value_mem=a3;
}/*E_ENSURE*/T0* rT159name(T159 *C){
T0* R=NULL;
/*IF*/if ((C)->_is_ensure_then) {
R=(T0 *)ms1_159;
}
else {
R=(T0 *)ms2_159;
}
/*FI*/return R;
}
/*E_ENSURE*/void rT159pretty_print(T159 *C){
int _i=0;
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,rT159name(C));
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);
}/*E_ENSURE*/void rT159make(T159 *C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}/*E_REQUIRE*/T0* rT137name(T137 *C){
T0* R=NULL;
/*IF*/if ((C)->_is_require_else) {
R=(T0 *)ms1_137;
}
else {
R=(T0 *)ms2_137;
}
/*FI*/return R;
}
/*E_REQUIRE*/void rT137pretty_print(T137 *C){
int _i=0;
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,rT137name(C));
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);
}/*E_REQUIRE*/void rT137make(T137 *C,T0* a1,T0* a2,T0* a3){
C->_start_position=a1;
C->_header_comment=a2;
C->_list=a3;
}/*E_LOOP*/T0* rT243add_comment(T243 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT61count((T61*)a1))==(0))) {
R=(T0 *)C;
}
else {/*AT*//*IF*/if ((rT61count((T61*)a1))==(1)) {
R=(T0 *)C;
}
else {
{T222 *n=((T222*)se_new(222));
rT222make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/}
/*FI*/return R;
}
/*E_LOOP*/void rT243pretty_print(T243 *C){
int _semi_colon_flag=0;
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms14_243);
/*IF*/if (((int)(C)->_initialize)) {
rT140pretty_print((T140*)(C)->_initialize);
}
/*FI*//*IF*/if (((int)(C)->_invariant_clause)) {
rT242pretty_print((T242*)(C)->_invariant_clause);
}
/*FI*//*IF*/if (((int)(C)->_variant_clause)) {
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms15_243);
_semi_colon_flag=((T267*)oRBC27fmt)->_semi_colon_flag;
/*[IRF3:set_semi_colon_flag*//*AW*/((T267*)oRBC27fmt)->_semi_colon_flag=(0);/*]*/
XrT241pretty_print((C)->_variant_clause);
/*[IRF3:set_semi_colon_flag*//*AW*/((T267*)oRBC27fmt)->_semi_colon_flag=(_semi_colon_flag);/*]*/
}
/*FI*/rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms16_243);
rT267level_incr((T267*)oRBC27fmt);
rT267indent((T267*)oRBC27fmt);
/*[IRF3:set_semi_colon_flag*//*AW*/((T267*)oRBC27fmt)->_semi_colon_flag=(0);/*]*/
XrT70pretty_print((C)->_until_expression);
rT267level_decr((T267*)oRBC27fmt);
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms17_243);
rT267indent((T267*)oRBC27fmt);
/*IF*/if (((int)(C)->_loop_body)) {
rT140pretty_print((T140*)(C)->_loop_body);
}
/*FI*/rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms18_243);
/*IF*/if (((T267*)oRBC27fmt)->_print_end_loop) {
rT267put_end((T267*)oRBC27fmt,(T0 *)ms19_243);
}
/*FI*/}/*E_LOOP*/void rT243make(T243 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6){
C->_start_position=a1;
C->_initialize=a2;
C->_invariant_clause=a3;
C->_variant_clause=a4;
C->_until_expression=a5;
C->_loop_body=a6;
}/*E_INSPECT*/T0* rT231add_comment(T231 *C,T0* a1){
T0* R=NULL;
/*IF*/if ((!(a1))||((rT61count((T61*)a1))==(0))) {
R=(T0 *)C;
}
else {/*AT*//*IF*/if ((rT61count((T61*)a1))==(1)) {
R=(T0 *)C;
}
else {
{T222 *n=((T222*)se_new(222));
rT222make(n,(T0 *)C,a1);
R=(T0 *)n;}}
/*FI*/}
/*FI*/return R;
}
/*E_INSPECT*/void rT231pretty_print(T231 *C){
rT267keyword((T267*)oRBC27fmt,(T0 *)ms7_231);
rT267level_incr((T267*)oRBC27fmt);
/*IF*/if (!(((T267*)oRBC27fmt)->_zen_mode)) {
rT267indent((T267*)oRBC27fmt);
}
/*FI*//*[IRF3:set_semi_colon_flag*//*AW*/((T267*)oRBC27fmt)->_semi_colon_flag=(0);/*]*/
XrT70pretty_print((C)->_expression);
rT267level_decr((T267*)oRBC27fmt);
rT267indent((T267*)oRBC27fmt);
rT237pretty_print((T237*)(C)->_when_list);
/*IF*/if (!((C)->_else_compound)) {
/*IF*/if (((int)(C)->_else_position)) {
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms114_27);
}
/*FI*/}
else {
rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms114_27);
rT267level_incr((T267*)oRBC27fmt);
rT140pretty_print((T140*)(C)->_else_compound);
rT267level_decr((T267*)oRBC27fmt);
}
/*FI*/rT267indent((T267*)oRBC27fmt);
rT267keyword((T267*)oRBC27fmt,(T0 *)ms8_231);
/*IF*/if (((T267*)oRBC27fmt)->_print_end_inspect) {
rT267put_end((T267*)oRBC27fmt,(T0 *)ms9_231);
}
/*FI*/}/*E_INSPECT*/void rT231set_else_compound(T231 *C,T0* a1,T0* a2){
C->_else_position=a1;
C->_else_compound=a2;
}/*E_INSPECT*/void rT231make(T231 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_expression=a2;
}/*E_INSPECT*/void rT231add_when(T231 *C,T0* a1){
/*IF*/if (!((C)->_when_list)) {
{T237 *n=((T237*)se_new(237));
/*[IRF3:make*//*AW*/(n)->_list=(ma(238,0,1,a1));/*]*/
C->_when_list=(T0 *)n;}
}
else {
rT237add_last((T237*)(C)->_when_list,a1);
}
/*FI*/}/*E_RESULT*/void rT174bracketed_print(T174 *C){
rT267put_character((T267*)oRBC27fmt,'\50');
rT174pretty_print(C);
rT267put_character((T267*)oRBC27fmt,'\51');
}/*E_RESULT*/T0* rT174add_comment(T174 *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_RESULT*/void rT174pretty_print(T174 *C){
rT267put_string((T267*)oRBC27fmt,(C)->_to_string);
}/*E_RESULT*/T0* rT174to_key(T174 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
/*E_RESULT*/void rT174make(T174 *C,T0* a1){
C->_to_string=(T0 *)ms119_27;
C->_start_position=a1;
}/*E_CURRENT*/T0* rT92add_comment(T92 *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_CURRENT*/void rT92print_as_target(T92 *C){
/*IF*/if (((C)->_is_written)||(((T267*)oRBC27fmt)->_print_current)) {
rT267put_string((T267*)oRBC27fmt,(T0 *)ms111_27);
rT267put_character((T267*)oRBC27fmt,'\56');
}
/*FI*/}/*E_CURRENT*/T0* rT92to_key(T92 *C){
T0* R=NULL;
R=(C)->_to_string;
return R;
}
/*E_CURRENT*/void rT92make(T92 *C,T0* a1,int a2){
C->_start_position=a1;
C->_is_written=a2;
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.