#!/usr/bin/perl -w

use strict;

use constant NO_DUP_ARGS => qw(-source -target -d -encoding);

use constant STRIP_ARGS => qw(-Werror -implicit:none);

my ($ECJ_WARNINGS, $JAVAC_WARNINGS);

if ("no" eq "yes")

{

    $ECJ_WARNINGS="-warn:-deprecation,serial,unused,warningToken";

    $JAVAC_WARNINGS="-Xlint:unchecked,cast,divzero,empty,finally,overrides";

}

else

{

    $ECJ_WARNINGS="-nowarn";

    $JAVAC_WARNINGS="-nowarn";

}

my @bcoption;

push @bcoption, '-bootclasspath', glob '@RT_JAR@'

    unless grep {$_ eq '-bootclasspath'} @ARGV;

my @ecj_parms = ($ECJ_WARNINGS, @bcoption);

my @javac_parms = ($JAVAC_WARNINGS, '-Xprefer:source', '-J-Xmx1024m');

# Work around ecj's inability to handle duplicate command-line

# options and unknown javac options.

sub gen_ecj_opts

{

    my @new_args = @{$_[0]};

    for my $opt (NO_DUP_ARGS) 

    {

	my @indices = reverse grep {$new_args[$_] eq $opt} 0..$#new_args;

	if (@indices > 1) {

	    shift @indices;    # keep last instance only

	    splice @new_args, $_, 2 for @indices;

	}

    }

    for my $opt (STRIP_ARGS) 

    {

	my @indices = reverse grep {$new_args[$_] eq $opt} 0..$#new_args;

	splice @new_args, $_, 1 for @indices;

    }

    return @new_args;

}

if ( -e "/usr/lib/jvm/java-gcj/bin/javac" )

{

	my @ecj_args = gen_ecj_opts( \@ARGV );

	exec '/usr/lib/jvm/java-gcj/bin/javac', @ecj_parms, @ecj_args ;

}

else

{

    my @ecj_args = gen_ecj_opts( \@ARGV );

    my @CLASSPATH = ('/usr/share/java/eclipse-ecj.jar');

    push @CLASSPATH, split /:/, $ENV{"CLASSPATH"} if exists $ENV{"CLASSPATH"};

    $ENV{"CLASSPATH"} = join ':', @CLASSPATH;

    exec '/usr/lib/jvm/java-gcj/bin/java', 'org.eclipse.jdt.internal.compiler.batch.Main', @ecj_parms, @ecj_args;

}