Skip to content
Snippets Groups Projects
Commit 4eb42552 authored by ram's avatar ram
Browse files

added TIOCSIGSEND. Currently only on HP/Ux.

parent 0c54f47e
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.39 1994/11/06 18:00:36 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.40 1996/07/25 14:59:48 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -67,6 +67,8 @@ ...@@ -67,6 +67,8 @@
unix-tcgetattr #+(or hpux svr4) unix-tcsetattr unix-tcgetattr #+(or hpux svr4) unix-tcsetattr
TIOCGETP TIOCSETP TIOCFLUSH TIOCSETC TIOCGETC TIOCSLTC TIOCGETP TIOCSETP TIOCFLUSH TIOCSETC TIOCGETC TIOCSLTC
TIOCGLTC TIOCNOTTY TIOCSPGRP TIOCGPGRP TIOCGWINSZ TIOCSWINSZ TIOCGLTC TIOCNOTTY TIOCSPGRP TIOCGPGRP TIOCGWINSZ TIOCSWINSZ
TIOCSIGSEND
KBDCGET KBDCSET KBDCRESET KBDCRST KBDCSSTD KBDSGET KBDGCLICK KBDCGET KBDCSET KBDCRESET KBDCRST KBDCSSTD KBDSGET KBDGCLICK
KBDSCLICK FIONREAD #+hpux siocspgrp KBDSCLICK FIONREAD #+hpux siocspgrp
unix-exit unix-stat unix-lstat unix-fstat unix-exit unix-stat unix-lstat unix-fstat
...@@ -1223,7 +1225,8 @@ ...@@ -1223,7 +1225,8 @@
(define-ioctl-command TIOCSLTC #\T 23 (struct ltchars) :in) (define-ioctl-command TIOCSLTC #\T 23 (struct ltchars) :in)
(define-ioctl-command TIOCGLTC #\T 24 (struct ltchars) :out) (define-ioctl-command TIOCGLTC #\T 24 (struct ltchars) :out)
(define-ioctl-command TIOCSPGRP #\T 29 int :in) (define-ioctl-command TIOCSPGRP #\T 29 int :in)
(define-ioctl-command TIOCGPGRP #\T 30 int :out)) (define-ioctl-command TIOCGPGRP #\T 30 int :out)
(define-ioctl-command TIOCSIGSEND #\t 93 int :in))
;;; File ioctl commands. ;;; File ioctl commands.
(define-ioctl-command FIONREAD #\f 127 int :out) (define-ioctl-command FIONREAD #\f 127 int :out)
...@@ -1267,6 +1270,17 @@ ...@@ -1267,6 +1270,17 @@
(values alien-pgrp nil) (values alien-pgrp nil)
(values nil err))))) (values nil err)))))
(defun (fd)
"Get the tty-process-group for the unix file-descriptor FD."
(alien:with-alien ((alien-pgrp c-call:int))
(multiple-value-bind (ok err)
(unix-ioctl fd
tiocgpgrp
(alien:alien-sap (alien:addr alien-pgrp)))
(if ok
(values alien-pgrp nil)
(values nil err)))))
(defun tty-process-group (&optional fd) (defun tty-process-group (&optional fd)
"Get the tty-process-group for the unix file-descriptor FD. If not supplied, "Get the tty-process-group for the unix file-descriptor FD. If not supplied,
FD defaults to /dev/tty." FD defaults to /dev/tty."
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment