verify-patches

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Getopt::Long;
   5
   6 my @generated_files = qw( proto.h configure config.h.in rsync.1 rsyncd.conf.5 );
   7
   8 my($no_cvs, $failures_only, $minor_updates, $prepare_source, $require_quit);
   9 my $auto_cmd = 'none';
  10
  11 &Getopt::Long::Configure('bundling');
  12 GetOptions(
  13     'no-cvs|n' => \$no_cvs,
  14     'failures-only|f' => \$failures_only,
  15     'minor-updates|u' => \$minor_updates,
  16     'prepare-source|p' => \$prepare_source,
  17     'require-quit|Q' => \$require_quit,
  18     'auto-cmd|a=s' => sub { $auto_cmd .= "|$_[1]" },
  19 ) or &usage;
  20
  21 $auto_cmd =~ s/none\|//;
  22 $auto_cmd = qr/^($auto_cmd)$/i;
  23
  24 my $interesting_fuzz = $minor_updates ? '\d' : '[2-9]';
  25
  26 chdir('patches') if -d 'patches';
  27
  28 if (!-f 'verify-patches') {
  29     die <<EOT;
  30 Please run this script from the root of the rsync dir or
  31 from inside the patches subdir.
  32 EOT
  33 }
  34
  35 $| = 1;
  36 my $CONF_OPTS = '-C';
  37
  38 my($has_dependencies, @new, @rejects);
  39
  40 END {
  41     &restore_cvsdir;
  42     system "rsync -a --del cvsdir/ workdir/" if -d 'cvsdir';
  43 };
  44
  45 my $root;
  46 open(IN, '../CVS/Root') or die $!;
  47 chomp($root = <IN>);
  48 close IN;
  49
  50 mkdir('tmp', 0777) unless -d 'tmp';
  51 chdir('tmp') or die "Unable to chdir to 'tmp'";
  52
  53 mkdir('workdir') unless -d 'workdir';
  54 open(OUT, '>exclude') or die $!;
  55 print OUT join("\n", 'CVS', @generated_files), "\n";
  56 close OUT;
  57
  58 unless ($no_cvs) {
  59     print "Using CVS to update the tmp/cvsdir copy of the source.\n";
  60     system qq|cvs -qd "$root" co -P -d cvsdir rsync|;
  61 }
  62
  63 @ARGV = glob('../*.diff') unless @ARGV;
  64
  65 DIFF:
  66 foreach my $diff (@ARGV) {
  67     next unless $diff =~ /\.diff$/;
  68     next if $diff =~ /gzip-rsyncable[-_a-z]*\.diff$/;
  69     $diff =~ s#^(patches|\.\.)/##;
  70
  71     my $conf_opts;
  72     open(IN, "../$diff") or die $!;
  73     while (<IN>) {
  74         last if /^--- /;
  75         if (/^Depends-On-Patch: (\S+.diff)$/) {
  76             my $dep = $1;
  77             $has_dependencies = 1;
  78             print "\nApplying dependency patch $dep...\n";
  79             if (system("patch -d cvsdir -p1 -b -Vt <../$dep") != 0) {
  80                 print "Unable to cleanly apply dependency patch -- skipping $diff\n";
  81                 system "rm -f cvsdir/*.rej cvsdir/*/*.rej";
  82                 &restore_cvsdir;
  83                 next DIFF;
  84             }
  85             sleep(1) if $prepare_source; # Ensure later diffs get later times.
  86         }
  87         if (!defined($conf_opts) && m#^\s*\./configure( .+)#) {
  88             $conf_opts = $1;
  89             $conf_opts =~ s/\s+\(.*?\)//;
  90         }
  91     }
  92     close IN;
  93     $conf_opts = '' unless defined $conf_opts;
  94
  95     my $default = apply_patch($diff);
  96
  97     if ($prepare_source) {
  98         print "\nPreparing the source...\n";
  99         chdir('workdir') or die $!;
 100         system "./prepare-source";
 101         chdir('..') or die $!;
 102     }
 103
 104     if ($default =~ s/^D,// || $default eq 'N') {
 105         my $def = generate_new_patch($diff);
 106         $default = 'U,N' if $default eq 'N' && $def eq 'E';
 107         $default = 'N' if !$minor_updates && $default eq 'U,N';
 108     }
 109
 110     PROMPT:
 111     while (1) {
 112         print "\n----------- $diff ------------\n",
 113             "\nFix rejects, Diff create, Edit both diffs, Update patch,\n",
 114             "Apply patch again, !(CMD), Build rsync, Next, Quit: [$default] ";
 115         my $ans = $default;
 116         if ($default =~ /$auto_cmd/) {
 117             print $default, "\n";
 118         } else {
 119             my $input = <STDIN>;
 120             chomp $input;
 121             $ans = $input if $input ne '';
 122         }
 123         while ($ans =~ s/^\s*(!|\w)((?<!!)[^;,]*|[^;]*)[;,]?//) {
 124             my $cmd = "\U$1\E";
 125             if ($cmd eq '!') {
 126                 $cmd = $2 || $ENV{'SHELL'};
 127                 chdir('workdir') or die $!;
 128                 system $cmd;
 129                 chdir('..') or die $!;
 130                 $default = 'D';
 131                 next;
 132             }
 133             if ($cmd eq 'A') {
 134                 $default = apply_patch($diff);
 135                 next;
 136             }
 137             if ($cmd eq 'B') {
 138                 chdir('workdir') or die $!;
 139                 system "./prepare-source && ./configure $CONF_OPTS $conf_opts && make";
 140                 chdir('..') or die $!;
 141                 $default = '!make test';
 142                 next;
 143             }
 144             if ($cmd eq 'D') {
 145                 $default = generate_new_patch($diff);
 146                 next;
 147             }
 148             if ($cmd eq 'E') {
 149                 chdir('workdir') or die $!;
 150                 system "vim -d ../../$diff ../new.patch";
 151                 chdir('..') or die $!;
 152                 $default = 'U,A,D';
 153                 next;
 154             }
 155             if ($cmd eq 'F') {
 156                 chdir('workdir') or die $!;
 157                 system "vim @rejects";
 158                 chdir('..') or die $!;
 159                 $default = 'D,E';
 160                 next;
 161             }
 162             if ($cmd eq 'N') {
 163                 last PROMPT;
 164             }
 165             if ($cmd eq 'Q') {
 166                 exit;
 167             }
 168             if ($cmd eq 'U') {
 169                 system "cp -p new.patch ../$diff";
 170                 print "\nUpdated $diff from new.patch\n";
 171                 $default = 'A';
 172                 next;
 173             }
 174         }
 175     }
 176
 177     &restore_cvsdir;
 178 }
 179
 180 while ($require_quit) {
 181     print "\nType 'Q' to quit this session of verify-patches: ";
 182     $_ = <STDIN>;
 183     exit if /^q/i;
 184 }
 185
 186 exit;
 187
 188
 189 sub apply_patch
 190 {
 191     my($diff) = @_;
 192
 193     undef @new;
 194     system "rsync -a --delete --exclude='*~' cvsdir/ workdir/";
 195     print "\nApplying patch $diff...\n";
 196     undef @rejects;
 197     my($saw_failure, $saw_offset, $saw_fuzz);
 198     open(IN, "patch -d workdir -p1 --no-backup-if-mismatch <../$diff |") or die $!;
 199     while (<IN>) {
 200         print $_;
 201         chomp;
 202         if (s/^patching file //) {
 203             push(@new, $_) unless -f "cvsdir/$_";
 204         } elsif (s/.* saving rejects to file //) {
 205             push(@rejects, $_);
 206         } elsif (/^Hunk #\d+ FAILED/) {
 207             $saw_failure = 1;
 208         } elsif (/^Hunk #\d+ succeeded at \d+( with fuzz $interesting_fuzz)?/o) {
 209             $saw_fuzz ||= defined $1;
 210             $saw_offset = 1;
 211         }
 212     }
 213     close IN;
 214     return 'F,D,E' if $saw_failure;
 215     return 'D,E' if $saw_fuzz && !$failures_only;
 216     return 'D,U,N' if $saw_offset && !$failures_only;
 217     'N';
 218 }
 219
 220 sub filter_diff
 221 {
 222     my($cmd) = @_;
 223     open(IN, '-|', $cmd) or die $!;
 224     while (<IN>) {
 225         next if /^(diff -|Index: |Only in )/;
 226         s#^\Q--- cvsdir/\E([^\t]+).*#--- old/$1#;
 227         s#^\Q+++ workdir/\E([^\t]+).*#+++ new/$1#;
 228         print OUT $_;
 229     }
 230     close IN;
 231 }
 232
 233 sub generate_new_patch
 234 {
 235     my($diff) = @_;
 236
 237     foreach (@new) {
 238         system "touch -r workdir/$_ cvsdir/$_";
 239     }
 240     open(IN, "../$diff") or die $!;
 241     open(OUT, '>new.patch') or die $!;
 242     while (<IN>) {
 243         last if /^--- /;
 244         print OUT $_;
 245     }
 246     close IN;
 247     &filter_diff('diff --exclude-from=exclude -upr cvsdir workdir');
 248     if ($prepare_source) {
 249         # These are not included in the diff above so that patch will give
 250         # generated files a later timestamp than the source files.
 251         foreach my $fn (@generated_files) {
 252             &filter_diff("diff -up cvsdir/$fn workdir");
 253         }
 254     }
 255     close OUT;
 256     foreach (@new) {
 257         unlink("cvsdir/$_");
 258     }
 259     print "\nDiffing... ";
 260     if (system("diff ../$diff new.patch >/dev/null") == 0) {
 261         print "new patch is identical to old.\n";
 262         return 'N';
 263     }
 264     print "New patch DIFFERS from old.\n";
 265     'E';
 266 }
 267
 268 sub restore_cvsdir
 269 {
 270     return unless $has_dependencies;
 271     $has_dependencies = 0;
 272
 273     chdir('cvsdir') or die $!;
 274     foreach (glob('*.~[1-9]~'), glob('*/*.~[1-9]~')) {
 275         my $fn;
 276         ($fn = $_) =~ s/\.~1~$//;
 277         if ($fn eq $_) {
 278             unlink($_);
 279         } elsif (-r $_) {
 280             rename($_, $fn);
 281         } else {
 282             unlink($_);
 283             unlink($fn);
 284         }
 285     }
 286     chdir('..') or die $!;
 287 }
 288
 289 sub usage
 290 {
 291     die <<EOT;
 292 Usage: $0 [OPTS] [DIFF-FILE...]
 293  -a, --auto-cmd=REGEX  If default_cmd =~ /^(REGEX)\$/, enter it automatically
 294  -f, --failures-only   Suggest skipping patches that don't have failing hunks
 295  -n, --no-cvs          Don't update tmp/cvsdir at the start of the run
 296  -p, --prepare-source  Run ./prepare-source and include generated files in diff
 297  -Q, --require-quit    Don't auto-exit at the end of the list
 298  -u, --minor-updates   Suggest 'U' for even minor changes in the diff
 299 EOT
 300 }