diff options
| author | gregor <gregor@d688527b-c9ab-4aba-bd8d-4036d912da1d> | 2003-07-07 15:46:46 +0000 |
|---|---|---|
| committer | gregor <gregor@d688527b-c9ab-4aba-bd8d-4036d912da1d> | 2003-07-07 15:46:46 +0000 |
| commit | 7a433b7053eea6bd2270bdb42bc22bfb5ab8e815 (patch) | |
| tree | db0a42a3cd4deaf7968c24ae3a877e7bef1f1ecf /build/tools/jakarta-ant-1.5.1/bin/antRun.pl | |
| parent | d5bfcf5666a3c0502abc028800e3d0f43ae6d985 (diff) | |
| download | moa-id-spss-7a433b7053eea6bd2270bdb42bc22bfb5ab8e815.tar.gz moa-id-spss-7a433b7053eea6bd2270bdb42bc22bfb5ab8e815.tar.bz2 moa-id-spss-7a433b7053eea6bd2270bdb42bc22bfb5ab8e815.zip | |
Initial commit
git-svn-id: https://joinup.ec.europa.eu/svn/moa-idspss/trunk@4 d688527b-c9ab-4aba-bd8d-4036d912da1d
Diffstat (limited to 'build/tools/jakarta-ant-1.5.1/bin/antRun.pl')
| -rw-r--r-- | build/tools/jakarta-ant-1.5.1/bin/antRun.pl | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/build/tools/jakarta-ant-1.5.1/bin/antRun.pl b/build/tools/jakarta-ant-1.5.1/bin/antRun.pl new file mode 100644 index 000000000..1851b50ce --- /dev/null +++ b/build/tools/jakarta-ant-1.5.1/bin/antRun.pl @@ -0,0 +1,51 @@ +#!/usr/bin/perl
+#######################################################################
+#
+# 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
+# last modified: 2001-11-13
+# 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;
+}
|