50 lines
680 B
Perl
Executable File
50 lines
680 B
Perl
Executable File
#! /usr/bin/perl -W
|
|
|
|
use strict;
|
|
|
|
my @filter_out = qw/
|
|
ABI
|
|
CC
|
|
CXX
|
|
HOST_CC
|
|
HOST_CXX
|
|
LABEL
|
|
MP_MAX_CPUS
|
|
XARCH
|
|
/;
|
|
|
|
my %filter_out_hash;
|
|
|
|
$filter_out_hash{$_} = 1 foreach @filter_out;
|
|
|
|
my $builds = 0;
|
|
my %c_y;
|
|
my %c;
|
|
|
|
while (my $file = <>)
|
|
{
|
|
chomp $file;
|
|
open(A, $file) or die "Cannot open: $!";
|
|
$builds++;
|
|
|
|
while (<A>)
|
|
{
|
|
next unless /CONFIG_(\S+)[= ]/;
|
|
|
|
my $t = $1;
|
|
|
|
next if defined $filter_out_hash{$t};
|
|
|
|
$c{$t}++;
|
|
$c_y{$t}++ unless / is not set/;
|
|
}
|
|
|
|
close A;
|
|
}
|
|
|
|
foreach my $x (sort keys %c)
|
|
{
|
|
my $v = defined $c_y{$x} ? $c_y{$x} : 0;
|
|
printf "%30s: %d/%d (%g%%)\n", $x, $v, $c{$x}, int($v * 1000 / $c{$x}) / 10;
|
|
}
|