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