3 * Copyright (C) 2002 Roman Zippel <zippel@linux-m68k.org>
4 * Released under the terms of the GNU GPL v2.0.
14 #define LKC_DIRECT_LINK
17 #define printd(mask, fmt...) if (cdebug & (mask)) printf(fmt)
20 #define DEBUG_PARSE 0x0002
24 extern
int zconflex
(void);
25 static void zconfprint
(const char *err
, ...
);
26 static void zconf_error
(const char *err
, ...
);
27 static void zconferror
(const char *err
);
28 static bool zconf_endtoken
(const struct kconf_id
*id
, int starttoken
, int endtoken
);
30 struct symbol
*symbol_hash
[SYMBOL_HASHSIZE
];
32 static struct menu
*current_menu
, *current_entry
;
41 struct symbol
*symbol
;
44 const struct kconf_id
*id
;
52 %token
<id
>T_ENDCHOICE
55 %token
<id
>T_MENUCONFIG
57 %token
<string> T_HELPTEXT
70 %token
<string> T_WORD
71 %token
<string> T_WORD_QUOTE
79 %left T_EQUAL T_UNEQUAL
87 %type
<id
> option_name
88 %type
<menu
> if_entry menu_entry choice_entry
89 %type
<string> symbol_option_arg word_opt
92 fprintf
(stderr
, "%s:%d: missing end statement for this entry\n",
93 $$
->file
->name
, $$
->lineno
);
94 if
(current_menu
== $$
)
96 } if_entry menu_entry choice_entry
99 /* Include zconf.hash.c here so it can see the token constants. */
100 #include "zconf.hash.c"
104 input: nl start | start
;
106 start: mainmenu_stmt stmt_list | stmt_list
;
110 | stmt_list common_stmt
111 | stmt_list choice_stmt
112 | stmt_list menu_stmt
113 | stmt_list end
{ zconf_error
("unexpected end statement"); }
114 | stmt_list T_WORD
error T_EOL
{ zconf_error
("unknown statement \"%s\"", $2); }
115 | stmt_list option_name
error T_EOL
117 zconf_error
("unexpected option \"%s\"", kconf_id_strings
+ $2->name
);
119 | stmt_list
error T_EOL
{ zconf_error
("invalid statement"); }
123 T_DEPENDS | T_PROMPT | T_TYPE | T_SELECT | T_OPTIONAL | T_RANGE | T_DEFAULT | T_VISIBLE
136 T_WORD
error T_EOL
{ zconf_error
("unknown option \"%s\"", $1); }
137 |
error T_EOL
{ zconf_error
("invalid option"); }
141 /* config/menuconfig entry */
143 config_entry_start: T_CONFIG T_WORD T_EOL
145 struct symbol
*sym
= sym_lookup
($2, 0);
146 sym
->flags |
= SYMBOL_OPTIONAL
;
148 printd
(DEBUG_PARSE
, "%s:%d:config %s\n", zconf_curname
(), zconf_lineno
(), $2);
151 config_stmt: config_entry_start config_option_list
154 printd
(DEBUG_PARSE
, "%s:%d:endconfig\n", zconf_curname
(), zconf_lineno
());
157 menuconfig_entry_start: T_MENUCONFIG T_WORD T_EOL
159 struct symbol
*sym
= sym_lookup
($2, 0);
160 sym
->flags |
= SYMBOL_OPTIONAL
;
162 printd
(DEBUG_PARSE
, "%s:%d:menuconfig %s\n", zconf_curname
(), zconf_lineno
(), $2);
165 menuconfig_stmt: menuconfig_entry_start config_option_list
167 if
(current_entry
->prompt
)
168 current_entry
->prompt
->type
= P_MENU
;
170 zconfprint
("warning: menuconfig statement without prompt");
172 printd
(DEBUG_PARSE
, "%s:%d:endconfig\n", zconf_curname
(), zconf_lineno
());
177 | config_option_list config_option
178 | config_option_list symbol_option
179 | config_option_list depends
180 | config_option_list help
181 | config_option_list option_error
182 | config_option_list T_EOL
185 config_option: T_TYPE prompt_stmt_opt T_EOL
187 menu_set_type
($1->stype
);
188 printd
(DEBUG_PARSE
, "%s:%d:type(%u)\n",
189 zconf_curname
(), zconf_lineno
(),
193 config_option: T_PROMPT prompt if_expr T_EOL
195 menu_add_prompt
(P_PROMPT
, $2, $3);
196 printd
(DEBUG_PARSE
, "%s:%d:prompt\n", zconf_curname
(), zconf_lineno
());
199 config_option: T_DEFAULT expr if_expr T_EOL
201 menu_add_expr
(P_DEFAULT
, $2, $3);
202 if
($1->stype
!= S_UNKNOWN
)
203 menu_set_type
($1->stype
);
204 printd
(DEBUG_PARSE
, "%s:%d:default(%u)\n",
205 zconf_curname
(), zconf_lineno
(),
209 config_option: T_SELECT T_WORD if_expr T_EOL
211 menu_add_symbol
(P_SELECT
, sym_lookup
($2, 0), $3);
212 printd
(DEBUG_PARSE
, "%s:%d:select\n", zconf_curname
(), zconf_lineno
());
215 config_option: T_RANGE symbol symbol if_expr T_EOL
217 menu_add_expr
(P_RANGE
, expr_alloc_comp
(E_RANGE
,$2, $3), $4);
218 printd
(DEBUG_PARSE
, "%s:%d:range\n", zconf_curname
(), zconf_lineno
());
221 symbol_option: T_OPTION symbol_option_list T_EOL
226 | symbol_option_list T_WORD symbol_option_arg
228 const struct kconf_id
*id
= kconf_id_lookup
($2, strlen
($2));
229 if
(id
&& id
->flags
& TF_OPTION
)
230 menu_add_option
(id
->token
, $3);
232 zconfprint
("warning: ignoring unknown option %s", $2);
237 /* empty */ { $$
= NULL
; }
238 | T_EQUAL prompt
{ $$
= $2; }
243 choice: T_CHOICE word_opt T_EOL
245 struct symbol
*sym
= sym_lookup
($2, SYMBOL_CHOICE
);
246 sym
->flags |
= SYMBOL_AUTO
;
248 menu_add_expr
(P_CHOICE
, NULL
, NULL
);
249 printd
(DEBUG_PARSE
, "%s:%d:choice\n", zconf_curname
(), zconf_lineno
());
252 choice_entry: choice choice_option_list
254 $$
= menu_add_menu
();
259 if
(zconf_endtoken
($1, T_CHOICE
, T_ENDCHOICE
)) {
261 printd
(DEBUG_PARSE
, "%s:%d:endchoice\n", zconf_curname
(), zconf_lineno
());
265 choice_stmt: choice_entry choice_block choice_end
270 | choice_option_list choice_option
271 | choice_option_list depends
272 | choice_option_list help
273 | choice_option_list T_EOL
274 | choice_option_list option_error
277 choice_option: T_PROMPT prompt if_expr T_EOL
279 menu_add_prompt
(P_PROMPT
, $2, $3);
280 printd
(DEBUG_PARSE
, "%s:%d:prompt\n", zconf_curname
(), zconf_lineno
());
283 choice_option: T_TYPE prompt_stmt_opt T_EOL
285 if
($1->stype
== S_BOOLEAN ||
$1->stype
== S_TRISTATE
) {
286 menu_set_type
($1->stype
);
287 printd
(DEBUG_PARSE
, "%s:%d:type(%u)\n",
288 zconf_curname
(), zconf_lineno
(),
294 choice_option: T_OPTIONAL T_EOL
296 current_entry
->sym
->flags |
= SYMBOL_OPTIONAL
;
297 printd
(DEBUG_PARSE
, "%s:%d:optional\n", zconf_curname
(), zconf_lineno
());
300 choice_option: T_DEFAULT T_WORD if_expr T_EOL
302 if
($1->stype
== S_UNKNOWN
) {
303 menu_add_symbol
(P_DEFAULT
, sym_lookup
($2, 0), $3);
304 printd
(DEBUG_PARSE
, "%s:%d:default\n",
305 zconf_curname
(), zconf_lineno
());
312 | choice_block common_stmt
317 if_entry: T_IF expr nl
319 printd
(DEBUG_PARSE
, "%s:%d:if\n", zconf_curname
(), zconf_lineno
());
320 menu_add_entry
(NULL
);
322 $$
= menu_add_menu
();
327 if
(zconf_endtoken
($1, T_IF
, T_ENDIF
)) {
329 printd
(DEBUG_PARSE
, "%s:%d:endif\n", zconf_curname
(), zconf_lineno
());
333 if_stmt: if_entry if_block if_end
338 | if_block common_stmt
340 | if_block choice_stmt
345 mainmenu_stmt: T_MAINMENU prompt nl
347 menu_add_prompt
(P_MENU
, $2, NULL
);
352 menu: T_MENU prompt T_EOL
354 menu_add_entry
(NULL
);
355 menu_add_prompt
(P_MENU
, $2, NULL
);
356 printd
(DEBUG_PARSE
, "%s:%d:menu\n", zconf_curname
(), zconf_lineno
());
359 menu_entry: menu visibility_list depends_list
361 $$
= menu_add_menu
();
366 if
(zconf_endtoken
($1, T_MENU
, T_ENDMENU
)) {
368 printd
(DEBUG_PARSE
, "%s:%d:endmenu\n", zconf_curname
(), zconf_lineno
());
372 menu_stmt: menu_entry menu_block menu_end
377 | menu_block common_stmt
378 | menu_block menu_stmt
379 | menu_block choice_stmt
382 source_stmt: T_SOURCE prompt T_EOL
384 printd
(DEBUG_PARSE
, "%s:%d:source %s\n", zconf_curname
(), zconf_lineno
(), $2);
390 comment: T_COMMENT prompt T_EOL
392 menu_add_entry
(NULL
);
393 menu_add_prompt
(P_COMMENT
, $2, NULL
);
394 printd
(DEBUG_PARSE
, "%s:%d:comment\n", zconf_curname
(), zconf_lineno
());
397 comment_stmt: comment depends_list
404 help_start: T_HELP T_EOL
406 printd
(DEBUG_PARSE
, "%s:%d:help\n", zconf_curname
(), zconf_lineno
());
410 help: help_start T_HELPTEXT
412 current_entry
->help
= $2;
419 | depends_list depends
421 | depends_list option_error
424 depends: T_DEPENDS T_ON expr T_EOL
427 printd
(DEBUG_PARSE
, "%s:%d:depends on\n", zconf_curname
(), zconf_lineno
());
430 /* visibility option */
434 | visibility_list visible
435 | visibility_list T_EOL
438 visible: T_VISIBLE if_expr
440 menu_add_visibility
($2);
443 /* prompt statement */
449 menu_add_prompt
(P_PROMPT
, $1, $2);
456 end: T_ENDMENU T_EOL
{ $$
= $1; }
457 | T_ENDCHOICE T_EOL
{ $$
= $1; }
458 | T_ENDIF T_EOL
{ $$
= $1; }
466 if_expr: /* empty */ { $$
= NULL
; }
467 | T_IF expr
{ $$
= $2; }
470 expr: symbol
{ $$
= expr_alloc_symbol
($1); }
471 | symbol T_EQUAL symbol
{ $$
= expr_alloc_comp
(E_EQUAL
, $1, $3); }
472 | symbol T_UNEQUAL symbol
{ $$
= expr_alloc_comp
(E_UNEQUAL
, $1, $3); }
473 | T_OPEN_PAREN expr T_CLOSE_PAREN
{ $$
= $2; }
474 | T_NOT expr
{ $$
= expr_alloc_one
(E_NOT
, $2); }
475 | expr T_OR expr
{ $$
= expr_alloc_two
(E_OR
, $1, $3); }
476 | expr T_AND expr
{ $$
= expr_alloc_two
(E_AND
, $1, $3); }
479 symbol: T_WORD
{ $$
= sym_lookup
($1, 0); free
($1); }
480 | T_WORD_QUOTE
{ $$
= sym_lookup
($1, SYMBOL_CONST
); free
($1); }
483 word_opt: /* empty */ { $$
= NULL
; }
488 void conf_parse
(const char *name
)
493 zconf_initscan
(name
);
497 modules_sym
= sym_lookup
(NULL
, 0);
498 modules_sym
->type
= S_BOOLEAN
;
499 modules_sym
->flags |
= SYMBOL_AUTO
;
500 rootmenu.prompt
= menu_add_prompt
(P_MENU
, "Linux Kernel Configuration", NULL
);
502 if
(getenv
("ZCONF_DEBUG"))
507 if
(!modules_sym
->prop
) {
508 struct property
*prop
;
510 prop
= prop_alloc
(P_DEFAULT
, modules_sym
);
511 prop
->expr
= expr_alloc_symbol
(sym_lookup
("MODULES", 0));
514 rootmenu.prompt
->text
= _
(rootmenu.prompt
->text
);
515 rootmenu.prompt
->text
= sym_expand_string_value
(rootmenu.prompt
->text
);
517 menu_finalize
(&rootmenu
);
518 for_all_symbols
(i
, sym
) {
519 if
(sym_check_deps
(sym
))
524 sym_set_change_count
(1);
527 static const char *zconf_tokenname
(int token
)
530 case T_MENU
: return
"menu";
531 case T_ENDMENU
: return
"endmenu";
532 case T_CHOICE
: return
"choice";
533 case T_ENDCHOICE
: return
"endchoice";
534 case T_IF
: return
"if";
535 case T_ENDIF
: return
"endif";
536 case T_DEPENDS
: return
"depends";
537 case T_VISIBLE
: return
"visible";
542 static bool zconf_endtoken
(const struct kconf_id
*id
, int starttoken
, int endtoken
)
544 if
(id
->token
!= endtoken
) {
545 zconf_error
("unexpected '%s' within %s block",
546 kconf_id_strings
+ id
->name
, zconf_tokenname
(starttoken
));
550 if
(current_menu
->file
!= current_file
) {
551 zconf_error
("'%s' in different file than '%s'",
552 kconf_id_strings
+ id
->name
, zconf_tokenname
(starttoken
));
553 fprintf
(stderr
, "%s:%d: location of the '%s'\n",
554 current_menu
->file
->name
, current_menu
->lineno
,
555 zconf_tokenname
(starttoken
));
562 static void zconfprint
(const char *err
, ...
)
566 fprintf
(stderr
, "%s:%d: ", zconf_curname
(), zconf_lineno
());
568 vfprintf
(stderr
, err
, ap
);
570 fprintf
(stderr
, "\n");
573 static void zconf_error
(const char *err
, ...
)
578 fprintf
(stderr
, "%s:%d: ", zconf_curname
(), zconf_lineno
());
580 vfprintf
(stderr
, err
, ap
);
582 fprintf
(stderr
, "\n");
585 static void zconferror
(const char *err
)
587 fprintf
(stderr
, "%s:%d: %s\n", zconf_curname
(), zconf_lineno
() + 1, err
);
590 static void print_quoted_string
(FILE *out
, const char *str
)
596 while
((p
= strchr
(str
, '"'))) {
599 fprintf
(out
, "%.*s", len
, str
);
607 static void print_symbol
(FILE *out
, struct menu
*menu
)
609 struct symbol
*sym
= menu
->sym
;
610 struct property
*prop
;
612 if
(sym_is_choice
(sym
))
613 fprintf
(out
, "\nchoice\n");
615 fprintf
(out
, "\nconfig %s\n", sym
->name
);
618 fputs
(" boolean\n", out
);
621 fputs
(" tristate\n", out
);
624 fputs
(" string\n", out
);
627 fputs
(" integer\n", out
);
630 fputs
(" hex\n", out
);
633 fputs
(" ???\n", out
);
636 for
(prop
= sym
->prop
; prop
; prop
= prop
->next
) {
637 if
(prop
->menu
!= menu
)
639 switch
(prop
->type
) {
641 fputs
(" prompt ", out
);
642 print_quoted_string
(out
, prop
->text
);
643 if
(!expr_is_yes
(prop
->visible.expr
)) {
645 expr_fprint
(prop
->visible.expr
, out
);
650 fputs
( " default ", out
);
651 expr_fprint
(prop
->expr
, out
);
652 if
(!expr_is_yes
(prop
->visible.expr
)) {
654 expr_fprint
(prop
->visible.expr
, out
);
659 fputs
(" #choice value\n", out
);
662 fputs
( " select ", out
);
663 expr_fprint
(prop
->expr
, out
);
667 fputs
( " range ", out
);
668 expr_fprint
(prop
->expr
, out
);
672 fputs
( " menu ", out
);
673 print_quoted_string
(out
, prop
->text
);
677 fprintf
(out
, " unknown prop %d!\n", prop
->type
);
682 int len
= strlen
(menu
->help
);
683 while
(menu
->help
[--len
] == '\n')
685 fprintf
(out
, " help\n%s\n", menu
->help
);
689 void zconfdump
(FILE *out
)
691 struct property
*prop
;
695 menu
= rootmenu.list
;
697 if
((sym
= menu
->sym
))
698 print_symbol
(out
, menu
);
699 else if
((prop
= menu
->prompt
)) {
700 switch
(prop
->type
) {
702 fputs
("\ncomment ", out
);
703 print_quoted_string
(out
, prop
->text
);
707 fputs
("\nmenu ", out
);
708 print_quoted_string
(out
, prop
->text
);
714 if
(!expr_is_yes
(prop
->visible.expr
)) {
715 fputs
(" depends ", out
);
716 expr_fprint
(prop
->visible.expr
, out
);
725 else while
((menu
= menu
->parent
)) {
726 if
(menu
->prompt
&& menu
->prompt
->type
== P_MENU
)
727 fputs
("\nendmenu\n", out
);
736 #include "zconf.lex.c"
738 #include "confdata.c"