2 * Copyright (C) 2002 Roman Zippel <zippel@linux-m68k.org>
3 * Released under the terms of the GNU GPL v2.0.
9 #define LKC_DIRECT_LINK
13 struct menu
*current_menu
, *current_entry
;
14 static struct menu
**last_entry_ptr
;
16 struct file
*file_list
;
17 struct file
*current_file
;
19 static void menu_warn(struct menu
*menu
, const char *fmt
, ...)
23 fprintf(stderr
, "%s:%d:warning: ", menu
->file
->name
, menu
->lineno
);
24 vfprintf(stderr
, fmt
, ap
);
25 fprintf(stderr
, "\n");
29 static void prop_warn(struct property
*prop
, const char *fmt
, ...)
33 fprintf(stderr
, "%s:%d:warning: ", prop
->file
->name
, prop
->lineno
);
34 vfprintf(stderr
, fmt
, ap
);
35 fprintf(stderr
, "\n");
41 current_entry
= current_menu
= &rootmenu
;
42 last_entry_ptr
= &rootmenu
.list
;
45 void menu_add_entry(struct symbol
*sym
)
49 menu
= malloc(sizeof(*menu
));
50 memset(menu
, 0, sizeof(*menu
));
52 menu
->parent
= current_menu
;
53 menu
->file
= current_file
;
54 menu
->lineno
= zconf_lineno();
56 *last_entry_ptr
= menu
;
57 last_entry_ptr
= &menu
->next
;
61 void menu_end_entry(void)
65 void menu_add_menu(void)
67 current_menu
= current_entry
;
68 last_entry_ptr
= ¤t_entry
->list
;
71 void menu_end_menu(void)
73 last_entry_ptr
= ¤t_menu
->next
;
74 current_menu
= current_menu
->parent
;
77 struct expr
*menu_check_dep(struct expr
*e
)
84 e
->left
.expr
= menu_check_dep(e
->left
.expr
);
88 e
->left
.expr
= menu_check_dep(e
->left
.expr
);
89 e
->right
.expr
= menu_check_dep(e
->right
.expr
);
92 /* change 'm' into 'm' && MODULES */
93 if (e
->left
.sym
== &symbol_mod
)
94 return expr_alloc_and(e
, expr_alloc_symbol(modules_sym
));
102 void menu_add_dep(struct expr
*dep
)
104 current_entry
->dep
= expr_alloc_and(current_entry
->dep
, menu_check_dep(dep
));
107 void menu_set_type(int type
)
109 struct symbol
*sym
= current_entry
->sym
;
111 if (sym
->type
== type
)
113 if (sym
->type
== S_UNKNOWN
) {
117 menu_warn(current_entry
, "type of '%s' redefined from '%s' to '%s'\n",
118 sym
->name
? sym
->name
: "<choice>",
119 sym_type_name(sym
->type
), sym_type_name(type
));
122 struct property
*menu_add_prop(enum prop_type type
, char *prompt
, struct expr
*expr
, struct expr
*dep
)
124 struct property
*prop
= prop_alloc(type
, current_entry
->sym
);
126 prop
->menu
= current_entry
;
129 prop
->visible
.expr
= menu_check_dep(dep
);
132 if (current_entry
->prompt
)
133 menu_warn(current_entry
, "prompt redefined\n");
134 current_entry
->prompt
= prop
;
140 void menu_add_prompt(enum prop_type type
, char *prompt
, struct expr
*dep
)
142 menu_add_prop(type
, prompt
, NULL
, dep
);
145 void menu_add_expr(enum prop_type type
, struct expr
*expr
, struct expr
*dep
)
147 menu_add_prop(type
, NULL
, expr
, dep
);
150 void menu_add_symbol(enum prop_type type
, struct symbol
*sym
, struct expr
*dep
)
152 menu_add_prop(type
, NULL
, expr_alloc_symbol(sym
), dep
);
155 void sym_check_prop(struct symbol
*sym
)
157 struct property
*prop
;
159 for (prop
= sym
->prop
; prop
; prop
= prop
->next
) {
160 switch (prop
->type
) {
162 if ((sym
->type
== S_STRING
|| sym
->type
== S_INT
|| sym
->type
== S_HEX
) &&
163 prop
->expr
->type
!= E_SYMBOL
)
165 "default for config symbol '%'"
166 " must be a single symbol", sym
->name
);
169 sym2
= prop_get_symbol(prop
);
170 if (sym
->type
!= S_BOOLEAN
&& sym
->type
!= S_TRISTATE
)
172 "config symbol '%s' uses select, but is "
173 "not boolean or tristate", sym
->name
);
174 else if (sym2
->type
== S_UNKNOWN
)
176 "'select' used by config symbol '%s' "
177 "refer to undefined symbol '%s'",
178 sym
->name
, sym2
->name
);
179 else if (sym2
->type
!= S_BOOLEAN
&& sym2
->type
!= S_TRISTATE
)
181 "'%s' has wrong type. 'select' only "
182 "accept arguments of boolean and "
183 "tristate type", sym2
->name
);
186 if (sym
->type
!= S_INT
&& sym
->type
!= S_HEX
)
187 prop_warn(prop
, "range is only allowed "
188 "for int or hex symbols");
189 if (!sym_string_valid(sym
, prop
->expr
->left
.sym
->name
) ||
190 !sym_string_valid(sym
, prop
->expr
->right
.sym
->name
))
191 prop_warn(prop
, "range is invalid");
199 void menu_finalize(struct menu
*parent
)
201 struct menu
*menu
, *last_menu
;
203 struct property
*prop
;
204 struct expr
*parentdep
, *basedep
, *dep
, *dep2
, **ep
;
208 if (sym
&& sym_is_choice(sym
)) {
209 /* find the first choice value and find out choice type */
210 for (menu
= parent
->list
; menu
; menu
= menu
->next
) {
212 current_entry
= parent
;
213 menu_set_type(menu
->sym
->type
);
214 current_entry
= menu
;
215 menu_set_type(sym
->type
);
219 parentdep
= expr_alloc_symbol(sym
);
220 } else if (parent
->prompt
)
221 parentdep
= parent
->prompt
->visible
.expr
;
223 parentdep
= parent
->dep
;
225 for (menu
= parent
->list
; menu
; menu
= menu
->next
) {
226 basedep
= expr_transform(menu
->dep
);
227 basedep
= expr_alloc_and(expr_copy(parentdep
), basedep
);
228 basedep
= expr_eliminate_dups(basedep
);
231 prop
= menu
->sym
->prop
;
234 for (; prop
; prop
= prop
->next
) {
235 if (prop
->menu
!= menu
)
237 dep
= expr_transform(prop
->visible
.expr
);
238 dep
= expr_alloc_and(expr_copy(basedep
), dep
);
239 dep
= expr_eliminate_dups(dep
);
240 if (menu
->sym
&& menu
->sym
->type
!= S_TRISTATE
)
241 dep
= expr_trans_bool(dep
);
242 prop
->visible
.expr
= dep
;
243 if (prop
->type
== P_SELECT
) {
244 struct symbol
*es
= prop_get_symbol(prop
);
245 es
->rev_dep
.expr
= expr_alloc_or(es
->rev_dep
.expr
,
246 expr_alloc_and(expr_alloc_symbol(menu
->sym
), expr_copy(dep
)));
250 for (menu
= parent
->list
; menu
; menu
= menu
->next
)
253 basedep
= parent
->prompt
? parent
->prompt
->visible
.expr
: NULL
;
254 basedep
= expr_trans_compare(basedep
, E_UNEQUAL
, &symbol_no
);
255 basedep
= expr_eliminate_dups(expr_transform(basedep
));
257 for (menu
= parent
->next
; menu
; menu
= menu
->next
) {
258 dep
= menu
->prompt
? menu
->prompt
->visible
.expr
: menu
->dep
;
259 if (!expr_contains_symbol(dep
, sym
))
261 if (expr_depends_symbol(dep
, sym
))
263 dep
= expr_trans_compare(dep
, E_UNEQUAL
, &symbol_no
);
264 dep
= expr_eliminate_dups(expr_transform(dep
));
265 dep2
= expr_copy(basedep
);
266 expr_eliminate_eq(&dep
, &dep2
);
268 if (!expr_is_yes(dep2
)) {
275 menu
->parent
= parent
;
279 parent
->list
= parent
->next
;
280 parent
->next
= last_menu
->next
;
281 last_menu
->next
= NULL
;
284 for (menu
= parent
->list
; menu
; menu
= menu
->next
) {
285 if (sym
&& sym_is_choice(sym
) && menu
->sym
) {
286 menu
->sym
->flags
|= SYMBOL_CHOICEVAL
;
288 menu_warn(menu
, "choice value must have a prompt");
289 for (prop
= menu
->sym
->prop
; prop
; prop
= prop
->next
) {
290 if (prop
->type
== P_PROMPT
&& prop
->menu
!= menu
) {
291 prop_warn(prop
, "choice values "
292 "currently only support a "
295 if (prop
->type
== P_DEFAULT
)
296 prop_warn(prop
, "defaults for choice "
297 "values not supported");
299 current_entry
= menu
;
300 menu_set_type(sym
->type
);
301 menu_add_symbol(P_CHOICE
, sym
, NULL
);
302 prop
= sym_get_choice_prop(sym
);
303 for (ep
= &prop
->expr
; *ep
; ep
= &(*ep
)->left
.expr
)
305 *ep
= expr_alloc_one(E_CHOICE
, NULL
);
306 (*ep
)->right
.sym
= menu
->sym
;
308 if (menu
->list
&& (!menu
->prompt
|| !menu
->prompt
->text
)) {
309 for (last_menu
= menu
->list
; ; last_menu
= last_menu
->next
) {
310 last_menu
->parent
= parent
;
311 if (!last_menu
->next
)
314 last_menu
->next
= menu
->next
;
315 menu
->next
= menu
->list
;
320 if (sym
&& !(sym
->flags
& SYMBOL_WARNED
)) {
321 if (sym
->type
== S_UNKNOWN
)
322 menu_warn(parent
, "config symbol defined "
325 if (sym_is_choice(sym
) && !parent
->prompt
)
326 menu_warn(parent
, "choice must have a prompt\n");
328 /* Check properties connected to this symbol */
330 sym
->flags
|= SYMBOL_WARNED
;
333 if (sym
&& !sym_is_optional(sym
) && parent
->prompt
) {
334 sym
->rev_dep
.expr
= expr_alloc_or(sym
->rev_dep
.expr
,
335 expr_alloc_and(parent
->prompt
->visible
.expr
,
336 expr_alloc_symbol(&symbol_mod
)));
340 bool menu_is_visible(struct menu
*menu
)
351 visible
= menu
->prompt
->visible
.tri
;
353 visible
= menu
->prompt
->visible
.tri
= expr_calc_value(menu
->prompt
->visible
.expr
);
357 if (!sym
|| sym_get_tristate_value(menu
->sym
) == no
)
360 for (child
= menu
->list
; child
; child
= child
->next
)
361 if (menu_is_visible(child
))
366 const char *menu_get_prompt(struct menu
*menu
)
369 return menu
->prompt
->text
;
371 return menu
->sym
->name
;
375 struct menu
*menu_get_root_menu(struct menu
*menu
)
380 struct menu
*menu_get_parent_menu(struct menu
*menu
)
384 for (; menu
!= &rootmenu
; menu
= menu
->parent
) {
385 type
= menu
->prompt
? menu
->prompt
->type
: 0;
392 struct file
*file_lookup(const char *name
)
396 for (file
= file_list
; file
; file
= file
->next
) {
397 if (!strcmp(name
, file
->name
))
401 file
= malloc(sizeof(*file
));
402 memset(file
, 0, sizeof(*file
));
403 file
->name
= strdup(name
);
404 file
->next
= file_list
;
409 int file_write_dep(const char *name
)
415 name
= ".config.cmd";
416 out
= fopen(".config.tmp", "w");
419 fprintf(out
, "deps_config := \\\n");
420 for (file
= file_list
; file
; file
= file
->next
) {
422 fprintf(out
, "\t%s \\\n", file
->name
);
424 fprintf(out
, "\t%s\n", file
->name
);
426 fprintf(out
, "\n.config include/config.h: $(deps_config)\n\n$(deps_config):\n");
428 rename(".config.tmp", name
);
This page took 0.064764 seconds and 5 git commands to generate.