*** empty log message ***

scsh/tty.scm

@@ -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))
 
 
@@ -260,7 +262,8 @@
 (define flush-tty/both   (make-tty-flusher %flush-tty/both))
 
 (define-errno-syscall (%tcflush fdes flag) %tcflush/errno)
-(define-foreign %tcflush/errno (tcflush (integer fdes) (integer flag))
+(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))