"Fossies" - the Fresh Open Source Software Archive

Member "plptools-1.0.15/intl/finddomain.c" (31 Oct 2019, 5996 Bytes) of package /linux/privat/plptools-1.0.15.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) C and C++ source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. See also the last Fossies "Diffs" side-by-side code changes report for "finddomain.c": 1.0.13_vs_1.0.14-Source.

    1 /* Handle list of needed message catalogs
    2    Copyright (C) 1995-2015 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 <bits/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