sbin/res/ant/bin/ant.cmd
changeset 1072 ac1eacb3aa33
parent 1071 02c04d2c8fd8
child 1073 687133dc13cf
equal deleted inserted replaced
1071:02c04d2c8fd8 1072:ac1eacb3aa33
     1 /* 
       
     2    Licensed to the Apache Software Foundation (ASF) under one or more
       
     3    contributor license agreements.  See the NOTICE file distributed with
       
     4    this work for additional information regarding copyright ownership.
       
     5    The ASF licenses this file to You under the Apache License, Version 2.0
       
     6    (the "License"); you may not use this file except in compliance with
       
     7    the License.  You may obtain a copy of the License at
       
     8 
       
     9        http://www.apache.org/licenses/LICENSE-2.0
       
    10 
       
    11    Unless required by applicable law or agreed to in writing, software
       
    12    distributed under the License is distributed on an "AS IS" BASIS,
       
    13    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
       
    14    See the License for the specific language governing permissions and
       
    15    limitations under the License.
       
    16  
       
    17     Run ant
       
    18 */
       
    19 
       
    20 '@echo off'
       
    21 parse arg mode envarg '::' antarg
       
    22 
       
    23 if mode\='.' & mode\='..' & mode\='/' then do
       
    24   envarg = mode envarg
       
    25   mode = ''
       
    26 end
       
    27 
       
    28 if antarg = '' then do
       
    29   antarg = envarg
       
    30   envarg = ''
       
    31 end
       
    32 
       
    33 x = setlocal()
       
    34 
       
    35 env="OS2ENVIRONMENT"
       
    36 antenv = _getenv_('antenv')
       
    37 if _testenv_() = 0 then interpret 'call "' || antenv || '"' '"' || envarg || '"'
       
    38 
       
    39 if mode = '' then mode = _getenv_('ANT_MODE' '..')
       
    40 if mode \= '/' then do
       
    41   runrc = _getenv_('runrc')
       
    42   antrc = _getenv_('antrc' 'antrc.cmd')
       
    43   if mode = '..' then mode = '-r'
       
    44   else mode = ''
       
    45   interpret 'call "' || runrc || '"' antrc '"' || mode || '"'
       
    46 end
       
    47 
       
    48 if _testenv_() = 0 then do
       
    49   say 'Ant environment is not set properly'
       
    50   x = endlocal()
       
    51   exit 16
       
    52 end
       
    53 
       
    54 settings = '-Dant.home=' || ANT_HOME '-Djava.home=' || JAVA_HOME
       
    55 
       
    56 java = _getenv_('javacmd' 'java')
       
    57 opts = value('ANT_OPTS',,env)
       
    58 args = value('ANT_ARGS',,env)
       
    59 lcp = value('LOCALCLASSPATH',,env)
       
    60 cp = value('CLASSPATH',,env)
       
    61 if value('ANT_USE_CP',,env) \= '' then do
       
    62   if lcp \= '' & right(lcp, 1) \= ';' then lcp = lcp || ';'
       
    63   lcp = lcp || cp
       
    64   'SET CLASSPATH='
       
    65 end
       
    66 if lcp\='' then lcp = '-classpath' lcp
       
    67 
       
    68 cmd = java opts lcp '-jar' ANT_HOME ||'\lib\ant-launcher.jar' settings args antarg
       
    69 launcher = stream(ANT_HOME ||'\lib\ant-launcher.jar', 'C', 'query exists')
       
    70 if launcher = '' then entry = 'org.apache.tools.ant.Main'
       
    71 else entry = 'org.apache.tools.ant.launch.Launcher'
       
    72 java opts lcp entry settings args antarg
       
    73 
       
    74 x = endlocal()
       
    75 
       
    76 return rc
       
    77 
       
    78 _testenv_: procedure expose env ANT_HOME JAVA_HOME
       
    79 ANT_HOME = value('ANT_HOME',,env)
       
    80 if ANT_HOME = '' then return 0
       
    81 JAVA_HOME = value('JAVA_HOME',,env)
       
    82 if JAVA_HOME = '' then return 0
       
    83 cp = translate(value('CLASSPATH',,env))
       
    84 if pos(translate(ANT_HOME), cp) = 0 then return 0
       
    85 if pos(translate(JAVA_HOME), cp) = 0 then return 0
       
    86 return 1
       
    87 
       
    88 _getenv_: procedure expose env
       
    89 parse arg envar default
       
    90 if default = '' then default = envar
       
    91 var = value(translate(envar),,env)
       
    92 if var = '' then var = default
       
    93 return var