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 9bbe4594 2005-01-14 devnull . 9.rc
 6 e06d9217 2004-04-25 devnull dir=acme/acme/$winid
 7 e06d9217 2004-04-25 devnull 
 8 e06d9217 2004-04-25 devnull fn rd {
 9 e06d9217 2004-04-25 devnull 	9p read $dir/$1 || { echo 9p failed >[1=2]; exit 9p }
10 e06d9217 2004-04-25 devnull }
11 e06d9217 2004-04-25 devnull fn wr {
12 e06d9217 2004-04-25 devnull 	9p write $dir/$1 || { echo 9p failed >[1=2]; exit 9p }
13 e06d9217 2004-04-25 devnull }
14 e06d9217 2004-04-25 devnull 
15 e06d9217 2004-04-25 devnull 
16 e06d9217 2004-04-25 devnull tag=`{rd tag}
17 e06d9217 2004-04-25 devnull if(! ~ $tag(1) */){
18 e06d9217 2004-04-25 devnull 	echo window $tag(1) is not a directory >[1=2]
19 e06d9217 2004-04-25 devnull 	exit 'not a directory'
20 e06d9217 2004-04-25 devnull }
21 e06d9217 2004-04-25 devnull 
22 e06d9217 2004-04-25 devnull echo -n , | wr addr
23 e06d9217 2004-04-25 devnull ls -pF $tag(1) | sed 's/\*$//' |
24 9bbe4594 2005-01-14 devnull 	grep -v '^''?\.|\.o$|^''?o\.' |
25 e06d9217 2004-04-25 devnull mc | wr data
26 e06d9217 2004-04-25 devnull echo -n '#0' | wr addr
27 e06d9217 2004-04-25 devnull echo -n 'dot=addr' | wr ctl