Sleeping process not reported as sleeping
I’m trying to find out how different lisp compilers handle external processes(*). As a part of that, I’ve created a short piece of code that launches an external process, sends it SIGSTOP
, asks its about its well-being, and allows its to go about its business again by sending SIGCONT
.
I would expect that mk-ext:process-status
consequently reports
- :running before
SIGSTOP
is sent - then :stopped
- then :running again once
SIGCONT
was received - and finally :exited.
Indeed, that is what ps
would do if you ran it on the command line (so I’ve added that to the example for comparison). Here’s the output of my script:
external status: [S] (expected: [S])
internal status: RUNNING (expected: running)
external status: [T] (expected: [T])
internal status: RUNNING (expected: stopped)
external status: [S] (expected: [S])
internal status: RUNNING (expected: running)
external status: [Z] (expected: [] or [Z])
internal status: EXITED (expected: exited)
My expectations aren’t met in (2): The process should be stopped but is never reported as such.
So I’d like to ask: Is this a bug or intentional?
(*) I’ve already sent very similar messages and/or filed bugs for Clozure CL, ECL, and SBCL.
Here’s the script that I used:
;; careful with cmucl. it doesn't actually sleep when external processes
;; are around https://gitlab.common-lisp.net/cmucl/cmucl/issues/26
#+clozure (use-package :ccl)
#+sbcl (use-package :sb-ext)
#+cmu (use-package :ext)
#+mkcl (use-package :mk-ext)
#+clozure (setf (fdefinition 'process-output) #'external-process-output-stream)
#+ecl (setf (fdefinition 'process-output) #'ext:external-process-output)
(defun my-run-program (&rest rest)
#+ecl (nth-value 2 (apply #'ext:run-program rest))
#+mkcl (nth-value 1 (apply #'mk-ext:run-program rest))
#-(or ecl mkcl) (apply #'run-program rest))
(defconstant +sigstop+
#+clozure (symbol-value (read-from-string "#$SIGSTOP"))
#+cmu unix:sigstop
#+ecl ext:+sigstop+
#+sbcl (progn (require :sb-posix)
(symbol-value (find-symbol (symbol-name :sigstop)
(find-package :sb-posix))))
#-(or clozure cmu ecl sbcl) (or #+darwin 17 #-darwin 19)) ; FIXME
(defconstant +sigtstp+
#+clozure (symbol-value (read-from-string "#$SIGTSTP"))
#+cmu unix:sigtstp
#+ecl ext:+sigtstp+
#+sbcl (progn (require :sb-posix)
(symbol-value (find-symbol (symbol-name :sigtstp)
(find-package :sb-posix))))
#-(or clozure cmu ecl sbcl) (or #+darwin 18 #-darwin 20)) ; FIXME
(defconstant +sigcont+
#+clozure (symbol-value (read-from-string "#$SIGCONT"))
#+cmu unix:sigcont
#+ecl ext:+sigcont+
#+sbcl (progn (require :sb-posix)
(symbol-value (find-symbol (symbol-name :sigcont)
(find-package :sb-posix))))
#-(or clozure cmu ecl sbcl) (or #+darwin 19 #-darwin 18)) ; FIXME
(defun internal-status (process)
#+clozure (external-process-status process)
#+(or sbcl cmu) (process-status process)
#+ecl (ext:external-process-status process)
#+mkcl (mk-ext:process-status process))
(defun external-kill (pid signal)
(my-run-program "/usr/bin/env" (list "kill"
(format nil "-~a" signal)
(format nil "~a" pid))))
;; ecl does not support writing to a string stream
(defun external-status (pid)
(let* ((arg-list (list "ps" "-h" "-p" (format nil "~a" pid) "-o" "state"))
(process (my-run-program "/usr/bin/env" arg-list :output :stream))
(output (process-output process))
; we expect a single letter
(target (make-string 1)))
(read-sequence target output)
target))
(defun get-pid (process)
#+clozure (ccl::external-process-pid process)
#+ecl (ext:external-process-pid process)
#+(or sbcl cmu) (process-pid process)
#+mkcl (mkcl:process-id process))
(let* ((p (my-run-program "/usr/bin/env" '("sleep" "3") :wait nil))
(pid (get-pid p)))
(format t "external status: [~a] (expected: [S])~%" (external-status pid))
(format t "internal status: ~a (expected: running)~%" (internal-status p))
(external-kill pid +sigstop+)
(sleep 1)
(format t "external status: [~a] (expected: [T])~%" (external-status pid))
(format t "internal status: ~a (expected: stopped)~%" (internal-status p))
(external-kill pid +sigcont+)
(sleep 1)
(format t "external status: [~a] (expected: [S])~%" (external-status pid))
(format t "internal status: ~a (expected: running)~%" (internal-status p))
(sleep 3)
(format t "external status: [~a] (expected: [] or [Z])~%" (external-status pid))
(format t "internal status: ~a (expected: exited)~%" (internal-status p)))