hostdepend/X86MAC64/util/X86MAC64/cuda/libnvvp/plugins/org.apache.ant_1.8.3.v201301120609/bin/antRun.pl

   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 # created:         2001-10-18
  26 # author:          Jeff Tulley jtulley@novell.com
  27 #######################################################################
  28 #be fussy about variables
  29 use strict;
  30
  31 #turn warnings on during dev; generates a few spurious uninitialised var access warnings
  32 #use warnings;
  33
  34 #and set $debug to 1 to turn on trace info (currently unused)
  35 my $debug=1;
  36
  37 #######################################################################
  38 # change drive and directory to "%1"
  39 my $ANT_RUN_CMD = @ARGV[0];
  40
  41 # assign current run command to "%2"
  42 chdir (@ARGV[0]) || die "Can't cd to $ARGV[0]: $!\n";
  43 if ($^O eq "NetWare") {
  44     # There is a bug in Perl 5 on NetWare, where chdir does not
  45     # do anything.  On NetWare, the following path-prefixed form should
  46     # always work. (afaict)
  47     $ANT_RUN_CMD .= "/".@ARGV[1];
  48 }
  49 else {
  50     $ANT_RUN_CMD = @ARGV[1];
  51 }
  52
  53 # dispose of the first two arguments, leaving only the command's args.
  54 shift;
  55 shift;
  56
  57 # run the command
  58 my $returnValue = system $ANT_RUN_CMD, @ARGV;
  59 if ($returnValue eq 0) {
  60     exit 0;
  61 }
  62 else {
  63     # only 0 and 1 are widely recognized as exit values
  64     # so change the exit value to 1
  65     exit 1;
  66 }