Blob
1 fn newwindow {2 winctl=`{9p read acme/new/ctl}3 winid=$winctl(1)4 }6 fn winctl {7 echo $* | 9p write acme/$winid/ctl8 }10 fn winread {11 9p read acme/$winid/$112 }14 fn winwrite {15 9p write acme/$winid/$116 }18 fn windump {19 if(! ~ $1 - '')20 winctl dumpdir $121 if(! ~ $2 - '')22 winctl dump $223 }25 fn winname {26 winctl name $127 }29 fn winwriteevent {30 echo $1$2$3 $4 | winwrite event31 }33 fn windel {34 if(~ $1 sure)35 winctl delete36 if not37 winctl del38 }40 fn wineventloop {41 . <{winread event >[2]/dev/null | acmeevent}42 }