Initial revision

util/cpp/input.c

@@ -0,0 +1,47 @@
+#include "file_info.h"
+#include "input.h"
+#define INP_TYPE	struct file_info
+#define INP_VAR		finfo
+struct file_info	finfo;
+#include <inp_pkg.body>
+
+char *
+getwdir(fn)
+	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 "";
+	else
+	if (p) {
+		*p = '\0';
+		fn = Salloc(fn, p - &fn[0] + 1);
+		*p = '/';
+		return fn;
+	}
+	else return ".";
+}
+
+int	NoUnstack;
+int	Unstacked;
+
+AtEoIT()
+{
+	if (NoUnstack) error("unexpected EOF");
+	DoUnstack();
+	return 0;
+}
+
+AtEoIF()
+{
+	if (NoUnstack) error("unexpected EOF");
+	return 0;
+}