| #!/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. |
| # |
| # 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 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; |
| } |