The code block surrounded by 'if' ... 'endif' is reduced into if_stmt,
which is accepted in the 'choice' context. Therefore, you can write any
statements within a choice block by wrapping 'if y' ... 'end'.
For example, you can create a menu inside a choice, like follows:
---------------->8----------------
  choice
          prompt "choice"
  config A
          bool "A"
  config B
          bool "B"
  if y
  menu "strange menu"
  config C
          bool "C"
  endmenu
  endif
  endchoice
---------------->8----------------
I want to change such a weird structure into a syntax error.
In fact, the USB gadget Kconfig had used nested 'choice' for no good
reason until commit df8df5e4bc ("usb: get rid of 'choice' for
legacy gadget drivers") killed it.
I think the 'source' inside 'choice' is on the fence. It is at least
gramatically sensible as long as the included file contains only
bool/tristate configs. However, it makes the code unreadable, and people
tend to forget the fact that the file is included from the choice
block. Commit 10e5e6c249 ("usb: gadget: move choice ... endchoice to
legacy/Kconfig") got rid of the only usecase.
Going forward, you can only use 'config', 'comment', and 'if' inside
'choice'. This also recursively applies to 'if' blocks inside 'choice'.
Signed-off-by: Masahiro Yamada <masahiroy@kernel.org>
		
	
			
		
			
				
	
	
		
			728 lines
		
	
	
		
			15 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			728 lines
		
	
	
		
			15 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| /* SPDX-License-Identifier: GPL-2.0 */
 | |
| /*
 | |
|  * Copyright (C) 2002 Roman Zippel <zippel@linux-m68k.org>
 | |
|  */
 | |
| %{
 | |
| 
 | |
| #include <ctype.h>
 | |
| #include <stdarg.h>
 | |
| #include <stdio.h>
 | |
| #include <stdlib.h>
 | |
| #include <string.h>
 | |
| #include <stdbool.h>
 | |
| 
 | |
| #include "lkc.h"
 | |
| 
 | |
| #define printd(mask, fmt...) if (cdebug & (mask)) printf(fmt)
 | |
| 
 | |
| #define PRINTD		0x0001
 | |
| #define DEBUG_PARSE	0x0002
 | |
| 
 | |
| int cdebug = PRINTD;
 | |
| 
 | |
| static void yyerror(const char *err);
 | |
| static void zconfprint(const char *err, ...);
 | |
| static void zconf_error(const char *err, ...);
 | |
| static bool zconf_endtoken(const char *tokenname,
 | |
| 			   const char *expected_tokenname);
 | |
| 
 | |
| struct symbol *symbol_hash[SYMBOL_HASHSIZE];
 | |
| 
 | |
| static struct menu *current_menu, *current_entry;
 | |
| 
 | |
| %}
 | |
| 
 | |
| %union
 | |
| {
 | |
| 	char *string;
 | |
| 	struct symbol *symbol;
 | |
| 	struct expr *expr;
 | |
| 	struct menu *menu;
 | |
| 	enum symbol_type type;
 | |
| 	enum variable_flavor flavor;
 | |
| }
 | |
| 
 | |
| %token <string> T_HELPTEXT
 | |
| %token <string> T_WORD
 | |
| %token <string> T_WORD_QUOTE
 | |
| %token T_ALLNOCONFIG_Y
 | |
| %token T_BOOL
 | |
| %token T_CHOICE
 | |
| %token T_CLOSE_PAREN
 | |
| %token T_COLON_EQUAL
 | |
| %token T_COMMENT
 | |
| %token T_CONFIG
 | |
| %token T_DEFAULT
 | |
| %token T_DEFCONFIG_LIST
 | |
| %token T_DEF_BOOL
 | |
| %token T_DEF_TRISTATE
 | |
| %token T_DEPENDS
 | |
| %token T_ENDCHOICE
 | |
| %token T_ENDIF
 | |
| %token T_ENDMENU
 | |
| %token T_HELP
 | |
| %token T_HEX
 | |
| %token T_IF
 | |
| %token T_IMPLY
 | |
| %token T_INT
 | |
| %token T_MAINMENU
 | |
| %token T_MENU
 | |
| %token T_MENUCONFIG
 | |
| %token T_MODULES
 | |
| %token T_ON
 | |
| %token T_OPEN_PAREN
 | |
| %token T_OPTION
 | |
| %token T_OPTIONAL
 | |
| %token T_PLUS_EQUAL
 | |
| %token T_PROMPT
 | |
| %token T_RANGE
 | |
| %token T_SELECT
 | |
| %token T_SOURCE
 | |
| %token T_STRING
 | |
| %token T_TRISTATE
 | |
| %token T_VISIBLE
 | |
| %token T_EOL
 | |
| %token <string> T_ASSIGN_VAL
 | |
| 
 | |
| %left T_OR
 | |
| %left T_AND
 | |
| %left T_EQUAL T_UNEQUAL
 | |
| %left T_LESS T_LESS_EQUAL T_GREATER T_GREATER_EQUAL
 | |
| %nonassoc T_NOT
 | |
| 
 | |
| %type <symbol> nonconst_symbol
 | |
| %type <symbol> symbol
 | |
| %type <type> type logic_type default
 | |
| %type <expr> expr
 | |
| %type <expr> if_expr
 | |
| %type <string> end
 | |
| %type <menu> if_entry menu_entry choice_entry
 | |
| %type <string> word_opt assign_val
 | |
| %type <flavor> assign_op
 | |
| 
 | |
| %destructor {
 | |
| 	fprintf(stderr, "%s:%d: missing end statement for this entry\n",
 | |
| 		$$->file->name, $$->lineno);
 | |
| 	if (current_menu == $$)
 | |
| 		menu_end_menu();
 | |
| } if_entry menu_entry choice_entry
 | |
| 
 | |
| %%
 | |
| input: mainmenu_stmt stmt_list | stmt_list;
 | |
| 
 | |
| /* mainmenu entry */
 | |
| 
 | |
| mainmenu_stmt: T_MAINMENU T_WORD_QUOTE T_EOL
 | |
| {
 | |
| 	menu_add_prompt(P_MENU, $2, NULL);
 | |
| };
 | |
| 
 | |
| stmt_list:
 | |
| 	  /* empty */
 | |
| 	| stmt_list assignment_stmt
 | |
| 	| stmt_list choice_stmt
 | |
| 	| stmt_list comment_stmt
 | |
| 	| stmt_list config_stmt
 | |
| 	| stmt_list if_stmt
 | |
| 	| stmt_list menu_stmt
 | |
| 	| stmt_list menuconfig_stmt
 | |
| 	| stmt_list source_stmt
 | |
| 	| stmt_list T_WORD error T_EOL	{ zconf_error("unknown statement \"%s\"", $2); }
 | |
| 	| stmt_list error T_EOL		{ zconf_error("invalid statement"); }
 | |
| ;
 | |
| 
 | |
| stmt_list_in_choice:
 | |
| 	  /* empty */
 | |
| 	| stmt_list_in_choice comment_stmt
 | |
| 	| stmt_list_in_choice config_stmt
 | |
| 	| stmt_list_in_choice if_stmt_in_choice
 | |
| 	| stmt_list_in_choice error T_EOL	{ zconf_error("invalid statement"); }
 | |
| ;
 | |
| 
 | |
| /* config/menuconfig entry */
 | |
| 
 | |
| config_entry_start: T_CONFIG nonconst_symbol T_EOL
 | |
| {
 | |
| 	$2->flags |= SYMBOL_OPTIONAL;
 | |
| 	menu_add_entry($2);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:config %s\n", zconf_curname(), zconf_lineno(), $2->name);
 | |
| };
 | |
| 
 | |
| config_stmt: config_entry_start config_option_list
 | |
| {
 | |
| 	printd(DEBUG_PARSE, "%s:%d:endconfig\n", zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| menuconfig_entry_start: T_MENUCONFIG nonconst_symbol T_EOL
 | |
| {
 | |
| 	$2->flags |= SYMBOL_OPTIONAL;
 | |
| 	menu_add_entry($2);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:menuconfig %s\n", zconf_curname(), zconf_lineno(), $2->name);
 | |
| };
 | |
| 
 | |
| menuconfig_stmt: menuconfig_entry_start config_option_list
 | |
| {
 | |
| 	if (current_entry->prompt)
 | |
| 		current_entry->prompt->type = P_MENU;
 | |
| 	else
 | |
| 		zconfprint("warning: menuconfig statement without prompt");
 | |
| 	printd(DEBUG_PARSE, "%s:%d:endconfig\n", zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| config_option_list:
 | |
| 	  /* empty */
 | |
| 	| config_option_list config_option
 | |
| 	| config_option_list depends
 | |
| 	| config_option_list help
 | |
| ;
 | |
| 
 | |
| config_option: type prompt_stmt_opt T_EOL
 | |
| {
 | |
| 	menu_set_type($1);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:type(%u)\n",
 | |
| 		zconf_curname(), zconf_lineno(),
 | |
| 		$1);
 | |
| };
 | |
| 
 | |
| config_option: T_PROMPT T_WORD_QUOTE if_expr T_EOL
 | |
| {
 | |
| 	menu_add_prompt(P_PROMPT, $2, $3);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:prompt\n", zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| config_option: default expr if_expr T_EOL
 | |
| {
 | |
| 	menu_add_expr(P_DEFAULT, $2, $3);
 | |
| 	if ($1 != S_UNKNOWN)
 | |
| 		menu_set_type($1);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:default(%u)\n",
 | |
| 		zconf_curname(), zconf_lineno(),
 | |
| 		$1);
 | |
| };
 | |
| 
 | |
| config_option: T_SELECT nonconst_symbol if_expr T_EOL
 | |
| {
 | |
| 	menu_add_symbol(P_SELECT, $2, $3);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:select\n", zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| config_option: T_IMPLY nonconst_symbol if_expr T_EOL
 | |
| {
 | |
| 	menu_add_symbol(P_IMPLY, $2, $3);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:imply\n", zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| config_option: T_RANGE symbol symbol if_expr T_EOL
 | |
| {
 | |
| 	menu_add_expr(P_RANGE, expr_alloc_comp(E_RANGE,$2, $3), $4);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:range\n", zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| config_option: T_OPTION T_MODULES T_EOL
 | |
| {
 | |
| 	menu_add_option_modules();
 | |
| };
 | |
| 
 | |
| config_option: T_OPTION T_DEFCONFIG_LIST T_EOL
 | |
| {
 | |
| 	menu_add_option_defconfig_list();
 | |
| };
 | |
| 
 | |
| config_option: T_OPTION T_ALLNOCONFIG_Y T_EOL
 | |
| {
 | |
| 	menu_add_option_allnoconfig_y();
 | |
| };
 | |
| 
 | |
| /* choice entry */
 | |
| 
 | |
| choice: T_CHOICE word_opt T_EOL
 | |
| {
 | |
| 	struct symbol *sym = sym_lookup($2, SYMBOL_CHOICE);
 | |
| 	sym->flags |= SYMBOL_NO_WRITE;
 | |
| 	menu_add_entry(sym);
 | |
| 	menu_add_expr(P_CHOICE, NULL, NULL);
 | |
| 	free($2);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:choice\n", zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| choice_entry: choice choice_option_list
 | |
| {
 | |
| 	$$ = menu_add_menu();
 | |
| };
 | |
| 
 | |
| choice_end: end
 | |
| {
 | |
| 	if (zconf_endtoken($1, "choice")) {
 | |
| 		menu_end_menu();
 | |
| 		printd(DEBUG_PARSE, "%s:%d:endchoice\n", zconf_curname(), zconf_lineno());
 | |
| 	}
 | |
| };
 | |
| 
 | |
| choice_stmt: choice_entry stmt_list_in_choice choice_end
 | |
| ;
 | |
| 
 | |
| choice_option_list:
 | |
| 	  /* empty */
 | |
| 	| choice_option_list choice_option
 | |
| 	| choice_option_list depends
 | |
| 	| choice_option_list help
 | |
| ;
 | |
| 
 | |
| choice_option: T_PROMPT T_WORD_QUOTE if_expr T_EOL
 | |
| {
 | |
| 	menu_add_prompt(P_PROMPT, $2, $3);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:prompt\n", zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| choice_option: logic_type prompt_stmt_opt T_EOL
 | |
| {
 | |
| 	menu_set_type($1);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:type(%u)\n",
 | |
| 	       zconf_curname(), zconf_lineno(), $1);
 | |
| };
 | |
| 
 | |
| choice_option: T_OPTIONAL T_EOL
 | |
| {
 | |
| 	current_entry->sym->flags |= SYMBOL_OPTIONAL;
 | |
| 	printd(DEBUG_PARSE, "%s:%d:optional\n", zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| choice_option: T_DEFAULT nonconst_symbol if_expr T_EOL
 | |
| {
 | |
| 	menu_add_symbol(P_DEFAULT, $2, $3);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:default\n",
 | |
| 	       zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| type:
 | |
| 	  logic_type
 | |
| 	| T_INT			{ $$ = S_INT; }
 | |
| 	| T_HEX			{ $$ = S_HEX; }
 | |
| 	| T_STRING		{ $$ = S_STRING; }
 | |
| 
 | |
| logic_type:
 | |
| 	  T_BOOL		{ $$ = S_BOOLEAN; }
 | |
| 	| T_TRISTATE		{ $$ = S_TRISTATE; }
 | |
| 
 | |
| default:
 | |
| 	  T_DEFAULT		{ $$ = S_UNKNOWN; }
 | |
| 	| T_DEF_BOOL		{ $$ = S_BOOLEAN; }
 | |
| 	| T_DEF_TRISTATE	{ $$ = S_TRISTATE; }
 | |
| 
 | |
| /* if entry */
 | |
| 
 | |
| if_entry: T_IF expr T_EOL
 | |
| {
 | |
| 	printd(DEBUG_PARSE, "%s:%d:if\n", zconf_curname(), zconf_lineno());
 | |
| 	menu_add_entry(NULL);
 | |
| 	menu_add_dep($2);
 | |
| 	$$ = menu_add_menu();
 | |
| };
 | |
| 
 | |
| if_end: end
 | |
| {
 | |
| 	if (zconf_endtoken($1, "if")) {
 | |
| 		menu_end_menu();
 | |
| 		printd(DEBUG_PARSE, "%s:%d:endif\n", zconf_curname(), zconf_lineno());
 | |
| 	}
 | |
| };
 | |
| 
 | |
| if_stmt: if_entry stmt_list if_end
 | |
| ;
 | |
| 
 | |
| if_stmt_in_choice: if_entry stmt_list_in_choice if_end
 | |
| ;
 | |
| 
 | |
| /* menu entry */
 | |
| 
 | |
| menu: T_MENU T_WORD_QUOTE T_EOL
 | |
| {
 | |
| 	menu_add_entry(NULL);
 | |
| 	menu_add_prompt(P_MENU, $2, NULL);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:menu\n", zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| menu_entry: menu menu_option_list
 | |
| {
 | |
| 	$$ = menu_add_menu();
 | |
| };
 | |
| 
 | |
| menu_end: end
 | |
| {
 | |
| 	if (zconf_endtoken($1, "menu")) {
 | |
| 		menu_end_menu();
 | |
| 		printd(DEBUG_PARSE, "%s:%d:endmenu\n", zconf_curname(), zconf_lineno());
 | |
| 	}
 | |
| };
 | |
| 
 | |
| menu_stmt: menu_entry stmt_list menu_end
 | |
| ;
 | |
| 
 | |
| menu_option_list:
 | |
| 	  /* empty */
 | |
| 	| menu_option_list visible
 | |
| 	| menu_option_list depends
 | |
| ;
 | |
| 
 | |
| source_stmt: T_SOURCE T_WORD_QUOTE T_EOL
 | |
| {
 | |
| 	printd(DEBUG_PARSE, "%s:%d:source %s\n", zconf_curname(), zconf_lineno(), $2);
 | |
| 	zconf_nextfile($2);
 | |
| 	free($2);
 | |
| };
 | |
| 
 | |
| /* comment entry */
 | |
| 
 | |
| comment: T_COMMENT T_WORD_QUOTE T_EOL
 | |
| {
 | |
| 	menu_add_entry(NULL);
 | |
| 	menu_add_prompt(P_COMMENT, $2, NULL);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:comment\n", zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| comment_stmt: comment comment_option_list
 | |
| ;
 | |
| 
 | |
| comment_option_list:
 | |
| 	  /* empty */
 | |
| 	| comment_option_list depends
 | |
| ;
 | |
| 
 | |
| /* help option */
 | |
| 
 | |
| help_start: T_HELP T_EOL
 | |
| {
 | |
| 	printd(DEBUG_PARSE, "%s:%d:help\n", zconf_curname(), zconf_lineno());
 | |
| 	zconf_starthelp();
 | |
| };
 | |
| 
 | |
| help: help_start T_HELPTEXT
 | |
| {
 | |
| 	if (current_entry->help) {
 | |
| 		free(current_entry->help);
 | |
| 		zconfprint("warning: '%s' defined with more than one help text -- only the last one will be used",
 | |
| 			   current_entry->sym->name ?: "<choice>");
 | |
| 	}
 | |
| 
 | |
| 	/* Is the help text empty or all whitespace? */
 | |
| 	if ($2[strspn($2, " \f\n\r\t\v")] == '\0')
 | |
| 		zconfprint("warning: '%s' defined with blank help text",
 | |
| 			   current_entry->sym->name ?: "<choice>");
 | |
| 
 | |
| 	current_entry->help = $2;
 | |
| };
 | |
| 
 | |
| /* depends option */
 | |
| 
 | |
| depends: T_DEPENDS T_ON expr T_EOL
 | |
| {
 | |
| 	menu_add_dep($3);
 | |
| 	printd(DEBUG_PARSE, "%s:%d:depends on\n", zconf_curname(), zconf_lineno());
 | |
| };
 | |
| 
 | |
| /* visibility option */
 | |
| visible: T_VISIBLE if_expr T_EOL
 | |
| {
 | |
| 	menu_add_visibility($2);
 | |
| };
 | |
| 
 | |
| /* prompt statement */
 | |
| 
 | |
| prompt_stmt_opt:
 | |
| 	  /* empty */
 | |
| 	| T_WORD_QUOTE if_expr
 | |
| {
 | |
| 	menu_add_prompt(P_PROMPT, $1, $2);
 | |
| };
 | |
| 
 | |
| end:	  T_ENDMENU T_EOL	{ $$ = "menu"; }
 | |
| 	| T_ENDCHOICE T_EOL	{ $$ = "choice"; }
 | |
| 	| T_ENDIF T_EOL		{ $$ = "if"; }
 | |
| ;
 | |
| 
 | |
| if_expr:  /* empty */			{ $$ = NULL; }
 | |
| 	| T_IF expr			{ $$ = $2; }
 | |
| ;
 | |
| 
 | |
| expr:	  symbol				{ $$ = expr_alloc_symbol($1); }
 | |
| 	| symbol T_LESS symbol			{ $$ = expr_alloc_comp(E_LTH, $1, $3); }
 | |
| 	| symbol T_LESS_EQUAL symbol		{ $$ = expr_alloc_comp(E_LEQ, $1, $3); }
 | |
| 	| symbol T_GREATER symbol		{ $$ = expr_alloc_comp(E_GTH, $1, $3); }
 | |
| 	| symbol T_GREATER_EQUAL symbol		{ $$ = expr_alloc_comp(E_GEQ, $1, $3); }
 | |
| 	| symbol T_EQUAL symbol			{ $$ = expr_alloc_comp(E_EQUAL, $1, $3); }
 | |
| 	| symbol T_UNEQUAL symbol		{ $$ = expr_alloc_comp(E_UNEQUAL, $1, $3); }
 | |
| 	| T_OPEN_PAREN expr T_CLOSE_PAREN	{ $$ = $2; }
 | |
| 	| T_NOT expr				{ $$ = expr_alloc_one(E_NOT, $2); }
 | |
| 	| expr T_OR expr			{ $$ = expr_alloc_two(E_OR, $1, $3); }
 | |
| 	| expr T_AND expr			{ $$ = expr_alloc_two(E_AND, $1, $3); }
 | |
| ;
 | |
| 
 | |
| /* For symbol definitions, selects, etc., where quotes are not accepted */
 | |
| nonconst_symbol: T_WORD { $$ = sym_lookup($1, 0); free($1); };
 | |
| 
 | |
| symbol:	  nonconst_symbol
 | |
| 	| T_WORD_QUOTE	{ $$ = sym_lookup($1, SYMBOL_CONST); free($1); }
 | |
| ;
 | |
| 
 | |
| word_opt: /* empty */			{ $$ = NULL; }
 | |
| 	| T_WORD
 | |
| 
 | |
| /* assignment statement */
 | |
| 
 | |
| assignment_stmt:  T_WORD assign_op assign_val T_EOL	{ variable_add($1, $3, $2); free($1); free($3); }
 | |
| 
 | |
| assign_op:
 | |
| 	  T_EQUAL	{ $$ = VAR_RECURSIVE; }
 | |
| 	| T_COLON_EQUAL	{ $$ = VAR_SIMPLE; }
 | |
| 	| T_PLUS_EQUAL	{ $$ = VAR_APPEND; }
 | |
| ;
 | |
| 
 | |
| assign_val:
 | |
| 	/* empty */		{ $$ = xstrdup(""); };
 | |
| 	| T_ASSIGN_VAL
 | |
| ;
 | |
| 
 | |
| %%
 | |
| 
 | |
| void conf_parse(const char *name)
 | |
| {
 | |
| 	struct symbol *sym;
 | |
| 	int i;
 | |
| 
 | |
| 	zconf_initscan(name);
 | |
| 
 | |
| 	_menu_init();
 | |
| 
 | |
| 	if (getenv("ZCONF_DEBUG"))
 | |
| 		yydebug = 1;
 | |
| 	yyparse();
 | |
| 
 | |
| 	/* Variables are expanded in the parse phase. We can free them here. */
 | |
| 	variable_all_del();
 | |
| 
 | |
| 	if (yynerrs)
 | |
| 		exit(1);
 | |
| 	if (!modules_sym)
 | |
| 		modules_sym = sym_find( "n" );
 | |
| 
 | |
| 	if (!menu_has_prompt(&rootmenu)) {
 | |
| 		current_entry = &rootmenu;
 | |
| 		menu_add_prompt(P_MENU, "Main menu", NULL);
 | |
| 	}
 | |
| 
 | |
| 	menu_finalize(&rootmenu);
 | |
| 	for_all_symbols(i, sym) {
 | |
| 		if (sym_check_deps(sym))
 | |
| 			yynerrs++;
 | |
| 	}
 | |
| 	if (yynerrs)
 | |
| 		exit(1);
 | |
| 	sym_set_change_count(1);
 | |
| }
 | |
| 
 | |
| static bool zconf_endtoken(const char *tokenname,
 | |
| 			   const char *expected_tokenname)
 | |
| {
 | |
| 	if (strcmp(tokenname, expected_tokenname)) {
 | |
| 		zconf_error("unexpected '%s' within %s block",
 | |
| 			    tokenname, expected_tokenname);
 | |
| 		yynerrs++;
 | |
| 		return false;
 | |
| 	}
 | |
| 	if (current_menu->file != current_file) {
 | |
| 		zconf_error("'%s' in different file than '%s'",
 | |
| 			    tokenname, expected_tokenname);
 | |
| 		fprintf(stderr, "%s:%d: location of the '%s'\n",
 | |
| 			current_menu->file->name, current_menu->lineno,
 | |
| 			expected_tokenname);
 | |
| 		yynerrs++;
 | |
| 		return false;
 | |
| 	}
 | |
| 	return true;
 | |
| }
 | |
| 
 | |
| static void zconfprint(const char *err, ...)
 | |
| {
 | |
| 	va_list ap;
 | |
| 
 | |
| 	fprintf(stderr, "%s:%d: ", zconf_curname(), zconf_lineno());
 | |
| 	va_start(ap, err);
 | |
| 	vfprintf(stderr, err, ap);
 | |
| 	va_end(ap);
 | |
| 	fprintf(stderr, "\n");
 | |
| }
 | |
| 
 | |
| static void zconf_error(const char *err, ...)
 | |
| {
 | |
| 	va_list ap;
 | |
| 
 | |
| 	yynerrs++;
 | |
| 	fprintf(stderr, "%s:%d: ", zconf_curname(), zconf_lineno());
 | |
| 	va_start(ap, err);
 | |
| 	vfprintf(stderr, err, ap);
 | |
| 	va_end(ap);
 | |
| 	fprintf(stderr, "\n");
 | |
| }
 | |
| 
 | |
| static void yyerror(const char *err)
 | |
| {
 | |
| 	fprintf(stderr, "%s:%d: %s\n", zconf_curname(), zconf_lineno() + 1, err);
 | |
| }
 | |
| 
 | |
| static void print_quoted_string(FILE *out, const char *str)
 | |
| {
 | |
| 	const char *p;
 | |
| 	int len;
 | |
| 
 | |
| 	putc('"', out);
 | |
| 	while ((p = strchr(str, '"'))) {
 | |
| 		len = p - str;
 | |
| 		if (len)
 | |
| 			fprintf(out, "%.*s", len, str);
 | |
| 		fputs("\\\"", out);
 | |
| 		str = p + 1;
 | |
| 	}
 | |
| 	fputs(str, out);
 | |
| 	putc('"', out);
 | |
| }
 | |
| 
 | |
| static void print_symbol(FILE *out, struct menu *menu)
 | |
| {
 | |
| 	struct symbol *sym = menu->sym;
 | |
| 	struct property *prop;
 | |
| 
 | |
| 	if (sym_is_choice(sym))
 | |
| 		fprintf(out, "\nchoice\n");
 | |
| 	else
 | |
| 		fprintf(out, "\nconfig %s\n", sym->name);
 | |
| 	switch (sym->type) {
 | |
| 	case S_BOOLEAN:
 | |
| 		fputs("  bool\n", out);
 | |
| 		break;
 | |
| 	case S_TRISTATE:
 | |
| 		fputs("  tristate\n", out);
 | |
| 		break;
 | |
| 	case S_STRING:
 | |
| 		fputs("  string\n", out);
 | |
| 		break;
 | |
| 	case S_INT:
 | |
| 		fputs("  integer\n", out);
 | |
| 		break;
 | |
| 	case S_HEX:
 | |
| 		fputs("  hex\n", out);
 | |
| 		break;
 | |
| 	default:
 | |
| 		fputs("  ???\n", out);
 | |
| 		break;
 | |
| 	}
 | |
| 	for (prop = sym->prop; prop; prop = prop->next) {
 | |
| 		if (prop->menu != menu)
 | |
| 			continue;
 | |
| 		switch (prop->type) {
 | |
| 		case P_PROMPT:
 | |
| 			fputs("  prompt ", out);
 | |
| 			print_quoted_string(out, prop->text);
 | |
| 			if (!expr_is_yes(prop->visible.expr)) {
 | |
| 				fputs(" if ", out);
 | |
| 				expr_fprint(prop->visible.expr, out);
 | |
| 			}
 | |
| 			fputc('\n', out);
 | |
| 			break;
 | |
| 		case P_DEFAULT:
 | |
| 			fputs( "  default ", out);
 | |
| 			expr_fprint(prop->expr, out);
 | |
| 			if (!expr_is_yes(prop->visible.expr)) {
 | |
| 				fputs(" if ", out);
 | |
| 				expr_fprint(prop->visible.expr, out);
 | |
| 			}
 | |
| 			fputc('\n', out);
 | |
| 			break;
 | |
| 		case P_CHOICE:
 | |
| 			fputs("  #choice value\n", out);
 | |
| 			break;
 | |
| 		case P_SELECT:
 | |
| 			fputs( "  select ", out);
 | |
| 			expr_fprint(prop->expr, out);
 | |
| 			fputc('\n', out);
 | |
| 			break;
 | |
| 		case P_IMPLY:
 | |
| 			fputs( "  imply ", out);
 | |
| 			expr_fprint(prop->expr, out);
 | |
| 			fputc('\n', out);
 | |
| 			break;
 | |
| 		case P_RANGE:
 | |
| 			fputs( "  range ", out);
 | |
| 			expr_fprint(prop->expr, out);
 | |
| 			fputc('\n', out);
 | |
| 			break;
 | |
| 		case P_MENU:
 | |
| 			fputs( "  menu ", out);
 | |
| 			print_quoted_string(out, prop->text);
 | |
| 			fputc('\n', out);
 | |
| 			break;
 | |
| 		case P_SYMBOL:
 | |
| 			fputs( "  symbol ", out);
 | |
| 			fprintf(out, "%s\n", prop->menu->sym->name);
 | |
| 			break;
 | |
| 		default:
 | |
| 			fprintf(out, "  unknown prop %d!\n", prop->type);
 | |
| 			break;
 | |
| 		}
 | |
| 	}
 | |
| 	if (menu->help) {
 | |
| 		int len = strlen(menu->help);
 | |
| 		while (menu->help[--len] == '\n')
 | |
| 			menu->help[len] = 0;
 | |
| 		fprintf(out, "  help\n%s\n", menu->help);
 | |
| 	}
 | |
| }
 | |
| 
 | |
| void zconfdump(FILE *out)
 | |
| {
 | |
| 	struct property *prop;
 | |
| 	struct symbol *sym;
 | |
| 	struct menu *menu;
 | |
| 
 | |
| 	menu = rootmenu.list;
 | |
| 	while (menu) {
 | |
| 		if ((sym = menu->sym))
 | |
| 			print_symbol(out, menu);
 | |
| 		else if ((prop = menu->prompt)) {
 | |
| 			switch (prop->type) {
 | |
| 			case P_COMMENT:
 | |
| 				fputs("\ncomment ", out);
 | |
| 				print_quoted_string(out, prop->text);
 | |
| 				fputs("\n", out);
 | |
| 				break;
 | |
| 			case P_MENU:
 | |
| 				fputs("\nmenu ", out);
 | |
| 				print_quoted_string(out, prop->text);
 | |
| 				fputs("\n", out);
 | |
| 				break;
 | |
| 			default:
 | |
| 				;
 | |
| 			}
 | |
| 			if (!expr_is_yes(prop->visible.expr)) {
 | |
| 				fputs("  depends ", out);
 | |
| 				expr_fprint(prop->visible.expr, out);
 | |
| 				fputc('\n', out);
 | |
| 			}
 | |
| 		}
 | |
| 
 | |
| 		if (menu->list)
 | |
| 			menu = menu->list;
 | |
| 		else if (menu->next)
 | |
| 			menu = menu->next;
 | |
| 		else while ((menu = menu->parent)) {
 | |
| 			if (menu->prompt && menu->prompt->type == P_MENU)
 | |
| 				fputs("\nendmenu\n", out);
 | |
| 			if (menu->next) {
 | |
| 				menu = menu->next;
 | |
| 				break;
 | |
| 			}
 | |
| 		}
 | |
| 	}
 | |
| }
 | |
| 
 | |
| #include "menu.c"
 |