You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
58 lines
1.7 KiB
58 lines
1.7 KiB
3 years ago
|
#!/usr/bin/perl -w
|
||
|
|
use strict;
|
||
|
|
use constant NO_DUP_ARGS => qw(-source -target -d -encoding);
|
||
|
|
use constant STRIP_ARGS => qw(-Werror -implicit:none -J-Xbootclasspath/p:);
|
||
|
|
|
||
|
|
my $ECJ_WARNINGS="-nowarn";
|
||
|
|
|
||
|
|
my ( @bcoption, @source15, @target15, @cp );
|
||
|
|
push @bcoption, '-bootclasspath', '@RT_JAR@:@TOOLS_JAR@'
|
||
|
|
unless grep {$_ eq '-bootclasspath'} @ARGV;
|
||
|
|
push @source15, '-source', '1.5'
|
||
|
|
unless grep {$_ eq '-source'} @ARGV;
|
||
|
|
push @target15, '-target', '1.5'
|
||
|
|
unless grep {$_ eq '-target'} @ARGV;
|
||
|
|
push @cp, '-cp', '.'
|
||
|
|
unless grep {$_ =~ '\-c(p|lasspath)'} @ARGV or $ENV{CLASSPATH};
|
||
|
|
my @ecj_parms = ($ECJ_WARNINGS, @bcoption, @source15, @target15, @cp);
|
||
|
|
|
||
|
|
# 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;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub split_vm_args
|
||
|
|
{
|
||
|
|
my @new_args = @{$_[0]};
|
||
|
|
|
||
|
|
my @vm_args = map { substr $_, 2 } grep $_ =~ /^-J/, @new_args;
|
||
|
|
my @javac_args = grep $_ !~ /^-J/, @new_args;
|
||
|
|
|
||
|
|
return (\@vm_args, \@javac_args);
|
||
|
|
}
|
||
|
|
|
||
|
|
my ($vm_args, $javac_args) = split_vm_args (gen_ecj_opts( \@ARGV ));
|
||
|
|
my @CLASSPATH = ('@ECJ_JAR@');
|
||
|
|
push @CLASSPATH, split /:/, $ENV{"CLASSPATH"} if exists $ENV{"CLASSPATH"};
|
||
|
|
$ENV{"CLASSPATH"} = join ':', @CLASSPATH;
|
||
|
|
exec '@JAVA@', @$vm_args, 'org.eclipse.jdt.internal.compiler.batch.Main', @ecj_parms, @$javac_args;
|