aboutsummaryrefslogtreecommitdiff
path: root/spss.iaiklibsupdate/ant.1-6-5/bin/antRun.pl
diff options
context:
space:
mode:
authorgregor <gregor@d688527b-c9ab-4aba-bd8d-4036d912da1d>2005-06-24 11:00:16 +0000
committergregor <gregor@d688527b-c9ab-4aba-bd8d-4036d912da1d>2005-06-24 11:00:16 +0000
commit4914ffa0d889ed525229c0715686b26e30cc1343 (patch)
tree7bbd3fb0eef46a069a069b813fbce621297372e6 /spss.iaiklibsupdate/ant.1-6-5/bin/antRun.pl
parentfdff99d5c5dba5da2db45f79b120ab5381d36b76 (diff)
downloadmoa-id-spss-4914ffa0d889ed525229c0715686b26e30cc1343.tar.gz
moa-id-spss-4914ffa0d889ed525229c0715686b26e30cc1343.tar.bz2
moa-id-spss-4914ffa0d889ed525229c0715686b26e30cc1343.zip
git-svn-id: https://joinup.ec.europa.eu/svn/moa-idspss/trunk@370 d688527b-c9ab-4aba-bd8d-4036d912da1d
Diffstat (limited to 'spss.iaiklibsupdate/ant.1-6-5/bin/antRun.pl')
-rw-r--r--spss.iaiklibsupdate/ant.1-6-5/bin/antRun.pl65
1 files changed, 65 insertions, 0 deletions
diff --git a/spss.iaiklibsupdate/ant.1-6-5/bin/antRun.pl b/spss.iaiklibsupdate/ant.1-6-5/bin/antRun.pl
new file mode 100644
index 000000000..7cdd8687c
--- /dev/null
+++ b/spss.iaiklibsupdate/ant.1-6-5/bin/antRun.pl
@@ -0,0 +1,65 @@
+#!/usr/bin/perl
+#
+# Copyright 2001,2003-2004 The Apache Software Foundation
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+#######################################################################
+#
+# antRun.pl
+#
+# wrapper script for invoking commands on a platform with Perl installed
+# this is akin to antRun.bat, and antRun the SH script
+#
+# created: 2001-10-18
+# author: Jeff Tulley jtulley@novell.com
+#######################################################################
+#be fussy about variables
+use strict;
+
+#turn warnings on during dev; generates a few spurious uninitialised var access warnings
+#use warnings;
+
+#and set $debug to 1 to turn on trace info (currently unused)
+my $debug=1;
+
+#######################################################################
+# change drive and directory to "%1"
+my $ANT_RUN_CMD = @ARGV[0];
+
+# assign current run command to "%2"
+chdir (@ARGV[0]) || die "Can't cd to $ARGV[0]: $!\n";
+if ($^O eq "NetWare") {
+ # There is a bug in Perl 5 on NetWare, where chdir does not
+ # do anything. On NetWare, the following path-prefixed form should
+ # always work. (afaict)
+ $ANT_RUN_CMD .= "/".@ARGV[1];
+}
+else {
+ $ANT_RUN_CMD = @ARGV[1];
+}
+
+# dispose of the first two arguments, leaving only the command's args.
+shift;
+shift;
+
+# run the command
+my $returnValue = system $ANT_RUN_CMD, @ARGV;
+if ($returnValue eq 0) {
+ exit 0;
+}
+else {
+ # only 0 and 1 are widely recognized as exit values
+ # so change the exit value to 1
+ exit 1;
+}