akr	2007-12-21 11:52:23 +0900 (Fri, 21 Dec 2007)

  New Revision: 14380

  Modified files:
    trunk/ChangeLog
    trunk/encoding.c
    trunk/include/ruby/encoding.h
    trunk/main.c
    trunk/ruby.c

  Log:
    * encoding.c: include locale.h
      (rb_locale_charmap): new method Encoding.locale_charmap for
      nl_langinfo(CODESET).
    
    * include/ruby/encoding.h (rb_locale_charmap): declared.
    
    * main.c (main): call setlocale with LC_CTYPE.
    
    * ruby.c (locale_encoding): use rb_locale_charmap.


  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/ruby.c?r1=14380&r2=14379
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/ChangeLog?r1=14380&r2=14379
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/include/ruby/encoding.h?r1=14380&r2=14379
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/encoding.c?r1=14380&r2=14379
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/main.c?r1=14380&r2=14379

Index: encoding.c
===================================================================
--- encoding.c	(revision 14379)
+++ encoding.c	(revision 14380)
@@ -14,6 +14,7 @@
 #include "ruby/encoding.h"
 #include "regenc.h"
 #include <ctype.h>
+#include <langinfo.h>
 
 static ID id_encoding, id_based_encoding;
 static VALUE rb_cEncoding;
@@ -703,6 +704,14 @@
     default_external_index = rb_enc_to_index(rb_to_encoding(encoding));
 }
 
+VALUE
+rb_locale_charmap(VALUE klass)
+{
+    char *codeset;
+    codeset = nl_langinfo(CODESET);
+    return rb_str_new2(codeset);
+}
+
 static void
 set_encoding_const(const char *name, rb_encoding *enc)
 {
@@ -772,6 +781,7 @@
     rb_define_singleton_method(rb_cEncoding, "_load", enc_load, 1);
 
     rb_define_singleton_method(rb_cEncoding, "default_external", get_default_external, 0);
+    rb_define_singleton_method(rb_cEncoding, "locale_charmap", rb_locale_charmap, 0);
 
     /* dummy for unsupported, statefull encoding */
     rb_enc_replicate("ISO-2022-JP", rb_enc_find(rb_enc_name(ONIG_ENCODING_ASCII)));
Index: include/ruby/encoding.h
===================================================================
--- include/ruby/encoding.h	(revision 14379)
+++ include/ruby/encoding.h	(revision 14380)
@@ -117,5 +117,6 @@
 rb_encoding *rb_default_external_encoding(void);
 VALUE rb_enc_default_external(void);
 void rb_enc_set_default_external(VALUE encoding);
+VALUE rb_locale_charmap(VALUE klass);
 
 #endif /* RUBY_ENCODING_H */
Index: ChangeLog
===================================================================
--- ChangeLog	(revision 14379)
+++ ChangeLog	(revision 14380)
@@ -1,3 +1,15 @@
+Fri Dec 21 11:47:56 2007  Tanaka Akira  <akr@f...>
+
+	* encoding.c: include locale.h
+	  (rb_locale_charmap): new method Encoding.locale_charmap for
+	  nl_langinfo(CODESET).
+
+	* include/ruby/encoding.h (rb_locale_charmap): declared.
+
+	* main.c (main): call setlocale with LC_CTYPE.
+
+	* ruby.c (locale_encoding): use rb_locale_charmap.
+
 Fri Dec 21 11:35:10 2007  Koichi Sasada  <ko1@a...>
 
 	* vm.c, vm_dump.c: fix typo.  Reported by Yuki Mitsui.
Index: main.c
===================================================================
--- main.c	(revision 14379)
+++ main.c	(revision 14380)
@@ -12,6 +12,7 @@
 
 #undef RUBY_EXPORT
 #include "ruby/ruby.h"
+#include <locale.h>
 
 RUBY_GLOBAL_SETUP
 
@@ -22,6 +23,7 @@
     extern void ruby_set_debug_option(const char *);
     ruby_set_debug_option(getenv("RUBY_DEBUG"));
 #endif
+    setlocale(LC_CTYPE, "");
 
     ruby_sysinit(&argc, &argv);
     {
Index: ruby.c
===================================================================
--- ruby.c	(revision 14379)
+++ ruby.c	(revision 14380)
@@ -138,32 +138,14 @@
 static rb_encoding *
 locale_encoding(void)
 {
-    static const char *const langs[] = {"LC_ALL", "LC_CTYPE", "LANG",};
-    const char *lang, *at;
-    int i, len, idx = 0;
-    char buf[32];
-    rb_encoding *enc;
+    VALUE codeset = rb_locale_charmap(Qnil);
+    char *name = StringValueCStr(codeset);
+    int idx;
 
-    for (i = 0; i < sizeof(langs) / sizeof(langs[0]); ++i) {
-	if (!(lang = getenv(langs[i]))) continue;
-	if (!(lang = strchr(lang, '.'))) continue;
-	at = strchr(++lang, '@');
-	if ((len = (at ? at - lang : strlen(lang))) >= sizeof(buf) - 1) continue;
-	MEMCPY(buf, lang, char, len);
-	buf[len] = 0;
-	idx = rb_enc_find_index(buf);
-	if (idx < 0 && len > 3 &&
-	    (strncasecmp(buf, "euc", 3) == 0 ||
-	     strncasecmp(buf, "utf", 3) == 0) &&
-	    buf[3]) {
-	    MEMMOVE(buf + 4, buf + 3, char, len - 2);
-	    buf[3] = '-';
-	    idx = rb_enc_find_index(buf);
-	}
-	enc = rb_enc_from_index(idx);
-	if (enc) return enc;
-    }
-    return rb_default_encoding();
+    idx = rb_enc_find_index(name);
+    if (idx < 0)
+        return rb_default_encoding();
+    return rb_enc_from_index(idx);
 }
 
 extern VALUE rb_load_path;

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml