Initial revision

lang/basic/src/compile.c

@@ -0,0 +1,30 @@
+/*
+ * (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
+
+
+/* compile the next program in the list */
+/* Here we should open the input file. (for the future) */
+
+File *yyin;
+
+compileprogram()
+{
+	extern int basicline;
+
+	prologcode();
+	prolog2(); /* Some statements are moved from prolog2 to 
+                      epilogcode in the new version of the compiler */
+
+	while( basicline = 0, getline())
+		(void) LLparse();
+	epilogcode(); 	
+	(void) sys_close(yyin);
+}