#ここに画像を表示させるにはどうしたら良いんだろう。
##できた。Gauche-Tk(windows)で日本語使えるようになりました。
#;; wrap response from wish
(define (wish-initialize tkproc)
; natu
(display "fconfigure stdin -encoding utf-8\n" (process-input tkproc))
(display "fconfigure stdout -encoding utf-8\n" (process-input tkproc))
(display "proc gauche__tk__do args {\n\
set r [catch {eval $args} gauche__tk__result] \n\
set lines [split $gauche__tk__result \"\\n\"] \n\
if { $r == 0 || $r == 2 } { \n\
puts \"ok\" \n\
} { \n\
puts \"error\" \n\
} \n\
foreach l $lines { \n\
puts -nonewline \";\" \n\
puts $l \n\
} \n\
puts \"end\" \n\
}\n" (process-input tkproc))#fconfigure で、動的にエンコーディング変えられました。あとは、変数を一個作って、それ見てこのコードを入れるか入れないかすればOKですね。お昼休みハックでした。
#おー、これはありがたい。fconfigureのコード、Gaucheが送るコードに合わせればいいんだから、常に入れといても問題ないと思うんですが、utf-8非対応のwishとかがある可能性がある?
#あっそうですね。常に入れておいても問題無いです。
#あえて茨の道を行く人は、自力で対応できそうな気がします。
#マニュアルのutil.matchの(pat (=> id) body ...) の「後述の例」が見当たらないのですが、加筆予定ということでしょうか？
#無いですね。書こうと思って忘れてた可能性大。
#前から気になっていたことを思い出したのですが、gauche.sequenceの「シーケンスを実装する」の項が空です。
#まだ書いてないからです。
Gauche > Archives > 2012/06/12