50 lines
1.1 KiB
C
50 lines
1.1 KiB
C
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
|
|
#include "bem.h"
|
|
|
|
#ifndef NORSCID
|
|
static char rcs_id[] = "$Header$";
|
|
#endif
|
|
|
|
/* generate temporary files etc */
|
|
|
|
File *datfile;
|
|
|
|
|
|
|
|
initialize()
|
|
{
|
|
register char *cindex, *cptr;
|
|
int result1, result2;
|
|
|
|
/* Find the basename */
|
|
/* Strip leading directories */
|
|
cindex= (char *)0;
|
|
for ( cptr=program; *cptr; cptr++ ) if ( *cptr=='/' ) cindex=cptr;
|
|
if ( !cindex ) cindex= program;
|
|
else {
|
|
cindex++;
|
|
if ( !*cindex ) {
|
|
warning("Null program name, assuming \"basic\"");
|
|
cindex= "basic";
|
|
}
|
|
}
|
|
cptr=datfname;
|
|
while ( *cptr++ = *cindex++ );
|
|
/* Strip trailing suffix */
|
|
if ( cptr>datfname+3 && cptr[-3]=='.' ) cptr[-3]=0;
|
|
strcat(datfname,".d");
|
|
C_init((arith)BEMINTSIZE, (arith)BEMPTRSIZE);
|
|
result1 = sys_open(inpfile, OP_READ, &yyin);
|
|
result2 = C_open(outfile);
|
|
if ( result1==0 || result2== 0 )
|
|
fatal("Improper file permissions");
|
|
C_magic();
|
|
fillkex(); /* initialize symbol table */
|
|
C_ms_emx((arith)BEMINTSIZE,(arith)BEMPTRSIZE);
|
|
initdeftype(); /* set default symbol declarers */
|
|
}
|