ftp.nice.ch/pub/next/developer/languages/eiffel/SmallEiffel.0.91.N.bs.tar.gz#/SmallEiffel/bin_c/compile_to_c36.c

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.