mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

run-program: add process finalizer

Browse source
This commit is contained in:
Daniel Kochmański 2017-03-23 18:09:42 +01:00
parent a3a040aa8d
commit 53a9d5d454
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/lsp/process.lsp
View file

@ -83,6 +83,13 @@
:wait t :output nil :input nil :error nil
#+windows :escape-arguments #+windows nil))))
;;; We don't handle `sigchld' because we don't want races with
;;; `external-process-wait'. Take care of forgotten processes.
(defun finalize-external-process (process)
(unless (member (ext:external-process-wait process nil)
(:exited :signaled :abort :error))
(ext:set-finalizer process #'finalize-external-process)))
;;;
;;; Almighty EXT:RUN-PROGRAM. Built on top of SI:SPAWN-SUBPROCESS. For
;;; simpler alternative see SI:RUN-PROGRAM-INNER.
@ -173,7 +180,9 @@
(values (make-two-way-stream (external-process-output process)
(external-process-input process))
(when wait (nth-value 1 (si:external-process-wait process t)))
(if wait
(nth-value 1 (si:external-process-wait process t))
(ext:set-finalizer process #'finalize-external-process))
process)))))
#+windows