d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

SkipToNewLine() now recognizes strings and character constants

Browse source
This commit is contained in:
eck 1989-12-12 12:41:39 +00:00
parent 9bab5d363c
commit 24a1c0d390
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lang/cem/cpp.ansi/skip.c
View file

@ -60,9 +60,20 @@ SkipToNewLine()
{ {
register int ch; register int ch;
register int garbage = 0; register int garbage = 0;
register int delim = 0;
while ((ch = GetChar()) != '\n') { while ((ch = GetChar()) != '\n') {
if (ch == '/') { if (delim) {
if (ch == '\\') {
if (GetChar() == '\n') break;
} else if (ch == delim) {
delim = 0;
}
continue;
} else if (ch == '\'' || ch == '\"') {
delim = ch;
garbage = 1;
} else if (ch == '/') {
if ((ch = GetChar()) == '*' && !InputLevel) { if ((ch = GetChar()) == '*' && !InputLevel) {
skipcomment(); skipcomment();
continue; continue;
@ -71,6 +82,7 @@ SkipToNewLine()
if (!is_wsp(ch)) if (!is_wsp(ch))
garbage = 1; garbage = 1;
} }
if (delim) strict("unclosed opening %c", delim);
++LineNumber; ++LineNumber;
return garbage; return garbage;
} }