intl/finddomain.c

   1 /* Handle list of needed message catalogs
   2    Copyright (C) 1995-2017 Free Software Foundation, Inc.
   3    Written by Ulrich Drepper <drepper@gnu.org>, 1995.
   4
   5    This program is free software: you can redistribute it and/or modify
   6    it under the terms of the GNU Lesser General Public License as published by
   7    the Free Software Foundation; either version 2.1 of the License, or
   8    (at your option) any later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public License
  16    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  17
  18 #ifdef HAVE_CONFIG_H
  19 # include <config.h>
  20 #endif
  21
  22 #include <stdio.h>
  23 #include <sys/types.h>
  24 #include <stdlib.h>
  25 #include <string.h>
  26
  27 #if defined HAVE_UNISTD_H || defined _LIBC
  28 # include <unistd.h>
  29 #endif
  30
  31 #include "gettextP.h"
  32 #ifdef _LIBC
  33 # include <libintl.h>
  34 #else
  35 # include "libgnuintl.h"
  36 #endif
  37
  38 /* Handle multi-threaded applications.  */
  39 #ifdef _LIBC
  40 # include <libc-lock.h>
  41 # define gl_rwlock_define_initialized __libc_rwlock_define_initialized
  42 # define gl_rwlock_rdlock __libc_rwlock_rdlock
  43 # define gl_rwlock_wrlock __libc_rwlock_wrlock
  44 # define gl_rwlock_unlock __libc_rwlock_unlock
  45 #else
  46 # include "lock.h"
  47 #endif
  48
  49 /* @@ end of prolog @@ */
  50 /* List of already loaded domains.  */
  51 static struct loaded_l10nfile *_nl_loaded_domains;
  52
  53
  54 /* Return a data structure describing the message catalog described by
  55    the DOMAINNAME and CATEGORY parameters with respect to the currently
  56    established bindings.  */
  57 struct loaded_l10nfile *
  58 internal_function
  59 _nl_find_domain (const char *dirname, char *locale,
  60                  const char *domainname, struct binding *domainbinding)
  61 {
  62   struct loaded_l10nfile *retval;
  63   const char *language;
  64   const char *modifier;
  65   const char *territory;
  66   const char *codeset;
  67   const char *normalized_codeset;
  68   const char *alias_value;
  69   int mask;
  70
  71   /* LOCALE can consist of up to four recognized parts for the XPG syntax:
  72
  73                 language[_territory][.codeset][@modifier]
  74
  75      Beside the first part all of them are allowed to be missing.  If
  76      the full specified locale is not found, the less specific one are
  77      looked for.  The various parts will be stripped off according to
  78      the following order:
  79                 (1) codeset
  80                 (2) normalized codeset
  81                 (3) territory
  82                 (4) modifier
  83    */
  84
  85   /* We need to protect modifying the _NL_LOADED_DOMAINS data.  */
  86   gl_rwlock_define_initialized (static, lock);
  87   gl_rwlock_rdlock (lock);
  88
  89   /* If we have already tested for this locale entry there has to
  90      be one data set in the list of loaded domains.  */
  91   retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
  92                                strlen (dirname) + 1, 0, locale, NULL, NULL,
  93                                NULL, NULL, domainname, 0);
  94
  95   gl_rwlock_unlock (lock);
  96
  97   if (retval != NULL)
  98     {
  99       /* We know something about this locale.  */
 100       int cnt;
 101
 102       if (retval->decided <= 0)
 103         _nl_load_domain (retval, domainbinding);
 104
 105       if (retval->data != NULL)
 106         return retval;
 107
 108       for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
 109         {
 110           if (retval->successor[cnt]->decided <= 0)
 111             _nl_load_domain (retval->successor[cnt], domainbinding);
 112
 113           if (retval->successor[cnt]->data != NULL)
 114             break;
 115         }
 116
 117       return retval;
 118       /* NOTREACHED */
 119     }
 120
 121   /* See whether the locale value is an alias.  If yes its value
 122      *overwrites* the alias name.  No test for the original value is
 123      done.  */
 124   alias_value = _nl_expand_alias (locale);
 125   if (alias_value != NULL)
 126     {
 127 #if defined _LIBC || defined HAVE_STRDUP
 128       locale = strdup (alias_value);
 129       if (locale == NULL)
 130         return NULL;
 131 #else
 132       size_t len = strlen (alias_value) + 1;
 133       locale = (char *) malloc (len);
 134       if (locale == NULL)
 135         return NULL;
 136
 137       memcpy (locale, alias_value, len);
 138 #endif
 139     }
 140
 141   /* Now we determine the single parts of the locale name.  First
 142      look for the language.  Termination symbols are `_', '.', and `@'.  */
 143   mask = _nl_explode_name (locale, &language, &modifier, &territory,
 144                            &codeset, &normalized_codeset);
 145   if (mask == -1)
 146     /* This means we are out of core.  */
 147     return NULL;
 148
 149   /* We need to protect modifying the _NL_LOADED_DOMAINS data.  */
 150   gl_rwlock_wrlock (lock);
 151
 152   /* Create all possible locale entries which might be interested in
 153      generalization.  */
 154   retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
 155                                strlen (dirname) + 1, mask, language, territory,
 156                                codeset, normalized_codeset, modifier,
 157                                domainname, 1);
 158
 159   gl_rwlock_unlock (lock);
 160
 161   if (retval == NULL)
 162     /* This means we are out of core.  */
 163     goto out;
 164
 165   if (retval->decided <= 0)
 166     _nl_load_domain (retval, domainbinding);
 167   if (retval->data == NULL)
 168     {
 169       int cnt;
 170       for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
 171         {
 172           if (retval->successor[cnt]->decided <= 0)
 173             _nl_load_domain (retval->successor[cnt], domainbinding);
 174           if (retval->successor[cnt]->data != NULL)
 175             break;
 176         }
 177     }
 178
 179   /* The room for an alias was dynamically allocated.  Free it now.  */
 180   if (alias_value != NULL)
 181     free (locale);
 182
 183 out:
 184   /* The space for normalized_codeset is dynamically allocated.  Free it.  */
 185   if (mask & XPG_NORM_CODESET)
 186     free ((void *) normalized_codeset);
 187
 188   return retval;
 189 }
 190
 191
 192 #ifdef _LIBC
 193 /* This is called from iconv/gconv_db.c's free_mem, as locales must
 194    be freed before freeing gconv steps arrays.  */
 195 void __libc_freeres_fn_section
 196 _nl_finddomain_subfreeres (void)
 197 {
 198   struct loaded_l10nfile *runp = _nl_loaded_domains;
 199
 200   while (runp != NULL)
 201     {
 202       struct loaded_l10nfile *here = runp;
 203       if (runp->data != NULL)
 204         _nl_unload_domain ((struct loaded_domain *) runp->data);
 205       runp = runp->next;
 206       free ((char *) here->filename);
 207       free (here);
 208     }
 209 }
 210 #endif