projects
/
gruntmaster-daemon.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c88da74
)
Treat SBCL files as scripts
author
Marius Gavrilescu
<marius@ieval.ro>
Sat, 14 Feb 2015 16:49:21 +0000
(18:49 +0200)
committer
Marius Gavrilescu
<marius@ieval.ro>
Sat, 14 Feb 2015 16:49:36 +0000
(18:49 +0200)
gruntmaster-compile
patch
|
blob
|
blame
|
history
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';
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;
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;
print OUT while <IN>;
close OUT;
close IN;
This page took
0.010488 seconds
and
4
git commands to generate.