This is clean3.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"
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;
{T43 *n=((T43*)se_new(43));
/*[IRF3:make*//*AW*/(n)->_mode=((T0 *)ms1_43);/*]*/
R=(T0 *)n;}
oRBC39tmp_file_read=R;}/*PCO*/
{T0* R;
{T38 *n=((T38*)se_new(38));
rT38make(n);
R=(T0 *)n;}
oRBC1std_error=R;}/*PCO*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC43last_string=R;}/*PCO*/
{T0* R;
{T42 *n=((T42*)se_new(42));
rT42make(n);
R=(T0 *)n;}
oRBC1std_output=R;}/*PCO*/
{T0* R;
R=ma(44,0,6,(T0 *)ms12_27,(T0 *)ms13_27,(T0 *)ms14_27,(T0 *)ms15_27,(T0 *)ms16_27,(T0 *)ms17_27);
oRBC27system_list=R;}/*PCO*/
{T0* R;
{T43 *n=((T43*)se_new(43));
/*[IRF3:make*//*AW*/(n)->_mode=((T0 *)ms1_43);/*]*/
R=(T0 *)n;}
oRBC27tmp_file_read=R;}/*PCO*/
{T0* R;
T0* _arg=NULL;
int _i=0;
_i=se_argc;
{T34 *n=((T34*)se_new(34));
rT34make(n,_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,256);
R=(T0 *)n;}
oRBC26tmp_string=R;}/*PCO*/
/*[IRF3:make*/{T0* _str=NULL;
int _arg=0;
/*IF*/if ((/*(IRF4*/((T34*)oRBC1command_arguments)->_upper/*)*/)<(1)) {
rT38put_string((T38*)oRBC1std_error,(T0 *)ms1_26);
rT26print_hlp((T0 *)ms2_26);
rT26die_with_code(1);
}
/*FI*/_arg=1;
while (!((_arg)>(/*(IRF4*/((T34*)oRBC1command_arguments)->_upper/*)*/))) {
_str=rT26argument(_arg);
/*IF*/if (rT7has_suffix((T7*)_str,(T0 *)ms24_27)) {
rT7remove_suffix((T7*)_str,(T0 *)ms24_27);
}
/*FI*/rT26remove_for(_str);
rT7to_upper((T7*)_str);
rT26remove_for(_str);
rT7to_lower((T7*)_str);
rT26remove_for(_str);
_arg=(_arg)+(1);
}
}/*]*/
exit(0);}}
Tstring *ms33_27;
Tstring *ms32_27;
Tstring *ms31_27;
Tstring *ms23_27;
Tstring *ms22_27;
Tstring *ms12_27;
Tstring *ms13_27;
Tstring *ms14_27;
Tstring *ms16_27;
Tstring *ms17_27;
Tstring *ms8_27;
Tstring *ms7_27;
Tstring *ms21_27;
Tstring *ms20_27;
Tstring *ms19_27;
Tstring *ms18_27;
Tstring *ms15_27;
Tstring *ms26_27;
Tstring *ms27_27;
Tstring *ms128_27;
Tstring *ms127_27;
Tstring *ms25_27;
Tstring *ms1_2;
Tstring *ms24_27;
Tstring *ms2_26;
Tstring *ms1_43;
Tstring *ms4_27;
Tstring *ms3_27;
Tstring *ms35_27;
Tstring *ms2_27;
Tstring *ms1_27;
Tstring *ms124_27;
Tstring *ms1_26;
Tstring *ms2_39;
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.