如何在 Steel Bank Common Lisp 中处理输入和输出流？

Question

我试图弄清楚如何使用以 RUN-PROGRAM 启动的一个程序的输出流，以便它可以用作以 RUN-PROGRAM 启动的另一个程序的输入code>（即道德上或者字面意义上的管道的等价物）。我尝试使用 :INPUT、:OUTPUT 和 :WAIT 关键字参数的多种组合，但没有任何效果 到目前为止一直富有成效。任何提示都会有帮助；例如，我将如何去做类似 ls | 的事情？从 shell 中运行 grep lisp？

我的尝试之一是

(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 中运行它会导致一切都挂起，直到我崩溃 与 Cc Cc，所以这显然不是正确的事情，但我 不知道如何改变它，所以这是正确的事情。

编辑：将:WAIT NIL添加到两个RUN-PROGRAM调用中，或仅添加到grep调用中，不会别耍花招。在这种情况下，该函数将挂起，并使用 Cc Cc 中断会获取堆栈跟踪，表明有一个名为 SB-UNIX 的本地函数（通过 FLET 定义） :SELECT 已挂起。

Answer 1

我在 comp.lang.lisp。他的解决方案适用于 CMUCL，但它可以在密切相关的 SBCL 上使用基本相同的 RUN-PROGRAM 函数，并且只需稍加更改，它也可以在 CCL 上运行，因为 CCL 的 RUN-PROGRAM 基本上是 CMUCL/SBCL 的克隆。

秘密在于，首先设置 ls 进程，然后将其输出流提供给 grep 进程作为输入，如下所示：

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

我还尝试了省略 ls 的 RUN-PROGRAM 调用中的 :WAIT NIL 参数，效果也一样。

Answer 2

使用 UIOP（包含在 ASDF 中，随实现一起提供）的跨实现的可移植解决方案：

(uiop:run-program "grep lisp"
                   :input
                   (uiop:process-info-output
                    (uiop:launch-program "ls"
                                         :output :stream))
                   :output :string)

launch-program 是同步的并输出到流，而 run-program 是异步的，我们要求它输出到一个字符串。

Answer 3

尝试将 :wait nil 添加到 run-program 的参数中。那应该让你的 grep 和 ls 在后台运行。现在，您正在启动 grep 进程，等待其完成，然后启动要输入到 grep 进程中的 ls 。唉，由于您正在等待 grep 完成，所以您永远不会走那么远。

Answer 4

相关地，但也许没有找到你的问题，你可以这样做：

(with-output-to-string (s)
      (ccl:run-program "sh" (list "-c" "ls a/directory/somewhere/*.lisp") :output s)
      s)

或

(with-output-to-string (s)
      (ccl:run-program "sh" (list "-c" "ls /a/directory/somewhere/*.lisp | wc -l") :output s)
      s)

或者

(with-output-to-string (s)
      (ccl:run-program "ssh" (list "a-user@some-ip" "sh -c ls /a/directory/somewhere/on/remote/server/*.lisp | wc -l") :output s)
      s)

当然，你可以使用

(format nil "ls ~a" directory)

要获取输入，你可以这样做：

(with-output-to-string (out)
      (format t "~%Enter your sudo password:~%")
      (with-input-from-string (s (read))
        (ccl:run-program "ssh" (list *remote* "sudo cat /etc/init.d/nginx")  :input s :output out))
      out)