l4re-base-25.08.0

src/fiasco/tool/configstat

@@ -0,0 +1,50 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+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;
+  }