1 /*************************************************************************** 2 * _ _ ____ _ 3 * Project ___| | | | _ \| | 4 * / __| | | | |_) | | 5 * | (__| |_| | _ <| |___ 6 * \___|\___/|_| \_\_____| 7 * 8 * Copyright (C) 1998 - 2016, Daniel Stenberg, <daniel (at) haxx.se>, et al. 9 * 10 * This software is licensed as described in the file COPYING, which 11 * you should have received as part of this distribution. The terms 12 * are also available at https://curl.haxx.se/docs/copyright.html. 13 * 14 * You may opt to use, copy, modify, merge, publish, distribute and/or sell 15 * copies of the Software, and permit persons to whom the Software is 16 * furnished to do so, under the terms of the COPYING file. 17 * 18 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY 19 * KIND, either express or implied. 20 * 21 ***************************************************************************/ 22 #include "tool_setup.h" 23 24 #ifdef __VMS 25 26 #if defined(__DECC) && !defined(__VAX) && \ 27 defined(__CRTL_VER) && (__CRTL_VER >= 70301000) 28 #include <unixlib.h> 29 #endif 30 31 #define ENABLE_CURLX_PRINTF 32 #include "curlx.h" 33 34 #include "curlmsg_vms.h" 35 #include "tool_vms.h" 36 37 #include "memdebug.h" /* keep this as LAST include */ 38 39 void decc$__posix_exit(int __status); 40 void decc$exit(int __status); 41 42 static int vms_shell = -1; 43 44 /* VMS has a DCL shell and and also has Unix shells ported to it. 45 * When curl is running under a Unix shell, we want it to be as much 46 * like Unix as possible. 47 */ 48 int is_vms_shell(void) 49 { 50 char *shell; 51 52 /* Have we checked the shell yet? */ 53 if(vms_shell >= 0) 54 return vms_shell; 55 56 shell = getenv("SHELL"); 57 58 /* No shell, means DCL */ 59 if(shell == NULL) { 60 vms_shell = 1; 61 return 1; 62 } 63 64 /* Have to make sure some one did not set shell to DCL */ 65 if(strcmp(shell, "DCL") == 0) { 66 vms_shell = 1; 67 return 1; 68 } 69 70 vms_shell = 0; 71 return 0; 72 } 73 74 /* 75 * VMS has two exit() routines. When running under a Unix style shell, then 76 * Unix style and the __posix_exit() routine is used. 77 * 78 * When running under the DCL shell, then the VMS encoded codes and decc$exit() 79 * is used. 80 * 81 * We can not use exit() or return a code from main() because the actual 82 * routine called depends on both the compiler version, compile options, and 83 * feature macro settings, and one of the exit routines is hidden at compile 84 * time. 85 * 86 * Since we want Curl to work properly under the VMS DCL shell and Unix 87 * shells under VMS, this routine should compile correctly regardless of 88 * the settings. 89 */ 90 91 void vms_special_exit(int code, int vms_show) 92 { 93 int vms_code; 94 95 /* The Posix exit mode is only available after VMS 7.0 */ 96 #if __CRTL_VER >= 70000000 97 if(is_vms_shell() == 0) { 98 decc$__posix_exit(code); 99 } 100 #endif 101 102 if(code > CURL_LAST) { /* If CURL_LAST exceeded then */ 103 vms_code = CURL_LAST; /* curlmsg.h is out of sync. */ 104 } 105 else { 106 vms_code = vms_cond[code] | vms_show; 107 } 108 decc$exit(vms_code); 109 } 110 111 #if defined(__DECC) && !defined(__VAX) && \ 112 defined(__CRTL_VER) && (__CRTL_VER >= 70301000) 113 114 /* 115 * 2004-09-19 SMS. 116 * 117 * decc_init() 118 * 119 * On non-VAX systems, use LIB$INITIALIZE to set a collection of C 120 * RTL features without using the DECC$* logical name method, nor 121 * requiring the user to define the corresponding logical names. 122 */ 123 124 /* Structure to hold a DECC$* feature name and its desired value. */ 125 typedef struct { 126 char *name; 127 int value; 128 } decc_feat_t; 129 130 /* Array of DECC$* feature names and their desired values. */ 131 static decc_feat_t decc_feat_array[] = { 132 /* Preserve command-line case with SET PROCESS/PARSE_STYLE=EXTENDED */ 133 { "DECC$ARGV_PARSE_STYLE", 1 }, 134 /* Preserve case for file names on ODS5 disks. */ 135 { "DECC$EFS_CASE_PRESERVE", 1 }, 136 /* Enable multiple dots (and most characters) in ODS5 file names, 137 while preserving VMS-ness of ";version". */ 138 { "DECC$EFS_CHARSET", 1 }, 139 /* List terminator. */ 140 { (char *)NULL, 0 } 141 }; 142 143 /* Flag to sense if decc_init() was called. */ 144 static int decc_init_done = -1; 145 146 /* LIB$INITIALIZE initialization function. */ 147 static void decc_init(void) 148 { 149 int feat_index; 150 int feat_value; 151 int feat_value_max; 152 int feat_value_min; 153 int i; 154 int sts; 155 156 /* Set the global flag to indicate that LIB$INITIALIZE worked. */ 157 decc_init_done = 1; 158 159 /* Loop through all items in the decc_feat_array[]. */ 160 for(i = 0; decc_feat_array[i].name != NULL; i++) { 161 162 /* Get the feature index. */ 163 feat_index = decc$feature_get_index(decc_feat_array[i].name); 164 165 if(feat_index >= 0) { 166 /* Valid item. Collect its properties. */ 167 feat_value = decc$feature_get_value(feat_index, 1); 168 feat_value_min = decc$feature_get_value(feat_index, 2); 169 feat_value_max = decc$feature_get_value(feat_index, 3); 170 171 if((decc_feat_array[i].value >= feat_value_min) && 172 (decc_feat_array[i].value <= feat_value_max)) { 173 /* Valid value. Set it if necessary. */ 174 if(feat_value != decc_feat_array[i].value) { 175 sts = decc$feature_set_value(feat_index, 1, 176 decc_feat_array[i].value); 177 } 178 } 179 else { 180 /* Invalid DECC feature value. */ 181 printf(" INVALID DECC FEATURE VALUE, %d: %d <= %s <= %d.\n", 182 feat_value, 183 feat_value_min, decc_feat_array[i].name, feat_value_max); 184 } 185 } 186 else { 187 /* Invalid DECC feature name. */ 188 printf(" UNKNOWN DECC FEATURE: %s.\n", decc_feat_array[i].name); 189 } 190 191 } 192 } 193 194 /* Get "decc_init()" into a valid, loaded LIB$INITIALIZE PSECT. */ 195 196 #pragma nostandard 197 198 /* Establish the LIB$INITIALIZE PSECTs, with proper alignment and 199 other attributes. Note that "nopic" is significant only on VAX. */ 200 #pragma extern_model save 201 #pragma extern_model strict_refdef "LIB$INITIALIZ" 2, nopic, nowrt 202 const int spare[8] = {0}; 203 #pragma extern_model strict_refdef "LIB$INITIALIZE" 2, nopic, nowrt 204 void (*const x_decc_init)() = decc_init; 205 #pragma extern_model restore 206 207 /* Fake reference to ensure loading the LIB$INITIALIZE PSECT. */ 208 #pragma extern_model save 209 int LIB$INITIALIZE(void); 210 #pragma extern_model strict_refdef 211 int dmy_lib$initialize = (int) LIB$INITIALIZE; 212 #pragma extern_model restore 213 214 #pragma standard 215 216 #endif /* __DECC && !__VAX && __CRTL_VER && __CRTL_VER >= 70301000 */ 217 218 #endif /* __VMS */ 219 220
