1 /*
2 * Copyright 2010 Nexenta Systems, Inc. All rights reserved.
3 * Copyright 2015 John Marino <draco@marino.st>
4 *
5 * This source code is derived from the illumos localedef command, and
6 * provided under BSD-style license terms by Nexenta Systems, Inc.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 *
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 * notice, this list of conditions and the following disclaimer in the
16 * documentation and/or other materials provided with the distribution.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
19 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
22 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
23 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
24 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
26 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
27 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
28 * POSSIBILITY OF SUCH DAMAGE.
29 */
30
31 /*
32 * POSIX localedef.
33 */
34
35 #include <stdio.h>
36 #include <stdlib.h>
37 #include <errno.h>
38 #include <sys/types.h>
39 #include <sys/stat.h>
40 #include <string.h>
41 #include <unistd.h>
42 #include <libgen.h>
43 #include <stddef.h>
44 #include <limits.h>
45 #include <locale.h>
46 #include <dirent.h>
47 #include "localedef.h"
48 #include "parser.h"
49
50 #ifndef TEXT_DOMAIN
51 #define TEXT_DOMAIN "SYS_TEST"
52 #endif
53
54 static int bsd = 0;
55 int verbose = 0;
56 int undefok = 0;
57 int warnok = 0;
58 static char *locname = NULL;
59 static char locpath[PATH_MAX];
60
61 const char *
category_name(void)62 category_name(void)
63 {
64 switch (get_category()) {
65 case T_CHARMAP:
66 return ("CHARMAP");
67 case T_WIDTH:
68 return ("WIDTH");
69 case T_COLLATE:
70 return ("LC_COLLATE");
71 case T_CTYPE:
72 return ("LC_CTYPE");
73 case T_MESSAGES:
74 return ("LC_MESSAGES");
75 case T_MONETARY:
76 return ("LC_MONETARY");
77 case T_NUMERIC:
78 return ("LC_NUMERIC");
79 case T_TIME:
80 return ("LC_TIME");
81 default:
82 INTERR;
83 return (NULL);
84 }
85 }
86
87 static char *
category_file(void)88 category_file(void)
89 {
90 if (bsd)
91 (void) snprintf(locpath, sizeof (locpath), "%s.%s",
92 locname, category_name());
93 else
94 (void) snprintf(locpath, sizeof (locpath), "%s/%s",
95 locname, category_name());
96 return (locpath);
97 }
98
99 FILE *
open_category(void)100 open_category(void)
101 {
102 FILE *file;
103
104 if (verbose) {
105 (void) printf("Writing category %s: ", category_name());
106 (void) fflush(stdout);
107 }
108
109 /* make the parent directory */
110 if (!bsd)
111 (void) mkdir(dirname(category_file()), 0755);
112
113 /*
114 * note that we have to regenerate the file name, as dirname
115 * clobbered it.
116 */
117 file = fopen(category_file(), "w");
118 if (file == NULL) {
119 errf(strerror(errno));
120 return (NULL);
121 }
122 return (file);
123 }
124
125 void
close_category(FILE * f)126 close_category(FILE *f)
127 {
128 if (fchmod(fileno(f), 0644) < 0) {
129 (void) fclose(f);
130 (void) unlink(category_file());
131 errf(strerror(errno));
132 }
133 if (fclose(f) < 0) {
134 (void) unlink(category_file());
135 errf(strerror(errno));
136 }
137 if (verbose) {
138 (void) fprintf(stdout, "done.\n");
139 (void) fflush(stdout);
140 }
141 }
142
143 /*
144 * This function is used when copying the category from another
145 * locale. Note that the copy is actually performed using a hard
146 * link for efficiency.
147 */
148 void
copy_category(char * src)149 copy_category(char *src)
150 {
151 char srcpath[PATH_MAX];
152 int rv;
153
154 (void) snprintf(srcpath, sizeof (srcpath), "%s/%s",
155 src, category_name());
156 rv = access(srcpath, R_OK);
157 if ((rv != 0) && (strchr(srcpath, '/') == NULL)) {
158 /* Maybe we should try the system locale */
159 (void) snprintf(srcpath, sizeof (srcpath),
160 "/usr/lib/locale/%s/%s", src, category_name());
161 rv = access(srcpath, R_OK);
162 }
163
164 if (rv != 0) {
165 fprintf(stderr,"source locale data unavailable: %s", src);
166 return;
167 }
168
169 if (verbose > 1) {
170 (void) printf("Copying category %s from %s: ",
171 category_name(), src);
172 (void) fflush(stdout);
173 }
174
175 /* make the parent directory */
176 if (!bsd)
177 (void) mkdir(dirname(category_file()), 0755);
178
179 if (link(srcpath, category_file()) != 0) {
180 fprintf(stderr,"unable to copy locale data: %s",
181 strerror(errno));
182 return;
183 }
184 if (verbose > 1) {
185 (void) printf("done.\n");
186 }
187 }
188
189 int
putl_category(const char * s,FILE * f)190 putl_category(const char *s, FILE *f)
191 {
192 if (s && fputs(s, f) == EOF) {
193 (void) fclose(f);
194 (void) unlink(category_file());
195 errf(strerror(errno));
196 return (EOF);
197 }
198 if (fputc('\n', f) == EOF) {
199 (void) fclose(f);
200 (void) unlink(category_file());
201 errf(strerror(errno));
202 return (EOF);
203 }
204 return (0);
205 }
206
207 int
wr_category(void * buf,size_t sz,FILE * f)208 wr_category(void *buf, size_t sz, FILE *f)
209 {
210 if (!sz) {
211 return (0);
212 }
213 if (fwrite(buf, sz, 1, f) < 1) {
214 (void) fclose(f);
215 (void) unlink(category_file());
216 errf(strerror(errno));
217 return (EOF);
218 }
219 return (0);
220 }
221
222 int yyparse(void);
223
224 static void
usage(void)225 usage(void)
226 {
227 (void) fprintf(stderr, "Usage: localedef [options] localename\n");
228 (void) fprintf(stderr, "[options] are:\n");
229 (void) fprintf(stderr, " -D : BSD-style output\n");
230 (void) fprintf(stderr, " -c : ignore warnings\n");
231 (void) fprintf(stderr, " -v : verbose output\n");
232 (void) fprintf(stderr, " -U : ignore undefined symbols\n");
233 (void) fprintf(stderr, " -f charmap : use given charmap file\n");
234 (void) fprintf(stderr, " -u encoding : assume encoding\n");
235 (void) fprintf(stderr, " -w widths : use screen widths file\n");
236 (void) fprintf(stderr, " -i locsrc : source file for locale\n");
237 exit(4);
238 }
239
240 int
main(int argc,char ** argv)241 main(int argc, char **argv)
242 {
243 int c;
244 char *lfname = NULL;
245 char *cfname = NULL;
246 char *wfname = NULL;
247 DIR *dir;
248
249 init_charmap();
250 init_collate();
251 init_ctype();
252 init_messages();
253 init_monetary();
254 init_numeric();
255 init_time();
256
257 #if YYDEBUG
258 yydebug = 0;
259 #endif
260
261 (void) setlocale(LC_ALL, "");
262
263 while ((c = getopt(argc, argv, "w:i:cf:u:vUD")) != -1) {
264 switch (c) {
265 case 'D':
266 bsd = 1;
267 break;
268 case 'v':
269 verbose++;
270 break;
271 case 'i':
272 lfname = optarg;
273 break;
274 case 'u':
275 set_wide_encoding(optarg);
276 break;
277 case 'f':
278 cfname = optarg;
279 break;
280 case 'U':
281 undefok++;
282 break;
283 case 'c':
284 warnok++;
285 break;
286 case 'w':
287 wfname = optarg;
288 break;
289 case '?':
290 usage();
291 break;
292 }
293 }
294
295 if ((argc - 1) != (optind)) {
296 usage();
297 }
298 locname = argv[argc - 1];
299 if (verbose) {
300 (void) printf("Processing locale %s.\n", locname);
301 }
302
303 if (cfname) {
304 if (verbose)
305 (void) printf("Loading charmap %s.\n", cfname);
306 reset_scanner(cfname);
307 (void) yyparse();
308 }
309
310 if (wfname) {
311 if (verbose)
312 (void) printf("Loading widths %s.\n", wfname);
313 reset_scanner(wfname);
314 (void) yyparse();
315 }
316
317 if (verbose) {
318 (void) printf("Loading POSIX portable characters.\n");
319 }
320 add_charmap_posix();
321
322 if (lfname) {
323 reset_scanner(lfname);
324 } else {
325 reset_scanner(NULL);
326 }
327
328 /* make the directory for the locale if not already present */
329 if (!bsd) {
330 while ((dir = opendir(locname)) == NULL) {
331 if ((errno != ENOENT) ||
332 (mkdir(locname, 0755) < 0)) {
333 errf(strerror(errno));
334 }
335 }
336 (void) closedir(dir);
337 (void) mkdir(dirname(category_file()), 0755);
338 }
339
340 (void) yyparse();
341 if (verbose) {
342 (void) printf("All done.\n");
343 }
344 return (warnings ? 1 : 0);
345 }
346