*** empty log message ***
This commit is contained in:
parent
77f1244a17
commit
79f2098c6f
|
@ -14,6 +14,8 @@
|
|||
;;; Rehacked by Olin 8/95.
|
||||
|
||||
(foreign-source
|
||||
"#include <sys/types.h>"
|
||||
""
|
||||
"#include <unistd.h>"
|
||||
"#include <termios.h>"
|
||||
""
|
||||
|
@ -242,7 +244,7 @@
|
|||
(else (error "Illegal argument to DRAIN-TTY" fdport))))
|
||||
|
||||
(define-errno-syscall (%tcdrain fdes) %tcdrain/errno)
|
||||
(define-foreign %tcdrain/errno (tcdrain (integer fdes))
|
||||
(define-foreign %tcdrain/errno (tcdrain (integer fdes)) no-declare ; Ultrix
|
||||
(to-scheme integer errno_or_false))
|
||||
|
||||
|
||||
|
@ -261,6 +263,7 @@
|
|||
|
||||
(define-errno-syscall (%tcflush fdes flag) %tcflush/errno)
|
||||
(define-foreign %tcflush/errno (tcflush (integer fdes) (integer flag))
|
||||
no-declare ; Ultrix
|
||||
(to-scheme integer errno_or_false))
|
||||
|
||||
|
||||
|
@ -281,7 +284,7 @@
|
|||
(define-errno-syscall (%tcflow fdes action) %tcflow/errno)
|
||||
|
||||
(define-foreign %tcflow/errno
|
||||
(tcflow (integer fdes) (integer action))
|
||||
(tcflow (integer fdes) (integer action)) no-declare ; Ultrix
|
||||
(to-scheme integer errno_or_false))
|
||||
|
||||
|
||||
|
@ -318,6 +321,7 @@
|
|||
|
||||
(define-foreign %set-tty-process-group/errno (tcsetpgrp (fixnum fdes)
|
||||
(pid_t pid))
|
||||
no-declare ; Ultrix
|
||||
(to-scheme integer errno_or_false))
|
||||
|
||||
(define (tty-process-group port/fd)
|
||||
|
@ -327,6 +331,7 @@
|
|||
pid)
|
||||
|
||||
(define-foreign %tty-process-group/errno (tcgetpgrp (fixnum fdes))
|
||||
no-declare ; Ultrix
|
||||
(multi-rep (to-scheme pid_t errno_or_false)
|
||||
pid_t))
|
||||
|
||||
|
|
Loading…
Reference in New Issue