Update.
[glibc.git] / intl / finddomain.c
blob6988d9efc0d76063b4a2de2baabe49f7bd2fbe7c
1 /* Handle list of needed message catalogs
2 Copyright (C) 1995-1999, 2000, 2001, 2002, 2004
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 #else
39 # include "libgnuintl.h"
40 #endif
42 /* @@ end of prolog @@ */
43 /* List of already loaded domains. */
44 static struct loaded_l10nfile *_nl_loaded_domains;
47 /* Return a data structure describing the message catalog described by
48 the DOMAINNAME and CATEGORY parameters with respect to the currently
49 established bindings. */
50 struct loaded_l10nfile *
51 internal_function
52 _nl_find_domain (dirname, locale, domainname, domainbinding)
53 const char *dirname;
54 char *locale;
55 const char *domainname;
56 struct binding *domainbinding;
58 struct loaded_l10nfile *retval;
59 const char *language;
60 const char *modifier;
61 const char *territory;
62 const char *codeset;
63 const char *normalized_codeset;
64 const char *alias_value;
65 int mask;
67 /* LOCALE can consist of up to four recognized parts for the XPG syntax:
69 language[_territory[.codeset]][@modifier]
71 Beside the first part all of them are allowed to be missing. If
72 the full specified locale is not found, the less specific one are
73 looked for. The various parts will be stripped off according to
74 the following order:
75 (1) codeset
76 (2) normalized codeset
77 (3) territory
78 (4) modifier
81 /* If we have already tested for this locale entry there has to
82 be one data set in the list of loaded domains. */
83 retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
84 strlen (dirname) + 1, 0, locale, NULL, NULL,
85 NULL, NULL, domainname, 0);
86 if (retval != NULL)
88 /* We know something about this locale. */
89 int cnt;
91 if (retval->decided == 0)
92 _nl_load_domain (retval, domainbinding);
94 if (retval->data != NULL)
95 return retval;
97 for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
99 if (retval->successor[cnt]->decided == 0)
100 _nl_load_domain (retval->successor[cnt], domainbinding);
102 if (retval->successor[cnt]->data != NULL)
103 break;
105 return cnt >= 0 ? retval : NULL;
106 /* NOTREACHED */
109 /* See whether the locale value is an alias. If yes its value
110 *overwrites* the alias name. No test for the original value is
111 done. */
112 alias_value = _nl_expand_alias (locale);
113 if (alias_value != NULL)
115 #if defined _LIBC || defined HAVE_STRDUP
116 locale = strdup (alias_value);
117 if (locale == NULL)
118 return NULL;
119 #else
120 size_t len = strlen (alias_value) + 1;
121 locale = (char *) malloc (len);
122 if (locale == NULL)
123 return NULL;
125 memcpy (locale, alias_value, len);
126 #endif
129 /* Now we determine the single parts of the locale name. First
130 look for the language. Termination symbols are `_' and `@' if
131 we use XPG4 style, and `_', `+', and `,' if we use CEN syntax. */
132 mask = _nl_explode_name (locale, &language, &modifier, &territory,
133 &codeset, &normalized_codeset);
135 /* Create all possible locale entries which might be interested in
136 generalization. */
137 retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
138 strlen (dirname) + 1, mask, language, territory,
139 codeset, normalized_codeset, modifier,
140 domainname, 1);
141 if (retval == NULL)
142 /* This means we are out of core. */
143 return NULL;
145 if (retval->decided == 0)
146 _nl_load_domain (retval, domainbinding);
147 if (retval->data == NULL)
149 int cnt;
150 for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
152 if (retval->successor[cnt]->decided == 0)
153 _nl_load_domain (retval->successor[cnt], domainbinding);
154 if (retval->successor[cnt]->data != NULL)
155 break;
159 /* The room for an alias was dynamically allocated. Free it now. */
160 if (alias_value != NULL)
161 free (locale);
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