Return to shapews CVS log

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

Annotation of 43BSD/contrib/apl/lib/shapews, revision 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'

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