1 files changed, 138 insertions, 0 deletions
diff --git a/localeinit.c b/localeinit.c
new file mode 100644
index 0000000000..cea2e309f5
--- /dev/null
+++ b/localeinit.c
@@ -0,0 +1,138 @@
+/**********************************************************************
+
+  localeinit.c -
+
+  $Author$
+  created at: Thu Jul 11 22:09:57 JST 2013
+
+  Copyright (C) 2013 Yukihiro Matsumoto
+
+**********************************************************************/
+
+#include "ruby/encoding.h"
+#include "internal.h"
+#include "encindex.h"
+#ifdef __CYGWIN__
+#include <windows.h>
+#endif
+#ifdef HAVE_LANGINFO_H
+#include <langinfo.h>
+#endif
+
+#if defined _WIN32 || defined __CYGWIN__
+#define SIZEOF_CP_NAME ((sizeof(UINT) * 8 / 3) + 4)
+#define CP_FORMAT(buf, codepage) snprintf(buf, sizeof(buf), "CP%u", (codepage))
+
+extern UINT ruby_w32_codepage[2];
+#endif
+
+#ifndef NO_LOCALE_CHARMAP
+# if defined _WIN32 || defined __CYGWIN__ || defined HAVE_LANGINFO_H
+#   define NO_LOCALE_CHARMAP 0
+# else
+#   define NO_LOCALE_CHARMAP 1
+# endif
+#endif
+
+#if !NO_LOCALE_CHARMAP
+static VALUE
+locale_charmap(VALUE (*conv)(const char *))
+{
+    const char *codeset = 0;
+#if defined _WIN32 || defined __CYGWIN__
+    char cp[SIZEOF_CP_NAME];
+# ifdef __CYGWIN__
+    const char *nl_langinfo_codeset(void);
+    codeset = nl_langinfo_codeset();
+# endif
+    if (!codeset) {
+        UINT codepage = ruby_w32_codepage[0];
+        if (!codepage) codepage = GetConsoleCP();
+        if (!codepage) codepage = GetACP();
+        CP_FORMAT(cp, codepage);
+        codeset = cp;
+    }
+#elif defined HAVE_LANGINFO_H
+    codeset = nl_langinfo(CODESET);
+    ASSUME(codeset);
+#else
+# error locale_charmap() is not implemented
+#endif
+    return (*conv)(codeset);
+}
+#endif
+
+/*
+ * call-seq:
+ *   Encoding.locale_charmap -> string
+ *
+ * Returns the locale charmap name.
+ * It returns nil if no appropriate information.
+ *
+ *   Debian GNU/Linux
+ *     LANG=C
+ *       Encoding.locale_charmap  #=> "ANSI_X3.4-1968"
+ *     LANG=ja_JP.EUC-JP
+ *       Encoding.locale_charmap  #=> "EUC-JP"
+ *
+ *   SunOS 5
+ *     LANG=C
+ *       Encoding.locale_charmap  #=> "646"
+ *     LANG=ja
+ *       Encoding.locale_charmap  #=> "eucJP"
+ *
+ * The result is highly platform dependent.
+ * So Encoding.find(Encoding.locale_charmap) may cause an error.
+ * If you need some encoding object even for unknown locale,
+ * Encoding.find("locale") can be used.
+ *
+ */
+VALUE
+rb_locale_charmap(VALUE klass)
+{
+#if NO_LOCALE_CHARMAP
+    return rb_usascii_str_new_cstr("US-ASCII");
+#else
+    return locale_charmap(rb_usascii_str_new_cstr);
+#endif
+}
+
+#if !NO_LOCALE_CHARMAP
+static VALUE
+enc_find_index(const char *name)
+{
+    return (VALUE)rb_enc_find_index(name);
+}
+#endif
+
+int
+rb_locale_charmap_index(void)
+{
+#if NO_LOCALE_CHARMAP
+    return ENCINDEX_US_ASCII;
+#else
+    return (int)locale_charmap(enc_find_index);
+#endif
+}
+
+int
+Init_enc_set_filesystem_encoding(void)
+{
+    int idx;
+#if NO_LOCALE_CHARMAP
+    idx = ENCINDEX_US_ASCII;
+#elif defined _WIN32
+    char cp[SIZEOF_CP_NAME];
+    const UINT codepage = ruby_w32_codepage[1];
+    if (!codepage) return ENCINDEX_UTF_8;
+    /* for debugging */
+    CP_FORMAT(cp, codepage);
+    idx = rb_enc_find_index(cp);
+    if (idx < 0) idx = ENCINDEX_ASCII_8BIT;
+#elif defined __CYGWIN__
+    idx = ENCINDEX_UTF_8;
+#else
+    idx = rb_enc_to_index(rb_default_external_encoding());
+#endif
+    return idx;
+}