Differences From Artifact [88799f98f8]:
- File process.scm — part of check-in [0b313f7218] at 2013-09-13 18:17:39 on branch v1.55 — Somewhat speculative and partial fix for the non updating state/status on test run with transport=fs (user: mrwellan, size: 4216) [annotate] [blame] [check-ins using] [more...]
To Artifact [f9c6ebc5de]:
- File process.scm — part of check-in [2d5e0edb49] at 2014-11-01 07:01:22 on branch streamline-exception-handling — Streamline exception handling (user: matt, size: 4527) [annotate] [blame] [check-ins using]
| ︙ | |||
123 124 125 126 127 128 129 | 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 | + + + + + + + + + + |
(res '()))
(if (eof-object? inl)
(reverse res)
(let ((pid (string->number inl)))
(if proc (proc pid))
(loop (read-line) (cons pid res))))))))
(define (process:alive? pid)
(handle-exceptions
exn
;; possibly pid is a process not a child, look in /proc to see if it is running still
(file-exists? (conc "/proc/" pid))
(let-values (((rpid exit-type exit-signal)(process-wait pid #t)))
(and (number? rpid)
(equal? rpid pid)))))
|