From: Peter B. Kessler <peter@ucbvax.Berkeley.EDU>
Date: Tue, 3 Mar 1981 13:27:59 +0000 (-0800)
Subject: date and time created 81/03/02 21:27:59 by peter
X-Git-Tag: BSD-4_1_snap-Snapshot-Development~1972
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/9fad0514a14f703cff889f4156c41899cc7435da

date and time created 81/03/02 21:27:59 by peter

SCCS-vsn: usr.bin/pascal/pxp/const.c 1.1
---

diff --git a/usr/src/usr.bin/pascal/pxp/const.c b/usr/src/usr.bin/pascal/pxp/const.c
new file mode 100644
index 0000000000..98e854f5a2
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pxp/const.c
@@ -0,0 +1,108 @@
+static	char *sccsid = "@(#)const.c	1.1 (Berkeley) %G%";
+/* Copyright (c) 1979 Regents of the University of California */
+#
+/*
+ * pxp - Pascal execution profiler
+ *
+ * Bill Joy UCB
+ * Version 1.2 January 1979
+ */
+
+#include "0.h"
+#include "tree.h"
+
+STATIC	int constcnt -1;
+
+/*
+ * The const declaration part
+ */
+constbeg(l, cline)
+	int l, cline;
+{
+
+	line = l;
+	if (nodecl)
+		printoff();
+	puthedr();
+	putcm();
+	ppnl();
+	indent();
+	ppkw("const");
+	ppgoin(DECL);
+	constcnt = 0;
+	setline(cline);
+}
+
+const(cline, cid, cdecl)
+	int cline;
+	char *cid;
+	int *cdecl;
+{
+
+	if (constcnt)
+		putcm();
+	setline(cline);
+	ppitem();
+	ppid(cid);
+	ppsep(" = ");
+	gconst(cdecl);
+	ppsep(";");
+	constcnt++;
+	setinfo(cline);
+	putcml();
+}
+
+constend()
+{
+
+	if (constcnt == -1)
+		return;
+	if (nodecl)
+		return;
+	if (constcnt == 0)
+		ppid("{const decls}");
+	ppgoout(DECL);
+	constcnt = -1;
+}
+
+/*
+ * A constant in an expression
+ * or a declaration.
+ */
+gconst(r)
+	int *r;
+{
+	register *cn;
+
+	cn = r;
+loop:
+	if (cn == NIL) {
+		ppid("{constant}");
+		return;
+	}
+	switch (cn[0]) {
+		default:
+			panic("gconst");
+		case T_PLUSC:
+			ppop("+");
+			cn = cn[1];
+			goto loop;
+		case T_MINUSC:
+			ppop("-");
+			cn = cn[1];
+			goto loop;
+		case T_ID:
+			ppid(cn[1]);
+			return;
+		case T_CBINT:
+		case T_CINT:
+		case T_CFINT:
+			ppnumb(cn[1]);
+			if (cn[0] == T_CBINT)
+				ppsep("b");
+			return;
+		case T_CSTRNG:
+			ppstr(cn[1]);
+			return;
+	}
+}