53 lines
1.3 KiB
C
53 lines
1.3 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"
|
||
|
|
#include <em_path.h>
|
||
|
|
|
||
|
|
#ifndef NORSCID
|
||
|
|
static char rcs_id[] = "$Header$";
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* generate temporary files etc */
|
||
|
|
|
||
|
|
File *tmp_file;
|
||
|
|
File *datfile;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
initialize()
|
||
|
|
{
|
||
|
|
register char *cindex, *cptr;
|
||
|
|
int result1, result2, result3;
|
||
|
|
|
||
|
|
(void) sprint(tmpfname,"%s/abc%d",TMP_DIR,getpid());
|
||
|
|
/* 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);
|
||
|
|
result3 = sys_open(tmpfname,OP_WRITE, &tmp_file);
|
||
|
|
if ( result1==0 || result2== 0 || result3== 0 )
|
||
|
|
fatal("Improper file permissions");
|
||
|
|
fillkex(); /* initialize symbol table */
|
||
|
|
C_ms_emx((arith)BEMINTSIZE,(arith)BEMPTRSIZE);
|
||
|
|
initdeftype(); /* set default symbol declarers */
|
||
|
|
}
|