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

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.