apps/vms_decc_init.c

   1 /*
   2  * Written by sms and contributed to the OpenSSL project.
   3  */
   4 /* ====================================================================
   5  * Copyright (c) 2010 The OpenSSL Project.  All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  *
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  *
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in
  16  *    the documentation and/or other materials provided with the
  17  *    distribution.
  18  *
  19  * 3. All advertising materials mentioning features or use of this
  20  *    software must display the following acknowledgment:
  21  *    "This product includes software developed by the OpenSSL Project
  22  *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
  23  *
  24  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
  25  *    endorse or promote products derived from this software without
  26  *    prior written permission. For written permission, please contact
  27  *    licensing@OpenSSL.org.
  28  *
  29  * 5. Products derived from this software may not be called "OpenSSL"
  30  *    nor may "OpenSSL" appear in their names without prior written
  31  *    permission of the OpenSSL Project.
  32  *
  33  * 6. Redistributions of any form whatsoever must retain the following
  34  *    acknowledgment:
  35  *    "This product includes software developed by the OpenSSL Project
  36  *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
  37  *
  38  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
  39  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  40  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  41  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
  42  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  43  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  44  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  45  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  46  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  47  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  48  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  49  * OF THE POSSIBILITY OF SUCH DAMAGE.
  50  * ====================================================================
  51  */
  52
  53 #if defined( __VMS) && !defined( OPENSSL_NO_DECC_INIT) && \
  54  defined( __DECC) && !defined( __VAX) && (__CRTL_VER >= 70301000)
  55 # define USE_DECC_INIT 1
  56 #endif
  57
  58 #ifdef USE_DECC_INIT
  59
  60 /*
  61  * ----------------------------------------------------------------------
  62  * decc_init() On non-VAX systems, uses LIB$INITIALIZE to set a collection
  63  * of C RTL features without using the DECC$* logical name method.
  64  * ----------------------------------------------------------------------
  65  */
  66
  67 # include <stdio.h>
  68 # include <stdlib.h>
  69 # include <unixlib.h>
  70
  71 # include "apps.h"
  72
  73 /* Global storage. */
  74
  75 /* Flag to sense if decc_init() was called. */
  76
  77 int decc_init_done = -1;
  78
  79 /* Structure to hold a DECC$* feature name and its desired value. */
  80
  81 typedef struct {
  82     char *name;
  83     int value;
  84 } decc_feat_t;
  85
  86 /*
  87  * Array of DECC$* feature names and their desired values. Note:
  88  * DECC$ARGV_PARSE_STYLE is the urgent one.
  89  */
  90
  91 decc_feat_t decc_feat_array[] = {
  92     /* Preserve command-line case with SET PROCESS/PARSE_STYLE=EXTENDED */
  93     {"DECC$ARGV_PARSE_STYLE", 1},
  94
  95     /* Preserve case for file names on ODS5 disks. */
  96     {"DECC$EFS_CASE_PRESERVE", 1},
  97
  98     /*
  99      * Enable multiple dots (and most characters) in ODS5 file names, while
 100      * preserving VMS-ness of ";version".
 101      */
 102     {"DECC$EFS_CHARSET", 1},
 103
 104     /* List terminator. */
 105     {(char *)NULL, 0}
 106 };
 107
 108
 109 char **copy_argv(int *argc, char *argv[])
 110 {
 111     /*-
 112      * The note below is for historical purpose.  On VMS now we always
 113      * copy argv "safely."
 114      *
 115      * 2011-03-22 SMS.
 116      * If we have 32-bit pointers everywhere, then we're safe, and
 117      * we bypass this mess, as on non-VMS systems.
 118      * Problem 1: Compaq/HP C before V7.3 always used 32-bit
 119      * pointers for argv[].
 120      * Fix 1: For a 32-bit argv[], when we're using 64-bit pointers
 121      * everywhere else, we always allocate and use a 64-bit
 122      * duplicate of argv[].
 123      * Problem 2: Compaq/HP C V7.3 (Alpha, IA64) before ECO1 failed
 124      * to NULL-terminate a 64-bit argv[].  (As this was written, the
 125      * compiler ECO was available only on IA64.)
 126      * Fix 2: Unless advised not to (VMS_TRUST_ARGV), we test a
 127      * 64-bit argv[argc] for NULL, and, if necessary, use a
 128      * (properly) NULL-terminated (64-bit) duplicate of argv[].
 129      * The same code is used in either case to duplicate argv[].
 130      * Some of these decisions could be handled in preprocessing,
 131      * but the code tends to get even uglier, and the penalty for
 132      * deciding at compile- or run-time is tiny.
 133      */
 134
 135     int i, count = *argc;
 136     char **newargv = app_malloc(sizeof(*newargv) * (count + 1), "argv copy");
 137
 138     for (i = 0; i < count; i++)
 139         newargv[i] = argv[i];
 140     newargv[i] = NULL;
 141     *argc = i;
 142     return newargv;
 143 }
 144
 145 /* LIB$INITIALIZE initialization function. */
 146
 147 static void decc_init(void)
 148 {
 149     char *openssl_debug_decc_init;
 150     int verbose = 0;
 151     int feat_index;
 152     int feat_value;
 153     int feat_value_max;
 154     int feat_value_min;
 155     int i;
 156     int sts;
 157
 158     /* Get debug option. */
 159     openssl_debug_decc_init = getenv("OPENSSL_DEBUG_DECC_INIT");
 160     if (openssl_debug_decc_init != NULL) {
 161         verbose = strtol(openssl_debug_decc_init, NULL, 10);
 162         if (verbose <= 0) {
 163             verbose = 1;
 164         }
 165     }
 166
 167     /* Set the global flag to indicate that LIB$INITIALIZE worked. */
 168     decc_init_done = 1;
 169
 170     /* Loop through all items in the decc_feat_array[]. */
 171
 172     for (i = 0; decc_feat_array[i].name != NULL; i++) {
 173         /* Get the feature index. */
 174         feat_index = decc$feature_get_index(decc_feat_array[i].name);
 175         if (feat_index >= 0) {
 176             /* Valid item.  Collect its properties. */
 177             feat_value = decc$feature_get_value(feat_index, 1);
 178             feat_value_min = decc$feature_get_value(feat_index, 2);
 179             feat_value_max = decc$feature_get_value(feat_index, 3);
 180
 181             /* Check the validity of our desired value. */
 182             if ((decc_feat_array[i].value >= feat_value_min) &&
 183                 (decc_feat_array[i].value <= feat_value_max)) {
 184                 /* Valid value.  Set it if necessary. */
 185                 if (feat_value != decc_feat_array[i].value) {
 186                     sts = decc$feature_set_value(feat_index,
 187                                                  1, decc_feat_array[i].value);
 188
 189                     if (verbose > 1) {
 190                         fprintf(stderr, " %s = %d, sts = %d.\n",
 191                                 decc_feat_array[i].name,
 192                                 decc_feat_array[i].value, sts);
 193                     }
 194                 }
 195             } else {
 196                 /* Invalid DECC feature value. */
 197                 fprintf(stderr,
 198                         " INVALID DECC$FEATURE VALUE, %d: %d <= %s <= %d.\n",
 199                         feat_value,
 200                         feat_value_min, decc_feat_array[i].name,
 201                         feat_value_max);
 202             }
 203         } else {
 204             /* Invalid DECC feature name. */
 205             fprintf(stderr,
 206                     " UNKNOWN DECC$FEATURE: %s.\n", decc_feat_array[i].name);
 207         }
 208     }
 209
 210     if (verbose > 0) {
 211         fprintf(stderr, " DECC_INIT complete.\n");
 212     }
 213 }
 214
 215 /* Get "decc_init()" into a valid, loaded LIB$INITIALIZE PSECT. */
 216
 217 # pragma nostandard
 218
 219 /*
 220  * Establish the LIB$INITIALIZE PSECTs, with proper alignment and other
 221  * attributes.  Note that "nopic" is significant only on VAX.
 222  */
 223 # pragma extern_model save
 224
 225 # if __INITIAL_POINTER_SIZE == 64
 226 #  define PSECT_ALIGN 3
 227 # else
 228 #  define PSECT_ALIGN 2
 229 # endif
 230
 231 # pragma extern_model strict_refdef "LIB$INITIALIZ" PSECT_ALIGN, nopic, nowrt
 232 const int spare[8] = { 0 };
 233
 234 # pragma extern_model strict_refdef "LIB$INITIALIZE" PSECT_ALIGN, nopic, nowrt
 235 void (*const x_decc_init) () = decc_init;
 236
 237 # pragma extern_model restore
 238
 239 /* Fake reference to ensure loading the LIB$INITIALIZE PSECT. */
 240
 241 # pragma extern_model save
 242
 243 int LIB$INITIALIZE(void);
 244
 245 # pragma extern_model strict_refdef
 246 int dmy_lib$initialize = (int)LIB$INITIALIZE;
 247
 248 # pragma extern_model restore
 249
 250 # pragma standard
 251
 252 #else                           /* def USE_DECC_INIT */
 253
 254 /* Dummy code to avoid a %CC-W-EMPTYFILE complaint. */
 255 int decc_init_dummy(void);
 256
 257 #endif                          /* def USE_DECC_INIT */