Import sources from 2011-03-30 iso image - sys/lib

1 files changed, 28 insertions, 0 deletions

diff --git a/sys/lib/postscript/prologues/unbind.ps b/sys/lib/postscript/prologues/unbind.ps
new file mode 100755
index 000000000..98e6283e6
--- /dev/null
+++ b/sys/lib/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
+