1 /* Copyright (C) 1995,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>, 1995.
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. */
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 /* Name of the character map file. */
65 static const char *charmap_file
;
67 /* Name of the locale definition file. */
68 static const char *input_file
;
70 /* Name of the repertoire map file. */
71 const char *repertoire_global
;
73 /* List of all locales. */
74 static struct localedef_t
*locales
;
77 /* Name and version of program. */
78 static void print_version (FILE *stream
, struct argp_state
*state
);
79 void (*argp_program_version_hook
) (FILE *, struct argp_state
*) = print_version
;
83 #define OPT_OLDSTYLE 3
85 /* Definitions of arguments for argp functions. */
86 static const struct argp_option options
[] =
88 { NULL
, 0, NULL
, 0, N_("Input Files:") },
89 { "charmap", 'f', "FILE", 0,
90 N_("Symbolic character names defined in FILE") },
91 { "inputfile", 'i', "FILE", 0, N_("Source definitions are found in FILE") },
92 { "repertoire-map", 'u', "FILE", 0,
93 N_("FILE contains mapping from symbolic names to UCS4 values") },
95 { NULL
, 0, NULL
, 0, N_("Output control:") },
96 { "force", 'c', NULL
, 0,
97 N_("Create output even if warning messages were issued") },
98 { "old-style", OPT_OLDSTYLE
, NULL
, 0, N_("Create old-style tables") },
99 { "posix", OPT_POSIX
, NULL
, 0, N_("Be strictly POSIX conform") },
100 { "quiet", OPT_QUIET
, NULL
, 0,
101 N_("Suppress warnings and information messages") },
102 { "verbose", 'v', NULL
, 0, N_("Print more messages") },
103 { NULL
, 0, NULL
, 0, NULL
}
106 /* Short description of program. */
107 static const char doc
[] = N_("Compile locale specification");
109 /* Strings for arguments in help texts. */
110 static const char args_doc
[] = N_("NAME");
112 /* Prototype for option handler. */
113 static error_t
parse_opt (int key
, char *arg
, struct argp_state
*state
);
115 /* Function to print some extra text in the help message. */
116 static char *more_help (int key
, const char *text
, void *input
);
118 /* Data structure to communicate with argp functions. */
119 static struct argp argp
=
121 options
, parse_opt
, args_doc
, doc
, NULL
, more_help
125 /* Prototypes for global functions. */
126 extern void *xmalloc (size_t __n
);
128 /* Prototypes for local functions. */
129 static void error_print (void);
130 static const char *construct_output_path (char *path
);
131 static const char *normalize_codeset (const char *codeset
, size_t name_len
);
135 main (int argc
, char *argv
[])
137 const char *output_path
;
138 int cannot_write_why
;
139 struct charmap_t
*charmap
;
140 struct localedef_t global
;
143 /* Set initial values for global variables. */
145 posix_conformance
= getenv ("POSIXLY_CORRECT") != NULL
;
146 error_print_progname
= error_print
;
148 /* Set locale. Do not set LC_ALL because the other categories must
149 not be affected (according to POSIX.2). */
150 setlocale (LC_MESSAGES
, "");
151 setlocale (LC_CTYPE
, "");
153 /* Initialize the message catalog. */
154 textdomain (_libc_intl_domainname
);
156 /* Parse and process arguments. */
157 argp_err_exit_status
= 4;
158 argp_parse (&argp
, argc
, argv
, 0, &remaining
, NULL
);
160 /* POSIX.2 requires to be verbose about missing characters in the
162 verbose
|= posix_conformance
;
164 if (argc
- remaining
!= 1)
166 /* We need exactly one non-option parameter. */
167 argp_help (&argp
, stdout
, ARGP_HELP_SEE
| ARGP_HELP_EXIT_ERR
,
168 program_invocation_short_name
);
172 /* The parameter describes the output path of the constructed files.
173 If the described files cannot be written return a NULL pointer. */
174 output_path
= construct_output_path (argv
[remaining
]);
175 cannot_write_why
= errno
;
177 /* Now that the parameters are processed we have to reset the local
178 ctype locale. (P1003.2 4.35.5.2) */
179 setlocale (LC_CTYPE
, "POSIX");
181 /* Look whether the system really allows locale definitions. POSIX
182 defines error code 3 for this situation so I think it must be
183 a fatal error (see P1003.2 4.35.8). */
184 if (sysconf (_SC_2_LOCALEDEF
) < 0)
185 error (3, 0, _("FATAL: system does not define `_POSIX2_LOCALEDEF'"));
187 /* Process charmap file. */
188 charmap
= charmap_read (charmap_file
);
190 /* Add the first entry in the locale list. */
191 memset (&global
, '\0', sizeof (struct localedef_t
));
192 global
.name
= input_file
;
193 global
.needed
= ALL_LOCALES
;
196 /* Now read the locale file. */
197 if (locfile_read (&global
, charmap
) != 0)
198 error (4, errno
, _("cannot open locale definition file `%s'"), input_file
);
200 /* Perhaps we saw some `copy' instructions. */
203 struct localedef_t
*runp
= locales
;
205 while (runp
!= NULL
&& (runp
->needed
& runp
->avail
) == runp
->needed
)
209 /* Everything read. */
212 if (locfile_read (runp
, charmap
) != 0)
213 error (4, errno
, _("cannot open locale definition file `%s'"),
217 /* Check the categories we processed in source form. */
218 check_all_categories (locales
, charmap
);
220 /* We are now able to write the data files. If warning were given we
221 do it only if it is explicitly requested (--force). */
222 if (error_message_count
== 0 || force_output
!= 0)
224 if (cannot_write_why
!= 0)
225 error (4, cannot_write_why
, _("cannot write output files to `%s'"),
228 write_all_categories (locales
, charmap
, output_path
);
231 error (4, 0, _("no output file produced because warning were issued"));
233 /* This exit status is prescribed by POSIX.2 4.35.7. */
234 exit (error_message_count
!= 0);
238 /* Handle program arguments. */
240 parse_opt (int key
, char *arg
, struct argp_state
*state
)
248 posix_conformance
= 1;
263 repertoire_global
= arg
;
269 return ARGP_ERR_UNKNOWN
;
276 more_help (int key
, const char *text
, void *input
)
282 case ARGP_KEY_HELP_EXTRA
:
283 /* We print some extra information. */
284 asprintf (&cp
, gettext ("\
285 System's directory for character maps : %s\n\
286 repertoire maps: %s\n\
289 CHARMAP_PATH
, REPERTOIREMAP_PATH
, LOCALE_PATH
, gettext ("\
290 Report bugs using the `glibcbug' script to <bugs@gnu.org>.\n"));
295 return (char *) text
;
298 /* Print the version information. */
300 print_version (FILE *stream
, struct argp_state
*state
)
302 fprintf (stream
, "localedef (GNU %s) %s\n", PACKAGE
, VERSION
);
303 fprintf (stream
, gettext ("\
304 Copyright (C) %s Free Software Foundation, Inc.\n\
305 This is free software; see the source for copying conditions. There is NO\n\
306 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
308 fprintf (stream
, gettext ("Written by %s.\n"), "Ulrich Drepper");
312 /* The address of this function will be assigned to the hook in the error
320 /* The parameter to localedef describes the output path. If it does
321 contain a '/' character it is a relative path. Otherwise it names the
322 locale this definition is for. */
324 construct_output_path (char *path
)
326 const char *normal
= NULL
;
330 if (strchr (path
, '/') == NULL
)
332 /* This is a system path. First examine whether the locale name
333 contains a reference to the codeset. This should be
339 /* We must be prepared for finding a CEN name or a location of
340 the introducing `.' where it is not possible anymore. */
341 while (*startp
!= '\0' && *startp
!= '@' && *startp
!= '.'
342 && *startp
!= '+' && *startp
!= ',')
346 /* We found a codeset specification. Now find the end. */
348 while (*endp
!= '\0' && *endp
!= '@')
352 normal
= normalize_codeset (startp
, endp
- startp
);
355 /* This is to keep gcc quiet. */
358 /* We put an additional '\0' at the end of the string because at
359 the end of the function we need another byte for the trailing
362 n
= asprintf (&result
, "%s/%s%c", LOCALEDIR
, path
, '\0');
364 n
= asprintf (&result
, "%s/%.*s%s%s%c", LOCALEDIR
,
365 (int) (startp
- path
), path
, normal
, endp
, '\0');
371 /* This is a user path. Please note the additional byte in the
372 memory allocation. */
373 size_t len
= strlen (path
) + 1;
374 result
= xmalloc (len
+ 1);
375 endp
= mempcpy (result
, path
, len
) - 1;
380 if (euidaccess (result
, W_OK
) == -1)
381 /* Perhaps the directory does not exist now. Try to create it. */
385 mkdir (result
, 0777);
395 /* Normalize codeset name. There is no standard for the codeset
396 names. Normalization allows the user to use any of the common
399 normalize_codeset (codeset
, name_len
)
409 for (cnt
= 0; cnt
< name_len
; ++cnt
)
410 if (isalnum (codeset
[cnt
]))
414 if (isalpha (codeset
[cnt
]))
418 retval
= (char *) malloc ((only_digit
? 3 : 0) + len
+ 1);
423 wp
= stpcpy (retval
, "iso");
427 for (cnt
= 0; cnt
< name_len
; ++cnt
)
428 if (isalpha (codeset
[cnt
]))
429 *wp
++ = tolower (codeset
[cnt
]);
430 else if (isdigit (codeset
[cnt
]))
431 *wp
++ = codeset
[cnt
];
436 return (const char *) retval
;
441 add_to_readlist (int locale
, const char *name
, const char *repertoire_name
,
442 int generate
, struct localedef_t
*copy_locale
)
444 struct localedef_t
*runp
= locales
;
446 while (runp
!= NULL
&& strcmp (name
, runp
->name
) != 0)
451 /* Add a new entry at the end. */
452 struct localedef_t
*newp
;
454 assert (generate
== 1);
456 newp
= xcalloc (1, sizeof (struct localedef_t
));
458 newp
->repertoire_name
= repertoire_name
;
461 runp
= locales
= newp
;
465 while (runp
->next
!= NULL
)
467 runp
= runp
->next
= newp
;
471 if (generate
&& (runp
->needed
& (1 << locale
)) != 0)
472 error (5, 0, _("circular dependencies between locale definitions"));
474 if (copy_locale
!= NULL
)
476 if (runp
->categories
[locale
].generic
!= NULL
)
477 error (5, 0, _("cannot add already read locale `%s' a second time"),
480 runp
->categories
[locale
].generic
=
481 copy_locale
->categories
[locale
].generic
;
484 runp
->needed
|= 1 << locale
;
491 find_locale (int locale
, const char *name
, const char *repertoire_name
,
492 struct charmap_t
*charmap
)
494 struct localedef_t
*result
;
496 /* Find the locale, but do not generate it since this would be a bug. */
497 result
= add_to_readlist (locale
, name
, repertoire_name
, 0, NULL
);
499 assert (result
!= NULL
);
501 if ((result
->avail
& (1 << locale
)) == 0
502 && locfile_read (result
, charmap
) != 0)
503 error (4, errno
, _("cannot open locale definition file `%s'"),
511 load_locale (int locale
, const char *name
, const char *repertoire_name
,
512 struct charmap_t
*charmap
, struct localedef_t
*copy_locale
)
514 struct localedef_t
*result
;
516 /* Generate the locale if it does not exist. */
517 result
= add_to_readlist (locale
, name
, repertoire_name
, 1, copy_locale
);
519 assert (result
!= NULL
);
521 if ((result
->avail
& (1 << locale
)) == 0
522 && locfile_read (result
, charmap
) != 0)
523 error (4, errno
, _("cannot open locale definition file `%s'"),
530 turn_on_mcheck (void)
532 /* Enable `malloc' debugging. */
534 /* Use the following line for a more thorough but much slower testing. */
535 /* mcheck_pedantic (NULL); */
538 void (*__malloc_initialize_hook
) (void) = turn_on_mcheck
;