Add loaded dynamic ENGINEs to list.
[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
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 */