/*- * Copyright (c) 2001 Alexey Zelkin * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #include #include #include #include #include #include "timelocal.h" #include "lnumeric.h" #include "lmonetary.h" #include "lmessages.h" #ifndef __CYGWIN__ #define TRANSITION_PERIOD_HACK #endif #define _REL(BASE) ((int)item-BASE) extern char *__locale_charset (); char * _DEFUN(nl_langinfo, (item), nl_item item) { char *ret, *s, *cs; static char *csym = NULL; #ifdef TRANSITION_PERIOD_HACK static char *cset = NULL; #endif /* TRANSITION_PERIOD_HACK */ char *nptr; switch (item) { case CODESET: #ifdef __CYGWIN__ ret = __locale_charset (); /* Convert charset to Linux compatible codeset string. */ if (ret[0] == 'A'/*SCII*/) ret = "ANSI_X3.4-1968"; else if (ret[0] == 'E') { if (strcmp (ret, "EUCJP") == 0) ret = "EUC-JP"; else if (strcmp (ret, "EUCKR") == 0) ret = "EUC-KR"; } else if (ret[0] == 'C'/*Pxxxx*/) { if (strcmp (ret + 2, "874") == 0) ret = "TIS-620"; else if (strcmp (ret + 2, "20866") == 0) ret = "KOI8-R"; else if (strcmp (ret + 2, "21866") == 0) ret = "KOI8-U"; else if (strcmp (ret + 2, "101") == 0) ret = "GEORGIAN-PS"; else if (strcmp (ret + 2, "102") == 0) ret = "PT154"; } else if (ret[0] == 'S'/*JIS*/) { /* Cygwin uses MSFT's implementation of SJIS, which differs in some codepoints from the real thing, especially 0x5c: yen sign instead of backslash, 0x7e: overline instead of tilde. We can't use the real SJIS since otherwise Win32 pathnames would become invalid. OTOH, if we return "SJIS" here, then libiconv will do mb<->wc conversion differently to our internal functions. Therefore we return what we really implement, CP932. This is handled fine by libiconv. */ ret = "CP932"; } #else ret = ""; if ((s = setlocale(LC_CTYPE, NULL)) != NULL) { if ((cs = strchr(s, '.')) != NULL) { ret = cs + 1; #ifdef TRANSITION_PERIOD_HACK if (strncmp(ret, "ISO_", 4) == 0) { int slen = strlen(ret); nptr = realloc(cset, slen); if (!nptr && cset) free (cset); cset = nptr; if (cset != NULL) { strcpy(cset, "ISO"); strcat(cset, ret + 4); ret = cset; } else ret = ""; } else if (strcmp(ret, "EUC") == 0) { if (strncmp(s, "ja_JP", 5) == 0) ret = "eucJP"; else if (strncmp(s, "ko_KR", 5) == 0) ret = "eucKR"; else if (strncmp(s, "zh_CN", 5) == 0) ret = "eucCN"; } else if (strcmp(ret, "ASCII") == 0) ret = "US-ASCII"; #endif /* TRANSITION_PERIOD_HACK */ } else if (strcmp(s, "C") == 0 || strcmp(s, "POSIX") == 0 #ifdef TRANSITION_PERIOD_HACK || strstr(s, "ASCII") != NULL #endif /* TRANSITION_PERIOD_HACK */ ) ret = "US-ASCII"; } #endif /* __CYGWIN__ */ break; case D_T_FMT: ret = (char *) __get_current_time_locale()->c_fmt; break; case D_FMT: ret = (char *) __get_current_time_locale()->x_fmt; break; case T_FMT: ret = (char *) __get_current_time_locale()->X_fmt; break; case T_FMT_AMPM: ret = (char *) __get_current_time_locale()->ampm_fmt; break; case AM_STR: ret = (char *) __get_current_time_locale()->am_pm[0]; break; case PM_STR: ret = (char *) __get_current_time_locale()->am_pm[1]; break; case DAY_1: case DAY_2: case DAY_3: case DAY_4: case DAY_5: case DAY_6: case DAY_7: ret = (char*) __get_current_time_locale()->weekday[_REL(DAY_1)]; break; case ABDAY_1: case ABDAY_2: case ABDAY_3: case ABDAY_4: case ABDAY_5: case ABDAY_6: case ABDAY_7: ret = (char*) __get_current_time_locale()->wday[_REL(ABDAY_1)]; break; case MON_1: case MON_2: case MON_3: case MON_4: case MON_5: case MON_6: case MON_7: case MON_8: case MON_9: case MON_10: case MON_11: case MON_12: ret = (char*) __get_current_time_locale()->month[_REL(MON_1)]; break; case ABMON_1: case ABMON_2: case ABMON_3: case ABMON_4: case ABMON_5: case ABMON_6: case ABMON_7: case ABMON_8: case ABMON_9: case ABMON_10: case ABMON_11: case ABMON_12: ret = (char*) __get_current_time_locale()->mon[_REL(ABMON_1)]; break; case ERA: ret = (char*) __get_current_time_locale()->era; break; case ERA_D_FMT: ret = (char*) __get_current_time_locale()->era_d_fmt; break; case ERA_D_T_FMT: ret = (char*) __get_current_time_locale()->era_d_t_fmt; break; case ERA_T_FMT: ret = (char*) __get_current_time_locale()->era_t_fmt; break; case ALT_DIGITS: ret = (char*) __get_current_time_locale()->alt_digits; break; case _DATE_FMT: /* GNU extension */ ret = (char*) __get_current_time_locale()->date_fmt; break; case RADIXCHAR: ret = (char*) __get_current_numeric_locale()->decimal_point; break; case THOUSEP: ret = (char*) __get_current_numeric_locale()->thousands_sep; break; case YESEXPR: ret = (char*) __get_current_messages_locale()->yesexpr; break; case NOEXPR: ret = (char*) __get_current_messages_locale()->noexpr; break; /* * All items marked with LEGACY are available, but not recomended * by SUSv2 to be used in portable applications since they're subject * to remove in future specification editions */ case YESSTR: /* LEGACY */ ret = (char*) __get_current_messages_locale()->yesstr; break; case NOSTR: /* LEGACY */ ret = (char*) __get_current_messages_locale()->nostr; break; case CRNCYSTR: ret = ""; cs = (char*) __get_current_monetary_locale()->currency_symbol; if (*cs != '\0') { char pos = localeconv()->p_cs_precedes; if (pos == localeconv()->n_cs_precedes) { char psn = '\0'; if (pos == CHAR_MAX) { if (strcmp(cs, __get_current_monetary_locale()->mon_decimal_point) == 0) psn = '.'; } else psn = pos ? '-' : '+'; if (psn != '\0') { int clen = strlen(cs); nptr = realloc(csym, clen + 2); if (!nptr && csym) free (csym); csym = nptr; if (csym != NULL) { *csym = psn; strcpy(csym + 1, cs); ret = csym; } } } } break; case D_MD_ORDER: /* local extension */ ret = (char *) __get_current_time_locale()->md_order; break; default: ret = ""; } return (ret); }