.
[glibc/history.git] / intl / finddomain.c
blob03583b12b7c312ca08cb6471b820d66b71c5352e
1 /* Handle list of needed message catalogs
2 Copyright (C) 1995-1999, 2000, 2001, 2002, 2004, 2006, 2007
3 Free Software Foundation, Inc.
4 This file is part of the GNU C Library.
5 Written by Ulrich Drepper <drepper@gnu.org>, 1995.
7 The GNU C Library is free software; you can redistribute it and/or
8 modify it under the terms of the GNU Lesser General Public
9 License as published by the Free Software Foundation; either
10 version 2.1 of the License, or (at your option) any later version.
12 The GNU C Library is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 Lesser General Public License for more details.
17 You should have received a copy of the GNU Lesser General Public
18 License along with the GNU C Library; if not, write to the Free
19 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
20 02111-1307 USA. */
22 #ifdef HAVE_CONFIG_H
23 # include <config.h>
24 #endif
26 #include <stdio.h>
27 #include <sys/types.h>
28 #include <stdlib.h>
29 #include <string.h>
31 #if defined HAVE_UNISTD_H || defined _LIBC
32 # include <unistd.h>
33 #endif
35 #include "gettextP.h"
36 #ifdef _LIBC
37 # include <libintl.h>
38 # include <bits/libc-lock.h>
39 #else
40 # include "libgnuintl.h"
41 #endif
43 /* @@ end of prolog @@ */
44 /* List of already loaded domains. */
45 static struct loaded_l10nfile *_nl_loaded_domains;
48 /* Return a data structure describing the message catalog described by
49 the DOMAINNAME and CATEGORY parameters with respect to the currently
50 established bindings. */
51 struct loaded_l10nfile *
52 internal_function
53 _nl_find_domain (dirname, locale, domainname, domainbinding)
54 const char *dirname;
55 char *locale;
56 const char *domainname;
57 struct binding *domainbinding;
59 struct loaded_l10nfile *retval;
60 const char *language;
61 const char *modifier;
62 const char *territory;
63 const char *codeset;
64 const char *normalized_codeset;
65 const char *alias_value;
66 int mask;
68 /* LOCALE can consist of up to four recognized parts for the XPG syntax:
70 language[_territory[.codeset]][@modifier]
72 Beside the first part all of them are allowed to be missing. If
73 the full specified locale is not found, the less specific one are
74 looked for. The various parts will be stripped off according to
75 the following order:
76 (1) codeset
77 (2) normalized codeset
78 (3) territory
79 (4) modifier
82 /* We need to protect modifying the _NL_LOADED_DOMAINS data. */
83 __libc_rwlock_define_initialized (static, lock);
84 __libc_rwlock_rdlock (lock);
86 /* If we have already tested for this locale entry there has to
87 be one data set in the list of loaded domains. */
88 retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
89 strlen (dirname) + 1, 0, locale, NULL, NULL,
90 NULL, NULL, domainname, 0);
91 __libc_rwlock_unlock (lock);
93 if (retval != NULL)
95 /* We know something about this locale. */
96 int cnt;
98 if (retval->decided <= 0)
99 _nl_load_domain (retval, domainbinding);
101 if (retval->data != NULL)
102 return retval;
104 for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
106 if (retval->successor[cnt]->decided <= 0)
107 _nl_load_domain (retval->successor[cnt], domainbinding);
109 if (retval->successor[cnt]->data != NULL)
110 break;
113 return retval;
114 /* NOTREACHED */
117 /* See whether the locale value is an alias. If yes its value
118 *overwrites* the alias name. No test for the original value is
119 done. */
120 alias_value = _nl_expand_alias (locale);
121 if (alias_value != NULL)
122 locale = strdupa (alias_value);
124 /* Now we determine the single parts of the locale name. First
125 look for the language. Termination symbols are `_' and `@' if
126 we use XPG4 style, and `_', `+', and `,' if we use CEN syntax. */
127 mask = _nl_explode_name (locale, &language, &modifier, &territory,
128 &codeset, &normalized_codeset);
129 if (mask == -1)
130 /* This means we are out of core. */
131 return NULL;
133 /* We need to protect modifying the _NL_LOADED_DOMAINS data. */
134 __libc_rwlock_wrlock (lock);
136 /* Create all possible locale entries which might be interested in
137 generalization. */
138 retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
139 strlen (dirname) + 1, mask, language, territory,
140 codeset, normalized_codeset, modifier,
141 domainname, 1);
142 __libc_rwlock_unlock (lock);
144 if (retval == NULL)
145 /* This means we are out of core. */
146 goto out;
148 if (retval->decided <= 0)
149 _nl_load_domain (retval, domainbinding);
150 if (retval->data == NULL)
152 int cnt;
153 for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
155 if (retval->successor[cnt]->decided <= 0)
156 _nl_load_domain (retval->successor[cnt], domainbinding);
157 if (retval->successor[cnt]->data != NULL)
158 break;
162 out:
163 /* The space for normalized_codeset is dynamically allocated. Free it. */
164 if (mask & XPG_NORM_CODESET)
165 free ((void *) normalized_codeset);
167 return retval;
171 #ifdef _LIBC
172 /* This is called from iconv/gconv_db.c's free_mem, as locales must
173 be freed before freeing gconv steps arrays. */
174 void __libc_freeres_fn_section
175 _nl_finddomain_subfreeres ()
177 struct loaded_l10nfile *runp = _nl_loaded_domains;
179 while (runp != NULL)
181 struct loaded_l10nfile *here = runp;
182 if (runp->data != NULL)
183 _nl_unload_domain ((struct loaded_domain *) runp->data);
184 runp = runp->next;
185 free ((char *) here->filename);
186 free (here);
189 #endif