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 steve_l@sourceforge.net |
|
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 } |
|