Initial revision

lang/basic/src/initialize.c

@@ -0,0 +1,52 @@
+/*
+ * (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 */
+}