24 lines
487 B
Perl
24 lines
487 B
Perl
#! /usr/bin/perl
|
|
# $FreeBSD$
|
|
|
|
$lno=0;
|
|
while (<>) {
|
|
chop;
|
|
s/#.*//;
|
|
s/\f//g;
|
|
s/^[ \t]+//;
|
|
$line = $_;
|
|
$lno++;
|
|
($key, @rest) = split;
|
|
next if ($key eq "");
|
|
next if ($key =~ /^hint\./);
|
|
if ($key eq "machine" || $key eq "ident" || $key eq "device" ||
|
|
$key eq "makeoptions" || $key eq "options" ||
|
|
$key eq "profile" ||
|
|
$key eq "cpu" || $key eq "option" || $key eq "maxusers") {
|
|
print "$line\n";
|
|
} else {
|
|
print STDERR "unrecognized line: line $lno: $line\n";
|
|
}
|
|
}
|