[26678] | 1 | #!/usr/bin/perl
|
---|
| 2 | #
|
---|
| 3 | # Licensed to the Apache Software Foundation (ASF) under one or more
|
---|
| 4 | # contributor license agreements. See the NOTICE file distributed with
|
---|
| 5 | # this work for additional information regarding copyright ownership.
|
---|
| 6 | # The ASF licenses this file to You under the Apache License, Version 2.0
|
---|
| 7 | # (the "License"); you may not use this file except in compliance with
|
---|
| 8 | # the License. You may obtain a copy of the License at
|
---|
| 9 | #
|
---|
| 10 | # http://www.apache.org/licenses/LICENSE-2.0
|
---|
| 11 | #
|
---|
| 12 | # Unless required by applicable law or agreed to in writing, software
|
---|
| 13 | # distributed under the License is distributed on an "AS IS" BASIS,
|
---|
| 14 | # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
---|
| 15 | # See the License for the specific language governing permissions and
|
---|
| 16 | # limitations under the License.
|
---|
| 17 | #
|
---|
| 18 | #######################################################################
|
---|
| 19 | #
|
---|
| 20 | # runant.pl
|
---|
| 21 | #
|
---|
| 22 | # wrapper script for invoking ant in a platform with Perl installed
|
---|
| 23 | # this may include cgi-bin invocation, which is considered somewhat daft.
|
---|
| 24 | # (slo: that should be a separate file which can be derived from this
|
---|
| 25 | # and returns the XML formatted output)
|
---|
| 26 | #
|
---|
| 27 | # the code is not totally portable due to classpath and directory splitting
|
---|
| 28 | # issues. oops. (NB, use File::Spec::Functions will help and the code is
|
---|
| 29 | # structured for the catfile() call, but because of perl version funnies
|
---|
| 30 | # the code is not included.
|
---|
| 31 | #
|
---|
| 32 | # created: 2000-8-24
|
---|
| 33 | # author: Steve Loughran [email protected]
|
---|
| 34 | #######################################################################
|
---|
| 35 | #
|
---|
| 36 | # Assumptions:
|
---|
| 37 | #
|
---|
| 38 | # - the "java" executable/script is on the command path
|
---|
| 39 | # - ANT_HOME has been set
|
---|
| 40 | # - target platform uses ":" as classpath separator or perl indicates it is dos/win32
|
---|
| 41 | # - target platform uses "/" as directory separator.
|
---|
| 42 |
|
---|
| 43 | #be fussy about variables
|
---|
| 44 | use strict;
|
---|
| 45 |
|
---|
| 46 | #platform specifics (disabled)
|
---|
| 47 | #use File::Spec::Functions;
|
---|
| 48 |
|
---|
| 49 | #turn warnings on during dev; generates a few spurious uninitialised var access warnings
|
---|
| 50 | #use warnings;
|
---|
| 51 |
|
---|
| 52 | #and set $debug to 1 to turn on trace info
|
---|
| 53 | my $debug=1;
|
---|
| 54 |
|
---|
| 55 | #######################################################################
|
---|
| 56 | #
|
---|
| 57 | # check to make sure environment is setup
|
---|
| 58 | #
|
---|
| 59 |
|
---|
| 60 | my $HOME = $ENV{ANT_HOME};
|
---|
| 61 | if ($HOME eq "")
|
---|
| 62 | {
|
---|
| 63 | die "\n\nANT_HOME *MUST* be set!\n\n";
|
---|
| 64 | }
|
---|
| 65 |
|
---|
| 66 | my $JAVACMD = $ENV{JAVACMD};
|
---|
| 67 | $JAVACMD = "java" if $JAVACMD eq "";
|
---|
| 68 |
|
---|
| 69 | my $onnetware = 0;
|
---|
| 70 | if ($^O eq "NetWare")
|
---|
| 71 | {
|
---|
| 72 | $onnetware = 1;
|
---|
| 73 | }
|
---|
| 74 |
|
---|
| 75 | my $oncygwin = ($^O eq "cygwin");
|
---|
| 76 |
|
---|
| 77 | #ISSUE: what java wants to split up classpath varies from platform to platform
|
---|
| 78 | #and perl is not too hot at hinting which box it is on.
|
---|
| 79 | #here I assume ":" 'cept on win32, dos, and netware. Add extra tests here as needed.
|
---|
| 80 | my $s=":";
|
---|
| 81 | if(($^O eq "MSWin32") || ($^O eq "dos") || ($^O eq "cygwin") ||
|
---|
| 82 | ($onnetware == 1))
|
---|
| 83 | {
|
---|
| 84 | $s=";";
|
---|
| 85 | }
|
---|
| 86 |
|
---|
| 87 | #build up standard classpath
|
---|
| 88 | my $localpath = "$HOME/lib/ant-launcher.jar";
|
---|
| 89 | #set JVM options and Ant arguments, if any
|
---|
| 90 | my @ANT_OPTS=split(" ", $ENV{ANT_OPTS});
|
---|
| 91 | my @ANT_ARGS=split(" ", $ENV{ANT_ARGS});
|
---|
| 92 |
|
---|
| 93 | #jikes
|
---|
| 94 | if($ENV{JIKESPATH} ne "")
|
---|
| 95 | {
|
---|
| 96 | push @ANT_OPTS, "-Djikes.class.path=$ENV{JIKESPATH}";
|
---|
| 97 | }
|
---|
| 98 |
|
---|
| 99 | #construct arguments to java
|
---|
| 100 | my @ARGS;
|
---|
| 101 | push @ARGS, @ANT_OPTS;
|
---|
| 102 |
|
---|
| 103 | my $CYGHOME = "";
|
---|
| 104 |
|
---|
| 105 | my $classpath=$ENV{CLASSPATH};
|
---|
| 106 | if ($oncygwin == 1) {
|
---|
| 107 | $localpath = `cygpath --path --windows $localpath`;
|
---|
| 108 | chomp ($localpath);
|
---|
| 109 | if (! $classpath eq "")
|
---|
| 110 | {
|
---|
| 111 | $classpath = `cygpath --path --windows "$classpath"`;
|
---|
| 112 | chomp ($classpath);
|
---|
| 113 | }
|
---|
| 114 | $HOME = `cygpath --path --windows $HOME`;
|
---|
| 115 | chomp ($HOME);
|
---|
| 116 | $CYGHOME = `cygpath --path --windows $ENV{HOME}`;
|
---|
| 117 | chomp ($CYGHOME);
|
---|
| 118 | }
|
---|
| 119 | push @ARGS, "-classpath", "$localpath";
|
---|
| 120 | push @ARGS, "-Dant.home=$HOME";
|
---|
| 121 | if ( ! $CYGHOME eq "" )
|
---|
| 122 | {
|
---|
| 123 | push @ARGS, "-Dcygwin.user.home=\"$CYGHOME\""
|
---|
| 124 | }
|
---|
| 125 | push @ARGS, "org.apache.tools.ant.launch.Launcher", @ANT_ARGS;
|
---|
| 126 | push @ARGS, @ARGV;
|
---|
| 127 | if (! $classpath eq "")
|
---|
| 128 | {
|
---|
| 129 | if ($onnetware == 1)
|
---|
| 130 | {
|
---|
| 131 | # make classpath literally $CLASSPATH
|
---|
| 132 | # this is to avoid pushing us over the 512 character limit
|
---|
| 133 | # even skip the ; - that is already in $localpath
|
---|
| 134 | push @ARGS, "-lib", "\$CLASSPATH";
|
---|
| 135 | }
|
---|
| 136 | else
|
---|
| 137 | {
|
---|
| 138 | push @ARGS, "-lib", "$classpath";
|
---|
| 139 | }
|
---|
| 140 | }
|
---|
| 141 | print "\n $JAVACMD @ARGS\n\n" if ($debug);
|
---|
| 142 |
|
---|
| 143 | my $returnValue = system $JAVACMD, @ARGS;
|
---|
| 144 | if ($returnValue eq 0)
|
---|
| 145 | {
|
---|
| 146 | exit 0;
|
---|
| 147 | }
|
---|
| 148 | else
|
---|
| 149 | {
|
---|
| 150 | # only 0 and 1 are widely recognized as exit values
|
---|
| 151 | # so change the exit value to 1
|
---|
| 152 | exit 1;
|
---|
| 153 | }
|
---|