From bc70de7b3302d5a81515b901cae376b8b51d2004 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 16 Jul 2010 13:09:56 +0300
Subject: Move to gawk-3.1.0.

---
 unsupported/tandem/isatty.c | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 unsupported/tandem/isatty.c

(limited to 'unsupported/tandem/isatty.c')

diff --git a/unsupported/tandem/isatty.c b/unsupported/tandem/isatty.c
new file mode 100644
index 00000000..d73d7a34
--- /dev/null
+++ b/unsupported/tandem/isatty.c
@@ -0,0 +1,22 @@
+#include <cextdecs(FILE_GETINFO_)>
+#include <stdioh>
+#include <talh>
+
+int isatty(int fd)
+{
+	short cret,sfd,typ[5];
+	sfd = (short) fd;
+	cret = FILE_GETINFO_(sfd,,,,,&typ[0]);
+	if(typ[0] == 6)
+		return (1);
+	else
+		return (0);
+}
+int dup(int fd)
+{
+	return (fd);
+}
+int dup2(int fd, int fd2)
+{
+	return (0);
+}
-- 
cgit v1.2.3