| 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
|
|---|
