Giriş akışının boş olup olmadığı nasıl algılanır (EOF değil)?

Question

Ben Common Lisp programı (Gnuplot) bir işlem üretmekten ediyorum. Süreç için girdi ve çıktı akışları oluşturabiliyorum. Ancak, çıktıdan okumada bir sorunum var. Sorun şu ki, çıktıdan okumayı denemek istiyorum ve eğer orada hiçbir şey yoksa, ... örneğin hiçbir şey yapmamak.

(Temel sorun: Ben komuta show term sonucunu okumak istiyorum ama bu komutu göndermeden önce gnuplot üretilmiş olabilecekleri diğer çıkışını atlamak istiyorum)

Sadece (read-line gnuplot-output nil :eof) kullanıyorsanız ve hiçbir şey de yoktur çıkış akımı, bu :eof (akışı hala hayatta ve bir şey görünebilir beri) ve (sonsuza yani) okumak için bir şey vardır dek sadece engeller göstermeyecektir.

Okunacak bir şey olmadığını tespit etmenin bir yolu var mı? En azından, bir şekilde okuma girişimi güvenli bir şekilde zaman aşımına uğradı (yani zaman aşımına ulaşıldıktan sonra akıştan yeni bir çizgi çıkarmamalıdır)?

PS. Kullanılabilir bir karakter olup olmadığını SBCL

Answer 1

Listen kullanıyorum. Programın hiçbir zaman tamamlanmamış bir satır çıkardığından emin değilseniz, akış karakterini bir kerede tüm satırlar yerine karakter olarak okumalısınız.

Düzenleme: hızlı testi (programı çalıştırmak için sb-ext kullanarak): output-test.sh

(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))) 

olduğunu

:

OP için

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