some fixes, f.i. process # in actual parameter list

This commit is contained in:
ceriel
1989-10-12 11:16:02 +00:00
parent 5281bcf441
commit 0fe46680f1
3 changed files with 18 additions and 5 deletions

View File

@@ -16,12 +16,17 @@ skipspaces(ch, skipnl)
/* skipspaces() skips any white space and returns the first
non-space character.
*/
register int nlseen = 0;
for (;;) {
while (class(ch) == STSKIP)
while (class(ch) == STSKIP) {
nlseen = 0;
LoadChar(ch);
}
if (skipnl && class(ch) == STNL) {
LoadChar(ch);
++LineNumber;
nlseen++;
continue;
}
/* How about "\\\n"????????? */
@@ -36,7 +41,13 @@ skipspaces(ch, skipnl)
return '/';
}
}
else
else if (nlseen && ch == '#') {
domacro();
LoadChar(ch);
/* ch is the first character of a line. This means
* that nlseen will still be true.
*/
} else
return ch;
}
}