392 lines
7.8 KiB
C
392 lines
7.8 KiB
C
/*
|
|
* 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 <unistd.h>
|
|
|
|
#define LKC_DIRECT_LINK
|
|
#include "lkc.h"
|
|
|
|
const char conf_def_filename[] = "configuration";
|
|
|
|
const char conf_defname[] = "defconfig";
|
|
|
|
const char *conf_confnames[] = {
|
|
"configuration",
|
|
conf_defname,
|
|
NULL,
|
|
};
|
|
|
|
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;
|
|
}
|
|
|
|
int conf_read(const char *name)
|
|
{
|
|
FILE *in = NULL;
|
|
char line[1024];
|
|
char *p, *p2;
|
|
int lineno = 0;
|
|
struct symbol *sym;
|
|
struct property *prop;
|
|
struct expr *e;
|
|
int i;
|
|
|
|
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)
|
|
return 1;
|
|
|
|
for_all_symbols(i, sym) {
|
|
sym->flags |= SYMBOL_NEW | SYMBOL_CHANGED;
|
|
sym->flags &= ~SYMBOL_VALID;
|
|
switch (sym->type) {
|
|
case S_INT:
|
|
case S_HEX:
|
|
case S_STRING:
|
|
free(sym->user.val);
|
|
default:
|
|
sym->user.val = NULL;
|
|
sym->user.tri = no;
|
|
}
|
|
}
|
|
|
|
while (fgets(line, sizeof(line), in)) {
|
|
lineno++;
|
|
sym = NULL;
|
|
switch (line[0]) {
|
|
case '#':
|
|
if (line[1]!=' ')
|
|
continue;
|
|
p = strchr(line + 2, ' ');
|
|
if (!p)
|
|
continue;
|
|
*p++ = 0;
|
|
if (strncmp(p, "is not set", 10))
|
|
continue;
|
|
sym = sym_find(line + 2);
|
|
if (!sym) {
|
|
fprintf(stderr, "%s:%d: trying to assign nonexistent symbol %s\n", name, lineno, line + 2);
|
|
break;
|
|
}
|
|
switch (sym->type) {
|
|
case S_BOOLEAN:
|
|
case S_TRISTATE:
|
|
sym->user.tri = no;
|
|
sym->flags &= ~SYMBOL_NEW;
|
|
break;
|
|
default:
|
|
;
|
|
}
|
|
break;
|
|
|
|
case 'A' ... 'Z':
|
|
p = strchr(line, '=');
|
|
if (!p)
|
|
continue;
|
|
*p++ = 0;
|
|
p2 = strchr(p, '\n');
|
|
if (p2)
|
|
*p2 = 0;
|
|
sym = sym_find(line);
|
|
if (!sym) {
|
|
fprintf(stderr, "%s:%d: trying to assign nonexistent symbol %s\n", name, lineno, line);
|
|
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;
|
|
}
|
|
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) {
|
|
fprintf(stderr, "%s:%d: invalid string found\n", name, lineno);
|
|
exit(1);
|
|
}
|
|
case S_INT:
|
|
case S_HEX:
|
|
if (sym_string_valid(sym, p)) {
|
|
sym->user.val = strdup(p);
|
|
sym->flags &= ~SYMBOL_NEW;
|
|
} else {
|
|
fprintf(stderr, "%s:%d: symbol value '%s' invalid for %s\n", name, lineno, p, sym->name);
|
|
exit(1);
|
|
}
|
|
break;
|
|
default:
|
|
;
|
|
}
|
|
break;
|
|
case '\n':
|
|
break;
|
|
default:
|
|
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)
|
|
/* warn? */;
|
|
break;
|
|
case yes:
|
|
if (cs->user.tri != no)
|
|
/* warn? */;
|
|
cs->user.val = sym;
|
|
break;
|
|
}
|
|
cs->user.tri = E_OR(cs->user.tri, sym->user.tri);
|
|
cs->flags &= ~SYMBOL_NEW;
|
|
}
|
|
}
|
|
fclose(in);
|
|
|
|
if (modules_sym)
|
|
sym_calc_value(modules_sym);
|
|
for_all_symbols(i, sym) {
|
|
sym_calc_value(sym);
|
|
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;
|
|
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 = 1;
|
|
|
|
return 0;
|
|
}
|
|
|
|
struct menu *next_menu(struct menu *menu)
|
|
{
|
|
if (menu->list) return menu->list;
|
|
do {
|
|
if (menu->next) {
|
|
menu = menu->next;
|
|
break;
|
|
}
|
|
} while ((menu = menu->parent));
|
|
|
|
return menu;
|
|
}
|
|
|
|
#define SYMBOL_FORCEWRITE (1<<31)
|
|
|
|
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;
|
|
|
|
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;
|
|
fprintf(out, "#\n"
|
|
"# Automatically generated configuration: don't edit\n"
|
|
"# use make menuconfig or make config to make changes\n"
|
|
"#\n");
|
|
|
|
if (!sym_change_count)
|
|
sym_clear_all_valid();
|
|
|
|
/* Force write of all non-duplicate symbols. */
|
|
|
|
/* Write out everything by default. */
|
|
for(menu = rootmenu.list; menu; menu = next_menu(menu))
|
|
if (menu->sym) menu->sym->flags |= SYMBOL_FORCEWRITE;
|
|
|
|
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_FORCEWRITE))
|
|
goto next;
|
|
|
|
sym->flags &= ~SYMBOL_FORCEWRITE;
|
|
type = sym->type;
|
|
if (type == S_TRISTATE) {
|
|
sym_calc_value(modules_sym);
|
|
if (modules_sym->curr.tri == no)
|
|
type = S_BOOLEAN;
|
|
}
|
|
|
|
|
|
switch (type) {
|
|
case S_BOOLEAN:
|
|
case S_TRISTATE:
|
|
switch (sym_get_tristate_value(sym)) {
|
|
case no:
|
|
fprintf(out, "# %s is not set\n", sym->name);
|
|
break;
|
|
case mod:
|
|
fprintf(out, "%s=m\n", sym->name);
|
|
break;
|
|
case yes:
|
|
fprintf(out, "%s=y\n", sym->name);
|
|
break;
|
|
}
|
|
break;
|
|
case S_STRING:
|
|
// fix me
|
|
str = sym_get_string_value(sym);
|
|
fprintf(out, "%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, "%s=%s\n", sym->name, *str ? str : "0");
|
|
break;
|
|
}
|
|
case S_INT:
|
|
str = sym_get_string_value(sym);
|
|
fprintf(out, "%s=%s\n", sym->name, *str ? str : "0");
|
|
break;
|
|
}
|
|
}
|
|
next:
|
|
menu = next_menu(menu);
|
|
}
|
|
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;
|
|
}
|