🚀 go-pugleaf

$B$-$/$?$K$G$9!#(B

Tcl/Tk $B$r$h$&$d$/=q$1$k$h$&$K$J$C$F$-$?$+!"$H$$$&%l%Y%k$G<ALd$G$9!#(B

$B%7%_%e%l!<%?$+$i!"(Bwish$B$r;R%W%m%;%9$G5/F0$7!"(BTcl$B%9%/%j%W%H$r(B
$BAv$i$;$F$^$9!#(B

Tcl$B%9%/%j%W%H$O?F%W%m%;%9$+$i$N%G!<%?$r(Bread$B$GFI$_!"(B
$B%0%i%U$rIA2h$7$F9T$-$^$9!#(B

$B$*$*$6$C$Q$J%"%k%4%j%:%`$O(B

while {1} {
    $B?F%W%m%;%9$+$i(Bread
    if {$B%G!<%?(B} {
        $BIA2h(B
    } elseif {$B=*N;(B} {
        break
    } elseif {$B%9%H%C%W(B} {
        while {1} {
            $B?F%W%m%;%9$+$i(Bread
            if {$B:F3+%7%0%J%k(B} {
	       break
	    } else {
	       $B%f!<%6$N=hM}BT$A(B
	    }
	}
    } elseif {...} {
        .....
        .....
}

$B$H$$$&$H$3$m$G$9$,!"LdBj$O%7%_%e%l!<%?$+$i%9%H%C%W%7%0%J%k(B
$B$,Mh$F!"%f!<%6$K:n6H(B($B%9%/%m!<%k$H$+%W%m%C%H(B)$B$r$5$;$?$$$H$3$m$G$9!#(B
$B:#$O(Bread$B$,%V%m%C%/$7$F$k$N$G2?$b$G$-$^$;$s!#(B

fconfigure stdin -blocking 0 $B$H$+$7$F(B fblocked $B$r;H$C$F(B
$B$d$k$N$+$H$b;W$$$^$7$?$,!#%$%^%$%A;H$$J}$,$o$+$j$^$;$s!#(B
$B%9%^!<%H$JJ}K!$O$"$k$G$7$g$&$+!)(B

ruby/Tk$B$G=q$$$F$?$N$r!"(BTcl/Tk$B$G=q$-D>$9$H$$$&L/$J$3$H$r(B
$B$d$C$F$k$N$G$9$,!"(Bruby$B$@$H>e$NA4BN$N%k!<%W$r(Bthread$B$N$[$&$G(B
$B$d$i$;$F$k$N$G!"2?$b9M$($J$/$F$$$$$N$G$9!#(B

-- 
$B?M@8$rGXIi$$Ej$2(B

$B5FC+(B $B@?(B(Kikutani Makoto)  kikutani@eis.or.jp hgf03701@niftyserve.or.jp
                          http://www.eis.or.jp/muse/kikutani/