]>
Commit | Line | Data |
---|---|---|
7e1b7485 RS |
1 | /* |
2 | * Written by sms and contributed to the OpenSSL project. | |
3 | */ | |
4 | /* ==================================================================== | |
5 | * Copyright (c) 2010 The OpenSSL Project. All rights reserved. | |
6 | * | |
7 | * Redistribution and use in source and binary forms, with or without | |
8 | * modification, are permitted provided that the following conditions | |
9 | * are met: | |
10 | * | |
11 | * 1. Redistributions of source code must retain the above copyright | |
12 | * notice, this list of conditions and the following disclaimer. | |
13 | * | |
14 | * 2. Redistributions in binary form must reproduce the above copyright | |
15 | * notice, this list of conditions and the following disclaimer in | |
16 | * the documentation and/or other materials provided with the | |
17 | * distribution. | |
18 | * | |
19 | * 3. All advertising materials mentioning features or use of this | |
20 | * software must display the following acknowledgment: | |
21 | * "This product includes software developed by the OpenSSL Project | |
22 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | |
23 | * | |
24 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | |
25 | * endorse or promote products derived from this software without | |
26 | * prior written permission. For written permission, please contact | |
27 | * licensing@OpenSSL.org. | |
28 | * | |
29 | * 5. Products derived from this software may not be called "OpenSSL" | |
30 | * nor may "OpenSSL" appear in their names without prior written | |
31 | * permission of the OpenSSL Project. | |
32 | * | |
33 | * 6. Redistributions of any form whatsoever must retain the following | |
34 | * acknowledgment: | |
35 | * "This product includes software developed by the OpenSSL Project | |
36 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | |
37 | * | |
38 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | |
39 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |
40 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | |
41 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | |
42 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | |
43 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | |
44 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | |
45 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
46 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | |
47 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | |
48 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | |
49 | * OF THE POSSIBILITY OF SUCH DAMAGE. | |
50 | * ==================================================================== | |
51 | */ | |
52 | ||
537c9823 RL |
53 | #if defined( __VMS) && !defined( OPENSSL_NO_DECC_INIT) && \ |
54 | defined( __DECC) && !defined( __VAX) && (__CRTL_VER >= 70301000) | |
55 | # define USE_DECC_INIT 1 | |
56 | #endif | |
57 | ||
58 | #ifdef USE_DECC_INIT | |
59 | ||
7e1b7485 RS |
60 | /* |
61 | * ---------------------------------------------------------------------- | |
62 | * decc_init() On non-VAX systems, uses LIB$INITIALIZE to set a collection | |
63 | * of C RTL features without using the DECC$* logical name method. | |
64 | * ---------------------------------------------------------------------- | |
537c9823 RL |
65 | */ |
66 | ||
0f113f3e MC |
67 | # include <stdio.h> |
68 | # include <stdlib.h> | |
69 | # include <unixlib.h> | |
537c9823 | 70 | |
3dc9589c RL |
71 | # include "apps.h" |
72 | ||
537c9823 RL |
73 | /* Global storage. */ |
74 | ||
75 | /* Flag to sense if decc_init() was called. */ | |
76 | ||
77 | int decc_init_done = -1; | |
78 | ||
537c9823 RL |
79 | /* Structure to hold a DECC$* feature name and its desired value. */ |
80 | ||
0f113f3e | 81 | typedef struct { |
537c9823 RL |
82 | char *name; |
83 | int value; | |
84 | } decc_feat_t; | |
85 | ||
0f113f3e MC |
86 | /* |
87 | * Array of DECC$* feature names and their desired values. Note: | |
88 | * DECC$ARGV_PARSE_STYLE is the urgent one. | |
537c9823 RL |
89 | */ |
90 | ||
0f113f3e MC |
91 | decc_feat_t decc_feat_array[] = { |
92 | /* Preserve command-line case with SET PROCESS/PARSE_STYLE=EXTENDED */ | |
93 | {"DECC$ARGV_PARSE_STYLE", 1}, | |
537c9823 | 94 | |
0f113f3e MC |
95 | /* Preserve case for file names on ODS5 disks. */ |
96 | {"DECC$EFS_CASE_PRESERVE", 1}, | |
537c9823 | 97 | |
0f113f3e MC |
98 | /* |
99 | * Enable multiple dots (and most characters) in ODS5 file names, while | |
100 | * preserving VMS-ness of ";version". | |
101 | */ | |
102 | {"DECC$EFS_CHARSET", 1}, | |
537c9823 | 103 | |
0f113f3e MC |
104 | /* List terminator. */ |
105 | {(char *)NULL, 0} | |
537c9823 RL |
106 | }; |
107 | ||
087ca80a | 108 | |
368058d0 | 109 | char **copy_argv(int *argc, char *argv[]) |
7e1b7485 RS |
110 | { |
111 | /*- | |
112 | * The note below is for historical purpose. On VMS now we always | |
113 | * copy argv "safely." | |
114 | * | |
115 | * 2011-03-22 SMS. | |
116 | * If we have 32-bit pointers everywhere, then we're safe, and | |
117 | * we bypass this mess, as on non-VMS systems. | |
118 | * Problem 1: Compaq/HP C before V7.3 always used 32-bit | |
119 | * pointers for argv[]. | |
120 | * Fix 1: For a 32-bit argv[], when we're using 64-bit pointers | |
121 | * everywhere else, we always allocate and use a 64-bit | |
122 | * duplicate of argv[]. | |
123 | * Problem 2: Compaq/HP C V7.3 (Alpha, IA64) before ECO1 failed | |
124 | * to NULL-terminate a 64-bit argv[]. (As this was written, the | |
125 | * compiler ECO was available only on IA64.) | |
126 | * Fix 2: Unless advised not to (VMS_TRUST_ARGV), we test a | |
127 | * 64-bit argv[argc] for NULL, and, if necessary, use a | |
128 | * (properly) NULL-terminated (64-bit) duplicate of argv[]. | |
129 | * The same code is used in either case to duplicate argv[]. | |
130 | * Some of these decisions could be handled in preprocessing, | |
131 | * but the code tends to get even uglier, and the penalty for | |
132 | * deciding at compile- or run-time is tiny. | |
133 | */ | |
134 | ||
135 | int i, count = *argc; | |
b4faea50 | 136 | char **newargv = app_malloc(sizeof(*newargv) * (count + 1), "argv copy"); |
7e1b7485 RS |
137 | |
138 | for (i = 0; i < count; i++) | |
139 | newargv[i] = argv[i]; | |
140 | newargv[i] = NULL; | |
141 | *argc = i; | |
142 | return newargv; | |
143 | } | |
144 | ||
537c9823 RL |
145 | /* LIB$INITIALIZE initialization function. */ |
146 | ||
0f113f3e | 147 | static void decc_init(void) |
537c9823 RL |
148 | { |
149 | char *openssl_debug_decc_init; | |
150 | int verbose = 0; | |
151 | int feat_index; | |
152 | int feat_value; | |
153 | int feat_value_max; | |
154 | int feat_value_min; | |
155 | int i; | |
156 | int sts; | |
157 | ||
158 | /* Get debug option. */ | |
0f113f3e MC |
159 | openssl_debug_decc_init = getenv("OPENSSL_DEBUG_DECC_INIT"); |
160 | if (openssl_debug_decc_init != NULL) { | |
161 | verbose = strtol(openssl_debug_decc_init, NULL, 10); | |
162 | if (verbose <= 0) { | |
537c9823 RL |
163 | verbose = 1; |
164 | } | |
165 | } | |
166 | ||
167 | /* Set the global flag to indicate that LIB$INITIALIZE worked. */ | |
168 | decc_init_done = 1; | |
169 | ||
170 | /* Loop through all items in the decc_feat_array[]. */ | |
171 | ||
0f113f3e | 172 | for (i = 0; decc_feat_array[i].name != NULL; i++) { |
537c9823 | 173 | /* Get the feature index. */ |
0f113f3e MC |
174 | feat_index = decc$feature_get_index(decc_feat_array[i].name); |
175 | if (feat_index >= 0) { | |
537c9823 | 176 | /* Valid item. Collect its properties. */ |
0f113f3e MC |
177 | feat_value = decc$feature_get_value(feat_index, 1); |
178 | feat_value_min = decc$feature_get_value(feat_index, 2); | |
179 | feat_value_max = decc$feature_get_value(feat_index, 3); | |
537c9823 RL |
180 | |
181 | /* Check the validity of our desired value. */ | |
0f113f3e MC |
182 | if ((decc_feat_array[i].value >= feat_value_min) && |
183 | (decc_feat_array[i].value <= feat_value_max)) { | |
537c9823 | 184 | /* Valid value. Set it if necessary. */ |
0f113f3e MC |
185 | if (feat_value != decc_feat_array[i].value) { |
186 | sts = decc$feature_set_value(feat_index, | |
187 | 1, decc_feat_array[i].value); | |
188 | ||
189 | if (verbose > 1) { | |
190 | fprintf(stderr, " %s = %d, sts = %d.\n", | |
191 | decc_feat_array[i].name, | |
192 | decc_feat_array[i].value, sts); | |
193 | } | |
537c9823 | 194 | } |
0f113f3e | 195 | } else { |
537c9823 | 196 | /* Invalid DECC feature value. */ |
0f113f3e MC |
197 | fprintf(stderr, |
198 | " INVALID DECC$FEATURE VALUE, %d: %d <= %s <= %d.\n", | |
199 | feat_value, | |
200 | feat_value_min, decc_feat_array[i].name, | |
201 | feat_value_max); | |
537c9823 | 202 | } |
0f113f3e | 203 | } else { |
537c9823 | 204 | /* Invalid DECC feature name. */ |
0f113f3e MC |
205 | fprintf(stderr, |
206 | " UNKNOWN DECC$FEATURE: %s.\n", decc_feat_array[i].name); | |
537c9823 RL |
207 | } |
208 | } | |
209 | ||
0f113f3e MC |
210 | if (verbose > 0) { |
211 | fprintf(stderr, " DECC_INIT complete.\n"); | |
537c9823 RL |
212 | } |
213 | } | |
214 | ||
215 | /* Get "decc_init()" into a valid, loaded LIB$INITIALIZE PSECT. */ | |
216 | ||
0f113f3e | 217 | # pragma nostandard |
537c9823 | 218 | |
0f113f3e MC |
219 | /* |
220 | * Establish the LIB$INITIALIZE PSECTs, with proper alignment and other | |
221 | * attributes. Note that "nopic" is significant only on VAX. | |
537c9823 | 222 | */ |
0f113f3e | 223 | # pragma extern_model save |
537c9823 | 224 | |
0f113f3e MC |
225 | # if __INITIAL_POINTER_SIZE == 64 |
226 | # define PSECT_ALIGN 3 | |
227 | # else | |
228 | # define PSECT_ALIGN 2 | |
229 | # endif | |
537c9823 | 230 | |
0f113f3e MC |
231 | # pragma extern_model strict_refdef "LIB$INITIALIZ" PSECT_ALIGN, nopic, nowrt |
232 | const int spare[8] = { 0 }; | |
537c9823 | 233 | |
0f113f3e MC |
234 | # pragma extern_model strict_refdef "LIB$INITIALIZE" PSECT_ALIGN, nopic, nowrt |
235 | void (*const x_decc_init) () = decc_init; | |
537c9823 | 236 | |
0f113f3e | 237 | # pragma extern_model restore |
537c9823 RL |
238 | |
239 | /* Fake reference to ensure loading the LIB$INITIALIZE PSECT. */ | |
240 | ||
0f113f3e | 241 | # pragma extern_model save |
537c9823 | 242 | |
0f113f3e | 243 | int LIB$INITIALIZE(void); |
537c9823 | 244 | |
0f113f3e MC |
245 | # pragma extern_model strict_refdef |
246 | int dmy_lib$initialize = (int)LIB$INITIALIZE; | |
537c9823 | 247 | |
0f113f3e | 248 | # pragma extern_model restore |
537c9823 | 249 | |
0f113f3e | 250 | # pragma standard |
537c9823 | 251 | |
0f113f3e | 252 | #else /* def USE_DECC_INIT */ |
537c9823 RL |
253 | |
254 | /* Dummy code to avoid a %CC-W-EMPTYFILE complaint. */ | |
0f113f3e | 255 | int decc_init_dummy(void); |
537c9823 | 256 | |
0f113f3e | 257 | #endif /* def USE_DECC_INIT */ |