Perl script to Invoke ant

Submitted by:	Steve Loughran <steve_l@iseran.com>


git-svn-id: https://svn.apache.org/repos/asf/ant/core/trunk@267967 13f79535-47bb-0310-9956-ffa450edef68

src/bin/runant.pl

@@ -0,0 +1,121 @@
+#!/usr/local/bin/perl
+#######################################################################
+#
+# 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
+# last modified:   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 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=0;
+
+#######################################################################
+#
+# 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 "";
+
+#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 and dos. Add extra tests here as needed.
+my $s=":";
+if(($^O eq "MSWin32") || ($^O eq "dos"))
+	{
+	$s=";";
+	}
+
+#build up standard classpath
+my $localpath=$ENV{CLASSPATH};
+if ($localpath eq "")
+	{
+	print "warning: no initial classpath\n" if ($debug);
+	$localpath="";
+	}
+
+#add jar files. I am sure there is a perl one liner to do this.
+my $jarpattern="$HOME/lib/*.jar";
+my @jarfiles =glob($jarpattern);
+print "jarfiles=@jarfiles\n" if ($debug);
+my $jar;
+foreach $jar (@jarfiles )
+	{
+	$localpath.="$s$jar";
+	}
+
+#if Java home is defined, look for tools.jar & classes.zip and add to classpath
+my $JAVA_HOME = $ENV{JAVA_HOME};
+if ($JAVA_HOME ne "")
+	{
+	my $tools="$JAVA_HOME/lib/tools.jar";
+	if (-e "$tools")
+		{
+		$localpath .= "$s$tools";
+		}
+	my $classes="$JAVA_HOME/lib/classes.zip";
+	if (-e $classes)
+		{
+		$localpath .= "$s$classes";
+		}
+	}
+else
+	{
+    print "\n\nWarning: JAVA_HOME environment variable is not set.\n".
+		"If the build fails because sun.* classes could not be found\n".
+		"you will need to set the JAVA_HOME environment variable\n".
+		"to the installation directory of java\n";
+	}
+
+#jikes
+my $ANT_OPTS=$ENV{ANT_OPTS};
+if($ENV{JIKESPATH} ne "")
+	{
+	$ANT_OPTS.=" -Djikes.class.path=$ENV{JIKESPATH}";
+	}
+
+#construct arguments to java
+
+my $METHOD = "org.apache.tools.ant.Main";
+my $ARGS = "@ARGV";
+my $JAVAPARAMS = "-classpath $localpath -Dant.home=$HOME ";
+my $COMMAND = "$JAVACMD $JAVAPARAMS $ANT_OPTS $METHOD $ARGS" ;
+
+print "\n $COMMAND\n\n" if ($debug);
+system $COMMAND;
+
+