1 /*
2 * Copyright 2010-2016 The OpenSSL Project Authors. All Rights Reserved.
3 *
4 * Licensed under the Apache License 2.0 (the "License"). You may not use
5 * this file except in compliance with the License. You can obtain a copy
6 * in the file LICENSE in the source distribution or at
7 * https://www.openssl.org/source/license.html
8 */
9
10 #if defined(__VMS) && !defined(OPENSSL_NO_DECC_INIT) && defined(__DECC) && !defined(__VAX) && (__CRTL_VER >= 70301000)
11 #define USE_DECC_INIT 1
12 #endif
13
14 #ifdef USE_DECC_INIT
15
16 /*
17 * ----------------------------------------------------------------------
18 * decc_init() On non-VAX systems, uses LIB$INITIALIZE to set a collection
19 * of C RTL features without using the DECC$* logical name method.
20 * ----------------------------------------------------------------------
21 */
22
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <unixlib.h>
26
27 /* Global storage. */
28
29 /* Flag to sense if decc_init() was called. */
30
31 int decc_init_done = -1;
32
33 /* Structure to hold a DECC$* feature name and its desired value. */
34
35 typedef struct {
36 char *name;
37 int value;
38 } decc_feat_t;
39
40 /*
41 * Array of DECC$* feature names and their desired values. Note:
42 * DECC$ARGV_PARSE_STYLE is the urgent one.
43 */
44
45 decc_feat_t decc_feat_array[] = {
46 /* Preserve command-line case with SET PROCESS/PARSE_STYLE=EXTENDED */
47 { "DECC$ARGV_PARSE_STYLE", 1 },
48
49 /* Preserve case for file names on ODS5 disks. */
50 { "DECC$EFS_CASE_PRESERVE", 1 },
51
52 /*
53 * Enable multiple dots (and most characters) in ODS5 file names, while
54 * preserving VMS-ness of ";version".
55 */
56 { "DECC$EFS_CHARSET", 1 },
57
58 /* List terminator. */
59 { (char *)NULL, 0 }
60 };
61
62 /* LIB$INITIALIZE initialization function. */
63
decc_init(void)64 static void decc_init(void)
65 {
66 char *openssl_debug_decc_init;
67 int verbose = 0;
68 int feat_index;
69 int feat_value;
70 int feat_value_max;
71 int feat_value_min;
72 int i;
73 int sts;
74
75 /* Get debug option. */
76 openssl_debug_decc_init = getenv("OPENSSL_DEBUG_DECC_INIT");
77 if (openssl_debug_decc_init != NULL) {
78 verbose = strtol(openssl_debug_decc_init, NULL, 10);
79 if (verbose <= 0) {
80 verbose = 1;
81 }
82 }
83
84 /* Set the global flag to indicate that LIB$INITIALIZE worked. */
85 decc_init_done = 1;
86
87 /* Loop through all items in the decc_feat_array[]. */
88
89 for (i = 0; decc_feat_array[i].name != NULL; i++) {
90 /* Get the feature index. */
91 feat_index = decc$feature_get_index(decc_feat_array[i].name);
92 if (feat_index >= 0) {
93 /* Valid item. Collect its properties. */
94 feat_value = decc$feature_get_value(feat_index, 1);
95 feat_value_min = decc$feature_get_value(feat_index, 2);
96 feat_value_max = decc$feature_get_value(feat_index, 3);
97
98 /* Check the validity of our desired value. */
99 if ((decc_feat_array[i].value >= feat_value_min) && (decc_feat_array[i].value <= feat_value_max)) {
100 /* Valid value. Set it if necessary. */
101 if (feat_value != decc_feat_array[i].value) {
102 sts = decc$feature_set_value(feat_index,
103 1, decc_feat_array[i].value);
104
105 if (verbose > 1) {
106 fprintf(stderr, " %s = %d, sts = %d.\n",
107 decc_feat_array[i].name,
108 decc_feat_array[i].value, sts);
109 }
110 }
111 } else {
112 /* Invalid DECC feature value. */
113 fprintf(stderr,
114 " INVALID DECC$FEATURE VALUE, %d: %d <= %s <= %d.\n",
115 feat_value,
116 feat_value_min, decc_feat_array[i].name,
117 feat_value_max);
118 }
119 } else {
120 /* Invalid DECC feature name. */
121 fprintf(stderr,
122 " UNKNOWN DECC$FEATURE: %s.\n", decc_feat_array[i].name);
123 }
124 }
125
126 if (verbose > 0) {
127 fprintf(stderr, " DECC_INIT complete.\n");
128 }
129 }
130
131 /* Get "decc_init()" into a valid, loaded LIB$INITIALIZE PSECT. */
132
133 #pragma nostandard
134
135 /*
136 * Establish the LIB$INITIALIZE PSECTs, with proper alignment and other
137 * attributes. Note that "nopic" is significant only on VAX.
138 */
139 #pragma extern_model save
140
141 #if __INITIAL_POINTER_SIZE == 64
142 #define PSECT_ALIGN 3
143 #else
144 #define PSECT_ALIGN 2
145 #endif
146
147 #pragma extern_model strict_refdef "LIB$INITIALIZ" PSECT_ALIGN, nopic, nowrt
148 const int spare[8] = { 0 };
149
150 #pragma extern_model strict_refdef "LIB$INITIALIZE" PSECT_ALIGN, nopic, nowrt
151 void (*const x_decc_init)() = decc_init;
152
153 #pragma extern_model restore
154
155 /* Fake reference to ensure loading the LIB$INITIALIZE PSECT. */
156
157 #pragma extern_model save
158
159 int LIB$INITIALIZE(void);
160
161 #pragma extern_model strict_refdef
162 int dmy_lib$initialize = (int)LIB$INITIALIZE;
163
164 #pragma extern_model restore
165
166 #pragma standard
167
168 #else /* def USE_DECC_INIT */
169
170 /* Dummy code to avoid a %CC-W-EMPTYFILE complaint. */
171 int decc_init_dummy(void);
172
173 #endif /* def USE_DECC_INIT */
174