1 8a9c112a 2005-01-04 devnull fn newwindow {
2 8a9c112a 2005-01-04 devnull winctl=`{9p read acme/new/ctl}
3 8a9c112a 2005-01-04 devnull winid=$winctl(1)
6 8a9c112a 2005-01-04 devnull fn winctl {
7 06217430 2006-06-30 devnull echo $* | 9p write acme/$winid/ctl
10 8a9c112a 2005-01-04 devnull fn winread {
11 06217430 2006-06-30 devnull 9p read acme/$winid/$1
14 8a9c112a 2005-01-04 devnull fn winwrite {
15 06217430 2006-06-30 devnull 9p write acme/$winid/$1
18 8a9c112a 2005-01-04 devnull fn windump {
19 8a9c112a 2005-01-04 devnull if(! ~ $1 - '')
20 8a9c112a 2005-01-04 devnull winctl dumpdir $1
21 8a9c112a 2005-01-04 devnull if(! ~ $2 - '')
22 8a9c112a 2005-01-04 devnull winctl dump $2
25 8a9c112a 2005-01-04 devnull fn winname {
26 8a9c112a 2005-01-04 devnull winctl name $1
29 8a9c112a 2005-01-04 devnull fn winwriteevent {
30 8a9c112a 2005-01-04 devnull echo $1$2$3 $4 | winwrite event
33 8a9c112a 2005-01-04 devnull fn windel {
34 8a9c112a 2005-01-04 devnull if(~ $1 sure)
35 8a9c112a 2005-01-04 devnull winctl delete
37 8a9c112a 2005-01-04 devnull winctl del
40 8a9c112a 2005-01-04 devnull fn wineventloop {
41 8a9c112a 2005-01-04 devnull . <{winread event >[2]/dev/null | acmeevent}