commit e06d9217697864dc04194f856eca4504c189c13d from: rsc date: Sun Apr 25 20:30:47 2004 UTC make a clean listing in an acme window. commit - 9471281d4201790dcfb86e202206305c0465b913 commit + e06d9217697864dc04194f856eca4504c189c13d blob - /dev/null blob + b1646427f03481385a54a95c52ea4d4a6387e427 (mode 755) --- /dev/null +++ bin/Getdir @@ -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