1 /* Duplicate a locale object.
2 Copyright (C) 2009-2011 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
17 /* Written by Bruno Haible <bruno@clisp.org>, 2007. */
27 #define SIZEOF(a) (sizeof(a) / sizeof(a[0]))
32 rpl_duplocale (locale_t locale)
34 /* Work around crash in the duplocale function in glibc < 2.12.
35 See <http://sourceware.org/bugzilla/show_bug.cgi?id=10969>.
36 Also, on AIX 7.1, duplocale(LC_GLOBAL_LOCALE) returns (locale_t)0 with
37 errno set to EINVAL. */
38 if (locale == LC_GLOBAL_LOCALE)
40 /* Create a copy of the locale by fetching the name of each locale
41 category, starting with LC_CTYPE. */
42 static struct { int cat; int mask; } const categories[] =
44 { LC_NUMERIC, LC_NUMERIC_MASK },
45 { LC_TIME, LC_TIME_MASK },
46 { LC_COLLATE, LC_COLLATE_MASK },
47 { LC_MONETARY, LC_MONETARY_MASK },
48 { LC_MESSAGES, LC_MESSAGES_MASK }
50 , { LC_PAPER, LC_PAPER_MASK }
53 , { LC_NAME, LC_NAME_MASK }
56 , { LC_ADDRESS, LC_ADDRESS_MASK }
59 , { LC_TELEPHONE, LC_TELEPHONE_MASK }
62 , { LC_MEASUREMENT, LC_MEASUREMENT_MASK }
64 #ifdef LC_IDENTIFICATION
65 , { LC_IDENTIFICATION, LC_IDENTIFICATION_MASK }
68 const char *base_name;
72 base_name = setlocale (LC_CTYPE, NULL);
73 base_copy = newlocale (LC_ALL_MASK, base_name, NULL);
74 if (base_copy == NULL)
77 for (i = 0; i < SIZEOF (categories); i++)
79 int category = categories[i].cat;
80 int category_mask = categories[i].mask;
81 const char *name = setlocale (category, NULL);
82 if (strcmp (name, base_name) != 0)
84 locale_t copy = newlocale (category_mask, name, base_copy);
87 int saved_errno = errno;
88 freelocale (base_copy);
92 /* No need to call freelocale (base_copy) if copy != base_copy;
93 the newlocale function already takes care of doing it. */
101 return duplocale (locale);