Могу ли я указать каталог для команды оболочки?

Question

Я использую следующую функцию для запуска команд оболочки:

(defun sh (cmd)
  #+clisp (shell cmd)
  #+ecl (si:system cmd)
  #+sbcl (sb-ext:run-program "/bin/sh" (list "-c" cmd) :input nil :output*standard-output*)
  #+clozure (ccl:run-program "/bin/sh" (list "-c" cmd) :input nil :output*standard-output*)))

Например, Как указать текущий каталог для команды python -m CGIHTTPServer?

Искренне!

Answer 1

В ECL вы можете использовать EXT:CHDIR перед SYSTEM, который изменяет как default-pathname-defaults, так и значение текущего каталога, как это понимают операционная система и библиотека C.

КСТАТИ: Если возможно, используйте вместо этого (EXT:RUN-PROGRAM "команда" список аргументов)

Answer 2

Более портативный способ - использовать имена путей и динамическое связывание. *default-pathname-defaults*, который бы эффективно установить ваш текущий рабочий каталог. У меня была такая же проблема сегодня. Вот рабочая адаптация dot->png из текста Land of Lisp Конрада Барского, который указывает текущий рабочий каталог:

(defun dot->png (filespec thunk)
  "Save DOT information generated by a thunk on a *STANDARD-OUTPUT* to a FILESPEC file. Then use FILESPEC to create a corresponding png picture of a graph."
  ;; dump DOT file first
  (let ((*default-pathname-defaults*
          (make-pathname :directory (pathname-directory (pathname filespec)))))
    ;; (format t "pwd (curr working dir): ~A~%" *default-pathname-defaults*)
    (with-open-file (*standard-output* 
                     filespec
                     :direction :output
                     :if-exists :supersede)
      (funcall thunk))
    #+sbcl
    (sb-ext:run-program "/bin/sh" 
                        (list "-c" (concatenate 'string "dot -Tpng -O " filespec))
                        :input nil
                        :output *standard-output*)
    #+clozure
    (ccl:run-program "/bin/sh" 
                     (list "-c" (concatenate 'string "dot -Tpng -O" filespec))
                     :input nil
                     :output *standard-output*)))

Опубликовано в надежде, что это может быть полезно для кого-то в аналогичной ситуации и работает через эту тему.