Mercurial > hg > icedtea7
view javac.in @ 2920:12c4c5ba02a1 icedtea-2.7.0pre13
PR3390: javac.in and javah.in should use @PERL@ rather than a hardcoded path
2017-05-15 Andrew John Hughes <gnu.andrew@member.fsf.org>
PR3390: javac.in and javah.in should use @PERL@
rather than a hardcoded path
* javac.in: Use @PERL@.
* javah.in: Likewise.
author | Andrew John Hughes <gnu_andrew@member.fsf.org> |
---|---|
date | Tue, 16 May 2017 03:02:53 +0100 |
parents | e39193e994c8 |
children |
line wrap: on
line source
#!@PERL@ -w use strict; use constant NO_DUP_ARGS => qw(-source -target -d -encoding); use constant STRIP_ARGS_1 => qw(-Werror -implicit:none -J-Xbootclasspath/p:); use constant STRIP_ARGS_2 => qw(-Xmaxwarns); my ($ECJ_WARNINGS, $JAVAC_WARNINGS); if ("@ENABLE_WARNINGS@" 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; my @bcoptionsp = grep {$_ =~ '^-Xbootclasspath/p:' } @ARGV; my @bcoptions = grep {$_ =~ '^-Xbootclasspath:' } @ARGV; my @bcoptionsa = grep {$_ =~ '^-Xbootclasspath/a:' } @ARGV; my $bcp = $bcoptionsp[0]; my $bc = $bcoptions[0]; my $bca = $bcoptionsa[0]; my $systembc = glob '@abs_top_builddir@/bootstrap/jdk1.6.0/jre/lib/rt.jar'; if ($bcp) { $bcp =~ s/^[^:]*://; $systembc = join ":", $bcp, $systembc; } if ($bc) { $bc =~ s/^[^:]*://; $systembc = $bc; } if ($bca) { $bca =~ s/^[^:]*://; $systembc = join ":", $systembc, $bca; } push @bcoption, '-bootclasspath', $systembc unless grep {$_ eq '-bootclasspath'} @ARGV; my @ecj_parms = ($ECJ_WARNINGS, @bcoption); my @javac_parms = ($JAVAC_WARNINGS, '-Xprefer:source', '-XDignore.symbol.file=true'); # 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_1) { my @indices = reverse grep {$new_args[$_] eq $opt} 0..$#new_args; splice @new_args, $_, 1 for @indices; } for my $opt (STRIP_ARGS_2) { my @indices = reverse grep {$new_args[$_] eq $opt} 0..$#new_args; splice @new_args, $_, 2 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); } if ( -e "@abs_top_builddir@/native-ecj" ) { my $ecj_args = gen_ecj_opts( \@ARGV ); exec '@abs_top_builddir@/native-ecj', @ecj_parms, @$ecj_args ; } elsif ( -e "@JAVAC@" ) { if ("@USING_ECJ@" eq "yes") { my $ecj_args = gen_ecj_opts( \@ARGV ); exec '@JAVAC@', @ecj_parms, @$ecj_args ; } else { exec '@JAVAC@', @javac_parms, @ARGV ; } } elsif ( -e "@ECJ_JAR@" ) { 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; } else { print STDERR "No Java compiler to run"; exit -1; }