/usr/src/linux-source-3.13.0/debian/scripts/misc/splitconfig.pl is in linux-source-3.13.0 3.13.0-57.95.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | #!/usr/bin/perl -w
%allconfigs = ();
%common = ();
print "Reading config's ...\n";
for $config (@ARGV) {
# 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";
}
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";
}
|