mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

external-process: add disabled terminate-process

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-19 13:00:58 +01:00
parent 786039ca97
commit 47f1525ebd
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/lsp/process.lsp
View file

@ -29,6 +29,8 @@
(ext:external-process-wait external-process nil)
(values status (external-process-%code external-process)))))
;;; XXX: we do not handle zombies yet
;;; ---------------------------------------------------------------------------
;;; si:waitpid -> (values status code pid)
;;; ---------------------------------------------------------------------------
@ -47,6 +49,19 @@
(values (external-process-%status process)
(external-process-%code process)))
#+ (or)
(defun terminate-process (process &optional force)
(let ((pid (external-process-pid process)))
#+windows
(ffi:c-inline
(process pid) (:object :object) :void
"HANDLE *ph = (HANDLE*)ecl_foreign_data_pointer_safe(#1);
ret = TerminateProcess(*ph, -1);
if (ret == 0) FEerror(\"Cannot terminate the process ~A\", 1, #2);")
#-windows
(unless (zerop (si:signal pid (if force +sigkill+ +sigterm+)))
(error "Cannot terminate the process ~A" process))))
;;;
;;; Backwards compatible SI:SYSTEM call. We avoid ANSI C system()
;;; because we are consuming the process wait status using a SIGCHLD