This is compile_to_c5.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 "compile_to_c.h"
/*ERROR_HANDLER*/void rT48print_as_error(T48 *C){
rT48do_print((T0 *)ms3_48);
rT48incr_nb_errors(C);
}T0*oRBC48positions;
/*ERROR_HANDLER*/void rT48do_print(/*C*/T0* a1){
char _previous_cc=0;
char _cc=0;
int _cpt=0;
int _i=0;
rT38put_string((T38*)oRBC1std_error,(T0 *)ms109_27);
rT38put_string((T38*)oRBC1std_error,a1);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms7_48);
_i=1;
_cpt=(9)+(((T7*)a1)->_count);
while (!((_i)>(((T7*)oRBC48explanation)->_count))) {
_previous_cc=_cc;
_cc=rT7item((T7*)oRBC48explanation,_i);
_i=(_i)+(1);
/*IF*/if ((_cpt)>(60)) {
/*IF*/if ((_cc)==('\40')) {
rT38put_character((T38*)oRBC1std_error,'\12');
_cpt=0;
}
else if (((_previous_cc)==('\54'))||((_previous_cc)==('\57'))) {
rT38put_character((T38*)oRBC1std_error,'\12');
rT38put_character((T38*)oRBC1std_error,_cc);
_cpt=1;
}
else {
rT38put_character((T38*)oRBC1std_error,_cc);
_cpt=(_cpt)+(1);
}
/*FI*/}
else {
rT38put_character((T38*)oRBC1std_error,_cc);
_cpt=(_cpt)+(1);
}
/*FI*/}
rT38put_character((T38*)oRBC1std_error,'\12');
_i=((T50*)oRBC48positions)->_lower;
while (!((_i)>(((T50*)oRBC48positions)->_upper))) {
rT49show((T49*)rT50item((T50*)oRBC48positions,_i));
_i=(_i)+(1);
}
/*[IRF3:cancel*//*[IRF3:clear*//*AW*/((T7*)oRBC48explanation)->_count=(0);/*]*/
rT50clear((T50*)oRBC48positions);
/*]*/
rT38put_string((T38*)oRBC1std_error,(T0 *)ms8_48);
}/*ERROR_HANDLER*/void rT48append(/*C*/T0* a1){
rT7append((T7*)oRBC48explanation,a1);
}/*ERROR_HANDLER*/void rT48add_position(/*C*/T0* a1){
/*IF*/if (((int)a1)) {
/*IF*/if (!(rT50has((T50*)oRBC48positions,a1))) {
rT50add_last((T50*)oRBC48positions,a1);
}
/*FI*/}
/*FI*/}T0*oRBC48explanation;
/*ERROR_HANDLER*/void rT48add_type(/*C*/T0* a1,T0* a2){
rT48append((T0 *)ms1_48);
/*IF*/if (XrT62is_run_type(a1)) {
rT48append(XrT62run_time_mark(a1));
}
else {
rT48append(XrT62written_mark(a1));
}
/*FI*/rT48append(a2);
rT48add_position(XrT62start_position(a1));
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.