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 */