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 | Ant environment
|
---|
17 | */
|
---|
18 |
|
---|
19 | '@echo off'
|
---|
20 | call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
|
---|
21 | call SysLoadFuncs
|
---|
22 |
|
---|
23 | /* Prepare the parameters for later use */
|
---|
24 | parse arg argv
|
---|
25 | mode = ''
|
---|
26 | args = ''
|
---|
27 | opts = ''
|
---|
28 | cp = ''
|
---|
29 | lcp = ''
|
---|
30 |
|
---|
31 | do i = 1 to words(argv)
|
---|
32 | param = word(argv, i)
|
---|
33 | select
|
---|
34 | when param='-lcp' then mode = 'l'
|
---|
35 | when param='-cp' | param='-classpath' then mode = 'c'
|
---|
36 | when abbrev('-opts', param, 4) then mode = 'o'
|
---|
37 | when abbrev('-args', param, 4) then mode = 'a'
|
---|
38 | otherwise
|
---|
39 | select
|
---|
40 | when mode = 'a' then args = space(args param, 1)
|
---|
41 | when mode = 'c' then cp = space(cp param, 1)
|
---|
42 | when mode = 'l' then lcp = space(lcp param, 1)
|
---|
43 | when mode = 'o' then opts = space(opts param, 1)
|
---|
44 | otherwise
|
---|
45 | say 'Option' param 'ignored'
|
---|
46 | end
|
---|
47 | end
|
---|
48 | end
|
---|
49 |
|
---|
50 | env="OS2ENVIRONMENT"
|
---|
51 | antconf = _getenv_('antconf' 'antconf.cmd')
|
---|
52 | runrc = _getenv_('runrc')
|
---|
53 | interpret 'call "' || runrc || '"' '"' || antconf || '"' 'ETC'
|
---|
54 | ANT_HOME = value('ANT_HOME',,env)
|
---|
55 | JAVA_HOME = value('JAVA_HOME',,env)
|
---|
56 | classpath = value('CLASSPATH',,env)
|
---|
57 | classes = stream(JAVA_HOME || "\lib\classes.zip", "C", "QUERY EXISTS")
|
---|
58 | if classes \= '' then classpath = prepend(classpath classes)
|
---|
59 | classes = stream(JAVA_HOME || "\lib\tools.jar", "C", "QUERY EXISTS")
|
---|
60 | if classes \= '' then classpath = prepend(classpath classes)
|
---|
61 |
|
---|
62 | classpath = prepend(classpath ANT_HOME || '\lib\ant-launcher.jar')
|
---|
63 | 'SET CLASSPATH=' || classpath
|
---|
64 |
|
---|
65 | /* Setting classpathes, options and arguments */
|
---|
66 | envset = _getenv_('envset')
|
---|
67 | if cp\='' then interpret 'call "' || envset || '"' '"; CLASSPATH"' '"' || cp || '"'
|
---|
68 | if lcp\='' then interpret 'call "' || envset || '"' '"; LOCALCLASSPATH"' '"' || lcp || '"'
|
---|
69 | if opts\='' then interpret 'call "' || envset || '"' '"-D ANT_OPTS"' '"' || opts || '"'
|
---|
70 | if args\='' then interpret 'call "' || envset || '"' '"ANT_ARGS"' '"' || args || '"'
|
---|
71 |
|
---|
72 | exit 0
|
---|
73 |
|
---|
74 | addpath: procedure
|
---|
75 | parse arg path elem
|
---|
76 | if elem = '' then do
|
---|
77 | if path\='' & right(path, 1)\=';' then path = path || ';'
|
---|
78 | return path
|
---|
79 | end
|
---|
80 | if substr(path, length(path)) = ';' then glue = ''
|
---|
81 | else glue = ';'
|
---|
82 | if pos(translate(elem), translate(path)) = 0 then path = path || glue || elem || ';'
|
---|
83 | return path
|
---|
84 |
|
---|
85 | prepend: procedure
|
---|
86 | parse arg path elem
|
---|
87 | if elem = '' then do
|
---|
88 | if path\='' & right(path, 1)\=';' then path = path || ';'
|
---|
89 | return path
|
---|
90 | end
|
---|
91 | if pos(translate(elem), translate(path)) = 0 then path = elem || ';' || path
|
---|
92 | return path
|
---|
93 |
|
---|
94 | _getenv_: procedure expose env
|
---|
95 | parse arg envar default
|
---|
96 | if default = '' then default = envar
|
---|
97 | var = value(translate(envar),,env)
|
---|
98 | if var = '' then var = default
|
---|
99 | return var
|
---|