1 %{
2 /*-
3 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
4 *
5 * Copyright (c) 1995 Alex Tatmanjants <[email protected]>
6 * at Electronni Visti IA, Kiev, Ukraine.
7 * All rights reserved.
8 *
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
11 * are met:
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 AUTHOR ``AS IS'' AND
19 * 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 AUTHOR BE LIABLE
22 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
24 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
25 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
26 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
27 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 * SUCH DAMAGE.
29 */
30
31 #include <sys/cdefs.h>
32 __FBSDID("$FreeBSD$");
33
34 #include <sys/types.h>
35 #include <arpa/inet.h>
36 #include <err.h>
37 #include <limits.h>
38 #include <stdarg.h>
39 #include <stdio.h>
40 #include <stdlib.h>
41 #include <string.h>
42 #include <unistd.h>
43 #include <sysexits.h>
44 #include "common.h"
45
46 extern FILE *yyin;
47 void yyerror(const char *fmt, ...) __printflike(1, 2);
48 int yyparse(void);
49 int yylex(void);
50 static void usage(void);
51 static void collate_print_tables(void);
52
53 #undef STR_LEN
54 #define STR_LEN 10
55 #undef TABLE_SIZE
56 #define TABLE_SIZE 100
57 #undef COLLATE_VERSION
58 #define COLLATE_VERSION "1.0\n"
59 #undef COLLATE_VERSION_2
60 #define COLLATE_VERSION1_2 "1.2\n"
61
62 struct __collate_st_char_pri {
63 int prim, sec;
64 };
65
66 struct __collate_st_chain_pri {
67 u_char str[STR_LEN];
68 int prim, sec;
69 };
70
71 char map_name[FILENAME_MAX] = ".";
72 char curr_chain[STR_LEN];
73
74 char __collate_version[STR_LEN];
75 u_char charmap_table[UCHAR_MAX + 1][CHARMAP_SYMBOL_LEN];
76
77 #undef __collate_substitute_table
78 u_char __collate_substitute_table[UCHAR_MAX + 1][STR_LEN];
79 #undef __collate_char_pri_table
80 struct __collate_st_char_pri __collate_char_pri_table[UCHAR_MAX + 1];
81 struct __collate_st_chain_pri *__collate_chain_pri_table;
82
83 int chain_index = 0;
84 int prim_pri = 1, sec_pri = 1;
85 #ifdef COLLATE_DEBUG
86 int debug;
87 #endif
88
89 const char *out_file = "LC_COLLATE";
90 %}
91 %union {
92 u_char ch;
93 u_char str[BUFSIZE];
94 }
95 %token SUBSTITUTE WITH ORDER RANGE
96 %token <str> STRING
97 %token <str> DEFN
98 %token <ch> CHAR
99 %%
100 collate : statment_list
101 ;
102 statment_list : statment
103 | statment_list '\n' statment
104 ;
105 statment :
106 | charmap
107 | substitute
108 | order
109 ;
110 charmap : DEFN CHAR {
111 if (strlen($1) + 1 > CHARMAP_SYMBOL_LEN)
112 yyerror("Charmap symbol name '%s' is too long", $1);
113 strcpy(charmap_table[$2], $1);
114 }
115 ;
116 substitute : SUBSTITUTE CHAR WITH STRING {
117 if ($2 == '\0')
118 yyerror("NUL character can't be substituted");
119 if (strchr($4, $2) != NULL)
120 yyerror("Char 0x%02x substitution is recursive", $2);
121 if (strlen($4) + 1 > STR_LEN)
122 yyerror("Char 0x%02x substitution is too long", $2);
123 strcpy(__collate_substitute_table[$2], $4);
124 }
125 ;
126 order : ORDER order_list {
127 FILE *fp;
128 int ch, substed, ordered;
129 uint32_t u32;
130
131 for (ch = 0; ch < UCHAR_MAX + 1; ch++) {
132 substed = (__collate_substitute_table[ch][0] != ch);
133 ordered = !!__collate_char_pri_table[ch].prim;
134 if (!ordered && !substed)
135 yyerror("Char 0x%02x not found", ch);
136 if (substed && ordered)
137 yyerror("Char 0x%02x can't be ordered since substituted", ch);
138 }
139
140 if ((__collate_chain_pri_table = realloc(__collate_chain_pri_table,
141 sizeof(*__collate_chain_pri_table) * (chain_index + 1))) == NULL)
142 yyerror("can't grow chain table");
143 (void)memset(&__collate_chain_pri_table[chain_index], 0,
144 sizeof(__collate_chain_pri_table[0]));
145 chain_index++;
146
147 #ifdef COLLATE_DEBUG
148 if (debug)
149 collate_print_tables();
150 #endif
151 if ((fp = fopen(out_file, "w")) == NULL)
152 err(EX_UNAVAILABLE, "can't open destination file %s",
153 out_file);
154
155 strcpy(__collate_version, COLLATE_VERSION1_2);
156 if (fwrite(__collate_version, sizeof(__collate_version), 1, fp) != 1)
157 err(EX_IOERR,
158 "I/O error writing collate version to destination file %s",
159 out_file);
160 u32 = htonl(chain_index);
161 if (fwrite(&u32, sizeof(u32), 1, fp) != 1)
162 err(EX_IOERR,
163 "I/O error writing chains number to destination file %s",
164 out_file);
165 if (fwrite(__collate_substitute_table,
166 sizeof(__collate_substitute_table), 1, fp) != 1)
167 err(EX_IOERR,
168 "I/O error writing substitution table to destination file %s",
169 out_file);
170 for (ch = 0; ch < UCHAR_MAX + 1; ch++) {
171 __collate_char_pri_table[ch].prim =
172 htonl(__collate_char_pri_table[ch].prim);
173 __collate_char_pri_table[ch].sec =
174 htonl(__collate_char_pri_table[ch].sec);
175 }
176 if (fwrite(__collate_char_pri_table,
177 sizeof(__collate_char_pri_table), 1, fp) != 1)
178 err(EX_IOERR,
179 "I/O error writing char table to destination file %s",
180 out_file);
181 for (ch = 0; ch < chain_index; ch++) {
182 __collate_chain_pri_table[ch].prim =
183 htonl(__collate_chain_pri_table[ch].prim);
184 __collate_chain_pri_table[ch].sec =
185 htonl(__collate_chain_pri_table[ch].sec);
186 }
187 if (fwrite(__collate_chain_pri_table,
188 sizeof(*__collate_chain_pri_table), chain_index, fp) !=
189 (size_t)chain_index)
190 err(EX_IOERR,
191 "I/O error writing chain table to destination file %s",
192 out_file);
193 if (fclose(fp) != 0)
194 err(EX_IOERR, "I/O error closing destination file %s",
195 out_file);
196 exit(EX_OK);
197 }
198 ;
199 order_list : item
200 | order_list ';' item
201 ;
202 chain : CHAR CHAR {
203 curr_chain[0] = $1;
204 curr_chain[1] = $2;
205 if (curr_chain[0] == '\0' || curr_chain[1] == '\0')
206 yyerror("\\0 can't be chained");
207 curr_chain[2] = '\0';
208 }
209 | chain CHAR {
210 static char tb[2];
211
212 tb[0] = $2;
213 if (tb[0] == '\0')
214 yyerror("\\0 can't be chained");
215 if (strlen(curr_chain) + 2 > STR_LEN)
216 yyerror("Chain '%s' grows too long", curr_chain);
217 (void)strcat(curr_chain, tb);
218 }
219 ;
220 item : CHAR {
221 if (__collate_char_pri_table[$1].prim)
222 yyerror("Char 0x%02x duplicated", $1);
223 __collate_char_pri_table[$1].prim = prim_pri++;
224 }
225 | chain {
226 if ((__collate_chain_pri_table = realloc(__collate_chain_pri_table,
227 sizeof(*__collate_chain_pri_table) * (chain_index + 1))) == NULL)
228 yyerror("can't grow chain table");
229 (void)memset(&__collate_chain_pri_table[chain_index], 0,
230 sizeof(__collate_chain_pri_table[0]));
231 (void)strcpy(__collate_chain_pri_table[chain_index].str, curr_chain);
232 __collate_chain_pri_table[chain_index].prim = prim_pri++;
233 chain_index++;
234 }
235 | CHAR RANGE CHAR {
236 u_int i;
237
238 if ($3 <= $1)
239 yyerror("Illegal range 0x%02x -- 0x%02x", $1, $3);
240
241 for (i = $1; i <= $3; i++) {
242 if (__collate_char_pri_table[(u_char)i].prim)
243 yyerror("Char 0x%02x duplicated", (u_char)i);
244 __collate_char_pri_table[(u_char)i].prim = prim_pri++;
245 }
246 }
247 | '{' prim_order_list '}' {
248 prim_pri++;
249 }
250 | '(' sec_order_list ')' {
251 prim_pri++;
252 sec_pri = 1;
253 }
254 ;
255 prim_order_list : prim_sub_item
256 | prim_order_list ',' prim_sub_item
257 ;
258 sec_order_list : sec_sub_item
259 | sec_order_list ',' sec_sub_item
260 ;
261 prim_sub_item : CHAR {
262 if (__collate_char_pri_table[$1].prim)
263 yyerror("Char 0x%02x duplicated", $1);
264 __collate_char_pri_table[$1].prim = prim_pri;
265 }
266 | CHAR RANGE CHAR {
267 u_int i;
268
269 if ($3 <= $1)
270 yyerror("Illegal range 0x%02x -- 0x%02x",
271 $1, $3);
272
273 for (i = $1; i <= $3; i++) {
274 if (__collate_char_pri_table[(u_char)i].prim)
275 yyerror("Char 0x%02x duplicated", (u_char)i);
276 __collate_char_pri_table[(u_char)i].prim = prim_pri;
277 }
278 }
279 | chain {
280 if ((__collate_chain_pri_table = realloc(__collate_chain_pri_table,
281 sizeof(*__collate_chain_pri_table) * (chain_index + 1))) == NULL)
282 yyerror("can't grow chain table");
283 (void)memset(&__collate_chain_pri_table[chain_index], 0,
284 sizeof(__collate_chain_pri_table[0]));
285 (void)strcpy(__collate_chain_pri_table[chain_index].str, curr_chain);
286 __collate_chain_pri_table[chain_index].prim = prim_pri;
287 chain_index++;
288 }
289 ;
290 sec_sub_item : CHAR {
291 if (__collate_char_pri_table[$1].prim)
292 yyerror("Char 0x%02x duplicated", $1);
293 __collate_char_pri_table[$1].prim = prim_pri;
294 __collate_char_pri_table[$1].sec = sec_pri++;
295 }
296 | CHAR RANGE CHAR {
297 u_int i;
298
299 if ($3 <= $1)
300 yyerror("Illegal range 0x%02x -- 0x%02x",
301 $1, $3);
302
303 for (i = $1; i <= $3; i++) {
304 if (__collate_char_pri_table[(u_char)i].prim)
305 yyerror("Char 0x%02x duplicated", (u_char)i);
306 __collate_char_pri_table[(u_char)i].prim = prim_pri;
307 __collate_char_pri_table[(u_char)i].sec = sec_pri++;
308 }
309 }
310 | chain {
311 if ((__collate_chain_pri_table = realloc(__collate_chain_pri_table,
312 sizeof(*__collate_chain_pri_table) * (chain_index + 1))) == NULL)
313 yyerror("can't grow chain table");
314 (void)memset(&__collate_chain_pri_table[chain_index], 0,
315 sizeof(__collate_chain_pri_table[0]));
316 (void)strcpy(__collate_chain_pri_table[chain_index].str, curr_chain);
317 __collate_chain_pri_table[chain_index].prim = prim_pri;
318 __collate_chain_pri_table[chain_index].sec = sec_pri++;
319 chain_index++;
320 }
321 ;
322 %%
323 int
324 main(int ac, char **av)
325 {
326 int ch;
327
328 #ifdef COLLATE_DEBUG
329 while((ch = getopt(ac, av, ":do:I:")) != -1) {
330 #else
331 while((ch = getopt(ac, av, ":o:I:")) != -1) {
332 #endif
333 switch (ch)
334 {
335 #ifdef COLLATE_DEBUG
336 case 'd':
337 debug++;
338 break;
339 #endif
340 case 'o':
341 out_file = optarg;
342 break;
343
344 case 'I':
345 strlcpy(map_name, optarg, sizeof(map_name));
346 break;
347
348 default:
349 usage();
350 }
351 }
352 ac -= optind;
353 av += optind;
354 if (ac > 0) {
355 if ((yyin = fopen(*av, "r")) == NULL)
356 err(EX_UNAVAILABLE, "can't open source file %s", *av);
357 }
358 for (ch = 0; ch <= UCHAR_MAX; ch++)
359 __collate_substitute_table[ch][0] = ch;
360 yyparse();
361 return 0;
362 }
363
364 static void
usage(void)365 usage(void)
366 {
367 fprintf(stderr, "usage: colldef [-I map_dir] [-o out_file] [filename]\n");
368 exit(EX_USAGE);
369 }
370
371 void
yyerror(const char * fmt,...)372 yyerror(const char *fmt, ...)
373 {
374 va_list ap;
375 char msg[128];
376
377 va_start(ap, fmt);
378 vsnprintf(msg, sizeof(msg), fmt, ap);
379 va_end(ap);
380 errx(EX_UNAVAILABLE, "%s near line %d", msg, line_no);
381 }
382
383 #ifdef COLLATE_DEBUG
384 static void
collate_print_tables(void)385 collate_print_tables(void)
386 {
387 int i;
388
389 printf("Substitute table:\n");
390 for (i = 0; i < UCHAR_MAX + 1; i++)
391 if (i != *__collate_substitute_table[i])
392 printf("\t'%c' --> \"%s\"\n", i,
393 __collate_substitute_table[i]);
394 printf("Chain priority table:\n");
395 for (i = 0; i < chain_index - 1; i++)
396 printf("\t\"%s\" : %d %d\n",
397 __collate_chain_pri_table[i].str,
398 __collate_chain_pri_table[i].prim,
399 __collate_chain_pri_table[i].sec);
400 printf("Char priority table:\n");
401 for (i = 0; i < UCHAR_MAX + 1; i++)
402 printf("\t'%c' : %d %d\n", i, __collate_char_pri_table[i].prim,
403 __collate_char_pri_table[i].sec);
404 }
405 #endif
406