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