Thu Jan 18 00:32:43 1996 Roland McGrath <roland@churchy.gnu.ai.mit.edu>
[kopensolaris-gnu/glibc.git] / locale / localedef.c
1 /* Copyright (C) 1995 Free Software Foundation, Inc.
2
3 The GNU C Library is free software; you can redistribute it and/or
4 modify it under the terms of the GNU Library General Public License as
5 published by the Free Software Foundation; either version 2 of the
6 License, or (at your option) any later version.
7
8 The GNU C Library is distributed in the hope that it will be useful,
9 but WITHOUT ANY WARRANTY; without even the implied warranty of
10 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
11 Library General Public License for more details.
12
13 You should have received a copy of the GNU Library General Public
14 License along with the GNU C Library; see the file COPYING.LIB.  If
15 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
16 Cambridge, MA 02139, USA.  */
17
18 #include <getopt.h>
19 #include <libintl.h>
20 #include <locale.h>
21 #include <stdarg.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25 #include <unistd.h>
26 #include <sys/stat.h>
27 #include <errno.h>
28 #include "error.h"
29
30 #include "localedef.h"
31
32 /* The charmap file used.  If none given DEFAULT_CHARMAP is used.  */
33 static char *charmap_file;
34
35 /* If set output is always written, even when warning are given.  */
36 static int force_output;
37
38 /* The input file name.  */
39 static char *input_file;
40
41 /* Path leading to the destination directory for the produced files.  */
42 char *output_path;
43
44 /* If this is defined be POSIX conform.  */
45 int posix_conformance;
46
47 /* If not zero give a lot more messages.  */
48 int verbose;
49
50 /* Long options.  */
51 static const struct option long_options[] =
52   {
53     { "charmap", required_argument, NULL, 'f' },
54     { "debug", no_argument, NULL, 'd' },
55     { "help", no_argument, NULL, 'h' },
56     { "force", no_argument, NULL, 'c' },
57     { "inputfile", required_argument, NULL, 'i' },
58     { "posix", no_argument, &posix_conformance, 1 },
59     { "verbose", no_argument, &verbose, 1},
60     { "version", no_argument, NULL, 'V' },
61     { NULL, 0, NULL, 0 }
62   };
63
64
65 /* Prototypes for local functions.  */
66 static void usage (int status) __attribute__ ((noreturn));
67 static int construct_output_path (const char *path);
68
69 int
70 main(int argc, char *argv[])
71 {
72   int optchar;
73   int cannot_write;
74   int do_help = 0;
75   int do_version = 0;
76
77   /* Set initial values for global varaibles.  */
78   charmap_file = NULL;
79   force_output = 0;
80   input_file = 0;
81   posix_conformance = getenv ("POSIXLY_CORRECT") != NULL;
82   verbose = 0;
83
84   /* Set locale.  Do not set LC_ALL because the other categories must
85      not be affected (acccording to POSIX.2).  */
86   setlocale (LC_MESSAGES, "");
87   setlocale (LC_CTYPE, "");
88
89   /* Initialize the message catalog.  */
90   textdomain (PACKAGE);
91
92   while ((optchar = getopt_long (argc, argv, "cdf:hi:vV", long_options, NULL))
93          != EOF)
94     switch (optchar)
95       {
96       case '\0':
97         break;
98       case 'c':
99         force_output = 1;
100         break;
101       case 'f':
102         if (charmap_file != NULL)
103           error (0, 0, gettext ("\"%s %s\" overwrites old option \"%s\""),
104                  "-f", optarg, charmap_file);
105         charmap_file = optarg;
106         break;
107       case 'h':
108         do_help = 1;
109         break;
110       case 'i':
111         if (input_file != NULL)
112           error (0, 0, gettext ("\"%s %s\" overwrites old option \"%s\""),
113                  "-i", optarg, input_file);
114         input_file = optarg;
115         break;
116       case 'v':
117         verbose = 1;
118         break;
119       case 'V':
120         do_version = 1;
121         break;
122       default:
123         usage (4);
124         break;
125       }
126
127   /* POSIX.2 requires to be verbose about missing characters in the
128      character map.  */
129   verbose |= posix_conformance;
130
131   /* Version information is requested.  */
132   if (do_version)
133     {
134       fprintf (stderr, "GNU %s %s\n", PACKAGE, VERSION);
135       exit (EXIT_SUCCESS);
136     }
137
138   /* Help is requested.  */
139   if (do_help)
140     usage (0);
141
142   if (argc - optind != 1)
143     /* We need exactly one non-option parameter.  */
144     usage (4);
145
146   /* The parameter describes the output path of the constructed files.
147      If the files cannot be written return a non-zero value.  */
148   cannot_write = construct_output_path (argv[optind]);
149
150   /* Now that the parameters are processed we have to reset the local
151      ctype locale.  (POSIX.2 4.35.5.2)  */
152   setlocale (LC_CTYPE, "POSIX");
153
154   /* Look whether the system really allows locale definitions.  */
155   if (sysconf (_SC_2_LOCALEDEF) < 0)
156     error (3, 0,
157            gettext ("warning: system does not define `_POSIX2_LOCALEDEF'"));
158
159   /* Process charmap file.  */
160   charmap_read (charmap_file);
161
162   /* Now read the locale file.  */
163   locfile_read (input_file);
164
165   /* Check all categories for consistency.  */
166   categories_check ();
167
168   /* We are now able to write the data files.  If warning were given we
169      do it only if it is explicitly requested (--force).  */
170   if (error_message_count == 0 || force_output != 0)
171     if (cannot_write != 0)
172       error (0, 0, gettext ("cannot write output file `%s': %s"),
173              output_path, strerror (cannot_write));
174     else
175       categories_write ();
176   else
177     error (0, 0,
178            gettext ("no output file produced because warning were issued"));
179
180   exit (EXIT_SUCCESS);
181 }
182
183
184 /* Display usage information and exit.  */
185 static void
186 usage(int status)
187 {
188   if (status != EXIT_SUCCESS)
189     fprintf (stderr, gettext ("Try `%s --help' for more information.\n"),
190              program_invocation_name);
191   else
192     printf(gettext ("\
193 Usage: %s [OPTION]... name\n\
194 Mandatory arguments to long options are mandatory for short options too.\n\
195   -c, --force           create output even if warning messages have been issued\n\
196   -h, --help            display this help and exit\n\
197   -V, --version         output version information and exit\n\
198 \n\
199   -i, --inputfile=FILE  source definitions are found in FILE\n\
200   -f, --charmap=FILE    symbolic character names defined in FILE\n\
201 \n\
202   -v, --verbose         print more messages\n\
203       --posix           be strictly POSIX conform\n\
204 \n\
205 System's directory for character maps: %s\n\
206                        locale files  : %s\n\
207 "), program_invocation_name, CHARMAP_PATH, LOCALE_PATH);
208
209   exit (status);
210 }
211
212
213 /* The parameter to localedef describes the output path.  If it does
214    contain a '/' character it is a relativ path.  Otherwise it names the
215    locale this definition is for.  */
216 static int
217 construct_output_path (const char *path)
218 {
219   int result = 0;
220
221   if (strchr (path, '/') == NULL)
222     {
223       /* This is a system path.  */
224       int path_max_len = pathconf (LOCALE_PATH, _PC_PATH_MAX) + 1;
225       output_path = (char *) xmalloc (path_max_len);
226
227       snprintf (output_path, path_max_len, "%s/%s", LOCALE_PATH, path);
228     }
229   else
230     {
231       char *t;
232       /* This is a user path.  */
233       output_path = malloc (strlen (path) + 2);
234       t = stpcpy (output_path, path);
235       *t = '\0';
236     }
237
238   if (euidaccess (output_path, W_OK) == -1)
239     /* Perhaps the directory does not exist now.  Try to create it.  */
240     if (errno == ENOENT)
241       {
242         if (mkdir (output_path, 0777) == -1)
243           result = errno;
244       }
245     else
246       result = errno;
247
248   if (result == 0)
249     strcat (output_path, "/");
250
251   return result;
252 }
253
254 /*
255  * Local Variables:
256  *  mode:c
257  *  c-basic-offset:2
258  * End:
259  */