introduction of lint source code, governed by ifdef LINT

1988-09-20 16:44:27 +00:00
parent 7e502b0937
commit 6839d8afb1
35 changed files with 3200 additions and 17 deletions
--- a/lang/cem/cemcom/l_comment.c
+++ b/lang/cem/cemcom/l_comment.c
@@ -0,0 +1,129 @@
+/*
+ * (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