Added grind support

This commit is contained in:
ceriel
1991-11-08 15:12:28 +00:00
parent 97a7fcbca3
commit 3015fc2542
15 changed files with 239 additions and 48 deletions

View File

@@ -14,7 +14,13 @@ extern int nestlevel;
#include "nopp.h"
#include <inp_pkg.body>
#include "dbsymtab.h"
#ifndef NOPP
#ifdef DBSYMTAB
#include <stb.h>
extern int IncludeLevel;
extern char options[];
#endif
char *
getwdir(fn)
register char *fn;
@@ -64,6 +70,12 @@ AtEoIF()
if (NoUnstack) lexerror("unexpected EOF");
#ifndef NOPP
nestlevel = nestlow;
#ifdef DBSYMTAB
if (options['g'] && IncludeLevel > 0) {
C_ms_std(FileName, N_EINCL, 0);
}
IncludeLevel--;
#endif
#endif
return 0;
}