This is compile_to_c25.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"
/*FIXED_ARRAY[INTEGER]*/void rT58clear_all(T58 *C){
int _value=0;
rT58set_all_with(C,_value);
}/*FIXED_ARRAY[INTEGER]*/void rT58set_all_with(T58 *C,int a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<(0))) {
rT58put(C,a1,_i);
_i=(_i)-(1);
}
}/*FIXED_ARRAY[INTEGER]*/int rT58item(T58 *C,int a1){
int R=0;
R=(((int*)(C->_storage))[a1]);
return R;
}
/*FIXED_ARRAY[INTEGER]*/int* rT58realloc(/*C*/int* a1,int a2){
int* R=0;
T37 _mem={0/*dummy*/};
int _x=0;
/*IF*/{/*AT*/R=realloc(a1,(a2)*(((0),sizeof(T2))));
}
/*FI*/return R;
}
/*FIXED_ARRAY[INTEGER]*/int* rT58malloc(/*C*/int a1){
int* R=0;
T37 _mem={0/*dummy*/};
int _x=0;
/*IF*/{/*AT*/R=malloc((a1)*(((0),sizeof(T2))));
}
/*FI*/return R;
}
/*FIXED_ARRAY[INTEGER]*/void rT58put(T58 *C,int a1,int a2){
((int*)(C->_storage))[a2]=a1;
}
/*FIXED_ARRAY[INTEGER]*/void rT58make(T58 *C,int a1){
/*IF*/if (((int)(C)->_storage)) {
C->_storage=rT58realloc((C)->_storage,a1);
}
else {
C->_storage=rT58malloc(a1);
}
/*FI*/C->_upper=(a1)-(1);
rT58clear_all(C);
}/*FIXED_ARRAY[STRING]*/void rT34clear_all(T34 *C){
T0* _value=NULL;
rT34set_all_with(C,_value);
}/*FIXED_ARRAY[STRING]*/void rT34set_all_with(T34 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<(0))) {
rT34put(C,a1,_i);
_i=(_i)-(1);
}
}/*FIXED_ARRAY[STRING]*/T0* rT34item(T34 *C,int a1){
T0* R=NULL;
R=(((T0**)(C->_storage))[a1]);
return R;
}
/*FIXED_ARRAY[STRING]*/T0** rT34realloc(/*C*/T0** a1,int a2){
T0** R=0;
T37 _mem={0/*dummy*/};
T0* _x=NULL;
/*IF*//*AF*//*AE*/
R=realloc(a1,(a2)*(sizeof(char *)));
/*FI*/return R;
}
/*FIXED_ARRAY[STRING]*/T0** rT34malloc(/*C*/int a1){
T0** R=0;
T37 _mem={0/*dummy*/};
T0* _x=NULL;
/*IF*//*AF*//*AE*/
R=malloc((a1)*(sizeof(char *)));
/*FI*/return R;
}
/*FIXED_ARRAY[STRING]*/void rT34put(T34 *C,T0* a1,int a2){
((T0**)(C->_storage))[a2]=a1;
}
/*FIXED_ARRAY[STRING]*/void rT34make(T34 *C,int a1){
/*IF*/if (((int)(C)->_storage)) {
C->_storage=rT34realloc((C)->_storage,a1);
}
else {
C->_storage=rT34malloc(a1);
}
/*FI*/C->_upper=(a1)-(1);
rT34clear_all(C);
}/*COMMENT*/void rT63warning(/*C*/T0* a1,T0* a2){
rT48add_position(a1);
rT48warning((T48*)oRBC27eh,a2);
}/*COMMENT*/void rT63good_end(T63 *C,T0* a1){
/*IF*/if (!(rT7has_string((T7*)rT45item((T45*)(C)->_list,1),((T51*)a1)->_to_string))) {
rT48add_position(((T51*)a1)->_start_position);
rT63warning((C)->_start_position,(T0 *)ms2_63);
}
/*FI*/}/*COMMENT*/int rT63count(T63 *C){
int R=0;
R=rT45count((T45*)(C)->_list);
return R;
}
/*COMMENT*/void rT63append(T63 *C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>(((T45*)((T63*)a1)->_list)->_upper))) {
rT63add_last(C,rT45item((T45*)((T63*)a1)->_list,_i));
_i=(_i)+(1);
}
}/*COMMENT*/void rT63add_last(T63 *C,T0* a1){
rT45add_last((T45*)(C)->_list,a1);
}/*COMMENT*/void rT63make(T63 *C,T0* a1,T0* a2){
C->_start_position=a1;
C->_list=a2;
}/*BOOLEAN*/int rT6_ix111114(T6 C,int a1){
int R=0;
R=(C)||(a1);
return R;
}
/*BOOLEAN*/int rT6_ix97110100(T6 C,int a1){
int R=0;
R=(C)&&(a1);
return R;
}
/*BOOLEAN*/int rT6_px110111116(T6 C){
int R=0;
/*IF*/if (C) {
}
else {
R=1;
}
/*FI*/return R;
}
/*RENAME_PAIR*/void rT121make(T121 *C,T0* a1,T0* a2){
C->_old_name=a1;
C->_new_name=a2;
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.