OLD | NEW |
(Empty) | |
| 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 */ |
OLD | NEW |