Support multiple languages

diff --git a/gruntmaster-compile b/gruntmaster-compile
index 0414e4f79dd7ff90353328628faf1bfe0b89c7e6..2d98d1438e8267940aff8536044e3d3e622d430e 100755 (executable)
--- a/gruntmaster-compile
+++ b/gruntmaster-compile
@@ -2,15 +2,22 @@
 use v5.14;
 no if $] > 5.017011, warnings => 'experimental::smartmatch';
 
 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) {
 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 {
 } 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']
+       }

 }
 }

diff --git a/lib/Gruntmaster/Daemon/Format.pm b/lib/Gruntmaster/Daemon/Format.pm
index 948e25a9bb68bb2c554c16fd8de384d669ecae09..5f34a3325dd59d873874144dfd0b39b5dd1cd478 100644 (file)
--- a/lib/Gruntmaster/Daemon/Format.pm
+++ b/lib/Gruntmaster/Daemon/Format.pm
@@ -4,6 +4,7 @@ use 5.014000;
 use strict;
 use warnings;
 use parent qw/Exporter/;
 use strict;
 use warnings;
 use parent qw/Exporter/;

+no if $] > 5.017011, warnings => 'experimental::smartmatch';

 
 use POSIX qw//;
 use File::Basename qw/fileparse/;
 
 use POSIX qw//;
 use File::Basename qw/fileparse/;


@@ -23,8 +24,15 @@ our @EXPORT_OK = qw/mkrun/;
 
 sub command_and_args{
        my ($format, $basename) = @_;
 
 sub command_and_args{
        my ($format, $basename) = @_;

-       return "./$basename" if $format eq 'CPP';
-       die
+
+       given($format) {
+               "./$basename" when [qw/C CPP 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" }
+       }

 }
 
 sub mkrun{
 }
 
 sub mkrun{