X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/blobdiff_plain/49ebb358ab3ae8b65ceb97725ee79e821d424f73..67b9b26ff3687a3b43358c7608d6b1981495ab88:/support/patch-update diff --git a/support/patch-update b/support/patch-update index 20fbcab8..e37cf7c9 100755 --- a/support/patch-update +++ b/support/patch-update @@ -10,18 +10,26 @@ use strict; die "No 'patches' directory present in the current dir.\n" unless -d 'patches'; die "No '.git' directory present in the current dir.\n" unless -d '.git'; -open(IN, '<', 'prepare-source.mak') or die "Couldn't open prepare-source.mak: $!\n"; -$_ = join('', ); +my @extra_files; +open(IN, '<', 'Makefile.in') or die "Couldn't open Makefile.in: $!\n"; +while () { + if (s/^GENFILES=//) { + while (s/\\$//) { + $_ .= ; + } + @extra_files = split(' ', $_); + last; + } +} close IN; -my @extra_files = m{\n([^\s:]+):.*\n\t\S}g; my $incl_generated_files = shift if @ARGV && $ARGV[0] eq '--gen'; system "git-checkout master" and exit 1; if ($incl_generated_files) { die "'a' must not exist in the current directory.\n" if -e 'a'; die "'b' must not exist in the current directory.\n" if -e 'b'; - system "./prepare-source && rsync -a @extra_files a/" and exit 1; + system "make gen && rsync -a @extra_files a/" and exit 1; } my $last_touch = time; @@ -45,8 +53,54 @@ while () { } close PIPE; +my(%parent, %description); foreach my $patch (@patches) { + my $branch = ($local_patch{$patch} ? '' : 'origin/') . "patch/$patch"; + open(PIPE, '-|', 'git-diff', "master...$branch", '--', "PATCH.$patch") or die $!; + while () { + last if /^@@ /; + } + my $desc = ''; + while () { + next if /^-/; # huh?? + s/^.//; + if (m#patch -p1 ', "patches/$patch.diff") or die $!; - - while () { - if (m#patch -p1