godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

force first line directive

Browse Source
This commit is contained in:
ceriel 1987-01-12 14:21:14 +00:00
parent 46ce3ce464
commit fda21b626c
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
util/cpp/preprocess.c
View File

@ -27,7 +27,7 @@ preprocess(fn)
register int c;
register char *op = _obuf;
register char *ob = &_obuf[OBUFSIZE];
int lineno = 0;
int lineno = 32767; /* force line directive */
extern char options[];
#define flush(X) (sys_write(STDOUT,_obuf,X))
@ -44,17 +44,18 @@ preprocess(fn)
newline();
LoadChar(c);
}
if (! options['P'] &&
(lineno != LineNumber || fn != FileName)) {
char Xbuf[256];
register char *p = Xbuf;
if (lineno != LineNumber || fn != FileName) {
fn = FileName;
lineno = LineNumber;
sprint(p, "# %d \"%s\"\n", LineNumber,
FileName);
while (*p) {
echo(*p++);
if (! options['P']) {
char Xbuf[256];
register char *p = Xbuf;
sprint(p, "# %d \"%s\"\n", LineNumber,
FileName);
while (*p) {
echo(*p++);
}
}
}
for (;;) {