godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions 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
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--;
}