d/freebsd-dev
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Recognize options with values. If an option is present in both GENERIC

Browse Source 
and the custom kernel, but its value has been modified, it will now be
kept in its correct spot instead of being moved to the bottom.
This commit is contained in:
des 2004-09-19 21:21:26 +00:00
parent ab82c41029
commit 6c41ab2381
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tools/tools/genericize/genericize.pl
View File

@ -32,6 +32,8 @@
use strict;
use Getopt::Std;
sub EMPTY() {}
MAIN:{
my %opts;
getopts('c', \%opts);
@ -51,10 +53,11 @@ MAIN:{
$machine = $value;
} elsif ($keyword eq 'ident') {
$ident = $value;
} elsif ($keyword eq 'options' && $value =~ m/(\w+)=(.+)/) {
$config{$keyword}->{$1} = $2;
} else {
$config{$keyword}->{$value} = 1;
$config{$keyword}->{$value} = \∅
}
#print "$keyword $value\n";
}
}
@ -83,7 +86,17 @@ MAIN:{
unless ($value eq $machine);
} elsif ($keyword eq 'ident') {
$line =~ s/$value/$ident/;
} elsif ($config{$keyword}->{$value}) {
} elsif ($keyword eq 'options' && $value =~ m/(\w+)=(.+)/ &&
$config{$keyword}->{$1} != \&EMPTY) {
$value = $1;
if ($config{$keyword}->{$value} ne $2) {
my ($old, $new) = ($2, $config{$keyword}->{$value});
$line =~ s{=$old}{=$new};
}
delete($config{$keyword}->{$value});
delete($config{$keyword})
unless %{$config{$keyword}};
} elsif (defined($config{$keyword}->{$value})) {
delete($config{$keyword}->{$value});
delete($config{$keyword})
unless %{$config{$keyword}};
@ -108,7 +121,10 @@ MAIN:{
} elsif (length($keyword) == 7) {
print " ";
}
print "\t$value\n";
print "\t$value";
print "=$config{$keyword}->{$value}"
unless $config{$keyword}->{$value} == \∅
print "\n";
}
}
}