gruntmaster-compile

   1 #!/usr/bin/perl -w
   2 use v5.14;
   3 no if $] > 5.017011, warnings => 'experimental::smartmatch';
   4
   5 my ($format, $basename, $name) = @ARGV;
   6 my $ret = fork // die $!;
   7 if ($ret) {
   8   $SIG{ALRM} = sub {kill KILL => $ret};
   9   alarm 5;
  10   wait;
  11   exit $? >> 8
  12 } else {
  13   given ($format){
  14         exec 'g++', '-o', $basename, $name when 'CPP';
  15   }
  16 }