[BACK]Return to shapews CVS log [TXT] [DIR] Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib
File:  [CSRG BSD Unix] / 43BSD / contrib / apl / lib / shapews
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 16:12:54 2018 UTC (8 years, 1 month ago) by root
Branches: MAIN, BSD
CVS tags: HEAD, BSD43
BSD 4.3

n��*.KB�	P	shapetxs { shape tx ; v; z
tx { ' ',tx,' '
v { tx E ' '
tx { (~v^1O|v)/tx
v { +\tx E ' '
z {(I`1Yv)J.=v
z { (+/^\~z)O|z
z { (V/[1] z)/ z
txs { (Rz)R(,z)\tx
	
unixshapetxs { unixshape tx ; v; z
tx { 0,tx,' '
v { 0= tx { (~tx =32)Xtx
tx { (~v^1O|v)/tx
v { +\tx  = 0
z {(I`1Yv)J.=v
z { (+/^\~z)O|z
z { (V/[1] z)/ z
txs { 1O|(Rz)R1U' ',(,z)\tx
	
showshapetxs { showshape tx ; v; z
L_tx { ' ',tx,' '
L_v { tx E ' '
L_tx { (~v^1O|v)/tx
L_v { +\tx E ' '
L_z {(I`1Yv)J.=v
L_z { (+/^\~z)O|z
L_z { (V/[1] z)/ z
txs { (Rz)R(,z)\tx
shapedescribeshapedescribe
L_'This ws contains three formatting functions'
L_'to shape a string of items into a 2d array,'
L_'one per row.'
L_' "shape" is the basic converting function.'
L_' "showshape" demonstrates how shape works'
L_' "unixshape" puts the data into the strange'
L_'format use by Lexec'
L_'  note: these functions contain no loops.'
''
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.