From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 25 Mar 2018 16:10:49 +0000 (+0100)
Subject: git-debrebase: Provide anchor subcommand
X-Git-Tag: archive/debian/5.0~93
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=fd532a0a35cad3d4753d4f0a2549af2a8b268cc9

git-debrebase: Provide anchor subcommand

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/git-debrebase b/git-debrebase
index 4667e8b1..f2997a3a 100755
--- a/git-debrebase
+++ b/git-debrebase
@@ -1224,6 +1224,12 @@ sub cmd_record_ffq_prev () {
     }
 }
 
+sub cmd_anchor () {
+    badusage "no arguments allowed" if @ARGV;
+    my ($anchor, $bw) = keycommits +(git_rev_parse 'HEAD'), 0,0;
+    print "$bw\n" or die $!;
+}
+
 sub cmd_breakwater () {
     badusage "no arguments allowed" if @ARGV;
     my ($anchor, $bw) = keycommits +(git_rev_parse 'HEAD'), 0,0;
diff --git a/git-debrebase.1.pod b/git-debrebase.1.pod
index ba603ba5..ed33b79c 100644
--- a/git-debrebase.1.pod
+++ b/git-debrebase.1.pod
@@ -201,6 +201,10 @@ Prints the breakwater tip commitid.
 If your HEAD branch is not fully laundered,
 prints the tip of the so-far-laundered breakwater.
 
+=item git-debrebase anchor
+
+Prints the breakwater anchor commitid.
+
 =item git-debrebase analyse
 
 Walks the history of the current branch,