[gruntmaster-daemon.git] / gruntmaster-compile

#!/usr/bin/perl -w
use v5.14;
no if $] > 5.017011, warnings => 'experimental::smartmatch';

use File::Copy qw/copy/;
use File::Basename qw/fileparse/;

my ($format, $name) = @ARGV;
my $basename = fileparse $name, qr/\..*/;

given ($format){
	exec 'gcc', qw/-DONLINE_JUDGE -std=gnu11 -Wall -Wextra -lm -O2 -o/, $basename, $name when 'C';
	exec 'g++', qw/-DONLINE_JUDGE -std=gnu++11 -Wall -Wextra -lm -O2 -o/, $basename, $name when 'CPP';

	when ('MONO') {
		system 'gmcs', '-d:ONLINE_JUDGE', $name and die "gmcs failed: errno=$! return=$?";
		rename "$basename.exe", $basename;
		chmod 0755, $basename;
	}
	exec 'gmcs', '-d:ONLINE_JUDGE', $name when 'MONO';
	when ('JAVA') {
		unlink $_ for <*.class>;
		system 'javac', $name and die "javac failed: errno=$! return=$?";
		system 'jar', 'cfe', $basename, $basename, <*.class> and die "jar failed: errno=$! return=$?";
		chmod 0755, $basename;
		exit
	}
	exec 'fpc', qw/-dONLINE_JUDGE -O2/, $name when 'PASCAL';
	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 'rustc', qw/-O -o/, $basename, $name when 'RUST';
	exec 'obc', qw/-x -o/, $basename, $name when 'OBERON';
	exec 'ocamlopt', qw/-o/, $basename, $name when 'OCAML';
	exec 'gdc', qw/-DONLINE_JUDGE -Wall -O2 -frelease -fno-bounds-check -o/, $basename, $name when 'D';

	when ('BRAINFUCK') {
		system 'bfc', $name and die "bfc failed: errno=$! return=$?";
		rename "a.out", $basename;
		chmod 0755, $basename;
		exit
	}

	when ([qw/GOLFSCRIPT JAVASCRIPT JULIA PERL PHP PYTHON PYTHON3 RUBY SBCL/]){
		open IN, '<', $name;
		open OUT, '>', $basename;
		print OUT "#!/usr/bin/golfscript\n"                                                             if $_ eq 'GOLFSCRIPT';
		print OUT "#!/usr/bin/julia -O\n"                                                               if $_ eq 'JULIA';
		print OUT "#!/usr/bin/node\n"                                                                   if $_ eq 'JAVASCRIPT';
		print OUT "#!/usr/bin/perl\n"                                                                   if $_ eq 'PERL';
		print OUT "#!/usr/bin/php -d ONLINE_JUDGE=true\n"                                               if $_ eq 'PHP';
		print OUT "#!/usr/bin/python2.7\n"                                                              if $_ eq 'PYTHON';
		print OUT "#!/usr/bin/python3\n"                                                                if $_ eq 'PYTHON3';
		print OUT "#!/usr/bin/ruby\n"                                                                   if $_ eq 'RUBY';
		print OUT "#!/usr/bin/sbcl --script\n"                                                          if $_ eq 'SBCL';
		print OUT while <IN>;
		close OUT;
		close IN;
		chmod 0755, $basename;
		exit
	}
}

exit 1;
__END__

=encoding utf-8

=head1 NAME

gruntmaster-compile - Gruntmaster 6000 compiler frontend

=head1 SYNOPSIS

  gruntmaster-compile CPP file.cpp
  gruntmaster-compile JAVA file.java

=head1 DESCRIPTION

gruntmaster-compile is a very simple frontend to various compilers. 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.

Compile commands for each format:

=over

=item BRAINFUCK

  bfc $input

=item C

  gcc -DONLINE_JUDGE -std=gnu11 -Wall -Wextra -O2 -o $output $input

=item CPP

  g++ -DONLINE_JUDGE -std=gnu++11 -fabi-version=6 -Wall -Wextra -O2 -o $output $input

