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                 $source=999999 if !defined $source;
  24                 my $apply =(shift @apply);
  25                 $apply=999999 if !defined $apply;
  26                 next if $source eq $apply;
  27                 if ($apply < $source) {
  28                         shift @apply;
  29                         warn "$ARGV: excessive: ".'%'."patch$apply\n";
  30                         $rc=1;
  31                 } elsif ($source < $apply) {
  32                         shift @source;
  33                         if (!$applyno{$source}) {
  34                                 warn "$ARGV: excessive: Patch$source\n";
  35                                 $rc=1;
  36                         } else {
  37                                 warn "$ARGV: (commented ".'%'."patch$source: Patch$source)\n";
  38                         }
  39                 } else {
  40                         die if $apply ne $source;
  41                         shift @apply;
  42                         shift @source;
  43                 }
  44         }
  45 }
  46 exit $rc;