--- /dev/null
+/*
+ * VMS supplement for "wget".
+ *
+ *======================================================================
+ *
+ * vms_init()
+ *
+ * On non-VAX systems, uses LIB$INITIALIZE to set a collection of C
+ * RTL features without using the DECC$* logical name method.
+ *
+ *----------------------------------------------------------------------
+ *
+ * vms_arch()
+ *
+ * Returns (run-time) VMS architecture string.
+ *
+ *----------------------------------------------------------------------
+ *
+ * vms_ver()
+ *
+ * Returns (run-time) VMS version string.
+ *
+ *----------------------------------------------------------------------
+ *
+ * set_ods5_dest()
+ *
+ * Sets a global flag ("ods5_dest") according to the file system type
+ * of the destination device.
+ *
+ *----------------------------------------------------------------------
+ *
+ * ods_conform()
+ *
+ * Simplifies a fancy URL-derived file name into an ODS2- or
+ * ODS5-compatible file name.
+ *
+ *----------------------------------------------------------------------
+ *
+ * utime()
+ *
+ * VMS C RTL before V7.3 lacks utime(). In V7.3, utime() sets only
+ * the modified (revised) date, not the created date of a file.
+ *
+ * UNIX "ls -l" reports the modified time. VMS "DIRECTORY /DATE"
+ * reports the creation time. Reconciling these in FTP DIR reports
+ * is non-trivial.
+ *
+ * UNIX utime() sets revision and access times. VMS does not always
+ * maintain access times, so this utime() replacement sets the
+ * creation and revision times to the specified revision (or
+ * creation?) time. Any access time is ignored.
+ *
+ *----------------------------------------------------------------------
+ *
+ * getpwuid()
+ *
+ * VMS C RTL before V7.0 lacks getpwuid().
+ *
+ *----------------------------------------------------------------------
+ *
+ */
+
+#include "vms.h"
+
+#include <ctype.h>
+#include <errno.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <time.h>
+#include <unixlib.h>
+
+#include <atrdef.h>
+#include <descrip.h>
+#include <dvidef.h>
+#include <fibdef.h>
+#include <iodef.h>
+#include <rms.h>
+#include <stsdef.h>
+#include <syidef.h>
+#include <lib$routines.h>
+#include <starlet.h>
+
+/* Use <iosbdef.h> if available. Otherwise declare IOSB here. */
+
+#if !defined( __VAX) && (__CRTL_VER >= 70000000)
+#include <iosbdef.h>
+#else /* __CRTL_VER >= 70000000 */
+typedef struct _iosb {
+ unsigned short int iosb$w_status; /* Final I/O status */
+ unsigned short int iosb$w_bcnt; /* 16-bit byte count */
+ unsigned int iosb$l_dev_depend; /* 32-bit dev dependent */
+ } IOSB;
+#endif /* !defined( __VAX) && (__CRTL_VER >= 70000000) */
+
+/* Ugly work-around for bad type in VAX <atrdef.h>. */
+
+#ifdef __VAX
+#define UWA (unsigned int)
+#else /* def __VAX */
+#define UWA
+#endif /* def __VAX */
+
+#include "config.h"
+#include "wget.h"
+#include "utils.h"
+
+/*--------------------------------------------------------------------*/
+
+/* Global storage. */
+
+/* Flag for an ODS5 destination directory. */
+
+int ods5_dest = -1;
+
+/* Flag to sense if vms_init() was called. */
+
+int vms_init_done = -1;
+
+/*--------------------------------------------------------------------*/
+
+#if !defined( __VAX) && (__CRTL_VER >= 70301000)
+
+/* vms_init()
+
+ Uses LIB$INITIALIZE to set a collection of C RTL features without
+ requiring the user to define the corresponding logical names.
+*/
+
+/* Structure to hold a DECC$* feature name and its desired value. */
+
+typedef struct
+ {
+ char *name;
+ int value;
+ } decc_feat_t;
+
+/* Array of DECC$* feature names and their desired values. */
+
+decc_feat_t decc_feat_array[] = {
+ /* Preserve command-line case with SET PROCESS/PARSE_STYLE=EXTENDED */
+ { "DECC$ARGV_PARSE_STYLE", 1 },
+ /* Preserve case for file names on ODS5 disks. */
+ { "DECC$EFS_CASE_PRESERVE", 1 },
+ /* Enable multiple dots (and most characters) in ODS5 file names,
+ while preserving VMS-ness of ";version". */
+ { "DECC$EFS_CHARSET", 1 },
+ /* List terminator. */
+ { (char *)NULL, 0 } };
+
+/* LIB$INITIALIZE initialization function. */
+
+static void vms_init( void)
+{
+int feat_index;
+int feat_value;
+int feat_value_max;
+int feat_value_min;
+int i;
+int sts;
+
+/* Set the global flag to indicate that LIB$INITIALIZE worked. */
+
+vms_init_done = 1;
+
+/* Loop through all items in the decc_feat_array[]. */
+
+for (i = 0; decc_feat_array[ i].name != NULL; i++)
+ {
+ /* Get the feature index. */
+ feat_index = decc$feature_get_index( decc_feat_array[ i].name);
+ if (feat_index >= 0)
+ {
+ /* Valid item. Collect its properties. */
+ feat_value = decc$feature_get_value( feat_index, 1);
+ feat_value_min = decc$feature_get_value( feat_index, 2);
+ feat_value_max = decc$feature_get_value( feat_index, 3);
+
+ if ((decc_feat_array[ i].value >= feat_value_min) &&
+ (decc_feat_array[ i].value <= feat_value_max))
+ {
+ /* Valid value. Set it if necessary. */
+ if (feat_value != decc_feat_array[ i].value)
+ {
+ sts = decc$feature_set_value( feat_index,
+ 1,
+ decc_feat_array[ i].value);
+ }
+ }
+ else
+ {
+ /* Invalid DECC feature value. */
+ printf( " INVALID DECC FEATURE VALUE, %d: %d <= %s <= %d.\n",
+ feat_value,
+ feat_value_min, decc_feat_array[ i].name, feat_value_max);
+ }
+ }
+ else
+ {
+ /* Invalid DECC feature name. */
+ printf( " UNKNOWN DECC FEATURE: %s.\n", decc_feat_array[ i].name);
+ }
+ }
+}
+
+/* Get "vms_init()" into a valid, loaded LIB$INITIALIZE PSECT. */
+
+#pragma nostandard
+
+/* Establish the LIB$INITIALIZE PSECTs, with proper alignment and
+ other attributes. Note that "nopic" is significant only on VAX.
+*/
+#pragma extern_model save
+
+#pragma extern_model strict_refdef "LIB$INITIALIZE" 2, nopic, nowrt
+void (*const x_vms_init)() = vms_init;
+
+#pragma extern_model strict_refdef "LIB$INITIALIZ" 2, nopic, nowrt
+const int spare[ 8] = { 0 };
+
+#pragma extern_model restore
+
+/* Fake reference to ensure loading the LIB$INITIALIZE PSECT. */
+
+#pragma extern_model save
+int lib$initialize(void);
+#pragma extern_model strict_refdef
+int dmy_lib$initialize = (int) lib$initialize;
+#pragma extern_model restore
+
+#pragma standard
+
+#endif /* !defined( __VAX) && (__CRTL_VER >= 70301000) */
+
+/*--------------------------------------------------------------------*/
+
+/* vms_arch()
+
+ Returns (run-time) VMS architecture string.
+*/
+
+char *vms_arch( void)
+{
+#define ARCH_SIZE 15
+
+static int sts = 0;
+static char arch[ ARCH_SIZE+ 1] = "VAX"; /* Only VAX could fail. */
+unsigned short arch_len;
+
+struct dsc$descriptor_s arch_descr =
+ { ARCH_SIZE, DSC$K_DTYPE_T, DSC$K_CLASS_S, arch };
+
+if (sts == 0)
+ {
+ sts = lib$getsyi( &SYI$_ARCH_NAME, 0, &arch_descr, &arch_len, 0, 0);
+ if ((sts& STS$M_SEVERITY) == STS$K_SUCCESS)
+ {
+ arch[ arch_len] = '\0';
+
+ /* Trim trailing spaces. */
+ while ((arch_len > 0) && (arch[ arch_len- 1] == ' '))
+ {
+ arch[ --arch_len] = '\0';
+ }
+ }
+ }
+return arch;
+}
+
+/*--------------------------------------------------------------------*/
+
+/* vms_vers()
+
+ Returns (run-time) VMS version string.
+*/
+
+char *vms_vers( void)
+{
+#define VERS_SIZE 8
+
+static int sts = 0;
+static char vers[ VERS_SIZE+ 1] = "";
+unsigned short vers_len;
+
+struct dsc$descriptor_s vers_descr =
+ { VERS_SIZE, DSC$K_DTYPE_T, DSC$K_CLASS_S, vers };
+
+if (sts == 0)
+ {
+ sts = lib$getsyi( &SYI$_VERSION, 0, &vers_descr, &vers_len, 0, 0);
+ if ((sts& STS$M_SEVERITY) == STS$K_SUCCESS)
+ {
+ vers[ vers_len] = '\0';
+
+ /* Trim trailing spaces. */
+ while ((vers_len > 0) && (vers[ vers_len- 1] == ' '))
+ {
+ vers[ --vers_len] = '\0';
+ }
+ }
+ }
+return vers;
+}
+
+/*--------------------------------------------------------------------*/
+
+/* set_ods5_dest()
+
+ Sets global "ods5_dest" according to the file system type of the
+ argument: 0 for ODS2, 1 for ODS5. (No change if other/unknown or
+ failure.)
+
+ Return value: Status from sys$getdvi().
+*/
+
+int set_ods5_dest( char *path)
+{
+#ifdef DVI$C_ACP_F11V5
+
+/* Should know about ODS5 file system. Do actual check.
+ (This should be non-VAX with __CRTL_VER >= 70200000.)
+*/
+
+struct dsc$descriptor_s dev_descr =
+ { 0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0 };
+
+int acp_code;
+int sts;
+
+/* Load path argument into device descriptor.
+ Default to current default device.
+*/
+if (path == NULL)
+ {
+ dev_descr.dsc$a_pointer = "SYS$DISK";
+ }
+else
+ {
+ dev_descr.dsc$a_pointer = path;
+ }
+dev_descr.dsc$w_length = strlen( dev_descr.dsc$a_pointer);
+
+/* Get filesystem type code.
+ (Text results for this item code have been unreliable.)
+*/
+sts = lib$getdvi( &((int) DVI$_ACPTYPE),
+ 0,
+ &dev_descr,
+ &acp_code,
+ 0,
+ 0);
+
+if ((sts& STS$M_SEVERITY) == STS$K_SUCCESS)
+ {
+ if (acp_code == DVI$C_ACP_F11V2)
+ {
+ ods5_dest = 0;
+ }
+ else if (acp_code == DVI$C_ACP_F11V5)
+ {
+ ods5_dest = 1;
+ }
+ }
+
+return sts;
+
+#else /* def DVI$C_ACP_F11V5 */
+
+/* Too old for ODS5 file system. Do nothing. */
+
+return STS$K_SUCCESS;
+
+#endif /* def DVI$C_ACP_F11V5 */
+}
+
+/*--------------------------------------------------------------------*/
+
+/* ods2_conform()
+
+ Replace ODS2-troublesome characters in the argument, overwriting the
+ original string. Replace "~" with "-", "@" with "$", and invalid
+ dots and other characters with "_". (Invalid dots are any in a
+ directory name, and all but the last in a file name.)
+
+ Return value: path. (Someday this function could be written to leave
+ the original string unchanged, and to return a freshly allocated
+ string, possibly of a dfferent length.)
+
+ 2005-02-23 SMS.
+ Changed to use char_prop[] look-up table, and to convert more invalid
+ characters to "_".
+*/
+
+static
+char *ods2_conform( char *path)
+{
+char *p;
+char *prd;
+char *prs;
+char *prv;
+unsigned char uchr;
+unsigned char prop;
+
+/* Locate the last slash. */
+prs = rindex( path, '/');
+if (prs == NULL)
+ {
+ prs = path;
+ }
+
+/* Locate the last dot after the last slash. */
+prd = rindex( prs, '.');
+if (prd == NULL)
+ {
+ prd = prs;
+ }
+
+/* Locate the version (after the last slash and dot). */
+for (prv = prs+ strlen( prs) ; (--prv > prs) && isdigit( *prv); );
+if ((*prv != ';') || (*(prv- 1) == '^'))
+ {
+ prv = prs+ strlen( prs);
+ }
+
+for (p = path ; p < prv; p++)
+ {
+ prop = char_prop[ uchr = *p];
+ if ((prop& 4))
+ { /* Dot. */
+ if (p < prd)
+ { /* Before last dot in name. */
+ *p = '_'; /* Convert to "_". */
+ }
+ }
+ else if ((prop& (32+ 16)) == 0)
+ { /* ODS2-invalid. */
+ if (uchr == '~')
+ {
+ *p = '-'; /* Convert to "-". */
+ }
+ else if (uchr == '@')
+ {
+ *p = '$'; /* Convert to "$". */
+ }
+ else if (uchr != '/') /* Leave "/" as-is. */
+ {
+ *p = '_'; /* Convert to "_". */
+ }
+ }
+ }
+return path;
+}
+
+/*--------------------------------------------------------------------*/
+
+/* ods_conform()
+
+ Replace troublesome characters for the destination file system (ODS2
+ or ODS5) with more legal characters.
+
+ For ODS5, this is simply "?" -> "!" and "*" -> "#".
+
+ For ODS2, see ods2_conform().
+
+ Return value: path. (Someday this function could be written to leave
+ the original string unchanged, and to return a freshly allocated
+ string, possibly of a dfferent length.)
+*/
+
+char *ods_conform( char *path)
+{
+char *p;
+
+/* Replacements for invalid (printing) ODS5 characters. */
+#define ODS5_QUESTION '!'
+#define ODS5_ASTERISK '#'
+
+if (ods5_dest <= 0)
+ {
+ /* Return ODS2-conformant file name. */
+ return ods2_conform( path);
+ }
+else
+ {
+ /* Return ODS5-conformant file name. ("?" -> "!", "*" -> "#".) */
+ for (p = path; *p != '\0'; p++)
+ {
+ if (*p == '?')
+ {
+ *p = ODS5_QUESTION;
+ }
+ else if (*p == '*')
+ {
+ *p = ODS5_ASTERISK;
+ }
+ }
+ return path;
+ }
+}
+
+/*--------------------------------------------------------------------*/
+
+/* Wget-private utime() code. */
+
+/* Use long name (NAML) structure only where available.
+ (This should be non-VAX with __CRTL_VER >= 70200000.)
+*/
+
+#ifdef NAML$C_BID
+
+/* Use long name (NAML) structure. */
+
+#define FAB$L_NAMX fab$l_naml
+#define NAMX NAML
+#define NAMX$C_MAXRSS NAML$C_MAXRSS
+#define NAMX$B_DEV naml$l_long_dev_size
+#define NAMX$L_DEV naml$l_long_dev
+#define NAMX$L_ESA naml$l_long_expand
+#define NAMX$B_ESL naml$l_long_expand_size
+#define NAMX$B_ESS naml$l_long_expand_alloc
+#define NAMX$W_FID naml$w_fid
+#define NAMX$L_RSA naml$l_long_result
+#define NAMX$B_RSL naml$l_long_result_size
+#define NAMX$B_RSS naml$l_long_result_alloc
+#define CC$RMS_NAMX cc$rms_naml
+
+#else /* def NAML$C_BID */
+
+/* Use short name (NAM) structure. */
+
+#define FAB$L_NAMX fab$l_nam
+#define NAMX NAM
+#define NAMX$C_MAXRSS NAM$C_MAXRSS
+#define NAMX$B_DEV nam$b_dev
+#define NAMX$L_DEV nam$l_dev
+#define NAMX$L_ESA nam$l_esa
+#define NAMX$B_ESL nam$b_esl
+#define NAMX$B_ESS nam$b_ess
+#define NAMX$W_FID nam$w_fid
+#define NAMX$L_RSA nam$l_rsa
+#define NAMX$B_RSL nam$b_rsl
+#define NAMX$B_RSS nam$b_rss
+#define CC$RMS_NAMX cc$rms_nam
+
+#endif /* def NAML$C_BID */
+
+/*--------------------------------------------------------------------*/
+
+/* Wget-private utime() code. */
+
+/* Action routine for decc$to_vms(), in utime(). */
+
+char vms_path[ NAMX$C_MAXRSS+ 1];
+
+int set_vms_name( char *name, int type)
+{
+ strncpy( vms_path, name, NAMX$C_MAXRSS);
+ vms_path[ NAMX$C_MAXRSS] = '\0';
+ return 1;
+}
+
+/*--------------------------------------------------------------------*/
+
+/* utime() replacement. */
+
+int utime( const char *path, const struct utimbuf *times)
+{
+time_t utc_unsigned;
+
+int chan, i;
+int sts, sts2;
+
+unsigned short int vms_num_vec_time[ 7];
+static unsigned int vms_abs_time[ 2];
+struct tm *tms;
+struct _iosb iosb_q;
+
+/* QIOW item list used to set creation and revision dates. */
+
+struct atrdef ut_atr[ 3] = {
+ {sizeof( vms_abs_time), ATR$C_CREDATE, UWA vms_abs_time},
+ {sizeof( vms_abs_time), ATR$C_REVDATE, UWA vms_abs_time},
+ {0,0,0}};
+
+/* Various RMS structures used for file access. */
+
+struct FAB ut_fab = cc$rms_fab;
+struct RAB ut_rab = cc$rms_rab;
+struct NAMX ut_namx = CC$RMS_NAMX;
+static struct fibdef ut_fib;
+
+/* Device and file name buffers and their descriptors. */
+
+static char dev_namx[ NAMX$C_MAXRSS+ 1];
+char esa_namx[ NAMX$C_MAXRSS+ 1];
+char rsa_namx[ NAMX$C_MAXRSS+ 1];
+
+struct dsc$descriptor dev_dsc =
+ {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, dev_namx};
+
+struct dsc$descriptor fib_dsc =
+ {sizeof( ut_fib), DSC$K_DTYPE_T, DSC$K_CLASS_S, (char *) &ut_fib};
+
+/* "wget" provides a UNIX-like path name. With "-O", a user may provide
+ a VMS-like path name. If a slash is found in the name, assume that
+ it's UNIX-like, and convert it to VMS form. Otherwise, use it as-is.
+*/
+
+if (strchr( path, '/') != NULL)
+ {
+ sts = decc$to_vms( path, set_vms_name, 0, 0);
+ path = vms_path;
+ }
+
+/* Install the VMS file specification into the FAB. */
+
+ut_fab.fab$l_fna = (char *) path;
+ut_fab.fab$b_fns = (unsigned char) strlen( path);
+
+ut_fab.fab$l_dna = "";
+ut_fab.fab$b_dns = 0;
+
+/* Point the FAB to the NAMX. */
+
+ut_fab.FAB$L_NAMX = &ut_namx;
+
+/* Install the name buffers into the NAM. */
+
+ut_namx.NAMX$L_ESA = esa_namx;
+ut_namx.NAMX$B_ESL = 0;
+ut_namx.NAMX$B_ESS = sizeof( esa_namx)- 1;
+
+ut_namx.NAMX$L_RSA = rsa_namx;
+ut_namx.NAMX$B_RSL = 0;
+ut_namx.NAMX$B_RSS = sizeof( rsa_namx)- 1;
+
+/* Convert the modification time (UTC time_t) to local "tm" time. */
+
+tms = localtime( &(times-> modtime));
+
+/* Move (translate) "tm" structure local time to VMS vector time. */
+
+if (tms != NULL)
+ {
+ vms_num_vec_time[ 0] = tms-> tm_year+ 1900;
+ vms_num_vec_time[ 1] = tms-> tm_mon+ 1;
+ vms_num_vec_time[ 2] = tms-> tm_mday;
+ vms_num_vec_time[ 3] = tms-> tm_hour;
+ vms_num_vec_time[ 4] = tms-> tm_min;
+ vms_num_vec_time[ 5] = tms-> tm_sec;
+ vms_num_vec_time[ 6] = 0; /* centiseconds */
+
+/* Convert VMS vector time to VMS absolute time (quadword). */
+
+ sts = lib$cvt_vectim( vms_num_vec_time, vms_abs_time);
+
+ if ((sts& STS$M_SEVERITY) == STS$K_SUCCESS)
+ {
+/* Parse the file specification. */
+
+ sts = sys$parse( &ut_fab, 0, 0);
+
+ if ((sts& STS$M_SEVERITY) == STS$K_SUCCESS)
+ {
+/* Locate the file. (Gets the FID.) */
+
+ sts = sys$search( &ut_fab, 0, 0);
+
+ if ((sts& STS$M_SEVERITY) == STS$K_SUCCESS)
+ {
+/* Form the device name descriptor. */
+
+ dev_dsc.dsc$w_length = ut_namx.NAMX$B_DEV;
+ dev_dsc.dsc$a_pointer = (char *) ut_namx.NAMX$L_DEV;
+
+/* Assign a channel to the disk device. */
+
+ sts = sys$assign( &dev_dsc, &chan, 0, 0);
+
+ if ((sts& STS$M_SEVERITY) == STS$K_SUCCESS)
+ {
+/* Move the FID (and not the DID) into the FIB. */
+
+ memset( (void *) &ut_fib, 0, sizeof( ut_fib));
+
+ for (i = 0; i < 3; i++)
+ {
+ ut_fib.fib$w_fid[ i] = ut_namx.NAMX$W_FID[ i];
+ ut_fib.fib$w_did[ i] = 0;
+ }
+
+/* Prevent this QIOW from setting the revision time to now. */
+
+ ut_fib.fib$l_acctl = FIB$M_NORECORD;
+
+/* Set the file dates. */
+
+ sts = sys$qiow( 0,
+ chan,
+ IO$_MODIFY,
+ &iosb_q,
+ 0,
+ 0,
+ &fib_dsc,
+ 0,
+ 0,
+ 0,
+ ut_atr,
+ 0);
+
+ if ((sts& STS$M_SEVERITY) == STS$K_SUCCESS)
+ {
+ sts = iosb_q.iosb$w_status;
+ }
+ sts2 = sys$dassgn( chan);
+
+ if ((sts& STS$M_SEVERITY) == STS$K_SUCCESS)
+ {
+ sts = sts2;
+ }
+ }
+ }
+ }
+ }
+ }
+
+/* Convert successful VMS status to zero = success status.
+ If failure, set errno and vaxc$errno, and return -1 = failure status.
+*/
+
+if ((sts& STS$M_SEVERITY) == STS$K_SUCCESS)
+ {
+ sts = 0;
+ }
+else
+ {
+ errno = EVMSERR;
+ vaxc$errno = sts;
+ sts = -1;
+ }
+
+return sts;
+}
+
+/*--------------------------------------------------------------------*/
+
+/* 2005-04-14 SMS.
+ *
+ * vms_init_diag().
+ *
+ * Get Wget debug option value.
+ */
+
+int vms_init_diag( void)
+{
+#ifdef ENABLE_DEBUG
+return (opt.debug > 0);
+#else /* def ENABLE_DEBUG */
+return 0;
+#endif /* def ENABLE_DEBUG */
+}
+
+/*--------------------------------------------------------------------*/
+
+/* 2004-11-23 SMS.
+ *
+ * get_rms_defaults().
+ *
+ * Get user-specified values from (DCL) SET RMS_DEFAULT. FAB/RAB
+ * items of particular interest are:
+ *
+ * fab$w_deq default extension quantity (blocks) (write).
+ * rab$b_mbc multi-block count.
+ * rab$b_mbf multi-buffer count (used with rah and wbh).
+ */
+
+/* Default RMS parameter values. */
+
+#define RMS_DEQ_DEFAULT 16384 /* About 1/4 the max (65535 blocks). */
+#define RMS_MBC_DEFAULT 127 /* The max, */
+#define RMS_MBF_DEFAULT 2 /* Enough to enable rah and wbh. */
+
+/* GETJPI item descriptor structure. */
+typedef struct
+ {
+ short buf_len;
+ short itm_cod;
+ void *buf;
+ int *ret_len;
+ } jpi_item_t;
+
+/* Durable storage */
+
+static int rms_defaults_known = 0;
+
+/* JPI item buffers. */
+static unsigned short rms_ext;
+static char rms_mbc;
+static unsigned char rms_mbf;
+
+/* Active RMS item values. */
+unsigned short rms_ext_active;
+char rms_mbc_active;
+unsigned char rms_mbf_active;
+
+/* GETJPI item lengths. */
+static int rms_ext_len; /* Should come back 2. */
+static int rms_mbc_len; /* Should come back 1. */
+static int rms_mbf_len; /* Should come back 1. */
+
+/* Desperation attempts to define unknown macros. Probably doomed.
+ * If these get used, expect sys$getjpiw() to return %x00000014 =
+ * %SYSTEM-F-BADPARAM, bad parameter value.
+ * They keep compilers with old header files quiet, though.
+ */
+#ifndef JPI$_RMS_EXTEND_SIZE
+# define JPI$_RMS_EXTEND_SIZE 542
+#endif /* ndef JPI$_RMS_EXTEND_SIZE */
+
+#ifndef JPI$_RMS_DFMBC
+# define JPI$_RMS_DFMBC 535
+#endif /* ndef JPI$_RMS_DFMBC */
+
+#ifndef JPI$_RMS_DFMBFSDK
+# define JPI$_RMS_DFMBFSDK 536
+#endif /* ndef JPI$_RMS_DFMBFSDK */
+
+/* GETJPI item descriptor set. */
+
+struct
+ {
+ jpi_item_t rms_ext_itm;
+ jpi_item_t rms_mbc_itm;
+ jpi_item_t rms_mbf_itm;
+ int term;
+ } jpi_itm_lst =
+ { { 2, JPI$_RMS_EXTEND_SIZE, &rms_ext, &rms_ext_len },
+ { 1, JPI$_RMS_DFMBC, &rms_mbc, &rms_mbc_len },
+ { 1, JPI$_RMS_DFMBFSDK, &rms_mbf, &rms_mbf_len },
+ 0
+ };
+
+int get_rms_defaults()
+{
+int sts;
+
+/* Get process RMS_DEFAULT values. */
+
+sts = sys$getjpiw( 0, 0, 0, &jpi_itm_lst, 0, 0, 0);
+if ((sts& STS$M_SEVERITY) != STS$M_SUCCESS)
+ {
+ /* Failed. Don't try again. */
+ rms_defaults_known = -1;
+ }
+else
+ {
+ /* Fine, but don't come back. */
+ rms_defaults_known = 1;
+ }
+
+/* Limit the active values according to the RMS_DEFAULT values. */
+
+if (rms_defaults_known > 0)
+ {
+ /* Set the default values. */
+
+ rms_ext_active = RMS_DEQ_DEFAULT;
+ rms_mbc_active = RMS_MBC_DEFAULT;
+ rms_mbf_active = RMS_MBF_DEFAULT;
+
+ /* Default extend quantity. Use the user value, if set. */
+ if (rms_ext > 0)
+ {
+ rms_ext_active = rms_ext;
+ }
+
+ /* Default multi-block count. Use the user value, if set. */
+ if (rms_mbc > 0)
+ {
+ rms_mbc_active = rms_mbc;
+ }
+
+ /* Default multi-buffer count. Use the user value, if set. */
+ if (rms_mbf > 0)
+ {
+ rms_mbf_active = rms_mbf;
+ }
+ }
+
+if (vms_init_diag() > 0)
+ {
+ fprintf( stderr,
+ "Get RMS defaults. getjpi sts = %%x%08x.\n",
+ sts);
+
+ if (rms_defaults_known > 0)
+ {
+ fprintf( stderr,
+ " Default: deq = %6d, mbc = %3d, mbf = %3d.\n",
+ rms_ext, rms_mbc, rms_mbf);
+ }
+ }
+return sts;
+}
+
+/*--------------------------------------------------------------------*/
+
+/* 2004-11-23 SMS.
+ *
+ * acc_cb(), access callback function for DEC C [f]open().
+ *
+ * Set some RMS FAB/RAB items, with consideration of user-specified
+ * values from (DCL) SET RMS_DEFAULT. Items of particular interest are:
+ *
+ * fab$w_deq default extension quantity (blocks).
+ * rab$b_mbc multi-block count.
+ * rab$b_mbf multi-buffer count (used with rah and wbh).
+ *
+ * See also the FOP* macros in OSDEP.H. Currently, no notice is
+ * taken of the caller-ID value, but options could be set differently
+ * for read versus write access. (I assume that specifying fab$w_deq,
+ * for example, for a read-only file has no ill effects.)
+ */
+
+/* acc_cb() */
+
+int acc_cb( int *id_arg, struct FAB *fab, struct RAB *rab)
+{
+int sts;
+
+/* Get process RMS_DEFAULT values, if not already done. */
+if (rms_defaults_known == 0)
+ {
+ get_rms_defaults();
+ }
+
+/* If RMS_DEFAULT (and adjusted active) values are available, then set
+ * the FAB/RAB parameters. If RMS_DEFAULT values are not available,
+ * suffer with the default parameters.
+ */
+if (rms_defaults_known > 0)
+ {
+ /* Set the FAB/RAB parameters accordingly. */
+ fab-> fab$w_deq = rms_ext_active;
+ rab-> rab$b_mbc = rms_mbc_active;
+ rab-> rab$b_mbf = rms_mbf_active;
+
+ /* Truncate at EOF on close, as we'll probably over-extend. */
+ fab-> fab$v_tef = 1;
+
+ /* If using multiple buffers, enable read-ahead and write-behind. */
+ if (rms_mbf_active > 1)
+ {
+ rab-> rab$v_rah = 1;
+ rab-> rab$v_wbh = 1;
+ }
+
+ if (vms_init_diag() > 0)
+ {
+ fprintf( stderr,
+ "Open callback. ID = %d, deq = %6d, mbc = %3d, mbf = %3d.\n",
+ *id_arg, fab-> fab$w_deq, rab-> rab$b_mbc, rab-> rab$b_mbf);
+ }
+ }
+
+/* Declare success. */
+return 0;
+}
+
+/*--------------------------------------------------------------------*/
+
+/* Added J.Lauret 05-Dec-1999 . Copied from Mosaic distribution */
+
+/*
+ * Here is a replacement for getpwuid for VMS. It returns pointers
+ * to userid (*pw_name) and owner (*pw_gecos) only. Other fields
+ * may be added later.
+ * Note that sys$getuai returns owner as a counted string.
+ */
+
+#if __CRTL_VER < 70000000
+
+#include <uaidef.h>
+
+static struct passwd vms_passwd;
+static char vms_userid[16];
+static char vms_owner[40];
+
+struct passwd *getpwuid()
+{
+struct dsc$descriptor_s
+{
+ unsigned short dsc$w_length;
+ unsigned char dsc$b_dtype;
+ unsigned char dsc$b_class;
+ char *dsc$a_pointer;
+} user_desc = {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, NULL};
+
+ char *t_userid, owner[40];
+ int status, length;
+ struct {
+ short buffer_length;
+ short item_code;
+ int buffer_address;
+ int return_length_address;
+ int terminator;
+ } itmlst;
+
+#ifdef __GNUC__
+ (int)t_userid = cuserid((char *) NULL);
+#else
+ t_userid = cuserid((char *) NULL);
+#endif /* GNU C is strange, GEC */
+ user_desc.dsc$w_length = strlen(t_userid);
+ user_desc.dsc$a_pointer = t_userid;
+ itmlst.buffer_length = sizeof(owner);
+ itmlst.item_code = UAI$_OWNER;
+ itmlst.buffer_address = (int)owner;
+ itmlst.return_length_address = (int)&length;
+ itmlst.terminator = 0;
+ status = sys$getuai(0, 0, &user_desc, &itmlst, 0, 0, 0);
+ if ((stats& STS$M_SEVERITY) == STS$K_SUCCESS) {
+ length = (int)owner[0];
+ owner[length+1] = '\0';
+ strcpy(vms_userid, t_userid);
+ strcpy(vms_owner, &owner[1]);
+ } else {
+ vms_userid[0] = '\0';
+ vms_owner[0] = '\0';
+ }
+ vms_passwd.pw_name = vms_userid;
+ vms_passwd.pw_gecos = vms_owner;
+ return (&vms_passwd);
+}
+
+/* Approximate localtime_r as best we can in its absence. */
+struct tm *
+localtime_r (t, tp)
+ const time_t *t;
+ struct tm *tp;
+{
+ struct tm *l = localtime (t);
+ if (! l)
+ return 0;
+ *tp = *l;
+ return tp;
+}
+
+#endif /* __CRTL_VER < 70000000 */
+
projects / wget / blobdiff