Return to edmx CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib / fn

Annotation of 43BSD/contrib/apl/lib/fn/edmx, revision 1.1

1.1     ! root        1: edmx;d;name;type;shape;idx;format;px;xv;new
        !             2: format { 8 4
        !             3: L' {'variable name? '
        !             4: name { L'
        !             5: }(2=Lnc name)/okname
        !             6: }0,L{'error: variable unknown'
        !             7: okname: d { BJ name
        !             8: org { ?1
        !             9: L'{ 'shape is',NJshape{Rd
        !            10: d { ,d
        !            11: L'{ ' type is '
        !            12: L{(2 9R'numeric  character')[org+ type{' 'E(,0)\0Rd;]
        !            13: L{'index origin is',NJ org
        !            14: v { I`1Yshape
        !            15: askindex:L'{'index? '
        !            16: idx { ,BJL'
        !            17: }(0=Ridx)/end
        !            18: idx { (Rshape)Yidx,org
        !            19: px { `1Yidx
        !            20: dx { d[xv { v+(`1Yshape)X+(`1Ushape)B(-org)+`1Uidx]
        !            21: format NJ dx
        !            22: L'{' ',((px-org)X1Yformat)R' '
        !            23: new { ,BJL'
        !            24: new { (((`1Yshape)+org-px)DRnew)Rnew
        !            25: dx[(px-org)+IRnew]{new
        !            26: format NJ dx
        !            27: d[xv]{dx
        !            28: }askindex
        !            29: end:BJ name,'{ shape R d'

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