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

This is pretty10.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 "pretty.h"
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;
}
void rT127standard_copy(T127 *C,T0* a1){
memcpy(C,a1,s[a1->id]);
}
void rT127copy(T127 *C,T0* a1){
int _i=0;
C->_upper=((C)->_lower)-(1);
/*IF*/if (((C)->_capacity)==(0)) {
rT127make(C,((T127*)a1)->_lower,((T127*)a1)->_upper);
}
else {
rT127resize(C,((T127*)a1)->_lower,((T127*)a1)->_upper);
}
/*FI*/_i=(C)->_lower;
while (!((_i)>((C)->_upper))) {
rT127put(C,rT127item((T127*)a1,_i),_i);
_i=(_i)+(1);
}
}
void rT127make(T127 *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=rT127malloc(C,(C)->_capacity);
rT127clear_all(C);
}
/*FI*/}
int rT128count(T128 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT128item(T128 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT128realloc(T128 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT128add_last(T128 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT128count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT128malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT128realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT128put(C,a1,(C)->_upper);
}
T0** rT128malloc(T128 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT128put(T128 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
int rT132count(T132 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT132item(T132 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT132realloc(T132 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT132add_last(T132 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT132count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT132malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT132realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT132put(C,a1,(C)->_upper);
}
T0** rT132malloc(T132 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT132put(T132 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
int rT139count(T139 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT139item(T139 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT139realloc(T139 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT139add_last(T139 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT139count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT139malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT139realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT139put(C,a1,(C)->_upper);
}
T0** rT139malloc(T139 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT139put(T139 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
T0* rT141first(T141 *C){
T0* R=NULL;
R=rT141item(C,(C)->_lower);
return R;
}
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;
}
void rT145clear_all(T145 *C){
T0* _value=NULL;
rT145set_all_with(C,_value);
}
int rT145count(T145 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT145set_all_with(T145 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT145put(C,a1,_i);
_i=(_i)-(1);
}
}
T0* rT145item(T145 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT145realloc(T145 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT145add_last(T145 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT145count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT145malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT145realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT145put(C,a1,(C)->_upper);
}
T0** rT145malloc(T145 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT145put(T145 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT145make(T145 *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=rT145malloc(C,(C)->_capacity);
rT145clear_all(C);
}
/*FI*/}
void rT149clear_all(T149 *C){
T0* _value=NULL;
rT149set_all_with(C,_value);
}
int rT149count(T149 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
void rT149set_all_with(T149 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<((C)->_lower))) {
rT149put(C,a1,_i);
_i=(_i)-(1);
}
}
T0* rT149item(T149 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT149realloc(T149 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT149add_last(T149 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT149count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT149malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT149realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT149put(C,a1,(C)->_upper);
}
T0** rT149malloc(T149 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT149put(T149 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
void rT149make(T149 *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=rT149malloc(C,(C)->_capacity);
rT149clear_all(C);
}
/*FI*/}
int rT156count(T156 *C){
int R=0;
R=(((C)->_upper)-((C)->_lower))+(1);
return R;
}
T0* rT156item(T156 *C,int a1){
T0* R=NULL;
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/R=(((C->_storage))[a1-(C->_lower)]);
return R;
}
T0** rT156realloc(T156 *C,T0** a1,int a2){
T0** R=0;
R=realloc(a1,((size_t)(a2*sizeof(*(C->_storage)))));
return R;
}
void rT156add_last(T156 *C,T0* a1){
/*IF*//*AF*//*AE*/
/*FI*//*IF*/if (((C)->_capacity)<((rT156count(C))+(1))) {
/*IF*/if (((C)->_capacity)==(0)) {
C->_capacity=16;
C->_storage=rT156malloc(C,(C)->_capacity);
}
else {
C->_capacity=((C)->_capacity)+(16);
C->_storage=rT156realloc(C,(C)->_storage,(C)->_capacity);
}
/*FI*/}
/*FI*/C->_upper=((C)->_upper)+(1);
rT156put(C,a1,(C)->_upper);
}
T0** rT156malloc(T156 *C,int a1){
T0** R=0;
R=malloc((size_t)(a1*sizeof(*(C->_storage))));
return R;
}
void rT156put(T156 *C,T0* a1,int a2){
/*IF*//*AF*//*AE*/
/*FI*//*IF*//*AF*//*AE*/
/*FI*/((C->_storage)[a2-(C->_lower)])=a1;
}
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;
{T260 *n=((T260*)se_new(260));
/*(IRF3*//*)*/R=(T0 *)n;}
oRBC27fmt=R;}/*PCO*/
{T0* R;
{T43 *n=((T43*)se_new(43));
/*(IRF3*//*)*/R=(T0 *)n;}
oRBC27eh=R;}/*PCO*/
{T0* R;
{T50 *n=((T50*)se_new(50));
/*(IRF3*//*)*/R=(T0 *)n;}
oRBC27small_eiffel=R;}/*PCO*/
{T0* R;
{T49 *n=((T49*)se_new(49));
/*(IRF3*//*)*/R=(T0 *)n;}
oRBC27eiffel_parser=R;}/*PCO*/
{T0* R;
{T52 *n=((T52*)se_new(52));
rT52make(n);
R=(T0 *)n;}
oRBC50base_class_dictionary=R;}/*PCO*/
{T0* R;
{T37 *n=((T37*)se_new(37));
rT37make(n);
R=(T0 *)n;}
oRBC1std_error=R;}/*PCO*/
{T0* R;
{T259 *n=((T259*)se_new(259));
/*(IRF3*//*)*/R=(T0 *)n;}
oRBC27eiffel_run_control=R;}/*PCO*/
{T0* R;
R=ma(34,0,8,(T0 *)ms177,(T0 *)ms182,(T0 *)ms187,(T0 *)ms184,(T0 *)ms189,(T0 *)ms191,(T0 *)ms193,(T0 *)ms178);
oRBC116forbidden_parent_list=R;}/*PCO*/
{T0* R;
R=ma(34,0,19,(T0 *)ms175,(T0 *)ms176,(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);
oRBC46names_memory=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,128);
R=(T0 *)n;}
oRBC46tmp_string=R;}/*PCO*/
{T0* R;
{T58 *n=((T58*)se_new(58));
/*(IRF3*//*)*/R=(T0 *)n;}
oRBC49text=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,80);
R=(T0 *)n;}
oRBC49lcs=R;}/*PCO*/
{T0* R;
{T41 *n=((T41*)se_new(41));
rT41make(n);
R=(T0 *)n;}
oRBC1std_output=R;}/*PCO*/
{T0* R;
R=((T0 *)((T134*)se_new(134)));
oRBC49tmp_feature=R;}/*PCO*/
{T0* R;
R=ma(34,0,1,(T0 *)ms177);
oRBC49forbidden_class=R;}/*PCO*/
{T0* R;
{T34 *n=((T34*)se_new(34));
rT34make(n,1,0);
R=(T0 *)n;}
oRBC58storage=R;}/*PCO*/
{T0* R;
R=ma(34,0,53,ms103,ms104,(T0 *)ms95,ms105,(T0 *)ms106,ms107,(T0 *)ms108,ms109,ms110,ms111,(T0 *)ms99,ms112,(T0 *)ms113,ms114,(T0 *)ms115,ms116,ms117,ms118,ms119,ms120,ms121,ms122,(T0 *)ms94,ms123,ms124,ms125,ms126,ms127,ms128,ms129,ms130,ms131,ms132,ms133,ms134,(T0 *)ms98,ms135,ms136,ms137,ms138,ms139,ms140,ms141,ms142,ms143,ms144,ms145,ms146,ms147,ms148,ms149,ms150,(T0 *)ms93);
oRBC67keyword_table=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC67tmp_string=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,512);
R=(T0 *)n;}
oRBC38tmp_string=R;}/*PCO*/
{T0* R;
{T127 *n=((T127*)se_new(127));
rT127make(n,1,5);
R=(T0 *)n;}
oRBC134names=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC42last_string=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;}
oRBC26path=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,256);
R=(T0 *)n;}
oRBC26backup=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,1024);
R=(T0 *)n;}
oRBC43explanation=R;}/*PCO*/
{T0* R;
{T74 *n=((T74*)se_new(74));
/*(IRF3*/((n)->_to_string)=((T0 *)ms559);
/*)*/R=(T0 *)n;}
oRBC206langage_name=R;}/*PCO*/
{T0* R;
{T74 *n=((T74*)se_new(74));
/*(IRF3*/((n)->_to_string)=((T0 *)ms560);
/*)*/R=(T0 *)n;}
oRBC207langage_name=R;}/*PCO*/
{T0* R;
{T74 *n=((T74*)se_new(74));
/*(IRF3*/((n)->_to_string)=((T0 *)ms561);
/*)*/R=(T0 *)n;}
oRBC208langage_name=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.