1 2b85f70d 2005-01-11 devnull #!/usr/local/plan9/bin/rc
3 fa277510 2004-04-25 devnull # Click on an acme directory window and then execute Getdir
6 e06d9217 2004-04-25 devnull dir=acme/acme/$winid
9 e06d9217 2004-04-25 devnull 9p read $dir/$1 || { echo 9p failed >[1=2]; exit 9p }
12 e06d9217 2004-04-25 devnull 9p write $dir/$1 || { echo 9p failed >[1=2]; exit 9p }
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'
22 e06d9217 2004-04-25 devnull echo -n , | wr addr
24 d46ac8d3 2005-09-13 devnull ls -pF `{eval echo $tag(1)} | sed 's/\*$//' |
25 9bbe4594 2005-01-14 devnull grep -v '^''?\.|\.o$|^''?o\.' |
28 e06d9217 2004-04-25 devnull echo -n '#0' | wr addr
29 e06d9217 2004-04-25 devnull echo -n 'dot=addr' | wr ctl