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