12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 |
- /*
- * (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[] = "$Id$";
- #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 */
- }
|