This is pretty3.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" /*E_WHEN*/void rT232pretty_print(T232 *C){ int _i=0; rT267keyword((T267*)oRBC27fmt,(T0 *)ms9_232); rT267level_incr((T267*)oRBC27fmt); /*IF*/if (((int)(C)->_header_comment)) { rT61pretty_print((T61*)(C)->_header_comment); } /*FI*//*IF*/if (((int)(C)->_list)) { _i=/*XrT*ARRAY[WHEN_ITEM]*/((T235*)(C)->_list)->_lower; while (!((_i)>(/*XrT*ARRAY[WHEN_ITEM]*/((T235*)(C)->_list)->_upper))) { XrT234pretty_print(/*XrT*ARRAY[WHEN_ITEM]*/rT235item((T235*)(C)->_list,_i)); _i=(_i)+(1); /*IF*/if ((_i)<=(/*XrT*ARRAY[WHEN_ITEM]*/((T235*)(C)->_list)->_upper)) { rT267put_character((T267*)oRBC27fmt,'\54'); } /*FI*/} } /*FI*/rT267level_decr((T267*)oRBC27fmt); rT267keyword((T267*)oRBC27fmt,(T0 *)ms10_232); rT267level_incr((T267*)oRBC27fmt); /*IF*/if (((int)(C)->_compound)) { rT140pretty_print((T140*)(C)->_compound); } /*FI*/rT267level_decr((T267*)oRBC27fmt); }/*E_WHEN*/void rT232add_slice(T232 *C,T0* a1,T0* a2){ T0* _element=NULL; {T239 *n=((T239*)se_new(239)); rT239make(n,a1,a2); _element=(T0 *)n;} /*IF*/if (!((C)->_list)) { C->_list=ma(240,0,1,_element); } else { XrT236add_last((C)->_list,_element); } /*FI*/}/*E_WHEN*/void rT232add_value(T232 *C,T0* a1){ T0* _element=NULL; {T233 *n=((T233*)se_new(233)); /*[IRF3:make*//*AW*/(n)->_expression=(a1);/*]*/ _element=(T0 *)n;} /*IF*/if (!((C)->_list)) { C->_list=ma(235,0,1,_element); } else { XrT236add_last((C)->_list,_element); } /*FI*/}/*E_WHEN*/void rT232make(T232 *C,T0* a1,T0* a2){ C->_start_position=a1; C->_header_comment=a2; }/*EXTERNAL_FUNCTION*/T0* rT218first_name(T218 *C){ T0* R=NULL; R=rT128item((T128*)(C)->_names,1); return R; } /*EXTERNAL_FUNCTION*/void rT218error(/*C*/T0* a1,T0* a2){ rT46add_position(a1); rT46error((T46*)oRBC27eh,a2); }/*EXTERNAL_FUNCTION*/T0* rT218start_position(T218 *C){ T0* R=NULL; R=/*XrT*FEATURE_NAME*/((T68*)rT218first_name(C))->_start_position; return R; } /*EXTERNAL_FUNCTION*/void rT218pretty_print_routine_body(T218 *C){ rT267keyword((T267*)oRBC27fmt,(T0 *)ms1_216); XrT210pretty_print((C)->_language); /*IF*/if ((!(rT7is_equal((T7*)(C)->_external_name,/*XrT*FEATURE_NAME*/((T68*)rT218first_name(C))->_to_string)))||((rT128count((T128*)(C)->_names))>(1))) { rT267indent((T267*)oRBC27fmt); rT267keyword((T267*)oRBC27fmt,(T0 *)ms2_216); rT267put_character((T267*)oRBC27fmt,'\42'); rT267put_string((T267*)oRBC27fmt,(C)->_external_name); rT267put_character((T267*)oRBC27fmt,'\42'); } /*FI*/}/*EXTERNAL_FUNCTION*/void rT218pretty_print_arguments(T218 *C){ /*IF*/if (((int)(C)->_arguments)) { rT95pretty_print((T95*)(C)->_arguments); } /*FI*/}/*EXTERNAL_FUNCTION*/void rT218pretty_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); }/*EXTERNAL_FUNCTION*/void rT218pretty_print_names(T218 *C){ int _i=0; _i=1; rT218pretty_print_one_name(rT128item((T128*)(C)->_names,_i)); _i=(_i)+(1); while (!((_i)>(rT128count((T128*)(C)->_names)))) { rT267put_string((T267*)oRBC27fmt,(T0 *)ms10_64); rT218pretty_print_one_name(rT128item((T128*)(C)->_names,_i)); _i=(_i)+(1); } }/*EXTERNAL_FUNCTION*/void rT218pretty_print_profile(T218 *C){ rT218pretty_print_names(C); /*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/ rT218pretty_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*/}/*EXTERNAL_FUNCTION*/void rT218pretty_print(T218 *C){ T0* _fn=NULL; /*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/ rT267indent((T267*)oRBC27fmt); rT218pretty_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); rT218pretty_print_routine_body(C); /*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=rT218first_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'); }/*EXTERNAL_FUNCTION*/void rT218add_into(T218 *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); } }/*EXTERNAL_FUNCTION*/void rT218set_header_comment(T218 *C,T0* a1){ /*IF*/if ((((int)a1))&&((rT61count((T61*)a1))>(1))) { C->_end_comment=a1; } /*FI*/}/*EXTERNAL_FUNCTION*/void rT218set_rescue_compound(T218 *C,T0* a1){ /*IF*/if ((((int)a1))&&(/*(IRF4*/0/*)*/)) { rT218error(rT218start_position(C),(T0 *)ms8_158); } /*FI*/C->_rescue_compound=a1; }/*EXTERNAL_FUNCTION*/void rT218make_external_routine(T218 *C,T0* a1,T0* a2){ C->_language=a1; /*IF*/if (!(a2)) { C->_external_name=/*XrT*FEATURE_NAME*/((T68*)rT218first_name(C))->_to_string; } else { C->_external_name=a2; } /*FI*/}/*EXTERNAL_FUNCTION*/void rT218make_e_feature(T218 *C,T0* a1,T0* a2){ C->_names=a1; C->_result_type=a2; }/*EXTERNAL_FUNCTION*/void rT218make_routine(T218 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){ rT218make_e_feature(C,a1,NULL); C->_header_comment=a4; C->_arguments=a2; C->_obsolete_mark=a3; C->_require_assertion=a5; }/*EXTERNAL_FUNCTION*/void rT218make(T218 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7,T0* a8){ rT218make_routine(C,a1,a2,a4,a5,a6); C->_result_type=a3; rT218make_external_routine(C,a7,a8); }/*EXTERNAL_PROCEDURE*/T0* rT217first_name(T217 *C){ T0* R=NULL; R=rT128item((T128*)(C)->_names,1); return R; } /*EXTERNAL_PROCEDURE*/void rT217error(/*C*/T0* a1,T0* a2){ rT46add_position(a1); rT46error((T46*)oRBC27eh,a2); }/*EXTERNAL_PROCEDURE*/T0* rT217start_position(T217 *C){ T0* R=NULL; R=/*XrT*FEATURE_NAME*/((T68*)rT217first_name(C))->_start_position; return R; } /*EXTERNAL_PROCEDURE*/void rT217pretty_print_routine_body(T217 *C){ rT267keyword((T267*)oRBC27fmt,(T0 *)ms1_216); XrT210pretty_print((C)->_language); /*IF*/if ((!(rT7is_equal((T7*)(C)->_external_name,/*XrT*FEATURE_NAME*/((T68*)rT217first_name(C))->_to_string)))||((rT128count((T128*)(C)->_names))>(1))) { rT267indent((T267*)oRBC27fmt); rT267keyword((T267*)oRBC27fmt,(T0 *)ms2_216); rT267put_character((T267*)oRBC27fmt,'\42'); rT267put_string((T267*)oRBC27fmt,(C)->_external_name); rT267put_character((T267*)oRBC27fmt,'\42'); } /*FI*/}/*EXTERNAL_PROCEDURE*/void rT217pretty_print_arguments(T217 *C){ /*IF*/if (((int)(C)->_arguments)) { rT95pretty_print((T95*)(C)->_arguments); } /*FI*/}/*EXTERNAL_PROCEDURE*/void rT217pretty_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); }/*EXTERNAL_PROCEDURE*/void rT217pretty_print_names(T217 *C){ int _i=0; _i=1; rT217pretty_print_one_name(rT128item((T128*)(C)->_names,_i)); _i=(_i)+(1); while (!((_i)>(rT128count((T128*)(C)->_names)))) { rT267put_string((T267*)oRBC27fmt,(T0 *)ms10_64); rT217pretty_print_one_name(rT128item((T128*)(C)->_names,_i)); _i=(_i)+(1); } }/*EXTERNAL_PROCEDURE*/void rT217pretty_print_profile(T217 *C){ rT217pretty_print_names(C); /*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(2);/*]*/ rT217pretty_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*/}/*EXTERNAL_PROCEDURE*/void rT217pretty_print(T217 *C){ T0* _fn=NULL; /*[IRF3:set_indent_level*//*AW*/((T267*)oRBC27fmt)->_indent_level=(1);/*]*/ rT267indent((T267*)oRBC27fmt); rT217pretty_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); rT217pretty_print_routine_body(C); /*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=rT217first_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'); }/*EXTERNAL_PROCEDURE*/void rT217add_into(T217 *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); } }/*EXTERNAL_PROCEDURE*/void rT217set_header_comment(T217 *C,T0* a1){ /*IF*/if ((((int)a1))&&((rT61count((T61*)a1))>(1))) { C->_end_comment=a1; } /*FI*/}/*EXTERNAL_PROCEDURE*/void rT217set_rescue_compound(T217 *C,T0* a1){ /*IF*/if ((((int)a1))&&(/*(IRF4*/0/*)*/)) { rT217error(rT217start_position(C),(T0 *)ms8_158); } /*FI*/C->_rescue_compound=a1; }/*EXTERNAL_PROCEDURE*/void rT217make_external_routine(T217 *C,T0* a1,T0* a2){ C->_language=a1; /*IF*/if (!(a2)) { C->_external_name=/*XrT*FEATURE_NAME*/((T68*)rT217first_name(C))->_to_string; } else { C->_external_name=a2; } /*FI*/}/*EXTERNAL_PROCEDURE*/void rT217make_e_feature(T217 *C,T0* a1,T0* a2){ C->_names=a1; C->_result_type=a2; }/*EXTERNAL_PROCEDURE*/void rT217make_routine(T217 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){ rT217make_e_feature(C,a1,NULL); C->_header_comment=a4; C->_arguments=a2; C->_obsolete_mark=a3; C->_require_assertion=a5; }/*EXTERNAL_PROCEDURE*/void rT217make(T217 *C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5,T0* a6,T0* a7){ rT217make_routine(C,a1,a2,a3,a4,a5); rT217make_external_routine(C,a6,a7); }
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.