1 %union {
2 char *str;
3 int val;
4 struct file_list *file;
5 }
6
7 %token ARCH
8 %token COMMA
9 %token CONFIG
10 %token CPU
11 %token NOCPU
12 %token DEVICE
13 %token NODEVICE
14 %token ENV
15 %token ENVVAR
16 %token EQUALS
17 %token PLUSEQUALS
18 %token HINTS
19 %token IDENT
20 %token MAXUSERS
21 %token OPTIONS
22 %token NOOPTION
23 %token MAKEOPTIONS
24 %token NOMAKEOPTION
25 %token SEMICOLON
26 %token INCLUDE
27 %token FILES
28
29 %token <str> ENVLINE
30 %token <str> ID
31 %token <val> NUMBER
32
33 %type <str> Save_id
34 %type <str> Opt_value
35 %type <str> Dev
36 %token <str> PATH
37
38 %{
39
40 /*-
41 * SPDX-License-Identifier: BSD-3-Clause
42 *
43 * Copyright (c) 1988, 1993
44 * The Regents of the University of California. All rights reserved.
45 *
46 * Redistribution and use in source and binary forms, with or without
47 * modification, are permitted provided that the following conditions
48 * are met:
49 * 1. Redistributions of source code must retain the above copyright
50 * notice, this list of conditions and the following disclaimer.
51 * 2. Redistributions in binary form must reproduce the above copyright
52 * notice, this list of conditions and the following disclaimer in the
53 * documentation and/or other materials provided with the distribution.
54 * 3. Neither the name of the University nor the names of its contributors
55 * may be used to endorse or promote products derived from this software
56 * without specific prior written permission.
57 *
58 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
59 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
60 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
61 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
62 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
63 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
64 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
65 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
66 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
67 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
68 * SUCH DAMAGE.
69 *
70 * @(#)config.y 8.1 (Berkeley) 6/6/93
71 */
72
73 #include <assert.h>
74 #include <ctype.h>
75 #include <err.h>
76 #include <stdio.h>
77 #include <string.h>
78
79 #include "config.h"
80
81 struct device_head dtab;
82 char *ident;
83 char *env;
84 int yyline;
85 const char *yyfile;
86 struct file_list_head ftab;
87 struct files_name_head fntab;
88 char errbuf[80];
89 int maxusers;
90
91 #define ns(s) strdup(s)
92 int include(const char *, int);
93 void yyerror(const char *s);
94 int yywrap(void);
95
96 static void newdev(char *name);
97 static void newfile(char *name);
98 static void newenvvar(char *name, bool is_file);
99 static void rmdev_schedule(struct device_head *dh, char *name);
100 static void newopt(struct opt_head *list, char *name, char *value, int append, int dupe);
101 static void rmopt_schedule(struct opt_head *list, char *name);
102
103 static char *
devopt(char * dev)104 devopt(char *dev)
105 {
106 char *ret = malloc(strlen(dev) + 5);
107
108 sprintf(ret, "DEV_%s", dev);
109 raisestr(ret);
110 return ret;
111 }
112
113 %}
114 %%
115 Configuration:
116 Many_specs
117 ;
118
119 Many_specs:
120 Many_specs Spec
121 |
122 /* lambda */
123 ;
124
125 Spec:
126 Device_spec SEMICOLON
127 |
128 Config_spec SEMICOLON
129 |
130 INCLUDE PATH SEMICOLON {
131 if (incignore == 0)
132 include($2, 0);
133 };
134 |
135 INCLUDE ID SEMICOLON {
136 if (incignore == 0)
137 include($2, 0);
138 };
139 |
140 FILES ID SEMICOLON { newfile($2); };
141 |
142 SEMICOLON
143 |
144 error SEMICOLON
145 ;
146
147 Config_spec:
148 ARCH Save_id {
149 if (machinename != NULL && !eq($2, machinename))
150 errx(1, "%s:%d: only one machine directive is allowed",
151 yyfile, yyline);
152 machinename = $2;
153 machinearch = $2;
154 } |
155 ARCH Save_id Save_id {
156 /*
157 * Allow the machinearch to change with a second machine directive,
158 * but still enforce no changes to the machinename.
159 */
160 if (machinename != NULL && !eq($2, machinename))
161 errx(1, "%s:%d: only one machine directive is allowed",
162 yyfile, yyline);
163 machinename = $2;
164 machinearch = $3;
165 } |
166 CPU Save_id {
167 struct cputype *cp =
168 (struct cputype *)calloc(1, sizeof (struct cputype));
169 if (cp == NULL)
170 err(EXIT_FAILURE, "calloc");
171 cp->cpu_name = $2;
172 SLIST_INSERT_HEAD(&cputype, cp, cpu_next);
173 } |
174 NOCPU Save_id {
175 struct cputype *cp, *cp2;
176 SLIST_FOREACH_SAFE(cp, &cputype, cpu_next, cp2) {
177 if (eq(cp->cpu_name, $2)) {
178 SLIST_REMOVE(&cputype, cp, cputype, cpu_next);
179 free(cp);
180 }
181 }
182 } |
183 OPTIONS Opt_list
184 |
185 NOOPTION NoOpt_list |
186 MAKEOPTIONS Mkopt_list
187 |
188 NOMAKEOPTION Save_id { rmopt_schedule(&mkopt, $2); } |
189 IDENT ID { ident = $2; } |
190 MAXUSERS NUMBER { maxusers = $2; } |
191 ENV ID { newenvvar($2, true); } |
192 ENVVAR ENVLINE { newenvvar($2, false); } |
193 HINTS ID {
194 struct hint *hint;
195
196 hint = (struct hint *)calloc(1, sizeof (struct hint));
197 if (hint == NULL)
198 err(EXIT_FAILURE, "calloc");
199 hint->hint_name = $2;
200 STAILQ_INSERT_HEAD(&hints, hint, hint_next);
201 }
202
203 System_id:
204 Save_id { newopt(&mkopt, ns("KERNEL"), $1, 0, 0); };
205
206 System_parameter_list:
207 System_parameter_list ID
208 | ID
209 ;
210
211 Opt_list:
212 Opt_list COMMA Option
213 |
214 Option
215 ;
216
217 NoOpt_list:
218 NoOpt_list COMMA NoOption
219 |
220 NoOption
221 ;
222 Option:
223 Save_id {
224 newopt(&opt, $1, NULL, 0, 1);
225 if (strchr($1, '=') != NULL)
226 errx(1, "%s:%d: The `=' in options should not be "
227 "quoted", yyfile, yyline);
228 } |
229 Save_id EQUALS Opt_value {
230 newopt(&opt, $1, $3, 0, 1);
231 } ;
232
233 NoOption:
234 Save_id {
235 rmopt_schedule(&opt, $1);
236 };
237
238 Opt_value:
239 ID { $$ = $1; } |
240 NUMBER {
241 char buf[80];
242
243 (void) snprintf(buf, sizeof(buf), "%d", $1);
244 $$ = ns(buf);
245 } ;
246
247 Save_id:
248 ID { $$ = $1; }
249 ;
250
251 Mkopt_list:
252 Mkopt_list COMMA Mkoption
253 |
254 Mkoption
255 ;
256
257 Mkoption:
258 Save_id { newopt(&mkopt, $1, ns(""), 0, 0); } |
259 Save_id EQUALS { newopt(&mkopt, $1, ns(""), 0, 0); } |
260 Save_id EQUALS Opt_value { newopt(&mkopt, $1, $3, 0, 0); } |
261 Save_id PLUSEQUALS Opt_value { newopt(&mkopt, $1, $3, 1, 0); } ;
262
263 Dev:
264 ID { $$ = $1; }
265 ;
266
267 Device_spec:
268 DEVICE Dev_list
269 |
270 NODEVICE NoDev_list
271 ;
272
273 Dev_list:
274 Dev_list COMMA Device
275 |
276 Device
277 ;
278
279 NoDev_list:
280 NoDev_list COMMA NoDevice
281 |
282 NoDevice
283 ;
284
285 Device:
286 Dev {
287 newopt(&opt, devopt($1), ns("1"), 0, 0);
288 /* and the device part */
289 newdev($1);
290 }
291
292 NoDevice:
293 Dev {
294 char *s = devopt($1);
295
296 rmopt_schedule(&opt, s);
297 free(s);
298 /* and the device part */
299 rmdev_schedule(&dtab, $1);
300 } ;
301
302 %%
303
304 void
305 yyerror(const char *s)
306 {
307
308 errx(1, "%s:%d: %s", yyfile, yyline + 1, s);
309 }
310
311 int
yywrap(void)312 yywrap(void)
313 {
314 if (found_defaults) {
315 if (freopen(PREFIX, "r", stdin) == NULL)
316 err(2, "%s", PREFIX);
317 yyfile = PREFIX;
318 yyline = 0;
319 found_defaults = 0;
320 return 0;
321 }
322 return 1;
323 }
324
325 /*
326 * Add a new file to the list of files.
327 */
328 static void
newfile(char * name)329 newfile(char *name)
330 {
331 struct files_name *nl;
332
333 nl = (struct files_name *) calloc(1, sizeof *nl);
334 if (nl == NULL)
335 err(EXIT_FAILURE, "calloc");
336 nl->f_name = name;
337 STAILQ_INSERT_TAIL(&fntab, nl, f_next);
338 }
339
340 static void
newenvvar(char * name,bool is_file)341 newenvvar(char *name, bool is_file)
342 {
343 struct envvar *envvar;
344
345 envvar = (struct envvar *)calloc(1, sizeof (struct envvar));
346 if (envvar == NULL)
347 err(EXIT_FAILURE, "calloc");
348 envvar->env_str = name;
349 envvar->env_is_file = is_file;
350 STAILQ_INSERT_HEAD(&envvars, envvar, envvar_next);
351 }
352
353 /*
354 * Find a device in the list of devices.
355 */
356 static struct device *
finddev(struct device_head * dlist,char * name)357 finddev(struct device_head *dlist, char *name)
358 {
359 struct device *dp;
360
361 STAILQ_FOREACH(dp, dlist, d_next)
362 if (eq(dp->d_name, name))
363 return (dp);
364
365 return (NULL);
366 }
367
368 /*
369 * Add a device to the list of devices.
370 */
371 static void
newdev(char * name)372 newdev(char *name)
373 {
374 struct device *np, *dp;
375
376 if ((dp = finddev(&dtab, name)) != NULL) {
377 if (strcmp(dp->yyfile, yyfile) == 0)
378 fprintf(stderr,
379 "WARNING: duplicate device `%s' encountered in %s\n",
380 name, yyfile);
381 return;
382 }
383
384 np = (struct device *) calloc(1, sizeof *np);
385 if (np == NULL)
386 err(EXIT_FAILURE, "calloc");
387 np->d_name = name;
388 np->yyfile = strdup(yyfile);
389 STAILQ_INSERT_TAIL(&dtab, np, d_next);
390 }
391
392 /*
393 * Schedule a device to removal.
394 */
395 static void
rmdev_schedule(struct device_head * dh,char * name)396 rmdev_schedule(struct device_head *dh, char *name)
397 {
398 struct device *dp;
399
400 dp = finddev(dh, name);
401 if (dp != NULL) {
402 STAILQ_REMOVE(dh, dp, device, d_next);
403 free(dp->yyfile);
404 free(dp->d_name);
405 free(dp);
406 }
407 }
408
409 /*
410 * Find an option in the list of options.
411 */
412 static struct opt *
findopt(struct opt_head * list,char * name)413 findopt(struct opt_head *list, char *name)
414 {
415 struct opt *op;
416
417 SLIST_FOREACH(op, list, op_next)
418 if (eq(op->op_name, name))
419 return (op);
420
421 return (NULL);
422 }
423
424 /*
425 * Add an option to the list of options.
426 */
427 static void
newopt(struct opt_head * list,char * name,char * value,int append,int dupe)428 newopt(struct opt_head *list, char *name, char *value, int append, int dupe)
429 {
430 struct opt *op, *op2;
431
432 /*
433 * Ignore inclusions listed explicitly for configuration files.
434 */
435 if (eq(name, OPT_AUTOGEN)) {
436 incignore = 1;
437 return;
438 }
439
440 op2 = findopt(list, name);
441 if (op2 != NULL && !append && !dupe) {
442 if (strcmp(op2->yyfile, yyfile) == 0)
443 fprintf(stderr,
444 "WARNING: duplicate option `%s' encountered.\n", name);
445 return;
446 }
447
448 op = (struct opt *)calloc(1, sizeof (struct opt));
449 if (op == NULL)
450 err(EXIT_FAILURE, "calloc");
451 op->op_name = name;
452 op->op_ownfile = 0;
453 op->op_value = value;
454 op->yyfile = strdup(yyfile);
455 if (op2 != NULL) {
456 if (append) {
457 while (SLIST_NEXT(op2, op_append) != NULL)
458 op2 = SLIST_NEXT(op2, op_append);
459 SLIST_NEXT(op2, op_append) = op;
460 } else {
461 while (SLIST_NEXT(op2, op_next) != NULL)
462 op2 = SLIST_NEXT(op2, op_next);
463 SLIST_NEXT(op2, op_next) = op;
464 }
465 } else
466 SLIST_INSERT_HEAD(list, op, op_next);
467 }
468
469 /*
470 * Remove an option from the list of options.
471 */
472 static void
rmopt_schedule(struct opt_head * list,char * name)473 rmopt_schedule(struct opt_head *list, char *name)
474 {
475 struct opt *op;
476
477 while ((op = findopt(list, name)) != NULL) {
478 SLIST_REMOVE(list, op, opt, op_next);
479 free(op->yyfile);
480 free(op->op_name);
481 free(op);
482 }
483 }
484