"Fossies" - the Fresh Open Source Software Archive

Member "UNICORE-Client-7.4.1/plugins/org.apache.ant_1.10.3.v20180417-1627/bin/antRun.pl" (4 May 2018, 2117 Bytes) of package /windows/misc/UNICORE_Client-7.4.1-win32.win32.x86.zip:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    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
   26 use 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)
   32 my $debug = 1;
   33 
   34 #######################################################################
   35 # change drive and directory to "%1"
   36 my $ANT_RUN_CMD = @ARGV[0];
   37 
   38 # assign current run command to "%2"
   39 chdir(@ARGV[0]) || die "Can't cd to $ARGV[0]: $!\n";
   40 if ($^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 } else {
   46     $ANT_RUN_CMD = @ARGV[1];
   47 }
   48 
   49 # dispose of the first two arguments, leaving only the command's args.
   50 shift;
   51 shift;
   52 
   53 # run the command
   54 my $returnValue = system $ANT_RUN_CMD, @ARGV;
   55 if ($returnValue eq 0) {
   56     exit 0;
   57 } else {
   58     # only 0 and 1 are widely recognized as exit values
   59     # so change the exit value to 1
   60     exit 1;
   61 }