]> iEval git - gruntmaster-daemon.git/blame_incremental - gruntmaster-compile
Test pipes when running interactive programs before executing them
[gruntmaster-daemon.git] / gruntmaster-compile
... / ...
CommitLineData
1#!/usr/bin/perl -w
2use v5.14;
3no if $] > 5.017011, warnings => 'experimental::smartmatch';
4
5use File::Copy qw/copy/;
6use File::Basename qw/fileparse/;
7
8my ($format, $name) = @ARGV;
9my $basename = fileparse $name, qr/\..*/;
10
11given ($format){
12 exec 'gcc', qw/-DONLINE_JUDGE -std=gnu11 -Wall -Wextra -lm -O2 -o/, $basename, $name when 'C';
13 exec 'g++', qw/-DONLINE_JUDGE -std=gnu++11 -Wall -Wextra -lm -O2 -o/, $basename, $name when 'CPP';
14 when ('MONO') {
15 system 'gmcs', '-d:ONLINE_JUDGE', $name and die "gmcs failed: errno=$! return=$?";
16 rename "$basename.exe", $basename;
17 chmod 0755, $basename;
18 }
19 exec 'gmcs', '-d:ONLINE_JUDGE', $name when 'MONO';
20 when ('JAVA') {
21 unlink $_ for <*.class>;
22 system 'javac', $name and die "javac failed: errno=$! return=$?";
23 system 'jar', 'cfe', $basename, $basename, <*.class> and die "jar failed: errno=$! return=$?";
24 chmod 0755, $basename;
25 exit
26 }
27 exec 'fpc', qw/-dONLINE_JUDGE -O2/, $name when 'PASCAL';
28 exec 'go', qw/build -compiler gc/, $name when 'GOLANG';
29 exec 'go', qw/build -compiler gccgo/, $name, when 'GCCGO';
30 exec 'ghc', qw/-DONLINE_JUDGE -Wall -O2 -o/, $basename, $name when 'HASKELL';
31
32 when ([qw/GOLFSCRIPT PERL PYTHON RUBY SBCL/]){
33 open IN, '<', $name;
34 open OUT, '>', $basename;
35 print OUT "#!/usr/bin/golfscript\n" if $_ eq 'GOLFSCRIPT';
36 print OUT "#!/usr/bin/perl\n" if $_ eq 'PERL';
37 print OUT "#!/usr/bin/python\n" if $_ eq 'PYTHON';
38 print OUT "#!/usr/bin/ruby\n" if $_ eq 'RUBY';
39 print OUT "#!/usr/bin/sbcl --script\n" if $_ eq 'SBCL';
40 print OUT while <IN>;
41 close OUT;
42 close IN;
43 chmod 0755, $basename;
44 exit
45 }
46}
47
48exit 1;
49__END__
50
51=encoding utf-8
52
53=head1 NAME
54
55gruntmaster-compile - Gruntmaster 6000 compiler frontend
56
57=head1 SYNOPSIS
58
59 gruntmaster-compile CPP file.cpp
60 gruntmaster-compile JAVA file.java
61
62=head1 DESCRIPTION
63
64gruntmaster-compile is a very simple frontend to various comilers. It takes two arguments: the file format and the file name, and produces a compiled executable. The executable's name is the basename of the input file.
65
66Compile commands for each format:
67
68=over
69
70=item C
71
72 gcc -DONLINE_JUDGE -std=gnu11 -Wall -Wextra -O2 -o $output $input
73
74=item CPP
75
76 g++ -DONLINE_JUDGE -std=gnu++11 -fabi-version=6 -Wall -Wextra -O2 -o $output $input
77
78=item MONO
79
80 gmcs -d:ONLINE_JUDGE $input
81
82=item JAVA
83
84 javac $input
85
86=item PASCAL
87
88 fpc -dONLINE_JUDGE -O2 $input
89
90=item GOLANG
91
92 go build -compiler gc $input
93
94=item GCCGO
95
96 go build -compiler gccgo $input
97
98=item HASKELL
99
100 ghc -DONLINE_JUDGE -Wall -O2 -o $output $input
101
102=item PERL
103
104 cp $input $output
105
106=item PYTHON
107
108 cp $input $output
109
110=back
111
112=head1 AUTHOR
113
114Marius Gavrilescu E<lt>marius@ieval.roE<gt>
115
116=head1 COPYRIGHT AND LICENSE
117
118Copyright (C) 2014 by Marius Gavrilescu
119
120This program is free software: you can redistribute it and/or modify
121it under the terms of the GNU Affero General Public License as published by
122the Free Software Foundation, either version 3 of the License, or
123(at your option) any later version.
124
125
126=cut
This page took 0.016676 seconds and 4 git commands to generate.