1 e06d9217 2004-04-25 devnull #!/usr/local/plan9/bin/rc
3 fa277510 2004-04-25 devnull # Click on an acme directory window and then execute Getdir
5 e06d9217 2004-04-25 devnull dir=acme/acme/$winid
8 e06d9217 2004-04-25 devnull 9p read $dir/$1 || { echo 9p failed >[1=2]; exit 9p }
11 e06d9217 2004-04-25 devnull 9p write $dir/$1 || { echo 9p failed >[1=2]; exit 9p }
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'
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