Welcome to mirror list, hosted at ThFree Co, Russian Federation.

cygwin.com/git/newlib-cygwin.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
path: root/winsup/utils/locale.cc
diff options
context:
space:
mode:
Diffstat (limited to 'winsup/utils/locale.cc')
-rw-r--r--winsup/utils/locale.cc807
1 files changed, 0 insertions, 807 deletions
diff --git a/winsup/utils/locale.cc b/winsup/utils/locale.cc
deleted file mode 100644
index d6d1064a7..000000000
--- a/winsup/utils/locale.cc
+++ /dev/null
@@ -1,807 +0,0 @@
-/*
- * Copyright (c) 2010, Corinna Vinschen
- * 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 <stdio.h>
-#include <ctype.h>
-#include <getopt.h>
-#include <string.h>
-#include <wchar.h>
-#include <locale.h>
-#include <langinfo.h>
-#include <limits.h>
-#include <sys/cygwin.h>
-#define WINVER 0x0601
-#include <windows.h>
-
-#define LOCALE_ALIAS "/usr/share/locale/locale.alias"
-#define LOCALE_ALIAS_LINE_LEN 255
-
-extern char *__progname;
-
-void usage (FILE *, int) __attribute__ ((noreturn));
-
-void
-usage (FILE * stream, int status)
-{
- fprintf (stream,
- "Usage: %s [-amsuUvh]\n"
- " or: %s [-ck] NAME\n"
- "Get locale-specific information.\n"
- "\n"
- "Options:\n"
- "\n"
- " -a, --all-locales List all available supported locales\n"
- " -c, --category-name List information about given category NAME\n"
- " -k, --keyword-name Print information about given keyword NAME\n"
- " -m, --charmaps List all available character maps\n"
- " -s, --system Print system default locale\n"
- " -u, --user Print user's default locale\n"
- " -U, --utf Attach \".UTF-8\" to the result\n"
- " -v, --verbose More verbose output\n"
- " -h, --help This text\n",
- __progname, __progname);
- exit (status);
-}
-
-struct option longopts[] = {
- {"all-locales", no_argument, NULL, 'a'},
- {"category-name", no_argument, NULL, 'c'},
- {"keyword-name", no_argument, NULL, 'k'},
- {"charmaps", no_argument, NULL, 'm'},
- {"system", no_argument, NULL, 's'},
- {"user", no_argument, NULL, 'u'},
- {"utf", no_argument, NULL, 'U'},
- {"verbose", no_argument, NULL, 'v'},
- {"help", no_argument, NULL, 'h'},
- {0, no_argument, NULL, 0}
-};
-const char *opts = "achkmsuUv";
-
-int
-getlocale (LCID lcid, char *name)
-{
- char iso639[10];
- char iso3166[10];
-
- iso3166[0] = '\0';
- if (!GetLocaleInfo (lcid, LOCALE_SISO639LANGNAME, iso639, 10))
- return 0;
- GetLocaleInfo (lcid, LOCALE_SISO3166CTRYNAME, iso3166, 10);
- sprintf (name, "%s%s%s", iso639, lcid > 0x3ff ? "_" : "",
- lcid > 0x3ff ? iso3166 : "");
- return 1;
-}
-
-typedef struct {
- const char *name;
- const wchar_t *language;
- const wchar_t *territory;
- const char *codeset;
- bool alias;
-} loc_t;
-loc_t *locale;
-size_t loc_max;
-size_t loc_num;
-
-void
-print_codeset (const char *codeset)
-{
- for (; *codeset; ++codeset)
- if (*codeset != '-')
- putc (tolower ((int)(unsigned char) *codeset), stdout);
-}
-
-void
-print_locale_with_codeset (int verbose, loc_t *locale, bool utf8,
- const char *modifier)
-{
- static const char *sysroot;
- char locname[32];
-
- if (verbose
- && (!strcmp (locale->name, "C") || !strcmp (locale->name, "POSIX")))
- return;
- if (!sysroot)
- {
- char sysbuf[PATH_MAX];
- HMODULE k32 = GetModuleHandleW (L"kernel32.dll");
- if (GetModuleFileName (k32, sysbuf, PATH_MAX))
- sysroot = (const char *) cygwin_create_path (CCP_WIN_A_TO_POSIX,
- sysbuf);
- if (!sysroot)
- sysroot = "kernel32.dll";
- }
- snprintf (locname, 32, "%s%s%s%s", locale->name, utf8 ? ".utf8" : "",
- modifier ? "@" : "", modifier ?: "");
- if (verbose)
- fputs ("locale: ", stdout);
- printf ("%-15s ", locname);
- if (verbose)
- {
- printf ("archive: %s\n",
- locale->alias ? LOCALE_ALIAS : sysroot);
- puts ("-------------------------------------------------------------------------------");
- printf (" language | %ls\n", locale->language);
- printf ("territory | %ls\n", locale->territory);
- printf (" codeset | %s\n", utf8 ? "UTF-8" : locale->codeset);
- }
- putc ('\n', stdout);
-}
-
-void
-print_locale (int verbose, loc_t *locale)
-{
- print_locale_with_codeset (verbose, locale, false, NULL);
- char *modifier = strchr (locale->name, '@');
- if (!locale->alias)
- {
- if (!modifier)
- print_locale_with_codeset (verbose, locale, true, NULL);
- else if (!strcmp (modifier, "@cjknarrow"))
- {
- *modifier++ = '\0';
- print_locale_with_codeset (verbose, locale, true, modifier);
- }
- }
-}
-
-int
-compare_locales (const void *a, const void *b)
-{
- const loc_t *la = (const loc_t *) a;
- const loc_t *lb = (const loc_t *) b;
- return strcmp (la->name, lb->name);
-}
-
-void
-add_locale (const char *name, const wchar_t *language, const wchar_t *territory,
- bool alias = false)
-{
- char orig_locale[32];
-
- if (loc_num >= loc_max)
- {
- loc_t *tmp = (loc_t *) realloc (locale, (loc_max + 32) * sizeof (loc_t));
- if (!tmp)
- {
- fprintf (stderr, "Out of memory!\n");
- exit (1);
- }
- locale = tmp;
- loc_max += 32;
- }
- locale[loc_num].name = strdup (name);
- locale[loc_num].language = wcsdup (language);
- locale[loc_num].territory = wcsdup (territory);
- strcpy (orig_locale, setlocale (LC_CTYPE, NULL));
- setlocale (LC_CTYPE, name);
- locale[loc_num].codeset = strdup (nl_langinfo (CODESET));
- setlocale (LC_CTYPE, orig_locale);
- locale[loc_num].alias = alias;
- ++loc_num;
-}
-
-void
-add_locale_alias_locales ()
-{
- char alias_buf[LOCALE_ALIAS_LINE_LEN + 1], *c;
- const char *alias, *replace;
- char orig_locale[32];
- loc_t search, *loc;
- size_t orig_loc_num = loc_num;
-
- FILE *fp = fopen (LOCALE_ALIAS, "rt");
- if (!fp)
- return;
- strcpy (orig_locale, setlocale (LC_CTYPE, NULL));
- while (fgets (alias_buf, LOCALE_ALIAS_LINE_LEN + 1, fp))
- {
- alias_buf[LOCALE_ALIAS_LINE_LEN] = '\0';
- c = strrchr (alias_buf, '\n');
- if (c)
- *c = '\0';
- c = alias_buf;
- c += strspn (c, " \t");
- if (!*c || *c == '#')
- continue;
- alias = c;
- c += strcspn (c, " \t");
- *c++ = '\0';
- c += strspn (c, " \t");
- if (*c == '#')
- continue;
- replace = c;
- c += strcspn (c, " \t");
- *c++ = '\0';
- c = strchr (replace, '.');
- if (c)
- *c = '\0';
- search.name = replace;
- loc = (loc_t *) bsearch (&search, locale, orig_loc_num, sizeof (loc_t),
- compare_locales);
- add_locale (alias, loc ? loc->language : L"", loc ? loc->territory : L"",
- true);
- }
- fclose (fp);
-}
-
-void
-print_all_locales (int verbose)
-{
- LCID lcid = 0;
- char name[32];
- DWORD cp;
-
- unsigned lang, sublang;
-
- add_locale ("C", L"C", L"POSIX");
- add_locale ("POSIX", L"C", L"POSIX", true);
- for (lang = 1; lang <= 0xff; ++lang)
- {
- struct {
- wchar_t language[256];
- wchar_t country[256];
- char loc[32];
- } loc_list[32];
- int lcnt = 0;
-
- for (sublang = 1; sublang <= 0x3f; ++sublang)
- {
- lcid = (sublang << 10) | lang;
- if (getlocale (lcid, name))
- {
- wchar_t language[256];
- wchar_t country[256];
- int i;
- char *c, loc[32];
- wchar_t wbuf[9];
-
- /* Go figure. Even the English name of a language or
- locale might contain native characters. */
- GetLocaleInfoW (lcid, LOCALE_SENGLANGUAGE, language, 256);
- GetLocaleInfoW (lcid, LOCALE_SENGCOUNTRY, country, 256);
- /* Avoid dups */
- for (i = 0; i < lcnt; ++ i)
- if (!wcscmp (loc_list[i].language, language)
- && !wcscmp (loc_list[i].country, country))
- break;
- if (i < lcnt)
- continue;
- if (lcnt < 32)
- {
- wcscpy (loc_list[lcnt].language, language);
- wcscpy (loc_list[lcnt].country, country);
- }
- c = stpcpy (loc, name);
- /* Convert old sr_SP silently to sr_CS on old systems.
- Make sure sr_CS country is in recent shape. */
- if (lang == LANG_SERBIAN
- && (sublang == SUBLANG_SERBIAN_LATIN
- || sublang == SUBLANG_SERBIAN_CYRILLIC))
- {
- c = stpcpy (loc, "sr_CS");
- wcscpy (country, L"Serbia and Montenegro (Former)");
- }
- /* Now check certain conditions to figure out if that
- locale requires a modifier. */
- if (lang == LANG_SERBIAN && !strncmp (loc, "sr_", 3)
- && wcsstr (language, L"(Latin)"))
- stpcpy (c, "@latin");
- else if (lang == LANG_UZBEK
- && sublang == SUBLANG_UZBEK_CYRILLIC)
- stpcpy (c, "@cyrillic");
- /* Avoid more dups */
- for (i = 0; i < lcnt; ++ i)
- if (!strcmp (loc_list[i].loc, loc))
- {
- lcnt++;
- break;
- }
- if (i < lcnt)
- continue;
- if (lcnt < 32)
- strcpy (loc_list[lcnt++].loc, loc);
- /* Print */
- add_locale (loc, language, country);
- /* Check for locales which sport a modifier for
- changing the codeset and other stuff. */
- if (lang == LANG_BELARUSIAN
- && sublang == SUBLANG_BELARUSIAN_BELARUS)
- stpcpy (c, "@latin");
- else if (lang == LANG_TATAR
- && sublang == SUBLANG_TATAR_RUSSIA)
- stpcpy (c, "@iqtelif");
- else if (GetLocaleInfoW (lcid,
- LOCALE_IDEFAULTANSICODEPAGE
- | LOCALE_RETURN_NUMBER,
- (PWCHAR) &cp, sizeof cp)
- && cp == 1252 /* Latin1*/
- && GetLocaleInfoW (lcid, LOCALE_SINTLSYMBOL, wbuf, 9)
- && !wcsncmp (wbuf, L"EUR", 3))
- stpcpy (c, "@euro");
- else if (lang == LANG_JAPANESE
- || lang == LANG_KOREAN
- || lang == LANG_CHINESE)
- stpcpy (c, "@cjknarrow");
- else
- continue;
- add_locale (loc, language, country);
- }
- }
- /* Check Serbian language for the available territories. Up to
- Server 2003 we only had sr_SP (silently converted to sr_CS
- above), in Vista we had only sr_CS. First starting with W7 we
- have the actual sr_RS and sr_ME. However, all of them are
- supported on all systems in Cygwin. So we fake them here, if
- they are missing. */
- if (lang == LANG_SERBIAN)
- {
- int sr_CS_idx = -1;
- int sr_RS_idx = -1;
- int i;
-
- for (i = 0; i < lcnt; ++ i)
- if (!strcmp (loc_list[i].loc, "sr_CS"))
- sr_CS_idx = i;
- else if (!strcmp (loc_list[i].loc, "sr_RS"))
- sr_RS_idx = i;
- if (sr_CS_idx > 0 && sr_RS_idx == -1)
- {
- add_locale ("sr_RS@latin", L"Serbian (Latin)", L"Serbia");
- add_locale ("sr_RS", L"Serbian (Cyrillic)", L"Serbia");
- add_locale ("sr_ME@latin", L"Serbian (Latin)", L"Montenegro");
- add_locale ("sr_ME", L"Serbian (Cyrillic)", L"Montenegro");
- }
- }
- }
- /* First sort allows add_locale_alias_locales to bsearch in locales. */
- qsort (locale, loc_num, sizeof (loc_t), compare_locales);
- add_locale_alias_locales ();
- qsort (locale, loc_num, sizeof (loc_t), compare_locales);
- for (size_t i = 0; i < loc_num; ++i)
- print_locale (verbose, &locale[i]);
-}
-
-void
-print_charmaps ()
-{
- /* FIXME: We need a method to fetch the available charsets from Cygwin, */
- const char *charmaps[] =
- {
- "ASCII",
- "BIG5",
- "CP1125",
- "CP1250",
- "CP1251",
- "CP1252",
- "CP1253",
- "CP1254",
- "CP1255",
- "CP1256",
- "CP1257",
- "CP1258",
- "CP437",
- "CP720",
- "CP737",
- "CP775",
- "CP850",
- "CP852",
- "CP855",
- "CP857",
- "CP858",
- "CP862",
- "CP866",
- "CP874",
- "CP932",
- "EUC-CN",
- "EUC-JP",
- "EUC-KR",
- "GB2312",
- "GBK",
- "GEORGIAN-PS",
- "ISO-8859-1",
- "ISO-8859-10",
- "ISO-8859-11",
- "ISO-8859-13",
- "ISO-8859-14",
- "ISO-8859-15",
- "ISO-8859-16",
- "ISO-8859-2",
- "ISO-8859-3",
- "ISO-8859-4",
- "ISO-8859-5",
- "ISO-8859-6",
- "ISO-8859-7",
- "ISO-8859-8",
- "ISO-8859-9",
- "KOI8-R",
- "KOI8-U",
- "PT154",
- "SJIS",
- "TIS-620",
- "UTF-8",
- NULL
- };
- const char **charmap = charmaps;
- while (*charmap)
- printf ("%s\n", *charmap++);
-}
-
-void
-print_lc_ivalue (int key, const char *name, int value)
-{
- if (key)
- printf ("%s=", name);
- printf ("%d", value == CHAR_MAX ? -1 : value);
- fputc ('\n', stdout);
-}
-
-void
-print_lc_svalue (int key, const char *name, const char *value)
-{
- if (key)
- printf ("%s=\"", name);
- fputs (value, stdout);
- if (key)
- fputc ('"', stdout);
- fputc ('\n', stdout);
-}
-
-void
-print_lc_sepstrings (int key, const char *name, const char *value)
-{
- char *c;
-
- if (key)
- printf ("%s=", name);
- while (value && *value)
- {
- if (key)
- fputc ('"', stdout);
- c = strchr (value, ';');
- if (!c)
- {
- fputs (value, stdout);
- value = NULL;
- }
- else
- {
- printf ("%.*s", c - value, value);
- value = c + 1;
- }
- if (key)
- fputc ('"', stdout);
- if (value && *value)
- fputc (';', stdout);
- }
- fputc ('\n', stdout);
-}
-
-void
-print_lc_strings (int key, const char *name, int from, int to)
-{
- if (key)
- printf ("%s=\"", name);
- for (int i = from; i <= to; ++i)
- printf ("%s%s", i > from ? ";" : "", nl_langinfo (i));
- if (key)
- fputc ('"', stdout);
- fputc ('\n', stdout);
-}
-
-void
-print_lc_grouping (int key, const char *name, const char *grouping)
-{
- if (key)
- printf ("%s=", name);
- for (const char *g = grouping; *g; ++g)
- printf ("%s%d", g > grouping ? ";" : "", *g == CHAR_MAX ? -1 : *g);
- fputc ('\n', stdout);
-}
-
-enum type_t
-{
- is_string_fake,
- is_grouping,
- is_string,
- is_mstrings,
- is_sepstrings,
- is_int,
- is_wchar,
- is_end
-};
-
-struct lc_names_t
-{
- const char *name;
- type_t type;
- size_t fromval;
- size_t toval;
-};
-
-const char *fake_string[] = {
- "upper;lower;alpha;digit;xdigit;space;print;graph;blank;cntrl;punct;alnum",
- "upper\";\"lower\";\"alpha\";\"digit\";\"xdigit\";\"space\";\"print\";\"graph\";\"blank\";\"cntrl\";\"punct\";\"alnum",
- "toupper;tolower",
- "toupper\";\"tolower"
-};
-
-lc_names_t lc_ctype_names[] =
-{
- { "ctype-class-names", is_string_fake, 0, 0 },
- { "ctype-map-names", is_string_fake, 2, 0 },
- { "ctype-outdigit0_mb", is_string, _NL_CTYPE_OUTDIGITS0_MB, 0 },
- { "ctype-outdigit1_mb", is_string, _NL_CTYPE_OUTDIGITS1_MB, 0 },
- { "ctype-outdigit2_mb", is_string, _NL_CTYPE_OUTDIGITS2_MB, 0 },
- { "ctype-outdigit3_mb", is_string, _NL_CTYPE_OUTDIGITS3_MB, 0 },
- { "ctype-outdigit4_mb", is_string, _NL_CTYPE_OUTDIGITS4_MB, 0 },
- { "ctype-outdigit5_mb", is_string, _NL_CTYPE_OUTDIGITS5_MB, 0 },
- { "ctype-outdigit6_mb", is_string, _NL_CTYPE_OUTDIGITS6_MB, 0 },
- { "ctype-outdigit7_mb", is_string, _NL_CTYPE_OUTDIGITS7_MB, 0 },
- { "ctype-outdigit8_mb", is_string, _NL_CTYPE_OUTDIGITS8_MB, 0 },
- { "ctype-outdigit9_mb", is_string, _NL_CTYPE_OUTDIGITS9_MB, 0 },
- { "ctype-outdigit0_wc", is_wchar, _NL_CTYPE_OUTDIGITS0_WC, 0 },
- { "ctype-outdigit1_wc", is_wchar, _NL_CTYPE_OUTDIGITS1_WC, 0 },
- { "ctype-outdigit2_wc", is_wchar, _NL_CTYPE_OUTDIGITS2_WC, 0 },
- { "ctype-outdigit3_wc", is_wchar, _NL_CTYPE_OUTDIGITS3_WC, 0 },
- { "ctype-outdigit4_wc", is_wchar, _NL_CTYPE_OUTDIGITS4_WC, 0 },
- { "ctype-outdigit5_wc", is_wchar, _NL_CTYPE_OUTDIGITS5_WC, 0 },
- { "ctype-outdigit6_wc", is_wchar, _NL_CTYPE_OUTDIGITS6_WC, 0 },
- { "ctype-outdigit7_wc", is_wchar, _NL_CTYPE_OUTDIGITS7_WC, 0 },
- { "ctype-outdigit8_wc", is_wchar, _NL_CTYPE_OUTDIGITS8_WC, 0 },
- { "ctype-outdigit9_wc", is_wchar, _NL_CTYPE_OUTDIGITS9_WC, 0 },
- { "charmap", is_string, CODESET, 0 },
- { "ctype-mb-cur-max", is_int, _NL_CTYPE_MB_CUR_MAX, 0 },
- { NULL, is_end, 0, 0 }
-};
-
-lc_names_t lc_numeric_names[] =
-{
- { "decimal_point", is_string, RADIXCHAR, 0 },
- { "thousands_sep", is_string, THOUSEP, 0 },
- { "grouping", is_grouping, _NL_NUMERIC_GROUPING, 0 },
- { "numeric-decimal-point-wc", is_wchar, _NL_NUMERIC_DECIMAL_POINT_WC, 0 },
- { "numeric-thousands-sep-wc", is_wchar, _NL_NUMERIC_THOUSANDS_SEP_WC, 0 },
- { "numeric-codeset", is_string, _NL_NUMERIC_CODESET, 0 },
- { NULL, is_end, 0, 0 }
-};
-
-lc_names_t lc_time_names[] =
-{
- { "abday", is_mstrings, ABDAY_1, ABDAY_7 },
- { "day", is_mstrings, DAY_1, DAY_7 },
- { "abmon", is_mstrings, ABMON_1, ABMON_12 },
- { "mon", is_mstrings, MON_1, MON_12 },
- { "am_pm", is_mstrings, AM_STR, PM_STR },
- { "d_t_fmt", is_string, D_T_FMT, 0 },
- { "d_fmt", is_string, D_FMT, 0 },
- { "t_fmt", is_string, T_FMT, 0 },
- { "t_fmt_ampm", is_string, T_FMT_AMPM, 0 },
- { "era", is_sepstrings, ERA, 0 },
- { "era_d_fmt", is_string, ERA_D_FMT, 0 },
- { "alt_digits", is_sepstrings,ALT_DIGITS, 0 },
- { "era_d_t_fmt", is_string, ERA_D_T_FMT, 0 },
- { "era_t_fmt", is_string, ERA_T_FMT, 0 },
- { "date_fmt", is_string, _DATE_FMT, 0 },
- { "time-codeset", is_string, _NL_TIME_CODESET, 0 },
- { NULL, is_end, 0, 0 }
-};
-
-lc_names_t lc_collate_names[] =
-{
- { "collate-codeset", is_string, _NL_COLLATE_CODESET, 0 },
- { NULL, is_end, 0, 0 }
-};
-
-lc_names_t lc_monetary_names[] =
-{
- { "int_curr_symbol", is_string, _NL_MONETARY_INT_CURR_SYMBOL, 0 },
- { "currency_symbol", is_string, _NL_MONETARY_CURRENCY_SYMBOL, 0 },
- { "mon_decimal_point", is_string, _NL_MONETARY_MON_DECIMAL_POINT, 0 },
- { "mon_thousands_sep", is_string, _NL_MONETARY_MON_THOUSANDS_SEP, 0 },
- { "mon_grouping", is_grouping, _NL_MONETARY_MON_GROUPING, 0 },
- { "positive_sign", is_string, _NL_MONETARY_POSITIVE_SIGN, 0 },
- { "negative_sign", is_string, _NL_MONETARY_NEGATIVE_SIGN, 0 },
- { "int_frac_digits", is_int, _NL_MONETARY_INT_FRAC_DIGITS, 0 },
- { "frac_digits", is_int, _NL_MONETARY_FRAC_DIGITS, 0 },
- { "p_cs_precedes", is_int, _NL_MONETARY_P_CS_PRECEDES, 0 },
- { "p_sep_by_space", is_int, _NL_MONETARY_P_SEP_BY_SPACE, 0 },
- { "n_cs_precedes", is_int, _NL_MONETARY_N_CS_PRECEDES, 0 },
- { "n_sep_by_space", is_int, _NL_MONETARY_N_SEP_BY_SPACE, 0 },
- { "p_sign_posn", is_int, _NL_MONETARY_P_SIGN_POSN, 0 },
- { "n_sign_posn", is_int, _NL_MONETARY_N_SIGN_POSN, 0 },
- { "int_p_cs_precedes", is_int, _NL_MONETARY_INT_P_CS_PRECEDES, 0 },
- { "int_p_sep_by_space", is_int, _NL_MONETARY_INT_P_SEP_BY_SPACE,0 },
- { "int_n_cs_precedes", is_int, _NL_MONETARY_INT_N_CS_PRECEDES, 0 },
- { "int_n_sep_by_space", is_int, _NL_MONETARY_INT_N_SEP_BY_SPACE,0 },
- { "int_p_sign_posn", is_int, _NL_MONETARY_INT_P_SIGN_POSN, 0 },
- { "int_n_sign_posn", is_int, _NL_MONETARY_INT_N_SIGN_POSN, 0 },
- { "monetary-decimal-point-wc", is_wchar, _NL_MONETARY_WMON_DECIMAL_POINT, 0 },
- { "monetary-thousands-sep-wc", is_wchar, _NL_MONETARY_WMON_THOUSANDS_SEP, 0 },
- { "monetary-codeset", is_string, _NL_MONETARY_CODESET, 0 },
- { NULL, is_end, 0, 0 }
-};
-
-lc_names_t lc_messages_names[] =
-{
- { "yesexpr", is_string, YESEXPR, 0 },
- { "noexpr", is_string, NOEXPR, 0 },
- { "yesstr", is_string, YESSTR, 0 },
- { "nostr", is_string, NOSTR, 0 },
- { "messages-codeset", is_string, _NL_MESSAGES_CODESET, 0 },
- { NULL, is_end, 0, 0 }
-};
-
-void
-print_lc (int cat, int key, const char *category, const char *name,
- lc_names_t *lc_name)
-{
- if (cat)
- printf ("%s\n", category);
- for (lc_names_t *lc = lc_name; lc->type != is_end; ++lc)
- if (!name || !strcmp (name, lc->name))
- switch (lc->type)
- {
- case is_string_fake:
- print_lc_svalue (key, lc->name, fake_string[lc->fromval + key]);
- break;
- case is_grouping:
- print_lc_grouping (key, lc->name, nl_langinfo (lc->fromval));
- break;
- case is_string:
- print_lc_svalue (key, lc->name, nl_langinfo (lc->fromval));
- break;
- case is_sepstrings:
- print_lc_sepstrings (key, lc->name, nl_langinfo (lc->fromval));
- break;
- case is_mstrings:
- print_lc_strings (key, lc->name, lc->fromval, lc->toval);
- break;
- case is_int:
- print_lc_ivalue (key, lc->name, (int) *nl_langinfo (lc->fromval));
- break;
- case is_wchar:
- print_lc_ivalue (key, lc->name,
- *(wchar_t *) nl_langinfo (lc->fromval));
- break;
- default:
- break;
- }
-}
-
-struct cat_t
-{
- const char *category;
- int lc_cat;
- lc_names_t *lc_names;
-} categories[] =
-{
- { "LC_CTYPE", LC_CTYPE, lc_ctype_names },
- { "LC_NUMERIC", LC_NUMERIC, lc_numeric_names },
- { "LC_TIME", LC_TIME, lc_time_names },
- { "LC_COLLATE", LC_COLLATE, lc_collate_names },
- { "LC_MONETARY", LC_MONETARY, lc_monetary_names },
- { "LC_MESSAGES", LC_MESSAGES, lc_messages_names },
- { NULL, 0, NULL }
-};
-
-void
-print_names (int cat, int key, const char *name)
-{
- struct cat_t *c;
- lc_names_t *lc;
-
- for (c = categories; c->category; ++c)
- if (!strcmp (name, c->category))
- {
- print_lc (cat, key, c->category, NULL, c->lc_names);
- return;
- }
- for (c = categories; c->category; ++c)
- for (lc = c->lc_names; lc->type != is_end; ++lc)
- if (!strcmp (name, lc->name))
- {
- print_lc (cat, key, c->category, lc->name, lc);
- return;
- }
-}
-
-void
-print_lc ()
-{
- printf ("LANG=%s\n", getenv ("LANG") ?: "");
- printf ("LC_CTYPE=\"%s\"\n", setlocale (LC_CTYPE, NULL));
- printf ("LC_NUMERIC=\"%s\"\n", setlocale (LC_NUMERIC, NULL));
- printf ("LC_TIME=\"%s\"\n", setlocale (LC_TIME, NULL));
- printf ("LC_COLLATE=\"%s\"\n", setlocale (LC_COLLATE, NULL));
- printf ("LC_MONETARY=\"%s\"\n", setlocale (LC_MONETARY, NULL));
- printf ("LC_MESSAGES=\"%s\"\n", setlocale (LC_MESSAGES, NULL));
- printf ("LC_ALL=%s\n", getenv ("LC_ALL") ?: "");
-}
-
-int
-main (int argc, char **argv)
-{
- int opt;
- LCID lcid = 0;
- int all = 0;
- int cat = 0;
- int key = 0;
- int maps = 0;
- int verbose = 0;
- const char *utf = "";
- char name[32];
-
- setlocale (LC_ALL, "");
- while ((opt = getopt_long (argc, argv, opts, longopts, NULL)) != EOF)
- switch (opt)
- {
- case 'a':
- all = 1;
- break;
- case 'c':
- cat = 1;
- break;
- case 'k':
- key = 1;
- break;
- case 'm':
- maps = 1;
- break;
- case 's':
- lcid = LOCALE_SYSTEM_DEFAULT;
- break;
- case 'u':
- lcid = LOCALE_USER_DEFAULT;
- break;
- case 'U':
- utf = ".UTF-8";
- break;
- case 'v':
- verbose = 1;
- break;
- case 'h':
- usage (stdout, 0);
- break;
- default:
- usage (stderr, 1);
- break;
- }
- if (all)
- print_all_locales (verbose);
- else if (maps)
- print_charmaps ();
- else if (lcid)
- {
- if (getlocale (lcid, name))
- printf ("%s%s\n", name, utf);
- }
- else if (optind < argc)
- while (optind < argc)
- print_names (cat, key, argv[optind++]);
- else
- print_lc ();
- return 0;
-}
generated by cgit v1.2.3 (git 2.25.1) at 2024-05-26 15:56:17 +0300