151 lines
4.2 KiB
Perl
151 lines
4.2 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# Licensed to the Apache Software Foundation (ASF) under one or more
|
||
|
|
# contributor license agreements. See the NOTICE file distributed with
|
||
|
|
# this work for additional information regarding copyright ownership.
|
||
|
|
# The ASF licenses this file to You under the Apache License, Version 2.0
|
||
|
|
# (the "License"); you may not use this file except in compliance with
|
||
|
|
# the License. You may obtain a copy of the License at
|
||
|
|
#
|
||
|
|
# http://www.apache.org/licenses/LICENSE-2.0
|
||
|
|
#
|
||
|
|
# Unless required by applicable law or agreed to in writing, software
|
||
|
|
# distributed under the License is distributed on an "AS IS" BASIS,
|
||
|
|
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||
|
|
# See the License for the specific language governing permissions and
|
||
|
|
# limitations under the License.
|
||
|
|
#
|
||
|
|
#######################################################################
|
||
|
|
#
|
||
|
|
# runant.pl
|
||
|
|
#
|
||
|
|
# wrapper script for invoking ant in a platform with Perl installed
|
||
|
|
# this may include cgi-bin invocation, which is considered somewhat daft.
|
||
|
|
# (slo: that should be a separate file which can be derived from this
|
||
|
|
# and returns the XML formatted output)
|
||
|
|
#
|
||
|
|
# the code is not totally portable due to classpath and directory splitting
|
||
|
|
# issues. oops. (NB, use File::Spec::Functions will help and the code is
|
||
|
|
# structured for the catfile() call, but because of perl version funnies
|
||
|
|
# the code is not included.
|
||
|
|
#######################################################################
|
||
|
|
#
|
||
|
|
# Assumptions:
|
||
|
|
#
|
||
|
|
# - the "java" executable/script is on the command path
|
||
|
|
# - ANT_HOME has been set
|
||
|
|
# - target platform uses ":" as classpath separator or perl indicates it is dos/win32
|
||
|
|
# - target platform uses "/" as directory separator.
|
||
|
|
|
||
|
|
#be fussy about variables
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
#platform specifics (disabled)
|
||
|
|
#use File::Spec::Functions;
|
||
|
|
|
||
|
|
#turn warnings on during dev; generates a few spurious uninitialised var access warnings
|
||
|
|
#use warnings;
|
||
|
|
|
||
|
|
#and set $debug to 1 to turn on trace info
|
||
|
|
my $debug=1;
|
||
|
|
|
||
|
|
#######################################################################
|
||
|
|
#
|
||
|
|
# check to make sure environment is setup
|
||
|
|
#
|
||
|
|
|
||
|
|
my $HOME = $ENV{ANT_HOME};
|
||
|
|
if ($HOME eq "")
|
||
|
|
{
|
||
|
|
die "\n\nANT_HOME *MUST* be set!\n\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
my $JAVACMD = $ENV{JAVACMD};
|
||
|
|
$JAVACMD = "java" if $JAVACMD eq "";
|
||
|
|
|
||
|
|
my $onnetware = 0;
|
||
|
|
if ($^O eq "NetWare")
|
||
|
|
{
|
||
|
|
$onnetware = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $oncygwin = ($^O eq "cygwin");
|
||
|
|
|
||
|
|
#ISSUE: what java wants to split up classpath varies from platform to platform
|
||
|
|
#and perl is not too hot at hinting which box it is on.
|
||
|
|
#here I assume ":" 'cept on win32, dos, and netware. Add extra tests here as needed.
|
||
|
|
my $s=":";
|
||
|
|
if(($^O eq "MSWin32") || ($^O eq "dos") || ($^O eq "cygwin") ||
|
||
|
|
($onnetware == 1))
|
||
|
|
{
|
||
|
|
$s=";";
|
||
|
|
}
|
||
|
|
|
||
|
|
#build up standard classpath
|
||
|
|
my $localpath = "$HOME/lib/ant-launcher.jar";
|
||
|
|
#set JVM options and Ant arguments, if any
|
||
|
|
my @ANT_OPTS=split(" ", $ENV{ANT_OPTS});
|
||
|
|
my @ANT_ARGS=split(" ", $ENV{ANT_ARGS});
|
||
|
|
|
||
|
|
#jikes
|
||
|
|
if($ENV{JIKESPATH} ne "")
|
||
|
|
{
|
||
|
|
push @ANT_OPTS, "-Djikes.class.path=$ENV{JIKESPATH}";
|
||
|
|
}
|
||
|
|
|
||
|
|
#construct arguments to java
|
||
|
|
my @ARGS;
|
||
|
|
push @ARGS, @ANT_OPTS;
|
||
|
|
|
||
|
|
my $CYGHOME = "";
|
||
|
|
|
||
|
|
my $classpath=$ENV{CLASSPATH};
|
||
|
|
if ($oncygwin == 1) {
|
||
|
|
$localpath = `cygpath --path --windows $localpath`;
|
||
|
|
chomp ($localpath);
|
||
|
|
if (! $classpath eq "")
|
||
|
|
{
|
||
|
|
$classpath = `cygpath --path --windows "$classpath"`;
|
||
|
|
chomp ($classpath);
|
||
|
|
}
|
||
|
|
$HOME = `cygpath --path --windows $HOME`;
|
||
|
|
chomp ($HOME);
|
||
|
|
$CYGHOME = `cygpath --path --windows $ENV{HOME}`;
|
||
|
|
chomp ($CYGHOME);
|
||
|
|
}
|
||
|
|
push @ARGS, "-classpath", "$localpath";
|
||
|
|
push @ARGS, "-Dant.home=$HOME";
|
||
|
|
if ( ! $CYGHOME eq "" )
|
||
|
|
{
|
||
|
|
push @ARGS, "-Dcygwin.user.home=\"$CYGHOME\""
|
||
|
|
}
|
||
|
|
push @ARGS, "org.apache.tools.ant.launch.Launcher", @ANT_ARGS;
|
||
|
|
push @ARGS, @ARGV;
|
||
|
|
if (! $classpath eq "")
|
||
|
|
{
|
||
|
|
if ($onnetware == 1)
|
||
|
|
{
|
||
|
|
# make classpath literally $CLASSPATH
|
||
|
|
# this is to avoid pushing us over the 512 character limit
|
||
|
|
# even skip the ; - that is already in $localpath
|
||
|
|
push @ARGS, "-lib", "\$CLASSPATH";
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
push @ARGS, "-lib", "$classpath";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
print "\n $JAVACMD @ARGS\n\n" if ($debug);
|
||
|
|
|
||
|
|
my $returnValue = system $JAVACMD, @ARGS;
|
||
|
|
if ($returnValue eq 0)
|
||
|
|
{
|
||
|
|
exit 0;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
# only 0 and 1 are widely recognized as exit values
|
||
|
|
# so change the exit value to 1
|
||
|
|
exit 1;
|
||
|
|
}
|