tmake a clean listing in an acme window. - plan9port - [fork] Plan 9 from user space (HTM) git clone git://src.adamsgaard.dk/plan9port (DIR) Log (DIR) Files (DIR) Refs (DIR) README (DIR) LICENSE --- (DIR) commit e06d9217697864dc04194f856eca4504c189c13d (DIR) parent 9471281d4201790dcfb86e202206305c0465b913 (HTM) Author: rsc <devnull@localhost> Date: Sun, 25 Apr 2004 20:30:47 +0000 make a clean listing in an acme window. Diffstat: A bin/Getdir | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+), 0 deletions(-) --- (DIR) diff --git a/bin/Getdir b/bin/Getdir t@@ -0,0 +1,24 @@ +#!/usr/local/plan9/bin/rc + +dir=acme/acme/$winid + +fn rd { + 9p read $dir/$1 || { echo 9p failed >[1=2]; exit 9p } +} +fn wr { + 9p write $dir/$1 || { echo 9p failed >[1=2]; exit 9p } +} + + +tag=`{rd tag} +if(! ~ $tag(1) */){ + echo window $tag(1) is not a directory >[1=2] + exit 'not a directory' +} + +echo -n , | wr addr +ls -pF $tag(1) | sed 's/\*$//' | + 9grep -v '^\.|\.o$|^o\.' | +mc | wr data +echo -n '#0' | wr addr +echo -n 'dot=addr' | wr ctl