This is compile_to_c37.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" /*ARRAY[WHEN_ITEM]*/T0* rT238twin(T238 *C){ T0* R=NULL; /*IF*//*AF*//*AE*/ R=(T0 *)se_new(C->id);AF_1 XrT238copy(R,(T0 *)C); AF_0 /*FI*/return R; } /*ARRAY[WHEN_ITEM]*/void rT238clear_all(T238 *C){ T0* _value=NULL; rT238set_all_with(C,_value); }/*ARRAY[WHEN_ITEM]*/int rT238count(T238 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[WHEN_ITEM]*/void rT238set_all_with(T238 *C,T0* a1){ int _i=0; _i=(C)->_upper; while (!((_i)<((C)->_lower))) { rT238put(C,a1,_i); _i=(_i)-(1); } }/*ARRAY[WHEN_ITEM]*/void rT238resize(T238 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; int _up=0; int _i=0; T0* _other=NULL; {T238 *n=((T238*)se_new(238)); rT238make(n,a1,a2); _other=(T0 *)n;} _i=rT2max((C)->_lower,/*XrT*ARRAY[WHEN_ITEM]*/((T237*)_other)->_lower); _up=rT2min((C)->_upper,/*XrT*ARRAY[WHEN_ITEM]*/((T237*)_other)->_upper); while (!((_i)>(_up))) { /*XrT*ARRAY[WHEN_ITEM]*/rT237put((T237*)_other,rT238item(C,_i),_i); _i=(_i)+(1); } /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/rT238standard_copy(C,_other); free(/*XrT*ARRAY[WHEN_ITEM]*/((void *)(T237*)_other)); }/*ARRAY[WHEN_ITEM]*/T0* rT238item(T238 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[WHEN_ITEM]*/T0** rT238realloc(/*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; } /*ARRAY[WHEN_ITEM]*/void rT238add_last(T238 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT238count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT238malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT238realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT238put(C,a1,(C)->_upper); }/*ARRAY[WHEN_ITEM]*/T0** rT238malloc(/*C*/int a1){ T0** R=0; T37 _mem={0/*dummy*/}; T0* _x=NULL; /*IF*//*AF*//*AE*/ R=malloc((a1)*(sizeof(char *))); /*FI*/return R; } /*ARRAY[WHEN_ITEM]*/void rT238put(T238 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[WHEN_ITEM]*/void rT238standard_copy(T238 *C,T0* a1){ memcpy(C,a1,s[a1->id]); }/*ARRAY[WHEN_ITEM]*/void rT238copy(T238 *C,T0* a1){ int _i=0; C->_upper=((C)->_lower)-(1); /*IF*/if (((C)->_capacity)==(0)) { rT238make(C,/*XrT*ARRAY[WHEN_ITEM]*/((T237*)a1)->_lower,/*XrT*ARRAY[WHEN_ITEM]*/((T237*)a1)->_upper); } else { rT238resize(C,/*XrT*ARRAY[WHEN_ITEM]*/((T237*)a1)->_lower,/*XrT*ARRAY[WHEN_ITEM]*/((T237*)a1)->_upper); } /*FI*/_i=(C)->_lower; while (!((_i)>((C)->_upper))) { rT238put(C,/*XrT*ARRAY[WHEN_ITEM]*/rT237item((T237*)a1,_i),_i); _i=(_i)+(1); } }/*ARRAY[WHEN_ITEM]*/void rT238make(T238 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; C->_lower=a1; C->_upper=a2; /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/C->_capacity=((a2)-(a1))+(1); /*IF*/if (((C)->_capacity)>(0)) { /*IF*/if (((C)->_capacity)<(16)) { C->_capacity=16; } /*FI*/C->_storage=rT238malloc((C)->_capacity); rT238clear_all(C); } /*FI*/}/*ARRAY[WHEN_ITEM_1]*/T0* rT237twin(T237 *C){ T0* R=NULL; /*IF*//*AF*//*AE*/ R=(T0 *)se_new(C->id);AF_1 rT237copy((T237*)R,(T0 *)C); AF_0 /*FI*/return R; } /*ARRAY[WHEN_ITEM_1]*/void rT237clear_all(T237 *C){ T0* _value=NULL; rT237set_all_with(C,_value); }/*ARRAY[WHEN_ITEM_1]*/int rT237count(T237 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[WHEN_ITEM_1]*/void rT237set_all_with(T237 *C,T0* a1){ int _i=0; _i=(C)->_upper; while (!((_i)<((C)->_lower))) { rT237put(C,a1,_i); _i=(_i)-(1); } }/*ARRAY[WHEN_ITEM_1]*/void rT237resize(T237 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; int _up=0; int _i=0; T0* _other=NULL; {T237 *n=((T237*)se_new(237)); rT237make(n,a1,a2); _other=(T0 *)n;} _i=rT2max((C)->_lower,((T237*)_other)->_lower); _up=rT2min((C)->_upper,((T237*)_other)->_upper); while (!((_i)>(_up))) { rT237put((T237*)_other,rT237item(C,_i),_i); _i=(_i)+(1); } /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/rT237standard_copy(C,_other); free(((void *)(T237*)_other)); }/*ARRAY[WHEN_ITEM_1]*/T0* rT237item(T237 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[WHEN_ITEM_1]*/T0** rT237realloc(/*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; } /*ARRAY[WHEN_ITEM_1]*/void rT237add_last(T237 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT237count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT237malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT237realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT237put(C,a1,(C)->_upper); }/*ARRAY[WHEN_ITEM_1]*/T0** rT237malloc(/*C*/int a1){ T0** R=0; T37 _mem={0/*dummy*/}; T0* _x=NULL; /*IF*//*AF*//*AE*/ R=malloc((a1)*(sizeof(char *))); /*FI*/return R; } /*ARRAY[WHEN_ITEM_1]*/void rT237put(T237 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[WHEN_ITEM_1]*/void rT237standard_copy(T237 *C,T0* a1){ memcpy(C,a1,s[a1->id]); }/*ARRAY[WHEN_ITEM_1]*/void rT237copy(T237 *C,T0* a1){ int _i=0; C->_upper=((C)->_lower)-(1); /*IF*/if (((C)->_capacity)==(0)) { rT237make(C,((T237*)a1)->_lower,((T237*)a1)->_upper); } else { rT237resize(C,((T237*)a1)->_lower,((T237*)a1)->_upper); } /*FI*/_i=(C)->_lower; while (!((_i)>((C)->_upper))) { rT237put(C,rT237item((T237*)a1,_i),_i); _i=(_i)+(1); } }/*ARRAY[WHEN_ITEM_1]*/void rT237make(T237 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; C->_lower=a1; C->_upper=a2; /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/C->_capacity=((a2)-(a1))+(1); /*IF*/if (((C)->_capacity)>(0)) { /*IF*/if (((C)->_capacity)<(16)) { C->_capacity=16; } /*FI*/C->_storage=rT237malloc((C)->_capacity); rT237clear_all(C); } /*FI*/}/*ARRAY[IFTHEN]*/T0* rT231twin(T231 *C){ T0* R=NULL; /*IF*//*AF*//*AE*/ R=(T0 *)se_new(C->id);AF_1 rT231copy((T231*)R,(T0 *)C); AF_0 /*FI*/return R; } /*ARRAY[IFTHEN]*/void rT231clear_all(T231 *C){ T0* _value=NULL; rT231set_all_with(C,_value); }/*ARRAY[IFTHEN]*/int rT231count(T231 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[IFTHEN]*/void rT231set_all_with(T231 *C,T0* a1){ int _i=0; _i=(C)->_upper; while (!((_i)<((C)->_lower))) { rT231put(C,a1,_i); _i=(_i)-(1); } }/*ARRAY[IFTHEN]*/void rT231resize(T231 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; int _up=0; int _i=0; T0* _other=NULL; {T231 *n=((T231*)se_new(231)); rT231make(n,a1,a2); _other=(T0 *)n;} _i=rT2max((C)->_lower,((T231*)_other)->_lower); _up=rT2min((C)->_upper,((T231*)_other)->_upper); while (!((_i)>(_up))) { rT231put((T231*)_other,rT231item(C,_i),_i); _i=(_i)+(1); } /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/rT231standard_copy(C,_other); free(((void *)(T231*)_other)); }/*ARRAY[IFTHEN]*/T0* rT231item(T231 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[IFTHEN]*/T0** rT231realloc(/*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; } /*ARRAY[IFTHEN]*/void rT231add_last(T231 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT231count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT231malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT231realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT231put(C,a1,(C)->_upper); }/*ARRAY[IFTHEN]*/T0** rT231malloc(/*C*/int a1){ T0** R=0; T37 _mem={0/*dummy*/}; T0* _x=NULL; /*IF*//*AF*//*AE*/ R=malloc((a1)*(sizeof(char *))); /*FI*/return R; } /*ARRAY[IFTHEN]*/void rT231put(T231 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[IFTHEN]*/void rT231standard_copy(T231 *C,T0* a1){ memcpy(C,a1,s[a1->id]); }/*ARRAY[IFTHEN]*/void rT231copy(T231 *C,T0* a1){ int _i=0; C->_upper=((C)->_lower)-(1); /*IF*/if (((C)->_capacity)==(0)) { rT231make(C,((T231*)a1)->_lower,((T231*)a1)->_upper); } else { rT231resize(C,((T231*)a1)->_lower,((T231*)a1)->_upper); } /*FI*/_i=(C)->_lower; while (!((_i)>((C)->_upper))) { rT231put(C,rT231item((T231*)a1,_i),_i); _i=(_i)+(1); } }/*ARRAY[IFTHEN]*/void rT231make(T231 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; C->_lower=a1; C->_upper=a2; /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/C->_capacity=((a2)-(a1))+(1); /*IF*/if (((C)->_capacity)>(0)) { /*IF*/if (((C)->_capacity)<(16)) { C->_capacity=16; } /*FI*/C->_storage=rT231malloc((C)->_capacity); rT231clear_all(C); } /*FI*/}/*ARRAY[INSTRUCTION]*/T0* rT225twin(T225 *C){ T0* R=NULL; /*IF*//*AF*//*AE*/ R=(T0 *)se_new(C->id);AF_1 rT225copy((T225*)R,(T0 *)C); AF_0 /*FI*/return R; } /*ARRAY[INSTRUCTION]*/void rT225clear_all(T225 *C){ T0* _value=NULL; rT225set_all_with(C,_value); }/*ARRAY[INSTRUCTION]*/T0* rT225first(T225 *C){ T0* R=NULL; R=rT225item(C,(C)->_lower); return R; } /*ARRAY[INSTRUCTION]*/int rT225count(T225 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[INSTRUCTION]*/void rT225set_all_with(T225 *C,T0* a1){ int _i=0; _i=(C)->_upper; while (!((_i)<((C)->_lower))) { rT225put(C,a1,_i); _i=(_i)-(1); } }/*ARRAY[INSTRUCTION]*/void rT225resize(T225 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; int _up=0; int _i=0; T0* _other=NULL; {T225 *n=((T225*)se_new(225)); rT225make(n,a1,a2); _other=(T0 *)n;} _i=rT2max((C)->_lower,((T225*)_other)->_lower); _up=rT2min((C)->_upper,((T225*)_other)->_upper); while (!((_i)>(_up))) { rT225put((T225*)_other,rT225item(C,_i),_i); _i=(_i)+(1); } /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/rT225standard_copy(C,_other); free(((void *)(T225*)_other)); }/*ARRAY[INSTRUCTION]*/T0* rT225item(T225 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[INSTRUCTION]*/T0** rT225realloc(/*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; } /*ARRAY[INSTRUCTION]*/void rT225add_last(T225 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT225count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT225malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT225realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT225put(C,a1,(C)->_upper); }/*ARRAY[INSTRUCTION]*/T0** rT225malloc(/*C*/int a1){ T0** R=0; T37 _mem={0/*dummy*/}; T0* _x=NULL; /*IF*//*AF*//*AE*/ R=malloc((a1)*(sizeof(char *))); /*FI*/return R; } /*ARRAY[INSTRUCTION]*/void rT225put(T225 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[INSTRUCTION]*/void rT225standard_copy(T225 *C,T0* a1){ memcpy(C,a1,s[a1->id]); }/*ARRAY[INSTRUCTION]*/void rT225copy(T225 *C,T0* a1){ int _i=0; C->_upper=((C)->_lower)-(1); /*IF*/if (((C)->_capacity)==(0)) { rT225make(C,((T225*)a1)->_lower,((T225*)a1)->_upper); } else { rT225resize(C,((T225*)a1)->_lower,((T225*)a1)->_upper); } /*FI*/_i=(C)->_lower; while (!((_i)>((C)->_upper))) { rT225put(C,rT225item((T225*)a1,_i),_i); _i=(_i)+(1); } }/*ARRAY[INSTRUCTION]*/void rT225make(T225 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; C->_lower=a1; C->_upper=a2; /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/C->_capacity=((a2)-(a1))+(1); /*IF*/if (((C)->_capacity)>(0)) { /*IF*/if (((C)->_capacity)<(16)) { C->_capacity=16; } /*FI*/C->_storage=rT225malloc((C)->_capacity); rT225clear_all(C); } /*FI*/}/*ARRAY[LOCAL_NAME]*/T0* rT187twin(T187 *C){ T0* R=NULL; /*IF*//*AF*//*AE*/ R=(T0 *)se_new(C->id);AF_1 rT187copy((T187*)R,(T0 *)C); AF_0 /*FI*/return R; } /*ARRAY[LOCAL_NAME]*/void rT187clear_all(T187 *C){ T0* _value=NULL; rT187set_all_with(C,_value); }/*ARRAY[LOCAL_NAME]*/int rT187count(T187 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[LOCAL_NAME]*/void rT187set_all_with(T187 *C,T0* a1){ int _i=0; _i=(C)->_upper; while (!((_i)<((C)->_lower))) { rT187put(C,a1,_i); _i=(_i)-(1); } }/*ARRAY[LOCAL_NAME]*/void rT187resize(T187 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; int _up=0; int _i=0; T0* _other=NULL; {T187 *n=((T187*)se_new(187)); rT187make(n,a1,a2); _other=(T0 *)n;} _i=rT2max((C)->_lower,((T187*)_other)->_lower); _up=rT2min((C)->_upper,((T187*)_other)->_upper); while (!((_i)>(_up))) { rT187put((T187*)_other,rT187item(C,_i),_i); _i=(_i)+(1); } /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/rT187standard_copy(C,_other); free(((void *)(T187*)_other)); }/*ARRAY[LOCAL_NAME]*/T0* rT187item(T187 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[LOCAL_NAME]*/T0** rT187realloc(/*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; } /*ARRAY[LOCAL_NAME]*/void rT187add_last(T187 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT187count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT187malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT187realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT187put(C,a1,(C)->_upper); }/*ARRAY[LOCAL_NAME]*/T0** rT187malloc(/*C*/int a1){ T0** R=0; T37 _mem={0/*dummy*/}; T0* _x=NULL; /*IF*//*AF*//*AE*/ R=malloc((a1)*(sizeof(char *))); /*FI*/return R; } /*ARRAY[LOCAL_NAME]*/void rT187put(T187 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[LOCAL_NAME]*/void rT187standard_copy(T187 *C,T0* a1){ memcpy(C,a1,s[a1->id]); }/*ARRAY[LOCAL_NAME]*/void rT187copy(T187 *C,T0* a1){ int _i=0; C->_upper=((C)->_lower)-(1); /*IF*/if (((C)->_capacity)==(0)) { rT187make(C,((T187*)a1)->_lower,((T187*)a1)->_upper); } else { rT187resize(C,((T187*)a1)->_lower,((T187*)a1)->_upper); } /*FI*/_i=(C)->_lower; while (!((_i)>((C)->_upper))) { rT187put(C,rT187item((T187*)a1,_i),_i); _i=(_i)+(1); } }/*ARRAY[LOCAL_NAME]*/void rT187make(T187 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; C->_lower=a1; C->_upper=a2; /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/C->_capacity=((a2)-(a1))+(1); /*IF*/if (((C)->_capacity)>(0)) { /*IF*/if (((C)->_capacity)<(16)) { C->_capacity=16; } /*FI*/C->_storage=rT187malloc((C)->_capacity); rT187clear_all(C); } /*FI*/}/*ARRAY[ARGUMENT_NAME]*/T0* rT99twin(T99 *C){ T0* R=NULL; /*IF*//*AF*//*AE*/ R=(T0 *)se_new(C->id);AF_1 rT99copy((T99*)R,(T0 *)C); AF_0 /*FI*/return R; } /*ARRAY[ARGUMENT_NAME]*/void rT99clear_all(T99 *C){ T0* _value=NULL; rT99set_all_with(C,_value); }/*ARRAY[ARGUMENT_NAME]*/int rT99count(T99 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[ARGUMENT_NAME]*/void rT99set_all_with(T99 *C,T0* a1){ int _i=0; _i=(C)->_upper; while (!((_i)<((C)->_lower))) { rT99put(C,a1,_i); _i=(_i)-(1); } }/*ARRAY[ARGUMENT_NAME]*/void rT99resize(T99 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; int _up=0; int _i=0; T0* _other=NULL; {T99 *n=((T99*)se_new(99)); rT99make(n,a1,a2); _other=(T0 *)n;} _i=rT2max((C)->_lower,((T99*)_other)->_lower); _up=rT2min((C)->_upper,((T99*)_other)->_upper); while (!((_i)>(_up))) { rT99put((T99*)_other,rT99item(C,_i),_i); _i=(_i)+(1); } /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/rT99standard_copy(C,_other); free(((void *)(T99*)_other)); }/*ARRAY[ARGUMENT_NAME]*/T0* rT99item(T99 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[ARGUMENT_NAME]*/T0** rT99realloc(/*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; } /*ARRAY[ARGUMENT_NAME]*/void rT99add_last(T99 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT99count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT99malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT99realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT99put(C,a1,(C)->_upper); }/*ARRAY[ARGUMENT_NAME]*/T0** rT99malloc(/*C*/int a1){ T0** R=0; T37 _mem={0/*dummy*/}; T0* _x=NULL; /*IF*//*AF*//*AE*/ R=malloc((a1)*(sizeof(char *))); /*FI*/return R; } /*ARRAY[ARGUMENT_NAME]*/void rT99put(T99 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[ARGUMENT_NAME]*/void rT99standard_copy(T99 *C,T0* a1){ memcpy(C,a1,s[a1->id]); }/*ARRAY[ARGUMENT_NAME]*/void rT99copy(T99 *C,T0* a1){ int _i=0; C->_upper=((C)->_lower)-(1); /*IF*/if (((C)->_capacity)==(0)) { rT99make(C,((T99*)a1)->_lower,((T99*)a1)->_upper); } else { rT99resize(C,((T99*)a1)->_lower,((T99*)a1)->_upper); } /*FI*/_i=(C)->_lower; while (!((_i)>((C)->_upper))) { rT99put(C,rT99item((T99*)a1,_i),_i); _i=(_i)+(1); } }/*ARRAY[ARGUMENT_NAME]*/void rT99make(T99 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; C->_lower=a1; C->_upper=a2; /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/C->_capacity=((a2)-(a1))+(1); /*IF*/if (((C)->_capacity)>(0)) { /*IF*/if (((C)->_capacity)<(16)) { C->_capacity=16; } /*FI*/C->_storage=rT99malloc((C)->_capacity); rT99clear_all(C); } /*FI*/}/*ARRAY[FORMAL_GENERIC_ARG]*/int rT90count(T90 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[FORMAL_GENERIC_ARG]*/T0* rT90item(T90 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[FORMAL_GENERIC_ARG]*/T0** rT90realloc(/*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; } /*ARRAY[FORMAL_GENERIC_ARG]*/void rT90add_last(T90 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT90count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT90malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT90realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT90put(C,a1,(C)->_upper); }/*ARRAY[FORMAL_GENERIC_ARG]*/T0** rT90malloc(/*C*/int a1){ T0** R=0; T37 _mem={0/*dummy*/}; T0* _x=NULL; /*IF*//*AF*//*AE*/ R=malloc((a1)*(sizeof(char *))); /*FI*/return R; } /*ARRAY[FORMAL_GENERIC_ARG]*/void rT90put(T90 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; }
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.