Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Start to convert build system to work with Parrot on git

  • Loading branch information...
commit db25963528a6131ab29fc2b220139de01bcacdc5 1 parent 19a8b71
Duke Leto authored

Showing 1 changed file with 11 additions and 19 deletions. Show diff stats Hide diff stats

  1. +11 19 build/gen_parrot.pl
30 build/gen_parrot.pl
@@ -12,8 +12,8 @@ =head2 SYNOPSIS
12 12 =head2 DESCRIPTION
13 13
14 14 Maintains an appropriate copy of Parrot in the parrot/ subdirectory.
15   -The revision of Parrot to be used in the build is given by the
16   -build/PARROT_REVISION file.
  15 +The SHA1 of Parrot to be used in the build is given by the
  16 +build/PARROT_SHA1 file.
17 17
18 18 =cut
19 19
@@ -25,29 +25,21 @@ =head2 DESCRIPTION
25 25 my $slash = $^O eq 'MSWin32' ? '\\' : '/';
26 26
27 27 ## determine what revision of Parrot we require
28   -open my $REQ, "build/PARROT_REVISION"
29   - || die "cannot open build/PARROT_REVISION\n";
30   -my ($reqsvn, $reqpar) = split(' ', <$REQ>);
31   -$reqsvn += 0;
  28 +open my $REQ, "build/PARROT_SHA1"
  29 + || die "cannot open build/PARROT_SHA1\n";
  30 +my ($reqsha1) = <$REQ>;
32 31 close $REQ;
33 32
34   -{
35   - no warnings;
36   - if (open my $REV, '-|', "parrot_install${slash}bin${slash}parrot_config revision") {
37   - my $revision = 0+<$REV>;
38   - close $REV;
39   - if ($revision >= $reqsvn) {
40   - print "Parrot r$revision already available (r$reqsvn required)\n";
41   - exit(0);
42   - }
43   - }
44   -}
  33 +# TODO: Check if we already have the neccessary Parrot
45 34
46   -print "Checking out Parrot r$reqsvn via svn...\n";
47   -system_or_die(qw(svn checkout -r), $reqsvn , qw(https://svn.parrot.org/parrot/trunk parrot));
  35 +print "Cloning Parrot repo via git...\n";
  36 +system_or_die(qw(git clone), qw(git://github.com/parrot/parrot.git));
48 37
49 38 chdir('parrot') || die "Can't chdir to 'parrot': $!";
50 39
  40 +# This leaves the parrot repo in a HEADless state. Implications?
  41 +system_or_die(qw(git checkout $reqsha1));
  42 +
51 43
52 44 ## If we have a Makefile from a previous build, do a 'make realclean'
53 45 if (-f 'Makefile') {

0 comments on commit db25963

Please sign in to comment.
Something went wrong with that request. Please try again.