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