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

This is compile_to_c20.c in view mode; [Download] [Up]

/* ANSI C code generated by SmallEiffel. */
/*
-- SmallEiffel  -- Release (- 0.95)    --      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"
void rT235make(T235 *C,int a1,int a2){
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/C->_lower=a1;
C->_upper=a2;
C->_capacity=(((C)->_upper)-((C)->_lower))+(1);
/*IF*/if (((C)->_capacity)>(0)) {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT235malloc(C,(C)->_capacity);
rT235clear_all(C);
}
/*FI*/}
T0* rT233twin(T233 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT233copy((T233*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
void rT233clear_all(T233 *C){
T0* _value=NULL;
rT233set_all_with(C,_value);
}
T0* rT233first(T233 *C){
T0* R=NULL;
R=rT233item(C,(C)->_lower);
return R;
}
int rT233count(T233 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT233set_all_with(T233 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT233put(C,a1,_i);
_i=(_i)-(1);
}
}
void rT233resize(T233 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T233 *n=((T233*)se_new(233));
rT233make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T233*)_other)->_lower);
_up=rT2min((C)->_upper,((T233*)_other)->_upper);
while (!((_i)>(_up))) {
rT233put((T233*)_other,rT233item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT233standard_copy(C,_other);
free((T233*)_other);
}
T0* rT233item(T233 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT233realloc(T233 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT233add_last(T233 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT233count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT233malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT233realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT233put(C,a1,(C)->_upper);
}
T0** rT233malloc(T233 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT233put(T233 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT233standard_copy(T233 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT233copy(T233 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT233make(C,((T233*)a1)->_lower,((T233*)a1)->_upper);
}
else {
rT233resize(C,((T233*)a1)->_lower,((T233*)a1)->_upper);
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT233put(C,rT233item((T233*)a1,_i),_i);
_i=(_i)+(1);
}
}
void rT233make(T233 *C,int a1,int a2){
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/C->_lower=a1;
C->_upper=a2;
C->_capacity=(((C)->_upper)-((C)->_lower))+(1);
/*IF*/if (((C)->_capacity)>(0)) {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT233malloc(C,(C)->_capacity);
rT233clear_all(C);
}
/*FI*/}
T0* rT231twin(T231 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
XrT231copy(R,(T0 *)C);
AF_0
/*FI*/return R;
}
void rT231clear_all(T231 *C){
T0* _value=NULL;
rT231set_all_with(C,_value);
}
int rT231count(T231 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
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);
}
}
void rT231resize(T231 *C,int a1,int a2){
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,XrT231lower(_other));
_up=rT2min((C)->_upper,XrT231upper(_other));
while (!((_i)>(_up))) {
XrT231put(_other,rT231item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT231standard_copy(C,_other);
XrT231free_array(_other);
}
T0* rT231item(T231 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT231realloc(T231 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
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,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT231realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT231put(C,a1,(C)->_upper);
}
T0** rT231malloc(T231 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT231put(T231 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT231standard_copy(T231 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT231copy(T231 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT231make(C,XrT231lower(a1),XrT231upper(a1));
}
else {
rT231resize(C,XrT231lower(a1),XrT231upper(a1));
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT231put(C,XrT231item(a1,_i),_i);
_i=(_i)+(1);
}
}
void rT231make(T231 *C,int a1,int a2){
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/C->_lower=a1;
C->_upper=a2;
C->_capacity=(((C)->_upper)-((C)->_lower))+(1);
/*IF*/if (((C)->_capacity)>(0)) {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT231malloc(C,(C)->_capacity);
rT231clear_all(C);
}
/*FI*/}
T0* rT230twin(T230 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT230copy((T230*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
void rT230clear_all(T230 *C){
T0* _value=NULL;
rT230set_all_with(C,_value);
}
int rT230count(T230 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT230set_all_with(T230 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT230put(C,a1,_i);
_i=(_i)-(1);
}
}
void rT230resize(T230 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T230 *n=((T230*)se_new(230));
rT230make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T230*)_other)->_lower);
_up=rT2min((C)->_upper,((T230*)_other)->_upper);
while (!((_i)>(_up))) {
rT230put((T230*)_other,rT230item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT230standard_copy(C,_other);
free((T230*)_other);
}
T0* rT230item(T230 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT230realloc(T230 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT230add_last(T230 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT230count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT230malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT230realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT230put(C,a1,(C)->_upper);
}
T0** rT230malloc(T230 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT230put(T230 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT230standard_copy(T230 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT230copy(T230 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT230make(C,((T230*)a1)->_lower,((T230*)a1)->_upper);
}
else {
rT230resize(C,((T230*)a1)->_lower,((T230*)a1)->_upper);
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT230put(C,rT230item((T230*)a1,_i),_i);
_i=(_i)+(1);
}
}
void rT230make(T230 *C,int a1,int a2){
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/C->_lower=a1;
C->_upper=a2;
C->_capacity=(((C)->_upper)-((C)->_lower))+(1);
/*IF*/if (((C)->_capacity)>(0)) {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT230malloc(C,(C)->_capacity);
rT230clear_all(C);
}
/*FI*/}
T0* rT224twin(T224 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT224copy((T224*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
void rT224clear_all(T224 *C){
T0* _value=NULL;
rT224set_all_with(C,_value);
}
int rT224count(T224 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT224set_all_with(T224 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT224put(C,a1,_i);
_i=(_i)-(1);
}
}
void rT224resize(T224 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T224 *n=((T224*)se_new(224));
rT224make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T224*)_other)->_lower);
_up=rT2min((C)->_upper,((T224*)_other)->_upper);
while (!((_i)>(_up))) {
rT224put((T224*)_other,rT224item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT224standard_copy(C,_other);
free((T224*)_other);
}
T0* rT224item(T224 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT224realloc(T224 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT224add_last(T224 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT224count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT224malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT224realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT224put(C,a1,(C)->_upper);
}
T0** rT224malloc(T224 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT224put(T224 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT224standard_copy(T224 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT224copy(T224 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT224make(C,((T224*)a1)->_lower,((T224*)a1)->_upper);
}
else {
rT224resize(C,((T224*)a1)->_lower,((T224*)a1)->_upper);
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT224put(C,rT224item((T224*)a1,_i),_i);
_i=(_i)+(1);
}
}
void rT224make(T224 *C,int a1,int a2){
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/C->_lower=a1;
C->_upper=a2;
C->_capacity=(((C)->_upper)-((C)->_lower))+(1);
/*IF*/if (((C)->_capacity)>(0)) {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT224malloc(C,(C)->_capacity);
rT224clear_all(C);
}
/*FI*/}
T0* rT218twin(T218 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT218copy((T218*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
void rT218clear_all(T218 *C){
T0* _value=NULL;
rT218set_all_with(C,_value);
}
T0* rT218first(T218 *C){
T0* R=NULL;
R=rT218item(C,(C)->_lower);
return R;
}
int rT218count(T218 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT218set_all_with(T218 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT218put(C,a1,_i);
_i=(_i)-(1);
}
}
void rT218resize(T218 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T218 *n=((T218*)se_new(218));
rT218make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T218*)_other)->_lower);
_up=rT2min((C)->_upper,((T218*)_other)->_upper);
while (!((_i)>(_up))) {
rT218put((T218*)_other,rT218item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT218standard_copy(C,_other);
free((T218*)_other);
}
T0* rT218item(T218 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT218realloc(T218 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT218add_last(T218 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT218count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT218malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT218realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT218put(C,a1,(C)->_upper);
}
T0** rT218malloc(T218 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT218put(T218 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT218standard_copy(T218 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT218copy(T218 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT218make(C,((T218*)a1)->_lower,((T218*)a1)->_upper);
}
else {
rT218resize(C,((T218*)a1)->_lower,((T218*)a1)->_upper);
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT218put(C,rT218item((T218*)a1,_i),_i);
_i=(_i)+(1);
}
}
void rT218make(T218 *C,int a1,int a2){
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/C->_lower=a1;
C->_upper=a2;
C->_capacity=(((C)->_upper)-((C)->_lower))+(1);
/*IF*/if (((C)->_capacity)>(0)) {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT218malloc(C,(C)->_capacity);
rT218clear_all(C);
}
/*FI*/}
void rT96clear_all(T96 *C){
T0* _value=NULL;
rT96set_all_with(C,_value);
}
int rT96count(T96 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT96set_all_with(T96 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT96put(C,a1,_i);
_i=(_i)-(1);
}
}
T0* rT96item(T96 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT96realloc(T96 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT96add_last(T96 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT96count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT96malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT96realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT96put(C,a1,(C)->_upper);
}
T0** rT96malloc(T96 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
int rT96equal_like(/*C*/T0* a1,T0* a2){
int R=0;
/*IF*//*AF*/if (((T0 *)a1)==((T0 *)a2)) {
R=1;
}
 else if ((!(a1))||(!(a2))) {
}
else {
R=rT94is_equal((T94*)a1,a2);
}
/*FI*/return R;
}
int rT96index_of(T96 *C,T0* a1){
int R=0;
R=(C)->_lower;
while (!(((R)>((C)->_upper))||(rT96equal_like(a1,rT96item(C,R))))) {
R=(R)+(1);
}
return R;
}
void rT96put(T96 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT96make(T96 *C,int a1,int a2){
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/C->_lower=a1;
C->_upper=a2;
C->_capacity=(((C)->_upper)-((C)->_lower))+(1);
/*IF*/if (((C)->_capacity)>(0)) {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT96malloc(C,(C)->_capacity);
rT96clear_all(C);
}
/*FI*/}
int rT86count(T86 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT86item(T86 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT86realloc(T86 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT86add_last(T86 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT86count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT86malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT86realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT86put(C,a1,(C)->_upper);
}
T0** rT86malloc(T86 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT86put(T86 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
int rT83count(T83 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0** rT83realloc(T83 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT83add_last(T83 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT83count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT83malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT83realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT83put(C,a1,(C)->_upper);
}
T0** rT83malloc(T83 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT83put(T83 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
T0* rT81twin(T81 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
XrT81copy(R,(T0 *)C);
AF_0
/*FI*/return R;
}
void rT81clear_all(T81 *C){
T0* _value=NULL;
rT81set_all_with(C,_value);
}
int rT81count(T81 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT81set_all_with(T81 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT81put(C,a1,_i);
_i=(_i)-(1);
}
}
void rT81resize(T81 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T81 *n=((T81*)se_new(81));
rT81make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,XrT81lower(_other));
_up=rT2min((C)->_upper,XrT81upper(_other));
while (!((_i)>(_up))) {
XrT81put(_other,rT81item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT81standard_copy(C,_other);
XrT81free_array(_other);
}
T0* rT81item(T81 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT81realloc(T81 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT81add_last(T81 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT81count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT81malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT81realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT81put(C,a1,(C)->_upper);
}
T0** rT81malloc(T81 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT81put(T81 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT81standard_copy(T81 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT81copy(T81 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT81make(C,XrT81lower(a1),XrT81upper(a1));
}
else {
rT81resize(C,XrT81lower(a1),XrT81upper(a1));
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT81put(C,XrT81item(a1,_i),_i);
_i=(_i)+(1);
}
}
void rT81make(T81 *C,int a1,int a2){
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/C->_lower=a1;
C->_upper=a2;
C->_capacity=(((C)->_upper)-((C)->_lower))+(1);
/*IF*/if (((C)->_capacity)>(0)) {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT81malloc(C,(C)->_capacity);
rT81clear_all(C);
}
/*FI*/}
void rT63clear_all(T63 *C){
T0* _value=NULL;
rT63set_all_with(C,_value);
}
int rT63count(T63 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT63set_all_with(T63 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT63put(C,a1,_i);
_i=(_i)-(1);
}
}
void rT63resize(T63 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T63 *n=((T63*)se_new(63));
rT63make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,XrT63lower(_other));
_up=rT2min((C)->_upper,XrT63upper(_other));
while (!((_i)>(_up))) {
XrT63put(_other,rT63item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT63standard_copy(C,_other);
XrT63free_array(_other);
}
T0* rT63item(T63 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
int rT63empty(T63 *C){
int R=0;
R=(rT63count(C))==(0);
return R;
}
T0** rT63realloc(T63 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT63add_last(T63 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT63count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT63malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT63realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT63put(C,a1,(C)->_upper);
}
T0** rT63malloc(T63 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT63put(T63 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT63standard_copy(T63 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT63make(T63 *C,int a1,int a2){
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/C->_lower=a1;
C->_upper=a2;
C->_capacity=(((C)->_upper)-((C)->_lower))+(1);
/*IF*/if (((C)->_capacity)>(0)) {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT63malloc(C,(C)->_capacity);
rT63clear_all(C);
}
/*FI*/}
void rT56clear(T56 *C){
C->_upper=((C)->_lower)-(1);
}
void rT56clear_all(T56 *C){
T0* _value=NULL;
rT56set_all_with(C,_value);
}
T0* rT56first(T56 *C){
T0* R=NULL;
R=rT56item(C,(C)->_lower);
return R;
}
int rT56count(T56 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT56set_all_with(T56 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT56put(C,a1,_i);
_i=(_i)-(1);
}
}
int rT56fast_index_of(T56 *C,T0* a1){
int R=0;
R=(C)->_lower;
while (!(((R)>((C)->_upper))||(((T0 *)a1)==((T0 *)rT56item(C,R))))) {
R=(R)+(1);
}
return R;
}
int rT56fast_has(T56 *C,T0* a1){
int R=0;
R=(rT56fast_index_of(C,a1))!=(((C)->_upper)+(1));
return R;
}
void rT56resize(T56 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T56 *n=((T56*)se_new(56));
rT56make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T56*)_other)->_lower);
_up=rT2min((C)->_upper,((T56*)_other)->_upper);
while (!((_i)>(_up))) {
rT56put((T56*)_other,rT56item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT56standard_copy(C,_other);
free((T56*)_other);
}
T0* rT56item(T56 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT56realloc(T56 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT56add_last(T56 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT56count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT56malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT56realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT56put(C,a1,(C)->_upper);
}
T0** rT56malloc(T56 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT56put(T56 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT56standard_copy(T56 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT56make(T56 *C,int a1,int a2){
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/C->_lower=a1;
C->_upper=a2;
C->_capacity=(((C)->_upper)-((C)->_lower))+(1);
/*IF*/if (((C)->_capacity)>(0)) {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT56malloc(C,(C)->_capacity);
rT56clear_all(C);
}
/*FI*/}
void rT55clear_all(T55 *C){
int _value=0;
rT55set_all_with(C,_value);
}
int rT55count(T55 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT55set_all_with(T55 *C,int a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT55put(C,a1,_i);
_i=(_i)-(1);
}
}
void rT55resize(T55 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T55 *n=((T55*)se_new(55));
rT55make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T55*)_other)->_lower);
_up=rT2min((C)->_upper,((T55*)_other)->_upper);
while (!((_i)>(_up))) {
rT55put((T55*)_other,rT55item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT55standard_copy(C,_other);
free((T55*)_other);
}
int rT55item(T55 *C,int a1){
int R=0;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
int* rT55realloc(T55 *C,int* a1,int a2){
int* R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT55add_last(T55 *C,int a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT55count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT55malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT55realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT55put(C,a1,(C)->_upper);
}
int* rT55malloc(T55 *C,int a1){
int* R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT55put(T55 *C,int a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT55standard_copy(T55 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT55make(T55 *C,int a1,int a2){
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/C->_lower=a1;
C->_upper=a2;
C->_capacity=(((C)->_upper)-((C)->_lower))+(1);
/*IF*/if (((C)->_capacity)>(0)) {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT55malloc(C,(C)->_capacity);
rT55clear_all(C);
}
/*FI*/}
void rT47clear(T47 *C){
C->_upper=((C)->_lower)-(1);
}
void rT47clear_all(T47 *C){
T0* _value=NULL;
rT47set_all_with(C,_value);
}
int rT47count(T47 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT47set_all_with(T47 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT47put(C,a1,_i);
_i=(_i)-(1);
}
}
int rT47empty(T47 *C){
int R=0;
R=(rT47count(C))==(0);
return R;
}
T0* rT47item(T47 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT47realloc(T47 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT47add_last(T47 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT47count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT47malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT47realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT47put(C,a1,(C)->_upper);
}
T0** rT47malloc(T47 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
int rT47equal_like(/*C*/T0* a1,T0* a2){
int R=0;
/*IF*//*AF*/if (((T0 *)a1)==((T0 *)a2)) {
R=1;
}
 else if ((!(a1))||(!(a2))) {
}
else {
R=rT46is_equal((T46*)a1,a2);
}
/*FI*/return R;
}

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