如何在Steel Bank Common Lisp中处理输入和输出流? [英] How to process input and output streams in Steel Bank Common Lisp?

问题描述

我试图弄清楚如何使用以RUN-PROGRAM开头的一个程序的输出流，以便可以将其用作以RUN-PROGRAM开头的另一个程序的输入(即，道德上的，也许是文字上的等价物)管道).我尝试使用:INPUT，:OUTPUT和:WAIT关键字参数的多种组合，但没有任何反应 迄今已取得成果.任何提示都会有所帮助；例如，我将如何在shell中执行类似ls | grep lisp的操作?

I'm trying to figure out how to use the output stream of one program I start with RUN-PROGRAM so it can be used as the input of another program started with RUN-PROGRAM (i.e., the moral and perhaps literal equivalent of piping). I've tried using a number of combinations of the :INPUT, :OUTPUT and :WAIT keyword arguments, but nothing I've hit upon has been productive so far. Any tips would be helpful; for example, how would I go about doing something like ls | grep lisp from the shell?

我的尝试之一是

(defun piping-test () 
  (let ((grep-process (run-program "/usr/bin/grep" '("lisp") 
                                  :input :stream 
                                  :output :stream))) 
    (unwind-protect 
        (with-open-stream (s (process-input grep-process)) 
          (let ((ls-process (run-program "/bin/ls" '() 
                                        :output s))) 
            (when ls-process 
              (unwind-protect 
                  (with-open-stream (o (process-output grep-process)) 
                   (loop 
                      :for line := (read-line o nil nil) 
                      :while line 
                      :collect line)) 
               (process-close ls-process))))) 
     (when grep-process (process-close grep-process))))) 

在SLIME REPL中运行此命令会导致一切挂起，直到我摔坏为止 使用C-c C-c，显然这不是正确的选择，但是我 不知道如何更改它，所以这是正确的事情.

Running this in a SLIME REPL causes everything to hang until I break with C-c C-c, so it's pretty obviously not the right thing, but I'm not sure how to change it so it is the right thing.

编辑:将:WAIT NIL添加到两个RUN-PROGRAM调用中，或仅添加到grep的调用中，并不能解决问题.在这种情况下，该函数将挂起，并用C-c C-c中断会得到一个堆栈跟踪，表明有一个名为SB-UNIX:SELECT的本地函数(通过FLET定义)已挂起.

Adding :WAIT NIL to both RUN-PROGRAM invocations, or to only the invocation for grep, doesn't do the trick. In that case, the function will hang, and breaking with C-c C-c gets a stack trace indicating that there's a local function (defined via FLET) called SB-UNIX:SELECT that has hung.

推荐答案

我在

I got a working answer from Raymond Toy on comp.lang.lisp. His solution was for CMUCL, but it worked with the essentially identical RUN-PROGRAM function on the closely related SBCL, and with minor changes it will work on CCL as well, because CCL's RUN-PROGRAM is basically a clone of the one from CMUCL/SBCL.

秘密在于，首先设置ls进程，然后将其输出流作为输入提供给grep进程，就像这样:

The secret, as it were, is to set up the ls process first, and then provide its output stream to the grep process as input, like so:

(defun piping-test2 () 
  (let ((ls-process (run-program "/bin/ls" '() 
                                 :wait nil 
                                 :output :stream))) 
    (unwind-protect 
        (with-open-stream (s (process-output ls-process)) 
          (let ((grep-process (run-program "/usr/bin/grep" '("lisp") 
                                          :input s 
                                          :output :stream))) 
            (when grep-process 
              (unwind-protect 
                  (with-open-stream (o (process-output grep-process)) 
                    (loop 
                       :for line := (read-line o nil nil) 
                       :while line 
                       :collect line)) 
                (process-close grep-process))))) 
      (when ls-process (process-close ls-process))))) 

我还尝试从RUN-PROGRAM调用中的RUN-PROGRAM省略:WAIT NIL参数，并且效果也很好.

I also experimented with omitting the :WAIT NIL argument from the RUN-PROGRAM call for ls, and it worked just as well.

这篇关于如何在Steel Bank Common Lisp中处理输入和输出流?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！