[ruby-dev:20620] Re: rexmlのuconv依存

なかだです。

At Thu, 10 Jul 2003 17:20:04 +0900,
Tanaka Akira wrote:
> > 吸収したいのは山々なんですが、iconvで何が使えるのか調べる方法と
> > 対応付がシステム依存になってしまうというところで止まってます。
> 
> このへんはシステム毎にアドホックにやるしかないでしょうから、iconv.rb
> をつくってそっちを呼び出すようにすればいいんじゃないかと思ってます。
> 
> まぁ、システムによっては方法が無いかもしれませんが、最悪ハードコードで
> もいいじゃありませんか。

その辺はしょうがないと思いますが、そのハードコードの元データを
どうしようかと。

> >> ていて、Solaris については公式っぽい対応表を捜し出すところまではやった
> >> のですが...
> >
> > どんなものでしょう。
> 
> http://jp.sun.com/software/management/internet/sims/docs/rn/probs_rnotes.1.html
> 
> の最後の「IMAP4 検索でサポートされる文字セット」です。

http://www.ctan.org/tex-archive/macros/texinfo/texinfo/intl/config.charset
もほぼ同じですね。

> 結局、メール関係を iconv で扱おうとすれば、(iconv が直接 MIME charset
> を扱わない限り)どうしてもこういう対応表は必要になります。だから、メー
> ルを扱うシステムが提供されてればどっかにはあるはずです。まぁ、それが公
> 開されているかどうかはわかんないわけで、最悪、システム付属の MUA
> (Solaris なら dtmail) のバイナリを strings するなどといった必要がある
> かも知れませんが。

それははげしくいやーん。というかクロスのときには使えませんね。

とりあえずこんなのを作ってみました。上のconfig.charsetが必要で
す。


Index: ext/iconv/MANIFEST
===================================================================
RCS file: /cvs/ruby/src/ruby/ext/iconv/MANIFEST,v
retrieving revision 1.2
diff -u -2 -p -r1.2 MANIFEST
--- ext/iconv/MANIFEST	18 Mar 2002 09:23:11 -0000	1.2
+++ ext/iconv/MANIFEST	10 Jul 2003 13:08:19 -0000
@@ -3,2 +3,4 @@ extconf.rb
 iconv.c
 depend
+iconv-sysdep.rb
+config.charset
Index: ext/iconv/extconf.rb
===================================================================
RCS file: /cvs/ruby/src/ruby/ext/iconv/extconf.rb,v
retrieving revision 1.2
diff -u -2 -p -r1.2 extconf.rb
--- ext/iconv/extconf.rb	18 Mar 2002 03:54:10 -0000	1.2
+++ ext/iconv/extconf.rb	10 Jul 2003 13:06:22 -0000
@@ -1,8 +1,42 @@
 require 'mkmf'
 
+# http://www.ctan.org/tex-archive/macros/texinfo/texinfo/intl/config.charset
+# at Fri, 30 May 2003 00:09:00 GMT
+
 dir_config("iconv")
 
+config_charset = with_config("iconv-config.charset", "#{$srcdir}/config.charset")
+
+def charset_alias(config_charset)
+  map = {}
+  os = CONFIG["target_os"]
+  unless /linux|-gnu/ =~ os
+    comments = []
+    shell = with_config("shell", CONFIG['/bin/sh'])
+    IO.popen("#{shell} #{config_charset} #{os}", "r") do |conf|
+      conf.each do |list|
+        next if /^\#/ =~ list
+        next unless /^(\S+)\s+(\S+)$/ =~ list
+        next if $1 == $2
+        map[$2] = $1
+      end
+    end
+  end
+  if map.empty?
+    File.rm_f("./iconv.rb")
+  else
+    open("iconv.rb", "w") do |f|
+      f.puts(comments)
+      f.puts("require 'iconv-sysdep'\nclass Iconv\n  Sysdep = {")
+      map.each {|can, sys| f.puts("    '#{can}' => '#{sys}',")}
+      f.puts("  }\nend")
+    end
+    $INSTALLFILES = [["iconv-sysdep.rb", "$(RUBYLIBDIR)"], ["./iconv.rb", "$(RUBYARCHDIR)"]]
+  end
+end
+
 if have_header("iconv.h")
   have_library("iconv")
+  charset_alias(config_charset)
   create_makefile("iconv")
 end
