Commit b9bb4854 authored by wlott's avatar wlott
Browse files

Added #+hpux support for SIOCSPGRP (needed for "Typescript Slave Break" and

other Hemlock commands).
parent 578d32d3
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.27 1993/11/06 04:16:17 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.28 1993/12/09 12:56:09 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -62,7 +62,8 @@
TIOCGETP TIOCSETP TIOCFLUSH TIOCSETC TIOCGETC TIOCSLTC
TIOCGLTC TIOCNOTTY TIOCSPGRP TIOCGPGRP TIOCGWINSZ TIOCSWINSZ
KBDCGET KBDCSET KBDCRESET KBDCRST KBDCSSTD KBDSGET KBDGCLICK
KBDSCLICK FIONREAD unix-exit unix-stat unix-lstat unix-fstat
KBDSCLICK FIONREAD #+hpux siocspgrp
unix-exit unix-stat unix-lstat unix-fstat
unix-getrusage unix-fast-getrusage rusage_self rusage_children
unix-gettimeofday
#-hpux unix-utimes #-hpux unix-setreuid #-hpux unix-setregid
......@@ -1131,6 +1132,19 @@
`(%set-tty-process-group ,pgrp ,fd))
;;; Socket options.
#+hpux
(define-ioctl-command SIOCSPGRP #\s 8 int :in)
#+hpux
(defun siocspgrp (fd pgrp)
"Set the socket process-group for the unix file-descriptor FD to PGRP."
(alien:with-alien ((alien-pgrp c-call:int pgrp))
(unix-ioctl fd
siocspgrp
(alien:alien-sap (alien:addr alien-pgrp)))))
;;; Unix-exit terminates a program.
(defun unix-exit (&optional (code 0))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment