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
(struct kconf_id
*id
, int starttoken
, int endtoken
);
30 struct symbol
*symbol_hash
[SYMBOL_HASHSIZE
];
32 static struct menu
*current_menu
, *current_entry
;
36 #define YYERROR_VERBOSE
45 struct symbol
*symbol
;
56 %token
<id
>T_ENDCHOICE
59 %token
<id
>T_MENUCONFIG
61 %token
<string> T_HELPTEXT
73 %token
<string> T_WORD
74 %token
<string> T_WORD_QUOTE
82 %left T_EQUAL T_UNEQUAL
90 %type
<id
> option_name
91 %type
<menu
> if_entry menu_entry choice_entry
92 %type
<string> symbol_option_arg word_opt
95 fprintf
(stderr
, "%s:%d: missing end statement for this entry\n",
96 $$
->file
->name
, $$
->lineno
);
97 if
(current_menu
== $$
)
99 } if_entry menu_entry choice_entry
102 /* Include zconf.hash.c here so it can see the token constants. */
103 #include "zconf.hash.c"
107 input: nl start | start
;
109 start: mainmenu_stmt stmt_list | stmt_list
;
113 | stmt_list common_stmt
114 | stmt_list choice_stmt
115 | stmt_list menu_stmt
116 | stmt_list end
{ zconf_error
("unexpected end statement"); }
117 | stmt_list T_WORD
error T_EOL
{ zconf_error
("unknown statement \"%s\"", $2); }
118 | stmt_list option_name
error T_EOL
120 zconf_error
("unexpected option \"%s\"", kconf_id_strings
+ $2->name
);
122 | stmt_list
error T_EOL
{ zconf_error
("invalid statement"); }
126 T_DEPENDS | T_PROMPT | T_TYPE | T_SELECT | T_OPTIONAL | T_RANGE | T_DEFAULT
139 T_WORD
error T_EOL
{ zconf_error
("unknown option \"%s\"", $1); }
140 |
error T_EOL
{ zconf_error
("invalid option"); }
144 /* config/menuconfig entry */
146 config_entry_start: T_CONFIG T_WORD T_EOL
148 struct symbol
*sym
= sym_lookup
($2, 0);
149 sym
->flags |
= SYMBOL_OPTIONAL
;
151 printd
(DEBUG_PARSE
, "%s:%d:config %s\n", zconf_curname
(), zconf_lineno
(), $2);
154 config_stmt: config_entry_start config_option_list
157 printd
(DEBUG_PARSE
, "%s:%d:endconfig\n", zconf_curname
(), zconf_lineno
());
160 menuconfig_entry_start: T_MENUCONFIG T_WORD T_EOL
162 struct symbol
*sym
= sym_lookup
($2, 0);
163 sym
->flags |
= SYMBOL_OPTIONAL
;
165 printd
(DEBUG_PARSE
, "%s:%d:menuconfig %s\n", zconf_curname
(), zconf_lineno
(), $2);
168 menuconfig_stmt: menuconfig_entry_start config_option_list
170 if
(current_entry
->prompt
)
171 current_entry
->prompt
->type
= P_MENU
;
173 zconfprint
("warning: menuconfig statement without prompt");
175 printd
(DEBUG_PARSE
, "%s:%d:endconfig\n", zconf_curname
(), zconf_lineno
());
180 | config_option_list config_option
181 | config_option_list symbol_option
182 | config_option_list depends
183 | config_option_list help
184 | config_option_list option_error
185 | config_option_list T_EOL
188 config_option: T_TYPE prompt_stmt_opt T_EOL
190 menu_set_type
($1->stype
);
191 printd
(DEBUG_PARSE
, "%s:%d:type(%u)\n",
192 zconf_curname
(), zconf_lineno
(),
196 config_option: T_PROMPT prompt if_expr T_EOL
198 menu_add_prompt
(P_PROMPT
, $2, $3);
199 printd
(DEBUG_PARSE
, "%s:%d:prompt\n", zconf_curname
(), zconf_lineno
());
202 config_option: T_DEFAULT expr if_expr T_EOL
204 menu_add_expr
(P_DEFAULT
, $2, $3);
205 if
($1->stype
!= S_UNKNOWN
)
206 menu_set_type
($1->stype
);
207 printd
(DEBUG_PARSE
, "%s:%d:default(%u)\n",
208 zconf_curname
(), zconf_lineno
(),
212 config_option: T_SELECT T_WORD if_expr T_EOL
214 menu_add_symbol
(P_SELECT
, sym_lookup
($2, 0), $3);
215 printd
(DEBUG_PARSE
, "%s:%d:select\n", zconf_curname
(), zconf_lineno
());
218 config_option: T_RANGE symbol symbol if_expr T_EOL
220 menu_add_expr
(P_RANGE
, expr_alloc_comp
(E_RANGE
,$2, $3), $4);
221 printd
(DEBUG_PARSE
, "%s:%d:range\n", zconf_curname
(), zconf_lineno
());
224 symbol_option: T_OPTION symbol_option_list T_EOL
229 | symbol_option_list T_WORD symbol_option_arg
231 struct kconf_id
*id
= kconf_id_lookup
($2, strlen
($2));
232 if
(id
&& id
->flags
& TF_OPTION
)
233 menu_add_option
(id
->token
, $3);
235 zconfprint
("warning: ignoring unknown option %s", $2);
240 /* empty */ { $$
= NULL
; }
241 | T_EQUAL prompt
{ $$
= $2; }
246 choice: T_CHOICE word_opt T_EOL
248 struct symbol
*sym
= sym_lookup
($2, SYMBOL_CHOICE
);
249 sym
->flags |
= SYMBOL_AUTO
;
251 menu_add_expr
(P_CHOICE
, NULL
, NULL
);
252 printd
(DEBUG_PARSE
, "%s:%d:choice\n", zconf_curname
(), zconf_lineno
());
255 choice_entry: choice choice_option_list
257 $$
= menu_add_menu
();
262 if
(zconf_endtoken
($1, T_CHOICE
, T_ENDCHOICE
)) {
264 printd
(DEBUG_PARSE
, "%s:%d:endchoice\n", zconf_curname
(), zconf_lineno
());
268 choice_stmt: choice_entry choice_block choice_end
273 | choice_option_list choice_option
274 | choice_option_list depends
275 | choice_option_list help
276 | choice_option_list T_EOL
277 | choice_option_list option_error
280 choice_option: T_PROMPT prompt if_expr T_EOL
282 menu_add_prompt
(P_PROMPT
, $2, $3);
283 printd
(DEBUG_PARSE
, "%s:%d:prompt\n", zconf_curname
(), zconf_lineno
());
286 choice_option: T_TYPE prompt_stmt_opt T_EOL
288 if
($1->stype
== S_BOOLEAN ||
$1->stype
== S_TRISTATE
) {
289 menu_set_type
($1->stype
);
290 printd
(DEBUG_PARSE
, "%s:%d:type(%u)\n",
291 zconf_curname
(), zconf_lineno
(),
297 choice_option: T_OPTIONAL T_EOL
299 current_entry
->sym
->flags |
= SYMBOL_OPTIONAL
;
300 printd
(DEBUG_PARSE
, "%s:%d:optional\n", zconf_curname
(), zconf_lineno
());
303 choice_option: T_DEFAULT T_WORD if_expr T_EOL
305 if
($1->stype
== S_UNKNOWN
) {
306 menu_add_symbol
(P_DEFAULT
, sym_lookup
($2, 0), $3);
307 printd
(DEBUG_PARSE
, "%s:%d:default\n",
308 zconf_curname
(), zconf_lineno
());
315 | choice_block common_stmt
320 if_entry: T_IF expr nl
322 printd
(DEBUG_PARSE
, "%s:%d:if\n", zconf_curname
(), zconf_lineno
());
323 menu_add_entry
(NULL
);
325 $$
= menu_add_menu
();
330 if
(zconf_endtoken
($1, T_IF
, T_ENDIF
)) {
332 printd
(DEBUG_PARSE
, "%s:%d:endif\n", zconf_curname
(), zconf_lineno
());
336 if_stmt: if_entry if_block if_end
341 | if_block common_stmt
343 | if_block choice_stmt
348 mainmenu_stmt: T_MAINMENU prompt nl
350 menu_add_prompt
(P_MENU
, $2, NULL
);
355 menu: T_MENU prompt T_EOL
357 menu_add_entry
(NULL
);
358 menu_add_prompt
(P_MENU
, $2, NULL
);
359 printd
(DEBUG_PARSE
, "%s:%d:menu\n", zconf_curname
(), zconf_lineno
());
362 menu_entry: menu depends_list
364 $$
= menu_add_menu
();
369 if
(zconf_endtoken
($1, T_MENU
, T_ENDMENU
)) {
371 printd
(DEBUG_PARSE
, "%s:%d:endmenu\n", zconf_curname
(), zconf_lineno
());
375 menu_stmt: menu_entry menu_block menu_end
380 | menu_block common_stmt
381 | menu_block menu_stmt
382 | menu_block choice_stmt
385 source_stmt: T_SOURCE prompt T_EOL
387 printd
(DEBUG_PARSE
, "%s:%d:source %s\n", zconf_curname
(), zconf_lineno
(), $2);
393 comment: T_COMMENT prompt T_EOL
395 menu_add_entry
(NULL
);
396 menu_add_prompt
(P_COMMENT
, $2, NULL
);
397 printd
(DEBUG_PARSE
, "%s:%d:comment\n", zconf_curname
(), zconf_lineno
());
400 comment_stmt: comment depends_list
407 help_start: T_HELP T_EOL
409 printd
(DEBUG_PARSE
, "%s:%d:help\n", zconf_curname
(), zconf_lineno
());
413 help: help_start T_HELPTEXT
415 current_entry
->help
= $2;
422 | depends_list depends
424 | depends_list option_error
427 depends: T_DEPENDS T_ON expr T_EOL
430 printd
(DEBUG_PARSE
, "%s:%d:depends on\n", zconf_curname
(), zconf_lineno
());
433 /* prompt statement */
439 menu_add_prompt
(P_PROMPT
, $1, $2);
446 end: T_ENDMENU T_EOL
{ $$
= $1; }
447 | T_ENDCHOICE T_EOL
{ $$
= $1; }
448 | T_ENDIF T_EOL
{ $$
= $1; }
456 if_expr: /* empty */ { $$
= NULL
; }
457 | T_IF expr
{ $$
= $2; }
460 expr: symbol
{ $$
= expr_alloc_symbol
($1); }
461 | symbol T_EQUAL symbol
{ $$
= expr_alloc_comp
(E_EQUAL
, $1, $3); }
462 | symbol T_UNEQUAL symbol
{ $$
= expr_alloc_comp
(E_UNEQUAL
, $1, $3); }
463 | T_OPEN_PAREN expr T_CLOSE_PAREN
{ $$
= $2; }
464 | T_NOT expr
{ $$
= expr_alloc_one
(E_NOT
, $2); }
465 | expr T_OR expr
{ $$
= expr_alloc_two
(E_OR
, $1, $3); }
466 | expr T_AND expr
{ $$
= expr_alloc_two
(E_AND
, $1, $3); }
469 symbol: T_WORD
{ $$
= sym_lookup
($1, 0); free
($1); }
470 | T_WORD_QUOTE
{ $$
= sym_lookup
($1, SYMBOL_CONST
); free
($1); }
473 word_opt: /* empty */ { $$
= NULL
; }
478 void conf_parse
(const char *name
)
483 zconf_initscan
(name
);
487 modules_sym
= sym_lookup
(NULL
, 0);
488 modules_sym
->type
= S_BOOLEAN
;
489 modules_sym
->flags |
= SYMBOL_AUTO
;
490 rootmenu.prompt
= menu_add_prompt
(P_MENU
, "Linux Kernel Configuration", NULL
);
493 if
(getenv
("ZCONF_DEBUG"))
499 if
(!modules_sym
->prop
) {
500 struct property
*prop
;
502 prop
= prop_alloc
(P_DEFAULT
, modules_sym
);
503 prop
->expr
= expr_alloc_symbol
(sym_lookup
("MODULES", 0));
506 rootmenu.prompt
->text
= _
(rootmenu.prompt
->text
);
507 rootmenu.prompt
->text
= sym_expand_string_value
(rootmenu.prompt
->text
);
509 menu_finalize
(&rootmenu
);
510 for_all_symbols
(i
, sym
) {
511 if
(sym_check_deps
(sym
))
516 sym_set_change_count
(1);
519 static const char *zconf_tokenname
(int token
)
522 case T_MENU
: return
"menu";
523 case T_ENDMENU
: return
"endmenu";
524 case T_CHOICE
: return
"choice";
525 case T_ENDCHOICE
: return
"endchoice";
526 case T_IF
: return
"if";
527 case T_ENDIF
: return
"endif";
528 case T_DEPENDS
: return
"depends";
533 static bool zconf_endtoken
(struct kconf_id
*id
, int starttoken
, int endtoken
)
535 if
(id
->token
!= endtoken
) {
536 zconf_error
("unexpected '%s' within %s block",
537 kconf_id_strings
+ id
->name
, zconf_tokenname
(starttoken
));
541 if
(current_menu
->file
!= current_file
) {
542 zconf_error
("'%s' in different file than '%s'",
543 kconf_id_strings
+ id
->name
, zconf_tokenname
(starttoken
));
544 fprintf
(stderr
, "%s:%d: location of the '%s'\n",
545 current_menu
->file
->name
, current_menu
->lineno
,
546 zconf_tokenname
(starttoken
));
553 static void zconfprint
(const char *err
, ...
)
557 fprintf
(stderr
, "%s:%d: ", zconf_curname
(), zconf_lineno
());
559 vfprintf
(stderr
, err
, ap
);
561 fprintf
(stderr
, "\n");
564 static void zconf_error
(const char *err
, ...
)
569 fprintf
(stderr
, "%s:%d: ", zconf_curname
(), zconf_lineno
());
571 vfprintf
(stderr
, err
, ap
);
573 fprintf
(stderr
, "\n");
576 static void zconferror
(const char *err
)
579 fprintf
(stderr
, "%s:%d: %s\n", zconf_curname
(), zconf_lineno
() + 1, err
);
583 static void print_quoted_string
(FILE *out
, const char *str
)
589 while
((p
= strchr
(str
, '"'))) {
592 fprintf
(out
, "%.*s", len
, str
);
600 static void print_symbol
(FILE *out
, struct menu
*menu
)
602 struct symbol
*sym
= menu
->sym
;
603 struct property
*prop
;
605 if
(sym_is_choice
(sym
))
606 fprintf
(out
, "\nchoice\n");
608 fprintf
(out
, "\nconfig %s\n", sym
->name
);
611 fputs
(" boolean\n", out
);
614 fputs
(" tristate\n", out
);
617 fputs
(" string\n", out
);
620 fputs
(" integer\n", out
);
623 fputs
(" hex\n", out
);
626 fputs
(" ???\n", out
);
629 for
(prop
= sym
->prop
; prop
; prop
= prop
->next
) {
630 if
(prop
->menu
!= menu
)
632 switch
(prop
->type
) {
634 fputs
(" prompt ", out
);
635 print_quoted_string
(out
, prop
->text
);
636 if
(!expr_is_yes
(prop
->visible.expr
)) {
638 expr_fprint
(prop
->visible.expr
, out
);
643 fputs
( " default ", out
);
644 expr_fprint
(prop
->expr
, out
);
645 if
(!expr_is_yes
(prop
->visible.expr
)) {
647 expr_fprint
(prop
->visible.expr
, out
);
652 fputs
(" #choice value\n", out
);
655 fputs
( " select ", out
);
656 expr_fprint
(prop
->expr
, out
);
660 fputs
( " range ", out
);
661 expr_fprint
(prop
->expr
, out
);
665 fputs
( " menu ", out
);
666 print_quoted_string
(out
, prop
->text
);
670 fprintf
(out
, " unknown prop %d!\n", prop
->type
);
675 int len
= strlen
(menu
->help
);
676 while
(menu
->help
[--len
] == '\n')
678 fprintf
(out
, " help\n%s\n", menu
->help
);
682 void zconfdump
(FILE *out
)
684 struct property
*prop
;
688 menu
= rootmenu.list
;
690 if
((sym
= menu
->sym
))
691 print_symbol
(out
, menu
);
692 else if
((prop
= menu
->prompt
)) {
693 switch
(prop
->type
) {
695 fputs
("\ncomment ", out
);
696 print_quoted_string
(out
, prop
->text
);
700 fputs
("\nmenu ", out
);
701 print_quoted_string
(out
, prop
->text
);
707 if
(!expr_is_yes
(prop
->visible.expr
)) {
708 fputs
(" depends ", out
);
709 expr_fprint
(prop
->visible.expr
, out
);
718 else while
((menu
= menu
->parent
)) {
719 if
(menu
->prompt
&& menu
->prompt
->type
== P_MENU
)
720 fputs
("\nendmenu\n", out
);
729 #include "lex.zconf.c"
731 #include "confdata.c"