Blob
1 #!/usr/local/plan9/bin/rc3 # Click on an acme directory window and then execute Getdir5 dir=acme/acme/$winid7 fn rd {8 9p read $dir/$1 || { echo 9p failed >[1=2]; exit 9p }9 }10 fn wr {11 9p write $dir/$1 || { echo 9p failed >[1=2]; exit 9p }12 }15 tag=`{rd tag}16 if(! ~ $tag(1) */){17 echo window $tag(1) is not a directory >[1=2]18 exit 'not a directory'19 }21 echo -n , | wr addr22 ls -pF $tag(1) | sed 's/\*$//' |23 9grep -v '^''?\.|\.o$|^''?o\.' |24 mc | wr data25 echo -n '#0' | wr addr26 echo -n 'dot=addr' | wr ctl