python - 普通口齿不清 : Launch subprocess with different working directory than lisp process

Question

假设我有一个目录 A 和子目录 B。我 cd 进入 A 并启动 lisp。在那个 lisp 进程中，我想启动一个 Python 子进程，其中 Python 将 B 视为其当前工作目录。 lisp 进程需要在 A 中有 cwd，而 python 进程应该在 B 中有 cwd。我如何以跨平台、简单的方式做到这一点？

我正在寻找适用于 CCL 和 SBCL(可能使用“运行程序功能”)并适用于 Windows、Linux 和 OS X 的解决方案。

我查看了 CCL 运行程序文档，但没有看到更改已启动进程的 cwd 的方法。

我查看了 Python 命令行参数，但没有看到会更改 python 进程的 cwd 的参数。

我想到了一个运行程序调用 'cd B; python ...'，但我不确定它是如何工作的，因为它实际上在运行两个程序； cd，然后python。

Python 代码作为输入(作为文件)提供，因此我无法更改任何代码(通过添加 os.chdir() 调用或类似调用)。

将 python 输入文件作为子进程启动的 python 包装器文件并不理想，因为我正在发送 stdin 并监听 lisp 启动的 python 进程的 stdout。在 lisp 和评估输入文件的 python 进程之间添加另一个子进程意味着我需要做大量的 stout/stdin 中继，我觉得这会很脆弱。

krzysz00 的方法非常有效。由于目录更改是在 lisp 中处理的，因此在启动 python 进程之前，这种方法将适用于在不同子目录(不仅仅是 python)中启动其他进程。

对于文档，这是我的代码，使用适用于 SBCL 和 CCL 的 krzsz00 方法。请注意，它使用了 Hoyte 的 defmacro!宏，来自 Let Over Lambda ，轻松避免不需要的变量捕获:

#+:SBCL
(defun cwd (dir)
  (sb-posix:chdir dir))

(defun getcwd ()
  #+SBCL (sb-unix:posix-getcwd)
  #+CCL (current-directory))

(defmacro! with-cwd (dir &body body)
  `(let ((,g!cwd (getcwd)))
     (unwind-protect (progn
                       (cwd ,dir)
                       ,@body)
     (cwd ,g!cwd))))

用法:

(with-cwd "./B"
  (run-program ...))

Answer 1

要运行外部程序(如可移植的 python 进程)，请参阅 external-program .要更改当前工作目录，请使用文件 http://files.b9.com/lboot/utils.lisp 中的这个稍微修改过的(公共(public)域)函数 cwd ，转载如下。

(defun cwd (&optional dir)
  "Change directory and set default pathname"
  (cond
   ((not (null dir))
    (when (and (typep dir 'logical-pathname)
           (translate-logical-pathname dir))
      (setq dir (translate-logical-pathname dir)))
    (when (stringp dir)
      (setq dir (parse-namestring dir)))
    #+allegro (excl:chdir dir)
    #+clisp (#+lisp=cl ext:cd #-lisp=cl lisp:cd dir)
    #+(or cmu scl) (setf (ext:default-directory) dir)
    #+cormanlisp (ccl:set-current-directory dir)
    #+(and mcl (not openmcl)) (ccl:set-mac-default-directory dir)
    #+openmcl (ccl:cwd dir)
    #+gcl (si:chdir dir)
    #+lispworks (hcl:change-directory dir)
    #+sbcl (sb-posix:chdir dir)
    (setq cl:*default-pathname-defaults* dir))
   (t
    (let ((dir
       #+allegro (excl:current-directory)
       #+clisp (#+lisp=cl ext:default-directory #-lisp=cl lisp:default-directory)
       #+(or cmu scl) (ext:default-directory)
       #+sbcl (sb-unix:posix-getcwd/)
       #+cormanlisp (ccl:get-current-directory)
       #+lispworks (hcl:get-working-directory)
       #+mcl (ccl:mac-default-directory)
       #-(or allegro clisp cmu scl cormanlisp mcl sbcl lispworks) (truename ".")))
      (when (stringp dir)
    (setq dir (parse-namestring dir)))
      dir))))

结合这两个函数，你想要的代码是:

(cwd #p"../b/")
(external-program:start "python" '("file.py") :output *pythins-stdout-stream* :input *pythons-stdin-stream*)
(cwd #p"../a/")

这将 cd 到 B，运行 python 进程，就像通过 python file.py & 一样，将 python 进程的标准输入/标准输出发送到指定的流(看external-program 文档了解更多细节)，最后执行另一个 cwd 将 lisp 进程返回给 A。如果 lisp 进程应该等到 python 进程完成，使用 external-program:run 而不是 external-program:start。