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