From 7a3799263603229812e619548306f176b0029834 Mon Sep 17 00:00:00 2001
From: Colin Watson <cjwatson@chiark.greenend.org.uk>
Date: Sat, 27 Mar 2004 10:55:12 +0000
Subject: [PATCH] Add svnpath, from svn://kitenet.net/joey/trunk/bin/svnpath.

---
 svnpath | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 svnpath

diff --git a/svnpath b/svnpath
new file mode 100755
index 0000000..d6a7fc4
--- /dev/null
+++ b/svnpath
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+# Work out paths in a subversion repository for branches or tags of the
+# given directory. Works on current directory by default, or it can be given
+# a path.
+
+my $wanted=shift;
+
+# Get the svn url of the current directory.
+my $url = `svn info @ARGV| grep -i ^URL: | cut -d ' ' -f 2`;
+if (! length $url) {
+	die "cannot get url";
+}
+
+if (length $wanted) {
+	# Now jut substitute into it.
+	$url=~s!/(?:trunk|branches|tags)($|/)!/$wanted$1!;
+}
+print $url;
-- 
2.30.2