1 /* Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1996.
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.
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.
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. */
24 #ifdef _POSIX_MAPPED_FILES
25 # include <sys/mman.h>
28 #include "localeinfo.h"
31 /* Constant data defined in setlocale.c. */
32 extern struct locale_data
*const _nl_C
[];
35 /* For each category we keep a list of records for the locale files
36 which are somehow addressed. */
37 static struct loaded_l10nfile
*locale_file_list
[__LC_LAST
];
41 _nl_find_locale (const char *locale_path
, size_t locale_path_len
,
42 int category
, const char **name
)
45 /* Name of the locale for this category. */
49 const char *territory
;
51 const char *normalized_codeset
;
55 struct loaded_l10nfile
*locale_file
;
57 if ((*name
)[0] == '\0')
59 /* The user decides which locale to use by setting environment
61 *name
= getenv ("LC_ALL");
62 if (*name
== NULL
|| (*name
)[0] == '\0')
63 *name
= getenv (_nl_category_names
[category
]);
64 if (*name
== NULL
|| (*name
)[0] == '\0')
65 *name
= getenv ("LANG");
68 if (*name
== NULL
|| (*name
)[0] == '\0'
69 || (__builtin_expect (__libc_enable_secure
, 0)
70 && strchr (*name
, '/') != NULL
))
71 *name
= (char *) _nl_C_name
;
73 if (__builtin_expect (strcmp (*name
, _nl_C_name
), 1) == 0
74 || __builtin_expect (strcmp (*name
, _nl_POSIX_name
), 1) == 0)
76 /* We need not load anything. The needed data is contained in
77 the library itself. */
78 *name
= (char *) _nl_C_name
;
79 return _nl_C
[category
];
82 /* We really have to load some data. First see whether the name is
83 an alias. Please note that this makes it impossible to have "C"
84 or "POSIX" as aliases. */
85 loc_name
= (char *) _nl_expand_alias (*name
);
88 loc_name
= (char *) *name
;
90 /* Make a writable copy of the locale name. */
91 loc_name
= strdupa (loc_name
);
93 /* LOCALE can consist of up to four recognized parts for the XPG syntax:
95 language[_territory[.codeset]][@modifier]
97 and six parts for the CEN syntax:
99 language[_territory][+audience][+special][,[sponsor][_revision]]
101 Beside the first all of them are allowed to be missing. If the
102 full specified locale is not found, the less specific one are
103 looked for. The various part will be stripped of according to
109 (5) normalized codeset
111 (7) audience/modifier
113 mask
= _nl_explode_name (loc_name
, &language
, &modifier
, &territory
,
114 &codeset
, &normalized_codeset
, &special
,
115 &sponsor
, &revision
);
117 /* If exactly this locale was already asked for we have an entry with
118 the complete name. */
119 locale_file
= _nl_make_l10nflist (&locale_file_list
[category
],
120 locale_path
, locale_path_len
, mask
,
121 language
, territory
, codeset
,
122 normalized_codeset
, modifier
, special
,
124 _nl_category_names
[category
], NULL
, 0);
126 if (locale_file
== NULL
)
128 /* Find status record for addressed locale file. We have to search
129 through all directories in the locale path. */
130 locale_file
= _nl_make_l10nflist (&locale_file_list
[category
],
131 locale_path
, locale_path_len
, mask
,
132 language
, territory
, codeset
,
133 normalized_codeset
, modifier
, special
,
135 _nl_category_names
[category
], NULL
, 1);
136 if (locale_file
== NULL
)
137 /* This means we are out of core. */
141 /* The space for normalized_codeset is dynamically allocated. Free it. */
142 if (mask
& XPG_NORM_CODESET
)
143 free ((void *) normalized_codeset
);
145 if (locale_file
->decided
== 0)
146 _nl_load_locale (locale_file
, category
);
148 if (locale_file
->data
== NULL
)
151 for (cnt
= 0; locale_file
->successor
[cnt
] != NULL
; ++cnt
)
153 if (locale_file
->successor
[cnt
]->decided
== 0)
154 _nl_load_locale (locale_file
->successor
[cnt
], category
);
155 if (locale_file
->successor
[cnt
]->data
!= NULL
)
158 /* Move the entry we found (or NULL) to the first place of
160 locale_file
->successor
[0] = locale_file
->successor
[cnt
];
161 locale_file
= locale_file
->successor
[cnt
];
163 if (locale_file
== NULL
)
167 /* Determine the locale name for which loading succeeded. This
168 information comes from the file name. The form is
169 <path>/<locale>/LC_foo. We must extract the <locale> part. */
170 if (((const struct locale_data
*) locale_file
->data
)->name
== NULL
)
174 endp
= strrchr (locale_file
->filename
, '/');
176 while (cp
[-1] != '/')
178 ((struct locale_data
*) locale_file
->data
)->name
= __strndup (cp
,
182 /* Determine whether the user wants transliteration or not. */
183 if ((modifier
!= NULL
&& __strcasecmp (modifier
, "TRANSLIT") == 0)
184 || (special
!= NULL
&& __strcasecmp (special
, "TRANSLIT") == 0))
185 ((struct locale_data
*) locale_file
->data
)->use_translit
= 1;
187 /* Increment the usage count. */
188 if (((const struct locale_data
*) locale_file
->data
)->usage_count
190 ++((struct locale_data
*) locale_file
->data
)->usage_count
;
192 return (struct locale_data
*) locale_file
->data
;
196 /* Calling this function assumes the lock for handling global locale data
199 _nl_remove_locale (int locale
, struct locale_data
*data
)
201 if (--data
->usage_count
== 0)
203 /* First search the entry in the list of loaded files. */
204 struct loaded_l10nfile
*ptr
= locale_file_list
[locale
];
206 /* Search for the entry. It must be in the list. Otherwise it
207 is a bug and we crash badly. */
208 while ((struct locale_data
*) ptr
->data
!= data
)
211 /* Mark the data as not available anymore. So when the data has
212 to be used again it is reloaded. */
217 free ((char *) data
->name
);
219 #ifdef _POSIX_MAPPED_FILES
220 /* Really delete the data. First delete the real data. */
221 if (__builtin_expect (data
->mmaped
, 1))
223 /* Try to unmap the area. If this fails we mark the area as
225 if (__munmap ((caddr_t
) data
->filedata
, data
->filesize
) != 0)
227 data
->usage_count
= UNDELETABLE
;
232 #endif /* _POSIX_MAPPED_FILES */
233 /* The memory was malloced. */
234 free ((void *) data
->filedata
);
236 /* Now free the structure itself. */
241 static void __attribute__ ((unused
))
246 for (category
= 0; category
< __LC_LAST
; ++category
)
247 if (category
!= LC_ALL
)
249 struct loaded_l10nfile
*runp
= locale_file_list
[category
];
253 struct loaded_l10nfile
*here
= runp
;
254 struct locale_data
*data
= (struct locale_data
*) runp
->data
;
256 if (data
!= NULL
&& data
!= _nl_C
[category
])
257 _nl_unload_locale (data
);
259 free ((char *) here
->filename
);
264 text_set_element (__libc_subfreeres
, free_mem
);