1 #!/usr/local/plan9/bin/rc
2 
3 # Click on an acme directory window and then execute Getdir
4 
5 dir=acme/acme/$winid
6 
7 fn rd {
8 	9p read $dir/$1 || { echo 9p failed >[1=2]; exit 9p }
9 }
10 fn wr {
11 	9p write $dir/$1 || { echo 9p failed >[1=2]; exit 9p }
12 }
13 
14 
15 tag=`{rd tag}
16 if(! ~ $tag(1) */){
17 	echo window $tag(1) is not a directory >[1=2]
18 	exit 'not a directory'
19 }
20 
21 echo -n , | wr addr
22 ls -pF $tag(1) | sed 's/\*$//' |
23 	9grep -v '^''?\.|\.o$|^''?o\.' |
24 mc | wr data
25 echo -n '#0' | wr addr
26 echo -n 'dot=addr' | wr ctl