[ruby-list:8691] Re: patch (for tcltklib + encoding)

立石＠JAISTです。

先ほどのパッチはUTF8(unicode)への変換
しかなく、また文字列長が1024以上だと
ダメなので以下の方を使って下さい。

先ほどのメールで_encodingとなっていたメソッド
は_toUTF8に変更しました。
また、_fromUTF8でunicode->???の変換ができます。

;; たびたびすみません。
;; あとになって気がついたので、、、、

*** tcltklib.c.old	Sat Jul 11 09:09:11 1998
--- tcltklib.c	Sat Jul 11 09:06:46 1998
***************
*** 243,248 ****
--- 243,305 ----
  }
  
  static VALUE
+ ip_toUTF8(VALUE self, VALUE str, VALUE encodename)
+ {
+   Tcl_Interp *interp;
+   Tcl_Encoding encoding;
+   Tcl_DString dstr;
+   struct tcltkip *ptr;
+   char *buff1,*buff2;
+ 
+   Data_Get_Struct(self,struct tcltkip, ptr);
+   interp = ptr->ip;
+ 
+   encoding = Tcl_GetEncoding(interp,STR2CSTR(encodename));
+   buff1 = ALLOCA_N(char,strlen(STR2CSTR(str))+1);
+   strcpy(buff1,STR2CSTR(str));
+ 
+   Tcl_DStringInit(&dstr);
+   Tcl_DStringFree(&dstr);
+   Tcl_ExternalToUtfDString(encoding,buff1,strlen(buff1),&dstr);
+   buff2 = ALLOCA_N(char,Tcl_DStringLength(&dstr)+1);
+   strcpy(buff2,Tcl_DStringValue(&dstr));
+ 
+   Tcl_FreeEncoding(encoding);
+   Tcl_DStringFree(&dstr);
+ 
+   return str_new2(buff2);
+ };
+ 
+ static VALUE
+ ip_fromUTF8(VALUE self, VALUE str, VALUE encodename)
+ {
+   Tcl_Interp *interp;
+   Tcl_Encoding encoding;
+   Tcl_DString dstr;
+   struct tcltkip *ptr;
+   char *buff1,*buff2;
+ 
+   Data_Get_Struct(self,struct tcltkip, ptr);
+   interp = ptr->ip;
+ 
+   encoding = Tcl_GetEncoding(interp,STR2CSTR(encodename));
+   buff1 = ALLOCA_N(char,strlen(STR2CSTR(str))+1);
+   strcpy(buff1,STR2CSTR(str));
+ 
+   Tcl_DStringInit(&dstr);
+   Tcl_DStringFree(&dstr);
+   Tcl_UtfToExternalDString(encoding,buff1,strlen(buff1),&dstr);
+   buff2 = ALLOCA_N(char,Tcl_DStringLength(&dstr)+1);
+   strcpy(buff2,Tcl_DStringValue(&dstr));
+ 
+   Tcl_FreeEncoding(encoding);
+   Tcl_DStringFree(&dstr);
+ 
+   return str_new2(buff2);
+ };
+ 
+ 
+ static VALUE
  ip_invoke(int argc, VALUE *argv, VALUE obj)
  {
      struct tcltkip *ptr;	/* tcltkip data struct */
***************
*** 356,361 ****
--- 413,420 ----
  
      rb_define_singleton_method(ip, "new", ip_new, 0);
      rb_define_method(ip, "_eval", ip_eval, 1);
+     rb_define_method(ip, "_toUTF8",ip_toUTF8,2);
+     rb_define_method(ip, "_fromUTF8",ip_fromUTF8,2);
      rb_define_method(ip, "_invoke", ip_invoke, -1);
      rb_define_method(ip, "_return_value", ip_retval, 0);
      rb_define_method(ip, "mainloop", lib_mainloop, 0);