From b5c796b43307c74a21ebcd1b95303ff79f48819f Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Sun, 1 May 2011 19:40:15 +0300
Subject: Compile fix for VMS.

---
 vms/ChangeLog    | 4 ++++
 vms/gawkmisc.vms | 6 ++++++
 2 files changed, 10 insertions(+)

diff --git a/vms/ChangeLog b/vms/ChangeLog
index 3a3b74a1..39381a81 100644
--- a/vms/ChangeLog
+++ b/vms/ChangeLog
@@ -1,3 +1,7 @@
+Fri Apr 29 18:10:49 2011  Pat Rankin  <rankin@pactechdata.com>
+
+	* gawkmisc.vms (os_isatty): New routine.
+
 Sat Feb 26 18:35:01 2011  Pat Rankin  <rankin@pactechdata.com>
 
 	* vms_gawk.c, gawk.cld: Add support for new command qualifiers:
diff --git a/vms/gawkmisc.vms b/vms/gawkmisc.vms
index afff3b8c..346a1e88 100644
--- a/vms/gawkmisc.vms
+++ b/vms/gawkmisc.vms
@@ -188,3 +188,9 @@ files_are_same(char *newfile, SRCFILE *oldfile)
 		&& f1->st_ino[1] == f2->st_ino[1]
 		&& f1->st_ino[2] == f2->st_ino[2]);
 }
+
+int
+os_isatty(int fd)
+{
+	return (isatty(fd) > 0);
+}
-- 
cgit v1.2.3