]>
git.ipfire.org Git - thirdparty/glibc.git/blob - locale/programs/localedef.c
1 /* Copyright (C) 1995, 1996, 1997 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 not,
17 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. */
73 /* If not zero suppress warnings and information messages. */
78 static const struct option long_options
[] =
80 { "charmap", required_argument
, NULL
, 'f' },
81 { "code-set-name", required_argument
, NULL
, 'u' },
82 { "help", no_argument
, NULL
, 'h' },
83 { "force", no_argument
, NULL
, 'c' },
84 { "inputfile", required_argument
, NULL
, 'i' },
85 { "posix", no_argument
, &posix_conformance
, 1 },
86 { "quiet", no_argument
, NULL
, 'q' },
87 { "verbose", no_argument
, &verbose
, 1},
88 { "version", no_argument
, NULL
, 'V' },
93 /* Prototypes for global functions. */
94 void *xmalloc (size_t __n
);
96 /* Prototypes for local functions. */
97 static void usage (int status
) __attribute__ ((noreturn
));
98 static void error_print (void);
99 static const char *construct_output_path (char *path
);
103 main (int argc
, char *argv
[])
108 int force_output
= 0;
109 const char *charmap_file
= NULL
;
110 const char *input_file
= NULL
;
111 const char *ucs_csn
= NULL
;
112 const char *output_path
;
113 int cannot_write_why
;
114 struct charset_t
*charset
;
115 struct localedef_t
*localedef
;
116 struct copy_def_list_t
*act_add_locdef
;
118 /* Set initial values for global variables. */
120 posix_conformance
= getenv ("POSIXLY_CORRECT") != NULL
;
121 error_print_progname
= error_print
;
124 /* Set locale. Do not set LC_ALL because the other categories must
125 not be affected (according to POSIX.2). */
126 setlocale (LC_MESSAGES
, "");
127 setlocale (LC_CTYPE
, "");
129 /* Initialize the message catalog. */
130 textdomain (_libc_intl_domainname
);
132 while ((optchar
= getopt_long (argc
, argv
, "cf:hi:u:vV", long_options
, NULL
))
136 case '\0': /* Long option. */
144 charmap_file
= optarg
;
174 usage (4); /* A value >3 is forced by POSIX. */
178 /* POSIX.2 requires to be verbose about missing characters in the
180 verbose
|= posix_conformance
;
182 /* Version information is requested. */
185 printf ("localedef (GNU %s) %s\n", PACKAGE
, VERSION
);
187 Copyright (C) %s Free Software Foundation, Inc.\n\
188 This is free software; see the source for copying conditions. There is NO\n\
189 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
190 "), "1995, 1996, 1997");
191 printf (_("Written by %s.\n"), "Ulrich Drepper");
196 /* Help is requested. */
198 /* Possible violation: POSIX.2 4.35.8 defines the return value 0 as
199 "No errors occurred and the locale(s) were successfully created."
200 But giving a other value than 0 does not make sense here. It
201 is perhaps not that important because POSIX does not specify the
202 -h option for localedef. */
205 if (argc
- optind
!= 1)
206 /* We need exactly one non-option parameter. */
209 /* The parameter describes the output path of the constructed files.
210 If the described files cannot be written return a NULL pointer. */
211 output_path
= construct_output_path (argv
[optind
]);
212 cannot_write_why
= errno
;
214 /* Now that the parameters are processed we have to reset the local
215 ctype locale. (P1003.2 4.35.5.2) */
216 setlocale (LC_CTYPE
, "POSIX");
218 /* Look whether the system really allows locale definitions. POSIX
219 defines error code 3 for this situation so I think it must be
220 a fatal error (see P1003.2 4.35.8). */
221 if (sysconf (_SC_2_LOCALEDEF
) < 0)
222 error (3, 0, _("FATAL: system does not define `_POSIX2_LOCALEDEF'"));
224 /* Process charmap file. */
225 charset
= charmap_read (charmap_file
);
227 /* Now read the locale file. */
228 localedef
= locfile_read (input_file
, charset
);
229 if (localedef
->failed
!= 0)
230 error (4, errno
, _("cannot open locale definition file `%s'"), input_file
);
232 /* Perhaps we saw some `copy' instructions. Process the given list.
233 We use a very simple algorithm: we look up the list from the
234 beginning every time. */
239 for (act_add_locdef
= copy_list
; act_add_locdef
!= NULL
;
240 act_add_locdef
= act_add_locdef
->next
)
242 for (cat
= LC_CTYPE
; cat
<= LC_MESSAGES
; ++cat
)
243 if ((act_add_locdef
->mask
& (1 << cat
)) != 0)
245 act_add_locdef
->mask
&= ~(1 << cat
);
248 if (cat
<= LC_MESSAGES
)
252 if (act_add_locdef
!= NULL
)
256 if (act_add_locdef
->locale
== NULL
)
257 act_add_locdef
->locale
= locfile_read (act_add_locdef
->name
,
260 if (! act_add_locdef
->locale
->failed
)
262 avail
= act_add_locdef
->locale
->categories
[cat
].generic
!= NULL
;
264 localedef
->categories
[cat
].generic
265 = act_add_locdef
->locale
->categories
[cat
].generic
;
270 const char *locale_names
[] = { "LC_COLLATE", "LC_CTYPE",
271 "LC_MONETARY", "LC_NUMERIC",
272 "LC_TIME", "LC_MESSAGES" };
277 asprintf (&fname
, LOCALE_PATH
"/%s/%s", act_add_locdef
->name
,
279 fd
= open (fname
, O_RDONLY
);
284 asprintf (&fname
, LOCALE_PATH
"/%s/%s/SYS_%s",
285 act_add_locdef
->name
, locale_names
[cat
],
288 fd
= open (fname
, O_RDONLY
);
291 locale file `%s', used in `copy' statement, not found"),
292 act_add_locdef
->name
);
295 if (fstat (fd
, &st
) < 0)
296 error (5, errno
, _("\
297 cannot `stat' locale file `%s'"),
300 localedef
->len
[cat
] = st
.st_size
;
301 localedef
->categories
[cat
].generic
302 = mmap (NULL
, st
.st_size
, PROT_READ
, MAP_PRIVATE
, fd
, 0);
304 if (localedef
->categories
[cat
].generic
== (void *) -1)
306 size_t left
= st
.st_size
;
309 localedef
->categories
[cat
].generic
310 = xmalloc (st
.st_size
);
311 read_ptr
= localedef
->categories
[cat
].generic
;
316 n
= read (fd
, read_ptr
, left
);
318 error (5, errno
, _("cannot read locale file `%s'"),
329 localedef
->binary
|= 1 << cat
;
333 while (act_add_locdef
!= NULL
);
335 /* Check the categories we processed in source form. */
336 check_all_categories (localedef
, charset
);
338 /* We are now able to write the data files. If warning were given we
339 do it only if it is explicitly requested (--force). */
340 if (error_message_count
== 0 || force_output
!= 0)
342 if (cannot_write_why
!= 0)
343 error (4, cannot_write_why
, _("cannot write output files to `%s'"),
346 write_all_categories (localedef
, charset
, output_path
);
349 error (4, 0, _("no output file produced because warning were issued"));
351 /* This exit status is prescribed by POSIX.2 4.35.7. */
352 exit (error_message_count
!= 0);
357 def_to_process (const char *name
, int category
)
359 struct copy_def_list_t
*new, **rp
;
361 for (rp
= ©_list
; *rp
!= NULL
; rp
= &(*rp
)->next
)
362 if (strcmp (name
, (*rp
)->name
) == 0)
369 *rp
= (struct copy_def_list_t
*) xmalloc (sizeof (**rp
));
374 (*rp
)->locale
= NULL
;
376 for (cnt
= 0; cnt
< 6; ++cnt
)
378 (*rp
)->binary
[cnt
].data
= NULL
;
379 (*rp
)->binary
[cnt
].len
= 0;
384 if ((new->mask
& category
) != 0)
385 /* We already have the information. This cannot happen. */
387 category data requested more than once: should not happen"));
389 new->mask
|= category
;
393 /* Display usage information and exit. */
398 fprintf (stderr
, _("Try `%s --help' for more information.\n"),
399 program_invocation_name
);
403 Usage: %s [OPTION]... name\n\
404 Mandatory arguments to long options are mandatory for short options too.\n\
405 -c, --force create output even if warning messages were issued\n\
406 -h, --help display this help and exit\n\
407 -f, --charmap=FILE symbolic character names defined in FILE\n\
408 -i, --inputfile=FILE source definitions are found in FILE\n\
409 --quiet Suppress warnings and information messages\n\
410 -u, --code-set-name=NAME specify code set for mapping ISO 10646 elements\n\
411 -v, --verbose print more messages\n\
412 -V, --version output version information and exit\n\
413 --posix be strictly POSIX conform\n\
415 System's directory for character maps: %s\n\
416 locale files : %s\n"),
417 program_invocation_name
, CHARMAP_PATH
, LOCALE_PATH
);
419 Report bugs using the `glibcbug' script to <bugs@gnu.ai.mit.edu>.\n"),
427 /* The address of this function will be assigned to the hook in the error
432 /* We don't want the program name to be printed in messages. Emacs'
433 compile.el does not like this. */
437 /* The parameter to localedef describes the output path. If it does
438 contain a '/' character it is a relative path. Otherwise it names the
439 locale this definition is for. */
441 construct_output_path (char *path
)
443 const char *normal
= NULL
;
446 if (strchr (path
, '/') == NULL
)
448 /* This is a system path. First examine whether the locale name
449 contains a reference to the codeset. This should be
454 /* We must be prepared for finding a CEN name or a location of
455 the introducing `.' where it is not possible anymore. */
456 while (*startp
!= '\0' && *startp
!= '@' && *startp
!= '.'
457 && *startp
!= '+' && *startp
!= ',')
461 /* We found a codeset specification. Now find the end. */
463 while (*endp
!= '\0' && *endp
!= '@')
467 normal
= _nl_normalize_codeset (startp
, endp
- startp
);
470 /* This is to keep gcc quiet. */
473 /* We put an additional '\0' at the end of the string because at
474 the end of the function we need another byte for the trailing
477 asprintf (&result
, "%s/%s%c", LOCALEDIR
, path
, '\0');
479 asprintf (&result
, "%s/%.*s%s%s%c", LOCALEDIR
, startp
- path
, path
,
484 /* This is a user path. Please note the additional byte in the
485 memory allocation. */
486 result
= xmalloc (strlen (path
) + 2);
487 strcpy (result
, path
);
492 if (euidaccess (result
, W_OK
) == -1)
493 /* Perhaps the directory does not exist now. Try to create it. */
497 mkdir (result
, 0777);
500 strcat (result
, "/");