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

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.