This is finder5.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 "finder.h"
void se_manifest_strings(void){
ms3_26=e2s(": not found.\n");
ms12_44=e2s("\". ");
ms11_44=e2s("set to \"");
ms10_44=e2s("not set. ");
ms9_44=e2s("\" is\n");
ms8_44=e2s("Environment Variable \"");
ms7_44=e2s("\nLoading path is :\n");
ms25_44=e2s("\". ");
ms24_44=e2s("Unable to find file for class \"");
ms23_44=e2s("\".");
ms22_44=e2s("Bad \"rename.se\" file.\nCannot open \"");
ms30_44=e2s(".\n");
ms29_44=e2s("\" and \n\"");
ms28_44=e2s("\" in \"rename.se\" files.\nClash for \n\"");
ms27_44=e2s("Multiple entry for \"");
ms26_44=e2s("rename.se");
ms20_44=e2s(" ");
ms3_44=e2s("lib_std");
ms4_44=e2s("lib_show");
ms5_44=e2s("lib_test");
ms8_27=e2s("\".\n");
ms7_27=e2s("Cannot read file \"");
ms2_44=e2s("loadpath.se");
ms24_27=e2s(".e");
ms21_44=e2s(" ");
ms2_26=e2s("finder");
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 `finder\'.\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[51];
Tstring * gt[51];
Tstring * g[51];
char * p[51];
void se_sz_initialize(void){
s[37]=sizeof(T37);
s[26]=sizeof(T26);
s[35]=sizeof(T35);
s[8]=sizeof(T8);
s[48]=sizeof(T48);
s[38]=sizeof(T38);
s[49]=sizeof(T49);
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[44]=sizeof(T44);
s[42]=sizeof(T42);
s[50]=sizeof(T50);
s[46]=sizeof(T46);
s[3]=sizeof(T3);
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.