From 0da4719d8bfbf8e0a88d8c5af016138ddafed04d Mon Sep 17 00:00:00 2001
From: "Peter B. Kessler" <peter@ucbvax.Berkeley.EDU>
Date: Tue, 3 Mar 1981 05:29:31 -0800
Subject: [PATCH] date and time created 81/03/02 21:29:31 by peter

SCCS-vsn: usr.bin/pascal/pxp/yyerror.c 1.1
---
 usr/src/usr.bin/pascal/pxp/yyerror.c | 113 +++++++++++++++++++++++++++
 1 file changed, 113 insertions(+)
 create mode 100644 usr/src/usr.bin/pascal/pxp/yyerror.c

diff --git a/usr/src/usr.bin/pascal/pxp/yyerror.c b/usr/src/usr.bin/pascal/pxp/yyerror.c
new file mode 100644
index 0000000000..d3a7db781c
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pxp/yyerror.c
@@ -0,0 +1,113 @@
+static	char *sccsid = "@(#)yyerror.c	1.1 (Berkeley) %G%";
+/* Copyright (c) 1979 Regents of the University of California */
+/*
+ * pi - Pascal interpreter code translator
+ *
+ * Charles Haley, Bill Joy UCB
+ * Version 1.2 January 1979
+ *
+ *
+ * pxp - Pascal execution profiler
+ *
+ * Bill Joy UCB
+ * Version 1.2 January 1979
+ */
+
+#include "0.h"
+#include "yy.h"
+
+/*
+ * Yerror prints an error
+ * message and then returns
+ * NIL for the tree if needed.
+ * The error is flagged on the
+ * current line which is printed
+ * if the listing is turned off.
+#ifdef PXP
+ *
+ * As is obvious from the fooling around
+ * with fout below, the Pascal system should
+ * be changed to use the new library "lS".
+#endif
+ */
+yerror(s, a1, a2, a3, a4, a5)
+	char *s;
+{
+#ifdef PI
+	char buf[256];
+#endif
+	register int i, j;
+	static yySerrs;
+#ifdef PXP
+/*
+	int ofout;
+*/
+#endif
+
+	if (errpfx == 'w' && opt('w') != 0)
+		return;
+#ifdef PXP
+/*
+	flush();
+	ofout = fout[0];
+	fout[0] = errout;
+*/
+#endif
+	yyResume = 0;
+#ifdef PI
+	geterr(s, buf);
+	s = buf;
+#endif
+	yysync();
+	putc(errpfx, stderr);
+	putc(' ', stderr);
+	for (i = 3; i < yyecol; i++)
+		putc('-', stderr);
+	fprintf(stderr, "^--- ");
+/*
+	if (yyecol > 60)
+		printf("\n\t");
+*/
+	fprintf(stderr, s, a1, a2, a3, a4, a5);
+	putc('\n', stderr);
+	if (errpfx == 'E')
+#ifdef PI
+		eflg++, cgenflg++;
+#endif
+#ifdef PXP
+		eflg++;
+#endif
+	errpfx = 'E';
+	yySerrs++;
+	if (yySerrs >= MAXSYNERR) {
+		yySerrs = 0;
+		yerror("Too many syntax errors - QUIT");
+		pexit(ERRS);
+	}
+#ifdef PXP
+/*
+	flush();
+	fout[0] = ofout;
+*/
+	return (0);
+#endif
+}
+
+/*
+ * A bracketing error message
+ */
+brerror(where, what)
+	int where;
+	char *what;
+{
+
+	if (where == 0) {
+		line = yyeline;
+		setpfx(' ');
+		error("End matched %s on line %d", what, where);
+		return;
+	}
+	if (where < 0)
+		where = -where;
+	yerror("Inserted keyword end matching %s on line %d", what, where);
+}
-- 
2.20.1