2 * Written by sms and contributed to the OpenSSL project.
4 /* ====================================================================
5 * Copyright (c) 2010 The OpenSSL Project. All rights reserved.
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
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
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/)"
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.
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.
33 * 6. Redistributions of any form whatsoever must retain the following
35 * "This product includes software developed by the OpenSSL Project
36 * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
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 * ====================================================================
53 #if defined( __VMS) && !defined( OPENSSL_NO_DECC_INIT) && \
54 defined( __DECC) && !defined( __VAX) && (__CRTL_VER >= 70301000)
55 # define USE_DECC_INIT 1
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 * ----------------------------------------------------------------------
75 /* Flag to sense if decc_init() was called. */
77 int decc_init_done
= -1;
79 /* Structure to hold a DECC$* feature name and its desired value. */
87 * Array of DECC$* feature names and their desired values. Note:
88 * DECC$ARGV_PARSE_STYLE is the urgent one.
91 decc_feat_t decc_feat_array
[] = {
92 /* Preserve command-line case with SET PROCESS/PARSE_STYLE=EXTENDED */
93 {"DECC$ARGV_PARSE_STYLE", 1},
95 /* Preserve case for file names on ODS5 disks. */
96 {"DECC$EFS_CASE_PRESERVE", 1},
99 * Enable multiple dots (and most characters) in ODS5 file names, while
100 * preserving VMS-ness of ";version".
102 {"DECC$EFS_CHARSET", 1},
104 /* List terminator. */
109 char **copy_argv(int *argc
, argv_t argv
)
112 * The note below is for historical purpose. On VMS now we always
113 * copy argv "safely."
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.
135 int i
, count
= *argc
;
136 char **newargv
= app_malloc(sizeof(*newargv
) * (count
+ 1), "argv copy");
138 for (i
= 0; i
< count
; i
++)
139 newargv
[i
] = argv
[i
];
145 /* LIB$INITIALIZE initialization function. */
147 static void decc_init(void)
149 char *openssl_debug_decc_init
;
158 /* Get debug option. */
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);
167 /* Set the global flag to indicate that LIB$INITIALIZE worked. */
170 /* Loop through all items in the decc_feat_array[]. */
172 for (i
= 0; decc_feat_array
[i
].name
!= NULL
; i
++) {
173 /* Get the feature index. */
174 feat_index
= decc$
feature_get_index(decc_feat_array
[i
].name
);
175 if (feat_index
>= 0) {
176 /* Valid item. Collect its properties. */
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);
181 /* Check the validity of our desired value. */
182 if ((decc_feat_array
[i
].value
>= feat_value_min
) &&
183 (decc_feat_array
[i
].value
<= feat_value_max
)) {
184 /* Valid value. Set it if necessary. */
185 if (feat_value
!= decc_feat_array
[i
].value
) {
186 sts
= decc$
feature_set_value(feat_index
,
187 1, decc_feat_array
[i
].value
);
190 fprintf(stderr
, " %s = %d, sts = %d.\n",
191 decc_feat_array
[i
].name
,
192 decc_feat_array
[i
].value
, sts
);
196 /* Invalid DECC feature value. */
198 " INVALID DECC$FEATURE VALUE, %d: %d <= %s <= %d.\n",
200 feat_value_min
, decc_feat_array
[i
].name
,
204 /* Invalid DECC feature name. */
206 " UNKNOWN DECC$FEATURE: %s.\n", decc_feat_array
[i
].name
);
211 fprintf(stderr
, " DECC_INIT complete.\n");
215 /* Get "decc_init()" into a valid, loaded LIB$INITIALIZE PSECT. */
220 * Establish the LIB$INITIALIZE PSECTs, with proper alignment and other
221 * attributes. Note that "nopic" is significant only on VAX.
223 # pragma extern_model save
225 # if __INITIAL_POINTER_SIZE == 64
226 # define PSECT_ALIGN 3
228 # define PSECT_ALIGN 2
231 # pragma extern_model strict_refdef "LIB$INITIALIZ" PSECT_ALIGN, nopic, nowrt
232 const int spare
[8] = { 0 };
234 # pragma extern_model strict_refdef "LIB$INITIALIZE" PSECT_ALIGN, nopic, nowrt
235 void (*const x_decc_init
) () = decc_init
;
237 # pragma extern_model restore
239 /* Fake reference to ensure loading the LIB$INITIALIZE PSECT. */
241 # pragma extern_model save
243 int LIB$
INITIALIZE(void);
245 # pragma extern_model strict_refdef
246 int dmy_lib$initialize
= (int)LIB$INITIALIZE
;
248 # pragma extern_model restore
252 #else /* def USE_DECC_INIT */
254 /* Dummy code to avoid a %CC-W-EMPTYFILE complaint. */
255 int decc_init_dummy(void);
257 #endif /* def USE_DECC_INIT */