This is compile_to_c15.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"
/*TYPE_EXPANDED*/T0* rT102base_class_name(T102 *C){
T0* R=NULL;
R=XrT62base_class_name((C)->_mapped);
return R;
}
/*TYPE_EXPANDED*/T0* rT102base_class(T102 *C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=rT102base_class_name(C);
/*IF*/if (((int)_bcn)) {
R=rT51base_class((T51*)_bcn);
}
else {
rT48append((T0 *)ms2_62);
rT48add_type((T0 *)C,(T0 *)ms102_27);
/*[IRF3:print_as_fatal_error*/rT48do_print((T0 *)ms4_48);
rT48die_with_code(1);
/*]*/
}
/*FI*/return R;
}
/*TYPE_EXPANDED*/int rT102is_a_in(T102 *C,T0* a1,T0* a2){
int R=0;
T0* _ct=NULL;
T0* _t2=NULL;
T0* _t1=NULL;
/*IF*/if (rT7is_equal((T7*)(C)->_written_mark,XrT62written_mark(a1))) {
R=1;
}
else {
_ct=((T269*)a2)->_current_type;
_t1=rT102to_runnable(C,_ct);
_t2=XrT62to_runnable(a1,_ct);
/*IF*/if (rT7is_equal((T7*)XrT62run_time_mark(_t1),XrT62run_time_mark(_t2))) {
R=1;
}
else {
R=XrT62is_a(_t1,_t2);
}
/*FI*/}
/*FI*/return R;
}
/*TYPE_EXPANDED*/void rT102c_struct(T102 *C){
T0* _wa=NULL;
T0* _a=NULL;
int _i=0;
rT7copy((T7*)oRBC62tmp_string,(T0 *)ms5_62);
rT2append_in(rT102id(C),oRBC62tmp_string);
rT7extend((T7*)oRBC62tmp_string,'\173');
/*IF*//*AF*//*AE*/
/*FI*/_wa=rT269writable_attributes((T269*)rT102run_class(C));
/*IF*/if (!(_wa)) {
rT7append((T7*)oRBC62tmp_string,(T0 *)ms7_62);
}
else {
_i=/*XrT*ARRAY[RUN_FEATURE]*/((T273*)_wa)->_upper;
while (!((_i)==(0))) {
_a=/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)_wa,_i);
XrT62c_type_in(XrT62run_type(/*XrT*RUN_FEATURE*/((T274*)_a)->_result_type),oRBC62tmp_string);
rT7append((T7*)oRBC62tmp_string,(T0 *)ms8_62);
rT7append((T7*)oRBC62tmp_string,/*XrT*FEATURE_NAME*/((T70*)/*XrT*RUN_FEATURE*/((T274*)_a)->_name)->_to_string);
rT7extend((T7*)oRBC62tmp_string,'\73');
_i=(_i)-(1);
}
}
/*FI*/rT7append((T7*)oRBC62tmp_string,(T0 *)ms9_62);
rT44put_string((T44*)oRBC27cpp,oRBC62tmp_string);
}/*TYPE_EXPANDED*/int rT102displacement(T102 *C){
int R=0;
R=rT102user_expanded_displacement((T102*)(C)->_run_type);
return R;
}
/*TYPE_EXPANDED*/int rT102is_a(T102 *C,T0* a1){
int R=0;
R=rT7is_equal((T7*)rT102run_time_mark(C),XrT62run_time_mark(a1));
/*IF*/if (!(R)) {
rT48add_type((T0 *)C,(T0 *)ms105_27);
rT48add_type(a1,(T0 *)ms102_27);
}
/*FI*/return R;
}
/*TYPE_EXPANDED*/int rT102user_expanded_displacement(T102 *C){
int R=0;
int _i=0;
T0* _a=NULL;
T0* _wa=NULL;
_wa=rT269writable_attributes((T269*)rT102run_class(C));
/*IF*/if (((int)_wa)) {
_i=/*XrT*ARRAY[RUN_FEATURE]*/((T273*)_wa)->_upper;
while (!((_i)==(0))) {
_a=/*XrT*ARRAY[RUN_FEATURE]*/rT273item((T273*)_wa,_i);
R=(R)+(XrT62displacement(/*XrT*RUN_FEATURE*/((T274*)_a)->_result_type));
_i=(_i)-(1);
}
}
/*FI*/return R;
}
/*TYPE_EXPANDED*/int rT102has_creation(T102 *C,T0* a1){
int R=0;
R=rT53has_creation((T53*)rT102base_class(C),a1);
return R;
}
/*TYPE_EXPANDED*/void rT102make(T102 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_mapped=a2;
{T7 *n=((T7*)se_new(7));
rT7copy(n,(T0 *)ms1_102);
C->_written_mark=(T0 *)n;}
rT7append((T7*)(C)->_written_mark,XrT62written_mark((C)->_mapped));
}/*TYPE_EXPANDED*/void rT102c_typedef(T102 *C){
int _mem_id=0;
_mem_id=rT102id(C);
/*[IRF3:clear*//*AW*/((T7*)oRBC62tmp_string)->_count=(0);/*]*/
rT7append((T7*)oRBC62tmp_string,(T0 *)ms10_62);
rT2append_in(rT102id(C),oRBC62tmp_string);
rT7append((T7*)oRBC62tmp_string,(T0 *)ms11_62);
rT2append_in(rT102id(C),oRBC62tmp_string);
rT7append((T7*)oRBC62tmp_string,(T0 *)ms12_62);
rT44put_string((T44*)oRBC27cpp,oRBC62tmp_string);
}/*TYPE_EXPANDED*/void rT102c_type_in(T102 *C,T0* a1){
rT7extend((T7*)a1,'T');
rT2append_in(rT102id(C),a1);
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.