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     ! 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.