date and time created 81/08/01 18:48:17 by dlw

SCCS-vsn: usr.bin/f77/libU77/isatty_.c 1.1

diff --git a/usr/src/usr.bin/f77/libU77/isatty_.c b/usr/src/usr.bin/f77/libU77/isatty_.c
new file mode 100644 (file)
index 0000000..c9fcdde
--- /dev/null
+++ b/usr/src/usr.bin/f77/libU77/isatty_.c
@@ -0,0 +1,29 @@
+/*
+char id_isatty[] = "@(#)isatty_.c      1.1";
+ *
+ * determine if stream is associated with a tty (async port)
+ *
+ * calling sequence:
+ *     logical isatty, val
+ *     val = isatty (lunit)
+ * where:
+ *     val will be .TRUE. if lunit is associated with a 'tty'
+ */
+
+#include       "../libI77/fiodefs.h"
+
+extern unit units[];   /* logical units table from iolib */
+
+long isatty_(u)
+long *u;
+{
+       int     i;
+       unit    *lu;
+
+       if (*u < 0 || *u >= MXUNIT)
+               return(0);
+       lu = &units[*u];
+       if (!lu->ufd)
+               return(0);
+       return((long)(isatty(fileno(lu->ufd)) != 0));
+}