3 * Copyright (C) 2002 Roman Zippel <zippel@linux-m68k.org>
4 * Released under the terms of the GNU GPL v2.0.
16 #define printd(mask, fmt...) if (cdebug & (mask)) printf(fmt)
19 #define DEBUG_PARSE 0x0002
23 extern
int zconflex
(void);
24 static void zconfprint
(const char *err
, ...
);
25 static void zconf_error
(const char *err
, ...
);
26 static void zconferror
(const char *err
);
27 static bool zconf_endtoken
(const struct kconf_id
*id
, int starttoken
, int endtoken
);
29 struct symbol
*symbol_hash
[SYMBOL_HASHSIZE
];
31 static struct menu
*current_menu
, *current_entry
;
40 struct symbol
*symbol
;
43 const struct kconf_id
*id
;
51 %token
<id
>T_ENDCHOICE
54 %token
<id
>T_MENUCONFIG
56 %token
<string> T_HELPTEXT
69 %token
<string> T_WORD
70 %token
<string> T_WORD_QUOTE
78 %left T_EQUAL T_UNEQUAL
86 %type
<id
> option_name
87 %type
<menu
> if_entry menu_entry choice_entry
88 %type
<string> symbol_option_arg word_opt
91 fprintf
(stderr
, "%s:%d: missing end statement for this entry\n",
92 $$
->file
->name
, $$
->lineno
);
93 if
(current_menu
== $$
)
95 } if_entry menu_entry choice_entry
98 /* Include zconf.hash.c here so it can see the token constants. */
99 #include "zconf.hash.c"
103 input: nl start | start
;
105 start: mainmenu_stmt stmt_list | stmt_list
;
109 | stmt_list common_stmt
110 | stmt_list choice_stmt
111 | stmt_list menu_stmt
112 | stmt_list end
{ zconf_error
("unexpected end statement"); }
113 | stmt_list T_WORD
error T_EOL
{ zconf_error
("unknown statement \"%s\"", $2); }
114 | stmt_list option_name
error T_EOL
116 zconf_error
("unexpected option \"%s\"", kconf_id_strings
+ $2->name
);
118 | stmt_list
error T_EOL
{ zconf_error
("invalid statement"); }
122 T_DEPENDS | T_PROMPT | T_TYPE | T_SELECT | T_OPTIONAL | T_RANGE | T_DEFAULT | T_VISIBLE
135 T_WORD
error T_EOL
{ zconf_error
("unknown option \"%s\"", $1); }
136 |
error T_EOL
{ zconf_error
("invalid option"); }
140 /* config/menuconfig entry */
142 config_entry_start: T_CONFIG T_WORD T_EOL
144 struct symbol
*sym
= sym_lookup
($2, 0);
145 sym
->flags |
= SYMBOL_OPTIONAL
;
147 printd
(DEBUG_PARSE
, "%s:%d:config %s\n", zconf_curname
(), zconf_lineno
(), $2);
150 config_stmt: config_entry_start config_option_list
153 printd
(DEBUG_PARSE
, "%s:%d:endconfig\n", zconf_curname
(), zconf_lineno
());
156 menuconfig_entry_start: T_MENUCONFIG T_WORD T_EOL
158 struct symbol
*sym
= sym_lookup
($2, 0);
159 sym
->flags |
= SYMBOL_OPTIONAL
;
161 printd
(DEBUG_PARSE
, "%s:%d:menuconfig %s\n", zconf_curname
(), zconf_lineno
(), $2);
164 menuconfig_stmt: menuconfig_entry_start config_option_list
166 if
(current_entry
->prompt
)
167 current_entry
->prompt
->type
= P_MENU
;
169 zconfprint
("warning: menuconfig statement without prompt");
171 printd
(DEBUG_PARSE
, "%s:%d:endconfig\n", zconf_curname
(), zconf_lineno
());
176 | config_option_list config_option
177 | config_option_list symbol_option
178 | config_option_list depends
179 | config_option_list help
180 | config_option_list option_error
181 | config_option_list T_EOL
184 config_option: T_TYPE prompt_stmt_opt T_EOL
186 menu_set_type
($1->stype
);
187 printd
(DEBUG_PARSE
, "%s:%d:type(%u)\n",
188 zconf_curname
(), zconf_lineno
(),
192 config_option: T_PROMPT prompt if_expr T_EOL
194 menu_add_prompt
(P_PROMPT
, $2, $3);
195 printd
(DEBUG_PARSE
, "%s:%d:prompt\n", zconf_curname
(), zconf_lineno
());
198 config_option: T_DEFAULT expr if_expr T_EOL
200 menu_add_expr
(P_DEFAULT
, $2, $3);
201 if
($1->stype
!= S_UNKNOWN
)
202 menu_set_type
($1->stype
);
203 printd
(DEBUG_PARSE
, "%s:%d:default(%u)\n",
204 zconf_curname
(), zconf_lineno
(),
208 config_option: T_SELECT T_WORD if_expr T_EOL
210 menu_add_select
(sym_lookup
($2, 0), NULL
, $3);
211 printd
(DEBUG_PARSE
, "%s:%d:select\n", zconf_curname
(), zconf_lineno
());
214 config_option: T_SELECT T_WORD expr if_expr T_EOL
216 menu_add_select
(sym_lookup
($2, 0), $3, $4);
217 printd
(DEBUG_PARSE
, "%s:%d:select with value\n", zconf_curname
(), zconf_lineno
());
220 config_option: T_RANGE symbol symbol if_expr T_EOL
222 menu_add_expr
(P_RANGE
, expr_alloc_comp
(E_RANGE
,$2, $3), $4);
223 printd
(DEBUG_PARSE
, "%s:%d:range\n", zconf_curname
(), zconf_lineno
());
226 symbol_option: T_OPTION symbol_option_list T_EOL
231 | symbol_option_list T_WORD symbol_option_arg
233 const struct kconf_id
*id
= kconf_id_lookup
($2, strlen
($2));
234 if
(id
&& id
->flags
& TF_OPTION
)
235 menu_add_option
(id
->token
, $3);
237 zconfprint
("warning: ignoring unknown option %s", $2);
242 /* empty */ { $$
= NULL
; }
243 | T_EQUAL prompt
{ $$
= $2; }
248 choice: T_CHOICE word_opt T_EOL
250 struct symbol
*sym
= sym_lookup
($2, SYMBOL_CHOICE
);
251 sym
->flags |
= SYMBOL_AUTO
;
253 menu_add_expr
(P_CHOICE
, NULL
, NULL
);
254 printd
(DEBUG_PARSE
, "%s:%d:choice\n", zconf_curname
(), zconf_lineno
());
257 choice_entry: choice choice_option_list
259 $$
= menu_add_menu
();
264 if
(zconf_endtoken
($1, T_CHOICE
, T_ENDCHOICE
)) {
266 printd
(DEBUG_PARSE
, "%s:%d:endchoice\n", zconf_curname
(), zconf_lineno
());
270 choice_stmt: choice_entry choice_block choice_end
275 | choice_option_list choice_option
276 | choice_option_list depends
277 | choice_option_list help
278 | choice_option_list T_EOL
279 | choice_option_list option_error
282 choice_option: T_PROMPT prompt if_expr T_EOL
284 menu_add_prompt
(P_PROMPT
, $2, $3);
285 printd
(DEBUG_PARSE
, "%s:%d:prompt\n", zconf_curname
(), zconf_lineno
());
288 choice_option: T_TYPE prompt_stmt_opt T_EOL
290 if
($1->stype
== S_BOOLEAN ||
$1->stype
== S_TRISTATE
) {
291 menu_set_type
($1->stype
);
292 printd
(DEBUG_PARSE
, "%s:%d:type(%u)\n",
293 zconf_curname
(), zconf_lineno
(),
299 choice_option: T_OPTIONAL T_EOL
301 current_entry
->sym
->flags |
= SYMBOL_OPTIONAL
;
302 printd
(DEBUG_PARSE
, "%s:%d:optional\n", zconf_curname
(), zconf_lineno
());
305 choice_option: T_DEFAULT T_WORD if_expr T_EOL
307 if
($1->stype
== S_UNKNOWN
) {
308 menu_add_symbol
(P_DEFAULT
, sym_lookup
($2, 0), $3);
309 printd
(DEBUG_PARSE
, "%s:%d:default\n",
310 zconf_curname
(), zconf_lineno
());
317 | choice_block common_stmt
322 if_entry: T_IF expr nl
324 printd
(DEBUG_PARSE
, "%s:%d:if\n", zconf_curname
(), zconf_lineno
());
325 menu_add_entry
(NULL
);
327 $$
= menu_add_menu
();
332 if
(zconf_endtoken
($1, T_IF
, T_ENDIF
)) {
334 printd
(DEBUG_PARSE
, "%s:%d:endif\n", zconf_curname
(), zconf_lineno
());
338 if_stmt: if_entry if_block if_end
343 | if_block common_stmt
345 | if_block choice_stmt
350 mainmenu_stmt: T_MAINMENU prompt nl
352 menu_add_prompt
(P_MENU
, $2, NULL
);
357 menu: T_MENU prompt T_EOL
359 menu_add_entry
(NULL
);
360 menu_add_prompt
(P_MENU
, $2, NULL
);
361 printd
(DEBUG_PARSE
, "%s:%d:menu\n", zconf_curname
(), zconf_lineno
());
364 menu_entry: menu visibility_list depends_list
366 $$
= menu_add_menu
();
371 if
(zconf_endtoken
($1, T_MENU
, T_ENDMENU
)) {
373 printd
(DEBUG_PARSE
, "%s:%d:endmenu\n", zconf_curname
(), zconf_lineno
());
377 menu_stmt: menu_entry menu_block menu_end
382 | menu_block common_stmt
383 | menu_block menu_stmt
384 | menu_block choice_stmt
387 source_stmt: T_SOURCE prompt T_EOL
389 printd
(DEBUG_PARSE
, "%s:%d:source %s\n", zconf_curname
(), zconf_lineno
(), $2);
395 comment: T_COMMENT prompt T_EOL
397 menu_add_entry
(NULL
);
398 menu_add_prompt
(P_COMMENT
, $2, NULL
);
399 printd
(DEBUG_PARSE
, "%s:%d:comment\n", zconf_curname
(), zconf_lineno
());
402 comment_stmt: comment depends_list
409 help_start: T_HELP T_EOL
411 printd
(DEBUG_PARSE
, "%s:%d:help\n", zconf_curname
(), zconf_lineno
());
415 help: help_start T_HELPTEXT
417 current_entry
->help
= $2;
424 | depends_list depends
426 | depends_list option_error
429 depends: T_DEPENDS T_ON expr T_EOL
432 printd
(DEBUG_PARSE
, "%s:%d:depends on\n", zconf_curname
(), zconf_lineno
());
435 /* visibility option */
439 | visibility_list visible
440 | visibility_list T_EOL
443 visible: T_VISIBLE if_expr
445 menu_add_visibility
($2);
448 /* prompt statement */
454 menu_add_prompt
(P_PROMPT
, $1, $2);
461 end: T_ENDMENU T_EOL
{ $$
= $1; }
462 | T_ENDCHOICE T_EOL
{ $$
= $1; }
463 | T_ENDIF T_EOL
{ $$
= $1; }
471 if_expr: /* empty */ { $$
= NULL
; }
472 | T_IF expr
{ $$
= $2; }
475 expr: symbol
{ $$
= expr_alloc_symbol
($1); }
476 | symbol T_EQUAL symbol
{ $$
= expr_alloc_comp
(E_EQUAL
, $1, $3); }
477 | symbol T_UNEQUAL symbol
{ $$
= expr_alloc_comp
(E_UNEQUAL
, $1, $3); }
478 | T_OPEN_PAREN expr T_CLOSE_PAREN
{ $$
= $2; }
479 | T_NOT expr
{ $$
= expr_alloc_one
(E_NOT
, $2); }
480 | expr T_OR expr
{ $$
= expr_alloc_two
(E_OR
, $1, $3); }
481 | expr T_AND expr
{ $$
= expr_alloc_two
(E_AND
, $1, $3); }
484 symbol: T_WORD
{ $$
= sym_lookup
($1, 0); free
($1); }
485 | T_WORD_QUOTE
{ $$
= sym_lookup
($1, SYMBOL_CONST
); free
($1); }
488 word_opt: /* empty */ { $$
= NULL
; }
493 void conf_parse
(const char *name
)
498 zconf_initscan
(name
);
502 rootmenu.prompt
= menu_add_prompt
(P_MENU
, "Linux Kernel Configuration", NULL
);
504 if
(getenv
("ZCONF_DEBUG"))
510 modules_sym
= sym_find
( "n" );
512 rootmenu.prompt
->text
= _
(rootmenu.prompt
->text
);
513 rootmenu.prompt
->text
= sym_expand_string_value
(rootmenu.prompt
->text
);
515 menu_finalize
(&rootmenu
);
516 for_all_symbols
(i
, sym
) {
517 if
(sym_check_deps
(sym
))
522 sym_set_change_count
(1);
525 static const char *zconf_tokenname
(int token
)
528 case T_MENU
: return
"menu";
529 case T_ENDMENU
: return
"endmenu";
530 case T_CHOICE
: return
"choice";
531 case T_ENDCHOICE
: return
"endchoice";
532 case T_IF
: return
"if";
533 case T_ENDIF
: return
"endif";
534 case T_DEPENDS
: return
"depends";
535 case T_VISIBLE
: return
"visible";
540 static bool zconf_endtoken
(const struct kconf_id
*id
, int starttoken
, int endtoken
)
542 if
(id
->token
!= endtoken
) {
543 zconf_error
("unexpected '%s' within %s block",
544 kconf_id_strings
+ id
->name
, zconf_tokenname
(starttoken
));
548 if
(current_menu
->file
!= current_file
) {
549 zconf_error
("'%s' in different file than '%s'",
550 kconf_id_strings
+ id
->name
, zconf_tokenname
(starttoken
));
551 fprintf
(stderr
, "%s:%d: location of the '%s'\n",
552 current_menu
->file
->name
, current_menu
->lineno
,
553 zconf_tokenname
(starttoken
));
560 static void zconfprint
(const char *err
, ...
)
564 fprintf
(stderr
, "%s:%d: ", zconf_curname
(), zconf_lineno
());
566 vfprintf
(stderr
, err
, ap
);
568 fprintf
(stderr
, "\n");
571 static void zconf_error
(const char *err
, ...
)
576 fprintf
(stderr
, "%s:%d: ", zconf_curname
(), zconf_lineno
());
578 vfprintf
(stderr
, err
, ap
);
580 fprintf
(stderr
, "\n");
583 static void zconferror
(const char *err
)
585 fprintf
(stderr
, "%s:%d: %s\n", zconf_curname
(), zconf_lineno
() + 1, err
);
588 static void print_quoted_string
(FILE *out
, const char *str
)
594 while
((p
= strchr
(str
, '"'))) {
597 fprintf
(out
, "%.*s", len
, str
);
605 static void print_symbol
(FILE *out
, struct menu
*menu
)
607 struct symbol
*sym
= menu
->sym
;
608 struct property
*prop
;
610 if
(sym_is_choice
(sym
))
611 fprintf
(out
, "\nchoice\n");
613 fprintf
(out
, "\nconfig %s\n", sym
->name
);
616 fputs
(" boolean\n", out
);
619 fputs
(" tristate\n", out
);
622 fputs
(" string\n", out
);
625 fputs
(" integer\n", out
);
628 fputs
(" hex\n", out
);
631 fputs
(" ???\n", out
);
634 for
(prop
= sym
->prop
; prop
; prop
= prop
->next
) {
635 if
(prop
->menu
!= menu
)
637 switch
(prop
->type
) {
639 fputs
(" prompt ", out
);
640 print_quoted_string
(out
, prop
->text
);
641 if
(!expr_is_yes
(prop
->visible.expr
)) {
643 expr_fprint
(prop
->visible.expr
, out
);
648 fputs
( " default ", out
);
649 expr_fprint
(prop
->expr
, out
);
650 if
(!expr_is_yes
(prop
->visible.expr
)) {
652 expr_fprint
(prop
->visible.expr
, out
);
657 fputs
(" #choice value\n", out
);
660 fputs
( " select ", out
);
661 expr_fprint
(prop
->expr
, out
);
663 fputs
(" (value=", out
);
664 expr_fprint
(prop
->value
, out
);
667 if
(!expr_is_yes
(prop
->visible.expr
)) {
669 expr_fprint
(prop
->visible.expr
, out
);
674 fputs
( " range ", out
);
675 expr_fprint
(prop
->expr
, out
);
679 fputs
( " menu ", out
);
680 print_quoted_string
(out
, prop
->text
);
684 fprintf
(out
, " unknown prop %d!\n", prop
->type
);
689 int len
= strlen
(menu
->help
);
690 while
(menu
->help
[--len
] == '\n')
692 fprintf
(out
, " help\n%s\n", menu
->help
);
696 void zconfdump
(FILE *out
)
698 struct property
*prop
;
702 menu
= rootmenu.list
;
704 if
((sym
= menu
->sym
))
705 print_symbol
(out
, menu
);
706 else if
((prop
= menu
->prompt
)) {
707 switch
(prop
->type
) {
709 fputs
("\ncomment ", out
);
710 print_quoted_string
(out
, prop
->text
);
714 fputs
("\nmenu ", out
);
715 print_quoted_string
(out
, prop
->text
);
721 if
(!expr_is_yes
(prop
->visible.expr
)) {
722 fputs
(" depends ", out
);
723 expr_fprint
(prop
->visible.expr
, out
);
732 else while
((menu
= menu
->parent
)) {
733 if
(menu
->prompt
&& menu
->prompt
->type
== P_MENU
)
734 fputs
("\nendmenu\n", out
);
743 #include "zconf.lex.c"
745 #include "confdata.c"