bin/checkspecpatch

   1 #! /usr/bin/perl
   2 # $Id$
   3 # Check all '^Patch\d+' lines and '^%patch' lines are matching.
   4
   5 use strict;
   6 use warnings;
   7
   8 @ARGV=<*.spec> if !@ARGV;
   9
  10 my $rc=0;
  11 for $ARGV (@ARGV) {
  12         local *FILE;
  13         open FILE,$ARGV or die "open $ARGV: $!";
  14         my $file=do { undef $/; <FILE>; } or die "read $ARGV: $!";
  15         close FILE or die "close $ARGV: $!";
  16
  17         my @source =sort { $a<=>$b; } ($file=~/^\s*patch(\d+)\s*:/mig);
  18         my @apply  =sort { $a<=>$b; } ($file=~/^\s*%patch(\d+)\b/mig);
  19         my @applyno=sort { $a<=>$b; } ($file=~/^#+\s*%patch(\d+)\b/mig);
  20         my %applyno=map(($_=>1),@applyno);
  21         while (@source || @apply) {
  22                 my $source=(shift @source)||"";
  23                 my $apply =(shift @apply)||"";
  24                 next if $source eq $apply;
  25                 if ($source ne "" && $apply  < $source) {
  26                         unshift @source,$source;
  27                         warn "$ARGV: excessive: ".'%'."patch$apply\n";
  28                         $rc=1;
  29                 }
  30                 if ($apply  ne "" && $source < $apply) {
  31                         unshift @apply,$apply;
  32                         if (!$applyno{$source}) {
  33                                 warn "$ARGV: excessive: Patch$source\n";
  34                                 $rc=1;
  35                         } else {
  36                                 warn "$ARGV: (commented ".'%'."patch$source: Patch$source)\n";
  37                         }
  38                 }
  39         }
  40 }
  41 exit $rc;