blob: 3dca468fca6afc59078b519cc98ec61c47f4f109 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
#!/usr/bin/perl -w
%allconfigs = ();
%common = ();
print "Reading config's ...\n";
opendir(DIR, ".");
while (defined($config = readdir(DIR))) {
# Only config.*
next if $config !~ /^config\..*/;
# Nothing that is disabled, or remnant
next if $config =~ /.*\.(default|disabled|stub)$/;
%{$allconfigs{$config}} = ();
print " processing $config ... ";
open(CONFIG, "< $config");
while (<CONFIG>) {
# Skip comments
/^#*\s*CONFIG_(\w+)[\s=](.*)$/ or next;
${$allconfigs{$config}}{$1} = $2;
$common{$1} = $2;
}
close(CONFIG);
print "done.\n";
}
closedir(DIR);
print "\n";
print "Merging lists ... \n";
# %options - pointer to flavour config inside the allconfigs array
for $config (keys(%allconfigs)) {
my %options = %{$allconfigs{$config}};
print " processing $config ... ";
for $key (keys(%common)) {
next if not defined $common{$key};
# If we don't have the common option, then it isn't
# common. If we do have that option, it must have the same
# value. EXCEPT where this file does not have a value at all
# which may safely be merged with any other value; the value
# will be elided during recombination of the parts.
if (!defined($options{$key})) {
# Its ok really ... let it merge
} elsif (not defined($options{$key})) {
undef $common{$key};
} elsif ($common{$key} ne $options{$key}) {
undef $common{$key};
}
}
print "done.\n";
}
print "\n";
print "Creating common config ... ";
open(COMMON, "> config.common");
print COMMON "#\n# Common config options automatically generated by splitconfig.pl\n#\n";
for $key (sort(keys(%common))) {
if (not defined $common{$key}) {
print COMMON "# CONFIG_$key is UNMERGABLE\n";
} elsif ($common{$key} eq "is not set") {
print COMMON "# CONFIG_$key is not set\n";
} else {
print COMMON "CONFIG_$key=$common{$key}\n";
}
}
close(COMMON);
print "done.\n\n";
print "Creating stub configs ...\n";
for $config (keys(%allconfigs)) {
my %options = %{$allconfigs{$config}};
print " processing $config ... ";
open(STUB, "> $config");
print STUB "#\n# Config options for $config automatically generated by splitconfig.pl\n#\n";
for $key (sort(keys(%options))) {
next if defined $common{$key};
if ($options{$key} =~ /^is /) {
print STUB "# CONFIG_$key $options{$key}\n";
} else {
print STUB "CONFIG_$key=$options{$key}\n";
}
}
close(STUB);
print "done.\n";
}
|
