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

This is compile3.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 "compile.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;
{T43 *n=((T43*)se_new(43));
/*[IRF3:make*//*AW*/(n)->_mode=((T0 *)ms1_43);/*]*/
R=(T0 *)n;}
oRBC26make_file=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*/
{T0* R;
{T7 *n=((T7*)se_new(7));
rT7make(n,256);
R=(T0 *)n;}
oRBC43last_string=R;}/*PCO*/
rT26make(n);
exit(0);}}
Tstring *ms14_26;
Tstring *ms26_27;
Tstring *ms1_2;
Tstring *ms13_26;
Tstring *ms12_26;
Tstring *ms11_26;
Tstring *ms10_26;
Tstring *ms9_26;
Tstring *ms128_27;
Tstring *ms127_27;
Tstring *ms33_27;
Tstring *ms32_27;
Tstring *ms31_27;
Tstring *ms16_26;
Tstring *ms24_27;
Tstring *ms25_27;
Tstring *ms27_27;
Tstring *ms15_26;
Tstring *ms8_26;
Tstring *ms7_26;
Tstring *ms6_26;
Tstring *ms5_26;
Tstring *ms30_27;
Tstring *ms29_27;
Tstring *ms28_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 *ms4_26;
Tstring *ms3_26;
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.