Initial revision

lang/cem/cpp.ansi/input.c

@@ -0,0 +1,61 @@
+/*
+ * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ * See the copyright notice in the ACK home directory, in the file "Copyright".
+ */
+/* $Header$ */
+
+#include "file_info.h"
+#include "input.h"
+
+#define INP_PUSHBACK	3
+#define INP_TYPE	struct file_info
+#define INP_VAR		finfo
+struct file_info	finfo;
+#include <inp_pkg.body>
+
+char *
+getwdir(fn)
+	register char *fn;
+{
+	register char *p;
+	char *strrindex();
+
+	p = strrindex(fn, '/');
+	while (p && *(p + 1) == '\0') {	/* remove trailing /'s */
+		*p = '\0';
+		p = strrindex(fn, '/');
+	}
+
+	if (fn[0] == '\0' || (fn[0] == '/' && p == &fn[0])) /* absolute path */
+		return "";
+	if (p) {
+		*p = '\0';
+		fn = Salloc(fn, p - &fn[0] + 1);
+		*p = '/';
+		return fn;
+	}
+	return ".";
+}
+
+int	NoUnstack;
+int	InputLevel;
+
+AtEoIT()
+{
+	InputLevel--;
+	/* if (NoUnstack) warning("unexpected EOF"); ??? */
+	unstackrepl();
+	return 0;
+}
+
+AtEoIF()
+{
+	extern int nestlevel;
+	extern int nestcount;
+	extern int svnestlevel[];
+
+	if (nestlevel > svnestlevel[nestcount]) warning("missing #endif");
+	else if (NoUnstack) warning("unexpected EOF");
+	nestlevel = svnestlevel[nestcount--];
+	return 0;
+}