=item MONO

  gmcs -d:ONLINE_JUDGE $input

=item JAVA

  javac $input

=item JULIA

  cp $input $output

=item PASCAL

  fpc -dONLINE_JUDGE -O2 $input

=item GOLANG

  go build -compiler gc $input

=item GCCGO

  go build -compiler gccgo $input

=item HASKELL

  ghc -DONLINE_JUDGE -Wall -O2 -o $output $input

=item OCAML

  ocamlc -o $output $input

=item OBERON

  obc -x -o $output $input

=item RUST

  rustc -O -o $output $input

=item PERL

  cp $input $output

=item PHP

  cp $input $output

=item PYTHON

  cp $input $output

=back

=head1 AUTHOR

Marius Gavrilescu E<lt>marius@ieval.roE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2014 by Marius Gavrilescu

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Affero General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.


=cut
Commit	Line	Data
da905f9e MG	1	#!/usr/bin/perl -w
	2	use v5.14;
	3	no if $] > 5.017011, warnings => 'experimental::smartmatch';
	4
9577371b	5	use File::Copy qw/copy/;
496fffaa MG	6	use File::Basename qw/fileparse/;
	7
	8	my ($format, $name) = @ARGV;
	9	my $basename = fileparse $name, qr/\..*/;
9577371b	10
9c1ab914	11	given ($format){
5b0c03b6 MG	12	exec 'gcc', qw/-DONLINE_JUDGE -std=gnu11 -Wall -Wextra -lm -O2 -o/, $basename, $name when 'C';
5b0c03b6 MG	13	exec 'g++', qw/-DONLINE_JUDGE -std=gnu++11 -Wall -Wextra -lm -O2 -o/, $basename, $name when 'CPP';
fb85e61f	14
9c1ab914 MG	15	when ('MONO') {
	16	system 'gmcs', '-d:ONLINE_JUDGE', $name and die "gmcs failed: errno=$! return=$?";
	17	rename "$basename.exe", $basename;
	18	chmod 0755, $basename;
	19	}
27be8560	20	exec 'gmcs', '-d:ONLINE_JUDGE', $name when 'MONO';
9c1ab914	21	when ('JAVA') {
95379e40	22	unlink $_ for <*.class>;
9c1ab914	23	system 'javac', $name and die "javac failed: errno=$! return=$?";
95379e40	24	system 'jar', 'cfe', $basename, $basename, <*.class> and die "jar failed: errno=$! return=$?";
9c1ab914 MG	25	chmod 0755, $basename;
	26	exit
	27	}
	28	exec 'fpc', qw/-dONLINE_JUDGE -O2/, $name when 'PASCAL';
	29	exec 'go', qw/build -compiler gc/, $name when 'GOLANG';
	30	exec 'go', qw/build -compiler gccgo/, $name, when 'GCCGO';
	31	exec 'ghc', qw/-DONLINE_JUDGE -Wall -O2 -o/, $basename, $name when 'HASKELL';
27be8560	32	exec 'rustc', qw/-O -o/, $basename, $name when 'RUST';
0220f51a	33	exec 'obc', qw/-x -o/, $basename, $name when 'OBERON';
12c4881b MG	34	exec 'ocamlopt', qw/-o/, $basename, $name when 'OCAML';
12c4881b MG	35	exec 'gdc', qw/-DONLINE_JUDGE -Wall -O2 -frelease -fno-bounds-check -o/, $basename, $name when 'D';
9c1ab914	36
fb85e61f S	37	when ('BRAINFUCK') {
	38	system 'bfc', $name and die "bfc failed: errno=$! return=$?";
	39	rename "a.out", $basename;
	40	chmod 0755, $basename;
	41	exit
	42	}
	43
0ad36cae	44	when ([qw/GOLFSCRIPT JAVASCRIPT JULIA PERL PHP PYTHON PYTHON3 RUBY SBCL/]){
9c1ab914 MG	45	open IN, '<', $name;
9c1ab914 MG	46	open OUT, '>', $basename;
8473542d S	47	print OUT "#!/usr/bin/golfscript\n" if $_ eq 'GOLFSCRIPT';
8473542d S	48	print OUT "#!/usr/bin/julia -O\n" if $_ eq 'JULIA';
0ad36cae	49	print OUT "#!/usr/bin/node\n" if $_ eq 'JAVASCRIPT';
8473542d S	50	print OUT "#!/usr/bin/perl\n" if $_ eq 'PERL';
8473542d S	51	print OUT "#!/usr/bin/php -d ONLINE_JUDGE=true\n" if $_ eq 'PHP';
92fbf933	52	print OUT "#!/usr/bin/python2.7\n" if $_ eq 'PYTHON';
ab4d4022	53	print OUT "#!/usr/bin/python3\n" if $_ eq 'PYTHON3';
8473542d S	54	print OUT "#!/usr/bin/ruby\n" if $_ eq 'RUBY';
8473542d S	55	print OUT "#!/usr/bin/sbcl --script\n" if $_ eq 'SBCL';
9c1ab914 MG	56	print OUT while <IN>;
	57	close OUT;
	58	close IN;
	59	chmod 0755, $basename;
	60	exit
9577371b	61	}
da905f9e	62	}
69c25408	63
0e7e545a	64	exit 1;
69c25408 MG	65	__END__
	66
	67	=encoding utf-8
	68
	69	=head1 NAME
	70
	71	gruntmaster-compile - Gruntmaster 6000 compiler frontend
	72
	73	=head1 SYNOPSIS
	74
	75	gruntmaster-compile CPP file.cpp
	76	gruntmaster-compile JAVA file.java
	77
	78	=head1 DESCRIPTION
	79
