lib/libc/locale/nb_lc_template.h

   1 /* $NetBSD: nb_lc_template.h,v 1.8 2013/09/13 13:13:32 joerg Exp $ */
   2
   3 /*-
   4  * Copyright (c)1999, 2008 Citrus Project,
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26  * SUCH DAMAGE.
  27  */
  28
  29 /*-
  30  * Copyright (c) 1998 The NetBSD Foundation, Inc.
  31  * All rights reserved.
  32  *
  33  * This code is derived from software contributed to The NetBSD Foundation
  34  * by Paul Kranenburg.
  35  *
  36  * Redistribution and use in source and binary forms, with or without
  37  * modification, are permitted provided that the following conditions
  38  * are met:
  39  * 1. Redistributions of source code must retain the above copyright
  40  *    notice, this list of conditions and the following disclaimer.
  41  * 2. Redistributions in binary form must reproduce the above copyright
  42  *    notice, this list of conditions and the following disclaimer in the
  43  *    documentation and/or other materials provided with the distribution.
  44  *
  45  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  46  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  47  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  48  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  49  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  50  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  51  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  52  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  53  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  54  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  55  * POSSIBILITY OF SUCH DAMAGE.
  56  */
  57
  58 /*-
  59  * Copyright (c) 1993
  60  *      The Regents of the University of California.  All rights reserved.
  61  *
  62  * This code is derived from software contributed to Berkeley by
  63  * Paul Borman at Krystal Technologies.
  64  *
  65  * Redistribution and use in source and binary forms, with or without
  66  * modification, are permitted provided that the following conditions
  67  * are met:
  68  * 1. Redistributions of source code must retain the above copyright
  69  *    notice, this list of conditions and the following disclaimer.
  70  * 2. Redistributions in binary form must reproduce the above copyright
  71  *    notice, this list of conditions and the following disclaimer in the
  72  *    documentation and/or other materials provided with the distribution.
  73  * 3. Neither the name of the University nor the names of its contributors
  74  *    may be used to endorse or promote products derived from this software
  75  *    without specific prior written permission.
  76  *
  77  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  78  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  79  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  80  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  81  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  82  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  83  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  84  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  85  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  86  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  87  * SUCH DAMAGE.
  88  */
  89
  90 #ifndef _NB_LC_TEMPLATE_H_
  91 #define _NB_LC_TEMPLATE_H_
  92
  93 #define _nb_part_t              _PREFIX(part_t)
  94 #define _nb_part_cache          _PREFIX(part_cache)
  95 #define _nb_mutex               _PREFIX(mutex)
  96
  97 typedef struct _nb_part_t {
  98         char name[_LOCALENAME_LEN_MAX];
  99         _CATEGORY_TYPE *impl;
 100         SIMPLEQ_ENTRY(_nb_part_t) entry;
 101 } _nb_part_t;
 102
 103 static SIMPLEQ_HEAD(, _nb_part_t) _nb_part_cache =
 104     SIMPLEQ_HEAD_INITIALIZER(_nb_part_cache);
 105
 106 #ifdef _REENTRANT
 107 static mutex_t _nb_mutex = MUTEX_INITIALIZER;
 108 #endif
 109
 110 static int
 111 _PREFIX(load_sub)(const char * __restrict name, const char * __restrict real,
 112     const char ** __restrict out_name, _CATEGORY_TYPE ** __restrict out_impl,
 113     int force)
 114 {
 115         const char *cached_name;
 116         _CATEGORY_TYPE *cached_impl;
 117         _nb_part_t *p;
 118         int ret;
 119
 120         _DIAGASSERT(name != NULL);
 121         _DIAGASSERT(out_name != NULL);
 122         _DIAGASSERT(out_impl != NULL);
 123
 124         if (!strcmp(_C_LOCALE, name)) {
 125                 cached_name = _lc_C_locale.part_name[_CATEGORY_ID];
 126                 cached_impl = _lc_C_locale.part_impl[_CATEGORY_ID];
 127         } else if (!strcmp(_POSIX_LOCALE, name)) {
 128                 cached_name = _POSIX_LOCALE;
 129                 cached_impl = _lc_C_locale.part_impl[_CATEGORY_ID];
 130         } else {
 131                 SIMPLEQ_FOREACH(p, &_nb_part_cache, entry) {
 132                         if (!strcmp((const char *)&p->name[0], name)) {
 133                                 cached_name = p->name;
 134                                 cached_impl = p->impl;
 135                                 goto found;
 136                         }
 137                 }
 138                 p = malloc(sizeof(*p));
 139                 if (p == NULL)
 140                         return ENOMEM;
 141                 if (force) {
 142                         p->impl = _lc_C_locale.part_impl[_CATEGORY_ID];
 143                 } else {
 144                         _DIAGASSERT(_PathLocale != NULL);
 145                         ret = _PREFIX(create_impl)((const char *)_PathLocale,
 146                             name, &p->impl);
 147                         if (ret) {
 148                                 free(p);
 149                                 return ret;
 150                         }
 151                 }
 152                 strlcpy(&p->name[0], name, sizeof(p->name));
 153                 SIMPLEQ_INSERT_TAIL(&_nb_part_cache, p, entry);
 154                 cached_name = p->name;
 155                 cached_impl = p->impl;
 156         }
 157 found:
 158         if (real != NULL) {
 159                 p = malloc(sizeof(*p));
 160                 if (p == NULL)
 161                         return ENOMEM;
 162                 strlcpy(&p->name[0], real, sizeof(p->name));
 163                 cached_name = p->name;
 164                 p->impl = cached_impl;
 165                 SIMPLEQ_INSERT_TAIL(&_nb_part_cache, p, entry);
 166         }
 167         *out_name = cached_name;
 168         *out_impl = cached_impl;
 169         return 0;
 170 }
 171
 172 static __inline int
 173 _PREFIX(load)(const char * __restrict name,
 174     const char ** __restrict out_name, _CATEGORY_TYPE ** __restrict out_impl)
 175 {
 176         int ret, force;
 177         char path[PATH_MAX + 1], loccat[PATH_MAX + 1], buf[PATH_MAX + 1];
 178         const char *aliaspath, *alias;
 179
 180 #define _LOAD_SUB_ALIAS(key)                                            \
 181 do {                                                                    \
 182         alias = __unaliasname(aliaspath, key, &buf[0], sizeof(buf));    \
 183         if (alias != NULL) {                                            \
 184                 ret = (force = !__isforcemapping(alias))                \
 185                     ? _PREFIX(load_sub)(name, NULL, out_name, out_impl, \
 186                                         force)  \
 187                     : _PREFIX(load_sub)(alias, name, out_name, out_impl, \
 188                                         force); \
 189                 _DIAGASSERT(!ret || !force);                            \
 190                 goto done;                                              \
 191         }                                                               \
 192 } while (/*CONSTCOND*/0)
 193
 194         /* (1) non-aliased file */
 195         mutex_lock(&_nb_mutex);
 196         ret = _PREFIX(load_sub)(name, NULL, out_name, out_impl, 0);
 197         if (ret != ENOENT)
 198                 goto done;
 199
 200         /* (2) lookup locname/catname type alias */
 201         _DIAGASSERT(_PathLocale != NULL);
 202         snprintf(&path[0], sizeof(path),
 203             "%s/" _LOCALE_ALIAS_NAME, _PathLocale);
 204         aliaspath = (const char *)&path[0];
 205         snprintf(&loccat[0], sizeof(loccat),
 206             "%s/" _CATEGORY_NAME, name);
 207         _LOAD_SUB_ALIAS((const char *)&loccat[0]);
 208
 209         /* (3) lookup locname type alias */
 210         _LOAD_SUB_ALIAS(name);
 211
 212 done:
 213         mutex_unlock(&_nb_mutex);
 214         return ret;
 215 }
 216
 217 const char *
 218 _PREFIX(setlocale)(const char * __restrict name,
 219     struct _locale * __restrict locale)
 220 {
 221         const char *loaded_name;
 222         _CATEGORY_TYPE *loaded_impl;
 223
 224         /* name may be NULL */
 225         _DIAGASSERT(locale != NULL);
 226
 227         if (name != NULL) {
 228                 if (*name == '\0')
 229                         name = _get_locale_env(_CATEGORY_NAME);
 230                 _DIAGASSERT(name != NULL);
 231                 _DIAGASSERT(locale->part_name[(size_t)_CATEGORY_ID] != NULL);
 232                 if (strcmp(name, locale->part_name[(size_t)_CATEGORY_ID])) {
 233                         if (_PREFIX(load)(name, &loaded_name, &loaded_impl))
 234                                 return NULL;
 235                         locale->part_name[(size_t)_CATEGORY_ID] = loaded_name;
 236                         locale->part_impl[(size_t)_CATEGORY_ID] = loaded_impl;
 237                         if (locale == &_lc_global_locale)
 238                                 _PREFIX(update_global)(loaded_impl);
 239                 }
 240         }
 241         return locale->part_name[(size_t)_CATEGORY_ID];
 242 }
 243
 244 #endif /*_NB_LC_TEMPLATE_H_*/