From 0310b312a7e5dffcdf24ae835ed732f7a6a9c471 Mon Sep 17 00:00:00 2001
From: Jeremy Cline <jcline@redhat.com>
Date: Tue, 14 Apr 2020 17:53:23 -0400
Subject: kernel-5.7.0-0.rc1.20200414git8632e9b5645b.1

This is an automated commit generated from the
kernel-5.7.0-0.rc1.20200414git8632e9b5645b.1 tag in
https://gitlab.com/cki-project/kernel-ark.git
---
 scripts/check-configs.pl | 83 ------------------------------------------------
 1 file changed, 83 deletions(-)
 delete mode 100644 scripts/check-configs.pl

(limited to 'scripts/check-configs.pl')

diff --git a/scripts/check-configs.pl b/scripts/check-configs.pl
deleted file mode 100644
index c74acf1d4..000000000
--- a/scripts/check-configs.pl
+++ /dev/null
@@ -1,83 +0,0 @@
-# By Paul Bolle October 2014.
-#
-# Contributed to the public domain by its author.
-
-use 5.016;
-use warnings;
-use autodie;
-
-use File::Find;
-
-my @Kconfigs;
-
-my $Kconfigre = qr/Kconfig.*/;
-my $configre = qr/^\s*(menu)?config\s+(?<config>(\w+))$/;
-my $CONFIG_re = qr/\bCONFIG_(?<CONFIG_>(\w+))/;
-
-sub match {
-	push( @Kconfigs, $File::Find::name ) if ($_ =~ $Kconfigre);
-}
-
-sub parse_kconfig {
-	my ($path) = @_;
-
-	my @ret;
-
-	open( my $kconfig, "<", $path );
-	my $slurp = do { local $/ = undef; <$kconfig> };
-	close( $kconfig );
-	my @lines = split ( /\n/, $slurp );
-	foreach my $line (@lines) {
-		if ($line =~ /$configre/) {
-			push( @ret, $+{config} );
-		}
-	}
-
-	@ret;
-}
-
-sub parse_shipped {
-	my ($path) = @_;
-
-	my @ret;
-
-	open( my $shipped, "<", $path );
-	my $slurp = do { local $/ = undef; <$shipped> };
-	close( $shipped );
-	my @lines = split ( /\n/, $slurp );
-	my $i = 1;
-	foreach my $line (@lines) {
-		if ($line =~ /$CONFIG_re/) {
-			push( @ret, [$i, $+{CONFIG_}] );
-		}
-		$i++;
-	}
-
-	@ret;
-}
-
-exit main ( @ARGV );
-
-sub main {
-	my %configs;
-
-	find( \&match, @_ );
-
-	foreach my $Kconfig (@Kconfigs) {
-		my (@tmp) = parse_kconfig( $Kconfig );
-		foreach my $config ( @tmp ) {
-			$configs{ $config }++;
-		}
-	}
-
-	foreach my $shipped (glob("*.config")) {
-		my (@tmp) = parse_shipped( $shipped );
-		foreach my $ref ( @tmp ) {
-			say( STDERR "$shipped:$ref->[0]: No Kconfig symbol matches 'CONFIG_$ref->[1]'" )
-				unless (grep( /^$ref->[1]$/, keys( %configs )));
-		}
-	}
-
-	0;
-}
-
-- 
cgit