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