Initial revision

lang/m2/m2mm/LLmessage.c

@@ -0,0 +1,52 @@
+/*
+ * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ * See the copyright notice in the ACK home directory, in the file "Copyright".
+ *
+ * Author: Ceriel J.H. Jacobs
+ */
+
+/* S Y N T A X   E R R O R   R E P O R T I N G */
+
+/* stripped down version from the one in the Modula-2 compiler */
+
+/* $Header$ */
+
+/*	Defines the LLmessage routine. LLgen-generated parsers require the
+	existence of a routine of that name.
+	The routine must do syntax-error reporting and must be able to
+	insert tokens in the token stream.
+*/
+
+#include	"idf.h"
+#include	"LLlex.h"
+#include	"Lpars.h"
+
+extern char		*symbol2str();
+extern struct idf	*gen_anon_idf();
+
+LLmessage(tk)
+	register int tk;
+{
+	if (tk > 0)	{
+		/* if (tk > 0), it represents the token to be inserted.
+		*/
+		register struct token *dotp = ˙
+
+		error("%s missing", symbol2str(tk));
+
+		aside = *dotp;
+
+		dotp->tk_symb = tk;
+
+		switch (tk)	{
+		/* The operands need some body */
+		case IDENT:
+			dotp->TOK_IDF = gen_anon_idf();
+			break;
+		}
+	}
+	else if (tk  < 0) {
+		error("garbage at end of program");
+	}
+	else	error("%s deleted", symbol2str(dot.tk_symb));
+}