27be8560	80	gruntmaster-compile is a very simple frontend to various compilers. 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.
69c25408 MG	81
	82	Compile commands for each format:
	83
	84	=over
	85
fb85e61f S	86	=item BRAINFUCK
	87
	88	bfc $input
	89
69c25408 MG	90	=item C
	91
	92	gcc -DONLINE_JUDGE -std=gnu11 -Wall -Wextra -O2 -o $output $input
	93
	94	=item CPP
	95
498646e0	96	g++ -DONLINE_JUDGE -std=gnu++11 -fabi-version=6 -Wall -Wextra -O2 -o $output $input
69c25408 MG	97
	98	=item MONO
	99
	100	gmcs -d:ONLINE_JUDGE $input
	101
	102	=item JAVA
	103
	104	javac $input
	105
6d1f2d94 S	106	=item JULIA
	107
	108	cp $input $output
	109
69c25408 MG	110	=item PASCAL
69c25408 MG	111
0005d3ad	112	fpc -dONLINE_JUDGE -O2 $input
69c25408	113
498646e0 MG	114	=item GOLANG
	115
	116	go build -compiler gc $input
	117
	118	=item GCCGO
	119
	120	go build -compiler gccgo $input
	121
	122	=item HASKELL
	123
	124	ghc -DONLINE_JUDGE -Wall -O2 -o $output $input
	125
34e16771 S	126	=item OCAML
	127
	128	ocamlc -o $output $input
	129
0220f51a MG	130	=item OBERON
	131
	132	obc -x -o $output $input
	133
27be8560 S	134	=item RUST
	135
	136	rustc -O -o $output $input
	137
69c25408 MG	138	=item PERL
	139
	140	cp $input $output
	141
8473542d S	142	=item PHP
	143
	144	cp $input $output
	145
69c25408 MG	146	=item PYTHON
	147
	148	cp $input $output
	149
	150	=back
	151
	152	=head1 AUTHOR
	153
	154	Marius Gavrilescu E<lt>marius@ieval.roE<gt>
	155
	156	=head1 COPYRIGHT AND LICENSE
	157
	158	Copyright (C) 2014 by Marius Gavrilescu
	159
	160	This program is free software: you can redistribute it and/or modify
	161	it under the terms of the GNU Affero General Public License as published by
	162	the Free Software Foundation, either version 3 of the License, or
	163	(at your option) any later version.
	164
	165
	166	=cut