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: %.*s",
379 (int)strcspn(line
, "\r\n"), line
);
384 if (sym
&& sym_is_choice_value(sym
)) {
385 struct symbol
*cs
= prop_get_symbol(sym_get_choice_prop(sym
));
386 switch (sym
->def
[def
].tri
) {
390 if (cs
->def
[def
].tri
== yes
) {
391 conf_warning("%s creates inconsistent choice state", sym
->name
);
392 cs
->flags
&= ~def_flags
;
396 if (cs
->def
[def
].tri
!= no
)
397 conf_warning("override: %s changes choice state", sym
->name
);
398 cs
->def
[def
].val
= sym
;
401 cs
->def
[def
].tri
= EXPR_OR(cs
->def
[def
].tri
, sym
->def
[def
].tri
);
409 int conf_read(const char *name
)
414 sym_set_change_count(0);
416 if (conf_read_simple(name
, S_DEF_USER
)) {
417 sym_calc_value(modules_sym
);
421 sym_calc_value(modules_sym
);
423 for_all_symbols(i
, sym
) {
425 if (sym_is_choice(sym
) || (sym
->flags
& SYMBOL_AUTO
))
427 if (sym_has_value(sym
) && (sym
->flags
& SYMBOL_WRITE
)) {
428 /* check that calculated value agrees with saved value */
432 if (sym
->def
[S_DEF_USER
].tri
!= sym_get_tristate_value(sym
))
434 if (!sym_is_choice(sym
))
438 if (!strcmp(sym
->curr
.val
, sym
->def
[S_DEF_USER
].val
))
442 } else if (!sym_has_value(sym
) && !(sym
->flags
& SYMBOL_WRITE
))
443 /* no previous value and not saved */
446 /* maybe print value in verbose mode... */
449 for_all_symbols(i
, sym
) {
450 if (sym_has_value(sym
) && !sym_is_choice_value(sym
)) {
451 /* Reset values of generates values, so they'll appear
452 * as new, if they should become visible, but that
453 * doesn't quite work if the Kconfig and the saved
454 * configuration disagree.
456 if (sym
->visible
== no
&& !conf_unsaved
)
457 sym
->flags
&= ~SYMBOL_DEF_USER
;
462 /* Reset a string value if it's out of range */
463 if (sym_string_within_range(sym
, sym
->def
[S_DEF_USER
].val
))
465 sym
->flags
&= ~(SYMBOL_VALID
|SYMBOL_DEF_USER
);
474 sym_add_change_count(conf_warnings
|| conf_unsaved
);
480 * Kconfig configuration printer
482 * This printer is used when generating the resulting configuration after
483 * kconfig invocation and `defconfig' files. Unset symbol might be omitted by
484 * passing a non-NULL argument to the printer.
488 kconfig_print_symbol(FILE *fp
, struct symbol
*sym
, const char *value
, void *arg
)
495 bool skip_unset
= (arg
!= NULL
);
498 fprintf(fp
, "# %s%s is not set\n",
507 fprintf(fp
, "%s%s=%s\n", CONFIG_
, sym
->name
, value
);
511 kconfig_print_comment(FILE *fp
, const char *value
, void *arg
)
513 const char *p
= value
;
517 l
= strcspn(p
, "\n");
521 xfwrite(p
, l
, 1, fp
);
530 static struct conf_printer kconfig_printer_cb
=
532 .print_symbol
= kconfig_print_symbol
,
533 .print_comment
= kconfig_print_comment
,
539 * This printer is used when generating the `include/generated/autoconf.h' file.
542 header_print_symbol(FILE *fp
, struct symbol
*sym
, const char *value
, void *arg
)
548 const char *suffix
= "";
557 fprintf(fp
, "#define %s%s%s 1\n",
558 CONFIG_
, sym
->name
, suffix
);
563 const char *prefix
= "";
565 if (value
[0] != '0' || (value
[1] != 'x' && value
[1] != 'X'))
567 fprintf(fp
, "#define %s%s %s%s\n",
568 CONFIG_
, sym
->name
, prefix
, value
);
573 fprintf(fp
, "#define %s%s %s\n",
574 CONFIG_
, sym
->name
, value
);
583 header_print_comment(FILE *fp
, const char *value
, void *arg
)
585 const char *p
= value
;
590 l
= strcspn(p
, "\n");
594 xfwrite(p
, l
, 1, fp
);
601 fprintf(fp
, " */\n");
604 static struct conf_printer header_printer_cb
=
606 .print_symbol
= header_print_symbol
,
607 .print_comment
= header_print_comment
,
613 * This printer is used when generating the `include/config/tristate.conf' file.
616 tristate_print_symbol(FILE *fp
, struct symbol
*sym
, const char *value
, void *arg
)
619 if (sym
->type
== S_TRISTATE
&& *value
!= 'n')
620 fprintf(fp
, "%s%s=%c\n", CONFIG_
, sym
->name
, (char)toupper(*value
));
623 static struct conf_printer tristate_printer_cb
=
625 .print_symbol
= tristate_print_symbol
,
626 .print_comment
= kconfig_print_comment
,
629 static void conf_write_symbol(FILE *fp
, struct symbol
*sym
,
630 struct conf_printer
*printer
, void *printer_arg
)
639 str
= sym_get_string_value(sym
);
640 str
= sym_escape_string_value(str
);
641 printer
->print_symbol(fp
, sym
, str
, printer_arg
);
645 str
= sym_get_string_value(sym
);
646 printer
->print_symbol(fp
, sym
, str
, printer_arg
);
651 conf_write_heading(FILE *fp
, struct conf_printer
*printer
, void *printer_arg
)
655 snprintf(buf
, sizeof(buf
),
657 "Automatically generated file; DO NOT EDIT.\n"
659 rootmenu
.prompt
->text
);
661 printer
->print_comment(fp
, buf
, printer_arg
);
665 * Write out a minimal config.
666 * All values that has default values are skipped as this is redundant.
668 int conf_write_defconfig(const char *filename
)
674 out
= fopen(filename
, "w");
678 sym_clear_all_valid();
680 /* Traverse all menus to find all relevant symbols */
681 menu
= rootmenu
.list
;
687 if (!menu_is_visible(menu
))
689 } else if (!sym_is_choice(sym
)) {
691 if (!(sym
->flags
& SYMBOL_WRITE
))
693 sym
->flags
&= ~SYMBOL_WRITE
;
694 /* If we cannot change the symbol - skip */
695 if (!sym_is_changable(sym
))
697 /* If symbol equals to default value - skip */
698 if (strcmp(sym_get_string_value(sym
), sym_get_string_default(sym
)) == 0)
702 * If symbol is a choice value and equals to the
703 * default for a choice - skip.
704 * But only if value is bool and equal to "y" and
705 * choice is not "optional".
706 * (If choice is "optional" then all values can be "n")
708 if (sym_is_choice_value(sym
)) {
712 cs
= prop_get_symbol(sym_get_choice_prop(sym
));
713 ds
= sym_choice_default(cs
);
714 if (!sym_is_optional(cs
) && sym
== ds
) {
715 if ((sym
->type
== S_BOOLEAN
) &&
716 sym_get_tristate_value(sym
) == yes
)
720 conf_write_symbol(out
, sym
, &kconfig_printer_cb
, NULL
);
723 if (menu
->list
!= NULL
) {
726 else if (menu
->next
!= NULL
) {
729 while ((menu
= menu
->parent
)) {
730 if (menu
->next
!= NULL
) {
741 int conf_write(const char *name
)
746 const char *basename
;
748 char dirname
[PATH_MAX
+1], tmpname
[PATH_MAX
+1], newname
[PATH_MAX
+1];
752 if (name
&& name
[0]) {
756 if (!stat(name
, &st
) && S_ISDIR(st
.st_mode
)) {
757 strcpy(dirname
, name
);
758 strcat(dirname
, "/");
759 basename
= conf_get_configname();
760 } else if ((slash
= strrchr(name
, '/'))) {
761 int size
= slash
- name
+ 1;
762 memcpy(dirname
, name
, size
);
765 basename
= slash
+ 1;
767 basename
= conf_get_configname();
771 basename
= conf_get_configname();
773 sprintf(newname
, "%s%s", dirname
, basename
);
774 env
= getenv("KCONFIG_OVERWRITECONFIG");
776 sprintf(tmpname
, "%s.tmpconfig.%d", dirname
, (int)getpid());
777 out
= fopen(tmpname
, "w");
780 out
= fopen(newname
, "w");
785 conf_write_heading(out
, &kconfig_printer_cb
, NULL
);
787 if (!conf_get_changed())
788 sym_clear_all_valid();
790 menu
= rootmenu
.list
;
794 if (!menu_is_visible(menu
))
796 str
= menu_get_prompt(menu
);
801 } else if (!(sym
->flags
& SYMBOL_CHOICE
)) {
803 if (!(sym
->flags
& SYMBOL_WRITE
))
805 sym
->flags
&= ~SYMBOL_WRITE
;
807 conf_write_symbol(out
, sym
, &kconfig_printer_cb
, NULL
);
817 else while ((menu
= menu
->parent
)) {
827 strcat(dirname
, basename
);
828 strcat(dirname
, ".old");
829 rename(newname
, dirname
);
830 if (rename(tmpname
, newname
))
834 conf_message(_("configuration written to %s"), newname
);
836 sym_set_change_count(0);
841 static int conf_split_config(void)
844 char path
[PATH_MAX
+1];
850 name
= conf_get_autoconfig_name();
851 conf_read_simple(name
, S_DEF_AUTO
);
852 sym_calc_value(modules_sym
);
854 if (chdir("include/config"))
858 for_all_symbols(i
, sym
) {
860 if ((sym
->flags
& SYMBOL_AUTO
) || !sym
->name
)
862 if (sym
->flags
& SYMBOL_WRITE
) {
863 if (sym
->flags
& SYMBOL_DEF_AUTO
) {
865 * symbol has old and new value,
871 if (sym_get_tristate_value(sym
) ==
872 sym
->def
[S_DEF_AUTO
].tri
)
878 if (!strcmp(sym_get_string_value(sym
),
879 sym
->def
[S_DEF_AUTO
].val
))
887 * If there is no old value, only 'no' (unset)
888 * is allowed as new value.
893 if (sym_get_tristate_value(sym
) == no
)
900 } else if (!(sym
->flags
& SYMBOL_DEF_AUTO
))
901 /* There is neither an old nor a new value. */
904 * There is an old value, but no new value ('no' (unset)
905 * isn't saved in auto.conf, so the old value is always
906 * different from 'no').
909 /* Replace all '_' and append ".h" */
914 *d
++ = (c
== '_') ? '/' : c
;
918 /* Assume directory path already exists. */
919 fd
= open(path
, O_WRONLY
| O_CREAT
| O_TRUNC
, 0644);
921 if (errno
!= ENOENT
) {
926 * Create directory components,
927 * unless they exist already.
930 while ((d
= strchr(d
, '/'))) {
932 if (stat(path
, &sb
) && mkdir(path
, 0755)) {
939 fd
= open(path
, O_WRONLY
| O_CREAT
| O_TRUNC
, 0644);
954 int conf_write_autoconf(void)
958 FILE *out
, *tristate
, *out_h
;
961 sym_clear_all_valid();
963 file_write_dep("include/config/auto.conf.cmd");
965 if (conf_split_config())
968 out
= fopen(".tmpconfig", "w");
972 tristate
= fopen(".tmpconfig_tristate", "w");
978 out_h
= fopen(".tmpconfig.h", "w");
985 conf_write_heading(out
, &kconfig_printer_cb
, NULL
);
987 conf_write_heading(tristate
, &tristate_printer_cb
, NULL
);
989 conf_write_heading(out_h
, &header_printer_cb
, NULL
);
991 for_all_symbols(i
, sym
) {
993 if (!(sym
->flags
& SYMBOL_WRITE
) || !sym
->name
)
996 /* write symbol to auto.conf, tristate and header files */
997 conf_write_symbol(out
, sym
, &kconfig_printer_cb
, (void *)1);
999 conf_write_symbol(tristate
, sym
, &tristate_printer_cb
, (void *)1);
1001 conf_write_symbol(out_h
, sym
, &header_printer_cb
, NULL
);
1007 name
= getenv("KCONFIG_AUTOHEADER");
1009 name
= "include/generated/autoconf.h";
1010 if (rename(".tmpconfig.h", name
))
1012 name
= getenv("KCONFIG_TRISTATE");
1014 name
= "include/config/tristate.conf";
1015 if (rename(".tmpconfig_tristate", name
))
1017 name
= conf_get_autoconfig_name();
1019 * This must be the last step, kbuild has a dependency on auto.conf
1020 * and this marks the successful completion of the previous steps.
1022 if (rename(".tmpconfig", name
))
1028 static int sym_change_count
;
1029 static void (*conf_changed_callback
)(void);
1031 void sym_set_change_count(int count
)
1033 int _sym_change_count
= sym_change_count
;
1034 sym_change_count
= count
;
1035 if (conf_changed_callback
&&
1036 (bool)_sym_change_count
!= (bool)count
)
1037 conf_changed_callback();
1040 void sym_add_change_count(int count
)
1042 sym_set_change_count(count
+ sym_change_count
);
1045 bool conf_get_changed(void)
1047 return sym_change_count
;
1050 void conf_set_changed_callback(void (*fn
)(void))
1052 conf_changed_callback
= fn
;
1055 static bool randomize_choice_values(struct symbol
*csym
)
1057 struct property
*prop
;
1063 * If choice is mod then we may have more items selected
1064 * and if no then no-one.
1065 * In both cases stop.
1067 if (csym
->curr
.tri
!= yes
)
1070 prop
= sym_get_choice_prop(csym
);
1072 /* count entries in choice block */
1074 expr_list_for_each_sym(prop
->expr
, e
, sym
)
1078 * find a random value and set it to yes,
1079 * set the rest to no so we have only one set
1081 def
= (rand() % cnt
);
1084 expr_list_for_each_sym(prop
->expr
, e
, sym
) {
1086 sym
->def
[S_DEF_USER
].tri
= yes
;
1087 csym
->def
[S_DEF_USER
].val
= sym
;
1090 sym
->def
[S_DEF_USER
].tri
= no
;
1092 sym
->flags
|= SYMBOL_DEF_USER
;
1093 /* clear VALID to get value calculated */
1094 sym
->flags
&= ~SYMBOL_VALID
;
1096 csym
->flags
|= SYMBOL_DEF_USER
;
1097 /* clear VALID to get value calculated */
1098 csym
->flags
&= ~(SYMBOL_VALID
);
1103 void set_all_choice_values(struct symbol
*csym
)
1105 struct property
*prop
;
1109 prop
= sym_get_choice_prop(csym
);
1112 * Set all non-assinged choice values to no
1114 expr_list_for_each_sym(prop
->expr
, e
, sym
) {
1115 if (!sym_has_value(sym
))
1116 sym
->def
[S_DEF_USER
].tri
= no
;
1118 csym
->flags
|= SYMBOL_DEF_USER
;
1119 /* clear VALID to get value calculated */
1120 csym
->flags
&= ~(SYMBOL_VALID
| SYMBOL_NEED_SET_CHOICE_VALUES
);
1123 bool conf_set_all_new_symbols(enum conf_def_mode mode
)
1125 struct symbol
*sym
, *csym
;
1126 int i
, cnt
, pby
, pty
, ptm
; /* pby: probability of boolean = y
1127 * pty: probability of tristate = y
1128 * ptm: probability of tristate = m
1131 pby
= 50; pty
= ptm
= 33; /* can't go as the default in switch-case
1132 * below, otherwise gcc whines about
1133 * -Wmaybe-uninitialized */
1134 if (mode
== def_random
) {
1136 char *env
= getenv("KCONFIG_PROBABILITY");
1138 while( env
&& *env
) {
1140 int tmp
= strtol( env
, &endp
, 10 );
1141 if( tmp
>= 0 && tmp
<= 100 ) {
1145 perror( "KCONFIG_PROBABILITY" );
1148 env
= (*endp
== ':') ? endp
+1 : endp
;
1155 pby
= p
[0]; ptm
= pby
/2; pty
= pby
-ptm
;
1158 pty
= p
[0]; ptm
= p
[1]; pby
= pty
+ ptm
;
1161 pby
= p
[0]; pty
= p
[1]; ptm
= p
[2];
1165 if( pty
+ptm
> 100 ) {
1167 perror( "KCONFIG_PROBABILITY" );
1171 bool has_changed
= false;
1173 for_all_symbols(i
, sym
) {
1174 if (sym_has_value(sym
) || (sym
->flags
& SYMBOL_VALID
))
1176 switch (sym_get_type(sym
)) {
1182 sym
->def
[S_DEF_USER
].tri
= yes
;
1185 sym
->def
[S_DEF_USER
].tri
= mod
;
1188 if (sym
->flags
& SYMBOL_ALLNOCONFIG_Y
)
1189 sym
->def
[S_DEF_USER
].tri
= yes
;
1191 sym
->def
[S_DEF_USER
].tri
= no
;
1194 sym
->def
[S_DEF_USER
].tri
= no
;
1196 if (sym
->type
== S_TRISTATE
) {
1198 sym
->def
[S_DEF_USER
].tri
= yes
;
1199 else if (cnt
< (pty
+ptm
))
1200 sym
->def
[S_DEF_USER
].tri
= mod
;
1201 } else if (cnt
< pby
)
1202 sym
->def
[S_DEF_USER
].tri
= yes
;
1207 if (!(sym_is_choice(sym
) && mode
== def_random
))
1208 sym
->flags
|= SYMBOL_DEF_USER
;
1216 sym_clear_all_valid();
1219 * We have different type of choice blocks.
1220 * If curr.tri equals to mod then we can select several
1221 * choice symbols in one block.
1222 * In this case we do nothing.
1223 * If curr.tri equals yes then only one symbol can be
1224 * selected in a choice block and we set it to yes,
1225 * and the rest to no.
1227 if (mode
!= def_random
) {
1228 for_all_symbols(i
, csym
) {
1229 if ((sym_is_choice(csym
) && !sym_has_value(csym
)) ||
1230 sym_is_choice_value(csym
))
1231 csym
->flags
|= SYMBOL_NEED_SET_CHOICE_VALUES
;
1235 for_all_symbols(i
, csym
) {
1236 if (sym_has_value(csym
) || !sym_is_choice(csym
))
1239 sym_calc_value(csym
);
1240 if (mode
== def_random
)
1241 has_changed
= randomize_choice_values(csym
);
1243 set_all_choice_values(csym
);