1 /* Copyright (C) 1995, 1996 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 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
17 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA. */
39 #include "../intl/loadinfo.h"
41 /* Undefine the following line in the production version. */
42 /* #define NDEBUG 1 */
46 /* List of locale definition files which are used in `copy' instructions. */
47 struct copy_def_list_t
49 struct copy_def_list_t
*next
;
54 struct localedef_t
*locale
;
64 /* List of copied locales. */
65 struct copy_def_list_t
*copy_list
;
67 /* If this is defined be POSIX conform. */
68 int posix_conformance
;
70 /* If not zero give a lot more messages. */
76 static const struct option long_options
[] =
78 { "charmap", required_argument
, NULL
, 'f' },
79 { "code-set-name", required_argument
, NULL
, 'u' },
80 { "help", no_argument
, NULL
, 'h' },
81 { "force", no_argument
, NULL
, 'c' },
82 { "inputfile", required_argument
, NULL
, 'i' },
83 { "posix", no_argument
, &posix_conformance
, 1 },
84 { "verbose", no_argument
, &verbose
, 1},
85 { "version", no_argument
, NULL
, 'V' },
90 /* Prototypes for global functions. */
91 void *xmalloc (size_t __n
);
93 /* Prototypes for local functions. */
94 static void usage (int status
) __attribute__ ((noreturn
));
95 static void error_print (void);
96 static const char *construct_output_path (char *path
);
100 main (int argc
, char *argv
[])
105 int force_output
= 0;
106 const char *charmap_file
= NULL
;
107 const char *input_file
= NULL
;
108 const char *ucs_csn
= NULL
;
109 const char *output_path
;
110 int cannot_write_why
;
111 struct charset_t
*charset
;
112 struct localedef_t
*localedef
;
113 struct copy_def_list_t
*act_add_locdef
;
115 /* Set initial values for global varaibles. */
117 posix_conformance
= getenv ("POSIXLY_CORRECT") != NULL
;
118 error_print_progname
= error_print
;
121 /* Set locale. Do not set LC_ALL because the other categories must
122 not be affected (acccording to POSIX.2). */
123 setlocale (LC_MESSAGES
, "");
124 setlocale (LC_CTYPE
, "");
126 /* Initialize the message catalog. */
127 textdomain (_libc_intl_domainname
);
129 while ((optchar
= getopt_long (argc
, argv
, "cf:hi:u:vV", long_options
, NULL
))
133 case '\0': /* Long option. */
141 charmap_file
= optarg
;
165 usage (4); /* A value >3 is forced by POSIX. */
169 /* POSIX.2 requires to be verbose about missing characters in the
171 verbose
|= posix_conformance
;
173 /* Version information is requested. */
176 printf ("localedef (GNU %s) %s\n", PACKAGE
, VERSION
);
178 Copyright (C) %s Free Software Foundation, Inc.\n\
179 This is free software; see the source for copying conditions. There is NO\n\
180 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
182 printf (_("Written by %s.\n"), "Ulrich Drepper");
187 /* Help is requested. */
189 /* Possible violation: POSIX.2 4.35.8 defines the return value 0 as
190 "No errors occured and the locale(s) were successfully created."
191 But giving a other value than 0 does not make sense here. It
192 is perhaps not that important because POSIX does not specify the
193 -h option for localedef. */
196 if (argc
- optind
!= 1)
197 /* We need exactly one non-option parameter. */
200 /* The parameter describes the output path of the constructed files.
201 If the described files cannot be written return a NULL pointer. */
202 output_path
= construct_output_path (argv
[optind
]);
203 cannot_write_why
= errno
;
205 /* Now that the parameters are processed we have to reset the local
206 ctype locale. (P1003.2 4.35.5.2) */
207 setlocale (LC_CTYPE
, "POSIX");
209 /* Look whether the system really allows locale definitions. POSIX
210 defines error code 3 for this situation so I think it must be
211 a fatal error (see P1003.2 4.35.8). */
212 if (sysconf (_SC_2_LOCALEDEF
) < 0)
213 error (3, 0, _("FATAL: system does not define `_POSIX2_LOCALEDEF'"));
215 /* Process charmap file. */
216 charset
= charmap_read (charmap_file
);
218 /* Now read the locale file. */
219 localedef
= locfile_read (input_file
, charset
);
220 if (localedef
->failed
!= 0)
221 error (4, errno
, _("cannot open locale definition file `%s'"), input_file
);
223 /* Perhaps we saw some `copy' instructions. Process the given list.
224 We use a very simple algorithm: we look up the list from the
225 beginning every time. */
230 for (act_add_locdef
= copy_list
; act_add_locdef
!= NULL
;
231 act_add_locdef
= act_add_locdef
->next
)
233 for (cat
= LC_CTYPE
; cat
<= LC_MESSAGES
; ++cat
)
234 if ((act_add_locdef
->mask
& (1 << cat
)) != 0)
236 act_add_locdef
->mask
&= ~(1 << cat
);
239 if (cat
<= LC_MESSAGES
)
243 if (act_add_locdef
!= NULL
)
247 if (act_add_locdef
->locale
== NULL
)
248 act_add_locdef
->locale
= locfile_read (act_add_locdef
->name
,
251 if (! act_add_locdef
->locale
->failed
)
253 avail
= act_add_locdef
->locale
->categories
[cat
].generic
!= NULL
;
255 localedef
->categories
[cat
].generic
256 = act_add_locdef
->locale
->categories
[cat
].generic
;
261 const char *locale_names
[] = { "LC_COLLATE", "LC_CTYPE",
262 "LC_MONETARY", "LC_NUMERIC",
263 "LC_TIME", "LC_MESSAGES" };
268 asprintf (&fname
, LOCALE_PATH
"/%s/%s", act_add_locdef
->name
,
270 fd
= open (fname
, O_RDONLY
);
275 asprintf (&fname
, LOCALE_PATH
"/%s/%s/SYS_%s",
276 act_add_locdef
->name
, locale_names
[cat
],
279 fd
= open (fname
, O_RDONLY
);
282 locale file `%s', used in `copy' statement, not found"),
283 act_add_locdef
->name
);
286 if (fstat (fd
, &st
) < 0)
287 error (5, errno
, _("\
288 cannot `stat' locale file `%s'"),
291 localedef
->len
[cat
] = st
.st_size
;
292 localedef
->categories
[cat
].generic
293 = mmap (NULL
, st
.st_size
, PROT_READ
, MAP_PRIVATE
, fd
, 0);
295 if (localedef
->categories
[cat
].generic
== (void *) -1)
297 size_t left
= st
.st_size
;
300 localedef
->categories
[cat
].generic
301 = xmalloc (st
.st_size
);
302 read_ptr
= localedef
->categories
[cat
].generic
;
307 n
= read (fd
, read_ptr
, left
);
309 error (5, errno
, _("cannot read locale file `%s'"),
320 localedef
->binary
|= 1 << cat
;
324 while (act_add_locdef
!= NULL
);
326 /* Check the categories we processed in source form. */
327 check_all_categories (localedef
, charset
);
329 /* We are now able to write the data files. If warning were given we
330 do it only if it is explicitly requested (--force). */
331 if (error_message_count
== 0 || force_output
!= 0)
333 if (cannot_write_why
!= 0)
334 error (4, cannot_write_why
, _("cannot write output files to `%s'"),
337 write_all_categories (localedef
, charset
, output_path
);
340 error (4, 0, _("no output file produced because warning were issued"));
342 /* This exit status is prescribed by POSIX.2 4.35.7. */
343 exit (error_message_count
!= 0);
348 def_to_process (const char *name
, int category
)
350 struct copy_def_list_t
*new, **rp
;
352 for (rp
= ©_list
; *rp
!= NULL
; rp
= &(*rp
)->next
)
353 if (strcmp (name
, (*rp
)->name
) == 0)
360 *rp
= (struct copy_def_list_t
*) xmalloc (sizeof (**rp
));
365 (*rp
)->locale
= NULL
;
367 for (cnt
= 0; cnt
< 6; ++cnt
)
369 (*rp
)->binary
[cnt
].data
= NULL
;
370 (*rp
)->binary
[cnt
].len
= 0;
375 if ((new->mask
& category
) != 0)
376 /* We already have the information. This cannot happen. */
378 category data requested more than once: should not happen"));
380 new->mask
|= category
;
384 /* Display usage information and exit. */
389 fprintf (stderr
, _("Try `%s --help' for more information.\n"),
390 program_invocation_name
);
394 Usage: %s [OPTION]... name\n\
395 Mandatory arguments to long options are mandatory for short options too.\n\
396 -c, --force create output even if warning messages were issued\n\
397 -h, --help display this help and exit\n\
398 -f, --charmap=FILE symbolic character names defined in FILE\n\
399 -i, --inputfile=FILE source definitions are found in FILE\n\
400 -u, --code-set-name=NAME specify code set for mapping ISO 10646 elements\n\
401 -v, --verbose print more messages\n\
402 -V, --version output version information and exit\n\
403 --posix be strictly POSIX conform\n\
405 System's directory for character maps: %s\n\
406 locale files : %s\n"),
407 program_invocation_name
, CHARMAP_PATH
, LOCALE_PATH
);
408 fputs (gettext ("Report bugs to <bug-glibc@prep.ai.mit.edu>.\n"),
416 /* The address of this function will be assigned to the hook in the error
421 /* We don't want the program name to be printed in messages. Emacs'
422 compile.el does not like this. */
426 /* The parameter to localedef describes the output path. If it does
427 contain a '/' character it is a relativ path. Otherwise it names the
428 locale this definition is for. */
430 construct_output_path (char *path
)
432 const char *normal
= NULL
;
435 if (strchr (path
, '/') == NULL
)
437 /* This is a system path. First examine whether the locale name
438 contains a reference to the codeset. This should be
443 /* We must be prepared for finding a CEN name or a location of
444 the introducing `.' where it is not possible anymore. */
445 while (*startp
!= '\0' && *startp
!= '@' && *startp
!= '.'
446 && *startp
!= '+' && *startp
!= ',')
450 /* We found a codeset specification. Now find the end. */
452 while (*endp
!= '\0' && *endp
!= '@')
456 normal
= _nl_normalize_codeset (startp
, endp
- startp
);
459 /* This is to keep gcc quiet. */
462 /* We put an additional '\0' at the end of the string because at
463 the end of the function we need another byte for the trailing
466 asprintf (&result
, "%s/%s\0", LOCALE_PATH
, path
);
468 asprintf (&result
, "%s/%.*s%s%s\0", LOCALE_PATH
, startp
- path
, path
,
473 /* This is a user path. Please note the additional byte in the
474 memory allocation. */
475 result
= xmalloc (strlen (path
) + 2);
476 strcpy (result
, path
);
481 if (euidaccess (result
, W_OK
) == -1)
482 /* Perhaps the directory does not exist now. Try to create it. */
486 mkdir (result
, 0777);
489 strcat (result
, "/");