From dad5f25058c4ecf69ebe4543a13281d3f28c69bc Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Mon, 30 Dec 2013 21:52:45 +0200
Subject: Build and test dynamic extensions on VMS. Documented too.

---
 extension/time.c | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'extension/time.c')

diff --git a/extension/time.c b/extension/time.c
index 9fadfe54..b1e9a40a 100644
--- a/extension/time.c
+++ b/extension/time.c
@@ -39,6 +39,30 @@
 #include <sys/types.h>
 #include <sys/stat.h>
 
+#ifdef __VMS
+#define HAVE_NANOSLEEP
+#define HAVE_GETTIMEOFDAY
+#ifdef gettimeofday
+#undef gettimeofday
+#endif
+#ifdef __ia64__
+/* nanosleep not working on IA64 */
+static int
+vms_fake_nanosleep(const struct timespec *rqdly, struct timespec *rmdly)
+{
+	int result;
+
+	result = sleep(rqdly->tv_sec);
+	if (result == 0) {
+		return 0;
+	} else {
+		return -1;
+	}
+}
+#define nanosleep(x,y) vms_fake_nanosleep(x, y)
+#endif
+#endif
+
 #include "gawkapi.h"
 
 #include "gettext.h"
-- 
cgit v1.2.3