Update from main archive 961219
[kopensolaris-gnu/glibc.git] / locale / findlocale.c
1 /* Copyright (C) 1996 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3    Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1996.
4
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Library General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    License, or (at your option) any later version.
9
10    The GNU C Library 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 GNU
13    Library General Public License for more details.
14
15    You should have received a copy of the GNU Library General Public
16    License along with the GNU C Library; see the file COPYING.LIB.  If not,
17    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18    Boston, MA 02111-1307, USA.  */
19
20 #include <locale.h>
21 #include <stdlib.h>
22 #include <string.h>
23
24 #include "localeinfo.h"
25
26
27 /* Constant data defined in setlocale.c.  */
28 extern const struct locale_data *const _nl_C[];
29
30
31 static inline char *
32 copy (const char *string)
33 {
34   size_t len;
35   char *new;
36   len = strlen (string) + 1;
37   new = (char *) malloc (len);
38   return new != NULL ? memcpy (new, string, len) : NULL;
39 }
40
41
42 /* For each category we keep a list of records for the locale files
43    which are somehow addressed.  */
44 static struct loaded_l10nfile *locale_file_list[LC_ALL];
45
46
47 const struct locale_data *
48 _nl_find_locale (const char *locale_path, size_t locale_path_len,
49                  int category, char **name)
50 {
51   int mask;
52   /* Name of the locale for this category.  */
53   char *loc_name;
54   const char *language;
55   const char *modifier;
56   const char *territory;
57   const char *codeset;
58   const char *normalized_codeset;
59   const char *special;
60   const char *sponsor;
61   const char *revision;
62   struct loaded_l10nfile *locale_file;
63
64   if ((*name)[0] == '\0')
65     {
66       /* The user decides which locale to use by setting environment
67          variables.  */
68       *name = getenv ("LC_ALL");
69       if (*name == NULL || (*name)[0] == '\0')
70         *name = getenv (_nl_category_names[category]);
71       if (*name == NULL || (*name)[0] == '\0')
72         *name = getenv ("LANG");
73       if (*name == NULL || (*name)[0] == '\0')
74         *name = (char *) _nl_C_name;
75     }
76
77   if (strcmp (*name, _nl_C_name) == 0 || strcmp (*name, "POSIX") == 0)
78     {
79       /* We need not load anything.  The needed data is contained in
80          the library itself.  */
81       *name = (char *) _nl_C_name;
82       return _nl_C[category];
83     }
84
85   /* We really have to load some data.  First see whether the name is
86      an alias.  Please note that this makes it impossible to have "C"
87      or "POSIX" as aliases.  */
88   loc_name = (char *) _nl_expand_alias (*name);
89   if (loc_name == NULL)
90     /* It is no alias.  */
91     loc_name = *name;
92
93   /* Make a writable copy of the locale name.  */
94   loc_name = copy (loc_name);
95
96   /* LOCALE can consist of up to four recognized parts for the XPG syntax:
97
98                 language[_territory[.codeset]][@modifier]
99
100      and six parts for the CEN syntax:
101
102         language[_territory][+audience][+special][,[sponsor][_revision]]
103
104      Beside the first all of them are allowed to be missing.  If the
105      full specified locale is not found, the less specific one are
106      looked for.  The various part will be stripped of according to
107      the following order:
108                 (1) revision
109                 (2) sponsor
110                 (3) special
111                 (4) codeset
112                 (5) normalized codeset
113                 (6) territory
114                 (7) audience/modifier
115    */
116   mask = _nl_explode_name (loc_name, &language, &modifier, &territory,
117                            &codeset, &normalized_codeset, &special,
118                            &sponsor, &revision);
119
120   /* If exactly this locale was already asked for we have an entry with
121      the complete name.  */
122   locale_file = _nl_make_l10nflist (&locale_file_list[category],
123                                     locale_path, locale_path_len, mask,
124                                     language, territory, codeset,
125                                     normalized_codeset, modifier, special,
126                                     sponsor, revision,
127                                     _nl_category_names[category], 0);
128
129   if (locale_file == NULL)
130     {
131       /* Find status record for addressed locale file.  We have to search
132          through all directories in the locale path.  */
133       locale_file = _nl_make_l10nflist (&locale_file_list[category],
134                                         locale_path, locale_path_len, mask,
135                                         language, territory, codeset,
136                                         normalized_codeset, modifier, special,
137                                         sponsor, revision,
138                                         _nl_category_names[category], 1);
139       if (locale_file == NULL)
140         /* This means we are out of core.  */
141         return NULL;
142     }
143   else
144     /* If the addressed locale is already available it should be freed.
145        If we would not do this switching back and force between two
146        locales would slowly eat up all memory.*/
147     free ((void *) loc_name);
148
149   if (locale_file->decided == 0)
150     _nl_load_locale (locale_file, category);
151
152   if (locale_file->data == NULL)
153     {
154       int cnt;
155       for (cnt = 0; locale_file->successor[cnt] != NULL; ++cnt)
156         {
157           if (locale_file->successor[cnt]->decided == 0)
158             _nl_load_locale (locale_file->successor[cnt], category);
159           if (locale_file->successor[cnt]->data != NULL)
160             break;
161         }
162       /* Move the entry we found (or NULL) to the first place of
163          successors.  */
164       locale_file->successor[0] = locale_file->successor[cnt];
165       locale_file = locale_file->successor[cnt];
166     }
167
168   if (locale_file == NULL)
169     return NULL;
170
171   /* Determine the locale name for which loading succeeded.  This
172      information comes from the file name.  The form is
173      <path>/<locale>/LC_foo.  We must extract the <locale> part.  */
174   if (((struct locale_data *) locale_file->data)->name == NULL)
175     {
176       char *cp, *endp;
177
178       endp = strrchr (locale_file->filename, '/');
179       cp = endp - 1;
180       while (cp[-1] != '/')
181         --cp;
182       ((struct locale_data *) locale_file->data)->name = __strndup (cp,
183                                                                     endp - cp);
184     }
185   *name = (char *) ((struct locale_data *) locale_file->data)->name;
186
187   return (struct locale_data *) locale_file->data;
188 }