[gruntmaster-daemon.git] / gruntmaster-compile

#!/usr/bin/perl -w
use v5.14;
no if $] > 5.017011, warnings => 'experimental::smartmatch';

my ($format, $basename, $name) = @ARGV;
my $ret = fork // die $!;
if ($ret) {
  $SIG{ALRM} = sub {kill KILL => $ret};
  alarm 5;
  wait;
  exit $? >> 8
} else {
  given ($format){
	exec 'g++', '-o', $basename, $name when 'CPP';
  }
}
Commit	Line	Data
	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	}