Initial commit

1 files changed, 42 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/rpprat/unstak.r b/unix/boot/spp/rpp/rpprat/unstak.r
new file mode 100644
index 00000000..ec8a6eef
--- /dev/null
+++ b/unix/boot/spp/rpp/rpprat/unstak.r
@@ -0,0 +1,42 @@
+include  defs
+
+# unstak - unstack at end of statement
+
+define	IFSTMT		999
+
+
+subroutine unstak (sp, lextyp, labval, token)
+
+integer	labval(MAXSTACK), lextyp(MAXSTACK)
+integer	sp, token, type
+
+	for (;  sp > 1;  sp=sp-1) {
+	    type = lextyp(sp)
+	    if ((type == LEXIFERR | type == LEXIFNOERR) & token == LEXTHEN)
+		break
+	    if (type == LEXIF | type == LEXIFERR | type == LEXIFNOERR)
+		type = IFSTMT
+	    if (type == LBRACE | type == LEXSWITCH)
+		break
+	    if (type == IFSTMT & token == LEXELSE)
+		break
+
+	    if (type == IFSTMT) {
+		call indent (-1)
+		call outcon (labval(sp))
+	    } else if (type == LEXELSE | type == LEXIFELSE) {
+		if (sp > 2)
+		    sp = sp - 1
+		if (type != LEXIFELSE)
+		    call indent (-1)
+		call outcon (labval(sp) + 1)
+	    } else if (type == LEXDO)
+		call dostat (labval(sp))
+	    else if (type == LEXWHILE)
+		call whiles (labval(sp))
+	    else if (type == LEXFOR)
+		call fors (labval(sp))
+	    else if (type == LEXREPEAT)
+		call untils (labval(sp), token)
+	}
+end