-sub command_and_args{
- my ($format, $basename) = @_;
-
- given($format) {
- "./$basename" when [qw/C CPP GCCGO GOLANG HASKELL PASCAL/];
- "./$basename.exe" when 'MONO';
- java => $basename when 'JAVA';
- perl => $basename when 'PERL';
- python => $basename when 'PYTHON';
- default { die "Don't know how to execute format $format\n" }
+sub execlist {
+ my ($vm, @args) = @_;
+ my $er = "exec-result-$vm";
+ if ($vm{$vm}) {
+ my $cmd = ">$er " . shell_quote 'gruntmaster-exec', @args;
+ get_logger->trace("Running in VM $vm: $cmd");
+ $vm{$vm}->send($cmd, "\n");
+ } else {
+ $pid{$vm} = fork // die "Cannot fork\n";
+ unless ($pid{$vm}) {
+ open STDOUT, '>', $er or die "Cannot open $er\n";
+ get_logger->trace("Running: gruntmaster-exec @args");
+ exec 'gruntmaster-exec', @args;
+ }