The version of basic copied from Martin Kerstens directory.

lang/basic/src.old/yywrap.c

@@ -0,0 +1,17 @@
+#include "bem.h"
+
+/* Author: M.L. Kersten
+** yywrap is called upon encountering endoffile on yyin.
+** when more input files are present, it moves to the next
+** otherwise -1 is returned and simultaneous endofinput is set
+*/
+int endofinput =0;
+
+
+yywrap()
+{
+	if( fclose(yyin) == EOF)
+		fatal("fclose problems ");
+	/* check for next input file */
+	return(-1);
+}