More files!

2004-05-15 23:45:13 +00:00 · 2004-05-15 23:45:13 +00:00 · 13f7391e4a
commit 13f7391e4a
parent 36a9115fcb
213 changed files with 54952 additions and 0 deletions
--- a/postscript/prologues/unbind.ps
+++ b/postscript/prologues/unbind.ps
@ -0,0 +1,28 @@
+%
+% Unbind the operators in an executable array or packedarray. Leaves the
+% unbound array or the original object on the stack.
+%
+
+/unbind {
+	0 index xcheck
+	1 index type /arraytype eq
+	2 index type /packedarraytype eq or and {
+		dup length array copy cvx
+		dup 0 exch {
+			dup type /operatortype eq {
+				(                          ) cvs cvn cvx
+			} if
+
+			0 index xcheck
+			1 index type /arraytype eq
+			2 index type /packedarraytype eq or and {
+				unbind
+			} if
+
+			3 copy put pop
+			1 add
+		} forall
+		pop
+	} if
+} def
+