First draft of script to automatically download and build

required version of Parrot.
rakudo · Feb 16, 2009 · 2ff60d5 · 2ff60d5
1 parent 10909da
commit 2ff60d5
Showing 1 changed file with 80 additions and 0 deletions.
diff --git a/build/gen_parrot.pl b/build/gen_parrot.pl
@@ -0,0 +1,80 @@
+#! perl
+# Copyright (C) 2009 The Perl Foundation
+
+=head1 TITLE
+
+gen_parrot.pl - script to obtain and build Parrot for Rakudo
+
+=head2 SYNOPSIS
+
+    perl gen_parrot.pl
+
+=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.
+
+=cut
+
+use strict;
+use warnings;
+use 5.008;
+
+#  Work out slash character to use.
+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 $required = <$REQ>; chomp $required;
+close $REQ;
+
+{
+    no warnings;
+    if (open my $REV, '-|', "parrot${slash}parrot_config revision") {
+        my $revision = <$REV>;
+        close $REV;
+        chomp $revision;
+        if ($revision >= $required) {
+            print "Parrot r$revision already available (r$required required)\n";
+            exit(0);
+        }
+    }
+}
+
+print "Checking out Parrot r$required via svn...\n";
+system("svn checkout -r $required https://svn.parrot.org/parrot/trunk parrot");
+
+chdir('parrot');
+
+
+##  If we have a Makefile from a previous build, do a 'make realclean'
+if (-f 'Makefile') {
+    my %config = read_parrot_config();
+    my $make = $config{'make'};
+    if ($make) {
+        print "Performing '$make realclean'\n";
+        system("$make realclean");
+    }
+}
+
+##  Configure Parrot
+system("$^X Configure.pl");
+
+my %config = read_parrot_config();
+my $make = $config{'make'};
+
+system($make);
+
+sub read_parrot_config {
+    my %config = ();
+    if (open my $CFG, "config_lib.pasm") {
+        while (<$CFG>) {
+            if (/P0\["(.*?)"], "(.*?)"/) { $config{$1} = $2 }
+        }
+        close $CFG;
+    }
+    %config;
+}
+