2 * Copyright (C) 2002 Roman Zippel <zippel@linux-m68k.org>
3 * Released under the terms of the GNU GPL v2.0.
20 void (*print_symbol
)(FILE *, struct symbol
*, const char *, void *);
21 void (*print_comment
)(FILE *, const char *, void *);
24 static void conf_warning(const char *fmt
, ...)
25 __attribute__ ((format (printf
, 1, 2)));
27 static void conf_message(const char *fmt
, ...)
28 __attribute__ ((format (printf
, 1, 2)));
30 static const char *conf_filename
;
31 static int conf_lineno
, conf_warnings
, conf_unsaved
;
33 const char conf_defname
[] = "arch/$ARCH/defconfig";
35 static void conf_warning(const char *fmt
, ...)
39 fprintf(stderr
, "%s:%d:warning: ", conf_filename
, conf_lineno
);
40 vfprintf(stderr
, fmt
, ap
);
41 fprintf(stderr
, "\n");
46 static void conf_default_message_callback(const char *fmt
, va_list ap
)
53 static void (*conf_message_callback
) (const char *fmt
, va_list ap
) =
54 conf_default_message_callback
;
55 void conf_set_message_callback(void (*fn
) (const char *fmt
, va_list ap
))
57 conf_message_callback
= fn
;
60 static void conf_message(const char *fmt
, ...)
65 if (conf_message_callback
)
66 conf_message_callback(fmt
, ap
);
70 const char *conf_get_configname(void)
72 char *name
= getenv("KCONFIG_CONFIG");
74 return name
? name
: ".config";
77 const char *conf_get_autoconfig_name(void)
79 char *name
= getenv("KCONFIG_AUTOCONFIG");
81 return name
? name
: "include/config/auto.conf";
84 static char *conf_expand_value(const char *in
)
88 static char res_value
[SYMBOL_MAXLENGTH
];
89 char *dst
, name
[SYMBOL_MAXLENGTH
];
93 while ((src
= strchr(in
, '$'))) {
94 strncat(res_value
, in
, src
- in
);
97 while (isalnum(*src
) || *src
== '_')
100 sym
= sym_lookup(name
, 0);
102 strcat(res_value
, sym_get_string_value(sym
));
105 strcat(res_value
, in
);
110 char *conf_get_default_confname(void)
113 static char fullname
[PATH_MAX
+1];
116 name
= conf_expand_value(conf_defname
);
117 env
= getenv(SRCTREE
);
119 sprintf(fullname
, "%s/%s", env
, name
);
120 if (!stat(fullname
, &buf
))
126 static int conf_set_sym_val(struct symbol
*sym
, int def
, int def_flags
, char *p
)
133 sym
->def
[def
].tri
= mod
;
134 sym
->flags
|= def_flags
;
140 sym
->def
[def
].tri
= yes
;
141 sym
->flags
|= def_flags
;
145 sym
->def
[def
].tri
= no
;
146 sym
->flags
|= def_flags
;
149 if (def
!= S_DEF_AUTO
)
150 conf_warning("symbol value '%s' invalid for %s",
155 for (p2
= p
; *p2
&& !isspace(*p2
); p2
++)
157 sym
->type
= S_STRING
;
164 for (p2
= p
; (p2
= strpbrk(p2
, "\"\\")); p2
++) {
169 memmove(p2
, p2
+ 1, strlen(p2
));
172 if (def
!= S_DEF_AUTO
)
173 conf_warning("invalid string found");
180 if (sym_string_valid(sym
, p
)) {
181 sym
->def
[def
].val
= strdup(p
);
182 sym
->flags
|= def_flags
;
184 if (def
!= S_DEF_AUTO
)
185 conf_warning("symbol value '%s' invalid for %s",
196 #define LINE_GROWTH 16
197 static int add_byte(int c
, char **lineptr
, size_t slen
, size_t *n
)
200 size_t new_size
= slen
+ 1;
202 new_size
+= LINE_GROWTH
- 1;
204 nline
= realloc(*lineptr
, new_size
);
212 (*lineptr
)[slen
] = c
;
217 static ssize_t
compat_getline(char **lineptr
, size_t *n
, FILE *stream
)
219 char *line
= *lineptr
;
223 int c
= getc(stream
);
227 if (add_byte(c
, &line
, slen
, n
) < 0)
232 if (add_byte('\0', &line
, slen
, n
) < 0)
239 if (add_byte(c
, &line
, slen
, n
) < 0)
251 int conf_read_simple(const char *name
, int def
)
255 size_t line_asize
= 0;
261 in
= zconf_fopen(name
);
263 struct property
*prop
;
265 name
= conf_get_configname();
266 in
= zconf_fopen(name
);
269 sym_add_change_count(1);
270 if (!sym_defconfig_list
)
273 for_all_defaults(sym_defconfig_list
, prop
) {
274 if (expr_calc_value(prop
->visible
.expr
) == no
||
275 prop
->expr
->type
!= E_SYMBOL
)
277 name
= conf_expand_value(prop
->expr
->left
.sym
->name
);
278 in
= zconf_fopen(name
);
280 conf_message(_("using defaults found in %s"),
290 conf_filename
= name
;
295 def_flags
= SYMBOL_DEF
<< def
;
296 for_all_symbols(i
, sym
) {
297 sym
->flags
|= SYMBOL_CHANGED
;
298 sym
->flags
&= ~(def_flags
|SYMBOL_VALID
);
299 if (sym_is_choice(sym
))
300 sym
->flags
|= def_flags
;
305 if (sym
->def
[def
].val
)
306 free(sym
->def
[def
].val
);
309 sym
->def
[def
].val
= NULL
;
310 sym
->def
[def
].tri
= no
;
314 while (compat_getline(&line
, &line_asize
, in
) != -1) {
317 if (line
[0] == '#') {
318 if (memcmp(line
+ 2, CONFIG_
, strlen(CONFIG_
)))
320 p
= strchr(line
+ 2 + strlen(CONFIG_
), ' ');
324 if (strncmp(p
, "is not set", 10))
326 if (def
== S_DEF_USER
) {
327 sym
= sym_find(line
+ 2 + strlen(CONFIG_
));
329 sym_add_change_count(1);
333 sym
= sym_lookup(line
+ 2 + strlen(CONFIG_
), 0);
334 if (sym
->type
== S_UNKNOWN
)
335 sym
->type
= S_BOOLEAN
;
337 if (sym
->flags
& def_flags
) {
338 conf_warning("override: reassigning to symbol %s", sym
->name
);
343 sym
->def
[def
].tri
= no
;
344 sym
->flags
|= def_flags
;
349 } else if (memcmp(line
, CONFIG_
, strlen(CONFIG_
)) == 0) {
350 p
= strchr(line
+ strlen(CONFIG_
), '=');
354 p2
= strchr(p
, '\n');
360 if (def
== S_DEF_USER
) {
361 sym
= sym_find(line
+ strlen(CONFIG_
));
363 sym_add_change_count(1);
367 sym
= sym_lookup(line
+ strlen(CONFIG_
), 0);
368 if (sym
->type
== S_UNKNOWN
)
371 if (sym
->flags
& def_flags
) {
372 conf_warning("override: reassigning to symbol %s", sym
->name
);
374 if (conf_set_sym_val(sym
, def
, def_flags
, p
))
377 if (line
[0] != '\r' && line
[0] != '\n')
378 conf_warning("unexpected data");
382 if (sym
&& sym_is_choice_value(sym
)) {
383 struct symbol
*cs
= prop_get_symbol(sym_get_choice_prop(sym
));
384 switch (sym
->def
[def
].tri
) {
388 if (cs
->def
[def
].tri
== yes
) {
389 conf_warning("%s creates inconsistent choice state", sym
->name
);
390 cs
->flags
&= ~def_flags
;
394 if (cs
->def
[def
].tri
!= no
)
395 conf_warning("override: %s changes choice state", sym
->name
);
396 cs
->def
[def
].val
= sym
;
399 cs
->def
[def
].tri
= EXPR_OR(cs
->def
[def
].tri
, sym
->def
[def
].tri
);
407 int conf_read(const char *name
)
412 sym_set_change_count(0);
414 if (conf_read_simple(name
, S_DEF_USER
)) {
415 sym_calc_value(modules_sym
);
419 sym_calc_value(modules_sym
);
421 for_all_symbols(i
, sym
) {
423 if (sym_is_choice(sym
) || (sym
->flags
& SYMBOL_AUTO
))
425 if (sym_has_value(sym
) && (sym
->flags
& SYMBOL_WRITE
)) {
426 /* check that calculated value agrees with saved value */
430 if (sym
->def
[S_DEF_USER
].tri
!= sym_get_tristate_value(sym
))
432 if (!sym_is_choice(sym
))
436 if (!strcmp(sym
->curr
.val
, sym
->def
[S_DEF_USER
].val
))
440 } else if (!sym_has_value(sym
) && !(sym
->flags
& SYMBOL_WRITE
))
441 /* no previous value and not saved */
444 /* maybe print value in verbose mode... */
447 for_all_symbols(i
, sym
) {
448 if (sym_has_value(sym
) && !sym_is_choice_value(sym
)) {
449 /* Reset values of generates values, so they'll appear
450 * as new, if they should become visible, but that
451 * doesn't quite work if the Kconfig and the saved
452 * configuration disagree.
454 if (sym
->visible
== no
&& !conf_unsaved
)
455 sym
->flags
&= ~SYMBOL_DEF_USER
;
460 /* Reset a string value if it's out of range */
461 if (sym_string_within_range(sym
, sym
->def
[S_DEF_USER
].val
))
463 sym
->flags
&= ~(SYMBOL_VALID
|SYMBOL_DEF_USER
);
472 sym_add_change_count(conf_warnings
|| conf_unsaved
);
478 * Kconfig configuration printer
480 * This printer is used when generating the resulting configuration after
481 * kconfig invocation and `defconfig' files. Unset symbol might be omitted by
482 * passing a non-NULL argument to the printer.
486 kconfig_print_symbol(FILE *fp
, struct symbol
*sym
, const char *value
, void *arg
)
493 bool skip_unset
= (arg
!= NULL
);
496 fprintf(fp
, "# %s%s is not set\n",
505 fprintf(fp
, "%s%s=%s\n", CONFIG_
, sym
->name
, value
);
509 kconfig_print_comment(FILE *fp
, const char *value
, void *arg
)
511 const char *p
= value
;
515 l
= strcspn(p
, "\n");
519 xfwrite(p
, l
, 1, fp
);
528 static struct conf_printer kconfig_printer_cb
=
530 .print_symbol
= kconfig_print_symbol
,
531 .print_comment
= kconfig_print_comment
,
537 * This printer is used when generating the `include/generated/autoconf.h' file.
540 header_print_symbol(FILE *fp
, struct symbol
*sym
, const char *value
, void *arg
)
546 const char *suffix
= "";
555 fprintf(fp
, "#define %s%s%s 1\n",
556 CONFIG_
, sym
->name
, suffix
);
561 const char *prefix
= "";
563 if (value
[0] != '0' || (value
[1] != 'x' && value
[1] != 'X'))
565 fprintf(fp
, "#define %s%s %s%s\n",
566 CONFIG_
, sym
->name
, prefix
, value
);
571 fprintf(fp
, "#define %s%s %s\n",
572 CONFIG_
, sym
->name
, value
);
581 header_print_comment(FILE *fp
, const char *value
, void *arg
)
583 const char *p
= value
;
588 l
= strcspn(p
, "\n");
592 xfwrite(p
, l
, 1, fp
);
599 fprintf(fp
, " */\n");
602 static struct conf_printer header_printer_cb
=
604 .print_symbol
= header_print_symbol
,
605 .print_comment
= header_print_comment
,
611 * This printer is used when generating the `include/config/tristate.conf' file.
614 tristate_print_symbol(FILE *fp
, struct symbol
*sym
, const char *value
, void *arg
)
617 if (sym
->type
== S_TRISTATE
&& *value
!= 'n')
618 fprintf(fp
, "%s%s=%c\n", CONFIG_
, sym
->name
, (char)toupper(*value
));
621 static struct conf_printer tristate_printer_cb
=
623 .print_symbol
= tristate_print_symbol
,
624 .print_comment
= kconfig_print_comment
,
627 static void conf_write_symbol(FILE *fp
, struct symbol
*sym
,
628 struct conf_printer
*printer
, void *printer_arg
)
637 str
= sym_get_string_value(sym
);
638 str
= sym_escape_string_value(str
);
639 printer
->print_symbol(fp
, sym
, str
, printer_arg
);
643 str
= sym_get_string_value(sym
);
644 printer
->print_symbol(fp
, sym
, str
, printer_arg
);
649 conf_write_heading(FILE *fp
, struct conf_printer
*printer
, void *printer_arg
)
653 snprintf(buf
, sizeof(buf
),
655 "Automatically generated file; DO NOT EDIT.\n"
657 rootmenu
.prompt
->text
);
659 printer
->print_comment(fp
, buf
, printer_arg
);
663 * Write out a minimal config.
664 * All values that has default values are skipped as this is redundant.
666 int conf_write_defconfig(const char *filename
)
672 out
= fopen(filename
, "w");
676 sym_clear_all_valid();
678 /* Traverse all menus to find all relevant symbols */
679 menu
= rootmenu
.list
;
685 if (!menu_is_visible(menu
))
687 } else if (!sym_is_choice(sym
)) {
689 if (!(sym
->flags
& SYMBOL_WRITE
))
691 sym
->flags
&= ~SYMBOL_WRITE
;
692 /* If we cannot change the symbol - skip */
693 if (!sym_is_changable(sym
))
695 /* If symbol equals to default value - skip */
696 if (strcmp(sym_get_string_value(sym
), sym_get_string_default(sym
)) == 0)
700 * If symbol is a choice value and equals to the
701 * default for a choice - skip.
702 * But only if value is bool and equal to "y" and
703 * choice is not "optional".
704 * (If choice is "optional" then all values can be "n")
706 if (sym_is_choice_value(sym
)) {
710 cs
= prop_get_symbol(sym_get_choice_prop(sym
));
711 ds
= sym_choice_default(cs
);
712 if (!sym_is_optional(cs
) && sym
== ds
) {
713 if ((sym
->type
== S_BOOLEAN
) &&
714 sym_get_tristate_value(sym
) == yes
)
718 conf_write_symbol(out
, sym
, &kconfig_printer_cb
, NULL
);
721 if (menu
->list
!= NULL
) {
724 else if (menu
->next
!= NULL
) {
727 while ((menu
= menu
->parent
)) {
728 if (menu
->next
!= NULL
) {
739 int conf_write(const char *name
)
744 const char *basename
;
746 char dirname
[PATH_MAX
+1], tmpname
[PATH_MAX
+1], newname
[PATH_MAX
+1];
750 if (name
&& name
[0]) {
754 if (!stat(name
, &st
) && S_ISDIR(st
.st_mode
)) {
755 strcpy(dirname
, name
);
756 strcat(dirname
, "/");
757 basename
= conf_get_configname();
758 } else if ((slash
= strrchr(name
, '/'))) {
759 int size
= slash
- name
+ 1;
760 memcpy(dirname
, name
, size
);
763 basename
= slash
+ 1;
765 basename
= conf_get_configname();
769 basename
= conf_get_configname();
771 sprintf(newname
, "%s%s", dirname
, basename
);
772 env
= getenv("KCONFIG_OVERWRITECONFIG");
774 sprintf(tmpname
, "%s.tmpconfig.%d", dirname
, (int)getpid());
775 out
= fopen(tmpname
, "w");
778 out
= fopen(newname
, "w");
783 conf_write_heading(out
, &kconfig_printer_cb
, NULL
);
785 if (!conf_get_changed())
786 sym_clear_all_valid();
788 menu
= rootmenu
.list
;
792 if (!menu_is_visible(menu
))
794 str
= menu_get_prompt(menu
);
799 } else if (!(sym
->flags
& SYMBOL_CHOICE
)) {
801 if (!(sym
->flags
& SYMBOL_WRITE
))
803 sym
->flags
&= ~SYMBOL_WRITE
;
805 conf_write_symbol(out
, sym
, &kconfig_printer_cb
, NULL
);
815 else while ((menu
= menu
->parent
)) {
825 strcat(dirname
, basename
);
826 strcat(dirname
, ".old");
827 rename(newname
, dirname
);
828 if (rename(tmpname
, newname
))
832 conf_message(_("configuration written to %s"), newname
);
834 sym_set_change_count(0);
839 static int conf_split_config(void)
842 char path
[PATH_MAX
+1];
848 name
= conf_get_autoconfig_name();
849 conf_read_simple(name
, S_DEF_AUTO
);
850 sym_calc_value(modules_sym
);
852 if (chdir("include/config"))
856 for_all_symbols(i
, sym
) {
858 if ((sym
->flags
& SYMBOL_AUTO
) || !sym
->name
)
860 if (sym
->flags
& SYMBOL_WRITE
) {
861 if (sym
->flags
& SYMBOL_DEF_AUTO
) {
863 * symbol has old and new value,
869 if (sym_get_tristate_value(sym
) ==
870 sym
->def
[S_DEF_AUTO
].tri
)
876 if (!strcmp(sym_get_string_value(sym
),
877 sym
->def
[S_DEF_AUTO
].val
))
885 * If there is no old value, only 'no' (unset)
886 * is allowed as new value.
891 if (sym_get_tristate_value(sym
) == no
)
898 } else if (!(sym
->flags
& SYMBOL_DEF_AUTO
))
899 /* There is neither an old nor a new value. */
902 * There is an old value, but no new value ('no' (unset)
903 * isn't saved in auto.conf, so the old value is always
904 * different from 'no').
907 /* Replace all '_' and append ".h" */
912 *d
++ = (c
== '_') ? '/' : c
;
916 /* Assume directory path already exists. */
917 fd
= open(path
, O_WRONLY
| O_CREAT
| O_TRUNC
, 0644);
919 if (errno
!= ENOENT
) {
924 * Create directory components,
925 * unless they exist already.
928 while ((d
= strchr(d
, '/'))) {
930 if (stat(path
, &sb
) && mkdir(path
, 0755)) {
937 fd
= open(path
, O_WRONLY
| O_CREAT
| O_TRUNC
, 0644);
952 int conf_write_autoconf(void)
956 FILE *out
, *tristate
, *out_h
;
959 sym_clear_all_valid();
961 file_write_dep("include/config/auto.conf.cmd");
963 if (conf_split_config())
966 out
= fopen(".tmpconfig", "w");
970 tristate
= fopen(".tmpconfig_tristate", "w");
976 out_h
= fopen(".tmpconfig.h", "w");
983 conf_write_heading(out
, &kconfig_printer_cb
, NULL
);
985 conf_write_heading(tristate
, &tristate_printer_cb
, NULL
);
987 conf_write_heading(out_h
, &header_printer_cb
, NULL
);
989 for_all_symbols(i
, sym
) {
991 if (!(sym
->flags
& SYMBOL_WRITE
) || !sym
->name
)
994 /* write symbol to auto.conf, tristate and header files */
995 conf_write_symbol(out
, sym
, &kconfig_printer_cb
, (void *)1);
997 conf_write_symbol(tristate
, sym
, &tristate_printer_cb
, (void *)1);
999 conf_write_symbol(out_h
, sym
, &header_printer_cb
, NULL
);
1005 name
= getenv("KCONFIG_AUTOHEADER");
1007 name
= "include/generated/autoconf.h";
1008 if (rename(".tmpconfig.h", name
))
1010 name
= getenv("KCONFIG_TRISTATE");
1012 name
= "include/config/tristate.conf";
1013 if (rename(".tmpconfig_tristate", name
))
1015 name
= conf_get_autoconfig_name();
1017 * This must be the last step, kbuild has a dependency on auto.conf
1018 * and this marks the successful completion of the previous steps.
1020 if (rename(".tmpconfig", name
))
1026 static int sym_change_count
;
1027 static void (*conf_changed_callback
)(void);
1029 void sym_set_change_count(int count
)
1031 int _sym_change_count
= sym_change_count
;
1032 sym_change_count
= count
;
1033 if (conf_changed_callback
&&
1034 (bool)_sym_change_count
!= (bool)count
)
1035 conf_changed_callback();
1038 void sym_add_change_count(int count
)
1040 sym_set_change_count(count
+ sym_change_count
);
1043 bool conf_get_changed(void)
1045 return sym_change_count
;
1048 void conf_set_changed_callback(void (*fn
)(void))
1050 conf_changed_callback
= fn
;
1053 static bool randomize_choice_values(struct symbol
*csym
)
1055 struct property
*prop
;
1061 * If choice is mod then we may have more items selected
1062 * and if no then no-one.
1063 * In both cases stop.
1065 if (csym
->curr
.tri
!= yes
)
1068 prop
= sym_get_choice_prop(csym
);
1070 /* count entries in choice block */
1072 expr_list_for_each_sym(prop
->expr
, e
, sym
)
1076 * find a random value and set it to yes,
1077 * set the rest to no so we have only one set
1079 def
= (rand() % cnt
);
1082 expr_list_for_each_sym(prop
->expr
, e
, sym
) {
1084 sym
->def
[S_DEF_USER
].tri
= yes
;
1085 csym
->def
[S_DEF_USER
].val
= sym
;
1088 sym
->def
[S_DEF_USER
].tri
= no
;
1090 sym
->flags
|= SYMBOL_DEF_USER
;
1091 /* clear VALID to get value calculated */
1092 sym
->flags
&= ~SYMBOL_VALID
;
1094 csym
->flags
|= SYMBOL_DEF_USER
;
1095 /* clear VALID to get value calculated */
1096 csym
->flags
&= ~(SYMBOL_VALID
);
1101 void set_all_choice_values(struct symbol
*csym
)
1103 struct property
*prop
;
1107 prop
= sym_get_choice_prop(csym
);
1110 * Set all non-assinged choice values to no
1112 expr_list_for_each_sym(prop
->expr
, e
, sym
) {
1113 if (!sym_has_value(sym
))
1114 sym
->def
[S_DEF_USER
].tri
= no
;
1116 csym
->flags
|= SYMBOL_DEF_USER
;
1117 /* clear VALID to get value calculated */
1118 csym
->flags
&= ~(SYMBOL_VALID
| SYMBOL_NEED_SET_CHOICE_VALUES
);
1121 bool conf_set_all_new_symbols(enum conf_def_mode mode
)
1123 struct symbol
*sym
, *csym
;
1124 int i
, cnt
, pby
, pty
, ptm
; /* pby: probability of boolean = y
1125 * pty: probability of tristate = y
1126 * ptm: probability of tristate = m
1129 pby
= 50; pty
= ptm
= 33; /* can't go as the default in switch-case
1130 * below, otherwise gcc whines about
1131 * -Wmaybe-uninitialized */
1132 if (mode
== def_random
) {
1134 char *env
= getenv("KCONFIG_PROBABILITY");
1136 while( env
&& *env
) {
1138 int tmp
= strtol( env
, &endp
, 10 );
1139 if( tmp
>= 0 && tmp
<= 100 ) {
1143 perror( "KCONFIG_PROBABILITY" );
1146 env
= (*endp
== ':') ? endp
+1 : endp
;
1153 pby
= p
[0]; ptm
= pby
/2; pty
= pby
-ptm
;
1156 pty
= p
[0]; ptm
= p
[1]; pby
= pty
+ ptm
;
1159 pby
= p
[0]; pty
= p
[1]; ptm
= p
[2];
1163 if( pty
+ptm
> 100 ) {
1165 perror( "KCONFIG_PROBABILITY" );
1169 bool has_changed
= false;
1171 for_all_symbols(i
, sym
) {
1172 if (sym_has_value(sym
) || (sym
->flags
& SYMBOL_VALID
))
1174 switch (sym_get_type(sym
)) {
1180 sym
->def
[S_DEF_USER
].tri
= yes
;
1183 sym
->def
[S_DEF_USER
].tri
= mod
;
1186 if (sym
->flags
& SYMBOL_ALLNOCONFIG_Y
)
1187 sym
->def
[S_DEF_USER
].tri
= yes
;
1189 sym
->def
[S_DEF_USER
].tri
= no
;
1192 sym
->def
[S_DEF_USER
].tri
= no
;
1194 if (sym
->type
== S_TRISTATE
) {
1196 sym
->def
[S_DEF_USER
].tri
= yes
;
1197 else if (cnt
< (pty
+ptm
))
1198 sym
->def
[S_DEF_USER
].tri
= mod
;
1199 } else if (cnt
< pby
)
1200 sym
->def
[S_DEF_USER
].tri
= yes
;
1205 if (!(sym_is_choice(sym
) && mode
== def_random
))
1206 sym
->flags
|= SYMBOL_DEF_USER
;
1214 sym_clear_all_valid();
1217 * We have different type of choice blocks.
1218 * If curr.tri equals to mod then we can select several
1219 * choice symbols in one block.
1220 * In this case we do nothing.
1221 * If curr.tri equals yes then only one symbol can be
1222 * selected in a choice block and we set it to yes,
1223 * and the rest to no.
1225 if (mode
!= def_random
) {
1226 for_all_symbols(i
, csym
) {
1227 if ((sym_is_choice(csym
) && !sym_has_value(csym
)) ||
1228 sym_is_choice_value(csym
))
1229 csym
->flags
|= SYMBOL_NEED_SET_CHOICE_VALUES
;
1233 for_all_symbols(i
, csym
) {
1234 if (sym_has_value(csym
) || !sym_is_choice(csym
))
1237 sym_calc_value(csym
);
1238 if (mode
== def_random
)
1239 has_changed
= randomize_choice_values(csym
);
1241 set_all_choice_values(csym
);