Re: Subprocess API.

[Mathieu Othacehe <m.othacehe@gmail.com>]

Hi Chris,

> This works exactly as you would expect from its POSIX equivalents and
> has the advantage that you can read from the pipe as the sub-process is
> proceeding rather than just collect at the end.

Thank you ! Following your suggestion, I ended-up with :

--8<---------------cut here---------------start------------->8---
(let* ((err-pipe (pipe))
       (out-pipe (pipe))
       (read-out (car out-pipe))
       (write-out (cdr out-pipe))
       (read-err (car err-pipe))
       (write-err (cdr err-pipe))
       (pid (run-concurrently+
             (apply tail-call-program "...")
             (write-out 1)
             (write-err 2)))
       (ret (status:exit-val (cdr (waitpid pid)))))
  (close-port write-out)
  (close-port write-err)
  (let ((output (read-string read-out))
        (error (read-string read-err)))
    (close-port read-out)
    (close-port read-err)
    (case ret
      ((0) output)
      (else (raise ...)))))
--8<---------------cut here---------------end--------------->8---

which seems to work. However, run-concurrently+ uses "primitive-fork"
which is forbiden in a multi-thread context (sadly, mine).

Do you have any idea on how to overcome this ?

Thanks,

Mathieu