#!/usr/local/plan9/bin/rc # Click on an acme directory window and then execute Getdir . 9.rcdir=acme/acme/$winid fn rd { 9p read $dir/$1 || { echo 9p failed >[1=2]; exit 9p }}fn wr { 9p write $dir/$1 || { echo 9p failed >[1=2]; exit 9p }} tag=`{rd tag}if(! ~ $tag(1) */){ echo window $tag(1) is not a directory >[1=2] exit 'not a directory'} echo -n , | wr addr ls -pF `{eval echo $tag(1)} | sed 's/\*$//' | grep -v '^''?\.|\.o$|^''?o\.' | mc | wr dataecho -n '#0' | wr addrecho -n 'dot=addr' | wr ctl
#!/usr/local/plan9/bin/rc
# Click on an acme directory window and then execute Getdir
. 9.rc
dir=acme/acme/$winid
fn rd {
9p read $dir/$1 || { echo 9p failed >[1=2]; exit 9p }
}
fn wr {
9p write $dir/$1 || { echo 9p failed >[1=2]; exit 9p }
}
tag=`{rd tag}
if(! ~ $tag(1) */){
echo window $tag(1) is not a directory >[1=2]
exit 'not a directory'
}
echo -n , | wr addr
ls -pF `{eval echo $tag(1)} | sed 's/\*$//' |
grep -v '^''?\.|\.o$|^''?o\.' |
mc |
wr data
echo -n '#0' | wr addr
echo -n 'dot=addr' | wr ctl