crypto/openssl/apps/vms_decc_init.c

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