X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~cjwatson/git?a=blobdiff_plain;f=svnpath;fp=svnpath;h=d6a7fc462bf27387661d11e902df0be5aa24d896;hb=7a3799263603229812e619548306f176b0029834;hp=0000000000000000000000000000000000000000;hpb=647f456833ea9f71933edd25af9e2bc175bbce68;p=bin.git

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;