Wie erkennt man, ob der Eingabestream leer ist (aber nicht EOF)?

Question

Ich spawn einen Prozess von Common Lisp-Programm (gnuplot). Ich kann Ein- und Ausgabeströme für den Prozess einrichten. Ich habe jedoch ein Problem beim Lesen von der Ausgabe. Das Problem ist, dass ich versuchen möchte, aus der Ausgabe zu lesen, und wenn da nichts ist, naja ... tue nichts zum Beispiel.

(Grundproblem: Ich möchte show term das Ergebnis des Befehls lesen, aber ich möchte andere Ausgabe überspringen, dass gnuplot könnte vor dem Senden Sie diesen Befehl erzeugt haben)

Wenn ich nur (read-line gnuplot-output nil :eof) verwenden und es gibt nichts in Ausgangsstrom, wird es nicht :eof anzeigen (da der Strom noch am Leben ist und etwas dort erscheinen könnte) und wird nur blockieren, bis es etwas zu lesen hat (dh für immer).

Gibt es eine Möglichkeit zu erkennen, dass nichts zu lesen ist? Zumindest kann der Versuch, den Lesevorgang irgendwie sicher zu unterbrechen, beendet werden (d. H. Es sollte keine neue Zeile aus dem Stream entfernt werden, sobald das Timeout erreicht ist).

PS. Ich verwende SBCL

Answer 1

Listen sollte Ihnen sagen, ob ein Zeichen verfügbar ist. Ich denke, Sie müssen den Stream Zeichen für Zeichen und nicht ganze Zeilen gleichzeitig lesen, es sei denn, Sie sind sicher, dass das Programm nie eine unvollständige Zeile ausgibt.

Edit: Ein schneller Test (sb-ext für die Ausführung des Programms):

(defun test() 
    (do* ((program (run-program "output-test.sh" nil 
           :search t 
           :output :stream 
           :wait nil)) 
     (output-stream (process-output program))) 
     ((not (process-alive-p program))) 
    (if (listen output-stream) 
     (loop 
      for char = (read-char-no-hang output-stream nil nil) 
      while char 
      do (write-char char)) 
     (format t "No output available.~%")) 
    (sleep 1))) 

Wo output-test.sh ist:

#!/bin/sh 
for item in * 
do 
    echo $item 
    sleep 3 
done