Add 'time' command to time individual checkouts; change timeall program to support this (minimally, at least)

Author: Geoffrey Broadwell

bench

@@ -161,6 +161,27 @@ multi MAIN ('clean', *@components) {
     }
 }
 
+#= Run timing benchmarks on built components
+multi MAIN ('time', *@components) {
+    needs-setup('benchmark Perls');
+
+    for explode-components(@components) -> $comp {
+        my $name = $comp<info><name>;
+        say "==> $name";
+
+        my @checkouts = $comp<checkouts>;
+        for $comp<checkouts>.list -> $checkout {
+            say "----> $checkout";
+            chdir "$COMPONENTS_DIR/$name/$checkout";
+
+            my $results_dir = "$PROGRAM_DIR/results/$name";
+            mkpath $results_dir;
+
+            run "$PROGRAM_DIR/timeall", "--outfile=$results_dir/$checkout.json", $name;
+        }
+    }
+}
+
 #= Remove *everything* not part of the core benchmark tree
 multi MAIN ('realclean', Bool :$force) {
     unless $force {

timeall

@@ -237,6 +237,15 @@ sub MAIN {
     my $out_fh = $opt{outfile} eq '-' ? \*STDOUT : IO::File->new($opt{outfile}, '>')
         or die "Could not open outfile '$opt{outfile}': $!";
 
+    # Allow selecting a subset of available compilers
+    if (@ARGV) {
+        for my $set (values %COMPILERS) {
+            for my $compiler (@$set) {
+                $compiler->{enabled} = 0 unless grep {$_ eq $compiler->{name}} @ARGV;
+            }
+        }
+    }
+
     # Record general test configuration and info
     my %config = (
                   default   => \%DEFAULT,