1*66e63ce3Schristos /* Copyright (C) 1995-1999, 2000, 2001, 2002 Free Software Foundation, Inc.
2*66e63ce3Schristos Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
3*66e63ce3Schristos
4*66e63ce3Schristos This program is free software; you can redistribute it and/or modify it
5*66e63ce3Schristos under the terms of the GNU Library General Public License as published
6*66e63ce3Schristos by the Free Software Foundation; either version 2, or (at your option)
7*66e63ce3Schristos any later version.
8*66e63ce3Schristos
9*66e63ce3Schristos This program is distributed in the hope that it will be useful,
10*66e63ce3Schristos but WITHOUT ANY WARRANTY; without even the implied warranty of
11*66e63ce3Schristos MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12*66e63ce3Schristos Library General Public License for more details.
13*66e63ce3Schristos
14*66e63ce3Schristos You should have received a copy of the GNU Library General Public
15*66e63ce3Schristos License along with this program; if not, write to the Free Software
16*66e63ce3Schristos Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301,
17*66e63ce3Schristos USA. */
18*66e63ce3Schristos
19*66e63ce3Schristos /* Tell glibc's <string.h> to provide a prototype for stpcpy().
20*66e63ce3Schristos This must come before <config.h> because <config.h> may include
21*66e63ce3Schristos <features.h>, and once <features.h> has been included, it's too late. */
22*66e63ce3Schristos #ifndef _GNU_SOURCE
23*66e63ce3Schristos # define _GNU_SOURCE 1
24*66e63ce3Schristos #endif
25*66e63ce3Schristos
26*66e63ce3Schristos #ifdef HAVE_CONFIG_H
27*66e63ce3Schristos # include <config.h>
28*66e63ce3Schristos #endif
29*66e63ce3Schristos
30*66e63ce3Schristos #include <string.h>
31*66e63ce3Schristos
32*66e63ce3Schristos #if defined _LIBC || defined HAVE_ARGZ_H
33*66e63ce3Schristos # include <argz.h>
34*66e63ce3Schristos #endif
35*66e63ce3Schristos #include <ctype.h>
36*66e63ce3Schristos #include <sys/types.h>
37*66e63ce3Schristos #include <stdlib.h>
38*66e63ce3Schristos
39*66e63ce3Schristos #include "loadinfo.h"
40*66e63ce3Schristos
41*66e63ce3Schristos /* On some strange systems still no definition of NULL is found. Sigh! */
42*66e63ce3Schristos #ifndef NULL
43*66e63ce3Schristos # if defined __STDC__ && __STDC__
44*66e63ce3Schristos # define NULL ((void *) 0)
45*66e63ce3Schristos # else
46*66e63ce3Schristos # define NULL 0
47*66e63ce3Schristos # endif
48*66e63ce3Schristos #endif
49*66e63ce3Schristos
50*66e63ce3Schristos /* @@ end of prolog @@ */
51*66e63ce3Schristos
52*66e63ce3Schristos #ifdef _LIBC
53*66e63ce3Schristos /* Rename the non ANSI C functions. This is required by the standard
54*66e63ce3Schristos because some ANSI C functions will require linking with this object
55*66e63ce3Schristos file and the name space must not be polluted. */
56*66e63ce3Schristos # ifndef stpcpy
57*66e63ce3Schristos # define stpcpy(dest, src) __stpcpy(dest, src)
58*66e63ce3Schristos # endif
59*66e63ce3Schristos #else
60*66e63ce3Schristos # ifndef HAVE_STPCPY
61*66e63ce3Schristos static char *stpcpy PARAMS ((char *dest, const char *src));
62*66e63ce3Schristos # endif
63*66e63ce3Schristos #endif
64*66e63ce3Schristos
65*66e63ce3Schristos /* Pathname support.
66*66e63ce3Schristos ISSLASH(C) tests whether C is a directory separator character.
67*66e63ce3Schristos IS_ABSOLUTE_PATH(P) tests whether P is an absolute path. If it is not,
68*66e63ce3Schristos it may be concatenated to a directory pathname.
69*66e63ce3Schristos */
70*66e63ce3Schristos #if defined _WIN32 || defined __WIN32__ || defined __EMX__ || defined __DJGPP__
71*66e63ce3Schristos /* Win32, OS/2, DOS */
72*66e63ce3Schristos # define ISSLASH(C) ((C) == '/' || (C) == '\\')
73*66e63ce3Schristos # define HAS_DEVICE(P) \
74*66e63ce3Schristos ((((P)[0] >= 'A' && (P)[0] <= 'Z') || ((P)[0] >= 'a' && (P)[0] <= 'z')) \
75*66e63ce3Schristos && (P)[1] == ':')
76*66e63ce3Schristos # define IS_ABSOLUTE_PATH(P) (ISSLASH ((P)[0]) || HAS_DEVICE (P))
77*66e63ce3Schristos #else
78*66e63ce3Schristos /* Unix */
79*66e63ce3Schristos # define ISSLASH(C) ((C) == '/')
80*66e63ce3Schristos # define IS_ABSOLUTE_PATH(P) ISSLASH ((P)[0])
81*66e63ce3Schristos #endif
82*66e63ce3Schristos
83*66e63ce3Schristos /* Define function which are usually not available. */
84*66e63ce3Schristos
85*66e63ce3Schristos #if !defined _LIBC && !defined HAVE___ARGZ_COUNT
86*66e63ce3Schristos /* Returns the number of strings in ARGZ. */
87*66e63ce3Schristos static size_t argz_count__ PARAMS ((const char *argz, size_t len));
88*66e63ce3Schristos
89*66e63ce3Schristos static size_t
argz_count__(argz,len)90*66e63ce3Schristos argz_count__ (argz, len)
91*66e63ce3Schristos const char *argz;
92*66e63ce3Schristos size_t len;
93*66e63ce3Schristos {
94*66e63ce3Schristos size_t count = 0;
95*66e63ce3Schristos while (len > 0)
96*66e63ce3Schristos {
97*66e63ce3Schristos size_t part_len = strlen (argz);
98*66e63ce3Schristos argz += part_len + 1;
99*66e63ce3Schristos len -= part_len + 1;
100*66e63ce3Schristos count++;
101*66e63ce3Schristos }
102*66e63ce3Schristos return count;
103*66e63ce3Schristos }
104*66e63ce3Schristos # undef __argz_count
105*66e63ce3Schristos # define __argz_count(argz, len) argz_count__ (argz, len)
106*66e63ce3Schristos #else
107*66e63ce3Schristos # ifdef _LIBC
108*66e63ce3Schristos # define __argz_count(argz, len) INTUSE(__argz_count) (argz, len)
109*66e63ce3Schristos # endif
110*66e63ce3Schristos #endif /* !_LIBC && !HAVE___ARGZ_COUNT */
111*66e63ce3Schristos
112*66e63ce3Schristos #if !defined _LIBC && !defined HAVE___ARGZ_STRINGIFY
113*66e63ce3Schristos /* Make '\0' separated arg vector ARGZ printable by converting all the '\0's
114*66e63ce3Schristos except the last into the character SEP. */
115*66e63ce3Schristos static void argz_stringify__ PARAMS ((char *argz, size_t len, int sep));
116*66e63ce3Schristos
117*66e63ce3Schristos static void
argz_stringify__(argz,len,sep)118*66e63ce3Schristos argz_stringify__ (argz, len, sep)
119*66e63ce3Schristos char *argz;
120*66e63ce3Schristos size_t len;
121*66e63ce3Schristos int sep;
122*66e63ce3Schristos {
123*66e63ce3Schristos while (len > 0)
124*66e63ce3Schristos {
125*66e63ce3Schristos size_t part_len = strlen (argz);
126*66e63ce3Schristos argz += part_len;
127*66e63ce3Schristos len -= part_len + 1;
128*66e63ce3Schristos if (len > 0)
129*66e63ce3Schristos *argz++ = sep;
130*66e63ce3Schristos }
131*66e63ce3Schristos }
132*66e63ce3Schristos # undef __argz_stringify
133*66e63ce3Schristos # define __argz_stringify(argz, len, sep) argz_stringify__ (argz, len, sep)
134*66e63ce3Schristos #else
135*66e63ce3Schristos # ifdef _LIBC
136*66e63ce3Schristos # define __argz_stringify(argz, len, sep) \
137*66e63ce3Schristos INTUSE(__argz_stringify) (argz, len, sep)
138*66e63ce3Schristos # endif
139*66e63ce3Schristos #endif /* !_LIBC && !HAVE___ARGZ_STRINGIFY */
140*66e63ce3Schristos
141*66e63ce3Schristos #if !defined _LIBC && !defined HAVE___ARGZ_NEXT
142*66e63ce3Schristos static char *argz_next__ PARAMS ((char *argz, size_t argz_len,
143*66e63ce3Schristos const char *entry));
144*66e63ce3Schristos
145*66e63ce3Schristos static char *
argz_next__(argz,argz_len,entry)146*66e63ce3Schristos argz_next__ (argz, argz_len, entry)
147*66e63ce3Schristos char *argz;
148*66e63ce3Schristos size_t argz_len;
149*66e63ce3Schristos const char *entry;
150*66e63ce3Schristos {
151*66e63ce3Schristos if (entry)
152*66e63ce3Schristos {
153*66e63ce3Schristos if (entry < argz + argz_len)
154*66e63ce3Schristos entry = strchr (entry, '\0') + 1;
155*66e63ce3Schristos
156*66e63ce3Schristos return entry >= argz + argz_len ? NULL : (char *) entry;
157*66e63ce3Schristos }
158*66e63ce3Schristos else
159*66e63ce3Schristos if (argz_len > 0)
160*66e63ce3Schristos return argz;
161*66e63ce3Schristos else
162*66e63ce3Schristos return 0;
163*66e63ce3Schristos }
164*66e63ce3Schristos # undef __argz_next
165*66e63ce3Schristos # define __argz_next(argz, len, entry) argz_next__ (argz, len, entry)
166*66e63ce3Schristos #endif /* !_LIBC && !HAVE___ARGZ_NEXT */
167*66e63ce3Schristos
168*66e63ce3Schristos
169*66e63ce3Schristos /* Return number of bits set in X. */
170*66e63ce3Schristos static int pop PARAMS ((int x));
171*66e63ce3Schristos
172*66e63ce3Schristos static inline int
pop(x)173*66e63ce3Schristos pop (x)
174*66e63ce3Schristos int x;
175*66e63ce3Schristos {
176*66e63ce3Schristos /* We assume that no more than 16 bits are used. */
177*66e63ce3Schristos x = ((x & ~0x5555) >> 1) + (x & 0x5555);
178*66e63ce3Schristos x = ((x & ~0x3333) >> 2) + (x & 0x3333);
179*66e63ce3Schristos x = ((x >> 4) + x) & 0x0f0f;
180*66e63ce3Schristos x = ((x >> 8) + x) & 0xff;
181*66e63ce3Schristos
182*66e63ce3Schristos return x;
183*66e63ce3Schristos }
184*66e63ce3Schristos
185*66e63ce3Schristos
186*66e63ce3Schristos struct loaded_l10nfile *
_nl_make_l10nflist(l10nfile_list,dirlist,dirlist_len,mask,language,territory,codeset,normalized_codeset,modifier,special,sponsor,revision,filename,do_allocate)187*66e63ce3Schristos _nl_make_l10nflist (l10nfile_list, dirlist, dirlist_len, mask, language,
188*66e63ce3Schristos territory, codeset, normalized_codeset, modifier, special,
189*66e63ce3Schristos sponsor, revision, filename, do_allocate)
190*66e63ce3Schristos struct loaded_l10nfile **l10nfile_list;
191*66e63ce3Schristos const char *dirlist;
192*66e63ce3Schristos size_t dirlist_len;
193*66e63ce3Schristos int mask;
194*66e63ce3Schristos const char *language;
195*66e63ce3Schristos const char *territory;
196*66e63ce3Schristos const char *codeset;
197*66e63ce3Schristos const char *normalized_codeset;
198*66e63ce3Schristos const char *modifier;
199*66e63ce3Schristos const char *special;
200*66e63ce3Schristos const char *sponsor;
201*66e63ce3Schristos const char *revision;
202*66e63ce3Schristos const char *filename;
203*66e63ce3Schristos int do_allocate;
204*66e63ce3Schristos {
205*66e63ce3Schristos char *abs_filename;
206*66e63ce3Schristos struct loaded_l10nfile **lastp;
207*66e63ce3Schristos struct loaded_l10nfile *retval;
208*66e63ce3Schristos char *cp;
209*66e63ce3Schristos size_t dirlist_count;
210*66e63ce3Schristos size_t entries;
211*66e63ce3Schristos int cnt;
212*66e63ce3Schristos
213*66e63ce3Schristos /* If LANGUAGE contains an absolute directory specification, we ignore
214*66e63ce3Schristos DIRLIST. */
215*66e63ce3Schristos if (IS_ABSOLUTE_PATH (language))
216*66e63ce3Schristos dirlist_len = 0;
217*66e63ce3Schristos
218*66e63ce3Schristos /* Allocate room for the full file name. */
219*66e63ce3Schristos abs_filename = (char *) malloc (dirlist_len
220*66e63ce3Schristos + strlen (language)
221*66e63ce3Schristos + ((mask & TERRITORY) != 0
222*66e63ce3Schristos ? strlen (territory) + 1 : 0)
223*66e63ce3Schristos + ((mask & XPG_CODESET) != 0
224*66e63ce3Schristos ? strlen (codeset) + 1 : 0)
225*66e63ce3Schristos + ((mask & XPG_NORM_CODESET) != 0
226*66e63ce3Schristos ? strlen (normalized_codeset) + 1 : 0)
227*66e63ce3Schristos + (((mask & XPG_MODIFIER) != 0
228*66e63ce3Schristos || (mask & CEN_AUDIENCE) != 0)
229*66e63ce3Schristos ? strlen (modifier) + 1 : 0)
230*66e63ce3Schristos + ((mask & CEN_SPECIAL) != 0
231*66e63ce3Schristos ? strlen (special) + 1 : 0)
232*66e63ce3Schristos + (((mask & CEN_SPONSOR) != 0
233*66e63ce3Schristos || (mask & CEN_REVISION) != 0)
234*66e63ce3Schristos ? (1 + ((mask & CEN_SPONSOR) != 0
235*66e63ce3Schristos ? strlen (sponsor) : 0)
236*66e63ce3Schristos + ((mask & CEN_REVISION) != 0
237*66e63ce3Schristos ? strlen (revision) + 1 : 0)) : 0)
238*66e63ce3Schristos + 1 + strlen (filename) + 1);
239*66e63ce3Schristos
240*66e63ce3Schristos if (abs_filename == NULL)
241*66e63ce3Schristos return NULL;
242*66e63ce3Schristos
243*66e63ce3Schristos /* Construct file name. */
244*66e63ce3Schristos cp = abs_filename;
245*66e63ce3Schristos if (dirlist_len > 0)
246*66e63ce3Schristos {
247*66e63ce3Schristos memcpy (cp, dirlist, dirlist_len);
248*66e63ce3Schristos __argz_stringify (cp, dirlist_len, PATH_SEPARATOR);
249*66e63ce3Schristos cp += dirlist_len;
250*66e63ce3Schristos cp[-1] = '/';
251*66e63ce3Schristos }
252*66e63ce3Schristos
253*66e63ce3Schristos cp = stpcpy (cp, language);
254*66e63ce3Schristos
255*66e63ce3Schristos if ((mask & TERRITORY) != 0)
256*66e63ce3Schristos {
257*66e63ce3Schristos *cp++ = '_';
258*66e63ce3Schristos cp = stpcpy (cp, territory);
259*66e63ce3Schristos }
260*66e63ce3Schristos if ((mask & XPG_CODESET) != 0)
261*66e63ce3Schristos {
262*66e63ce3Schristos *cp++ = '.';
263*66e63ce3Schristos cp = stpcpy (cp, codeset);
264*66e63ce3Schristos }
265*66e63ce3Schristos if ((mask & XPG_NORM_CODESET) != 0)
266*66e63ce3Schristos {
267*66e63ce3Schristos *cp++ = '.';
268*66e63ce3Schristos cp = stpcpy (cp, normalized_codeset);
269*66e63ce3Schristos }
270*66e63ce3Schristos if ((mask & (XPG_MODIFIER | CEN_AUDIENCE)) != 0)
271*66e63ce3Schristos {
272*66e63ce3Schristos /* This component can be part of both syntaces but has different
273*66e63ce3Schristos leading characters. For CEN we use `+', else `@'. */
274*66e63ce3Schristos *cp++ = (mask & CEN_AUDIENCE) != 0 ? '+' : '@';
275*66e63ce3Schristos cp = stpcpy (cp, modifier);
276*66e63ce3Schristos }
277*66e63ce3Schristos if ((mask & CEN_SPECIAL) != 0)
278*66e63ce3Schristos {
279*66e63ce3Schristos *cp++ = '+';
280*66e63ce3Schristos cp = stpcpy (cp, special);
281*66e63ce3Schristos }
282*66e63ce3Schristos if ((mask & (CEN_SPONSOR | CEN_REVISION)) != 0)
283*66e63ce3Schristos {
284*66e63ce3Schristos *cp++ = ',';
285*66e63ce3Schristos if ((mask & CEN_SPONSOR) != 0)
286*66e63ce3Schristos cp = stpcpy (cp, sponsor);
287*66e63ce3Schristos if ((mask & CEN_REVISION) != 0)
288*66e63ce3Schristos {
289*66e63ce3Schristos *cp++ = '_';
290*66e63ce3Schristos cp = stpcpy (cp, revision);
291*66e63ce3Schristos }
292*66e63ce3Schristos }
293*66e63ce3Schristos
294*66e63ce3Schristos *cp++ = '/';
295*66e63ce3Schristos stpcpy (cp, filename);
296*66e63ce3Schristos
297*66e63ce3Schristos /* Look in list of already loaded domains whether it is already
298*66e63ce3Schristos available. */
299*66e63ce3Schristos lastp = l10nfile_list;
300*66e63ce3Schristos for (retval = *l10nfile_list; retval != NULL; retval = retval->next)
301*66e63ce3Schristos if (retval->filename != NULL)
302*66e63ce3Schristos {
303*66e63ce3Schristos int compare = strcmp (retval->filename, abs_filename);
304*66e63ce3Schristos if (compare == 0)
305*66e63ce3Schristos /* We found it! */
306*66e63ce3Schristos break;
307*66e63ce3Schristos if (compare < 0)
308*66e63ce3Schristos {
309*66e63ce3Schristos /* It's not in the list. */
310*66e63ce3Schristos retval = NULL;
311*66e63ce3Schristos break;
312*66e63ce3Schristos }
313*66e63ce3Schristos
314*66e63ce3Schristos lastp = &retval->next;
315*66e63ce3Schristos }
316*66e63ce3Schristos
317*66e63ce3Schristos if (retval != NULL || do_allocate == 0)
318*66e63ce3Schristos {
319*66e63ce3Schristos free (abs_filename);
320*66e63ce3Schristos return retval;
321*66e63ce3Schristos }
322*66e63ce3Schristos
323*66e63ce3Schristos dirlist_count = (dirlist_len > 0 ? __argz_count (dirlist, dirlist_len) : 1);
324*66e63ce3Schristos
325*66e63ce3Schristos /* Allocate a new loaded_l10nfile. */
326*66e63ce3Schristos retval =
327*66e63ce3Schristos (struct loaded_l10nfile *)
328*66e63ce3Schristos malloc (sizeof (*retval)
329*66e63ce3Schristos + (((dirlist_count << pop (mask)) + (dirlist_count > 1 ? 1 : 0))
330*66e63ce3Schristos * sizeof (struct loaded_l10nfile *)));
331*66e63ce3Schristos if (retval == NULL)
332*66e63ce3Schristos return NULL;
333*66e63ce3Schristos
334*66e63ce3Schristos retval->filename = abs_filename;
335*66e63ce3Schristos
336*66e63ce3Schristos /* We set retval->data to NULL here; it is filled in later.
337*66e63ce3Schristos Setting retval->decided to 1 here means that retval does not
338*66e63ce3Schristos correspond to a real file (dirlist_count > 1) or is not worth
339*66e63ce3Schristos looking up (if an unnormalized codeset was specified). */
340*66e63ce3Schristos retval->decided = (dirlist_count > 1
341*66e63ce3Schristos || ((mask & XPG_CODESET) != 0
342*66e63ce3Schristos && (mask & XPG_NORM_CODESET) != 0));
343*66e63ce3Schristos retval->data = NULL;
344*66e63ce3Schristos
345*66e63ce3Schristos retval->next = *lastp;
346*66e63ce3Schristos *lastp = retval;
347*66e63ce3Schristos
348*66e63ce3Schristos entries = 0;
349*66e63ce3Schristos /* Recurse to fill the inheritance list of RETVAL.
350*66e63ce3Schristos If the DIRLIST is a real list (i.e. DIRLIST_COUNT > 1), the RETVAL
351*66e63ce3Schristos entry does not correspond to a real file; retval->filename contains
352*66e63ce3Schristos colons. In this case we loop across all elements of DIRLIST and
353*66e63ce3Schristos across all bit patterns dominated by MASK.
354*66e63ce3Schristos If the DIRLIST is a single directory or entirely redundant (i.e.
355*66e63ce3Schristos DIRLIST_COUNT == 1), we loop across all bit patterns dominated by
356*66e63ce3Schristos MASK, excluding MASK itself.
357*66e63ce3Schristos In either case, we loop down from MASK to 0. This has the effect
358*66e63ce3Schristos that the extra bits in the locale name are dropped in this order:
359*66e63ce3Schristos first the modifier, then the territory, then the codeset, then the
360*66e63ce3Schristos normalized_codeset. */
361*66e63ce3Schristos for (cnt = dirlist_count > 1 ? mask : mask - 1; cnt >= 0; --cnt)
362*66e63ce3Schristos if ((cnt & ~mask) == 0
363*66e63ce3Schristos && ((cnt & CEN_SPECIFIC) == 0 || (cnt & XPG_SPECIFIC) == 0)
364*66e63ce3Schristos && ((cnt & XPG_CODESET) == 0 || (cnt & XPG_NORM_CODESET) == 0))
365*66e63ce3Schristos {
366*66e63ce3Schristos if (dirlist_count > 1)
367*66e63ce3Schristos {
368*66e63ce3Schristos /* Iterate over all elements of the DIRLIST. */
369*66e63ce3Schristos char *dir = NULL;
370*66e63ce3Schristos
371*66e63ce3Schristos while ((dir = __argz_next ((char *) dirlist, dirlist_len, dir))
372*66e63ce3Schristos != NULL)
373*66e63ce3Schristos retval->successor[entries++]
374*66e63ce3Schristos = _nl_make_l10nflist (l10nfile_list, dir, strlen (dir) + 1,
375*66e63ce3Schristos cnt, language, territory, codeset,
376*66e63ce3Schristos normalized_codeset, modifier, special,
377*66e63ce3Schristos sponsor, revision, filename, 1);
378*66e63ce3Schristos }
379*66e63ce3Schristos else
380*66e63ce3Schristos retval->successor[entries++]
381*66e63ce3Schristos = _nl_make_l10nflist (l10nfile_list, dirlist, dirlist_len,
382*66e63ce3Schristos cnt, language, territory, codeset,
383*66e63ce3Schristos normalized_codeset, modifier, special,
384*66e63ce3Schristos sponsor, revision, filename, 1);
385*66e63ce3Schristos }
386*66e63ce3Schristos retval->successor[entries] = NULL;
387*66e63ce3Schristos
388*66e63ce3Schristos return retval;
389*66e63ce3Schristos }
390*66e63ce3Schristos
391*66e63ce3Schristos /* Normalize codeset name. There is no standard for the codeset
392*66e63ce3Schristos names. Normalization allows the user to use any of the common
393*66e63ce3Schristos names. The return value is dynamically allocated and has to be
394*66e63ce3Schristos freed by the caller. */
395*66e63ce3Schristos const char *
_nl_normalize_codeset(codeset,name_len)396*66e63ce3Schristos _nl_normalize_codeset (codeset, name_len)
397*66e63ce3Schristos const char *codeset;
398*66e63ce3Schristos size_t name_len;
399*66e63ce3Schristos {
400*66e63ce3Schristos int len = 0;
401*66e63ce3Schristos int only_digit = 1;
402*66e63ce3Schristos char *retval;
403*66e63ce3Schristos char *wp;
404*66e63ce3Schristos size_t cnt;
405*66e63ce3Schristos
406*66e63ce3Schristos for (cnt = 0; cnt < name_len; ++cnt)
407*66e63ce3Schristos if (isalnum ((unsigned char) codeset[cnt]))
408*66e63ce3Schristos {
409*66e63ce3Schristos ++len;
410*66e63ce3Schristos
411*66e63ce3Schristos if (isalpha ((unsigned char) codeset[cnt]))
412*66e63ce3Schristos only_digit = 0;
413*66e63ce3Schristos }
414*66e63ce3Schristos
415*66e63ce3Schristos retval = (char *) malloc ((only_digit ? 3 : 0) + len + 1);
416*66e63ce3Schristos
417*66e63ce3Schristos if (retval != NULL)
418*66e63ce3Schristos {
419*66e63ce3Schristos if (only_digit)
420*66e63ce3Schristos wp = stpcpy (retval, "iso");
421*66e63ce3Schristos else
422*66e63ce3Schristos wp = retval;
423*66e63ce3Schristos
424*66e63ce3Schristos for (cnt = 0; cnt < name_len; ++cnt)
425*66e63ce3Schristos if (isalpha ((unsigned char) codeset[cnt]))
426*66e63ce3Schristos *wp++ = tolower ((unsigned char) codeset[cnt]);
427*66e63ce3Schristos else if (isdigit ((unsigned char) codeset[cnt]))
428*66e63ce3Schristos *wp++ = codeset[cnt];
429*66e63ce3Schristos
430*66e63ce3Schristos *wp = '\0';
431*66e63ce3Schristos }
432*66e63ce3Schristos
433*66e63ce3Schristos return (const char *) retval;
434*66e63ce3Schristos }
435*66e63ce3Schristos
436*66e63ce3Schristos
437*66e63ce3Schristos /* @@ begin of epilog @@ */
438*66e63ce3Schristos
439*66e63ce3Schristos /* We don't want libintl.a to depend on any other library. So we
440*66e63ce3Schristos avoid the non-standard function stpcpy. In GNU C Library this
441*66e63ce3Schristos function is available, though. Also allow the symbol HAVE_STPCPY
442*66e63ce3Schristos to be defined. */
443*66e63ce3Schristos #if !_LIBC && !HAVE_STPCPY
444*66e63ce3Schristos static char *
stpcpy(dest,src)445*66e63ce3Schristos stpcpy (dest, src)
446*66e63ce3Schristos char *dest;
447*66e63ce3Schristos const char *src;
448*66e63ce3Schristos {
449*66e63ce3Schristos while ((*dest++ = *src++) != '\0')
450*66e63ce3Schristos /* Do nothing. */ ;
451*66e63ce3Schristos return dest - 1;
452*66e63ce3Schristos }
453*66e63ce3Schristos #endif
454