Treat SBCL files as scripts

[gruntmaster-daemon.git] / gruntmaster-compile

diff --git a/gruntmaster-compile b/gruntmaster-compile
index af72ff81f211197c9d15bf5ab3480c509de94566..6ff8dd75ce2b03629d06a4527851c44819298d98 100755 (executable)
--- a/gruntmaster-compile
+++ b/gruntmaster-compile
@@ -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;