130 lines
2.3 KiB
C
130 lines
2.3 KiB
C
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
/* $Header$ */
|
|
/* Lint-specific comment handling */
|
|
|
|
#include "lint.h"
|
|
|
|
#ifdef LINT
|
|
|
|
#include "arith.h"
|
|
#include "l_state.h"
|
|
|
|
static int NOTREACHED;
|
|
static int VARARGSn = -1;
|
|
static int ARGSUSED;
|
|
int LINTLIB;
|
|
|
|
int s_NOTREACHED;
|
|
int f_VARARGSn;
|
|
int f_ARGSUSED;
|
|
|
|
set_not_reached()
|
|
{
|
|
NOTREACHED = 1;
|
|
}
|
|
|
|
move_NOT2s()
|
|
{
|
|
s_NOTREACHED = NOTREACHED;
|
|
NOTREACHED = 0;
|
|
}
|
|
|
|
set_varargs(n)
|
|
{
|
|
VARARGSn = n;
|
|
}
|
|
|
|
move_VAR2f()
|
|
{
|
|
f_VARARGSn = VARARGSn;
|
|
VARARGSn = -1;
|
|
}
|
|
|
|
set_argsused(n)
|
|
{
|
|
ARGSUSED = n;
|
|
}
|
|
|
|
move_ARG2f()
|
|
{
|
|
f_ARGSUSED = ARGSUSED;
|
|
ARGSUSED = 0;
|
|
}
|
|
|
|
set_lintlib()
|
|
{
|
|
LINTLIB = 1;
|
|
}
|
|
|
|
#define IN_SPACE 0
|
|
#define IN_WORD 1
|
|
#define IN_COMMENT 2
|
|
|
|
lint_comment(c)
|
|
int c;
|
|
{
|
|
/* This function is called with every character between /_* and *_/ (the
|
|
* _underscores are used because comment in C doesn't nest).
|
|
* It looks for pseudocomments.
|
|
* In this version it is allowed that 'keyword' is followed by rubbish.
|
|
* At the start of each comment the function should be initialized by
|
|
* calling it with c = -2.
|
|
* I am not sure if this way of information hiding is a good solution.
|
|
*/
|
|
static int position; /* IN_SPACE, IN_WORD, IN_COMMENT */
|
|
static char buf[12];
|
|
static int i; /* next free position in buf */
|
|
|
|
if (c == -2) {
|
|
position = IN_SPACE;
|
|
i = 0;
|
|
return;
|
|
}
|
|
if (position == IN_COMMENT)
|
|
return;
|
|
if (position == IN_SPACE) {
|
|
if (c == ' ' || c == '\t')
|
|
return;
|
|
position = IN_WORD;
|
|
}
|
|
/* position == IN_WORD */
|
|
if (c == ' ' || c == '\t' || c == '*') {
|
|
position = IN_COMMENT;
|
|
check_pseudo(buf, i);
|
|
}
|
|
else
|
|
if (i < 12)
|
|
buf[i++] = (char)c;
|
|
else
|
|
position = IN_COMMENT;
|
|
}
|
|
|
|
#include <ctype.h>
|
|
|
|
check_pseudo(buf, i)
|
|
char *buf;
|
|
{
|
|
/* Look if the i characters in buf are aequivalent with one of the
|
|
* strings N_OTREACHED, V_ARARGS[n], A_RGSUSED, L_INTLIBRARY
|
|
* (the u_nderscores are there to not confuse (UNIX) lint)
|
|
*/
|
|
buf[i++] = '\0';
|
|
if (!strcmp(buf, "NOTREACHED"))
|
|
set_not_reached();
|
|
else if (!strcmp(buf, "ARGSUSED"))
|
|
set_argsused(1);
|
|
else if (!strcmp(buf, "LINTLIBRARY"))
|
|
set_lintlib();
|
|
else if (!strncmp(buf, "VARARGS", 7)) {
|
|
if (i == 8)
|
|
set_varargs(0);
|
|
else if (i == 9 && isdigit(buf[7]))
|
|
set_varargs(atoi(&buf[7]));
|
|
}
|
|
}
|
|
|
|
#endif LINT
|