X-Git-Url: http://git.ieval.ro/?p=gruntmaster-daemon.git;a=blobdiff_plain;f=gruntmaster-compile;h=2d98d1438e8267940aff8536044e3d3e622d430e;hp=0414e4f79dd7ff90353328628faf1bfe0b89c7e6;hb=9577371b26a374ad3ff73a914546701c1ae138cf;hpb=da905f9ea0693b88b7ca37514fbacf4c2383f2bf

diff --git a/gruntmaster-compile b/gruntmaster-compile
index 0414e4f..2d98d14 100755
--- a/gruntmaster-compile
+++ b/gruntmaster-compile
@@ -2,15 +2,22 @@
 use v5.14;
 no if $] > 5.017011, warnings => 'experimental::smartmatch';
 
+use File::Copy qw/copy/;
+
 my ($format, $basename, $name) = @ARGV;
 my $ret = fork // die $!;
 if ($ret) {
-  $SIG{ALRM} = sub {kill KILL => $ret};
-  alarm 5;
-  wait;
-  exit $? >> 8
+	$SIG{ALRM} = sub {kill KILL => $ret};
+	alarm 5;
+	wait;
+	exit $? >> 8
 } else {
-  given ($format){
-	exec 'g++', '-o', $basename, $name when 'CPP';
-  }
+	given ($format){
+		exec 'gcc', qw/-DONLINE_JUDGE -std=gnu11 -Wextra -O2 -o/, $basename, $name when 'C';
+		exec 'g++', qw/-DONLINE_JUDGE -std=gnu++11 -fabi-version=6 -Wextra -O2 -o/, $basename, $name when 'CPP';
+		exec 'gmcs', '-d:ONLINE_JUDGE', $name when  'MONO';
+		exec 'javac', $name when 'JAVA';
+		exec 'fpc', qw/-dONLINE_JUDGE -O2 -n/, $name when 'PASCAL';
+		copy $name, $basename when ['PERL', 'PYTHON']
+	}
 }