From: Jason Miller <aidenn0@geocities.com>
Date: Wed, 4 Dec 2013 16:55:52 +0000 (-0800)
Subject: Add fd-tty-p for isatty()
X-Git-Tag: v0.8.1~45
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/f61dd0565eee2f08152b6ec4e95b1207dee5e7c5

Add fd-tty-p for isatty()
---

diff --git a/src/syscalls/ffi-functions-unix.lisp b/src/syscalls/ffi-functions-unix.lisp
index 9f8a7bf..dd8bdba 100644
--- a/src/syscalls/ffi-functions-unix.lisp
+++ b/src/syscalls/ffi-functions-unix.lisp
@@ -477,6 +477,10 @@ Return two values: the file descriptor and the path of the temporary file."
 
 (defsyscall (fd-open-p "lfp_is_fd_open") bool-designator
   (fd :int))
+
+(defsyscall (fd-tty-p "isatty") bool-designator
+  (fd :int))
+
 
 
 ;;;-------------------------------------------------------------------------
diff --git a/src/syscalls/pkgdcl.lisp b/src/syscalls/pkgdcl.lisp
index 16a145f..9ba3297 100644
--- a/src/syscalls/pkgdcl.lisp
+++ b/src/syscalls/pkgdcl.lisp
@@ -523,7 +523,8 @@
    #:ioctl
    #:fd-cloexec-p
    #:fd-nonblock-p
-   #:fd-open-p)
+   #:fd-open-p
+   #:fd-tty-p)
   (:export ;; TTYs
    #:openpt
    #:grantpt