/* * (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 "inputtype.h" #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 "nopp.h" #include #include #include "dbsymtab.h" #include "lint.h" #ifndef NOPP #ifdef DBSYMTAB #include #include extern int IncludeLevel; extern char options[]; #endif 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 InputLevel; extern int nestlevel; #endif /* NOPP */ int NoUnstack; AtEoIT() { #ifndef NOPP InputLevel--; unstackrepl(); #endif /* NOPP */ return 0; } extern char *source; AtEoIF() { #ifndef NOPP if (nestlevel != nestlow) lexwarning("missing #endif"); else #endif /* NOPP */ if (NoUnstack) lexerror("unexpected EOF"); #ifndef NOPP nestlevel = nestlow; #ifdef DBSYMTAB if (options['g'] && IncludeLevel > 0) { C_ms_stb_cst(FileName, N_EINCL, 0, (arith) 0); } IncludeLevel--; #endif if (WorkingDir[0] != '\0') free(WorkingDir); #endif /* NOPP */ #ifndef LINT if (FileName != source) free(FileName); #endif return 0; }