| #!/usr/bin/perl |
| # |
| # Copyright (c) 2001-2002 The Apache Software Foundation. All rights |
| # reserved. |
| # |
| ####################################################################### |
| # |
| # 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 ""; |
| |
| my $onnetware = 0; |
| if ($^O eq "NetWare") |
| { |
| $onnetware = 1; |
| } |
| |
| #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=$ENV{CLASSPATH}; |
| if ($localpath eq "") |
| { |
| print "warning: no initial classpath\n" if ($debug); |
| $localpath=""; |
| } |
| if ($onnetware == 1) |
| { |
| # avoid building a command line bigger than 512 characters - make localpath |
| # only include the "extra" stuff, and add in the system classpath as an expanded |
| # variable. |
| $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"; |
| } |
| |
| #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; |
| if ($onnetware == 1) |
| { |
| # make classpath literally $CLASSPATH; and then the contents of $localpath |
| # this is to avoid pushing us over the 512 character limit |
| # even skip the ; - that is already in $localpath |
| push @ARGS, "-classpath", "\$CLASSPATH$localpath"; |
| } |
| else |
| { |
| push @ARGS, "-classpath", "$localpath"; |
| } |
| push @ARGS, "-Dant.home=$HOME"; |
| push @ARGS, @ANT_OPTS; |
| push @ARGS, "org.apache.tools.ant.Main", @ANT_ARGS; |
| push @ARGS, @ARGV; |
| |
| 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; |
| } |