*** empty log message ***

This commit is contained in:
bdc 1995-11-01 03:52:02 +00:00
parent 77f1244a17
commit 79f2098c6f
1 changed files with 8 additions and 3 deletions

View File

@ -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))