1 /* Handle list of needed message catalogs
2 Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
3 Written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2, or (at your option)
10 This program 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
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software Foundation,
17 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
24 #if defined HAVE_STRING_H || defined _LIBC
26 # define _GNU_SOURCE 1
32 # define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
35 #if !HAVE_STRCHR && !defined _LIBC
41 #if defined _LIBC || defined HAVE_ARGZ_H
45 #include <sys/types.h>
47 #if defined STDC_HEADERS || defined _LIBC
53 /* On some strange systems still no definition of NULL is found. Sigh! */
55 # if defined __STDC__ && __STDC__
56 # define NULL ((void *) 0)
62 /* @@ end of prolog @@ */
65 /* Rename the non ANSI C functions. This is required by the standard
66 because some ANSI C functions will require linking with this object
67 file and the name space must not be polluted. */
68 # define stpcpy(dest, src) __stpcpy(dest, src)
71 static char *stpcpy
PARAMS ((char *dest
, const char *src
));
75 /* Define function which are usually not available. */
77 #if !defined _LIBC && !defined HAVE___ARGZ_COUNT
78 /* Returns the number of strings in ARGZ. */
79 static size_t argz_count__
PARAMS ((const char *argz
, size_t len
));
82 argz_count__ (argz
, len
)
89 size_t part_len
= strlen (argz
);
97 # define __argz_count(argz, len) argz_count__ (argz, len)
98 #endif /* !_LIBC && !HAVE___ARGZ_COUNT */
100 #if !defined _LIBC && !defined HAVE___ARGZ_STRINGIFY
101 /* Make '\0' separated arg vector ARGZ printable by converting all the '\0's
102 except the last into the character SEP. */
103 static void argz_stringify__
PARAMS ((char *argz
, size_t len
, int sep
));
106 argz_stringify__ (argz
, len
, sep
)
113 size_t part_len
= strlen (argz
);
120 # undef __argz_stringify
121 # define __argz_stringify(argz, len, sep) argz_stringify__ (argz, len, sep)
122 #endif /* !_LIBC && !HAVE___ARGZ_STRINGIFY */
124 #if !defined _LIBC && !defined HAVE___ARGZ_NEXT
125 static char *argz_next__
PARAMS ((char *argz
, size_t argz_len
,
129 argz_next__ (argz
, argz_len
, entry
)
136 if (entry
< argz
+ argz_len
)
137 entry
= strchr (entry
, '\0') + 1;
139 return entry
>= argz
+ argz_len
? NULL
: (char *) entry
;
148 # define __argz_next(argz, len, entry) argz_next__ (argz, len, entry)
149 #endif /* !_LIBC && !HAVE___ARGZ_NEXT */
152 /* Return number of bits set in X. */
153 static int pop
PARAMS ((int x
));
159 /* We assume that no more than 16 bits are used. */
160 x
= ((x
& ~0x5555) >> 1) + (x
& 0x5555);
161 x
= ((x
& ~0x3333) >> 2) + (x
& 0x3333);
162 x
= ((x
>> 4) + x
) & 0x0f0f;
163 x
= ((x
>> 8) + x
) & 0xff;
169 struct loaded_l10nfile
*
170 _nl_make_l10nflist (l10nfile_list
, dirlist
, dirlist_len
, mask
, language
,
171 territory
, codeset
, normalized_codeset
, modifier
, special
,
172 sponsor
, revision
, filename
, do_allocate
)
173 struct loaded_l10nfile
**l10nfile_list
;
177 const char *language
;
178 const char *territory
;
180 const char *normalized_codeset
;
181 const char *modifier
;
184 const char *revision
;
185 const char *filename
;
189 struct loaded_l10nfile
*last
= NULL
;
190 struct loaded_l10nfile
*retval
;
195 /* Allocate room for the full file name. */
196 abs_filename
= (char *) malloc (dirlist_len
198 + ((mask
& TERRITORY
) != 0
199 ? strlen (territory
) + 1 : 0)
200 + ((mask
& XPG_CODESET
) != 0
201 ? strlen (codeset
) + 1 : 0)
202 + ((mask
& XPG_NORM_CODESET
) != 0
203 ? strlen (normalized_codeset
) + 1 : 0)
204 + (((mask
& XPG_MODIFIER
) != 0
205 || (mask
& CEN_AUDIENCE
) != 0)
206 ? strlen (modifier
) + 1 : 0)
207 + ((mask
& CEN_SPECIAL
) != 0
208 ? strlen (special
) + 1 : 0)
209 + (((mask
& CEN_SPONSOR
) != 0
210 || (mask
& CEN_REVISION
) != 0)
211 ? (1 + ((mask
& CEN_SPONSOR
) != 0
212 ? strlen (sponsor
) + 1 : 0)
213 + ((mask
& CEN_REVISION
) != 0
214 ? strlen (revision
) + 1 : 0)) : 0)
215 + 1 + strlen (filename
) + 1);
217 if (abs_filename
== NULL
)
223 /* Construct file name. */
224 memcpy (abs_filename
, dirlist
, dirlist_len
);
225 __argz_stringify (abs_filename
, dirlist_len
, ':');
226 cp
= abs_filename
+ (dirlist_len
- 1);
228 cp
= stpcpy (cp
, language
);
230 if ((mask
& TERRITORY
) != 0)
233 cp
= stpcpy (cp
, territory
);
235 if ((mask
& XPG_CODESET
) != 0)
238 cp
= stpcpy (cp
, codeset
);
240 if ((mask
& XPG_NORM_CODESET
) != 0)
243 cp
= stpcpy (cp
, normalized_codeset
);
245 if ((mask
& (XPG_MODIFIER
| CEN_AUDIENCE
)) != 0)
247 /* This component can be part of both syntaces but has different
248 leading characters. For CEN we use `+', else `@'. */
249 *cp
++ = (mask
& CEN_AUDIENCE
) != 0 ? '+' : '@';
250 cp
= stpcpy (cp
, modifier
);
252 if ((mask
& CEN_SPECIAL
) != 0)
255 cp
= stpcpy (cp
, special
);
257 if ((mask
& (CEN_SPONSOR
| CEN_REVISION
)) != 0)
260 if ((mask
& CEN_SPONSOR
) != 0)
261 cp
= stpcpy (cp
, sponsor
);
262 if ((mask
& CEN_REVISION
) != 0)
265 cp
= stpcpy (cp
, revision
);
270 stpcpy (cp
, filename
);
272 /* Look in list of already loaded domains whether it is already
275 for (retval
= *l10nfile_list
; retval
!= NULL
; retval
= retval
->next
)
276 if (retval
->filename
!= NULL
)
278 int compare
= strcmp (retval
->filename
, abs_filename
);
284 /* It's not in the list. */
292 if (retval
!= NULL
|| do_allocate
== 0)
298 retval
= (struct loaded_l10nfile
*)
299 malloc (sizeof (*retval
) + (__argz_count (dirlist
, dirlist_len
)
301 * sizeof (struct loaded_l10nfile
*)));
305 retval
->filename
= abs_filename
;
306 retval
->decided
= (__argz_count (dirlist
, dirlist_len
) != 1
307 || ((mask
& XPG_CODESET
) != 0
308 && (mask
& XPG_NORM_CODESET
) != 0));
313 retval
->next
= *l10nfile_list
;
314 *l10nfile_list
= retval
;
318 retval
->next
= last
->next
;
323 /* If the DIRLIST is a real list the RETVAL entry corresponds not to
324 a real file. So we have to use the DIRLIST separation mechanism
325 of the inner loop. */
326 cnt
= __argz_count (dirlist
, dirlist_len
) == 1 ? mask
- 1 : mask
;
327 for (; cnt
>= 0; --cnt
)
328 if ((cnt
& ~mask
) == 0
329 && ((cnt
& CEN_SPECIFIC
) == 0 || (cnt
& XPG_SPECIFIC
) == 0)
330 && ((cnt
& XPG_CODESET
) == 0 || (cnt
& XPG_NORM_CODESET
) == 0))
332 /* Iterate over all elements of the DIRLIST. */
335 while ((dir
= __argz_next ((char *) dirlist
, dirlist_len
, dir
))
337 retval
->successor
[entries
++]
338 = _nl_make_l10nflist (l10nfile_list
, dir
, strlen (dir
) + 1, cnt
,
339 language
, territory
, codeset
,
340 normalized_codeset
, modifier
, special
,
341 sponsor
, revision
, filename
, 1);
343 retval
->successor
[entries
] = NULL
;
348 /* Normalize codeset name. There is no standard for the codeset
349 names. Normalization allows the user to use any of the common
352 _nl_normalize_codeset (codeset
, name_len
)
362 for (cnt
= 0; cnt
< name_len
; ++cnt
)
363 if (isalnum (codeset
[cnt
]))
367 if (isalpha (codeset
[cnt
]))
371 retval
= (char *) malloc ((only_digit
? 3 : 0) + len
+ 1);
376 wp
= stpcpy (retval
, "iso");
380 for (cnt
= 0; cnt
< name_len
; ++cnt
)
381 if (isalpha (codeset
[cnt
]))
382 *wp
++ = tolower (codeset
[cnt
]);
383 else if (isdigit (codeset
[cnt
]))
384 *wp
++ = codeset
[cnt
];
389 return (const char *) retval
;
393 /* @@ begin of epilog @@ */
395 /* We don't want libintl.a to depend on any other library. So we
396 avoid the non-standard function stpcpy. In GNU C Library this
397 function is available, though. Also allow the symbol HAVE_STPCPY
399 #if !_LIBC && !HAVE_STPCPY
405 while ((*dest
++ = *src
++) != '\0')
This page took 0.036579 seconds and 4 git commands to generate.