added 'toqast' target

This time with correctness.

Author: Carl Masak

build-scripts/rebuild-toqast.pl

@@ -0,0 +1,53 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use File::Path qw(rmtree);
+use 5.010;
+use autodie;
+use Data::Dumper;
+
+chdir glob '~';
+
+my $home = glob('~') . '/';
+my @dirs = qw(toqast-inst1 toqast-inst2);
+my %swap = (@dirs, reverse(@dirs));
+
+my $link = 'toqast-inst';
+
+my $now = readlink $link;
+my $other = $swap{$now};
+
+say "Other: '$other'";
+chdir "${home}toqast/nqp";
+system('git', 'pull');
+chdir "${home}toqast";
+system('git', 'pull');
+
+my $revision_file = "$home$other/rakudo-revision";
+eval {
+    open my $fh, '<', $revision_file or break;
+    my $r = <$fh>;
+    close $fh;
+
+    chomp $r;
+    my $needs_rebuild = `git rev-parse HEAD | grep ^$r|wc -l`;
+    chomp $needs_rebuild;
+    if ($needs_rebuild) {
+        say "Don't need to rebuild, we are on the newest revision anyway";
+        exit;
+    }
+};
+
+chdir "${home}toqast/nqp";
+system($^X, 'Configure.pl', '--with-parrot=../parrot/parrot');
+system('make', 'install')       and die $?;
+chdir "${home}toqast";
+system($^X, 'Configure.pl', "--gen-parrot");
+system('make', 'install')       and die $?;
+system('cp', '-r', <install/*>, "$home$other");
+system("git rev-parse HEAD | cut -b 1,2,3,4,5,6 > $revision_file") and warn $?;
+
+chdir $home;
+unlink $link;
+symlink $other, $link;
+

evalbot.pl

@@ -62,6 +62,7 @@ package Evalbot;
         perl6  => [qw/rakudo niecza/],
         rn  => [qw/rakudo niecza/ ],
         nr  => [qw/rakudo niecza/ ],
+        t   => 'toqast',
     );
     $aliases{$_} = [qw/rakudo niecza pugs/] for qw/rnp rpn nrp npr prn pnr/;
 
@@ -137,6 +138,12 @@ package Evalbot;
                 cmd_line    => './bin/perl6 --setting=SAFE %program',
                 revision    => sub { get_revision_from_file("$home/star/version") },
             },
+            toqast => {
+                chdir       => "$home",
+                cmd_line    => './toqast-inst/bin/perl6 --setting=RESTRICTED %program',
+                nolock      => 1,
+                revision    => sub { get_revision_from_file('~/toqast-inst/rakudo-revision')},
+            },
 #            alpha => {
 #                chdir       => "$home/rakudo-alpha/",
 #                cmd_line    => 'PERL6LIB=lib ../rakudo-alpha/perl6 %program',