From db25963528a6131ab29fc2b220139de01bcacdc5 Mon Sep 17 00:00:00 2001
From: "Jonathan \"Duke\" Leto" <jonathan@leto.net>
Date: Tue, 7 Sep 2010 14:36:49 -0700
Subject: [PATCH] Start to convert build system to work with Parrot on git

---
 build/gen_parrot.pl | 30 +++++++++++-------------------
 1 file changed, 11 insertions(+), 19 deletions(-)

diff --git a/build/gen_parrot.pl b/build/gen_parrot.pl
index 63173a3c094..178181f7bd2 100644
--- a/build/gen_parrot.pl
+++ b/build/gen_parrot.pl
@@ -12,8 +12,8 @@ =head2 SYNOPSIS
 =head2 DESCRIPTION
 
 Maintains an appropriate copy of Parrot in the parrot/ subdirectory.
-The revision of Parrot to be used in the build is given by the
-build/PARROT_REVISION file.
+The SHA1 of Parrot to be used in the build is given by the
+build/PARROT_SHA1 file.
 
 =cut
 
@@ -25,29 +25,21 @@ =head2 DESCRIPTION
 my $slash = $^O eq 'MSWin32' ? '\\' : '/';
 
 ##  determine what revision of Parrot we require
-open my $REQ, "build/PARROT_REVISION"
-  || die "cannot open build/PARROT_REVISION\n";
-my ($reqsvn, $reqpar) = split(' ', <$REQ>);
-$reqsvn += 0;
+open my $REQ, "build/PARROT_SHA1"
+  || die "cannot open build/PARROT_SHA1\n";
+my ($reqsha1) = <$REQ>;
 close $REQ;
 
-{
-    no warnings;
-    if (open my $REV, '-|', "parrot_install${slash}bin${slash}parrot_config revision") {
-        my $revision = 0+<$REV>;
-        close $REV;
-        if ($revision >= $reqsvn) {
-            print "Parrot r$revision already available (r$reqsvn required)\n";
-            exit(0);
-        }
-    }
-}
+# TODO: Check if we already have the neccessary Parrot
 
-print "Checking out Parrot r$reqsvn via svn...\n";
-system_or_die(qw(svn checkout -r),  $reqsvn , qw(https://svn.parrot.org/parrot/trunk parrot));
+print "Cloning Parrot repo via git...\n";
+system_or_die(qw(git clone), qw(git://github.com/parrot/parrot.git));
 
 chdir('parrot') || die "Can't chdir to 'parrot': $!";
 
+# This leaves the parrot repo in a HEADless state. Implications?
+system_or_die(qw(git checkout $reqsha1));
+
 
 ##  If we have a Makefile from a previous build, do a 'make realclean'
 if (-f 'Makefile') {