Return to unbind.ps CVS log

Up to [Research Unix] / researchv10no / cmd / post.src / psfiles

Annotation of researchv10no/cmd/post.src/psfiles/unbind.ps, revision 1.1.1.1

1.1       root        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:        0 index xcheck
                      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:                        0 index xcheck
                     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: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.