Linux Audio

Check our new training course

Loading...
v5.14.15
  1// SPDX-License-Identifier: GPL-2.0
  2/*
  3 * Copyright (C) 2002 Roman Zippel <zippel@linux-m68k.org>
 
  4 */
  5
 
  6#include <ctype.h>
  7#include <limits.h>
  8#include <stdio.h>
  9#include <stdlib.h>
 10#include <string.h>
 11#include <time.h>
 12#include <unistd.h>
 13#include <getopt.h>
 
 14#include <sys/time.h>
 15#include <errno.h>
 16
 17#include "lkc.h"
 18
 19static void conf(struct menu *menu);
 20static void check_conf(struct menu *menu);
 
 21
 22enum input_mode {
 23	oldaskconfig,
 24	syncconfig,
 25	oldconfig,
 26	allnoconfig,
 27	allyesconfig,
 28	allmodconfig,
 29	alldefconfig,
 30	randconfig,
 31	defconfig,
 32	savedefconfig,
 33	listnewconfig,
 34	helpnewconfig,
 35	olddefconfig,
 36	yes2modconfig,
 37	mod2yesconfig,
 38};
 39static enum input_mode input_mode = oldaskconfig;
 40static int input_mode_opt;
 41static int indent = 1;
 42static int tty_stdio;
 
 43static int sync_kconfig;
 44static int conf_cnt;
 45static char line[PATH_MAX];
 46static struct menu *rootEntry;
 47
 48static void print_help(struct menu *menu)
 49{
 50	struct gstr help = str_new();
 51
 52	menu_get_ext_help(menu, &help);
 53
 54	printf("\n%s\n", str_get(&help));
 55	str_free(&help);
 56}
 57
 58static void strip(char *str)
 59{
 60	char *p = str;
 61	int l;
 62
 63	while ((isspace(*p)))
 64		p++;
 65	l = strlen(p);
 66	if (p != str)
 67		memmove(str, p, l + 1);
 68	if (!l)
 69		return;
 70	p = str + l - 1;
 71	while ((isspace(*p)))
 72		*p-- = 0;
 73}
 74
 75/* Helper function to facilitate fgets() by Jean Sacren. */
 76static void xfgets(char *str, int size, FILE *in)
 77{
 78	if (!fgets(str, size, in))
 79		fprintf(stderr, "\nError in reading or end of file.\n");
 80
 81	if (!tty_stdio)
 82		printf("%s", str);
 83}
 84
 85static void set_randconfig_seed(void)
 86{
 87	unsigned int seed;
 88	char *env;
 89	bool seed_set = false;
 90
 91	env = getenv("KCONFIG_SEED");
 92	if (env && *env) {
 93		char *endp;
 94
 95		seed = strtol(env, &endp, 0);
 96		if (*endp == '\0')
 97			seed_set = true;
 98	}
 99
100	if (!seed_set) {
101		struct timeval now;
102
103		/*
104		 * Use microseconds derived seed, compensate for systems where it may
105		 * be zero.
106		 */
107		gettimeofday(&now, NULL);
108		seed = (now.tv_sec + 1) * (now.tv_usec + 1);
109	}
110
111	printf("KCONFIG_SEED=0x%X\n", seed);
112	srand(seed);
113}
114
115static bool randomize_choice_values(struct symbol *csym)
116{
117	struct property *prop;
118	struct symbol *sym;
119	struct expr *e;
120	int cnt, def;
121
122	/*
123	 * If choice is mod then we may have more items selected
124	 * and if no then no-one.
125	 * In both cases stop.
126	 */
127	if (csym->curr.tri != yes)
128		return false;
129
130	prop = sym_get_choice_prop(csym);
131
132	/* count entries in choice block */
133	cnt = 0;
134	expr_list_for_each_sym(prop->expr, e, sym)
135		cnt++;
136
137	/*
138	 * find a random value and set it to yes,
139	 * set the rest to no so we have only one set
140	 */
141	def = rand() % cnt;
142
143	cnt = 0;
144	expr_list_for_each_sym(prop->expr, e, sym) {
145		if (def == cnt++) {
146			sym->def[S_DEF_USER].tri = yes;
147			csym->def[S_DEF_USER].val = sym;
148		} else {
149			sym->def[S_DEF_USER].tri = no;
150		}
151		sym->flags |= SYMBOL_DEF_USER;
152		/* clear VALID to get value calculated */
153		sym->flags &= ~SYMBOL_VALID;
154	}
155	csym->flags |= SYMBOL_DEF_USER;
156	/* clear VALID to get value calculated */
157	csym->flags &= ~SYMBOL_VALID;
158
159	return true;
160}
161
162enum conf_def_mode {
163	def_default,
164	def_yes,
165	def_mod,
166	def_y2m,
167	def_m2y,
168	def_no,
169	def_random
170};
171
172static bool conf_set_all_new_symbols(enum conf_def_mode mode)
173{
174	struct symbol *sym, *csym;
175	int i, cnt;
176	/*
177	 * can't go as the default in switch-case below, otherwise gcc whines
178	 * about -Wmaybe-uninitialized
179	 */
180	int pby = 50; /* probability of bool     = y */
181	int pty = 33; /* probability of tristate = y */
182	int ptm = 33; /* probability of tristate = m */
183	bool has_changed = false;
184
185	if (mode == def_random) {
186		int n, p[3];
187		char *env = getenv("KCONFIG_PROBABILITY");
188
189		n = 0;
190		while (env && *env) {
191			char *endp;
192			int tmp = strtol(env, &endp, 10);
193
194			if (tmp >= 0 && tmp <= 100) {
195				p[n++] = tmp;
196			} else {
197				errno = ERANGE;
198				perror("KCONFIG_PROBABILITY");
199				exit(1);
200			}
201			env = (*endp == ':') ? endp + 1 : endp;
202			if (n >= 3)
203				break;
204		}
205		switch (n) {
206		case 1:
207			pby = p[0];
208			ptm = pby / 2;
209			pty = pby - ptm;
210			break;
211		case 2:
212			pty = p[0];
213			ptm = p[1];
214			pby = pty + ptm;
215			break;
216		case 3:
217			pby = p[0];
218			pty = p[1];
219			ptm = p[2];
220			break;
221		}
222
223		if (pty + ptm > 100) {
224			errno = ERANGE;
225			perror("KCONFIG_PROBABILITY");
226			exit(1);
227		}
228	}
229
230	for_all_symbols(i, sym) {
231		if (sym_has_value(sym) || sym->flags & SYMBOL_VALID)
232			continue;
233		switch (sym_get_type(sym)) {
234		case S_BOOLEAN:
235		case S_TRISTATE:
236			has_changed = true;
237			switch (mode) {
238			case def_yes:
239				sym->def[S_DEF_USER].tri = yes;
240				break;
241			case def_mod:
242				sym->def[S_DEF_USER].tri = mod;
243				break;
244			case def_no:
245				sym->def[S_DEF_USER].tri = no;
246				break;
247			case def_random:
248				sym->def[S_DEF_USER].tri = no;
249				cnt = rand() % 100;
250				if (sym->type == S_TRISTATE) {
251					if (cnt < pty)
252						sym->def[S_DEF_USER].tri = yes;
253					else if (cnt < pty + ptm)
254						sym->def[S_DEF_USER].tri = mod;
255				} else if (cnt < pby)
256					sym->def[S_DEF_USER].tri = yes;
257				break;
258			default:
259				continue;
260			}
261			if (!(sym_is_choice(sym) && mode == def_random))
262				sym->flags |= SYMBOL_DEF_USER;
263			break;
264		default:
265			break;
266		}
267
268	}
269
270	sym_clear_all_valid();
271
272	/*
273	 * We have different type of choice blocks.
274	 * If curr.tri equals to mod then we can select several
275	 * choice symbols in one block.
276	 * In this case we do nothing.
277	 * If curr.tri equals yes then only one symbol can be
278	 * selected in a choice block and we set it to yes,
279	 * and the rest to no.
280	 */
281	if (mode != def_random) {
282		for_all_symbols(i, csym) {
283			if ((sym_is_choice(csym) && !sym_has_value(csym)) ||
284			    sym_is_choice_value(csym))
285				csym->flags |= SYMBOL_NEED_SET_CHOICE_VALUES;
286		}
287	}
288
289	for_all_symbols(i, csym) {
290		if (sym_has_value(csym) || !sym_is_choice(csym))
291			continue;
292
293		sym_calc_value(csym);
294		if (mode == def_random)
295			has_changed |= randomize_choice_values(csym);
296		else {
297			set_all_choice_values(csym);
298			has_changed = true;
299		}
300	}
301
302	return has_changed;
303}
304
305static void conf_rewrite_mod_or_yes(enum conf_def_mode mode)
306{
307	struct symbol *sym;
308	int i;
309	tristate old_val = (mode == def_y2m) ? yes : mod;
310	tristate new_val = (mode == def_y2m) ? mod : yes;
311
312	for_all_symbols(i, sym) {
313		if (sym_get_type(sym) == S_TRISTATE &&
314		    sym->def[S_DEF_USER].tri == old_val)
315			sym->def[S_DEF_USER].tri = new_val;
316	}
317	sym_clear_all_valid();
318}
319
320static int conf_askvalue(struct symbol *sym, const char *def)
321{
 
 
322	if (!sym_has_value(sym))
323		printf("(NEW) ");
324
325	line[0] = '\n';
326	line[1] = 0;
327
328	if (!sym_is_changeable(sym)) {
329		printf("%s\n", def);
330		line[0] = '\n';
331		line[1] = 0;
332		return 0;
333	}
334
335	switch (input_mode) {
336	case oldconfig:
337	case syncconfig:
338		if (sym_has_value(sym)) {
339			printf("%s\n", def);
340			return 0;
341		}
 
342		/* fall through */
343	default:
344		fflush(stdout);
345		xfgets(line, sizeof(line), stdin);
 
 
 
 
346		break;
347	}
348
 
 
 
 
 
 
 
 
 
 
349	return 1;
350}
351
352static int conf_string(struct menu *menu)
353{
354	struct symbol *sym = menu->sym;
355	const char *def;
356
357	while (1) {
358		printf("%*s%s ", indent - 1, "", menu->prompt->text);
359		printf("(%s) ", sym->name);
360		def = sym_get_string_value(sym);
361		if (def)
362			printf("[%s] ", def);
363		if (!conf_askvalue(sym, def))
364			return 0;
365		switch (line[0]) {
366		case '\n':
367			break;
368		case '?':
369			/* print help */
370			if (line[1] == '\n') {
371				print_help(menu);
372				def = NULL;
373				break;
374			}
375			/* fall through */
376		default:
377			line[strlen(line)-1] = 0;
378			def = line;
379		}
380		if (def && sym_set_string_value(sym, def))
381			return 0;
382	}
383}
384
385static int conf_sym(struct menu *menu)
386{
387	struct symbol *sym = menu->sym;
388	tristate oldval, newval;
389
390	while (1) {
391		printf("%*s%s ", indent - 1, "", menu->prompt->text);
392		if (sym->name)
393			printf("(%s) ", sym->name);
394		putchar('[');
395		oldval = sym_get_tristate_value(sym);
396		switch (oldval) {
397		case no:
398			putchar('N');
399			break;
400		case mod:
401			putchar('M');
402			break;
403		case yes:
404			putchar('Y');
405			break;
406		}
407		if (oldval != no && sym_tristate_within_range(sym, no))
408			printf("/n");
409		if (oldval != mod && sym_tristate_within_range(sym, mod))
410			printf("/m");
411		if (oldval != yes && sym_tristate_within_range(sym, yes))
412			printf("/y");
413		printf("/?] ");
 
 
414		if (!conf_askvalue(sym, sym_get_string_value(sym)))
415			return 0;
416		strip(line);
417
418		switch (line[0]) {
419		case 'n':
420		case 'N':
421			newval = no;
422			if (!line[1] || !strcmp(&line[1], "o"))
423				break;
424			continue;
425		case 'm':
426		case 'M':
427			newval = mod;
428			if (!line[1])
429				break;
430			continue;
431		case 'y':
432		case 'Y':
433			newval = yes;
434			if (!line[1] || !strcmp(&line[1], "es"))
435				break;
436			continue;
437		case 0:
438			newval = oldval;
439			break;
440		case '?':
441			goto help;
442		default:
443			continue;
444		}
445		if (sym_set_tristate_value(sym, newval))
446			return 0;
447help:
448		print_help(menu);
449	}
450}
451
452static int conf_choice(struct menu *menu)
453{
454	struct symbol *sym, *def_sym;
455	struct menu *child;
456	bool is_new;
457
458	sym = menu->sym;
459	is_new = !sym_has_value(sym);
460	if (sym_is_changeable(sym)) {
461		conf_sym(menu);
462		sym_calc_value(sym);
463		switch (sym_get_tristate_value(sym)) {
464		case no:
465			return 1;
466		case mod:
467			return 0;
468		case yes:
469			break;
470		}
471	} else {
472		switch (sym_get_tristate_value(sym)) {
473		case no:
474			return 1;
475		case mod:
476			printf("%*s%s\n", indent - 1, "", menu_get_prompt(menu));
477			return 0;
478		case yes:
479			break;
480		}
481	}
482
483	while (1) {
484		int cnt, def;
485
486		printf("%*s%s\n", indent - 1, "", menu_get_prompt(menu));
487		def_sym = sym_get_choice_value(sym);
488		cnt = def = 0;
489		line[0] = 0;
490		for (child = menu->list; child; child = child->next) {
491			if (!menu_is_visible(child))
492				continue;
493			if (!child->sym) {
494				printf("%*c %s\n", indent, '*', menu_get_prompt(child));
495				continue;
496			}
497			cnt++;
498			if (child->sym == def_sym) {
499				def = cnt;
500				printf("%*c", indent, '>');
501			} else
502				printf("%*c", indent, ' ');
503			printf(" %d. %s", cnt, menu_get_prompt(child));
504			if (child->sym->name)
505				printf(" (%s)", child->sym->name);
506			if (!sym_has_value(child->sym))
507				printf(" (NEW)");
508			printf("\n");
509		}
510		printf("%*schoice", indent - 1, "");
511		if (cnt == 1) {
512			printf("[1]: 1\n");
513			goto conf_childs;
514		}
515		printf("[1-%d?]: ", cnt);
 
 
 
516		switch (input_mode) {
517		case oldconfig:
518		case syncconfig:
519			if (!is_new) {
520				cnt = def;
521				printf("%d\n", cnt);
522				break;
523			}
 
524			/* fall through */
525		case oldaskconfig:
526			fflush(stdout);
527			xfgets(line, sizeof(line), stdin);
528			strip(line);
529			if (line[0] == '?') {
530				print_help(menu);
531				continue;
532			}
533			if (!line[0])
534				cnt = def;
535			else if (isdigit(line[0]))
536				cnt = atoi(line);
537			else
538				continue;
539			break;
540		default:
541			break;
542		}
543
544	conf_childs:
545		for (child = menu->list; child; child = child->next) {
546			if (!child->sym || !menu_is_visible(child))
547				continue;
548			if (!--cnt)
549				break;
550		}
551		if (!child)
552			continue;
553		if (line[0] && line[strlen(line) - 1] == '?') {
554			print_help(child);
555			continue;
556		}
557		sym_set_choice_value(sym, child->sym);
558		for (child = child->list; child; child = child->next) {
559			indent += 2;
560			conf(child);
561			indent -= 2;
562		}
563		return 1;
564	}
565}
566
567static void conf(struct menu *menu)
568{
569	struct symbol *sym;
570	struct property *prop;
571	struct menu *child;
572
573	if (!menu_is_visible(menu))
574		return;
575
576	sym = menu->sym;
577	prop = menu->prompt;
578	if (prop) {
579		const char *prompt;
580
581		switch (prop->type) {
582		case P_MENU:
583			/*
584			 * Except in oldaskconfig mode, we show only menus that
585			 * contain new symbols.
586			 */
587			if (input_mode != oldaskconfig && rootEntry != menu) {
588				check_conf(menu);
589				return;
590			}
591			/* fall through */
592		case P_COMMENT:
593			prompt = menu_get_prompt(menu);
594			if (prompt)
595				printf("%*c\n%*c %s\n%*c\n",
596					indent, '*',
597					indent, '*', prompt,
598					indent, '*');
599		default:
600			;
601		}
602	}
603
604	if (!sym)
605		goto conf_childs;
606
607	if (sym_is_choice(sym)) {
608		conf_choice(menu);
609		if (sym->curr.tri != mod)
610			return;
611		goto conf_childs;
612	}
613
614	switch (sym->type) {
615	case S_INT:
616	case S_HEX:
617	case S_STRING:
618		conf_string(menu);
619		break;
620	default:
621		conf_sym(menu);
622		break;
623	}
624
625conf_childs:
626	if (sym)
627		indent += 2;
628	for (child = menu->list; child; child = child->next)
629		conf(child);
630	if (sym)
631		indent -= 2;
632}
633
634static void check_conf(struct menu *menu)
635{
636	struct symbol *sym;
637	struct menu *child;
638
639	if (!menu_is_visible(menu))
640		return;
641
642	sym = menu->sym;
643	if (sym && !sym_has_value(sym) &&
644	    (sym_is_changeable(sym) ||
645	     (sym_is_choice(sym) && sym_get_tristate_value(sym) == yes))) {
646
647		switch (input_mode) {
648		case listnewconfig:
649			if (sym->name) {
650				const char *str;
651
652				if (sym->type == S_STRING) {
653					str = sym_get_string_value(sym);
654					str = sym_escape_string_value(str);
655					printf("%s%s=%s\n", CONFIG_, sym->name, str);
656					free((void *)str);
657				} else {
658					str = sym_get_string_value(sym);
659					printf("%s%s=%s\n", CONFIG_, sym->name, str);
660				}
 
 
 
 
 
661			}
662			break;
663		case helpnewconfig:
664			printf("-----\n");
665			print_help(menu);
666			printf("-----\n");
667			break;
668		default:
669			if (!conf_cnt++)
670				printf("*\n* Restart config...\n*\n");
671			rootEntry = menu_get_parent_menu(menu);
672			conf(rootEntry);
673			break;
674		}
675	}
676
677	for (child = menu->list; child; child = child->next)
678		check_conf(child);
679}
680
681static const struct option long_opts[] = {
682	{"help",          no_argument,       NULL,            'h'},
683	{"silent",        no_argument,       NULL,            's'},
684	{"oldaskconfig",  no_argument,       &input_mode_opt, oldaskconfig},
685	{"oldconfig",     no_argument,       &input_mode_opt, oldconfig},
686	{"syncconfig",    no_argument,       &input_mode_opt, syncconfig},
687	{"defconfig",     required_argument, &input_mode_opt, defconfig},
688	{"savedefconfig", required_argument, &input_mode_opt, savedefconfig},
689	{"allnoconfig",   no_argument,       &input_mode_opt, allnoconfig},
690	{"allyesconfig",  no_argument,       &input_mode_opt, allyesconfig},
691	{"allmodconfig",  no_argument,       &input_mode_opt, allmodconfig},
692	{"alldefconfig",  no_argument,       &input_mode_opt, alldefconfig},
693	{"randconfig",    no_argument,       &input_mode_opt, randconfig},
694	{"listnewconfig", no_argument,       &input_mode_opt, listnewconfig},
695	{"helpnewconfig", no_argument,       &input_mode_opt, helpnewconfig},
696	{"olddefconfig",  no_argument,       &input_mode_opt, olddefconfig},
697	{"yes2modconfig", no_argument,       &input_mode_opt, yes2modconfig},
698	{"mod2yesconfig", no_argument,       &input_mode_opt, mod2yesconfig},
 
699	{NULL, 0, NULL, 0}
700};
701
702static void conf_usage(const char *progname)
703{
704	printf("Usage: %s [options] <kconfig-file>\n", progname);
705	printf("\n");
706	printf("Generic options:\n");
707	printf("  -h, --help              Print this message and exit.\n");
708	printf("  -s, --silent            Do not print log.\n");
709	printf("\n");
710	printf("Mode options:\n");
711	printf("  --listnewconfig         List new options\n");
712	printf("  --helpnewconfig         List new options and help text\n");
713	printf("  --oldaskconfig          Start a new configuration using a line-oriented program\n");
714	printf("  --oldconfig             Update a configuration using a provided .config as base\n");
715	printf("  --syncconfig            Similar to oldconfig but generates configuration in\n"
716	       "                          include/{generated/,config/}\n");
717	printf("  --olddefconfig          Same as oldconfig but sets new symbols to their default value\n");
718	printf("  --defconfig <file>      New config with default defined in <file>\n");
719	printf("  --savedefconfig <file>  Save the minimal current configuration to <file>\n");
720	printf("  --allnoconfig           New config where all options are answered with no\n");
721	printf("  --allyesconfig          New config where all options are answered with yes\n");
722	printf("  --allmodconfig          New config where all options are answered with mod\n");
723	printf("  --alldefconfig          New config with all symbols set to default\n");
724	printf("  --randconfig            New config with random answer to all options\n");
725	printf("  --yes2modconfig         Change answers from yes to mod if possible\n");
726	printf("  --mod2yesconfig         Change answers from mod to yes if possible\n");
727	printf("  (If none of the above is given, --oldaskconfig is the default)\n");
728}
729
730int main(int ac, char **av)
731{
732	const char *progname = av[0];
733	int opt;
734	const char *name, *defconfig_file = NULL /* gcc uninit */;
735	int no_conf_write = 0;
736
737	tty_stdio = isatty(0) && isatty(1);
 
 
738
739	while ((opt = getopt_long(ac, av, "hs", long_opts, NULL)) != -1) {
740		switch (opt) {
741		case 'h':
742			conf_usage(progname);
743			exit(1);
744			break;
745		case 's':
746			conf_set_message_callback(NULL);
 
 
 
 
 
 
747			break;
748		case 0:
749			input_mode = input_mode_opt;
750			switch (input_mode) {
751			case syncconfig:
752				/*
753				 * syncconfig is invoked during the build stage.
754				 * Suppress distracting
755				 *   "configuration written to ..."
756				 */
757				conf_set_message_callback(NULL);
758				sync_kconfig = 1;
759				break;
760			case defconfig:
761			case savedefconfig:
762				defconfig_file = optarg;
763				break;
764			case randconfig:
765				set_randconfig_seed();
766				break;
767			default:
768				break;
 
 
 
769			}
770		default:
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
771			break;
772		}
773	}
774	if (ac == optind) {
775		fprintf(stderr, "%s: Kconfig file missing\n", av[0]);
776		conf_usage(progname);
777		exit(1);
778	}
779	conf_parse(av[optind]);
 
780	//zconfdump(stdout);
 
 
 
 
 
 
 
 
 
 
 
 
781
782	switch (input_mode) {
783	case defconfig:
 
 
784		if (conf_read(defconfig_file)) {
785			fprintf(stderr,
786				"***\n"
787				  "*** Can't find default configuration \"%s\"!\n"
788				  "***\n",
789				defconfig_file);
790			exit(1);
791		}
792		break;
793	case savedefconfig:
794	case syncconfig:
795	case oldaskconfig:
796	case oldconfig:
797	case listnewconfig:
798	case helpnewconfig:
799	case olddefconfig:
800	case yes2modconfig:
801	case mod2yesconfig:
802		conf_read(NULL);
803		break;
804	case allnoconfig:
805	case allyesconfig:
806	case allmodconfig:
807	case alldefconfig:
808	case randconfig:
809		name = getenv("KCONFIG_ALLCONFIG");
810		if (!name)
811			break;
812		if ((strcmp(name, "") != 0) && (strcmp(name, "1") != 0)) {
813			if (conf_read_simple(name, S_DEF_USER)) {
814				fprintf(stderr,
815					"*** Can't read seed configuration \"%s\"!\n",
816					name);
817				exit(1);
818			}
819			break;
820		}
821		switch (input_mode) {
822		case allnoconfig:	name = "allno.config"; break;
823		case allyesconfig:	name = "allyes.config"; break;
824		case allmodconfig:	name = "allmod.config"; break;
825		case alldefconfig:	name = "alldef.config"; break;
826		case randconfig:	name = "allrandom.config"; break;
827		default: break;
828		}
829		if (conf_read_simple(name, S_DEF_USER) &&
830		    conf_read_simple("all.config", S_DEF_USER)) {
831			fprintf(stderr,
832				"*** KCONFIG_ALLCONFIG set, but no \"%s\" or \"all.config\" file found\n",
833				name);
834			exit(1);
835		}
836		break;
837	default:
838		break;
839	}
840
841	if (sync_kconfig) {
842		name = getenv("KCONFIG_NOSILENTUPDATE");
843		if (name && *name) {
844			if (conf_get_changed()) {
845				fprintf(stderr,
846					"\n*** The configuration requires explicit update.\n\n");
847				return 1;
848			}
849			no_conf_write = 1;
850		}
 
851	}
852
853	switch (input_mode) {
854	case allnoconfig:
855		conf_set_all_new_symbols(def_no);
856		break;
857	case allyesconfig:
858		conf_set_all_new_symbols(def_yes);
859		break;
860	case allmodconfig:
861		conf_set_all_new_symbols(def_mod);
862		break;
863	case alldefconfig:
864		conf_set_all_new_symbols(def_default);
865		break;
866	case randconfig:
867		/* Really nothing to do in this loop */
868		while (conf_set_all_new_symbols(def_random)) ;
869		break;
870	case defconfig:
871		conf_set_all_new_symbols(def_default);
872		break;
873	case savedefconfig:
874		break;
875	case yes2modconfig:
876		conf_rewrite_mod_or_yes(def_y2m);
877		break;
878	case mod2yesconfig:
879		conf_rewrite_mod_or_yes(def_m2y);
880		break;
881	case oldaskconfig:
882		rootEntry = &rootmenu;
883		conf(&rootmenu);
884		input_mode = oldconfig;
885		/* fall through */
886	case oldconfig:
887	case listnewconfig:
888	case helpnewconfig:
889	case syncconfig:
890		/* Update until a loop caused no more changes */
891		do {
892			conf_cnt = 0;
893			check_conf(&rootmenu);
894		} while (conf_cnt);
895		break;
896	case olddefconfig:
897	default:
898		break;
899	}
900
901	if (input_mode == savedefconfig) {
 
 
 
 
 
 
 
 
 
 
 
 
902		if (conf_write_defconfig(defconfig_file)) {
903			fprintf(stderr, "n*** Error while saving defconfig to: %s\n\n",
904				defconfig_file);
905			return 1;
906		}
907	} else if (input_mode != listnewconfig && input_mode != helpnewconfig) {
908		if (!no_conf_write && conf_write(NULL)) {
909			fprintf(stderr, "\n*** Error during writing of the configuration.\n\n");
910			exit(1);
911		}
912
913		/*
914		 * Create auto.conf if it does not exist.
915		 * This prevents GNU Make 4.1 or older from emitting
916		 * "include/config/auto.conf: No such file or directory"
917		 * in the top-level Makefile
918		 *
919		 * syncconfig always creates or updates auto.conf because it is
920		 * used during the build.
921		 */
922		if (conf_write_autoconf(sync_kconfig) && sync_kconfig) {
923			fprintf(stderr,
924				"\n*** Error during sync of the configuration.\n\n");
925			return 1;
926		}
927	}
928	return 0;
 
 
 
 
 
 
 
 
 
929}
v4.6
 
  1/*
  2 * Copyright (C) 2002 Roman Zippel <zippel@linux-m68k.org>
  3 * Released under the terms of the GNU GPL v2.0.
  4 */
  5
  6#include <locale.h>
  7#include <ctype.h>
  8#include <limits.h>
  9#include <stdio.h>
 10#include <stdlib.h>
 11#include <string.h>
 12#include <time.h>
 13#include <unistd.h>
 14#include <getopt.h>
 15#include <sys/stat.h>
 16#include <sys/time.h>
 17#include <errno.h>
 18
 19#include "lkc.h"
 20
 21static void conf(struct menu *menu);
 22static void check_conf(struct menu *menu);
 23static void xfgets(char *str, int size, FILE *in);
 24
 25enum input_mode {
 26	oldaskconfig,
 27	silentoldconfig,
 28	oldconfig,
 29	allnoconfig,
 30	allyesconfig,
 31	allmodconfig,
 32	alldefconfig,
 33	randconfig,
 34	defconfig,
 35	savedefconfig,
 36	listnewconfig,
 
 37	olddefconfig,
 38} input_mode = oldaskconfig;
 39
 
 
 
 40static int indent = 1;
 41static int tty_stdio;
 42static int valid_stdin = 1;
 43static int sync_kconfig;
 44static int conf_cnt;
 45static char line[PATH_MAX];
 46static struct menu *rootEntry;
 47
 48static void print_help(struct menu *menu)
 49{
 50	struct gstr help = str_new();
 51
 52	menu_get_ext_help(menu, &help);
 53
 54	printf("\n%s\n", str_get(&help));
 55	str_free(&help);
 56}
 57
 58static void strip(char *str)
 59{
 60	char *p = str;
 61	int l;
 62
 63	while ((isspace(*p)))
 64		p++;
 65	l = strlen(p);
 66	if (p != str)
 67		memmove(str, p, l + 1);
 68	if (!l)
 69		return;
 70	p = str + l - 1;
 71	while ((isspace(*p)))
 72		*p-- = 0;
 73}
 74
 75static void check_stdin(void)
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 76{
 77	if (!valid_stdin) {
 78		printf(_("aborted!\n\n"));
 79		printf(_("Console input/output is redirected. "));
 80		printf(_("Run 'make oldconfig' to update configuration.\n\n"));
 81		exit(1);
 
 
 
 
 82	}
 
 83}
 84
 85static int conf_askvalue(struct symbol *sym, const char *def)
 86{
 87	enum symbol_type type = sym_get_type(sym);
 88
 89	if (!sym_has_value(sym))
 90		printf(_("(NEW) "));
 91
 92	line[0] = '\n';
 93	line[1] = 0;
 94
 95	if (!sym_is_changable(sym)) {
 96		printf("%s\n", def);
 97		line[0] = '\n';
 98		line[1] = 0;
 99		return 0;
100	}
101
102	switch (input_mode) {
103	case oldconfig:
104	case silentoldconfig:
105		if (sym_has_value(sym)) {
106			printf("%s\n", def);
107			return 0;
108		}
109		check_stdin();
110		/* fall through */
111	case oldaskconfig:
112		fflush(stdout);
113		xfgets(line, sizeof(line), stdin);
114		if (!tty_stdio)
115			printf("\n");
116		return 1;
117	default:
118		break;
119	}
120
121	switch (type) {
122	case S_INT:
123	case S_HEX:
124	case S_STRING:
125		printf("%s\n", def);
126		return 1;
127	default:
128		;
129	}
130	printf("%s", line);
131	return 1;
132}
133
134static int conf_string(struct menu *menu)
135{
136	struct symbol *sym = menu->sym;
137	const char *def;
138
139	while (1) {
140		printf("%*s%s ", indent - 1, "", _(menu->prompt->text));
141		printf("(%s) ", sym->name);
142		def = sym_get_string_value(sym);
143		if (sym_get_string_value(sym))
144			printf("[%s] ", def);
145		if (!conf_askvalue(sym, def))
146			return 0;
147		switch (line[0]) {
148		case '\n':
149			break;
150		case '?':
151			/* print help */
152			if (line[1] == '\n') {
153				print_help(menu);
154				def = NULL;
155				break;
156			}
157			/* fall through */
158		default:
159			line[strlen(line)-1] = 0;
160			def = line;
161		}
162		if (def && sym_set_string_value(sym, def))
163			return 0;
164	}
165}
166
167static int conf_sym(struct menu *menu)
168{
169	struct symbol *sym = menu->sym;
170	tristate oldval, newval;
171
172	while (1) {
173		printf("%*s%s ", indent - 1, "", _(menu->prompt->text));
174		if (sym->name)
175			printf("(%s) ", sym->name);
176		putchar('[');
177		oldval = sym_get_tristate_value(sym);
178		switch (oldval) {
179		case no:
180			putchar('N');
181			break;
182		case mod:
183			putchar('M');
184			break;
185		case yes:
186			putchar('Y');
187			break;
188		}
189		if (oldval != no && sym_tristate_within_range(sym, no))
190			printf("/n");
191		if (oldval != mod && sym_tristate_within_range(sym, mod))
192			printf("/m");
193		if (oldval != yes && sym_tristate_within_range(sym, yes))
194			printf("/y");
195		if (menu_has_help(menu))
196			printf("/?");
197		printf("] ");
198		if (!conf_askvalue(sym, sym_get_string_value(sym)))
199			return 0;
200		strip(line);
201
202		switch (line[0]) {
203		case 'n':
204		case 'N':
205			newval = no;
206			if (!line[1] || !strcmp(&line[1], "o"))
207				break;
208			continue;
209		case 'm':
210		case 'M':
211			newval = mod;
212			if (!line[1])
213				break;
214			continue;
215		case 'y':
216		case 'Y':
217			newval = yes;
218			if (!line[1] || !strcmp(&line[1], "es"))
219				break;
220			continue;
221		case 0:
222			newval = oldval;
223			break;
224		case '?':
225			goto help;
226		default:
227			continue;
228		}
229		if (sym_set_tristate_value(sym, newval))
230			return 0;
231help:
232		print_help(menu);
233	}
234}
235
236static int conf_choice(struct menu *menu)
237{
238	struct symbol *sym, *def_sym;
239	struct menu *child;
240	bool is_new;
241
242	sym = menu->sym;
243	is_new = !sym_has_value(sym);
244	if (sym_is_changable(sym)) {
245		conf_sym(menu);
246		sym_calc_value(sym);
247		switch (sym_get_tristate_value(sym)) {
248		case no:
249			return 1;
250		case mod:
251			return 0;
252		case yes:
253			break;
254		}
255	} else {
256		switch (sym_get_tristate_value(sym)) {
257		case no:
258			return 1;
259		case mod:
260			printf("%*s%s\n", indent - 1, "", _(menu_get_prompt(menu)));
261			return 0;
262		case yes:
263			break;
264		}
265	}
266
267	while (1) {
268		int cnt, def;
269
270		printf("%*s%s\n", indent - 1, "", _(menu_get_prompt(menu)));
271		def_sym = sym_get_choice_value(sym);
272		cnt = def = 0;
273		line[0] = 0;
274		for (child = menu->list; child; child = child->next) {
275			if (!menu_is_visible(child))
276				continue;
277			if (!child->sym) {
278				printf("%*c %s\n", indent, '*', _(menu_get_prompt(child)));
279				continue;
280			}
281			cnt++;
282			if (child->sym == def_sym) {
283				def = cnt;
284				printf("%*c", indent, '>');
285			} else
286				printf("%*c", indent, ' ');
287			printf(" %d. %s", cnt, _(menu_get_prompt(child)));
288			if (child->sym->name)
289				printf(" (%s)", child->sym->name);
290			if (!sym_has_value(child->sym))
291				printf(_(" (NEW)"));
292			printf("\n");
293		}
294		printf(_("%*schoice"), indent - 1, "");
295		if (cnt == 1) {
296			printf("[1]: 1\n");
297			goto conf_childs;
298		}
299		printf("[1-%d", cnt);
300		if (menu_has_help(menu))
301			printf("?");
302		printf("]: ");
303		switch (input_mode) {
304		case oldconfig:
305		case silentoldconfig:
306			if (!is_new) {
307				cnt = def;
308				printf("%d\n", cnt);
309				break;
310			}
311			check_stdin();
312			/* fall through */
313		case oldaskconfig:
314			fflush(stdout);
315			xfgets(line, sizeof(line), stdin);
316			strip(line);
317			if (line[0] == '?') {
318				print_help(menu);
319				continue;
320			}
321			if (!line[0])
322				cnt = def;
323			else if (isdigit(line[0]))
324				cnt = atoi(line);
325			else
326				continue;
327			break;
328		default:
329			break;
330		}
331
332	conf_childs:
333		for (child = menu->list; child; child = child->next) {
334			if (!child->sym || !menu_is_visible(child))
335				continue;
336			if (!--cnt)
337				break;
338		}
339		if (!child)
340			continue;
341		if (line[0] && line[strlen(line) - 1] == '?') {
342			print_help(child);
343			continue;
344		}
345		sym_set_choice_value(sym, child->sym);
346		for (child = child->list; child; child = child->next) {
347			indent += 2;
348			conf(child);
349			indent -= 2;
350		}
351		return 1;
352	}
353}
354
355static void conf(struct menu *menu)
356{
357	struct symbol *sym;
358	struct property *prop;
359	struct menu *child;
360
361	if (!menu_is_visible(menu))
362		return;
363
364	sym = menu->sym;
365	prop = menu->prompt;
366	if (prop) {
367		const char *prompt;
368
369		switch (prop->type) {
370		case P_MENU:
371			if ((input_mode == silentoldconfig ||
372			     input_mode == listnewconfig ||
373			     input_mode == olddefconfig) &&
374			    rootEntry != menu) {
 
375				check_conf(menu);
376				return;
377			}
378			/* fall through */
379		case P_COMMENT:
380			prompt = menu_get_prompt(menu);
381			if (prompt)
382				printf("%*c\n%*c %s\n%*c\n",
383					indent, '*',
384					indent, '*', _(prompt),
385					indent, '*');
386		default:
387			;
388		}
389	}
390
391	if (!sym)
392		goto conf_childs;
393
394	if (sym_is_choice(sym)) {
395		conf_choice(menu);
396		if (sym->curr.tri != mod)
397			return;
398		goto conf_childs;
399	}
400
401	switch (sym->type) {
402	case S_INT:
403	case S_HEX:
404	case S_STRING:
405		conf_string(menu);
406		break;
407	default:
408		conf_sym(menu);
409		break;
410	}
411
412conf_childs:
413	if (sym)
414		indent += 2;
415	for (child = menu->list; child; child = child->next)
416		conf(child);
417	if (sym)
418		indent -= 2;
419}
420
421static void check_conf(struct menu *menu)
422{
423	struct symbol *sym;
424	struct menu *child;
425
426	if (!menu_is_visible(menu))
427		return;
428
429	sym = menu->sym;
430	if (sym && !sym_has_value(sym)) {
431		if (sym_is_changable(sym) ||
432		    (sym_is_choice(sym) && sym_get_tristate_value(sym) == yes)) {
433			if (input_mode == listnewconfig) {
434				if (sym->name && !sym_is_choice_value(sym)) {
435					printf("%s%s\n", CONFIG_, sym->name);
 
 
 
 
 
 
 
 
 
 
 
436				}
437			} else if (input_mode != olddefconfig) {
438				if (!conf_cnt++)
439					printf(_("*\n* Restart config...\n*\n"));
440				rootEntry = menu_get_parent_menu(menu);
441				conf(rootEntry);
442			}
 
 
 
 
 
 
 
 
 
 
 
 
443		}
444	}
445
446	for (child = menu->list; child; child = child->next)
447		check_conf(child);
448}
449
450static struct option long_opts[] = {
451	{"oldaskconfig",    no_argument,       NULL, oldaskconfig},
452	{"oldconfig",       no_argument,       NULL, oldconfig},
453	{"silentoldconfig", no_argument,       NULL, silentoldconfig},
454	{"defconfig",       optional_argument, NULL, defconfig},
455	{"savedefconfig",   required_argument, NULL, savedefconfig},
456	{"allnoconfig",     no_argument,       NULL, allnoconfig},
457	{"allyesconfig",    no_argument,       NULL, allyesconfig},
458	{"allmodconfig",    no_argument,       NULL, allmodconfig},
459	{"alldefconfig",    no_argument,       NULL, alldefconfig},
460	{"randconfig",      no_argument,       NULL, randconfig},
461	{"listnewconfig",   no_argument,       NULL, listnewconfig},
462	{"olddefconfig",    no_argument,       NULL, olddefconfig},
463	/*
464	 * oldnoconfig is an alias of olddefconfig, because people already
465	 * are dependent on its behavior(sets new symbols to their default
466	 * value but not 'n') with the counter-intuitive name.
467	 */
468	{"oldnoconfig",     no_argument,       NULL, olddefconfig},
469	{NULL, 0, NULL, 0}
470};
471
472static void conf_usage(const char *progname)
473{
474
475	printf("Usage: %s [-s] [option] <kconfig-file>\n", progname);
476	printf("[option] is _one_ of the following:\n");
 
 
 
 
477	printf("  --listnewconfig         List new options\n");
 
478	printf("  --oldaskconfig          Start a new configuration using a line-oriented program\n");
479	printf("  --oldconfig             Update a configuration using a provided .config as base\n");
480	printf("  --silentoldconfig       Same as oldconfig, but quietly, additionally update deps\n");
481	printf("  --olddefconfig          Same as silentoldconfig but sets new symbols to their default value\n");
482	printf("  --oldnoconfig           An alias of olddefconfig\n");
483	printf("  --defconfig <file>      New config with default defined in <file>\n");
484	printf("  --savedefconfig <file>  Save the minimal current configuration to <file>\n");
485	printf("  --allnoconfig           New config where all options are answered with no\n");
486	printf("  --allyesconfig          New config where all options are answered with yes\n");
487	printf("  --allmodconfig          New config where all options are answered with mod\n");
488	printf("  --alldefconfig          New config with all symbols set to default\n");
489	printf("  --randconfig            New config with random answer to all options\n");
 
 
 
490}
491
492int main(int ac, char **av)
493{
494	const char *progname = av[0];
495	int opt;
496	const char *name, *defconfig_file = NULL /* gcc uninit */;
497	struct stat tmpstat;
498
499	setlocale(LC_ALL, "");
500	bindtextdomain(PACKAGE, LOCALEDIR);
501	textdomain(PACKAGE);
502
503	tty_stdio = isatty(0) && isatty(1) && isatty(2);
504
505	while ((opt = getopt_long(ac, av, "s", long_opts, NULL)) != -1) {
506		if (opt == 's') {
 
 
 
507			conf_set_message_callback(NULL);
508			continue;
509		}
510		input_mode = (enum input_mode)opt;
511		switch (opt) {
512		case silentoldconfig:
513			sync_kconfig = 1;
514			break;
515		case defconfig:
516		case savedefconfig:
517			defconfig_file = optarg;
518			break;
519		case randconfig:
520		{
521			struct timeval now;
522			unsigned int seed;
523			char *seed_env;
524
525			/*
526			 * Use microseconds derived seed,
527			 * compensate for systems where it may be zero
528			 */
529			gettimeofday(&now, NULL);
530			seed = (unsigned int)((now.tv_sec + 1) * (now.tv_usec + 1));
531
532			seed_env = getenv("KCONFIG_SEED");
533			if( seed_env && *seed_env ) {
534				char *endp;
535				int tmp = (int)strtol(seed_env, &endp, 0);
536				if (*endp == '\0') {
537					seed = tmp;
538				}
539			}
540			fprintf( stderr, "KCONFIG_SEED=0x%X\n", seed );
541			srand(seed);
542			break;
543		}
544		case oldaskconfig:
545		case oldconfig:
546		case allnoconfig:
547		case allyesconfig:
548		case allmodconfig:
549		case alldefconfig:
550		case listnewconfig:
551		case olddefconfig:
552			break;
553		case '?':
554			conf_usage(progname);
555			exit(1);
556			break;
557		}
558	}
559	if (ac == optind) {
560		printf(_("%s: Kconfig file missing\n"), av[0]);
561		conf_usage(progname);
562		exit(1);
563	}
564	name = av[optind];
565	conf_parse(name);
566	//zconfdump(stdout);
567	if (sync_kconfig) {
568		name = conf_get_configname();
569		if (stat(name, &tmpstat)) {
570			fprintf(stderr, _("***\n"
571				"*** Configuration file \"%s\" not found!\n"
572				"***\n"
573				"*** Please run some configurator (e.g. \"make oldconfig\" or\n"
574				"*** \"make menuconfig\" or \"make xconfig\").\n"
575				"***\n"), name);
576			exit(1);
577		}
578	}
579
580	switch (input_mode) {
581	case defconfig:
582		if (!defconfig_file)
583			defconfig_file = conf_get_default_confname();
584		if (conf_read(defconfig_file)) {
585			printf(_("***\n"
586				"*** Can't find default configuration \"%s\"!\n"
587				"***\n"), defconfig_file);
 
 
588			exit(1);
589		}
590		break;
591	case savedefconfig:
592	case silentoldconfig:
593	case oldaskconfig:
594	case oldconfig:
595	case listnewconfig:
 
596	case olddefconfig:
 
 
597		conf_read(NULL);
598		break;
599	case allnoconfig:
600	case allyesconfig:
601	case allmodconfig:
602	case alldefconfig:
603	case randconfig:
604		name = getenv("KCONFIG_ALLCONFIG");
605		if (!name)
606			break;
607		if ((strcmp(name, "") != 0) && (strcmp(name, "1") != 0)) {
608			if (conf_read_simple(name, S_DEF_USER)) {
609				fprintf(stderr,
610					_("*** Can't read seed configuration \"%s\"!\n"),
611					name);
612				exit(1);
613			}
614			break;
615		}
616		switch (input_mode) {
617		case allnoconfig:	name = "allno.config"; break;
618		case allyesconfig:	name = "allyes.config"; break;
619		case allmodconfig:	name = "allmod.config"; break;
620		case alldefconfig:	name = "alldef.config"; break;
621		case randconfig:	name = "allrandom.config"; break;
622		default: break;
623		}
624		if (conf_read_simple(name, S_DEF_USER) &&
625		    conf_read_simple("all.config", S_DEF_USER)) {
626			fprintf(stderr,
627				_("*** KCONFIG_ALLCONFIG set, but no \"%s\" or \"all.config\" file found\n"),
628				name);
629			exit(1);
630		}
631		break;
632	default:
633		break;
634	}
635
636	if (sync_kconfig) {
637		if (conf_get_changed()) {
638			name = getenv("KCONFIG_NOSILENTUPDATE");
639			if (name && *name) {
640				fprintf(stderr,
641					_("\n*** The configuration requires explicit update.\n\n"));
642				return 1;
643			}
 
644		}
645		valid_stdin = tty_stdio;
646	}
647
648	switch (input_mode) {
649	case allnoconfig:
650		conf_set_all_new_symbols(def_no);
651		break;
652	case allyesconfig:
653		conf_set_all_new_symbols(def_yes);
654		break;
655	case allmodconfig:
656		conf_set_all_new_symbols(def_mod);
657		break;
658	case alldefconfig:
659		conf_set_all_new_symbols(def_default);
660		break;
661	case randconfig:
662		/* Really nothing to do in this loop */
663		while (conf_set_all_new_symbols(def_random)) ;
664		break;
665	case defconfig:
666		conf_set_all_new_symbols(def_default);
667		break;
668	case savedefconfig:
669		break;
 
 
 
 
 
 
670	case oldaskconfig:
671		rootEntry = &rootmenu;
672		conf(&rootmenu);
673		input_mode = silentoldconfig;
674		/* fall through */
675	case oldconfig:
676	case listnewconfig:
677	case olddefconfig:
678	case silentoldconfig:
679		/* Update until a loop caused no more changes */
680		do {
681			conf_cnt = 0;
682			check_conf(&rootmenu);
683		} while (conf_cnt &&
684			 (input_mode != listnewconfig &&
685			  input_mode != olddefconfig));
 
686		break;
687	}
688
689	if (sync_kconfig) {
690		/* silentoldconfig is used during the build so we shall update autoconf.
691		 * All other commands are only used to generate a config.
692		 */
693		if (conf_get_changed() && conf_write(NULL)) {
694			fprintf(stderr, _("\n*** Error during writing of the configuration.\n\n"));
695			exit(1);
696		}
697		if (conf_write_autoconf()) {
698			fprintf(stderr, _("\n*** Error during update of the configuration.\n\n"));
699			return 1;
700		}
701	} else if (input_mode == savedefconfig) {
702		if (conf_write_defconfig(defconfig_file)) {
703			fprintf(stderr, _("n*** Error while saving defconfig to: %s\n\n"),
704				defconfig_file);
705			return 1;
706		}
707	} else if (input_mode != listnewconfig) {
708		if (conf_write(NULL)) {
709			fprintf(stderr, _("\n*** Error during writing of the configuration.\n\n"));
710			exit(1);
711		}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
712	}
713	return 0;
714}
715
716/*
717 * Helper function to facilitate fgets() by Jean Sacren.
718 */
719void xfgets(char *str, int size, FILE *in)
720{
721	if (fgets(str, size, in) == NULL)
722		fprintf(stderr, "\nError in reading or end of file.\n");
723}