text: /*
   * Copyright (C) 2002 Roman Zippel <zippel@linux-m68k.org>
   * Released under the terms of the GNU GPL v2.0.
   */
  
  #include <sys/stat.h>
  #include <ctype.h>
  #include <stdio.h>
  #include <stdlib.h>
  #include <string.h>
  #include <time.h>
  #include <unistd.h>
  
  #define LKC_DIRECT_LINK
  #include "lkc.h"
  
  #define LOCAL_BUILD_SETTINGS "/.openwrt/defconfig"
  
  static void conf_warning(const char *fmt, ...)
  	__attribute__ ((format (printf, 1, 2)));
  
  static const char *conf_filename;
  static int conf_lineno, conf_warnings, conf_unsaved;
  
  const char conf_def_filename[] = ".config";
  
  const char conf_defname[] = "scripts/config/defconfig";
  
  const char *conf_confnames[] = {
  	".config",
  	conf_defname,
  	NULL,
  };
  
  static void conf_warning(const char *fmt, ...)
  {
  	va_list ap;
  	va_start(ap, fmt);
  	fprintf(stderr, "%s:%d:warning: ", conf_filename, conf_lineno);
  	vfprintf(stderr, fmt, ap);
  	fprintf(stderr, "\n");
  	va_end(ap);
  	conf_warnings++;
  }
  
  static char *conf_expand_value(const char *in)
  {
  	struct symbol *sym;
  	const char *src;
  	static char res_value[SYMBOL_MAXLENGTH];
  	char *dst, name[SYMBOL_MAXLENGTH];
  
  	res_value[0] = 0;
  	dst = name;
  	while ((src = strchr(in, '$'))) {
  		strncat(res_value, in, src - in);
  		src++;
  		dst = name;
  		while (isalnum(*src) || *src == '_')
  			*dst++ = *src++;
  		*dst = 0;
  		sym = sym_lookup(name, 0);
  		sym_calc_value(sym);
  		strcat(res_value, sym_get_string_value(sym));
  		in = src;
  	}
  	strcat(res_value, in);
  
  	return res_value;
  }
  
  char *conf_get_default_confname(void)
  {
  	struct stat buf;
  	static char fullname[PATH_MAX+1];
  	char *env, *name;
  
  	name = conf_expand_value(conf_defname);
  	env = getenv(SRCTREE);
  	if (env) {
  		sprintf(fullname, "%s/%s", env, name);
  		if (!stat(fullname, &buf))
  			return fullname;
  	}
  	return name;
  }
  
  void conf_reset(void)
  {
  	struct symbol *sym;
  	int i;
  
  	for_all_symbols(i, sym) {
  		sym->flags |= SYMBOL_NEW | SYMBOL_CHANGED;
  		if (sym_is_choice(sym))
  			sym->flags &= ~SYMBOL_NEW;
  		sym->flags &= ~SYMBOL_VALID;
  		switch (sym->type) {
  		case S_INT:
  		case S_HEX:
  		case S_STRING:
  			if (sym->user.val)
  				free(sym->user.val);
  		default:
  			sym->user.val = NULL;
  			sym->user.tri = no;
  		}
  	}
  	conf_read_simple(NULL, 0);
  }
  
  int conf_read_file(FILE *in, struct symbol *sym){
  	char line[1024];
  	char *p, *p2;
  
  	while (fgets(line, sizeof(line), in)) {
  		conf_lineno++;
  		sym = NULL;
  		switch (line[0]) {
  		case '#':
  			if (memcmp(line + 2, "CONFIG_", 7))
  				continue;
  			p = strchr(line + 9, ' ');
  			if (!p)
  				continue;
  			*p++ = 0;
  			if (strncmp(p, "is not set", 10))
  				continue;
  			sym = sym_find(line + 9);
  			if (!sym) {
  				//conf_warning("trying to assign nonexistent symbol %s", line + 9);
  				break;
  			} /*else if (!(sym->flags & SYMBOL_NEW)) {
  				//conf_warning("trying to reassign symbol %s", sym->name);
  				break;
  			}*/
  			switch (sym->type) {
  			case S_BOOLEAN:
  			case S_TRISTATE:
  				sym->user.tri = no;
  				sym->flags &= ~SYMBOL_NEW;
  				break;
  			default:
  				;
  			}
  			break;
  		case 'C':
  			if (memcmp(line, "CONFIG_", 7)) {
  				conf_warning("unexpected data");
  				continue;
  			}
  			p = strchr(line + 7, '=');
  			if (!p)
  				continue;
  			*p++ = 0;
  			p2 = strchr(p, '\n');
  			if (p2)
  				*p2 = 0;
  			sym = sym_find(line + 7);
  			if (!sym) {
  				//conf_warning("trying to assign nonexistent symbol %s", line + 7);
  				break;
  			} /*else if (!(sym->flags & SYMBOL_NEW)) {
  				conf_warning("trying to reassign symbol %s", sym->name);
  				break;
  			}*/
  			switch (sym->type) {
  			case S_TRISTATE:
  				if (p[0] == 'm') {
  					sym->user.tri = mod;
  					sym->flags &= ~SYMBOL_NEW;
  					break;
  				}
  			case S_BOOLEAN:
  				if (p[0] == 'y') {
  					sym->user.tri = yes;
  					sym->flags &= ~SYMBOL_NEW;
  					break;
  				}
  				if (p[0] == 'n') {
  					sym->user.tri = no;
  					sym->flags &= ~SYMBOL_NEW;
  					break;
  				}
  				conf_warning("symbol value '%s' invalid for %s", p, sym->name);
  				break;
  			case S_STRING:
  				if (*p++ != '"')
  					break;
  				for (p2 = p; (p2 = strpbrk(p2, "\"\\")); p2++) {
  					if (*p2 == '"') {
  						*p2 = 0;
  						break;
  					}
  					memmove(p2, p2 + 1, strlen(p2));
  				}
  				if (!p2) {
  					conf_warning("invalid string found");
  					continue;
  				}
  			case S_INT:
  			case S_HEX:
  				if (sym_string_valid(sym, p)) {
  					sym->user.val = strdup(p);
  					sym->flags &= ~SYMBOL_NEW;
  				} else {
  					conf_warning("symbol value '%s' invalid for %s", p, sym->name);
  					continue;
  				}
  				break;
  			default:
  				;
  			}
  			break;
  		case '\n':
  			break;
  		default:
  			conf_warning("unexpected data");
  			continue;
  		}
  		if (sym && sym_is_choice_value(sym)) {
  			struct symbol *cs = prop_get_symbol(sym_get_choice_prop(sym));
  			switch (sym->user.tri) {
  			case no:
  				break;
  			case mod:
  				if (cs->user.tri == yes) {
  					conf_warning("%s creates inconsistent choice state", sym->name);
  					cs->flags |= SYMBOL_NEW;
  				}
  				break;
  			case yes:
  				if (cs->user.tri != no) {
  					conf_warning("%s creates inconsistent choice state", sym->name);
  					cs->flags |= SYMBOL_NEW;
  				} else
  					cs->user.val = sym;
  				break;
  			}
  			cs->user.tri = E_OR(cs->user.tri, sym->user.tri);
  		}
  	}
  	fclose(in);
  
  	return 0;
  }
  
  int conf_read_simple(const char *name, int load_config)
  {
  	FILE *in = NULL;
  	FILE *defaults = NULL;
  	struct symbol *sym;
  	int i;
  	char *home_dir = getenv("HOME");
  	char *default_config_path = NULL;
  	
  	if(home_dir){
  			default_config_path = malloc(strlen(home_dir) + sizeof(LOCAL_BUILD_SETTINGS) + 1);
  			sprintf(default_config_path, "%s%s", home_dir, LOCAL_BUILD_SETTINGS);
  			defaults = zconf_fopen(default_config_path);
  			if(defaults)
  					printf("# using buildsystem predefines from %s\n", default_config_path);
  			free(default_config_path);
  	}
  	
  	if(load_config){
  		if (name) {
  			in = zconf_fopen(name);
  		} else {
  			const char **names = conf_confnames;
  			while ((name = *names++)) {
  				name = conf_expand_value(name);
  				in = zconf_fopen(name);
  				if (in) {
  					printf(_("#\n"
  					         "# using defaults found in %s\n"
  					         "#\n"), name);
  					break;
  				}
  			}
  		}
  	}
  
  	if (!in && !defaults)
  		return 1;
  
  	conf_filename = name;
  	conf_lineno = 0;
  	conf_warnings = 0;
  	conf_unsaved = 0;
  	
  	for_all_symbols(i, sym) {
  		sym->flags |= SYMBOL_NEW | SYMBOL_CHANGED;
  		if (sym_is_choice(sym))
  			sym->flags &= ~SYMBOL_NEW;
  		sym->flags &= ~SYMBOL_VALID;
  		switch (sym->type) {
  		case S_INT:
  		case S_HEX:
  		case S_STRING:
  			if (sym->user.val)
  				free(sym->user.val);
  		default:
  			sym->user.val = NULL;
  			sym->user.tri = no;
  		}
  	}
  
  	if(defaults)
  		conf_read_file(defaults, sym);
  	
  	if(in)
  		conf_read_file(in, sym);
  	
  	if (modules_sym)
  		sym_calc_value(modules_sym);
  
  	return 0;	
  }
  
  int conf_read(const char *name)
  {
  	struct symbol *sym;
  	struct property *prop;
  	struct expr *e;
  	int i;
  
  	if (conf_read_simple(name, 1))
  		return 1;
  
  	for_all_symbols(i, sym) {
  		sym_calc_value(sym);
  		if (sym_is_choice(sym) || (sym->flags & SYMBOL_AUTO))
  			goto sym_ok;
  		if (sym_has_value(sym) && (sym->flags & SYMBOL_WRITE)) {
  			/* check that calculated value agrees with saved value */
  			switch (sym->type) {
  			case S_BOOLEAN:
  			case S_TRISTATE:
  				if (sym->user.tri != sym_get_tristate_value(sym))
  					break;
  				if (!sym_is_choice(sym))
  					goto sym_ok;
  			default:
  				if (!strcmp(sym->curr.val, sym->user.val))
  					goto sym_ok;
  				break;
  			}
  		} else if (!sym_has_value(sym) && !(sym->flags & SYMBOL_WRITE))
  			/* no previous value and not saved */
  			goto sym_ok;
  		conf_unsaved++;
  		/* maybe print value in verbose mode... */
  	sym_ok:
  		if (sym_has_value(sym) && !sym_is_choice_value(sym)) {
  			if (sym->visible == no)
  				sym->flags |= SYMBOL_NEW;
  			switch (sym->type) {
  			case S_STRING:
  			case S_INT:
  			case S_HEX:
  				if (!sym_string_within_range(sym, sym->user.val)) {
  					sym->flags |= SYMBOL_NEW;
  					sym->flags &= ~SYMBOL_VALID;
  				}
  			default:
  				break;
  			}
  		}
  		if (!sym_is_choice(sym))
  			continue;
  		prop = sym_get_choice_prop(sym);
  		for (e = prop->expr; e; e = e->left.expr)
  			if (e->right.sym->visible != no)
  				sym->flags |= e->right.sym->flags & SYMBOL_NEW;
  	}
  
  	sym_change_count = conf_warnings && conf_unsaved;
  
  	return 0;
  }
  
  int conf_write(const char *name)
  {
  	FILE *out;
  	struct symbol *sym;
  	struct menu *menu;
  	const char *basename;
  	char dirname[128], tmpname[128], newname[128];
  	int type, l;
  	const char *str;
  	time_t now;
  	int use_timestamp = 1;
  	char *env;
  
  	dirname[0] = 0;
  	if (name && name[0]) {
  		struct stat st;
  		char *slash;
  
  		if (!stat(name, &st) && S_ISDIR(st.st_mode)) {
  			strcpy(dirname, name);
  			strcat(dirname, "/");
  			basename = conf_def_filename;
  		} else if ((slash = strrchr(name, '/'))) {
  			int size = slash - name + 1;
  			memcpy(dirname, name, size);
  			dirname[size] = 0;
  			if (slash[1])
  				basename = slash + 1;
  			else
  				basename = conf_def_filename;
  		} else
  			basename = name;
  	} else
  		basename = conf_def_filename;
  
  	sprintf(newname, "%s.tmpconfig.%d", dirname, (int)getpid());
  	out = fopen(newname, "w");
  	if (!out)
  		return 1;
  	sym = sym_lookup("OPENWRTVERSION", 0);
  	sym_calc_value(sym);
  	time(&now);
  	env = getenv("KCONFIG_NOTIMESTAMP");
  	if (env && *env)
  		use_timestamp = 0;
  
  	fprintf(out, _("#\n"
  		       "# Automatically generated make config: don't edit\n"
  		       "# toolchain version: %s\n"
  		       "%s%s"
  		       "#\n"),
  		     sym_get_string_value(sym),
  		     use_timestamp ? "# " : "",
  		     use_timestamp ? ctime(&now) : "");
  
  	if (!sym_change_count)
  		sym_clear_all_valid();
  
  	menu = rootmenu.list;
  	while (menu) {
  		sym = menu->sym;
  		if (!sym) {
  			if (!menu_is_visible(menu))
  				goto next;
  			str = menu_get_prompt(menu);
  			fprintf(out, "\n"
  				     "#\n"
  				     "# %s\n"
  				     "#\n", str);
  		} else if (!(sym->flags & SYMBOL_CHOICE)) {
  			sym_calc_value(sym);
  			if (!(sym->flags & SYMBOL_WRITE))
  				goto next;
  			sym->flags &= ~SYMBOL_WRITE;
  			type = sym->type;
  			if (type == S_TRISTATE) {
  				sym_calc_value(modules_sym);
  /* tristate always enabled */
  #if 0
  				if (modules_sym->curr.tri == no)
  					type = S_BOOLEAN;
  #endif
  			}
  			switch (type) {
  			case S_BOOLEAN:
  			case S_TRISTATE:
  				switch (sym_get_tristate_value(sym)) {
  				case no:
  					fprintf(out, "# CONFIG_%s is not set\n", sym->name);
  					break;
  				case mod:
  					fprintf(out, "CONFIG_%s=m\n", sym->name);
  					break;
  				case yes:
  					fprintf(out, "CONFIG_%s=y\n", sym->name);
  					break;
  				}
  				break;
  			case S_STRING:
  				// fix me
  				str = sym_get_string_value(sym);
  				fprintf(out, "CONFIG_%s=\"", sym->name);
  				do {
  					l = strcspn(str, "\"\\");
  					if (l) {
  						fwrite(str, l, 1, out);
  					}
  					str += l;
  					while (*str == '\\' || *str == '"') {
  						fprintf(out, "\\%c", *str);
  						str++;
  					}
  				} while (*str);
  				fputs("\"\n", out);
  				break;
  			case S_HEX:
  				str = sym_get_string_value(sym);
  				if (str[0] != '0' || (str[1] != 'x' && str[1] != 'X')) {
  					fprintf(out, "CONFIG_%s=%s\n", sym->name, str);
  					break;
  				}
  			case S_INT:
  				str = sym_get_string_value(sym);
  				fprintf(out, "CONFIG_%s=%s\n", sym->name, str);
  				break;
  			}
  		}
  
  	next:
  		if (menu->list) {
  			menu = menu->list;
  			continue;
  		}
  		if (menu->next)
  			menu = menu->next;
  		else while ((menu = menu->parent)) {
  			if (menu->next) {
  				menu = menu->next;
  				break;
  			}
  		}
  	}
  	fclose(out);
  	if (!name || basename != conf_def_filename) {
  		if (!name)
  			name = conf_def_filename;
  		sprintf(tmpname, "%s.old", name);
  		rename(name, tmpname);
  	}
  	sprintf(tmpname, "%s%s", dirname, basename);
  	if (rename(newname, tmpname))
  		return 1;
  
  	sym_change_count = 0;
  
  	return 0;
  }
  