[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/\..*/;

my $ret = fork // die $!;
if ($ret) {
	$SIG{ALRM} = sub {kill KILL => $ret};
	alarm 5;
	wait;
	exit $? >> 8
} else {
	given ($format){
		exec 'gcc', qw/-DONLINE_JUDGE -std=gnu11 -Wall -Wextra -O2 -o/, $basename, $name when 'C';
		exec 'g++', qw/-DONLINE_JUDGE -std=gnu++11 -fabi-version=6 -Wall -Wextra -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') {
			system 'javac', $name and die "javac failed: errno=$! return=$?";
			system 'jar', 'cfe', $basename, $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';

		when ([qw/PERL PYTHON/]){
			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 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 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.

Compile commands for each format:

=over

=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 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 PERL

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