source: local/greenstone3/linux-64bit/apache-ant-1.8.1/bin/runant.pl@ 26671

Last change on this file since 26671 was 26671, checked in by davidb, 10 years ago

First cut at a 'local' folder to help show the way for folks wanting to compile Greenstone3 from svn/source on a Linux 64-bit architecture

File size: 4.3 KB
Line 
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
44use 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
53my $debug=1;
54
55#######################################################################
56#
57# check to make sure environment is setup
58#
59
60my $HOME = $ENV{ANT_HOME};
61if ($HOME eq "")
62 {
63 die "\n\nANT_HOME *MUST* be set!\n\n";
64 }
65
66my $JAVACMD = $ENV{JAVACMD};
67$JAVACMD = "java" if $JAVACMD eq "";
68
69my $onnetware = 0;
70if ($^O eq "NetWare")
71{
72 $onnetware = 1;
73}
74
75my $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.
80my $s=":";
81if(($^O eq "MSWin32") || ($^O eq "dos") || ($^O eq "cygwin") ||
82 ($onnetware == 1))
83 {
84 $s=";";
85 }
86
87#build up standard classpath
88my $localpath = "$HOME/lib/ant-launcher.jar";
89#set JVM options and Ant arguments, if any
90my @ANT_OPTS=split(" ", $ENV{ANT_OPTS});
91my @ANT_ARGS=split(" ", $ENV{ANT_ARGS});
92
93#jikes
94if($ENV{JIKESPATH} ne "")
95 {
96 push @ANT_OPTS, "-Djikes.class.path=$ENV{JIKESPATH}";
97 }
98
99#construct arguments to java
100my @ARGS;
101push @ARGS, @ANT_OPTS;
102
103my $CYGHOME = "";
104
105my $classpath=$ENV{CLASSPATH};
106if ($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}
119push @ARGS, "-classpath", "$localpath";
120push @ARGS, "-Dant.home=$HOME";
121if ( ! $CYGHOME eq "" )
122{
123 push @ARGS, "-Dcygwin.user.home=\"$CYGHOME\""
124}
125push @ARGS, "org.apache.tools.ant.launch.Launcher", @ANT_ARGS;
126push @ARGS, @ARGV;
127if (! $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}
141print "\n $JAVACMD @ARGS\n\n" if ($debug);
142
143my $returnValue = system $JAVACMD, @ARGS;
144if ($returnValue eq 0)
145 {
146 exit 0;
147 }
148else
149 {
150 # only 0 and 1 are widely recognized as exit values
151 # so change the exit value to 1
152 exit 1;
153 }
Note: See TracBrowser for help on using the repository browser.