/* * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands. * See the copyright notice in the ACK home directory, in the file "Copyright". */ /* $Id$ */ #include #include #include #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 #include char * getwdir(fn) register char *fn; { register char *p; char *strrchr(); p = strrchr(fn, '/'); while (p && *(p + 1) == '\0') { /* remove trailing /'s */ *p = '\0'; p = strrchr(fn, '/'); } if (fn[0] == '\0' || (fn[0] == '/' && p == &fn[0])) /* absolute path */ return ""; if (p) { *p = '\0'; fn = Salloc(fn, (unsigned)(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; }