Update.
[glibc.git] / intl / finddomain.c
blobe0e11f0b7e6074f7e105f9421c4f5950eb3ffc68
1 /* Handle list of needed message catalogs
2 Copyright (C) 1995-1999, 2000, 2001, 2002 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Written by Ulrich Drepper <drepper@gnu.org>, 1995.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, write to the Free
18 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19 02111-1307 USA. */
21 #ifdef HAVE_CONFIG_H
22 # include <config.h>
23 #endif
25 #include <stdio.h>
26 #include <sys/types.h>
27 #include <stdlib.h>
28 #include <string.h>
30 #if defined HAVE_UNISTD_H || defined _LIBC
31 # include <unistd.h>
32 #endif
34 #include "gettextP.h"
35 #ifdef _LIBC
36 # include <libintl.h>
37 #else
38 # include "libgnuintl.h"
39 #endif
41 /* @@ end of prolog @@ */
42 /* List of already loaded domains. */
43 static struct loaded_l10nfile *_nl_loaded_domains;
46 /* Return a data structure describing the message catalog described by
47 the DOMAINNAME and CATEGORY parameters with respect to the currently
48 established bindings. */
49 struct loaded_l10nfile *
50 internal_function
51 _nl_find_domain (dirname, locale, domainname, domainbinding)
52 const char *dirname;
53 char *locale;
54 const char *domainname;
55 struct binding *domainbinding;
57 struct loaded_l10nfile *retval;
58 const char *language;
59 const char *modifier;
60 const char *territory;
61 const char *codeset;
62 const char *normalized_codeset;
63 const char *alias_value;
64 int mask;
66 /* LOCALE can consist of up to four recognized parts for the XPG syntax:
68 language[_territory[.codeset]][@modifier]
70 Beside the first part all of them are allowed to be missing. If
71 the full specified locale is not found, the less specific one are
72 looked for. The various parts will be stripped off according to
73 the following order:
74 (1) codeset
75 (2) normalized codeset
76 (3) territory
77 (4) modifier
80 /* If we have already tested for this locale entry there has to
81 be one data set in the list of loaded domains. */
82 retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
83 strlen (dirname) + 1, 0, locale, NULL, NULL,
84 NULL, NULL, domainname, 0);
85 if (retval != NULL)
87 /* We know something about this locale. */
88 int cnt;
90 if (retval->decided == 0)
91 _nl_load_domain (retval, domainbinding);
93 if (retval->data != NULL)
94 return retval;
96 for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
98 if (retval->successor[cnt]->decided == 0)
99 _nl_load_domain (retval->successor[cnt], domainbinding);
101 if (retval->successor[cnt]->data != NULL)
102 break;
104 return cnt >= 0 ? retval : NULL;
105 /* NOTREACHED */
108 /* See whether the locale value is an alias. If yes its value
109 *overwrites* the alias name. No test for the original value is
110 done. */
111 alias_value = _nl_expand_alias (locale);
112 if (alias_value != NULL)
114 #if defined _LIBC || defined HAVE_STRDUP
115 locale = strdup (alias_value);
116 if (locale == NULL)
117 return NULL;
118 #else
119 size_t len = strlen (alias_value) + 1;
120 locale = (char *) malloc (len);
121 if (locale == NULL)
122 return NULL;
124 memcpy (locale, alias_value, len);
125 #endif
128 /* Now we determine the single parts of the locale name. First
129 look for the language. Termination symbols are `_' and `@' if
130 we use XPG4 style, and `_', `+', and `,' if we use CEN syntax. */
131 mask = _nl_explode_name (locale, &language, &modifier, &territory,
132 &codeset, &normalized_codeset);
134 /* Create all possible locale entries which might be interested in
135 generalization. */
136 retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
137 strlen (dirname) + 1, mask, language, territory,
138 codeset, normalized_codeset, modifier,
139 domainname, 1);
140 if (retval == NULL)
141 /* This means we are out of core. */
142 return NULL;
144 if (retval->decided == 0)
145 _nl_load_domain (retval, domainbinding);
146 if (retval->data == NULL)
148 int cnt;
149 for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
151 if (retval->successor[cnt]->decided == 0)
152 _nl_load_domain (retval->successor[cnt], domainbinding);
153 if (retval->successor[cnt]->data != NULL)
154 break;
158 /* The room for an alias was dynamically allocated. Free it now. */
159 if (alias_value != NULL)
160 free (locale);
162 /* The space for normalized_codeset is dynamically allocated. Free it. */
163 if (mask & XPG_NORM_CODESET)
164 free ((void *) normalized_codeset);
166 return retval;
170 #ifdef _LIBC
171 static void __attribute__ ((unused))
172 free_mem (void)
174 struct loaded_l10nfile *runp = _nl_loaded_domains;
176 while (runp != NULL)
178 struct loaded_l10nfile *here = runp;
179 if (runp->data != NULL)
180 _nl_unload_domain ((struct loaded_domain *) runp->data);
181 runp = runp->next;
182 free ((char *) here->filename);
183 free (here);
187 text_set_element (__libc_subfreeres, free_mem);
188 #endif