/*
 * (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