[Git][cmucl/cmucl][master] Remove wait3 stuff

[Raymond Toy]

Raymond Toy pushed to branch master at cmucl / cmucl


Commits:
e1f12db9 by Raymond Toy at 2017-09-16T14:54:10-07:00
Remove wait3 stuff

`wait3` is removed along with alien routine and the constants.

- - - - -


1 changed file:

- src/code/run-program.lisp


Changes:

=====================================
src/code/run-program.lisp
=====================================
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -27,58 +27,12 @@
 	  process-close process-pid process-p))
 
 
-;;;; Import WAIT3 from unix.
-
-(alien:def-alien-routine ("wait3" c-wait3) c-call:int
-  (status c-call:int :out)
-  (options c-call:int)
-  (rusage c-call:int))
-
 (alien:def-alien-routine ("prog_status" c-prog-status) c-call:void
   (pid c-call:int :out)
   (what c-call:int :out)
   (code c-call:int :out)
   (corep c-call:int :out))
 
-(eval-when (load eval compile)
-  (defconstant wait-wnohang #-svr4 1 #+svr4 #o100)
-  (defconstant wait-wuntraced #-svr4 2 #+svr4 4)
-  (defconstant wait-wstopped #-svr4 #o177 #+svr4 wait-wuntraced))
-
-(defun wait3 (&optional do-not-hang check-for-stopped)
-  "Return any available status information on child processed. "
-  (multiple-value-bind (pid status)
-		       (c-wait3 (logior (if do-not-hang
-					  wait-wnohang
-					  0)
-					(if check-for-stopped
-					  wait-wuntraced
-					  0))
-				0)
-    (cond ((or (minusp pid)
-	       (zerop pid))
-	   nil)
-	  ((eql (ldb (byte 8 0) status)
-		wait-wstopped)
-	   (values pid
-		   :stopped
-		   (ldb (byte 8 8) status)))
-	  ((zerop (ldb (byte 7 0) status))
-	   (values pid
-		   :exited
-		   (ldb (byte 8 8) status)))
-	  (t
-	   (let ((signal (ldb (byte 7 0) status)))
-	     (values pid
-		     (if (or (eql signal unix:sigstop)
-			     (eql signal unix:sigtstp)
-			     (eql signal unix:sigttin)
-			     (eql signal unix:sigttou))
-		       :stopped
-		       :signaled)
-		     signal
-		     (not (zerop (ldb (byte 1 7) status)))))))))
-
 (defun prog-status ()
   (multiple-value-bind (ret pid what code corep)
       (c-prog-status)
@@ -89,7 +43,6 @@
 	      code
 	      (not (zerop corep))))))
 
-
 
 ;;;; Process control stuff.
 



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/e1f12db958ab0af954c377a5bccf69a206ea25b1

---
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/e1f12db958ab0af954c377a5bccf69a206ea25b1
You're receiving this email because of your account on gitlab.common-lisp.net.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20170916/ce03565c/attachment-0001.html>