root/local/greenstone3/windows-64bit/apache-ant-1.9.5/bin/antRun.pl @ 30443

Revision 30443, 2.1 KB (checked in by davidb, 4 years ago)

Move to newer version of ant needed, for some of the features now used in Greenstone3's build.xml + newer versions of Java

  • Property svn:executable set to *
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# antRun.pl
21#
22# wrapper script for invoking commands on a platform with Perl installed
23# this is akin to antRun.bat, and antRun the SH script
24#######################################################################
25#be fussy about variables
26use strict;
27
28#turn warnings on during dev; generates a few spurious uninitialised var access warnings
29#use warnings;
30
31#and set $debug to 1 to turn on trace info (currently unused)
32my $debug=1;
33
34#######################################################################
35# change drive and directory to "%1"
36my $ANT_RUN_CMD = @ARGV[0];
37
38# assign current run command to "%2"
39chdir (@ARGV[0]) || die "Can't cd to $ARGV[0]: $!\n";
40if ($^O eq "NetWare") {
41    # There is a bug in Perl 5 on NetWare, where chdir does not
42    # do anything.  On NetWare, the following path-prefixed form should
43    # always work. (afaict)
44    $ANT_RUN_CMD .= "/".@ARGV[1];
45}
46else {
47    $ANT_RUN_CMD = @ARGV[1];
48}
49
50# dispose of the first two arguments, leaving only the command's args.
51shift;
52shift;
53
54# run the command
55my $returnValue = system $ANT_RUN_CMD, @ARGV;
56if ($returnValue eq 0) {
57    exit 0;
58}
59else {
60    # only 0 and 1 are widely recognized as exit values
61    # so change the exit value to 1
62    exit 1;
63}
Note: See TracBrowser for help on using the browser.