1 13f7391e 2004-05-15 devnull %
 2 13f7391e 2004-05-15 devnull % Unbind the operators in an executable array or packedarray. Leaves the
 3 13f7391e 2004-05-15 devnull % unbound array or the original object on the stack.
 4 13f7391e 2004-05-15 devnull %
 5 13f7391e 2004-05-15 devnull 
 6 13f7391e 2004-05-15 devnull /unbind {
 7 13f7391e 2004-05-15 devnull 	0 index xcheck
 8 13f7391e 2004-05-15 devnull 	1 index type /arraytype eq
 9 13f7391e 2004-05-15 devnull 	2 index type /packedarraytype eq or and {
10 13f7391e 2004-05-15 devnull 		dup length array copy cvx
11 13f7391e 2004-05-15 devnull 		dup 0 exch {
12 13f7391e 2004-05-15 devnull 			dup type /operatortype eq {
13 13f7391e 2004-05-15 devnull 				(                          ) cvs cvn cvx
14 13f7391e 2004-05-15 devnull 			} if
15 13f7391e 2004-05-15 devnull 
16 13f7391e 2004-05-15 devnull 			0 index xcheck
17 13f7391e 2004-05-15 devnull 			1 index type /arraytype eq
18 13f7391e 2004-05-15 devnull 			2 index type /packedarraytype eq or and {
19 13f7391e 2004-05-15 devnull 				unbind
20 13f7391e 2004-05-15 devnull 			} if
21 13f7391e 2004-05-15 devnull 
22 13f7391e 2004-05-15 devnull 			3 copy put pop
23 13f7391e 2004-05-15 devnull 			1 add
24 13f7391e 2004-05-15 devnull 		} forall
25 13f7391e 2004-05-15 devnull 		pop
26 13f7391e 2004-05-15 devnull 	} if
27 13f7391e 2004-05-15 devnull } def
28 13f7391e 2004-05-15 devnull