This is compile4.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"
void se_manifest_strings(void){
ms14_26=e2s("Done.\n");
ms26_27=e2s(".h");
ms1_2=e2s("0123456789");
ms13_26=e2s("C code not removed (-c_code).\n");
ms12_26=e2s("\" command file.\n");
ms11_26=e2s("C compiling using \"");
ms10_26=e2s("\" not found. Error(s) during `compile_to_c\'.\n");
ms9_26=e2s("File \"");
ms128_27=e2s("\"\n");
ms127_27=e2s("Removing \"");
ms33_27=e2s(".make");
ms32_27=e2s(".CMD");
ms31_27=e2s(".BAT");
ms16_26=e2s("-o");
ms24_27=e2s(".e");
ms25_27=e2s(".c");
ms27_27=e2s(".o");
ms15_26=e2s("-c_code");
ms8_26=e2s("\" must be set to a correct value.\nOr install not done correctly.\n");
ms7_26=e2s("\" not found.\nEnvironment variable \"");
ms6_26=e2s("File \"");
ms5_26=e2s("Cannot find command `compile_to_c\'.\n");
ms30_27=e2s("");
ms29_27=e2s(".exe");
ms28_27=e2s(".EXE");
ms23_27=e2s("\".\nCurrently handled system :\n");
ms22_27=e2s("Unknow system name in file\n\"");
ms12_27=e2s("UNIX");
ms13_27=e2s("Windows");
ms14_27=e2s("Macintosh");
ms16_27=e2s("OS2");
ms17_27=e2s("Amiga");
ms8_27=e2s("\".\n");
ms7_27=e2s("Cannot read file \"");
ms21_27=e2s("\".\n");
ms20_27=e2s("Unable to find system name file\n\"");
ms19_27=e2s("system.se");
ms18_27=e2s("bin");
ms15_27=e2s("DOS");
ms4_26=e2s("compile_to_c");
ms3_26=e2s("bin");
ms2_26=e2s("compile");
ms1_43=e2s("r");
ms4_27=e2s("\".\n");
ms3_27=e2s("Unable to find help file \"");
ms35_27=e2s(".hlp");
ms2_27=e2s("man");
ms1_27=e2s("/usr/local/logiciel/SmallEiffel");
ms124_27=e2s("SmallEiffel");
ms1_26=e2s("Bad use of command `compile\'.\n");
ms2_39=e2s("Error while writing character.");
}
char *s2e(Tstring *s){
char *e=(char*)malloc(((size_t)(s->_count)+1));
memcpy(e,s->_storage,s->_count);
e[s->_count]='\0';
return e;
}
Tstring *e2s(char *e){
Tstring *s=(Tstring*)se_new(7);
if (e!=NULL) {
s->_capacity=strlen(e)+1;
s->_count=(s->_capacity)-1;
s->_storage=(char *)malloc(((size_t)sizeof(char)*s->_capacity));
strcpy(s->_storage,e);}
return s;
}
T0 *ma(int aid,int eid,int argc,...){
va_list pa;
Tarray *a=((Tarray *)se_new(aid));
char* store=0;
a->_capacity=argc;
a->_lower=1;
a->_upper=argc;
a->_storage=NULL;
if (argc) {va_start(pa,argc);
if (eid) store=(char*)malloc(((size_t)argc*(s[eid])));
else store=(char*)malloc(((size_t)argc*(sizeof(char*))));
a->_storage=(T0**)store;
switch (eid){
case 0:case 8:
while (argc--){*((char**)store)=va_arg(pa,char*);
store+=sizeof(char*);}break;
case 2:case 6:
while (argc--){*((int*)store)=va_arg(pa,int);
store+=sizeof(int);}break;
case 3:
while (argc--){*((char*)store)=((char)va_arg(pa,int));
store+=sizeof(char);}break;
case 4:
while (argc--){*((float*)store)=va_arg(pa,double);
store+=sizeof(float);}break;
case 5:
while (argc--){*((double*)store)=va_arg(pa,double);
store+=sizeof(double);}break;
while (argc--){
memcpy(*((char**)va_arg(pa,T0 *)),store,s[eid]);
store+=s[eid];}}
va_end(pa);}
return ((T0*)a);
}
void rsp(void){
printf("Eiffel program crash at run time.\n");
printf("No trace when using option \"-boost\"\n");
exit(1);
}
void sigrsp(int sig){
printf("Received signal %d (man signal).\n",sig);
rsp();
exit(1);
}
size_t s[46];
Tstring * gt[46];
Tstring * g[46];
char * p[46];
void se_sz_initialize(void){
s[37]=sizeof(T37);
s[35]=sizeof(T35);
s[8]=sizeof(T8);
s[38]=sizeof(T38);
s[43]=sizeof(T43);
s[34]=sizeof(T34);
s[7]=sizeof(T7);
s[36]=sizeof(T36);
s[6]=sizeof(T6);
s[2]=sizeof(T2);
s[26]=sizeof(T26);
s[42]=sizeof(T42);
s[44]=sizeof(T44);
s[3]=sizeof(T3);
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.