git-debrebase: Provide anchor subcommand

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

diff --git a/git-debrebase b/git-debrebase
index 4667e8b1b8b408b8245e634f597adca7e78a12f3..f2997a3af65fe59b6c52a9efe68f060b5d7acfa9 100755 (executable)
--- 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 ba603ba577091b6a5ac84b1637fd2c0a8fd9fb3c..ed33b79c1f8d59cb7c3b08983515ed177da7212e 100644 (file)
--- 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,