Permalink
Cannot retrieve contributors at this time
138 lines (125 sloc)
3.04 KB
| /********************************************************************** | |
| 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; | |
| #elif defined __CYGWIN__ | |
| idx = ENCINDEX_UTF_8; | |
| #else | |
| idx = rb_enc_to_index(rb_default_external_encoding()); | |
| #endif | |
| return idx; | |
| } |