Changeset 835

Timestamp:

Jun 23, 2004, 10:32:29 AM (20 years ago)

Author:

Gary Byers

Message:

New external-process waiting stuff.

File:

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

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

@@ -619 +619 @@
 
 
-(defun watch-fd-output (in-fd out-stream token)
-  (incf (car token))
-  (let* ((handler ()))
-    (setq handler
-          #'(lambda ()
-              (when (fd-input-available-p in-fd 0)
-                (%stack-block ((buf 1024))
-                  (let* ((n (fd-read in-fd buf 1024)))
-                    (declare (fixnum n))
-                    (if (<= n 0)
-                      (progn
-                        (remove-watched-fd-handler handler)
-                        (without-interrupts
-                         (decf (car token))
-                         (fd-close in-fd)))
-                      (let* ((string (make-string 1024)))
-                        (declare (dynamic-extent string))
-                        (%copy-ptr-to-ivector buf 0 string 0 n)
-                        (write-sequence string out-stream :end n))))))))
-    (add-watched-fd-handler handler))
-  nil)
-
 (defun monitor-external-process (p)
   (let* ((in-fd (external-process-watched-fd p))
@@ -657 +635 @@
             (let* ((n (fd-read in-fd buf 1024)))
               (declare (fixnum n))
-              (format t "~& n bytes available")
               (if (<= n 0)
                 (progn