Changeset 829

Timestamp:

Jun 6, 2004, 2:12:28 AM (20 years ago)

Author:

Gary Byers

Message:

Don't sleep/poll while monitoring external process; signal completion via semaphore.

File:

• trunk/ccl/level-1/linux-files.lisp (modified) (1 diff)

trunk/ccl/level-1/linux-files.lisp

@@ -667 +667 @@
                   (declare (dynamic-extent string))
                   (%copy-ptr-to-ivector buf 0 string 0 n)
-                  (write-sequence string out-stream :end n)))))))
-        (sleep 1))
-      (let* ((statusflags (check-pid (external-process-pid p)))
+                  (write-sequence string out-stream :end n))))))))
+      (let* ((statusflags (check-pid (external-process-pid p)
+                                     (logior
+                                      (if in-fd #$WNOHANG 0)
+                                      #$WUNTRACED)))
              (oldstatus (external-process-%status p)))
         (cond ((null statusflags)