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