mes: Add isatty?.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 22 Apr 2018 09:48:38 +0000 (11:48 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 22 Apr 2018 09:48:38 +0000 (11:48 +0200)
* src/posix.c (isatty_p): New function.

lib/libc.c
src/posix.c

index 97565c31a1ac8557d9068e1a506c078a02bab99e..2819468c0633c4cbf6cf733cee6a72246c9c2d0f 100644 (file)
@@ -424,7 +424,7 @@ sprintf (char *str, char const* format, ...)
 int
 isatty (int fd)
 {
-  return ioctl (fd, TCGETS, 0) == -14; // MAGIC
+  return ioctl (fd, TCGETS, 0) & 0xf0;
 }
 
 #endif //!POSIX
index 2e6b3a8c89db5f2d432feb23da4bf436a7bd26ca..f0a020d9d2f458032171222e556ceba85226670c 100644 (file)
@@ -199,3 +199,9 @@ force_output (SCM p) ///((arity . n))
 {
   return cell_unspecified;
 }
+
+SCM
+isatty_p (SCM port)
+{
+  return isatty (VALUE (port)) ? cell_t : cell_f;
+}