On Sun Jul 17, 2005 at 11:22:27AM +1000, Mark Triggs wrote:
My version of cdrdao seems to write its output to stderr, not stdout, so the above output is probably coming from your ":error t" argument. I'm not completely sure what you want to do, but this sort of approach seems to work for me:
(with-open-stream (rip (ext:process-error (ext:run-program "cdrdao" '("read-test" "-v" "1" "test-toc.toc") :output nil :wait nil :error :stream))) (loop as line = (read-line rip nil) while line do (dolist (output-line (split (string #\Return) line)) (when (cl-ppcre:scan "^Read \d+ of \d+ MB." output-line) (write-line output-line)))))
Hi Mark,
That works on my machine as well. I was looking at the wrong stream :[
Thanks!
--Jeff