1 /* Copyright (C) 1995-1999, 2000, 2001, 2002 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1995.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the 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 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
41 /* Undefine the following line in the production version. */
42 /* #define NDEBUG 1 */
46 /* List of copied locales. */
47 struct copy_def_list_t
*copy_list
;
49 /* If this is defined be POSIX conform. */
50 int posix_conformance
;
52 /* If not zero give a lot more messages. */
55 /* If not zero suppress warnings and information messages. */
58 /* If not zero, produce old-style hash table instead of 3-level access tables. */
61 /* If not zero force output even if warning were issued. */
62 static int force_output
;
64 /* Prefix for output files. */
65 const char *output_prefix
;
67 /* Name of the character map file. */
68 static const char *charmap_file
;
70 /* Name of the locale definition file. */
71 static const char *input_file
;
73 /* Name of the repertoire map file. */
74 const char *repertoire_global
;
76 /* List of all locales. */
77 static struct localedef_t
*locales
;
80 /* Name and version of program. */
81 static void print_version (FILE *stream
, struct argp_state
*state
);
82 void (*argp_program_version_hook
) (FILE *, struct argp_state
*) = print_version
;
86 #define OPT_OLDSTYLE 3
89 /* Definitions of arguments for argp functions. */
90 static const struct argp_option options
[] =
92 { NULL
, 0, NULL
, 0, N_("Input Files:") },
93 { "charmap", 'f', "FILE", 0,
94 N_("Symbolic character names defined in FILE") },
95 { "inputfile", 'i', "FILE", 0, N_("Source definitions are found in FILE") },
96 { "repertoire-map", 'u', "FILE", 0,
97 N_("FILE contains mapping from symbolic names to UCS4 values") },
99 { NULL
, 0, NULL
, 0, N_("Output control:") },
100 { "force", 'c', NULL
, 0,
101 N_("Create output even if warning messages were issued") },
102 { "old-style", OPT_OLDSTYLE
, NULL
, 0, N_("Create old-style tables") },
103 { "prefix", OPT_PREFIX
, "PATH", 0, N_("Optional output file prefix") },
104 { "posix", OPT_POSIX
, NULL
, 0, N_("Be strictly POSIX conform") },
105 { "quiet", OPT_QUIET
, NULL
, 0,
106 N_("Suppress warnings and information messages") },
107 { "verbose", 'v', NULL
, 0, N_("Print more messages") },
108 { NULL
, 0, NULL
, 0, NULL
}
111 /* Short description of program. */
112 static const char doc
[] = N_("Compile locale specification");
114 /* Strings for arguments in help texts. */
115 static const char args_doc
[] = N_("NAME");
117 /* Prototype for option handler. */
118 static error_t
parse_opt (int key
, char *arg
, struct argp_state
*state
);
120 /* Function to print some extra text in the help message. */
121 static char *more_help (int key
, const char *text
, void *input
);
123 /* Data structure to communicate with argp functions. */
124 static struct argp argp
=
126 options
, parse_opt
, args_doc
, doc
, NULL
, more_help
130 /* Prototypes for global functions. */
131 extern void *xmalloc (size_t __n
);
133 /* Prototypes for local functions. */
134 static void error_print (void);
135 static const char *construct_output_path (char *path
);
136 static const char *normalize_codeset (const char *codeset
, size_t name_len
);
140 main (int argc
, char *argv
[])
142 const char *output_path
;
143 int cannot_write_why
;
144 struct charmap_t
*charmap
;
145 struct localedef_t global
;
148 /* Set initial values for global variables. */
150 posix_conformance
= getenv ("POSIXLY_CORRECT") != NULL
;
151 error_print_progname
= error_print
;
153 /* Set locale. Do not set LC_ALL because the other categories must
154 not be affected (according to POSIX.2). */
155 setlocale (LC_MESSAGES
, "");
156 setlocale (LC_CTYPE
, "");
158 /* Initialize the message catalog. */
159 textdomain (_libc_intl_domainname
);
161 /* Parse and process arguments. */
162 argp_err_exit_status
= 4;
163 argp_parse (&argp
, argc
, argv
, 0, &remaining
, NULL
);
165 /* POSIX.2 requires to be verbose about missing characters in the
167 verbose
|= posix_conformance
;
169 if (argc
- remaining
!= 1)
171 /* We need exactly one non-option parameter. */
172 argp_help (&argp
, stdout
, ARGP_HELP_SEE
| ARGP_HELP_EXIT_ERR
,
173 program_invocation_short_name
);
177 /* The parameter describes the output path of the constructed files.
178 If the described files cannot be written return a NULL pointer. */
179 output_path
= construct_output_path (argv
[remaining
]);
180 if (output_path
== NULL
)
181 error (4, errno
, _("cannot create directory for output files"));
182 cannot_write_why
= errno
;
184 /* Now that the parameters are processed we have to reset the local
185 ctype locale. (P1003.2 4.35.5.2) */
186 setlocale (LC_CTYPE
, "POSIX");
188 /* Look whether the system really allows locale definitions. POSIX
189 defines error code 3 for this situation so I think it must be
190 a fatal error (see P1003.2 4.35.8). */
191 if (sysconf (_SC_2_LOCALEDEF
) < 0)
192 error (3, 0, _("FATAL: system does not define `_POSIX2_LOCALEDEF'"));
194 /* Process charmap file. */
195 charmap
= charmap_read (charmap_file
, verbose
, be_quiet
, 1);
197 /* Add the first entry in the locale list. */
198 memset (&global
, '\0', sizeof (struct localedef_t
));
199 global
.name
= input_file
?: "/dev/stdin";
200 global
.needed
= ALL_LOCALES
;
203 /* Now read the locale file. */
204 if (locfile_read (&global
, charmap
) != 0)
205 error (4, errno
, _("cannot open locale definition file `%s'"), input_file
);
207 /* Perhaps we saw some `copy' instructions. */
210 struct localedef_t
*runp
= locales
;
212 while (runp
!= NULL
&& (runp
->needed
& runp
->avail
) == runp
->needed
)
216 /* Everything read. */
219 if (locfile_read (runp
, charmap
) != 0)
220 error (4, errno
, _("cannot open locale definition file `%s'"),
224 /* Check the categories we processed in source form. */
225 check_all_categories (locales
, charmap
);
227 /* We are now able to write the data files. If warning were given we
228 do it only if it is explicitly requested (--force). */
229 if (error_message_count
== 0 || force_output
!= 0)
231 if (cannot_write_why
!= 0)
232 error (4, cannot_write_why
, _("cannot write output files to `%s'"),
235 write_all_categories (locales
, charmap
, output_path
);
238 error (4, 0, _("no output file produced because warning were issued"));
240 /* This exit status is prescribed by POSIX.2 4.35.7. */
241 exit (error_message_count
!= 0);
245 /* Handle program arguments. */
247 parse_opt (int key
, char *arg
, struct argp_state
*state
)
255 posix_conformance
= 1;
273 repertoire_global
= arg
;
279 return ARGP_ERR_UNKNOWN
;
286 more_help (int key
, const char *text
, void *input
)
292 case ARGP_KEY_HELP_EXTRA
:
293 /* We print some extra information. */
294 asprintf (&cp
, gettext ("\
295 System's directory for character maps : %s\n\
296 repertoire maps: %s\n\
299 CHARMAP_PATH
, REPERTOIREMAP_PATH
, LOCALE_PATH
, gettext ("\
300 Report bugs using the `glibcbug' script to <bugs@gnu.org>.\n"));
305 return (char *) text
;
308 /* Print the version information. */
310 print_version (FILE *stream
, struct argp_state
*state
)
312 fprintf (stream
, "localedef (GNU %s) %s\n", PACKAGE
, VERSION
);
313 fprintf (stream
, gettext ("\
314 Copyright (C) %s Free Software Foundation, Inc.\n\
315 This is free software; see the source for copying conditions. There is NO\n\
316 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
318 fprintf (stream
, gettext ("Written by %s.\n"), "Ulrich Drepper");
322 /* The address of this function will be assigned to the hook in the error
330 /* The parameter to localedef describes the output path. If it does
331 contain a '/' character it is a relative path. Otherwise it names the
332 locale this definition is for. */
334 construct_output_path (char *path
)
336 const char *normal
= NULL
;
340 if (strchr (path
, '/') == NULL
)
342 /* This is a system path. First examine whether the locale name
343 contains a reference to the codeset. This should be
349 /* We must be prepared for finding a CEN name or a location of
350 the introducing `.' where it is not possible anymore. */
351 while (*startp
!= '\0' && *startp
!= '@' && *startp
!= '.'
352 && *startp
!= '+' && *startp
!= ',')
356 /* We found a codeset specification. Now find the end. */
358 while (*endp
!= '\0' && *endp
!= '@')
362 normal
= normalize_codeset (startp
, endp
- startp
);
365 /* This is to keep gcc quiet. */
368 /* We put an additional '\0' at the end of the string because at
369 the end of the function we need another byte for the trailing
372 n
= asprintf (&result
, "%s%s/%s%c",
373 output_prefix
?: "", LOCALEDIR
, path
, '\0');
375 n
= asprintf (&result
, "%s%s/%.*s%s%s%c",
376 output_prefix
?: "", LOCALEDIR
,
377 (int) (startp
- path
), path
, normal
, endp
, '\0');
382 endp
= result
+ n
- 1;
386 /* This is a user path. Please note the additional byte in the
387 memory allocation. */
388 size_t len
= strlen (path
) + 1;
389 result
= xmalloc (len
+ 1);
390 endp
= mempcpy (result
, path
, len
) - 1;
395 if (euidaccess (result
, W_OK
) == -1)
396 /* Perhaps the directory does not exist now. Try to create it. */
400 if (mkdir (result
, 0777) < 0)
411 /* Normalize codeset name. There is no standard for the codeset
412 names. Normalization allows the user to use any of the common
415 normalize_codeset (codeset
, name_len
)
425 for (cnt
= 0; cnt
< name_len
; ++cnt
)
426 if (isalnum (codeset
[cnt
]))
430 if (isalpha (codeset
[cnt
]))
434 retval
= (char *) malloc ((only_digit
? 3 : 0) + len
+ 1);
439 wp
= stpcpy (retval
, "iso");
443 for (cnt
= 0; cnt
< name_len
; ++cnt
)
444 if (isalpha (codeset
[cnt
]))
445 *wp
++ = tolower (codeset
[cnt
]);
446 else if (isdigit (codeset
[cnt
]))
447 *wp
++ = codeset
[cnt
];
452 return (const char *) retval
;
457 add_to_readlist (int locale
, const char *name
, const char *repertoire_name
,
458 int generate
, struct localedef_t
*copy_locale
)
460 struct localedef_t
*runp
= locales
;
462 while (runp
!= NULL
&& strcmp (name
, runp
->name
) != 0)
467 /* Add a new entry at the end. */
468 struct localedef_t
*newp
;
470 assert (generate
== 1);
472 newp
= xcalloc (1, sizeof (struct localedef_t
));
474 newp
->repertoire_name
= repertoire_name
;
477 runp
= locales
= newp
;
481 while (runp
->next
!= NULL
)
483 runp
= runp
->next
= newp
;
487 if (generate
&& (runp
->needed
& (1 << locale
)) != 0)
488 error (5, 0, _("circular dependencies between locale definitions"));
490 if (copy_locale
!= NULL
)
492 if (runp
->categories
[locale
].generic
!= NULL
)
493 error (5, 0, _("cannot add already read locale `%s' a second time"),
496 runp
->categories
[locale
].generic
=
497 copy_locale
->categories
[locale
].generic
;
500 runp
->needed
|= 1 << locale
;
507 find_locale (int locale
, const char *name
, const char *repertoire_name
,
508 const struct charmap_t
*charmap
)
510 struct localedef_t
*result
;
512 /* Find the locale, but do not generate it since this would be a bug. */
513 result
= add_to_readlist (locale
, name
, repertoire_name
, 0, NULL
);
515 assert (result
!= NULL
);
517 if ((result
->avail
& (1 << locale
)) == 0
518 && locfile_read (result
, charmap
) != 0)
519 error (4, errno
, _("cannot open locale definition file `%s'"),
527 load_locale (int locale
, const char *name
, const char *repertoire_name
,
528 const struct charmap_t
*charmap
, struct localedef_t
*copy_locale
)
530 struct localedef_t
*result
;
532 /* Generate the locale if it does not exist. */
533 result
= add_to_readlist (locale
, name
, repertoire_name
, 1, copy_locale
);
535 assert (result
!= NULL
);
537 if ((result
->avail
& (1 << locale
)) == 0
538 && locfile_read (result
, charmap
) != 0)
539 error (4, errno
, _("cannot open locale definition file `%s'"),
546 turn_on_mcheck (void)
548 /* Enable `malloc' debugging. */
550 /* Use the following line for a more thorough but much slower testing. */
551 /* mcheck_pedantic (NULL); */
554 void (*__malloc_initialize_hook
) (void) = turn_on_mcheck
;