This is clean1.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 "clean.h"
T0 *se_new(int id){
int sz=s[id];
T0 *n=malloc((size_t)sz);
memset(n,0,sz);
n->id=id;
return n;
}
T0*oRBC26tmp_string;
/*CLEAN*/T0* rT26get_environment_variable(/*C*/T0* a1){
T0* R=NULL;
void * _p=0;
_p=rT7to_external((T7*)a1);
_p=((void*)getenv((char*)_p));
/*IF*/if (((int)_p)) {
R=(T0*)e2s((char*)_p);
}
/*FI*/return R;
}
int ofBC27directory_separator=0;
T3 oRBC27directory_separator;
/*CLEAN*/char rT26directory_separator(/*C*/void){
if (ofBC27directory_separator==0){
char R=0;
ofBC27directory_separator=1;
R=rT7last((T7*)rT26small_eiffel_directory());
oRBC27directory_separator=R;}
return oRBC27directory_separator;}
/*CLEAN*/void rT26die_with_code(/*C*/int a1){
exit(a1);
}/*CLEAN*/void rT26remove_file(/*C*/T0* a1){
void * _p=0;
_p=rT7to_external((T7*)a1);
remove(((char*)_p));
}/*CLEAN*/void rT26remove_for(/*C*/T0* a1){
int _i=0;
_i=1;
while (!((_i)==(0))) {
rT7copy((T7*)oRBC26tmp_string,a1);
rT2append_in(_i,oRBC26tmp_string);
rT7append((T7*)oRBC26tmp_string,(T0 *)ms25_27);
/*IF*/if (rT26file_exists(oRBC26tmp_string)) {
rT26echo_remove_file(oRBC26tmp_string);
rT7extend((T7*)oRBC26tmp_string,'\176');
rT26echo_remove_file(oRBC26tmp_string);
rT7remove_last((T7*)oRBC26tmp_string,1);
rT7remove_suffix((T7*)oRBC26tmp_string,(T0 *)ms25_27);
rT7append((T7*)oRBC26tmp_string,(T0 *)ms27_27);
rT26echo_remove_file(oRBC26tmp_string);
_i=(_i)+(1);
}
else {
_i=0;
}
/*FI*/}
rT7copy((T7*)oRBC26tmp_string,a1);
rT7append((T7*)oRBC26tmp_string,(T0 *)ms26_27);
rT26echo_remove_file(oRBC26tmp_string);
rT7copy((T7*)oRBC26tmp_string,a1);
rT7append((T7*)oRBC26tmp_string,rT26make_suffix());
rT26echo_remove_file(oRBC26tmp_string);
}T0*oRBC27hlp_file_name;
/*CLEAN*/void rT26add_directory(/*C*/T0* a1,T0* a2){
rT7append((T7*)a1,a2);
rT7extend((T7*)a1,rT26directory_separator());
}/*CLEAN*/void rT26print_hlp(/*C*/T0* a1){
rT7copy((T7*)oRBC27hlp_file_name,rT26small_eiffel_directory());
rT26add_directory(oRBC27hlp_file_name,(T0 *)ms2_27);
rT7append((T7*)oRBC27hlp_file_name,a1);
/*IF*/if (!(rT7has_suffix((T7*)oRBC27hlp_file_name,(T0 *)ms35_27))) {
rT7append((T7*)oRBC27hlp_file_name,(T0 *)ms35_27);
}
/*FI*//*IF*/if (!(rT26file_exists(oRBC27hlp_file_name))) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms3_27);
rT38put_string((T38*)oRBC1std_error,oRBC27hlp_file_name);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms4_27);
rT26die_with_code(1);
}
/*FI*/rT42append_file((T42*)oRBC1std_output,oRBC27hlp_file_name);
}T0*oRBC1command_arguments;
T0*oRBC1std_error;
/*CLEAN*/void rT26open_read(/*C*/T0* a1,T0* a2){
rT43connect_to((T43*)a1,a2);
/*IF*/if (!(rT43is_connected((T43*)a1))) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms7_27);
rT38put_string((T38*)oRBC1std_error,a2);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms8_27);
rT26die_with_code(1);
}
/*FI*/}T0*oRBC27tmp_file_read;
T0*oRBC27system_list;
int ofBC27system_name=0;
T0*oRBC27system_name;
/*CLEAN*/T0* rT26system_name(/*C*/void){
if (ofBC27system_name==0){
T0* R=NULL;
int _i=0;
T0* _path=NULL;
ofBC27system_name=1;
_path=rT7twin((T7*)rT26small_eiffel_directory());
rT26add_directory(_path,(T0 *)ms18_27);
rT7append((T7*)_path,(T0 *)ms19_27);
/*IF*/if (!(rT26file_exists(_path))) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms20_27);
rT38put_string((T38*)oRBC1std_error,_path);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms21_27);
rT26die_with_code(1);
}
/*FI*/rT26open_read(oRBC27tmp_file_read,_path);
rT43read_word((T43*)oRBC27tmp_file_read);
R=oRBC43last_string;
_i=rT44index_of((T44*)oRBC27system_list,R);
rT43disconnect((T43*)oRBC27tmp_file_read);
/*IF*/if ((_i)>(((T44*)oRBC27system_list)->_upper)) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms22_27);
rT38put_string((T38*)oRBC1std_error,_path);
rT38put_string((T38*)oRBC1std_error,(T0 *)ms23_27);
_i=1;
while (!((_i)>(((T44*)oRBC27system_list)->_upper))) {
rT38put_string((T38*)oRBC1std_error,rT44item((T44*)oRBC27system_list,_i));
rT38put_character((T38*)oRBC1std_error,'\12');
_i=(_i)+(1);
}
}
else {
R=rT44item((T44*)oRBC27system_list,_i);
}
/*FI*/oRBC27system_name=R;}
return oRBC27system_name;}
T0*oRBC1std_output;
int ofBC27small_eiffel_directory=0;
T0*oRBC27small_eiffel_directory;
/*CLEAN*/T0* rT26small_eiffel_directory(/*C*/void){
if (ofBC27small_eiffel_directory==0){
T0* R=NULL;
char _slash=0;
int _i=0;
ofBC27small_eiffel_directory=1;
R=rT26get_environment_variable((T0 *)ms124_27);
/*IF*/if (!(R)) {
R=rT7twin((T7*)(T0 *)ms124_27);
rT7to_upper((T7*)R);
R=rT26get_environment_variable(R);
/*IF*/if (((int)R)) {
rT7to_upper((T7*)(T0 *)ms124_27);
}
/*FI*/}
/*FI*//*IF*/if (!(R)) {
R=(T0 *)ms1_27;
}
/*FI*/_i=((T7*)R)->_count;
while (!((_i)<(0))) {
_slash=rT7item((T7*)R,_i);
/*IF*/if ((rT3is_letter(_slash))||(rT3is_digit(_slash))) {
_i=(_i)-(1);
}
else {
_i=-(1);
}
/*FI*/}
/*IF*/if ((_i)==(0)) {
rT7extend((T7*)R,'\57');
}
else if (!((rT7last((T7*)R))==(_slash))) {
rT7extend((T7*)R,_slash);
}
/*FI*/oRBC27small_eiffel_directory=R;}
return oRBC27small_eiffel_directory;}
/*CLEAN*/T0* rT26argument(/*C*/int a1){
T0* R=NULL;
R=rT34item((T34*)oRBC1command_arguments,a1);
return R;
}
int ofBC27make_suffix=0;
T0*oRBC27make_suffix;
/*CLEAN*/T0* rT26make_suffix(/*C*/void){
if (ofBC27make_suffix==0){
T0* R=NULL;
ofBC27make_suffix=1;
/*IF*/if (((T0 *)(T0 *)ms15_27)==((T0 *)rT26system_name())) {
R=(T0 *)ms31_27;
}
else if (((T0 *)(T0 *)ms16_27)==((T0 *)rT26system_name())) {
R=(T0 *)ms32_27;
}
else {
R=(T0 *)ms33_27;
}
/*FI*/oRBC27make_suffix=R;}
return oRBC27make_suffix;}
/*CLEAN*/void rT26echo_remove_file(/*C*/T0* a1){
/*IF*/if (rT26file_exists(a1)) {
rT42put_string((T42*)oRBC1std_output,(T0 *)ms127_27);
rT42put_string((T42*)oRBC1std_output,a1);
rT42put_string((T42*)oRBC1std_output,(T0 *)ms128_27);
rT26remove_file(a1);
}
/*FI*/}/*CLEAN*/int rT26file_exists(/*C*/T0* a1){
int R=0;
void * _p=0;
_p=rT7to_external((T7*)a1);
{FILE *f=fopen(((char*)_p),"r");
R=(f != NULL);
if (R) fclose(f);}
return R;
}
/*STD_ERROR*/void rT38die_with_code(/*C*/int a1){
exit(a1);
}/*STD_ERROR*/void rT38put_string(T38 *C,T0* a1){
int _i=0;
_i=1;
while (!((_i)>(((T7*)a1)->_count))) {
rT38put_character(C,rT7item((T7*)a1,_i));
_i=(_i)+(1);
}
}/*STD_ERROR*/void rT38put_character(T38 *C,char a1){
char _err=0;
_err=fputc(a1,(C)->_output_stream);
/*IF*/if ((_err)!=(a1)) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms2_39);
/*[IRF3:crash*/rsp();
rT38die_with_code(1);
/*]*/
}
/*FI*/}/*STD_ERROR*/void rT38make(T38 *C){
C->_output_stream=stderr;
}/*STD_FILE_READ*/int rT43feof(T43 *C,void * a1){
int R=0;
R=feof((FILE*)C->_input_stream);
return R;
}
/*STD_FILE_READ*/int rT43end_of_input(T43 *C){
int R=0;
R=rT43feof(C,(C)->_input_stream);
return R;
}
/*STD_FILE_READ*/int rT43is_connected(T43 *C){
int R=0;
R=((int)(C)->_path);
return R;
}
/*STD_FILE_READ*/void rT43disconnect(T43 *C){
int _err=0;
_err=fclose((C)->_input_stream);
C->_path=NULL;
}T0*oRBC43last_string;
/*STD_FILE_READ*/char rT43last_character(T43 *C){
char R=0;
R=(C)->_last_character_memory;
return R;
}
/*STD_FILE_READ*/void rT43connect_to(T43 *C,T0* a1){
/*[IRF3:make*//*AW*/(C)->_mode=((T0 *)ms1_43);/*]*/
C->_input_stream=rT43fopen(a1,(C)->_mode);
/*IF*/{/*AT*/C->_path=a1;
}
/*FI*/}/*STD_FILE_READ*/void rT43skip_separators(T43 *C){
while (!((rT43end_of_input(C))||(!(rT3is_separator(rT43last_character(C)))))) {
rT43read_character(C);
}
}/*STD_FILE_READ*/void * rT43fopen(/*C*/T0* a1,T0* a2){
void * R=0;
void * _pm=0;
void * _pf=0;
_pf=rT7to_external((T7*)a1);
_pm=rT7to_external((T7*)a2);
R=(void*)fopen(((char*)_pf),((char*)_pm));
return R;
}
/*STD_FILE_READ*/void rT43read_word(T43 *C){
rT43skip_separators(C);
/*[IRF3:clear*//*AW*/((T7*)oRBC43last_string)->_count=(0);/*]*/
while (!((rT43end_of_input(C))||(rT3is_separator(rT43last_character(C))))) {
rT7extend((T7*)oRBC43last_string,rT43last_character(C));
rT43read_character(C);
}
}/*STD_FILE_READ*/void rT43read_character(T43 *C){
C->_last_character_memory=fgetc((C)->_input_stream);
}/*FIXED_ARRAY[STRING]*/void rT34clear_all(T34 *C){
T0* _value=NULL;
rT34set_all_with(C,_value);
}/*FIXED_ARRAY[STRING]*/void rT34set_all_with(T34 *C,T0* a1){
int _i=0;
_i=(C)->_upper;
while (!((_i)<(0))) {
rT34put(C,a1,_i);
_i=(_i)-(1);
}
}/*FIXED_ARRAY[STRING]*/T0* rT34item(T34 *C,int a1){
T0* R=NULL;
R=(((T0**)(C->_storage))[a1]);
return R;
}
/*FIXED_ARRAY[STRING]*/T0** rT34realloc(/*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;
}
/*FIXED_ARRAY[STRING]*/T0** rT34malloc(/*C*/int a1){
T0** R=0;
T37 _mem={0/*dummy*/};
T0* _x=NULL;
/*IF*//*AF*//*AE*/
R=malloc((a1)*(sizeof(char *)));
/*FI*/return R;
}
/*FIXED_ARRAY[STRING]*/void rT34put(T34 *C,T0* a1,int a2){
((T0**)(C->_storage))[a2]=a1;
}
/*FIXED_ARRAY[STRING]*/void rT34make(T34 *C,int a1){
/*IF*/if (((int)(C)->_storage)) {
C->_storage=rT34realloc((C)->_storage,a1);
}
else {
C->_storage=rT34malloc(a1);
}
/*FI*/C->_upper=(a1)-(1);
rT34clear_all(C);
}These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.