This is compile_to_c36.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[ARRAY[SWITCH]]*/void rT278clear_all(T278 *C){ T0* _value=NULL; rT278set_all_with(C,_value); }/*ARRAY[ARRAY[SWITCH]]*/void rT278set_all_with(T278 *C,T0* a1){ int _i=0; _i=(C)->_upper; while (!((_i)<((C)->_lower))) { rT278put(C,a1,_i); _i=(_i)-(1); } }/*ARRAY[ARRAY[SWITCH]]*/void rT278resize(T278 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; int _up=0; int _i=0; T0* _other=NULL; {T278 *n=((T278*)se_new(278)); rT278make(n,a1,a2); _other=(T0 *)n;} _i=rT2max((C)->_lower,((T278*)_other)->_lower); _up=rT2min((C)->_upper,((T278*)_other)->_upper); while (!((_i)>(_up))) { rT278put((T278*)_other,rT278item(C,_i),_i); _i=(_i)+(1); } /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/rT278standard_copy(C,_other); free(((void *)(T278*)_other)); }/*ARRAY[ARRAY[SWITCH]]*/T0* rT278item(T278 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[ARRAY[SWITCH]]*/void rT278force(T278 *C,T0* a1,int a2){ /*IF*/if (((C)->_upper)<(a2)) { rT278resize(C,(C)->_lower,a2); } else if ((a2)<((C)->_lower)) { rT278resize(C,a2,(C)->_upper); } /*FI*/rT278put(C,a1,a2); }/*ARRAY[ARRAY[SWITCH]]*/int rT278valid_index(T278 *C,int a1){ int R=0; R=(((C)->_lower)<=(a1))&&((a1)<=((C)->_upper)); return R; } /*ARRAY[ARRAY[SWITCH]]*/T0** rT278malloc(/*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[ARRAY[SWITCH]]*/void rT278put(T278 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[ARRAY[SWITCH]]*/void rT278standard_copy(T278 *C,T0* a1){ memcpy(C,a1,s[a1->id]); }/*ARRAY[ARRAY[SWITCH]]*/void rT278make(T278 *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=rT278malloc((C)->_capacity); rT278clear_all(C); } /*FI*/}/*ARRAY[E_REQUIRE]*/void rT276clear(T276 *C){ C->_upper=((C)->_lower)-(1); }/*ARRAY[E_REQUIRE]*/void rT276clear_all(T276 *C){ T0* _value=NULL; rT276set_all_with(C,_value); }/*ARRAY[E_REQUIRE]*/T0* rT276first(T276 *C){ T0* R=NULL; R=rT276item(C,(C)->_lower); return R; } /*ARRAY[E_REQUIRE]*/int rT276count(T276 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[E_REQUIRE]*/void rT276set_all_with(T276 *C,T0* a1){ int _i=0; _i=(C)->_upper; while (!((_i)<((C)->_lower))) { rT276put(C,a1,_i); _i=(_i)-(1); } }/*ARRAY[E_REQUIRE]*/int rT276fast_index_of(T276 *C,T0* a1){ int R=0; R=(C)->_lower; while (!(((R)>((C)->_upper))||(((T0 *)a1)==((T0 *)rT276item(C,R))))) { R=(R)+(1); } return R; } /*ARRAY[E_REQUIRE]*/int rT276fast_has(T276 *C,T0* a1){ int R=0; R=(rT276fast_index_of(C,a1))!=(((C)->_upper)+(1)); return R; } /*ARRAY[E_REQUIRE]*/int rT276empty(T276 *C){ int R=0; R=(rT276count(C))==(0); return R; } /*ARRAY[E_REQUIRE]*/T0* rT276item(T276 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[E_REQUIRE]*/T0** rT276realloc(/*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[E_REQUIRE]*/void rT276add_last(T276 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT276count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT276malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT276realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT276put(C,a1,(C)->_upper); }/*ARRAY[E_REQUIRE]*/T0** rT276malloc(/*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[E_REQUIRE]*/void rT276put(T276 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[E_REQUIRE]*/void rT276make(T276 *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=rT276malloc((C)->_capacity); rT276clear_all(C); } /*FI*/}/*ARRAY[RUN_FEATURE]*/void rT273clear_all(T273 *C){ T0* _value=NULL; rT273set_all_with(C,_value); }/*ARRAY[RUN_FEATURE]*/int rT273count(T273 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[RUN_FEATURE]*/void rT273set_all_with(T273 *C,T0* a1){ int _i=0; _i=(C)->_upper; while (!((_i)<((C)->_lower))) { rT273put(C,a1,_i); _i=(_i)-(1); } }/*ARRAY[RUN_FEATURE]*/int rT273fast_index_of(T273 *C,T0* a1){ int R=0; R=(C)->_lower; while (!(((R)>((C)->_upper))||(((T0 *)a1)==((T0 *)rT273item(C,R))))) { R=(R)+(1); } return R; } /*ARRAY[RUN_FEATURE]*/int rT273fast_has(T273 *C,T0* a1){ int R=0; R=(rT273fast_index_of(C,a1))!=(((C)->_upper)+(1)); return R; } /*ARRAY[RUN_FEATURE]*/void rT273resize(T273 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; int _up=0; int _i=0; T0* _other=NULL; {T273 *n=((T273*)se_new(273)); rT273make(n,a1,a2); _other=(T0 *)n;} _i=rT2max((C)->_lower,/*XrT*ARRAY[RUN_FEATURE]*/((T273*)_other)->_lower); _up=rT2min((C)->_upper,/*XrT*ARRAY[RUN_FEATURE]*/((T273*)_other)->_upper); while (!((_i)>(_up))) { /*XrT*ARRAY[RUN_FEATURE]*/rT273put((T273*)_other,rT273item(C,_i),_i); _i=(_i)+(1); } /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/rT273standard_copy(C,_other); free(/*XrT*ARRAY[RUN_FEATURE]*/((void *)(T273*)_other)); }/*ARRAY[RUN_FEATURE]*/T0* rT273item(T273 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[RUN_FEATURE]*/void rT273force(T273 *C,T0* a1,int a2){ /*IF*/if (((C)->_upper)<(a2)) { rT273resize(C,(C)->_lower,a2); } else if ((a2)<((C)->_lower)) { rT273resize(C,a2,(C)->_upper); } /*FI*/rT273put(C,a1,a2); }/*ARRAY[RUN_FEATURE]*/T0** rT273realloc(/*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[RUN_FEATURE]*/void rT273add_last(T273 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT273count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT273malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT273realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT273put(C,a1,(C)->_upper); }/*ARRAY[RUN_FEATURE]*/T0** rT273malloc(/*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[RUN_FEATURE]*/void rT273put(T273 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[RUN_FEATURE]*/void rT273standard_copy(T273 *C,T0* a1){ memcpy(C,a1,s[a1->id]); }/*ARRAY[RUN_FEATURE]*/void rT273swap(T273 *C,int a1,int a2){ T0* _tmp=NULL; _tmp=rT273item(C,a1); rT273put(C,rT273item(C,a2),a1); rT273put(C,_tmp,a2); }/*ARRAY[RUN_FEATURE]*/void rT273make(T273 *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=rT273malloc((C)->_capacity); rT273clear_all(C); } /*FI*/}/*ARRAY[RUN_CLASS]*/void rT271clear_all(T271 *C){ T0* _value=NULL; rT271set_all_with(C,_value); }/*ARRAY[RUN_CLASS]*/T0* rT271first(T271 *C){ T0* R=NULL; R=rT271item(C,(C)->_lower); return R; } /*ARRAY[RUN_CLASS]*/int rT271count(T271 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[RUN_CLASS]*/void rT271set_all_with(T271 *C,T0* a1){ int _i=0; _i=(C)->_upper; while (!((_i)<((C)->_lower))) { rT271put(C,a1,_i); _i=(_i)-(1); } }/*ARRAY[RUN_CLASS]*/int rT271fast_index_of(T271 *C,T0* a1){ int R=0; R=(C)->_lower; while (!(((R)>((C)->_upper))||(((T0 *)a1)==((T0 *)rT271item(C,R))))) { R=(R)+(1); } return R; } /*ARRAY[RUN_CLASS]*/int rT271fast_has(T271 *C,T0* a1){ int R=0; R=(rT271fast_index_of(C,a1))!=(((C)->_upper)+(1)); return R; } /*ARRAY[RUN_CLASS]*/void rT271resize(T271 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; int _up=0; int _i=0; T0* _other=NULL; {T271 *n=((T271*)se_new(271)); rT271make(n,a1,a2); _other=(T0 *)n;} _i=rT2max((C)->_lower,((T271*)_other)->_lower); _up=rT2min((C)->_upper,((T271*)_other)->_upper); while (!((_i)>(_up))) { rT271put((T271*)_other,rT271item(C,_i),_i); _i=(_i)+(1); } /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/rT271standard_copy(C,_other); free(((void *)(T271*)_other)); }/*ARRAY[RUN_CLASS]*/int rT271empty(T271 *C){ int R=0; R=(rT271count(C))==(0); return R; } /*ARRAY[RUN_CLASS]*/T0* rT271item(T271 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[RUN_CLASS]*/T0** rT271realloc(/*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[RUN_CLASS]*/void rT271add_last(T271 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT271count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT271malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT271realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT271put(C,a1,(C)->_upper); }/*ARRAY[RUN_CLASS]*/T0** rT271malloc(/*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[RUN_CLASS]*/void rT271put(T271 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[RUN_CLASS]*/void rT271standard_copy(T271 *C,T0* a1){ memcpy(C,a1,s[a1->id]); }/*ARRAY[RUN_CLASS]*/void rT271swap(T271 *C,int a1,int a2){ T0* _tmp=NULL; _tmp=rT271item(C,a1); rT271put(C,rT271item(C,a2),a1); rT271put(C,_tmp,a2); }/*ARRAY[RUN_CLASS]*/void rT271make(T271 *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=rT271malloc((C)->_capacity); rT271clear_all(C); } /*FI*/}/*ARRAY[FEATURE_CLAUSE]*/int rT266count(T266 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[FEATURE_CLAUSE]*/T0* rT266item(T266 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[FEATURE_CLAUSE]*/T0** rT266realloc(/*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[FEATURE_CLAUSE]*/void rT266add_last(T266 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT266count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT266malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT266realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT266put(C,a1,(C)->_upper); }/*ARRAY[FEATURE_CLAUSE]*/T0** rT266malloc(/*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[FEATURE_CLAUSE]*/void rT266put(T266 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[WHEN_ITEM_2]*/T0* rT242twin(T242 *C){ T0* R=NULL; /*IF*//*AF*//*AE*/ R=(T0 *)se_new(C->id);AF_1 rT242copy((T242*)R,(T0 *)C); AF_0 /*FI*/return R; } /*ARRAY[WHEN_ITEM_2]*/void rT242clear_all(T242 *C){ T0* _value=NULL; rT242set_all_with(C,_value); }/*ARRAY[WHEN_ITEM_2]*/int rT242count(T242 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[WHEN_ITEM_2]*/void rT242set_all_with(T242 *C,T0* a1){ int _i=0; _i=(C)->_upper; while (!((_i)<((C)->_lower))) { rT242put(C,a1,_i); _i=(_i)-(1); } }/*ARRAY[WHEN_ITEM_2]*/void rT242resize(T242 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; int _up=0; int _i=0; T0* _other=NULL; {T242 *n=((T242*)se_new(242)); rT242make(n,a1,a2); _other=(T0 *)n;} _i=rT2max((C)->_lower,((T242*)_other)->_lower); _up=rT2min((C)->_upper,((T242*)_other)->_upper); while (!((_i)>(_up))) { rT242put((T242*)_other,rT242item(C,_i),_i); _i=(_i)+(1); } /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/rT242standard_copy(C,_other); free(((void *)(T242*)_other)); }/*ARRAY[WHEN_ITEM_2]*/T0* rT242item(T242 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[WHEN_ITEM_2]*/T0** rT242realloc(/*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_2]*/void rT242add_last(T242 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT242count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT242malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT242realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT242put(C,a1,(C)->_upper); }/*ARRAY[WHEN_ITEM_2]*/T0** rT242malloc(/*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_2]*/void rT242put(T242 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[WHEN_ITEM_2]*/void rT242standard_copy(T242 *C,T0* a1){ memcpy(C,a1,s[a1->id]); }/*ARRAY[WHEN_ITEM_2]*/void rT242copy(T242 *C,T0* a1){ int _i=0; C->_upper=((C)->_lower)-(1); /*IF*/if (((C)->_capacity)==(0)) { rT242make(C,((T242*)a1)->_lower,((T242*)a1)->_upper); } else { rT242resize(C,((T242*)a1)->_lower,((T242*)a1)->_upper); } /*FI*/_i=(C)->_lower; while (!((_i)>((C)->_upper))) { rT242put(C,rT242item((T242*)a1,_i),_i); _i=(_i)+(1); } }/*ARRAY[WHEN_ITEM_2]*/void rT242make(T242 *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=rT242malloc((C)->_capacity); rT242clear_all(C); } /*FI*/}/*ARRAY[E_WHEN]*/T0* rT240twin(T240 *C){ T0* R=NULL; /*IF*//*AF*//*AE*/ R=(T0 *)se_new(C->id);AF_1 rT240copy((T240*)R,(T0 *)C); AF_0 /*FI*/return R; } /*ARRAY[E_WHEN]*/void rT240clear_all(T240 *C){ T0* _value=NULL; rT240set_all_with(C,_value); }/*ARRAY[E_WHEN]*/T0* rT240first(T240 *C){ T0* R=NULL; R=rT240item(C,(C)->_lower); return R; } /*ARRAY[E_WHEN]*/int rT240count(T240 *C){ int R=0; R=(((C)->_upper)-((C)->_lower))+(1); return R; } /*ARRAY[E_WHEN]*/void rT240set_all_with(T240 *C,T0* a1){ int _i=0; _i=(C)->_upper; while (!((_i)<((C)->_lower))) { rT240put(C,a1,_i); _i=(_i)-(1); } }/*ARRAY[E_WHEN]*/void rT240resize(T240 *C,int a1,int a2){ T37 _mem={0/*dummy*/}; int _up=0; int _i=0; T0* _other=NULL; {T240 *n=((T240*)se_new(240)); rT240make(n,a1,a2); _other=(T0 *)n;} _i=rT2max((C)->_lower,((T240*)_other)->_lower); _up=rT2min((C)->_upper,((T240*)_other)->_upper); while (!((_i)>(_up))) { rT240put((T240*)_other,rT240item(C,_i),_i); _i=(_i)+(1); } /*IF*/if (((int)(C)->_storage)) { free((C)->_storage); } /*FI*/rT240standard_copy(C,_other); free(((void *)(T240*)_other)); }/*ARRAY[E_WHEN]*/T0* rT240item(T240 *C,int a1){ T0* R=NULL; R=(((T0**)(C->_storage))[a1-(C->_lower)]); return R; } /*ARRAY[E_WHEN]*/T0** rT240realloc(/*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[E_WHEN]*/void rT240add_last(T240 *C,T0* a1){ /*IF*//*AF*//*AE*/ /*FI*//*IF*/if (((C)->_capacity)<((rT240count(C))+(1))) { /*IF*/if (((C)->_capacity)==(0)) { C->_capacity=16; C->_storage=rT240malloc((C)->_capacity); } else { C->_capacity=((C)->_capacity)+(16); C->_storage=rT240realloc((C)->_storage,(C)->_capacity); } /*FI*/} /*FI*/C->_upper=((C)->_upper)+(1); rT240put(C,a1,(C)->_upper); }/*ARRAY[E_WHEN]*/T0** rT240malloc(/*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[E_WHEN]*/void rT240put(T240 *C,T0* a1,int a2){ ((T0**)(C->_storage))[a2-(C->_lower)]=a1; } /*ARRAY[E_WHEN]*/void rT240standard_copy(T240 *C,T0* a1){ memcpy(C,a1,s[a1->id]); }/*ARRAY[E_WHEN]*/void rT240copy(T240 *C,T0* a1){ int _i=0; C->_upper=((C)->_lower)-(1); /*IF*/if (((C)->_capacity)==(0)) { rT240make(C,((T240*)a1)->_lower,((T240*)a1)->_upper); } else { rT240resize(C,((T240*)a1)->_lower,((T240*)a1)->_upper); } /*FI*/_i=(C)->_lower; while (!((_i)>((C)->_upper))) { rT240put(C,rT240item((T240*)a1,_i),_i); _i=(_i)+(1); } }/*ARRAY[E_WHEN]*/void rT240make(T240 *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=rT240malloc((C)->_capacity); rT240clear_all(C); } /*FI*/}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.