From 6e3fd021588c87a0743dbc1ec5b3f5aba900f839 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Sat, 20 Aug 2016 16:26:06 +1200
Subject: Port vr(1) to POSIX sh

---
 sh/shrc.d/vr.sh | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 sh/shrc.d/vr.sh

(limited to 'sh/shrc.d/vr.sh')

diff --git a/sh/shrc.d/vr.sh b/sh/shrc.d/vr.sh
new file mode 100644
index 00000000..b8a31aee
--- /dev/null
+++ b/sh/shrc.d/vr.sh
@@ -0,0 +1,49 @@
+# Move to the root directory of a VCS working copy
+vr() {
+
+    # Set positional parameters to the result of trying to figure out the
+    # repository root
+    set -- "$(
+
+        # Check we have at most one argument
+        if [ "$#" -gt 1 ] ; then
+            printf >&2 'vr(): Too many arguments\n'
+            exit 2
+        fi
+
+        # Get path from first argument, strip trailing slash
+        path=${1:-"$PWD"}
+        [ "$path" = / ] || path=${path%/}
+
+        # Step into the directory
+        cd -- "$path" || exit
+
+        # Ask Git the top level (good)
+        git rev-parse --show-toplevel 2>/dev/null && exit
+
+        # Ask Mercurial the top level (great)
+        hg root 2>/dev/null && exit
+
+        # If we can get SVN info, iterate upwards until we can't; hopefully
+        # that's the root (bad)
+        while svn info >/dev/null 2>&1 ; do
+            root=$PWD
+            [ "$root" = / ] && break
+            cd .. || exit
+        done
+        if [ -n "$root" ] ; then
+            printf '%s\n' "$root"
+            exit
+        fi
+
+        # Couldn't find repository root, say so
+        printf >&2 'vr(): Failed to find repository root\n'
+        exit 1
+    )"
+
+    # Check we figured out a target, or bail
+    [ -n "$1" ] || return
+
+    # Try to change into the determined directory
+    command cd -- "$@"
+}
-- 
cgit v1.2.3