#!/usr/bin/perl## Copyright 2000-2004 The Apache Software Foundation##  Licensed 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. ## created:         2000-8-24# author:          Steve Loughran steve_l@sourceforge.net######################################################################### 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 variablesuse 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 infomy $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 classpathmy $localpath = "$HOME/lib/ant-launcher.jar";#set JVM options and Ant arguments, if anymy @ANT_OPTS=split(" ", $ENV{ANT_OPTS});my @ANT_ARGS=split(" ", $ENV{ANT_ARGS});#jikesif($ENV{JIKESPATH} ne "")        {        push @ANT_OPTS, "-Djikes.class.path=$ENV{JIKESPATH}";        }#construct arguments to javamy @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;        }