From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 14 Feb 2015 16:49:21 +0000 (+0200)
Subject: Treat SBCL files as scripts
X-Git-Tag: 5999.000_005~31
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=dbd5d64f321f42bf18d21b5274e88f7ffa1b44da;p=gruntmaster-daemon.git

Treat SBCL files as scripts
---

diff --git a/gruntmaster-compile b/gruntmaster-compile
index af72ff8..6ff8dd7 100755
--- 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;