packages/vms/curl_crtl_init.c

   1 /* File: curl_crtl_init.c
   2  *
   3  * This file makes sure that the DECC Unix settings are correct for
   4  * the mode the the program is run in.
   5  *
   6  * The CRTL has not been initialized at the time that these routines
   7  * are called, so many routines can not be called.
   8  *
   9  * This is a module that provides a LIB$INITIALIZE routine that
  10  * will turn on some CRTL features that are not enabled by default.
  11  *
  12  * The CRTL features can also be turned on via logical names, but that
  13  * impacts all programs and some aren't ready, willing, or able to handle
  14  * those settings.
  15  *
  16  * On VMS versions that are too old to use the feature setting API, this
  17  * module falls back to using logical names.
  18  *
  19  * Copyright 2013, John Malmberg
  20  *
  21  * Permission to use, copy, modify, and/or distribute this software for any
  22  * purpose with or without fee is hereby granted, provided that the above
  23  * copyright notice and this permission notice appear in all copies.
  24  *
  25  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  26  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  27  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  28  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  29  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  30  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
  31  * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  32  *
  33  */
  34
  35 /* Unix headers */
  36 #include <stdio.h>
  37 #include <string.h>
  38
  39 /* VMS specific headers */
  40 #include <descrip.h>
  41 #include <lnmdef.h>
  42 #include <stsdef.h>
  43
  44 #pragma member_alignment save
  45 #pragma nomember_alignment longword
  46 #pragma message save
  47 #pragma message disable misalgndmem
  48 struct itmlst_3 {
  49   unsigned short int buflen;
  50   unsigned short int itmcode;
  51   void *bufadr;
  52   unsigned short int *retlen;
  53 };
  54 #pragma message restore
  55 #pragma member_alignment restore
  56
  57 #ifdef __VAX
  58 #define ENABLE "ENABLE"
  59 #define DISABLE "DISABLE"
  60 #else
  61
  62 #define ENABLE TRUE
  63 #define DISABLE 0
  64 int   decc$feature_get_index (const char *name);
  65 int   decc$feature_set_value (int index, int mode, int value);
  66 #endif
  67
  68 int   SYS$TRNLNM(
  69     const unsigned long * attr,
  70     const struct dsc$descriptor_s * table_dsc,
  71     struct dsc$descriptor_s * name_dsc,
  72     const unsigned char * acmode,
  73     const struct itmlst_3 * item_list);
  74 int   SYS$CRELNM(
  75     const unsigned long * attr,
  76     const struct dsc$descriptor_s * table_dsc,
  77     const struct dsc$descriptor_s * name_dsc,
  78     const unsigned char * acmode,
  79     const struct itmlst_3 * item_list);
  80
  81
  82 /* Take all the fun out of simply looking up a logical name */
  83 static int sys_trnlnm
  84    (const char * logname,
  85     char * value,
  86     int value_len)
  87 {
  88     const $DESCRIPTOR(table_dsc, "LNM$FILE_DEV");
  89     const unsigned long attr = LNM$M_CASE_BLIND;
  90     struct dsc$descriptor_s name_dsc;
  91     int status;
  92     unsigned short result;
  93     struct itmlst_3 itlst[2];
  94
  95     itlst[0].buflen = value_len;
  96     itlst[0].itmcode = LNM$_STRING;
  97     itlst[0].bufadr = value;
  98     itlst[0].retlen = &result;
  99
 100     itlst[1].buflen = 0;
 101     itlst[1].itmcode = 0;
 102
 103     name_dsc.dsc$w_length = strlen(logname);
 104     name_dsc.dsc$a_pointer = (char *)logname;
 105     name_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
 106     name_dsc.dsc$b_class = DSC$K_CLASS_S;
 107
 108     status = SYS$TRNLNM(&attr, &table_dsc, &name_dsc, 0, itlst);
 109
 110     if ($VMS_STATUS_SUCCESS(status)) {
 111
 112          /* Null terminate and return the string */
 113         /*--------------------------------------*/
 114         value[result] = '\0';
 115     }
 116
 117     return status;
 118 }
 119
 120 /* How to simply create a logical name */
 121 static int sys_crelnm
 122    (const char * logname,
 123     const char * value)
 124 {
 125     int ret_val;
 126     const char * proc_table = "LNM$PROCESS_TABLE";
 127     struct dsc$descriptor_s proc_table_dsc;
 128     struct dsc$descriptor_s logname_dsc;
 129     struct itmlst_3 item_list[2];
 130
 131     proc_table_dsc.dsc$a_pointer = (char *) proc_table;
 132     proc_table_dsc.dsc$w_length = strlen(proc_table);
 133     proc_table_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
 134     proc_table_dsc.dsc$b_class = DSC$K_CLASS_S;
 135
 136     logname_dsc.dsc$a_pointer = (char *) logname;
 137     logname_dsc.dsc$w_length = strlen(logname);
 138     logname_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
 139     logname_dsc.dsc$b_class = DSC$K_CLASS_S;
 140
 141     item_list[0].buflen = strlen(value);
 142     item_list[0].itmcode = LNM$_STRING;
 143     item_list[0].bufadr = (char *)value;
 144     item_list[0].retlen = NULL;
 145
 146     item_list[1].buflen = 0;
 147     item_list[1].itmcode = 0;
 148
 149     ret_val = SYS$CRELNM(NULL, &proc_table_dsc, &logname_dsc, NULL, item_list);
 150
 151     return ret_val;
 152 }
 153
 154
 155  /* Start of DECC RTL Feature handling */
 156
 157 /*
 158 ** Sets default value for a feature
 159 */
 160 #ifdef __VAX
 161 static void set_feature_default(const char *name, const char *value)
 162 {
 163     sys_crelnm(name, value);
 164 }
 165 #else
 166 static void set_feature_default(const char *name, int value)
 167 {
 168     int index;
 169
 170     index = decc$feature_get_index(name);
 171
 172     if (index > 0)
 173         decc$feature_set_value (index, 0, value);
 174 }
 175 #endif
 176
 177 static void set_features(void)
 178 {
 179     int status;
 180     char unix_shell_name[255];
 181     int use_unix_settings = 1;
 182
 183     status = sys_trnlnm("GNV$UNIX_SHELL",
 184                         unix_shell_name, sizeof unix_shell_name -1);
 185     if (!$VMS_STATUS_SUCCESS(status)) {
 186         unix_shell_name[0] = 0;
 187         use_unix_settings = 0;
 188     }
 189
 190     /* ACCESS should check ACLs or it is lying. */
 191     set_feature_default("DECC$ACL_ACCESS_CHECK", ENABLE);
 192
 193     /* We always want the new parse style */
 194     set_feature_default ("DECC$ARGV_PARSE_STYLE" , ENABLE);
 195
 196
 197     /* Unless we are in POSIX compliant mode, we want the old POSIX root
 198      * enabled.
 199      */
 200     set_feature_default("DECC$DISABLE_POSIX_ROOT", DISABLE);
 201
 202     /* EFS charset, means UTF-8 support */
 203     /* VTF-7 support is controlled by a feature setting called UTF8 */
 204     set_feature_default ("DECC$EFS_CHARSET", ENABLE);
 205     set_feature_default ("DECC$EFS_CASE_PRESERVE", ENABLE);
 206
 207     /* Support timestamps when available */
 208     set_feature_default ("DECC$EFS_FILE_TIMESTAMPS", ENABLE);
 209
 210     /* Cache environment variables - performance improvements */
 211     set_feature_default ("DECC$ENABLE_GETENV_CACHE", ENABLE);
 212
 213     /* Start out with new file attribute inheritance */
 214 #ifdef __VAX
 215     set_feature_default ("DECC$EXEC_FILEATTR_INHERITANCE", "2");
 216 #else
 217     set_feature_default ("DECC$EXEC_FILEATTR_INHERITANCE", 2);
 218 #endif
 219
 220     /* Don't display trailing dot after files without type */
 221     set_feature_default ("DECC$READDIR_DROPDOTNOTYPE", ENABLE);
 222
 223     /* For standard output channels buffer output until terminator */
 224     /* Gets rid of output logs with single character lines in them. */
 225     set_feature_default ("DECC$STDIO_CTX_EOL", ENABLE);
 226
 227     /* Fix mv aa.bb aa  */
 228     set_feature_default ("DECC$RENAME_NO_INHERIT", ENABLE);
 229
 230     if (use_unix_settings) {
 231
 232         /* POSIX requires that open files be able to be removed */
 233         set_feature_default ("DECC$ALLOW_REMOVE_OPEN_FILES", ENABLE);
 234
 235         /* Default to outputting UNIX filesnames in VMS routines */
 236         set_feature_default ("DECC$FILENAME_UNIX_ONLY", ENABLE);
 237         /* FILENAME_UNIX_ONLY Implicitly sets */
 238         /* decc$disable_to_vms_logname_translation */
 239
 240         set_feature_default ("DECC$FILE_PERMISSION_UNIX", ENABLE);
 241
 242         set_feature_default ("DECC$FILE_SHARING", ENABLE);
 243
 244         set_feature_default ("DECC$FILE_OWNER_UNIX", ENABLE);
 245         set_feature_default ("DECC$POSIX_SEEK_STREAM_FILE", ENABLE);
 246
 247     } else {
 248         set_feature_default("DECC$FILENAME_UNIX_REPORT", ENABLE);
 249     }
 250
 251     /* When reporting UNIX filenames, glob the same way */
 252     set_feature_default ("DECC$GLOB_UNIX_STYLE", ENABLE);
 253
 254     /* The VMS version numbers on Unix filenames is incompatible with most */
 255     /* ported packages. */
 256     set_feature_default("DECC$FILENAME_UNIX_NO_VERSION", ENABLE);
 257
 258     /* The VMS version numbers on Unix filenames is incompatible with most */
 259     /* ported packages. */
 260     set_feature_default("DECC$UNIX_PATH_BEFORE_LOGNAME", ENABLE);
 261
 262     /* Set strtol to proper behavior */
 263     set_feature_default("DECC$STRTOL_ERANGE", ENABLE);
 264
 265     /* Commented here to prevent future bugs:  A program or user should */
 266     /* never ever enable DECC$POSIX_STYLE_UID. */
 267     /* It will probably break all code that accesses UIDs */
 268     /*  do_not_set_default ("DECC$POSIX_STYLE_UID", TRUE); */
 269 }
 270
 271
 272 /* Some boilerplate to force this to be a proper LIB$INITIALIZE section */
 273
 274 #pragma nostandard
 275 #pragma extern_model save
 276 #ifdef __VAX
 277 #pragma extern_model strict_refdef "LIB$INITIALIZE" nowrt, long, nopic
 278 #else
 279 #pragma extern_model strict_refdef "LIB$INITIALIZE" nowrt, long
 280 #    if __INITIAL_POINTER_SIZE
 281 #        pragma __pointer_size __save
 282 #        pragma __pointer_size 32
 283 #    else
 284 #        pragma __required_pointer_size __save
 285 #        pragma __required_pointer_size 32
 286 #    endif
 287 #endif
 288 /* Set our contribution to the LIB$INITIALIZE array */
 289 void (* const iniarray[])(void) = {set_features, } ;
 290 #ifndef __VAX
 291 #    if __INITIAL_POINTER_SIZE
 292 #        pragma __pointer_size __restore
 293 #    else
 294 #        pragma __required_pointer_size __restore
 295 #    endif
 296 #endif
 297
 298
 299 /*
 300 ** Force a reference to LIB$INITIALIZE to ensure it
 301 ** exists in the image.
 302 */
 303 int LIB$INITIALIZE(void);
 304 #ifdef __DECC
 305 #pragma extern_model strict_refdef
 306 #endif
 307     int lib_init_ref = (int) LIB$INITIALIZE;
 308 #ifdef __DECC
 309 #pragma extern_model restore
 310 #pragma standard
 311 #endif