Move to gawk-3.1.0.

1 files changed, 161 insertions, 6 deletions

diff --git a/vms/vms_misc.c b/vms/vms_misc.c
index 1b1a2239..439790d5 100644
--- a/vms/vms_misc.c
+++ b/vms/vms_misc.c
@@ -1,6 +1,6 @@
 /* vms_misc.c -- sustitute code for missing/different run-time library routines.
 
-   Copyright (C) 1991-1993, 1996, 1997 the Free Software Foundation, Inc.
+   Copyright (C) 1991-1993, 1996-1997, 2001 the Free Software Foundation, Inc.
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -18,6 +18,7 @@
 
 #define creat creat_dummy	/* one of gcc-vms's headers has bad prototype */
 #include "awk.h"
+#include "vms.h"
 #undef creat
 #include <fab.h>
 #ifndef O_RDONLY
@@ -111,6 +112,15 @@ vms_open( const char *name, int mode, ... )
 {
     int result;
 
+    if (STREQN(name, "/dev/", 5)) {
+	/* (this used to be handled in vms_devopen(), but that is only
+	   called when opening files for output; we want it for input too) */
+	if (strcmp(name + 5, "null") == 0)	/* /dev/null -> NL: */
+	    name = "NL:";
+	else if (strcmp(name + 5, "tty") == 0)	/* /dev/tty -> TT: */
+	    name = "TT:";
+    }
+
     if (mode == (O_WRONLY|O_CREAT|O_TRUNC)) {
 	/* explicitly force stream_lf record format to override DECC$SHR's
 	   defaulting of RFM to earlier file version's when one is present */
@@ -146,11 +156,7 @@ vms_devopen( const char *name, int mode )
 {
     FILE *file = NULL;
 
-    if (STREQ(name, "/dev/null"))
-	return open("NL:", mode, 0);	/* "/dev/null" => "NL:" */
-    else if (STREQ(name, "/dev/tty"))
-	return open("TT:", mode, 0);	/* "/dev/tty" => "TT:" */
-    else if (strncasecmp(name, "SYS$", 4) == 0) {
+    if (strncasecmp(name, "SYS$", 4) == 0) {
 	name += 4;		/* skip "SYS$" */
 	if (strncasecmp(name, "INPUT", 5) == 0 && (mode & O_WRONLY) == 0)
 	    file = stdin,  name += 5;
@@ -165,6 +171,41 @@ vms_devopen( const char *name, int mode )
 }
 
 
+#define VMS_UNITS_PER_SECOND 10000000L	/* hundreds of nanoseconds, 1e-7 */
+#define UNIX_EPOCH "01-JAN-1970 00:00:00.00"
+
+extern U_Long sys$bintim(), sys$gettim();
+extern U_Long lib$subx(), lib$ediv();
+
+    /*
+     * Get current time in microsecond precision.
+     */
+/* vms_gettimeofday() - get current time in `struct timeval' format */
+int
+vms_gettimeofday(struct timeval *tv, void *timezone__not_used)
+{
+    /*
+	Emulate unix's gettimeofday call; timezone argument is ignored.
+    */
+    static const Dsc epoch_dsc = { sizeof UNIX_EPOCH - sizeof "", UNIX_EPOCH };
+    static long epoch[2] = {0L,0L};	/* needs one time initialization */
+    const long  thunk = VMS_UNITS_PER_SECOND;
+    long        now[2], quad[2];
+
+    if (!epoch[0])  sys$bintim(&epoch_dsc, epoch);	/* 1 Jan 0:0:0 1970 */
+    /* get current time, as VMS quadword time */
+    sys$gettim(now);
+    /* convert the quadword time so that it's relative to Unix epoch */
+    lib$subx(now, epoch, quad); /* quad = now - epoch; */
+    /* convert 1e-7 units into seconds and fraction of seconds */
+    lib$ediv(&thunk, quad, &tv->tv_sec, &tv->tv_usec);
+    /* convert fraction of seconds into microseconds */
+    tv->tv_usec /= (VMS_UNITS_PER_SECOND / 1000000);
+
+    return 0;           /* success */
+}
+
+
 #ifndef VMS_V7
     /*
      * VMS prior to V7.x has no timezone support unless DECnet/OSI is used.
@@ -196,6 +237,7 @@ void vms_bcopy( const char *src, char *dst, int len )
 }
 #endif /*!__GNUC__*/
 
+
 /*----------------------------------------------------------------------*/
 #ifdef NO_VMS_ARGS      /* real code is in "vms/vms_args.c" */
 void vms_arg_fixup( int *argc, char ***argv ) { return; }	/* dummy */
@@ -215,3 +257,116 @@ int fork( void ) {
     return -1;
 }
 #endif /*NO_VMS_PIPES*/
+/*----------------------------------------------------------------------*/
+
+
+/*
+ *	The following code is taken from the GNU C preprocessor (cccp.c,
+ *	2.8.1 vintage) where it was used #if VMS.  It is only needed for
+ *	VAX C and GNU C on VAX configurations; DEC C's run-time library
+ *	doesn't have the problem described.
+ *
+ *	VMS_fstat() and VMS_stat() were static in cccp.c but need to be
+ *	accessible to the whole program here.  Also, the special handling
+ *	for the null device has been introduced for gawk's benefit, to
+ *	prevent --lint mode from giving spurious warnings about /dev/null
+ *	being empty if it's used as an input file.
+ */
+
+#if defined(VAXC) || (defined(__GNUC__) && !defined(__alpha))
+
+/* more VMS hackery */
+#include <fab.h>
+#include <nam.h>
+
+extern unsigned long sys$parse(), sys$search();
+
+/* Work around a VAXCRTL bug.  If a file is located via a searchlist,
+   and if the device it's on is not the same device as the one specified
+   in the first element of that searchlist, then both stat() and fstat()
+   will fail to return info about it.  `errno' will be set to EVMSERR, and
+   `vaxc$errno' will be set to SS$_NORMAL due yet another bug in stat()!
+   We can get around this by fully parsing the filename and then passing
+   that absolute name to stat().
+
+   Without this fix, we can end up failing to find header files, which is
+   bad enough, but then compounding the problem by reporting the reason for
+   failure as "normal successful completion."  */
+
+#undef fstat	/* Get back to the library version.  */
+
+int
+VMS_fstat (fd, statbuf)
+     int fd;
+     struct stat *statbuf;
+{
+  int result = fstat (fd, statbuf);
+
+  if (result < 0)
+    {
+      FILE *fp;
+      char nambuf[NAM$C_MAXRSS+1];
+
+      if ((fp = fdopen (fd, "r")) != 0 && fgetname (fp, nambuf) != 0)
+	result = VMS_stat (nambuf, statbuf);
+      /* No fclose(fp) here; that would close(fd) as well.  */
+    }
+
+  if (result == 0		/* GAWK addition; fixup /dev/null flags */
+      && (statbuf->st_mode & S_IFREG)
+      && STREQ(statbuf->st_dev, "_NLA0:"))
+    {
+      statbuf->st_mode &= ~S_IFREG;
+      statbuf->st_mode |= S_IFCHR;
+    }
+
+  return result;
+}
+
+int
+VMS_stat (name, statbuf)
+     const char *name;
+     struct stat *statbuf;
+{
+  int result = stat (name, statbuf);
+
+  if (result < 0)
+    {
+      struct FAB fab;
+      struct NAM nam;
+      char exp_nam[NAM$C_MAXRSS+1],  /* expanded name buffer for sys$parse */
+	   res_nam[NAM$C_MAXRSS+1];  /* resultant name buffer for sys$search */
+
+      fab = cc$rms_fab;
+      fab.fab$l_fna = (char *) name;
+      fab.fab$b_fns = (unsigned char) strlen (name);
+      fab.fab$l_nam = (void *) &nam;
+      nam = cc$rms_nam;
+      nam.nam$l_esa = exp_nam,  nam.nam$b_ess = sizeof exp_nam - 1;
+      nam.nam$l_rsa = res_nam,  nam.nam$b_rss = sizeof res_nam - 1;
+      nam.nam$b_nop = NAM$M_PWD | NAM$M_NOCONCEAL;
+      if (sys$parse (&fab) & 1)
+	{
+	  if (sys$search (&fab) & 1)
+	    {
+	      res_nam[nam.nam$b_rsl] = '\0';
+	      result = stat (res_nam, statbuf);
+	    }
+	  /* Clean up searchlist context cached by the system.  */
+	  nam.nam$b_nop = NAM$M_SYNCHK;
+	  fab.fab$l_fna = 0,  fab.fab$b_fns = 0;
+	  (void) sys$parse (&fab);
+	}
+    }
+
+  if (result == 0		/* GAWK addition; fixup /dev/null flags */
+      && (statbuf->st_mode & S_IFREG)
+      && STREQ(statbuf->st_dev, "_NLA0:"))
+    {
+      statbuf->st_mode &= ~S_IFREG;
+      statbuf->st_mode |= S_IFCHR;
+    }
+
+  return result;
+}
+#endif	/* VAXC || (__GNUC__ && !__alpha) */