Index: ext/iconv/iconv.c
===================================================================
RCS file: /cvs/ruby/src/ruby/ext/iconv/iconv.c,v
retrieving revision 1.6
diff -u -2 -p -r1.6 iconv.c
--- ext/iconv/iconv.c	4 May 2003 16:03:14 -0000	1.6
+++ ext/iconv/iconv.c	10 Jul 2003 13:10:16 -0000
@@ -64,4 +64,5 @@ static VALUE iconv_failure_failed _((VAL
 
 static iconv_t iconv_create _((VALUE to, VALUE from));
+static void iconv_dfree _((void *cd));
 static VALUE iconv_free _((VALUE cd));
 static VALUE iconv_try _((iconv_t cd, const char **inptr, size_t *inlen, char **outptr, size_t *outlen));
@@ -123,4 +124,18 @@ iconv_create
 }
 
+static void
+iconv_dfree
+#ifdef HAVE_PROTOTYPES
+(void *cd)
+#else /* HAVE_PROTOTYPES */
+    (cd)
+    void *cd;
+#endif /* HAVE_PROTOTYPES */
+{
+    iconv_close(VALUE2ICONV(cd));
+}
+
+#define ICONV_FREE iconv_dfree
+
 static VALUE
 iconv_free
@@ -137,6 +152,4 @@ iconv_free
 }
 
-#define ICONV_FREE (RUBY_DATA_FUNC)iconv_free
-
 static VALUE
 iconv_try
@@ -189,5 +202,5 @@ iconv_failure_initialize
 #endif /* HAVE_PROTOTYPES */
 {
-    if (!rb_ivar_defined(error, rb_mesg) || NIL_P(rb_ivar_get(error, rb_mesg)))
+    if (NIL_P(rb_attr_get(error, rb_mesg)))
 	rb_ivar_set(error, rb_mesg, rb_inspect(failed));
     if (env) {
@@ -479,4 +492,22 @@ iconv_s_iconv
 }
 
+static VALUE
+iconv_s_conv
+#ifdef HAVE_PROTOTYPES
+    (VALUE self, VALUE to, VALUE from, VALUE str)
+#else /* HAVE_PROTOTYPES */
+    (self, to, from, str)
+    VALUE self, to, from, str;
+#endif /* HAVE_PROTOTYPES */
+{
+    struct iconv_env_t arg;
+
+    arg.argc = 1;
+    arg.argv = &str;
+    arg.ret = rb_str_new(0, 0);
+    arg.cd = iconv_create(to, from);
+    return rb_ensure(iconv_s_convert, (VALUE)&arg, iconv_free, ICONV2VALUE(arg.cd));
+}
+
 
 /*
@@ -691,7 +722,13 @@ Init_iconv _((void))
 {
     VALUE rb_cIconv = rb_define_class("Iconv", rb_cData);
+    VALUE metaclass = RBASIC(rb_cIconv)->klass;
+
     rb_define_alloc_func(rb_cIconv, iconv_s_allocate);
     rb_define_singleton_method(rb_cIconv, "open", iconv_s_open, 2);
     rb_define_singleton_method(rb_cIconv, "iconv", iconv_s_iconv, -1);
+    rb_define_singleton_method(rb_cIconv, "conv", iconv_s_conv, 3);
+    rb_enable_super(metaclass, "open");
+    rb_enable_super(metaclass, "iconv");
+    rb_enable_super(metaclass, "conv");
     rb_define_method(rb_cIconv, "initialize", iconv_initialize, 2);
     rb_define_method(rb_cIconv, "close", iconv_finish, 0);
Index: ext/iconv/iconv-sysdep.rb
===================================================================
RCS file: ext/iconv/iconv-sysdep.rb
diff -N ext/iconv/iconv-sysdep.rb
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ ext/iconv/iconv-sysdep.rb	10 Jul 2003 12:50:09 -0000
@@ -0,0 +1,28 @@
+require 'iconv.so'
+class Iconv
+  init = instance_method(:initialize)
+  open = method(:open)
+  iconv = method(:iconv)
+  include Module.new {
+    define_method(:initialize, init)
+  }
+  extend Module.new {
+    define_method(:open, open)
+    define_method(:iconv, iconv)
+  }
+  def initialize(to, from)
+    to = Sysdep.fetch(to) {to}
+    from = Sysdep.fetch(from) {from}
+    super
+  end
+  def self.open(to, from)
+    to = Sysdep.fetch(to) {to}
+    from = Sysdep.fetch(from) {from}
+    super
+  end
+  def self.iconv(to, from, *args)
+    to = Sysdep.fetch(to) {to}
+    from = Sysdep.fetch(from) {from}
+    super
+  end
+end


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