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

Also skip lint comments in skip_block()

Browse source
This commit is contained in:
ceriel 1993-06-09 10:17:44 +00:00
parent 1ad085cfb8
commit 4ff171c1a5
2 changed files with 31 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lang/cem/cemcom/LLlex.c
View file

@ -39,6 +39,9 @@ int SkipEscNewline = 0; /* how to interpret backslash-newline */
int AccFileSpecifier = 0; /* return filespecifier <...> */
int EoiForNewline = 0; /* return EOI upon encountering newline */
int File_Inserted = 0; /* a file has just been inserted */
#ifdef LINT
extern int lint_skip_comment;
#endif
#define MAX_LL_DEPTH 2
@ -451,8 +454,10 @@ skipcomment()
NoUnstack++;
LoadChar(c);
#ifdef LINT
lint_start_comment();
lint_comment_char(c);
if (! lint_skip_comment) {
lint_start_comment();
lint_comment_char(c);
}
#endif /* LINT */
do {
while (c != '*') {
@ -462,22 +467,22 @@ skipcomment()
if (c == EOI) {
NoUnstack--;
#ifdef LINT
lint_end_comment();
if (! lint_skip_comment) lint_end_comment();
#endif /* LINT */
return;
}
LoadChar(c);
#ifdef LINT
lint_comment_char(c);
if (! lint_skip_comment) lint_comment_char(c);
#endif /* LINT */
} /* last Character seen was '*' */
LoadChar(c);
#ifdef LINT
lint_comment_char(c);
if (! lint_skip_comment) lint_comment_char(c);
#endif /* LINT */
} while (c != '/');
#ifdef LINT
lint_end_comment();
if (! lint_skip_comment) lint_end_comment();
#endif /* LINT */
NoUnstack--;
}

20
lang/cem/cemcom/domacro.c
View file

@ -13,6 +13,7 @@
#include "idf.h"
#include "input.h"
#include "nopp.h"
#include "lint.h"
#ifndef NOPP
#include "ifdepth.h"
@ -137,6 +138,10 @@ domacro()
SkipEscNewline = 0;
}
#ifdef LINT
int lint_skip_comment;
#endif
PRIVATE
skip_block(to_endif)
{
@ -152,12 +157,18 @@ skip_block(to_endif)
register int skiplevel = nestlevel; /* current nesting level */
struct token tk;
#ifdef LINT
lint_skip_comment++;
#endif
NoUnstack++;
for (;;) {
LoadChar(ch); /* read first character after newline */
if (ch != '#') {
if (ch == EOI) {
NoUnstack--;
#ifdef LINT
lint_skip_comment--;
#endif
return;
}
SkipRestOfLine();
@ -190,6 +201,9 @@ skip_block(to_endif)
push_if();
if (ifexpr()) {
NoUnstack--;
#ifdef LINT
lint_skip_comment--;
#endif
return;
}
}
@ -203,6 +217,9 @@ skip_block(to_endif)
++(ifstack[nestlevel]);
if (nestlevel == skiplevel) {
NoUnstack--;
#ifdef LINT
lint_skip_comment--;
#endif
return;
}
}
@ -213,6 +230,9 @@ skip_block(to_endif)
if (nestlevel == skiplevel) {
nestlevel--;
NoUnstack--;
#ifdef LINT
lint_skip_comment--;
#endif
return;
}
nestlevel--;