ruby-dev

山本です。

>というわけで，configinfo または current_configinfo を
>使っても良かったのですが，Tcl/Tk が返してくる文字列情報を
>Ruby/Tk 内部で変換して，さらにその Array または Hash で
>検索をかけねばならないのであれば，直接に問題のオプションを参照して
>エラーを捕まえた方が手っ取り早いかなと考えた次第です．

なるほど。

>判断誤りの心配がなくそれだけ早くなるなら有効な対策かもしれませんね．

すみません、このパッチは試しに作ったいい加減なパッチで、
例えば ascii 互換でないエンコーディングが存在して、
tcl がそれをサポートしていて、そういった文字が渡ってきた場合は
考慮していませんでした。それ以外でもちゃんと動くか怪しいです。

Index: tcltklib.c
===================================================================
RCS file: /src/ruby/ext/tk/tcltklib.c,v
retrieving revision 1.10
diff -u -w -b -p -r1.10 tcltklib.c
--- tcltklib.c	30 Mar 2005 08:44:15 -0000	1.10
+++ tcltklib.c	4 Apr 2005 10:49:42 -0000
@@ -5961,6 +5961,24 @@ ip_restart(self)
     return lib_restart(self);
 }
 
+static int
+is_ascii(const char* p)
+{
+/*
+    for (; *p; p++)
+	if (!isprint(*p))
+	    return 0;
+
+    return 1;
+*/
+
+    for (; *p; p++)
+	if (!(0x21 <= *p && *p <= 0x7E))
+	    return 0;
+
+    return 1;
+}
+
 static VALUE
 lib_toUTF8_core(ip_obj, src, encodename)
     VALUE ip_obj;
@@ -5982,6 +6000,9 @@ lib_toUTF8_core(ip_obj, src, encodename)
     if (NIL_P(src)) {
       return rb_str_new2("");
     }
+    if (is_ascii(RSTRING(src)->ptr)) {
+	return src;
+    }
 
 #ifdef TCL_UTF_MAX
     if (NIL_P(ip_obj)) {
@@ -6134,6 +6155,9 @@ lib_fromUTF8_core(ip_obj, src, encodenam
 
     if (NIL_P(src)) {
       return rb_str_new2("");
+    }
+    if (is_ascii(RSTRING(src)->ptr)) {
+	return src;
     }
 
 #ifdef TCL_UTF_MAX

/////////////////////////////////////////////////////////////////

>現在の tktreectrl.rb では全般に tk_call や tk_send を呼んでおり，
>スピード面でのチューニングは施していません．
>tk_call または tk_send は Tk サイドを手っ取り早く呼べるんですが，
>明らかに変換の必要がないケースでも変換処理を行ってしまいます．
>その点がかなりの無駄になっています．
>ですので，tk_call_without_enc や tk_send_without_enc と，
>_get_eval_string(val, true) とを組み合わせて，
>変換処理を行う引数を絞ってやるだけで，
>かなりのスピードアップになるはずです．

うわー、手動でやらないといけないんですね・・・何とか自動化できないか
しばらく考えたんですが、「ascii 非互換なエンコーディングは ID_at_enc を
指定した文字列という形でしか使えない」という感じにしないと無理そうで・・・
無理なのかなあ。