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 [email protected]
|
---|
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 | }
|
---|