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

This is compile_to_c38.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[INDEX_CLAUSE]*/int rT87count(T87 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
/*ARRAY[INDEX_CLAUSE]*/T0** rT87realloc(/*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[INDEX_CLAUSE]*/void rT87add_last(T87 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT87count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT87malloc((C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT87realloc((C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT87put(C,a1,(C)->_upper);
}/*ARRAY[INDEX_CLAUSE]*/T0** rT87malloc(/*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[INDEX_CLAUSE]*/void rT87put(T87 *C,T0* a1,int a2){
((T0**)(C->_storage))[a2-(C->_lower)]=a1;
}
/*ARRAY[EXPRESSION]*/T0* rT85twin(T85 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);AF_1
XrT85copy(R,(T0 *)C);
AF_0
/*FI*/return R;
}
/*ARRAY[EXPRESSION]*/void rT85clear_all(T85 *C){
T0* _value=NULL;
rT85set_all_with(C,_value);
}/*ARRAY[EXPRESSION]*/int rT85count(T85 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
/*ARRAY[EXPRESSION]*/void rT85set_all_with(T85 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT85put(C,a1,_i);
_i=(_i)-(1);
}
}/*ARRAY[EXPRESSION]*/void rT85resize(T85 *C,int a1,int a2){
T37 _mem={0/*dummy*/};
int _up=0;
int _i=0;
T0* _other=NULL;
{T85 *n=((T85*)se_new(85));
rT85make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,/*XrT*ARRAY[EXPRESSION]*/((T85*)_other)->_lower);
_up=rT2min((C)->_upper,/*XrT*ARRAY[EXPRESSION]*/((T85*)_other)->_upper);
while (!((_i)>(_up))) {
/*XrT*ARRAY[EXPRESSION]*/rT85put((T85*)_other,rT85item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT85standard_copy(C,_other);
free(/*XrT*ARRAY[EXPRESSION]*/((void *)(T85*)_other));
}/*ARRAY[EXPRESSION]*/T0* rT85item(T85 *C,int a1){
T0* R=NULL;
R=(((T0**)(C->_storage))[a1-(C->_lower)]);
return R;
}
/*ARRAY[EXPRESSION]*/T0** rT85realloc(/*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[EXPRESSION]*/void rT85add_last(T85 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT85count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT85malloc((C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT85realloc((C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT85put(C,a1,(C)->_upper);
}/*ARRAY[EXPRESSION]*/T0** rT85malloc(/*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[EXPRESSION]*/void rT85put(T85 *C,T0* a1,int a2){
((T0**)(C->_storage))[a2-(C->_lower)]=a1;
}
/*ARRAY[EXPRESSION]*/void rT85standard_copy(T85 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}/*ARRAY[EXPRESSION]*/void rT85copy(T85 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT85make(C,/*XrT*ARRAY[EXPRESSION]*/((T85*)a1)->_lower,/*XrT*ARRAY[EXPRESSION]*/((T85*)a1)->_upper);
}
else {
rT85resize(C,/*XrT*ARRAY[EXPRESSION]*/((T85*)a1)->_lower,/*XrT*ARRAY[EXPRESSION]*/((T85*)a1)->_upper);
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT85put(C,/*XrT*ARRAY[EXPRESSION]*/rT85item((T85*)a1,_i),_i);
_i=(_i)+(1);
}
}/*ARRAY[EXPRESSION]*/void rT85make(T85 *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=rT85malloc((C)->_capacity);
rT85clear_all(C);
}
/*FI*/}/*ARRAY[E_FEATURE]*/void rT67clear(T67 *C){
C->_upper=((C)->_lower)-(1);
}/*ARRAY[E_FEATURE]*/void rT67clear_all(T67 *C){
T0* _value=NULL;
rT67set_all_with(C,_value);
}/*ARRAY[E_FEATURE]*/int rT67count(T67 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
/*ARRAY[E_FEATURE]*/void rT67set_all_with(T67 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT67put(C,a1,_i);
_i=(_i)-(1);
}
}/*ARRAY[E_FEATURE]*/int rT67fast_index_of(T67 *C,T0* a1){
int R=0;
R=(C)->_lower;
while (!(((R)>((C)->_upper))||(((T0 *)a1)==((T0 *)rT67item(C,R))))) {
R=(R)+(1);
}
return R;
}
/*ARRAY[E_FEATURE]*/int rT67fast_has(T67 *C,T0* a1){
int R=0;
R=(rT67fast_index_of(C,a1))!=(((C)->_upper)+(1));
return R;
}
/*ARRAY[E_FEATURE]*/void rT67resize(T67 *C,int a1,int a2){
T37 _mem={0/*dummy*/};
int _up=0;
int _i=0;
T0* _other=NULL;
{T67 *n=((T67*)se_new(67));
rT67make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T67*)_other)->_lower);
_up=rT2min((C)->_upper,((T67*)_other)->_upper);
while (!((_i)>(_up))) {
rT67put((T67*)_other,rT67item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT67standard_copy(C,_other);
free(((void *)(T67*)_other));
}/*ARRAY[E_FEATURE]*/T0* rT67item(T67 *C,int a1){
T0* R=NULL;
R=(((T0**)(C->_storage))[a1-(C->_lower)]);
return R;
}
/*ARRAY[E_FEATURE]*/int rT67empty(T67 *C){
int R=0;
R=(rT67count(C))==(0);
return R;
}
/*ARRAY[E_FEATURE]*/T0** rT67realloc(/*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_FEATURE]*/void rT67add_last(T67 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT67count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT67malloc((C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT67realloc((C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT67put(C,a1,(C)->_upper);
}/*ARRAY[E_FEATURE]*/T0** rT67malloc(/*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_FEATURE]*/void rT67put(T67 *C,T0* a1,int a2){
((T0**)(C->_storage))[a2-(C->_lower)]=a1;
}
/*ARRAY[E_FEATURE]*/void rT67standard_copy(T67 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}/*ARRAY[E_FEATURE]*/void rT67make(T67 *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=rT67malloc((C)->_capacity);
rT67clear_all(C);
}
/*FI*/}/*ARRAY[BASE_CLASS]*/void rT60clear(T60 *C){
C->_upper=((C)->_lower)-(1);
}/*ARRAY[BASE_CLASS]*/void rT60clear_all(T60 *C){
T0* _value=NULL;
rT60set_all_with(C,_value);
}/*ARRAY[BASE_CLASS]*/T0* rT60first(T60 *C){
T0* R=NULL;
R=rT60item(C,(C)->_lower);
return R;
}
/*ARRAY[BASE_CLASS]*/int rT60count(T60 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
/*ARRAY[BASE_CLASS]*/void rT60set_all_with(T60 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT60put(C,a1,_i);
_i=(_i)-(1);
}
}/*ARRAY[BASE_CLASS]*/int rT60fast_index_of(T60 *C,T0* a1){
int R=0;
R=(C)->_lower;
while (!(((R)>((C)->_upper))||(((T0 *)a1)==((T0 *)rT60item(C,R))))) {
R=(R)+(1);
}
return R;
}
/*ARRAY[BASE_CLASS]*/int rT60fast_has(T60 *C,T0* a1){
int R=0;
R=(rT60fast_index_of(C,a1))!=(((C)->_upper)+(1));
return R;
}
/*ARRAY[BASE_CLASS]*/void rT60resize(T60 *C,int a1,int a2){
T37 _mem={0/*dummy*/};
int _up=0;
int _i=0;
T0* _other=NULL;
{T60 *n=((T60*)se_new(60));
rT60make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T60*)_other)->_lower);
_up=rT2min((C)->_upper,((T60*)_other)->_upper);
while (!((_i)>(_up))) {
rT60put((T60*)_other,rT60item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT60standard_copy(C,_other);
free(((void *)(T60*)_other));
}/*ARRAY[BASE_CLASS]*/T0* rT60item(T60 *C,int a1){
T0* R=NULL;
R=(((T0**)(C->_storage))[a1-(C->_lower)]);
return R;
}
/*ARRAY[BASE_CLASS]*/T0** rT60realloc(/*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[BASE_CLASS]*/void rT60add_last(T60 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT60count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT60malloc((C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT60realloc((C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT60put(C,a1,(C)->_upper);
}/*ARRAY[BASE_CLASS]*/T0** rT60malloc(/*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[BASE_CLASS]*/void rT60put(T60 *C,T0* a1,int a2){
((T0**)(C->_storage))[a2-(C->_lower)]=a1;
}
/*ARRAY[BASE_CLASS]*/void rT60standard_copy(T60 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}/*ARRAY[BASE_CLASS]*/void rT60make(T60 *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=rT60malloc((C)->_capacity);
rT60clear_all(C);
}
/*FI*/}/*ARRAY[INTEGER]*/void rT59clear_all(T59 *C){
int _value=0;
rT59set_all_with(C,_value);
}/*ARRAY[INTEGER]*/int rT59count(T59 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
/*ARRAY[INTEGER]*/void rT59set_all_with(T59 *C,int a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT59put(C,a1,_i);
_i=(_i)-(1);
}
}/*ARRAY[INTEGER]*/void rT59resize(T59 *C,int a1,int a2){
T37 _mem={0/*dummy*/};
int _up=0;
int _i=0;
T0* _other=NULL;
{T59 *n=((T59*)se_new(59));
rT59make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T59*)_other)->_lower);
_up=rT2min((C)->_upper,((T59*)_other)->_upper);
while (!((_i)>(_up))) {
rT59put((T59*)_other,rT59item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT59standard_copy(C,_other);
free(((void *)(T59*)_other));
}/*ARRAY[INTEGER]*/int rT59item(T59 *C,int a1){
int R=0;
R=(((int*)(C->_storage))[a1-(C->_lower)]);
return R;
}
/*ARRAY[INTEGER]*/int* rT59realloc(/*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;
}
/*ARRAY[INTEGER]*/void rT59add_last(T59 *C,int a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT59count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT59malloc((C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT59realloc((C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT59put(C,a1,(C)->_upper);
}/*ARRAY[INTEGER]*/int* rT59malloc(/*C*/int a1){
int* R=0;
T37 _mem={0/*dummy*/};
int _x=0;
/*IF*/{/*AT*/R=malloc((a1)*(((0),sizeof(T2))));
}
/*FI*/return R;
}
/*ARRAY[INTEGER]*/void rT59put(T59 *C,int a1,int a2){
((int*)(C->_storage))[a2-(C->_lower)]=a1;
}
/*ARRAY[INTEGER]*/void rT59standard_copy(T59 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}/*ARRAY[INTEGER]*/void rT59make(T59 *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=rT59malloc((C)->_capacity);
rT59clear_all(C);
}
/*FI*/}/*ARRAY[POSITION]*/void rT50clear(T50 *C){
C->_upper=((C)->_lower)-(1);
}/*ARRAY[POSITION]*/void rT50clear_all(T50 *C){
T0* _value=NULL;
rT50set_all_with(C,_value);
}/*ARRAY[POSITION]*/int rT50count(T50 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
/*ARRAY[POSITION]*/void rT50set_all_with(T50 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT50put(C,a1,_i);
_i=(_i)-(1);
}
}/*ARRAY[POSITION]*/int rT50empty(T50 *C){
int R=0;
R=(rT50count(C))==(0);
return R;
}
/*ARRAY[POSITION]*/T0* rT50item(T50 *C,int a1){
T0* R=NULL;
R=(((T0**)(C->_storage))[a1-(C->_lower)]);
return R;
}
/*ARRAY[POSITION]*/T0** rT50realloc(/*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[POSITION]*/void rT50add_last(T50 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT50count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT50malloc((C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT50realloc((C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT50put(C,a1,(C)->_upper);
}/*ARRAY[POSITION]*/T0** rT50malloc(/*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[POSITION]*/int rT50equal_like(/*C*/T0* a1,T0* a2){
int R=0;
/*IF*//*AF*//*AF*/if (((T0 *)a1)==((T0 *)a2)) {
R=1;
}
 else if ((!(a1))||(!(a2))) {
}
else {
R=rT49is_equal((T49*)a1,a2);
}
/*FI*/return R;
}
/*ARRAY[POSITION]*/int rT50index_of(T50 *C,T0* a1){
int R=0;
R=(C)->_lower;
while (!(((R)>((C)->_upper))||(rT50equal_like(a1,rT50item(C,R))))) {
R=(R)+(1);
}
return R;
}
/*ARRAY[POSITION]*/void rT50put(T50 *C,T0* a1,int a2){
((T0**)(C->_storage))[a2-(C->_lower)]=a1;
}
/*ARRAY[POSITION]*/void rT50with_capacity(T50 *C,int a1,int a2){
rT50make(C,a2,((a2)+(a1))-(1));
C->_upper=(a2)-(1);
}/*ARRAY[POSITION]*/int rT50has(T50 *C,T0* a1){
int R=0;
R=(rT50index_of(C,a1))!=(((C)->_upper)+(1));
return R;
}
/*ARRAY[POSITION]*/void rT50make(T50 *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=rT50malloc((C)->_capacity);
rT50clear_all(C);
}
/*FI*/}/*ARRAY[STRING]*/void rT45clear(T45 *C){
C->_upper=((C)->_lower)-(1);
}/*ARRAY[STRING]*/void rT45clear_all(T45 *C){
T0* _value=NULL;
rT45set_all_with(C,_value);
}/*ARRAY[STRING]*/int rT45count(T45 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
/*ARRAY[STRING]*/void rT45set_all_with(T45 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT45put(C,a1,_i);
_i=(_i)-(1);
}
}/*ARRAY[STRING]*/int rT45fast_index_of(T45 *C,T0* a1){
int R=0;
R=(C)->_lower;
while (!(((R)>((C)->_upper))||(((T0 *)a1)==((T0 *)rT45item(C,R))))) {
R=(R)+(1);
}
return R;
}
/*ARRAY[STRING]*/int rT45fast_has(T45 *C,T0* a1){
int R=0;
R=(rT45fast_index_of(C,a1))!=(((C)->_upper)+(1));
return R;
}
/*ARRAY[STRING]*/void rT45resize(T45 *C,int a1,int a2){
T37 _mem={0/*dummy*/};
int _up=0;
int _i=0;
T0* _other=NULL;
{T45 *n=((T45*)se_new(45));
rT45make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T45*)_other)->_lower);
_up=rT2min((C)->_upper,((T45*)_other)->_upper);
while (!((_i)>(_up))) {
rT45put((T45*)_other,rT45item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT45standard_copy(C,_other);
free(((void *)(T45*)_other));
}/*ARRAY[STRING]*/T0* rT45item(T45 *C,int a1){
T0* R=NULL;
R=(((T0**)(C->_storage))[a1-(C->_lower)]);
return R;
}
/*ARRAY[STRING]*/T0** rT45realloc(/*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[STRING]*/void rT45add_last(T45 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT45count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT45malloc((C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT45realloc((C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT45put(C,a1,(C)->_upper);
}/*ARRAY[STRING]*/T0** rT45malloc(/*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[STRING]*/int rT45equal_like(/*C*/T0* a1,T0* a2){
int R=0;
/*IF*//*AF*//*AF*/if (((T0 *)a1)==((T0 *)a2)) {
R=1;
}
 else if ((!(a1))||(!(a2))) {
}
else {
R=rT7is_equal((T7*)a1,a2);
}
/*FI*/return R;
}
/*ARRAY[STRING]*/int rT45index_of(T45 *C,T0* a1){
int R=0;
R=(C)->_lower;
while (!(((R)>((C)->_upper))||(rT45equal_like(a1,rT45item(C,R))))) {
R=(R)+(1);
}
return R;
}
/*ARRAY[STRING]*/void rT45put(T45 *C,T0* a1,int a2){
((T0**)(C->_storage))[a2-(C->_lower)]=a1;
}
/*ARRAY[STRING]*/void rT45standard_copy(T45 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}/*ARRAY[STRING]*/int rT45has(T45 *C,T0* a1){
int R=0;
R=(rT45index_of(C,a1))!=(((C)->_upper)+(1));
return R;
}
/*ARRAY[STRING]*/void rT45make(T45 *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=rT45malloc((C)->_capacity);
rT45clear_all(C);
}
/*FI*/}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.