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

This is compile_to_c21.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"
int rT47index_of(T47 *C,T0* a1){
int R=0;
R=(C)->_lower;
while (!(((R)>((C)->_upper))||(rT47equal_like(a1,rT47item(C,R))))) {
R=(R)+(1);
}
return R;
}
void rT47put(T47 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
int rT47has(T47 *C,T0* a1){
int R=0;
R=(rT47index_of(C,a1))!=(((C)->_upper)+(1));
return R;
}
void rT47make(T47 *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=rT47malloc(C,(C)->_capacity);
rT47clear_all(C);
}
/*FI*/}
void rT34clear(T34 *C){
C->_upper=((C)->_lower)-(1);
}
void rT34clear_all(T34 *C){
T0* _value=NULL;
rT34set_all_with(C,_value);
}
int rT34count(T34 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT34add(T34 *C,T0* a1){
/*IF*/if (!(rT34has(C,a1))) {
rT34add_last(C,a1);
}
/*FI*/}
void rT34set_all_with(T34 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT34put(C,a1,_i);
_i=(_i)-(1);
}
}
int rT34fast_index_of(T34 *C,T0* a1){
int R=0;
R=(C)->_lower;
while (!(((R)>((C)->_upper))||(((T0 *)a1)==((T0 *)rT34item(C,R))))) {
R=(R)+(1);
}
return R;
}
int rT34fast_has(T34 *C,T0* a1){
int R=0;
R=(rT34fast_index_of(C,a1))!=(((C)->_upper)+(1));
return R;
}
void rT34resize(T34 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T34 *n=((T34*)se_new(34));
rT34make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T34*)_other)->_lower);
_up=rT2min((C)->_upper,((T34*)_other)->_upper);
while (!((_i)>(_up))) {
rT34put((T34*)_other,rT34item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT34standard_copy(C,_other);
free((T34*)_other);
}
T0* rT34item(T34 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT34realloc(T34 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT34add_last(T34 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT34count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT34malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT34realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT34put(C,a1,(C)->_upper);
}
T0** rT34malloc(T34 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
int rT34equal_like(/*C*/T0* a1,T0* a2){
int R=0;
/*IF*//*AF*/if (((T0 *)a1)==((T0 *)a2)) {
R=1;
}
 else if ((!(a1))||(!(a2))) {
}
else {
R=rT7is_equal((T7*)a1,a2);
}
/*FI*/return R;
}
int rT34index_of(T34 *C,T0* a1){
int R=0;
R=(C)->_lower;
while (!(((R)>((C)->_upper))||(rT34equal_like(a1,rT34item(C,R))))) {
R=(R)+(1);
}
return R;
}
void rT34put(T34 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT34standard_copy(T34 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
int rT34has(T34 *C,T0* a1){
int R=0;
R=(rT34index_of(C,a1))!=(((C)->_upper)+(1));
return R;
}
void rT34make(T34 *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=rT34malloc(C,(C)->_capacity);
rT34clear_all(C);
}
/*FI*/}
T0* rT106twin(T106 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT106copy((T106*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
void rT106clear_all(T106 *C){
T0* _value=NULL;
rT106set_all_with(C,_value);
}
T0* rT106first(T106 *C){
T0* R=NULL;
R=rT106item(C,(C)->_lower);
return R;
}
int rT106count(T106 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT106set_all_with(T106 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT106put(C,a1,_i);
_i=(_i)-(1);
}
}
void rT106resize(T106 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T106 *n=((T106*)se_new(106));
rT106make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T106*)_other)->_lower);
_up=rT2min((C)->_upper,((T106*)_other)->_upper);
while (!((_i)>(_up))) {
rT106put((T106*)_other,rT106item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT106standard_copy(C,_other);
free((T106*)_other);
}
T0* rT106item(T106 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT106realloc(T106 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT106add_last(T106 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT106count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT106malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT106realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT106put(C,a1,(C)->_upper);
}
T0** rT106malloc(T106 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT106put(T106 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT106standard_copy(T106 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT106copy(T106 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT106make(C,((T106*)a1)->_lower,((T106*)a1)->_upper);
}
else {
rT106resize(C,((T106*)a1)->_lower,((T106*)a1)->_upper);
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT106put(C,rT106item((T106*)a1,_i),_i);
_i=(_i)+(1);
}
}
void rT106make(T106 *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=rT106malloc(C,(C)->_capacity);
rT106clear_all(C);
}
/*FI*/}
int rT121count(T121 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT121item(T121 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT121realloc(T121 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT121add_last(T121 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT121count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT121malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT121realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT121put(C,a1,(C)->_upper);
}
T0** rT121malloc(T121 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT121put(T121 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
int rT125count(T125 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT125item(T125 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT125realloc(T125 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT125add_last(T125 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT125count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT125malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT125realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT125put(C,a1,(C)->_upper);
}
T0** rT125malloc(T125 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT125put(T125 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
int rT127count(T127 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT127item(T127 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT127realloc(T127 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT127add_last(T127 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT127count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT127malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT127realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT127put(C,a1,(C)->_upper);
}
T0** rT127malloc(T127 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT127put(T127 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
T0* rT129twin(T129 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT129copy((T129*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
void rT129clear(T129 *C){
C->_upper=((C)->_lower)-(1);
}
void rT129clear_all(T129 *C){
T0* _value=NULL;
rT129set_all_with(C,_value);
}
T0* rT129first(T129 *C){
T0* R=NULL;
R=rT129item(C,(C)->_lower);
return R;
}
int rT129count(T129 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT129set_all_with(T129 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT129put(C,a1,_i);
_i=(_i)-(1);
}
}
void rT129resize(T129 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T129 *n=((T129*)se_new(129));
rT129make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T129*)_other)->_lower);
_up=rT2min((C)->_upper,((T129*)_other)->_upper);
while (!((_i)>(_up))) {
rT129put((T129*)_other,rT129item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT129standard_copy(C,_other);
free((T129*)_other);
}
T0* rT129item(T129 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT129realloc(T129 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT129add_last(T129 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT129count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT129malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT129realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT129put(C,a1,(C)->_upper);
}
T0** rT129malloc(T129 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT129put(T129 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT129standard_copy(T129 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT129copy(T129 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT129make(C,((T129*)a1)->_lower,((T129*)a1)->_upper);
}
else {
rT129resize(C,((T129*)a1)->_lower,((T129*)a1)->_upper);
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT129put(C,rT129item((T129*)a1,_i),_i);
_i=(_i)+(1);
}
}
void rT129make(T129 *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=rT129malloc(C,(C)->_capacity);
rT129clear_all(C);
}
/*FI*/}
T0* rT130first(T130 *C){
T0* R=NULL;
R=rT130item(C,(C)->_lower);
return R;
}
int rT130count(T130 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT130item(T130 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT130realloc(T130 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT130add_last(T130 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT130count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT130malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT130realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT130put(C,a1,(C)->_upper);
}
T0** rT130malloc(T130 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT130put(T130 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
int rT134count(T134 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT134item(T134 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT134realloc(T134 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT134add_last(T134 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT134count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT134malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT134realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT134put(C,a1,(C)->_upper);
}
T0** rT134malloc(T134 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT134put(T134 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
int rT141count(T141 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT141item(T141 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT141realloc(T141 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT141add_last(T141 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT141count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT141malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT141realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT141put(C,a1,(C)->_upper);
}
T0** rT141malloc(T141 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT141put(T141 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
int rT143count(T143 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT143item(T143 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT143realloc(T143 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT143add_last(T143 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT143count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT143malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT143realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT143put(C,a1,(C)->_upper);
}
T0** rT143malloc(T143 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT143put(T143 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
T0* rT147twin(T147 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT147copy((T147*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
void rT147clear_all(T147 *C){
T0* _value=NULL;
rT147set_all_with(C,_value);
}
int rT147count(T147 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT147set_all_with(T147 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT147put(C,a1,_i);
_i=(_i)-(1);
}
}
void rT147resize(T147 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T147 *n=((T147*)se_new(147));
rT147make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T147*)_other)->_lower);
_up=rT2min((C)->_upper,((T147*)_other)->_upper);
while (!((_i)>(_up))) {
rT147put((T147*)_other,rT147item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT147standard_copy(C,_other);
free((T147*)_other);
}
T0* rT147item(T147 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT147realloc(T147 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT147add_last(T147 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT147count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT147malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT147realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT147put(C,a1,(C)->_upper);
}
T0** rT147malloc(T147 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT147put(T147 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT147standard_copy(T147 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT147copy(T147 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT147make(C,((T147*)a1)->_lower,((T147*)a1)->_upper);
}
else {
rT147resize(C,((T147*)a1)->_lower,((T147*)a1)->_upper);
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT147put(C,rT147item((T147*)a1,_i),_i);
_i=(_i)+(1);
}
}
void rT147make(T147 *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=rT147malloc(C,(C)->_capacity);
rT147clear_all(C);
}
/*FI*/}
T0* rT151twin(T151 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT151copy((T151*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
void rT151clear_all(T151 *C){
T0* _value=NULL;
rT151set_all_with(C,_value);
}
int rT151count(T151 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT151set_all_with(T151 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT151put(C,a1,_i);
_i=(_i)-(1);
}
}
int rT151fast_index_of(T151 *C,T0* a1){
int R=0;
R=(C)->_lower;
while (!(((R)>((C)->_upper))||(((T0 *)a1)==((T0 *)rT151item(C,R))))) {
R=(R)+(1);
}
return R;
}
void rT151resize(T151 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T151 *n=((T151*)se_new(151));
rT151make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T151*)_other)->_lower);
_up=rT2min((C)->_upper,((T151*)_other)->_upper);
while (!((_i)>(_up))) {
rT151put((T151*)_other,rT151item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT151standard_copy(C,_other);
free((T151*)_other);
}
T0* rT151item(T151 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT151realloc(T151 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT151add_last(T151 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT151count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT151malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT151realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT151put(C,a1,(C)->_upper);
}
T0** rT151malloc(T151 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT151put(T151 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT151standard_copy(T151 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT151copy(T151 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT151make(C,((T151*)a1)->_lower,((T151*)a1)->_upper);
}
else {
rT151resize(C,((T151*)a1)->_lower,((T151*)a1)->_upper);
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT151put(C,rT151item((T151*)a1,_i),_i);
_i=(_i)+(1);
}
}
void rT151make(T151 *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=rT151malloc(C,(C)->_capacity);
rT151clear_all(C);
}
/*FI*/}
T0* rT158twin(T158 *C){
T0* R=NULL;
/*IF*//*AF*//*AE*/
R=(T0 *)se_new(C->id);
AF_1
rT158copy((T158*)R,(T0 *)C);
AF_0
/*FI*/return R;
}
void rT158clear(T158 *C){
C->_upper=((C)->_lower)-(1);
}
void rT158clear_all(T158 *C){
T0* _value=NULL;
rT158set_all_with(C,_value);
}
int rT158count(T158 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT158set_all_with(T158 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT158put(C,a1,_i);
_i=(_i)-(1);
}
}
void rT158resize(T158 *C,int a1,int a2){
int _up=0;
int _i=0;
T0* _other=NULL;
{T158 *n=((T158*)se_new(158));
rT158make(n,a1,a2);
_other=(T0 *)n;}
_i=rT2max((C)->_lower,((T158*)_other)->_lower);
_up=rT2min((C)->_upper,((T158*)_other)->_upper);
while (!((_i)>(_up))) {
rT158put((T158*)_other,rT158item(C,_i),_i);
_i=(_i)+(1);
}
/*IF*/if (((int)(C)->_storage)) {
free((C)->_storage);
}
/*FI*/rT158standard_copy(C,_other);
free((T158*)_other);
}
int rT158fast_index_of(T158 *C,T0* a1){
int R=0;
R=(C)->_lower;
while (!(((R)>((C)->_upper))||(((T0 *)a1)==((T0 *)rT158item(C,R))))) {
R=(R)+(1);
}
return R;
}
int rT158fast_has(T158 *C,T0* a1){
int R=0;
R=(rT158fast_index_of(C,a1))!=(((C)->_upper)+(1));
return R;
}
int rT158empty(T158 *C){
int R=0;
R=(rT158count(C))==(0);
return R;
}
T0* rT158item(T158 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT158realloc(T158 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT158add_last(T158 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT158count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT158malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT158realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT158put(C,a1,(C)->_upper);
}
T0** rT158malloc(T158 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT158put(T158 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT158standard_copy(T158 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT158copy(T158 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT158make(C,((T158*)a1)->_lower,((T158*)a1)->_upper);
}
else {
rT158resize(C,((T158*)a1)->_lower,((T158*)a1)->_upper);
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT158put(C,rT158item((T158*)a1,_i),_i);
_i=(_i)+(1);
}
}
void rT158make(T158 *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=rT158malloc(C,(C)->_capacity);
rT158clear_all(C);
}
/*FI*/}
int se_argc;
char **se_argv;
void main(int argc,char *argv[]){
se_sz_initialize();{
T26 *n=((T26*)se_new(26));
se_argc=argc;
se_argv=argv;
signal(SIGINT,sigrsp);
signal(SIGQUIT,sigrsp);
signal(SIGKILL,sigrsp);
se_manifest_strings();
{T0* R;
{T45 *n=((T45*)se_new(45));
/*(IRF3*//*)*/R=(T0 *)n;}
oRBC27eh=R;}/*PCO*/
{T0* R;
{T43 *n=((T43*)se_new(43));
/*(IRF3*//*)*/R=(T0 *)n;}
oRBC27cpp=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC67mapping_c_mem=R;}/*PCO*/
{T0* R;
{T52 *n=((T52*)se_new(52));
/*(IRF3*//*)*/R=(T0 *)n;}
oRBC27small_eiffel=R;}/*PCO*/
{T0* R;
{T44 *n=((T44*)se_new(44));
/*(IRF3*//*)*/R=(T0 *)n;}
oRBC27eiffel_run_control=R;}/*PCO*/
{T0* R;
{T56 *n=((T56*)se_new(56));
rT56make(n,1,20);
R=(T0 *)n;}
oRBC50visited=R;}/*PCO*/
{T0* R;
{T51 *n=((T51*)se_new(51));
/*(IRF3*//*)*/R=(T0 *)n;}
oRBC27eiffel_parser=R;}/*PCO*/
{T0* R;
{T54 *n=((T54*)se_new(54));
rT54make(n);
R=(T0 *)n;}
oRBC52base_class_dictionary=R;}/*PCO*/
{T0* R;
{T41 *n=((T41*)se_new(41));
rT41make(n);
R=(T0 *)n;}
oRBC1std_output=R;}/*PCO*/
{T0* R;
{T263 *n=((T263*)se_new(263));
rT263make(n);
R=(T0 *)n;}
oRBC52run_class_dictionary=R;}/*PCO*/
{T0* R;
{T266 *n=((T266*)se_new(266));
rT266make(n,1,50);
R=(T0 *)n;}
oRBC52stack_rf=R;}/*PCO*/
{T0* R;
{T37 *n=((T37*)se_new(37));
rT37make(n);
R=(T0 *)n;}
oRBC1std_error=R;}/*PCO*/
{T0* R;
{T158 *n=((T158*)se_new(158));
rT158make(n,1,10);
R=(T0 *)n;}
oRBC62assertion_collector=R;}/*PCO*/
{T0* R;
{T269 *n=((T269*)se_new(269));
rT269make(n,1,10);
R=(T0 *)n;}
oRBC62require_collector=R;}/*PCO*/
{T0* R;
T0* _arg=NULL;
int _i=0;
_i=se_argc-1;
{T34 *n=((T34*)se_new(34));
rT34make(n,0,_i);
R=(T0 *)n;}
while (!((_i)<(0))) {
_arg=((T0*)e2s(se_argv[_i]));
rT34put((T34*)R,_arg,_i);
_i=(_i)-(1);
}
oRBC1command_arguments=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC27hlp_file_name=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,128);
R=(T0 *)n;}
oRBC2tmp_string=R;}/*PCO*/
{T0* R;
R=ma(34,0,8,(T0 *)ms179,(T0 *)ms184,(T0 *)ms189,(T0 *)ms186,(T0 *)ms191,(T0 *)ms193,(T0 *)ms195,(T0 *)ms180);
oRBC118forbidden_parent_list=R;}/*PCO*/
{T0* R;
R=ma(34,0,19,(T0 *)ms177,(T0 *)ms178,(T0 *)ms179,(T0 *)ms180,(T0 *)ms181,(T0 *)ms182,(T0 *)ms183,(T0 *)ms184,(T0 *)ms185,(T0 *)ms186,(T0 *)ms187,(T0 *)ms188,(T0 *)ms189,(T0 *)ms190,(T0 *)ms191,(T0 *)ms192,(T0 *)ms193,(T0 *)ms194,(T0 *)ms195);
oRBC48names_memory=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,128);
R=(T0 *)n;}
oRBC48tmp_string=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,25);
R=(T0 *)n;}
oRBC260cdm=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC139c2c_mem=R;}/*PCO*/
{T0* R;
{T60 *n=((T60*)se_new(60));
/*(IRF3*//*)*/R=(T0 *)n;}
oRBC51text=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,80);
R=(T0 *)n;}
oRBC51lcs=R;}/*PCO*/
{T0* R;
R=((T0 *)((T136*)se_new(136)));
oRBC51tmp_feature=R;}/*PCO*/
{T0* R;
R=ma(34,0,1,(T0 *)ms179);
oRBC51forbidden_class=R;}/*PCO*/
{T0* R;
{T34 *n=((T34*)se_new(34));
rT34make(n,1,0);
R=(T0 *)n;}
oRBC60storage=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC58tmp_string=R;}/*PCO*/
{T0* R;
{T56 *n=((T56*)se_new(56));
rT56make(n,1,0);
R=(T0 *)n;}
oRBC116check_memory=R;}/*PCO*/
{T0* R;
R=ma(34,0,53,ms105,ms106,(T0 *)ms97,ms107,(T0 *)ms108,ms109,(T0 *)ms110,ms111,ms112,ms113,(T0 *)ms101,ms114,(T0 *)ms115,ms116,(T0 *)ms117,ms118,ms119,ms120,ms121,ms122,ms123,ms124,(T0 *)ms96,ms125,ms126,ms127,ms128,ms129,ms130,ms131,ms132,ms133,ms134,ms135,ms136,(T0 *)ms100,ms137,ms138,ms139,ms140,ms141,ms142,ms143,ms144,ms145,ms146,ms147,ms148,ms149,ms150,ms151,ms152,(T0 *)ms95);
oRBC69keyword_table=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC69tmp_string=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC262dps=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC262dos=R;}/*PCO*/
{T0* R;
R=ma(34,0,5,ms1550,ms1551,ms1552,ms1553,(T0 *)ms1554);
oRBC274frozen_general=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,10);
R=(T0 *)n;}
oRBC274tmp_string=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,512);
R=(T0 *)n;}
oRBC38tmp_string=R;}/*PCO*/
{T0* R;
{T158 *n=((T158*)se_new(158));
rT158make(n,1,10);
R=(T0 *)n;}
oRBC261collector=R;}/*PCO*/
{T0* R;
{T129 *n=((T129*)se_new(129));
rT129make(n,1,5);
R=(T0 *)n;}
oRBC136names=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC42last_string=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,1024);
R=(T0 *)n;}
oRBC45explanation=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC270ts=R;}/*PCO*/
{T0* R;
R=ma(34,0,6,(T0 *)ms830,(T0 *)ms831,(T0 *)ms825,(T0 *)ms832,(T0 *)ms833,(T0 *)ms834);
oRBC27system_list=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC43tmp_string=R;}/*PCO*/
{T0* R;
{T34 *n=((T34*)se_new(34));
rT34make(n,1,12);
R=(T0 *)n;}
oRBC43stack_string=R;}/*PCO*/
{T0* R;
{T272 *n=((T272*)se_new(272));
rT272make(n,1,12);
R=(T0 *)n;}
oRBC43stack_switch=R;}/*PCO*/
{T0* R;
{T273 *n=((T273*)se_new(273));
rT273make(n,1,12);
R=(T0 *)n;}
oRBC43stack_args=R;}/*PCO*/
{T0* R;
{T81 *n=((T81*)se_new(81));
rT81make(n,1,12);
R=(T0 *)n;}
oRBC43stack_target=R;}/*PCO*/
{T0* R;
{T266 *n=((T266*)se_new(266));
rT266make(n,1,12);
R=(T0 *)n;}
oRBC43stack_rf=R;}/*PCO*/
{T0* R;
{T55 *n=((T55*)se_new(55));
rT55make(n,1,12);
R=(T0 *)n;}
oRBC43stack_code=R;}/*PCO*/
rT26make(n);
exit(0);}}

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