diff options
Diffstat (limited to 'build/buildall.pl')
-rw-r--r-- | build/buildall.pl | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/build/buildall.pl b/build/buildall.pl deleted file mode 100644 index 55dc9c6..0000000 --- a/build/buildall.pl +++ /dev/null @@ -1,73 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; - -use File::Spec; -use File::Copy; - -my $inst_path = File::Spec->rel2abs(shift(@ARGV) || 'build'); -print "Installing to '$inst_path'\n"; -if ($inst_path =~ /\s/) { - warn "Path names with whitspace are known to cause trouble\n" - . "You would be on the safer side without them - set with $^X $0 'inst_path'\n"; -} - -chdir('rakudo') or die "Can't chdir to rakudo: $!"; -print "Building parrot and Rakudo...\n"; -system($^X, 'Configure.pl', '--gen-parrot', "--gen-parrot-prefix=$inst_path") == 0 - or die "Can't run $^x Configure.pl ($?): $!"; - -my %config = read_parrot_config(); -my $make = $config{make}; - -system($make, 'install') == 0 - or die "Can't run 'make install' for Rakudo: ($?): $!"; - -chdir('..') or die "Can't chdir back to .., something's seriously wrong!\n"; - -print "Rakudo build was successful. \\o/\n"; - -my $path_var_sep = $^O =~ /mswin32/i ? ';' : ':'; -$ENV{PATH} = join '', "$inst_path/bin", $path_var_sep, $ENV{PATH}; - -my $res = qx/perl6 -e 'say "sanity";'/; -chomp $res; -if ($res ne 'sanity') { - die "Sanity check for running Rakudo Perl 6 failed. Got '$res', Expected: 'sanity'\n" - . "Aborting.\n"; -} - -print "Things look good so far, executing a very simple Perl 6 program worked!\n"; - - -copy('ufo/ufo', "$inst_path/bin/") or die "Can't copy ufo/ufo to $inst_path/bin: $!"; -print "We now have alien technology that lets us install more modules...\n"; - -$ENV{PLS_NO_FETCH} = 1; - -use Cwd; -my $proto_lib = getcwd() . '/proto/lib'; -$ENV{PERL6LIB} = $proto_lib; -chdir 'proto' or die "Can't chdir to 'proto': $!"; -# TODO: find a better way to determine which modules to install in this step. -# Likely derive from @modules or so. -for (qw(zavolaj xml-writer svg svg-plot Math-RungeKutta Math-Model)) { - print "Installing $_...\n"; - system('perl6', 'proof-of-concept', $_) == 0 - or die "Can't run poc $_ ($?): $!"; - -} - - -sub read_parrot_config { - my %config = (); - if (open my $CFG, "parrot/config_lib.pir") { - while (<$CFG>) { - if (/P0\["(.*?)"], "(.*?)"/) { $config{$1} = $2 } - } - close $CFG; - } - %config; -} - - |