1 | /*
|
---|
2 |
|
---|
3 | Copyright 2003-2004 The Apache Software Foundation
|
---|
4 |
|
---|
5 | Licensed under the Apache License, Version 2.0 (the "License");
|
---|
6 | you may not use this file except in compliance with the License.
|
---|
7 | 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 | SET environment variables
|
---|
18 | First optional parameter:
|
---|
19 | ; parameters are considered parts of a path variable, semicolons are
|
---|
20 | appended to each element if not already present
|
---|
21 | -D parameters are properties for Java or Makefile etc., -D will be
|
---|
22 | prepended and the parameters will be separated by a space
|
---|
23 | =D the same as above but equal sign is not required
|
---|
24 | , parameters should be comma separated in the environment variable
|
---|
25 | - parameters should be separated by the next parameter
|
---|
26 | Other values mean that the first parameter is missing and the environment
|
---|
27 | variable will be set to the space separated parameters
|
---|
28 |
|
---|
29 | Second parameter: name of the environment variable
|
---|
30 |
|
---|
31 | Next parameters: values
|
---|
32 | ; implies that the equal sign is considered a part of the parameter and is
|
---|
33 | not interpreted
|
---|
34 |
|
---|
35 | -D requires parameters in the form name=value. If the equal sign is not found,
|
---|
36 | the parameters are changed to name=expanded_name
|
---|
37 |
|
---|
38 | Other options have optional equal sign. If it is found, only the part after
|
---|
39 | the equal sign will be oprionally expanded.
|
---|
40 |
|
---|
41 | If the parameter is the minus sign, the next parameter will not be expanded.
|
---|
42 | If the parameter is a single dot, it will be replaced with the value of the
|
---|
43 | environment variable as it existed before envset was invoked.
|
---|
44 |
|
---|
45 | For other parameters the batch looks for the environment variable with the
|
---|
46 | same name (in uppercase). If it is found, it forms the expanded_name. If
|
---|
47 | the environment variable with such a name does not exist, the expanded_name
|
---|
48 | will hold the parameter name without case conversion.
|
---|
49 | */
|
---|
50 |
|
---|
51 | parse arg mode envar args
|
---|
52 |
|
---|
53 | equal = 0
|
---|
54 | sep = ' '
|
---|
55 |
|
---|
56 | /* Parse command line parameters */
|
---|
57 | select
|
---|
58 | when mode='-' then do
|
---|
59 | sep = envar
|
---|
60 | parse var args envar args
|
---|
61 | end
|
---|
62 | when mode=';' then do
|
---|
63 | sep = ''
|
---|
64 | equal = -1
|
---|
65 | end
|
---|
66 | when mode='-D' then equal = 1
|
---|
67 | when mode='=D' then mode = '-D'
|
---|
68 | when mode=',' then sep = ','
|
---|
69 | otherwise
|
---|
70 | args = envar args
|
---|
71 | envar = mode
|
---|
72 | mode = ''
|
---|
73 | end
|
---|
74 |
|
---|
75 | env = 'OS2ENVIRONMENT'
|
---|
76 | envar = translate(envar)
|
---|
77 | orig = value(envar,,env)
|
---|
78 | newval = ''
|
---|
79 | expand = 1
|
---|
80 |
|
---|
81 | /* for each parameter... */
|
---|
82 | do i = 1 to words(args)
|
---|
83 | if expand > 0 & word(args, i) = '-' then expand = 0
|
---|
84 | else call addval word(args, i)
|
---|
85 | end
|
---|
86 |
|
---|
87 | /* Optionally enclose path variable by quotes */
|
---|
88 | if mode = ';' & pos(' ', newval) > 0 then newval = '"' || newval || '"'
|
---|
89 |
|
---|
90 | /* Set the new value, 'SET' cannot be used since it does not allow '=' */
|
---|
91 | x = value(envar, newval, env)
|
---|
92 | exit 0
|
---|
93 |
|
---|
94 | addval: procedure expose sep equal orig expand newval mode env
|
---|
95 | parse arg var
|
---|
96 |
|
---|
97 | if var = '.' then expvar = orig
|
---|
98 | else do
|
---|
99 | if equal >= 0 then do
|
---|
100 | parse var var name '=' val
|
---|
101 | if val = '' then var = name
|
---|
102 | else var = val
|
---|
103 | end
|
---|
104 | if expand = 0 then expvar = var
|
---|
105 | else expvar = value(translate(var),,env)
|
---|
106 | if expvar = '' then expvar = var
|
---|
107 | if equal >= 0 then do
|
---|
108 | if val = '' then do
|
---|
109 | parse var expvar key '=' val
|
---|
110 | if val <> '' then name = key
|
---|
111 | else do
|
---|
112 | if equal > 0 then val = key
|
---|
113 | else name = key
|
---|
114 | end
|
---|
115 | end
|
---|
116 | else val = expvar
|
---|
117 | if pos(' ', val) > 0 | pos('=', val) > 0 then val = '"' || val || '"'
|
---|
118 | if val = '' then expvar = name
|
---|
119 | else expvar = name || '=' || val
|
---|
120 | end
|
---|
121 | if mode = '-D' then expvar = '-D' || expvar
|
---|
122 | if mode = ';' then do
|
---|
123 | if right(expvar, 1) <> ';' then expvar = expvar || ';'
|
---|
124 | end
|
---|
125 | end
|
---|
126 |
|
---|
127 | if newval = '' then newval = expvar
|
---|
128 | else newval = newval || sep || expvar
|
---|
129 | expand = 1
|
---|
130 | return
|
---|