Annotation of embedaddon/curl/src/tool_vms.c, revision 1.1
1.1 ! misho 1: /***************************************************************************
! 2: * _ _ ____ _
! 3: * Project ___| | | | _ \| |
! 4: * / __| | | | |_) | |
! 5: * | (__| |_| | _ <| |___
! 6: * \___|\___/|_| \_\_____|
! 7: *
! 8: * Copyright (C) 1998 - 2019, Daniel Stenberg, <daniel@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 */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to tool_vms.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / curl / src