Blob
1 #!/usr/local/plan9/bin/rc3 # Click on an acme directory window and then execute Getdir5 . 9.rc6 dir=acme/acme/$winid8 fn rd {9 9p read $dir/$1 || { echo 9p failed >[1=2]; exit 9p }10 }11 fn wr {12 9p write $dir/$1 || { echo 9p failed >[1=2]; exit 9p }13 }16 tag=`{rd tag}17 if(! ~ $tag(1) */){18 echo window $tag(1) is not a directory >[1=2]19 exit 'not a directory'20 }22 echo -n , | wr addr24 ls -pF `{eval echo $tag(1)} | sed 's/\*$//' |25 grep -v '^''?\.|\.o$|^''?o\.' |26 mc |27 wr data28 echo -n '#0' | wr addr29 echo -n 'dot=addr' | wr ctl