]>
git.proxmox.com Git - mirror_ubuntu-jammy-kernel.git/blob - scripts/kconfig/symbol.c
2 * Copyright (C) 2002 Roman Zippel <zippel@linux-m68k.org>
3 * Released under the terms of the GNU GPL v2.0.
10 #include <sys/utsname.h>
12 #define LKC_DIRECT_LINK
15 struct symbol symbol_yes
= {
18 .flags
= SYMBOL_CONST
|SYMBOL_VALID
,
22 .flags
= SYMBOL_CONST
|SYMBOL_VALID
,
26 .flags
= SYMBOL_CONST
|SYMBOL_VALID
,
30 .flags
= SYMBOL_VALID
,
33 struct symbol
*sym_defconfig_list
;
34 struct symbol
*modules_sym
;
37 struct expr
*sym_env_list
;
39 static void sym_add_default(struct symbol
*sym
, const char *def
)
41 struct property
*prop
= prop_alloc(P_DEFAULT
, sym
);
43 prop
->expr
= expr_alloc_symbol(sym_lookup(def
, SYMBOL_CONST
));
50 static bool inited
= false;
58 sym
= sym_lookup("UNAME_RELEASE", 0);
60 sym
->flags
|= SYMBOL_AUTO
;
61 sym_add_default(sym
, uts
.release
);
64 enum symbol_type
sym_get_type(struct symbol
*sym
)
66 enum symbol_type type
= sym
->type
;
68 if (type
== S_TRISTATE
) {
69 if (sym_is_choice_value(sym
) && sym
->visible
== yes
)
71 else if (modules_val
== no
)
77 const char *sym_type_name(enum symbol_type type
)
98 struct property
*sym_get_choice_prop(struct symbol
*sym
)
100 struct property
*prop
;
102 for_all_choices(sym
, prop
)
107 struct property
*sym_get_env_prop(struct symbol
*sym
)
109 struct property
*prop
;
111 for_all_properties(sym
, prop
, P_ENV
)
116 struct property
*sym_get_default_prop(struct symbol
*sym
)
118 struct property
*prop
;
120 for_all_defaults(sym
, prop
) {
121 prop
->visible
.tri
= expr_calc_value(prop
->visible
.expr
);
122 if (prop
->visible
.tri
!= no
)
128 static struct property
*sym_get_range_prop(struct symbol
*sym
)
130 struct property
*prop
;
132 for_all_properties(sym
, prop
, P_RANGE
) {
133 prop
->visible
.tri
= expr_calc_value(prop
->visible
.expr
);
134 if (prop
->visible
.tri
!= no
)
140 static int sym_get_range_val(struct symbol
*sym
, int base
)
153 return strtol(sym
->curr
.val
, NULL
, base
);
156 static void sym_validate_range(struct symbol
*sym
)
158 struct property
*prop
;
172 prop
= sym_get_range_prop(sym
);
175 val
= strtol(sym
->curr
.val
, NULL
, base
);
176 val2
= sym_get_range_val(prop
->expr
->left
.sym
, base
);
178 val2
= sym_get_range_val(prop
->expr
->right
.sym
, base
);
182 if (sym
->type
== S_INT
)
183 sprintf(str
, "%d", val2
);
185 sprintf(str
, "0x%x", val2
);
186 sym
->curr
.val
= strdup(str
);
189 static void sym_calc_visibility(struct symbol
*sym
)
191 struct property
*prop
;
194 /* any prompt visible? */
196 for_all_prompts(sym
, prop
) {
197 prop
->visible
.tri
= expr_calc_value(prop
->visible
.expr
);
198 tri
= EXPR_OR(tri
, prop
->visible
.tri
);
200 if (tri
== mod
&& (sym
->type
!= S_TRISTATE
|| modules_val
== no
))
202 if (sym
->visible
!= tri
) {
204 sym_set_changed(sym
);
206 if (sym_is_choice_value(sym
))
208 /* defaulting to "yes" if no explicit "depends on" are given */
210 if (sym
->dir_dep
.expr
)
211 tri
= expr_calc_value(sym
->dir_dep
.expr
);
214 if (sym
->dir_dep
.tri
!= tri
) {
215 sym
->dir_dep
.tri
= tri
;
216 sym_set_changed(sym
);
219 if (sym
->rev_dep
.expr
)
220 tri
= expr_calc_value(sym
->rev_dep
.expr
);
221 if (tri
== mod
&& sym_get_type(sym
) == S_BOOLEAN
)
223 if (sym
->rev_dep
.tri
!= tri
) {
224 sym
->rev_dep
.tri
= tri
;
225 sym_set_changed(sym
);
229 static struct symbol
*sym_calc_choice(struct symbol
*sym
)
231 struct symbol
*def_sym
;
232 struct property
*prop
;
235 /* first calculate all choice values' visibilities */
236 prop
= sym_get_choice_prop(sym
);
237 expr_list_for_each_sym(prop
->expr
, e
, def_sym
)
238 sym_calc_visibility(def_sym
);
240 /* is the user choice visible? */
241 def_sym
= sym
->def
[S_DEF_USER
].val
;
242 if (def_sym
&& def_sym
->visible
!= no
)
245 /* any of the defaults visible? */
246 for_all_defaults(sym
, prop
) {
247 prop
->visible
.tri
= expr_calc_value(prop
->visible
.expr
);
248 if (prop
->visible
.tri
== no
)
250 def_sym
= prop_get_symbol(prop
);
251 if (def_sym
->visible
!= no
)
255 /* just get the first visible value */
256 prop
= sym_get_choice_prop(sym
);
257 expr_list_for_each_sym(prop
->expr
, e
, def_sym
)
258 if (def_sym
->visible
!= no
)
261 /* no choice? reset tristate value */
266 void sym_calc_value(struct symbol
*sym
)
268 struct symbol_value newval
, oldval
;
269 struct property
*prop
;
275 if (sym
->flags
& SYMBOL_VALID
)
277 sym
->flags
|= SYMBOL_VALID
;
285 newval
= symbol_empty
.curr
;
289 newval
= symbol_no
.curr
;
292 sym
->curr
.val
= sym
->name
;
296 if (!sym_is_choice_value(sym
))
297 sym
->flags
&= ~SYMBOL_WRITE
;
299 sym_calc_visibility(sym
);
301 /* set default if recursively called */
304 switch (sym_get_type(sym
)) {
307 if (sym_is_choice_value(sym
) && sym
->visible
== yes
) {
308 prop
= sym_get_choice_prop(sym
);
309 newval
.tri
= (prop_get_symbol(prop
)->curr
.val
== sym
) ? yes
: no
;
311 if (sym
->visible
!= no
) {
312 /* if the symbol is visible use the user value
313 * if available, otherwise try the default value
315 sym
->flags
|= SYMBOL_WRITE
;
316 if (sym_has_value(sym
)) {
317 newval
.tri
= EXPR_AND(sym
->def
[S_DEF_USER
].tri
,
322 if (sym
->rev_dep
.tri
!= no
)
323 sym
->flags
|= SYMBOL_WRITE
;
324 if (!sym_is_choice(sym
)) {
325 prop
= sym_get_default_prop(sym
);
327 sym
->flags
|= SYMBOL_WRITE
;
328 newval
.tri
= EXPR_AND(expr_calc_value(prop
->expr
),
333 if (sym
->dir_dep
.tri
== no
&& sym
->rev_dep
.tri
!= no
) {
334 fprintf(stderr
, "warning: (");
335 expr_fprint(sym
->rev_dep
.expr
, stderr
);
336 fprintf(stderr
, ") selects %s which has unmet direct dependencies (",
338 expr_fprint(sym
->dir_dep
.expr
, stderr
);
339 fprintf(stderr
, ")\n");
341 newval
.tri
= EXPR_OR(newval
.tri
, sym
->rev_dep
.tri
);
343 if (newval
.tri
== mod
&& sym_get_type(sym
) == S_BOOLEAN
)
349 if (sym
->visible
!= no
) {
350 sym
->flags
|= SYMBOL_WRITE
;
351 if (sym_has_value(sym
)) {
352 newval
.val
= sym
->def
[S_DEF_USER
].val
;
356 prop
= sym_get_default_prop(sym
);
358 struct symbol
*ds
= prop_get_symbol(prop
);
360 sym
->flags
|= SYMBOL_WRITE
;
362 newval
.val
= ds
->curr
.val
;
371 if (sym_is_choice(sym
) && newval
.tri
== yes
)
372 sym
->curr
.val
= sym_calc_choice(sym
);
373 sym_validate_range(sym
);
375 if (memcmp(&oldval
, &sym
->curr
, sizeof(oldval
))) {
376 sym_set_changed(sym
);
377 if (modules_sym
== sym
) {
378 sym_set_all_changed();
379 modules_val
= modules_sym
->curr
.tri
;
383 if (sym_is_choice(sym
)) {
384 struct symbol
*choice_sym
;
386 prop
= sym_get_choice_prop(sym
);
387 expr_list_for_each_sym(prop
->expr
, e
, choice_sym
) {
388 if ((sym
->flags
& SYMBOL_WRITE
) &&
389 choice_sym
->visible
!= no
)
390 choice_sym
->flags
|= SYMBOL_WRITE
;
391 if (sym
->flags
& SYMBOL_CHANGED
)
392 sym_set_changed(choice_sym
);
396 if (sym
->flags
& SYMBOL_AUTO
)
397 sym
->flags
&= ~SYMBOL_WRITE
;
400 void sym_clear_all_valid(void)
405 for_all_symbols(i
, sym
)
406 sym
->flags
&= ~SYMBOL_VALID
;
407 sym_add_change_count(1);
409 sym_calc_value(modules_sym
);
412 void sym_set_changed(struct symbol
*sym
)
414 struct property
*prop
;
416 sym
->flags
|= SYMBOL_CHANGED
;
417 for (prop
= sym
->prop
; prop
; prop
= prop
->next
) {
419 prop
->menu
->flags
|= MENU_CHANGED
;
423 void sym_set_all_changed(void)
428 for_all_symbols(i
, sym
)
429 sym_set_changed(sym
);
432 bool sym_tristate_within_range(struct symbol
*sym
, tristate val
)
434 int type
= sym_get_type(sym
);
436 if (sym
->visible
== no
)
439 if (type
!= S_BOOLEAN
&& type
!= S_TRISTATE
)
442 if (type
== S_BOOLEAN
&& val
== mod
)
444 if (sym
->visible
<= sym
->rev_dep
.tri
)
446 if (sym_is_choice_value(sym
) && sym
->visible
== yes
)
448 return val
>= sym
->rev_dep
.tri
&& val
<= sym
->visible
;
451 bool sym_set_tristate_value(struct symbol
*sym
, tristate val
)
453 tristate oldval
= sym_get_tristate_value(sym
);
455 if (oldval
!= val
&& !sym_tristate_within_range(sym
, val
))
458 if (!(sym
->flags
& SYMBOL_DEF_USER
)) {
459 sym
->flags
|= SYMBOL_DEF_USER
;
460 sym_set_changed(sym
);
463 * setting a choice value also resets the new flag of the choice
464 * symbol and all other choice values.
466 if (sym_is_choice_value(sym
) && val
== yes
) {
467 struct symbol
*cs
= prop_get_symbol(sym_get_choice_prop(sym
));
468 struct property
*prop
;
471 cs
->def
[S_DEF_USER
].val
= sym
;
472 cs
->flags
|= SYMBOL_DEF_USER
;
473 prop
= sym_get_choice_prop(cs
);
474 for (e
= prop
->expr
; e
; e
= e
->left
.expr
) {
475 if (e
->right
.sym
->visible
!= no
)
476 e
->right
.sym
->flags
|= SYMBOL_DEF_USER
;
480 sym
->def
[S_DEF_USER
].tri
= val
;
482 sym_clear_all_valid();
487 tristate
sym_toggle_tristate_value(struct symbol
*sym
)
489 tristate oldval
, newval
;
491 oldval
= newval
= sym_get_tristate_value(sym
);
504 if (sym_set_tristate_value(sym
, newval
))
506 } while (oldval
!= newval
);
510 bool sym_string_valid(struct symbol
*sym
, const char *str
)
523 if (ch
== '0' && *str
!= 0)
525 while ((ch
= *str
++)) {
531 if (str
[0] == '0' && (str
[1] == 'x' || str
[1] == 'X'))
537 } while ((ch
= *str
++));
553 bool sym_string_within_range(struct symbol
*sym
, const char *str
)
555 struct property
*prop
;
560 return sym_string_valid(sym
, str
);
562 if (!sym_string_valid(sym
, str
))
564 prop
= sym_get_range_prop(sym
);
567 val
= strtol(str
, NULL
, 10);
568 return val
>= sym_get_range_val(prop
->expr
->left
.sym
, 10) &&
569 val
<= sym_get_range_val(prop
->expr
->right
.sym
, 10);
571 if (!sym_string_valid(sym
, str
))
573 prop
= sym_get_range_prop(sym
);
576 val
= strtol(str
, NULL
, 16);
577 return val
>= sym_get_range_val(prop
->expr
->left
.sym
, 16) &&
578 val
<= sym_get_range_val(prop
->expr
->right
.sym
, 16);
583 return sym_tristate_within_range(sym
, yes
);
585 return sym_tristate_within_range(sym
, mod
);
587 return sym_tristate_within_range(sym
, no
);
595 bool sym_set_string_value(struct symbol
*sym
, const char *newval
)
606 return sym_set_tristate_value(sym
, yes
);
608 return sym_set_tristate_value(sym
, mod
);
610 return sym_set_tristate_value(sym
, no
);
617 if (!sym_string_within_range(sym
, newval
))
620 if (!(sym
->flags
& SYMBOL_DEF_USER
)) {
621 sym
->flags
|= SYMBOL_DEF_USER
;
622 sym_set_changed(sym
);
625 oldval
= sym
->def
[S_DEF_USER
].val
;
626 size
= strlen(newval
) + 1;
627 if (sym
->type
== S_HEX
&& (newval
[0] != '0' || (newval
[1] != 'x' && newval
[1] != 'X'))) {
629 sym
->def
[S_DEF_USER
].val
= val
= malloc(size
);
632 } else if (!oldval
|| strcmp(oldval
, newval
))
633 sym
->def
[S_DEF_USER
].val
= val
= malloc(size
);
638 free((void *)oldval
);
639 sym_clear_all_valid();
644 const char *sym_get_string_value(struct symbol
*sym
)
651 val
= sym_get_tristate_value(sym
);
664 return (const char *)sym
->curr
.val
;
667 bool sym_is_changable(struct symbol
*sym
)
669 return sym
->visible
> sym
->rev_dep
.tri
;
672 static unsigned strhash(const char *s
)
675 unsigned hash
= 2166136261U;
677 hash
= (hash
^ *s
) * 0x01000193;
681 struct symbol
*sym_lookup(const char *name
, int flags
)
683 struct symbol
*symbol
;
688 if (name
[0] && !name
[1]) {
690 case 'y': return &symbol_yes
;
691 case 'm': return &symbol_mod
;
692 case 'n': return &symbol_no
;
695 hash
= strhash(name
) % SYMBOL_HASHSIZE
;
697 for (symbol
= symbol_hash
[hash
]; symbol
; symbol
= symbol
->next
) {
699 !strcmp(symbol
->name
, name
) &&
700 (flags
? symbol
->flags
& flags
701 : !(symbol
->flags
& (SYMBOL_CONST
|SYMBOL_CHOICE
))))
704 new_name
= strdup(name
);
710 symbol
= malloc(sizeof(*symbol
));
711 memset(symbol
, 0, sizeof(*symbol
));
712 symbol
->name
= new_name
;
713 symbol
->type
= S_UNKNOWN
;
714 symbol
->flags
|= flags
;
716 symbol
->next
= symbol_hash
[hash
];
717 symbol_hash
[hash
] = symbol
;
722 struct symbol
*sym_find(const char *name
)
724 struct symbol
*symbol
= NULL
;
730 if (name
[0] && !name
[1]) {
732 case 'y': return &symbol_yes
;
733 case 'm': return &symbol_mod
;
734 case 'n': return &symbol_no
;
737 hash
= strhash(name
) % SYMBOL_HASHSIZE
;
739 for (symbol
= symbol_hash
[hash
]; symbol
; symbol
= symbol
->next
) {
741 !strcmp(symbol
->name
, name
) &&
742 !(symbol
->flags
& SYMBOL_CONST
))
749 struct symbol
**sym_re_search(const char *pattern
)
751 struct symbol
*sym
, **sym_arr
= NULL
;
757 if (strlen(pattern
) == 0)
759 if (regcomp(&re
, pattern
, REG_EXTENDED
|REG_NOSUB
|REG_ICASE
))
762 for_all_symbols(i
, sym
) {
763 if (sym
->flags
& SYMBOL_CONST
|| !sym
->name
)
765 if (regexec(&re
, sym
->name
, 0, NULL
, 0))
767 if (cnt
+ 1 >= size
) {
770 sym_arr
= realloc(sym_arr
, size
* sizeof(struct symbol
*));
777 sym_arr
[cnt
++] = sym
;
787 * When we check for recursive dependencies we use a stack to save
788 * current state so we can print out relevant info to user.
789 * The entries are located on the call stack so no need to free memory.
790 * Note inser() remove() must always match to properly clear the stack.
792 static struct dep_stack
{
793 struct dep_stack
*prev
, *next
;
795 struct property
*prop
;
799 static void dep_stack_insert(struct dep_stack
*stack
, struct symbol
*sym
)
801 memset(stack
, 0, sizeof(*stack
));
803 check_top
->next
= stack
;
804 stack
->prev
= check_top
;
809 static void dep_stack_remove(void)
811 check_top
= check_top
->prev
;
813 check_top
->next
= NULL
;
817 * Called when we have detected a recursive dependency.
818 * check_top point to the top of the stact so we use
819 * the ->prev pointer to locate the bottom of the stack.
821 static void sym_check_print_recursive(struct symbol
*last_sym
)
823 struct dep_stack
*stack
;
824 struct symbol
*sym
, *next_sym
;
825 struct menu
*menu
= NULL
;
826 struct property
*prop
;
827 struct dep_stack cv_stack
;
829 if (sym_is_choice_value(last_sym
)) {
830 dep_stack_insert(&cv_stack
, last_sym
);
831 last_sym
= prop_get_symbol(sym_get_choice_prop(last_sym
));
834 for (stack
= check_top
; stack
!= NULL
; stack
= stack
->prev
)
835 if (stack
->sym
== last_sym
)
838 fprintf(stderr
, "unexpected recursive dependency error\n");
842 for (; stack
; stack
= stack
->next
) {
844 next_sym
= stack
->next
? stack
->next
->sym
: last_sym
;
847 /* for choice values find the menu entry (used below) */
848 if (sym_is_choice(sym
) || sym_is_choice_value(sym
)) {
849 for (prop
= sym
->prop
; prop
; prop
= prop
->next
) {
855 if (stack
->sym
== last_sym
)
856 fprintf(stderr
, "%s:%d:error: recursive dependency detected!\n",
857 prop
->file
->name
, prop
->lineno
);
859 fprintf(stderr
, "%s:%d:\tsymbol %s %s value contains %s\n",
860 prop
->file
->name
, prop
->lineno
,
861 sym
->name
? sym
->name
: "<choice>",
862 prop_get_type_name(prop
->type
),
863 next_sym
->name
? next_sym
->name
: "<choice>");
864 } else if (stack
->prop
) {
865 fprintf(stderr
, "%s:%d:\tsymbol %s depends on %s\n",
866 prop
->file
->name
, prop
->lineno
,
867 sym
->name
? sym
->name
: "<choice>",
868 next_sym
->name
? next_sym
->name
: "<choice>");
869 } else if (sym_is_choice(sym
)) {
870 fprintf(stderr
, "%s:%d:\tchoice %s contains symbol %s\n",
871 menu
->file
->name
, menu
->lineno
,
872 sym
->name
? sym
->name
: "<choice>",
873 next_sym
->name
? next_sym
->name
: "<choice>");
874 } else if (sym_is_choice_value(sym
)) {
875 fprintf(stderr
, "%s:%d:\tsymbol %s is part of choice %s\n",
876 menu
->file
->name
, menu
->lineno
,
877 sym
->name
? sym
->name
: "<choice>",
878 next_sym
->name
? next_sym
->name
: "<choice>");
880 fprintf(stderr
, "%s:%d:\tsymbol %s is selected by %s\n",
881 prop
->file
->name
, prop
->lineno
,
882 sym
->name
? sym
->name
: "<choice>",
883 next_sym
->name
? next_sym
->name
: "<choice>");
887 if (check_top
== &cv_stack
)
891 static struct symbol
*sym_check_expr_deps(struct expr
*e
)
900 sym
= sym_check_expr_deps(e
->left
.expr
);
903 return sym_check_expr_deps(e
->right
.expr
);
905 return sym_check_expr_deps(e
->left
.expr
);
908 sym
= sym_check_deps(e
->left
.sym
);
911 return sym_check_deps(e
->right
.sym
);
913 return sym_check_deps(e
->left
.sym
);
917 printf("Oops! How to check %d?\n", e
->type
);
921 /* return NULL when dependencies are OK */
922 static struct symbol
*sym_check_sym_deps(struct symbol
*sym
)
925 struct property
*prop
;
926 struct dep_stack stack
;
928 dep_stack_insert(&stack
, sym
);
930 sym2
= sym_check_expr_deps(sym
->rev_dep
.expr
);
934 for (prop
= sym
->prop
; prop
; prop
= prop
->next
) {
935 if (prop
->type
== P_CHOICE
|| prop
->type
== P_SELECT
)
938 sym2
= sym_check_expr_deps(prop
->visible
.expr
);
941 if (prop
->type
!= P_DEFAULT
|| sym_is_choice(sym
))
943 stack
.expr
= prop
->expr
;
944 sym2
= sym_check_expr_deps(prop
->expr
);
956 static struct symbol
*sym_check_choice_deps(struct symbol
*choice
)
958 struct symbol
*sym
, *sym2
;
959 struct property
*prop
;
961 struct dep_stack stack
;
963 dep_stack_insert(&stack
, choice
);
965 prop
= sym_get_choice_prop(choice
);
966 expr_list_for_each_sym(prop
->expr
, e
, sym
)
967 sym
->flags
|= (SYMBOL_CHECK
| SYMBOL_CHECKED
);
969 choice
->flags
|= (SYMBOL_CHECK
| SYMBOL_CHECKED
);
970 sym2
= sym_check_sym_deps(choice
);
971 choice
->flags
&= ~SYMBOL_CHECK
;
975 expr_list_for_each_sym(prop
->expr
, e
, sym
) {
976 sym2
= sym_check_sym_deps(sym
);
981 expr_list_for_each_sym(prop
->expr
, e
, sym
)
982 sym
->flags
&= ~SYMBOL_CHECK
;
984 if (sym2
&& sym_is_choice_value(sym2
) &&
985 prop_get_symbol(sym_get_choice_prop(sym2
)) == choice
)
993 struct symbol
*sym_check_deps(struct symbol
*sym
)
996 struct property
*prop
;
998 if (sym
->flags
& SYMBOL_CHECK
) {
999 sym_check_print_recursive(sym
);
1002 if (sym
->flags
& SYMBOL_CHECKED
)
1005 if (sym_is_choice_value(sym
)) {
1006 struct dep_stack stack
;
1008 /* for choice groups start the check with main choice symbol */
1009 dep_stack_insert(&stack
, sym
);
1010 prop
= sym_get_choice_prop(sym
);
1011 sym2
= sym_check_deps(prop_get_symbol(prop
));
1013 } else if (sym_is_choice(sym
)) {
1014 sym2
= sym_check_choice_deps(sym
);
1016 sym
->flags
|= (SYMBOL_CHECK
| SYMBOL_CHECKED
);
1017 sym2
= sym_check_sym_deps(sym
);
1018 sym
->flags
&= ~SYMBOL_CHECK
;
1021 if (sym2
&& sym2
== sym
)
1027 struct property
*prop_alloc(enum prop_type type
, struct symbol
*sym
)
1029 struct property
*prop
;
1030 struct property
**propp
;
1032 prop
= malloc(sizeof(*prop
));
1033 memset(prop
, 0, sizeof(*prop
));
1036 prop
->file
= current_file
;
1037 prop
->lineno
= zconf_lineno();
1039 /* append property to the prop list of symbol */
1041 for (propp
= &sym
->prop
; *propp
; propp
= &(*propp
)->next
)
1049 struct symbol
*prop_get_symbol(struct property
*prop
)
1051 if (prop
->expr
&& (prop
->expr
->type
== E_SYMBOL
||
1052 prop
->expr
->type
== E_LIST
))
1053 return prop
->expr
->left
.sym
;
1057 const char *prop_get_type_name(enum prop_type type
)
1084 static void prop_add_env(const char *env
)
1086 struct symbol
*sym
, *sym2
;
1087 struct property
*prop
;
1090 sym
= current_entry
->sym
;
1091 sym
->flags
|= SYMBOL_AUTO
;
1092 for_all_properties(sym
, prop
, P_ENV
) {
1093 sym2
= prop_get_symbol(prop
);
1094 if (strcmp(sym2
->name
, env
))
1095 menu_warn(current_entry
, "redefining environment symbol from %s",
1100 prop
= prop_alloc(P_ENV
, sym
);
1101 prop
->expr
= expr_alloc_symbol(sym_lookup(env
, SYMBOL_CONST
));
1103 sym_env_list
= expr_alloc_one(E_LIST
, sym_env_list
);
1104 sym_env_list
->right
.sym
= sym
;
1108 sym_add_default(sym
, p
);
1110 menu_warn(current_entry
, "environment variable %s undefined", env
);