1
0
mirror of https://github.com/moparisthebest/wget synced 2024-07-03 16:38:41 -04:00
wget/vms/vms.c
2008-04-22 14:48:36 -07:00

1051 lines
26 KiB
C

/*
* 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 */