Initial revision

lang/pc/comp/LLmessage.c

@@ -0,0 +1,72 @@
+/* S Y N T A X   E R R O R   R E P O R T I N G */
+
+/*	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	<alloc.h>
+#include	<em_arith.h>
+#include	<em_label.h>
+
+#include	"LLlex.h"
+#include	"Lpars.h"
+#include	"idf.h"
+#include	"type.h"
+
+extern char		*symbol2str();
+extern char		*Malloc(), *Salloc();
+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 = &dot;
+
+		error("%s missing", symbol2str(tk));
+
+		aside = *dotp;
+		asidetype = toktype;
+
+		dotp->tk_symb = tk;
+
+		switch( tk )	{
+		/* The operands need some body */
+		case IDENT:
+			dotp->TOK_IDF = gen_anon_idf();
+			break;
+		case STRING:
+			dotp->tk_data.tk_str = (struct string *)
+						Malloc(sizeof (struct string));
+			dotp->TOK_SLE = 1;
+			dotp->TOK_STR = Salloc("", 1);
+			toktype = standard_type(T_STRING, 1, (arith) 1);
+			break;
+		case INTEGER:
+			dotp->TOK_INT = 1;
+			toktype = int_type;
+			break;
+		case REAL:
+			dotp->tk_data.tk_real = (struct real *)
+						Malloc(sizeof(struct real));
+			/* inverse struct */
+			dotp->TOK_RIV = (struct real *)
+						Malloc(sizeof(struct real));
+			dotp->TOK_RIV->r_inverse = dotp->tk_data.tk_real;
+
+			/* sign */
+			dotp->TOK_RSI = 0;
+			dotp->TOK_RIV->r_sign = 1;
+
+			dotp->TOK_REL = Salloc("0.0", 4);
+			toktype = real_type;
+			break;
+		}
+	}
+	else if( tk < 0 ) error("garbage at end of program");
+	     else error("%s deleted", symbol2str(dot.tk_symb));
+}