Subversion Repositories planix.SVN

Rev

Details | Last modification | View Log | RSS feed

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