This is compile_to_c31.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"
/*CALL_INFIX_NOT_EQUAL*/int rT201is_a(T201 *C,T0* a1){
int R=0;
R=XrT62is_a(XrT62run_type((C)->_result_type),XrT62run_type(XrT72result_type(a1)));
/*IF*/if (!(R)) {
rT48add_position(rT201start_position(C));
rT201error(XrT72start_position(a1),(T0 *)ms2_72);
}
/*FI*/return R;
}
/*CALL_INFIX_NOT_EQUAL*/void rT201c2c_exp_ref(/*C*/T0* a1,T0* a2,T0* a3,T0* a4){
/*IF*/if (XrT72is_void(a3)) {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms11_201);
XrT72compile_to_c(a3);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms12_201);
}
else {
rT44put_string((T44*)oRBC27cpp,(T0 *)ms13_201);
XrT72compile_to_c(a1);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms14_201);
XrT72compile_to_c(a3);
rT44put_string((T44*)oRBC27cpp,(T0 *)ms15_201);
}
/*FI*/}/*CALL_INFIX_NOT_EQUAL*/int rT201is_pre_computable(T201 *C){
int R=0;
R=rT201is_static(C);
return R;
}
/*CALL_INFIX_NOT_EQUAL*/void rT201make_call_1(T201 *C,T0* a1,T0* a2,T0* a3){
C->_target=a1;
C->_feature_name=a2;
C->_arguments=a3;
}/*CALL_INFIX_NOT_EQUAL*/void rT201make(T201 *C,T0* a1,T0* a2,T0* a3){
T0* _eal=NULL;
/*IF*/if ((!(a1))||(!(a3))) {
rT48add_position(a2);
rT201fatal_error((T0 *)ms1_189);
}
/*FI*/{T74 *n=((T74*)se_new(74));
rT74make(n,(T0 *)ms1_201,a2);
C->_feature_name=(T0 *)n;}
{T175 *n=((T175*)se_new(175));
/*[IRF3:make*//*AW*/(n)->_list=(ma(85,0,1,a3));/*]*/
_eal=(T0 *)n;}
rT201make_call_1(C,a1,(C)->_feature_name,_eal);
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.