[BACK]Return to shapews CVS log [TXT] [DIR] Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib

Annotation of 43BSD/contrib/apl/lib/shapews, revision 1.1.1.1

1.1       root        1: n��*.KB�&       P shapetxs { shape tx ; v; z
                      2: tx { ' ',tx,' '
                      3: v { tx E ' '
                      4: tx { (~v^1O|v)/tx
                      5: v { +\tx E ' '
                      6: z {(I`1Yv)J.=v
                      7: z { (+/^\~z)O|z
                      8: z { (V/[1] z)/ z
                      9: txs { (Rz)R(,z)\tx
                     10:       
                     11: unixshapetxs { unixshape tx ; v; z
                     12: tx { 0,tx,' '
                     13: v { 0= tx { (~tx =32)Xtx
                     14: tx { (~v^1O|v)/tx
                     15: v { +\tx  = 0
                     16: z {(I`1Yv)J.=v
                     17: z { (+/^\~z)O|z
                     18: z { (V/[1] z)/ z
                     19: txs { 1O|(Rz)R1U' ',(,z)\tx
                     20:       
                     21: showshapetxs { showshape tx ; v; z
                     22: L_tx { ' ',tx,' '
                     23: L_v { tx E ' '
                     24: L_tx { (~v^1O|v)/tx
                     25: L_v { +\tx E ' '
                     26: L_z {(I`1Yv)J.=v
                     27: L_z { (+/^\~z)O|z
                     28: L_z { (V/[1] z)/ z
                     29: txs { (Rz)R(,z)\tx
                     30: shapedescribeshapedescribe
                     31: L_'This ws contains three formatting functions'
                     32: L_'to shape a string of items into a 2d array,'
                     33: L_'one per row.'
                     34: L_' "shape" is the basic converting function.'
                     35: L_' "showshape" demonstrates how shape works'
                     36: L_' "unixshape" puts the data into the strange'
                     37: L_'format use by Lexec'
                     38: L_'  note: these functions contain no loops.'
                     39: ''
                     40: &Llx:&&&L{'type ''shapedescribe'' for details'
unix.superglobalmegacorp.com

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