From 4227a91299d15d35a66f7b7e6a91bef08a41186d Mon Sep 17 00:00:00 2001
From: "Ryan C. Gordon" <icculus@icculus.org>
Date: Mon, 7 Apr 2008 13:18:31 -0400
Subject: [PATCH] Added svnpush.pl for now.

--HG--
branch : trunk
---
 svnpush.pl | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100755 svnpush.pl

diff --git a/svnpush.pl b/svnpush.pl
new file mode 100755
index 00000000..09852d4e
--- /dev/null
+++ b/svnpush.pl
@@ -0,0 +1,52 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+print("Making sure svn working copy is up to date...\n");
+system("cd ../mojoshader ; svn update");
+my $svnver = `cd ../mojoshader ; svnversion`;
+chomp($svnver);
+my $hgver = `cd ../mojoshader ; svn log -r${svnver} |grep 'changeset:'`;
+chomp($hgver);
+$hgver =~ s/^changeset:\s+(\d+):.*\Z/$1/;
+my $min = $hgver;
+$hgver = `hg tip |grep 'changeset:'`;
+chomp($hgver);
+$hgver =~ s/^changeset:\s+(\d+):.*\Z/$1/;
+my $max = $hgver;
+
+if ($min == $max) {
+    print("We're already up to date. Exiting.\n");
+    exit 0;
+}
+
+$min++;  # $min was the last committed revision, so we need to start one later.
+
+print("first hg revision to commit to svn == '$min'\n");
+print("last hg revision to commit to svn == '$max'\n");
+
+my $i;
+for ($i = $min; $i <= $max; $i++) {
+    my $p = $i - 1;
+
+    print("Revision #$i ...\n");
+    print("Getting log from Mercurial...\n");
+    system("hg log -v -r$i |grep -v '^tag: ' |tail -n +7 > commit.txt");
+    system("echo >> commit.txt");
+    system("echo 'This commit is from my temporary Mercurial repository...' >> commit.txt");
+    system("hg log -v -r$i |grep -v '^tag: ' |head -n 4 >> commit.txt");
+    print("Getting diff...\n");
+    system("hg diff -r${p}:${i} > patch.diff");
+    print("Patching svn working copy...\n");
+    system("cd ../mojoshader ; patch -p1 < ../hg-mojoshader/patch.diff");
+    print("Committing svn working copy...\n");
+    system("cd ../mojoshader ; svn commit -F ../hg-mojoshader/commit.txt");
+    print("Cleaning up...\n");
+    system("rm -rf commit.txt patch.diff");
+    print("...revision committed!\n");
+}
+
+print("svn push complete!\n\n");
+exit 0;
+