summaryrefslogtreecommitdiffstats
path: root/scripts/configcommon.pl
diff options
context:
space:
mode:
authorThorsten Leemhuis <fedora@leemhuis.info>2021-03-07 13:25:32 +0100
committerThorsten Leemhuis <fedora@leemhuis.info>2021-03-07 13:32:55 +0100
commitfb72952d5b63e40f63bfa1e3a5bce2262c424197 (patch)
treed1a9bf30437653b57b398fd3b4f3fb4897ca29cd /scripts/configcommon.pl
parentb9488a288ec844af97a516ac9ffe441221f6e67d (diff)
parent3422e04a2e31dba3e17af206f160d4fc409f4250 (diff)
downloadkernel-5.11.4-125.vanilla.1.fc32.tar.gz
kernel-5.11.4-125.vanilla.1.fc32.tar.xz
kernel-5.11.4-125.vanilla.1.fc32.zip
:merge origin/stabilization and update to 5.10.4kernel-5.11.4-125.vanilla.1.fc33kernel-5.11.4-125.vanilla.1.fc32
Diffstat (limited to 'scripts/configcommon.pl')
-rw-r--r--scripts/configcommon.pl82
1 files changed, 0 insertions, 82 deletions
diff --git a/scripts/configcommon.pl b/scripts/configcommon.pl
deleted file mode 100644
index 38bbe80dc..000000000
--- a/scripts/configcommon.pl
+++ /dev/null
@@ -1,82 +0,0 @@
-#! /usr/bin/perl
-
-my @args=@ARGV;
-my @configoptions;
-my @configvalues;
-my @common;
-my $configcounter = 0;
-
-# first, read the 1st file
-
-open (FILE,"$args[0]") || die "Could not open $args[0]";
-while (<FILE>) {
- my $str = $_;
- if (/\# ([\w]+) is not set/) {
- $configoptions[$configcounter] = $1;
- $configvalues[$configcounter] = $str;
- $common[$configcounter] = 1;
- $configcounter ++;
- } else {
- if (/([\w]+)=/) {
- $configoptions[$configcounter] = $1;
- $configvalues[$configcounter] = $str;
- $common[$configcounter] = 1;
- $configcounter ++;
- } else {
- $configoptions[$configcounter] = "foobarbar";
- $configvalues[$configcounter] = $str;
- $common[$configcounter] = 1;
- $configcounter ++;
- }
- }
-};
-
-# now, read all configfiles and see of the options match the initial one.
-# if not, mark it not common
-my $cntr=1;
-
-
-while ($cntr < @ARGV) {
- open (FILE,$args[$cntr]) || die "Could not open $args[$cntr]";
- while (<FILE>) {
- my $nooutput;
- my $counter;
- my $configname;
-
- if (/\# ([\w]+) is not set/) {
- $configname = $1;
- } else {
- if (/([\w]+)=/) {
- $configname = $1;
- }
- }
-
- $counter = 0;
- $nooutput = 0;
- while ($counter < $configcounter) {
- if ("$configname" eq "$configoptions[$counter]") {
- if ("$_" eq "$configvalues[$counter]") {
- 1;
- } else {
- $common[$counter] = 0;
- }
- }
- $counter++;
- }
- }
-
- $cntr++;
-}
-
-# now print the common values
-my $counter = 0;
-
-while ($counter < $configcounter) {
- if ($common[$counter]!=0) {
- print "$configvalues[$counter]";
- }
- $counter++;
-}
-
-1;
-