Make it possible to create a new patch file while on a patch branch.
[rsync/rsync.git] / packaging / patch-update
index 241cd16..4ac01eb 100755 (executable)
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# This script is used to turn one or more of the "patch/*" branches
+# This script is used to turn one or more of the "patch/BASE/*" branches
 # into one or more diffs in the "patches" directory.  Pass the option
 # --gen if you want generated files in the diffs.  Pass the name of
 # one or more diffs if you want to just update a subset of all the
@@ -31,10 +31,8 @@ if (defined $incl_generated_files) {
 die "No '$patches_dir' directory was found.\n" unless -d $patches_dir;
 die "No '.git' directory present in the current dir.\n" unless -d '.git';
 
-my($status, $is_clean, $starting_branch) = &check_git_status;
-if (!$skip_branch_check && !$is_clean) {
-    die "The checkout is not clean:\n", $status;
-}
+require 'packaging/git-status.pl';
+my $starting_branch = check_git_state($master_branch, !$skip_branch_check, 1);
 
 my $master_commit;
 open PIPE, '-|', "git log -1 --no-color $master_branch" or die $!;
@@ -72,7 +70,7 @@ my %patches;
 # Start by finding all patches so that we can load all possible parents.
 open(PIPE, '-|', 'git', 'branch', '-l') or die $!;
 while (<PIPE>) {
-    if (m# patch/(.*)#) {
+    if (m# patch/\Q$master_branch\E/(.*)#o) {
        $patches{$1} = 1;
     }
 }
@@ -82,7 +80,7 @@ my @patches = sort keys %patches;
 
 my(%parent, %description);
 foreach my $patch (@patches) {
-    my $branch = "patch/$patch";
+    my $branch = "patch/$master_branch/$patch";
     my $desc = '';
     open(PIPE, '-|', 'git', 'diff', '-U1000', "$master_branch...$branch", '--', "PATCH.$patch") or die $!;
     while (<PIPE>) {
@@ -141,7 +139,7 @@ sub update_patch
        unless ($completed{$parent}++) {
            update_patch($parent);
        }
-       $based_on = $parent = "patch/$parent";
+       $based_on = $parent = "patch/$master_branch/$parent";
     } else {
        $parent = $master_branch;
        $based_on = $master_commit;
@@ -150,12 +148,13 @@ sub update_patch
     print "======== $patch ========\n";
 
     sleep 1 while $incl_generated_files && $last_touch >= time;
-    system "git checkout patch/$patch" and return 0;
+    system "git checkout patch/$master_branch/$patch" and return 0;
 
     my $ok = system("git merge $based_on") == 0;
     if (!$ok || $launch_shell) {
+       my($parent_dir) = $parent =~ m{([^/]+)$};
        print qq|"git merge $based_on" incomplete -- please fix.\n| if !$ok;
-       $ENV{PS1} = "[$parent] patch/$patch: ";
+       $ENV{PS1} = "[$parent_dir] $patch: ";
        while (1) {
            if (system($ENV{SHELL}) != 0) {
                print "Abort? [n/y] ";
@@ -163,7 +162,7 @@ sub update_patch
                next unless /^y/i;
                return 0;
            }
-           ($status, $is_clean) = &check_git_status;
+           my($cur_branch, $is_clean, $status) = check_git_status(0);
            last if $is_clean;
            print $status;
        }
@@ -214,22 +213,18 @@ sub update_patch
 
 exit;
 
-sub check_git_status
-{
-    open(IN, '-|', 'git status') or die $!;
-    my $status = join('', <IN>);
-    close IN;
-    my $is_clean = $status =~ /\nnothing to commit \(working directory clean\)/;
-    my($starting_branch) = $status =~ /^# On branch (.+)\n/;
-    ($status, $is_clean, $starting_branch);
-}
-
 sub usage
 {
     die <<EOT;
-Usage: patch-update [OPTIONS]
-
---gen[=DIR]   Include generated files.  Optional dest DIR overrides "patches".
---skip-check  Skip the check that ensures starting with a clean branch.
+Usage: patch-update [OPTIONS] [patches/DIFF...]
+
+Options:
+-b, --branch=BRANCH  The master branch to merge into the patch/BASE/* branches.
+    --gen[=DIR]      Include generated files.  Optional destination DIR
+                     arg overrides the default of using the "patches" dir.
+    --skip-check     Skip the check that ensures starting with a clean branch.
+-s, --shell          Launch a shell for every patch/BASE/* branch updated, not
+                     just when a conflict occurs.
+-h, --help           Output this help message.
 EOT
 }