Treat SBCL files as scripts
authorMarius Gavrilescu <marius@ieval.ro>
Sat, 14 Feb 2015 16:49:21 +0000 (18:49 +0200)
committerMarius Gavrilescu <marius@ieval.ro>
Sat, 14 Feb 2015 16:49:36 +0000 (18:49 +0200)
gruntmaster-compile

index af72ff8..6ff8dd7 100755 (executable)
@@ -28,18 +28,13 @@ given ($format){
        exec 'go', qw/build -compiler gc/, $name when 'GOLANG';
        exec 'go', qw/build -compiler gccgo/, $name, when 'GCCGO';
        exec 'ghc', qw/-DONLINE_JUDGE -Wall -O2 -o/, $basename, $name when 'HASKELL';
-       when ('SBCL') {
-               system 'sbcl', '--noinform', '--eval', qq/(compile-file "$name")/, '--quit' and die "sbcl failed: errno=$! return=$?";
-               rename "$basename.fasl", $basename;
-               chmod 0755, $basename;
-               exit
-       }
 
-       when ([qw/PERL PYTHON/]){
+       when ([qw/PERL PYTHON SBCL/]){
                open IN, '<', $name;
                open OUT, '>', $basename;
-               print OUT "#!/usr/bin/perl\n"   if $_ eq 'PERL';
-               print OUT "#!/usr/bin/python\n" if $_ eq 'PYTHON';
+               print OUT "#!/usr/bin/perl\n"          if $_ eq 'PERL';
+               print OUT "#!/usr/bin/python\n"        if $_ eq 'PYTHON';
+               print OUT "#!/usr/bin/sbcl --script\n" if $_ eq 'SBCL';
                print OUT while <IN>;
                close OUT;
                close IN;
This page took 0.025207 seconds and 4 git commands to generate.