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