X-Git-Url: https://mattmccutchen.net/rsync/rsync-patches.git/blobdiff_plain/4cb494cd4671e5aea0379f84c0480554fdf922bb..59d64e0ba3e9b104bed3cb7c99e23066676be9d5:/verify-patches diff --git a/verify-patches b/verify-patches index 402224c..807c584 100755 --- a/verify-patches +++ b/verify-patches @@ -3,15 +3,10 @@ use strict; use Getopt::Long; -my %generated_files = ( - 'proto.h' => qr#\.[ch]$#, - 'configure' => qr#^(configure\.in|aclocal\.m4)$#, - 'config.h.in' => qr#^(configure\.in|aclocal\.m4)$#, - 'rsync.1' => qr#^rsync\.yo$#, - 'rsyncd.conf.5' => qr#^rsyncd\.conf\.yo$#, -); +my @generated_files = qw( proto.h configure config.h.in rsync.1 rsyncd.conf.5 ); my($no_cvs, $failures_only, $minor_updates, $prepare_source); +my @auto_cmds; &Getopt::Long::Configure('bundling'); GetOptions( @@ -19,9 +14,13 @@ GetOptions( 'failures-only|f' => \$failures_only, 'minor-updates|u' => \$minor_updates, 'prepare-source|p' => \$prepare_source, + 'auto-cmd|a=s' => sub { push(@auto_cmds, $_[1]) }, ) or &usage; +$" = '|'; +my $auto_regex = @auto_cmds ? qr/^(@auto_cmds)$/i : qr/^never$/; my $interesting_fuzz = $minor_updates ? '\d' : '[2-9]'; +$" = ' '; chdir('patches') if -d 'patches'; @@ -32,15 +31,15 @@ from inside the patches subdir. EOT } +$ENV{'LC_COLLATE'} = 'C'; $| = 1; -$ENV{'TZ'} = 'UTC'; my $CONF_OPTS = '-C'; my($has_dependencies, @new, @rejects); END { &restore_cvsdir; - system "rsync -a --delete cvsdir/ workdir/" if -d 'cvsdir'; + system "rsync -a --del cvsdir/ workdir/" if -d 'cvsdir'; }; my $root; @@ -53,10 +52,7 @@ chdir('tmp') or die "Unable to chdir to 'tmp'"; mkdir('workdir') unless -d 'workdir'; open(OUT, '>exclude') or die $!; -print OUT "CVS\n"; -if (!$prepare_source) { - print OUT join("\n", sort keys %generated_files), "\n"; -} +print OUT join("\n", 'CVS', @generated_files), "\n"; close OUT; unless ($no_cvs) { @@ -72,6 +68,7 @@ foreach my $diff (@ARGV) { next if $diff =~ /gzip-rsyncable[-_a-z]*\.diff$/; $diff =~ s#^(patches|\.\.)/##; + my $conf_opts; open(IN, "../$diff") or die $!; while () { last if /^--- /; @@ -79,50 +76,28 @@ foreach my $diff (@ARGV) { my $dep = $1; $has_dependencies = 1; print "\nApplying dependency patch $dep...\n"; - if (system("patch -d cvsdir -p0 -b -Vt -Zf <../$dep") != 0) { + if (system("patch -d cvsdir -p1 -b -Vt <../$dep") != 0) { print "Unable to cleanly apply dependency patch -- skipping $diff\n"; system "rm -f cvsdir/*.rej cvsdir/*/*.rej"; &restore_cvsdir; next DIFF; } + sleep(1) if $prepare_source; # Ensure later diffs get later times. } - } - close IN; - - my($conf_opts, %regenerate); - open(IN, "../$diff") or die $!; - while () { - if (!defined $conf_opts) { - if (m#^\s*\./configure( .+)#) { - $conf_opts = $1; - $conf_opts =~ s/\s+\(.*?\)//; - } elsif (/^--- /) { - $conf_opts = ''; - } - } - if (m#^--- orig/([^\t]+)#) { - my $patching = $1; - while (my($fn, $re) = each %generated_files) { - if ($patching =~ /$re/) { - $regenerate{$fn} = 1; - } - } + if (!defined($conf_opts) && s#^\s+\./configure\s+##) { + chomp($conf_opts = $_); + $conf_opts =~ s/\s*\(.*?\)//; } } close IN; - my @regenerate = sort keys %regenerate; + $conf_opts = '' unless defined $conf_opts; my $default = apply_patch($diff); - if (@regenerate) { + if ($prepare_source) { + print "\nPreparing the source...\n"; chdir('workdir') or die $!; - foreach (@regenerate) { - utime(111111111, 111111111, $_); - } - if ($prepare_source) { - print "\nRegenerating: @regenerate\n"; - system "make -f prepare-source.mak @regenerate"; - } + system "./prepare-source"; chdir('..') or die $!; } @@ -132,14 +107,28 @@ foreach my $diff (@ARGV) { $default = 'N' if !$minor_updates && $default eq 'U,N'; } + my $first_time = 1; PROMPT: while (1) { print "\n----------- $diff ------------\n", "\nFix rejects, Diff create, Edit both diffs, Update patch,\n", "Apply patch again, !(CMD), Build rsync, Next, Quit: [$default] "; - my $ans = ; - chomp $ans; - $ans = $default if $ans eq ''; + my $ans = $default; + if ($first_time && $default =~ /$auto_regex/) { + print $default, "\n"; + } else { + my $input = ; + chomp $input; + if ($input =~ s/^(-a|--auto-cmd=?)\s*//) { + push(@auto_cmds, $input eq '' ? $default : $input); + $" = '|'; + $auto_regex = qr/^(@auto_cmds)$/i; + $" = ' '; + next; + } + $ans = $input if $input ne ''; + } + $first_time = 0; while ($ans =~ s/^\s*(!|\w)((?) { print $_; chomp; @@ -223,20 +208,31 @@ sub apply_patch push(@new, $_) unless -f "cvsdir/$_"; } elsif (s/.* saving rejects to file //) { push(@rejects, $_); - } elsif (/^Hunk #\d+ FAILED/) { - $saw_failure = 1; } elsif (/^Hunk #\d+ succeeded at \d+( with fuzz $interesting_fuzz)?/o) { $saw_fuzz ||= defined $1; $saw_offset = 1; } } close IN; - return 'F,D,E' if $saw_failure; + return 'F,D,E' if @rejects; return 'D,E' if $saw_fuzz && !$failures_only; return 'D,U,N' if $saw_offset && !$failures_only; 'N'; } +sub filter_diff +{ + my($cmd) = @_; + open(IN, '-|', $cmd) or die $!; + while () { + next if /^(diff -|Index: |Only in )/; + s#^\Q--- cvsdir/\E([^\t]+).*#--- old/$1#; + s#^\Q+++ workdir/\E([^\t]+).*#+++ new/$1#; + print OUT $_; + } + close IN; +} + sub generate_new_patch { my($diff) = @_; @@ -251,15 +247,14 @@ sub generate_new_patch print OUT $_; } close IN; - open(IN, 'diff --exclude-from=exclude -upr cvsdir workdir |') or die $!; - while () { - next if /^(diff -|Index: |Only in )/; - s#^\Q--- cvsdir/\E#--- orig/#; - s#^\Q+++ workdir/\E#+++ #; - s#(\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d)(\.\d\d\d\d\d\d\d\d\d)? \+0000$#$1#; - print OUT $_; + &filter_diff('diff --exclude-from=exclude -upr cvsdir workdir'); + if ($prepare_source) { + # These are not included in the diff above so that patch will give + # generated files a later timestamp than the source files. + foreach my $fn (@generated_files) { + &filter_diff("diff -up cvsdir/$fn workdir"); + } } - close IN; close OUT; foreach (@new) { unlink("cvsdir/$_"); @@ -298,6 +293,7 @@ sub usage { die <