Can I specify directory for shell command?

Question

I use the following function to run shell commands:

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

For example, How to specify the current directory for command python -m CGIHTTPServer ?

Sincerely!

One way is to cd to the directory before execution since the script will run in your current directory. — keyser, Sep 17 '12 at 08:53
(probe-file #P"./") will return the current directory which i want to change when executing the shell commnands. Now i use a script to wrap the shell command , then i run the script in which i can `cd` to any specified directory. — z_axis, Sep 18 '12 at 06:03
@wvxvw you are right. i need to concatenate the command before calling sh function. thanks! — z_axis, Sep 20 '12 at 07:46

score 3 · Accepted Answer · answered Sep 25 '12 at 14:22

In ECL you can use EXT:CHDIR before SYSTEM, which changes both default-pathname-defaults and the value of the current directory, as understood by the operating system and C library.

BTW: If possible use (EXT:RUN-PROGRAM "command" list-of-args) instead

score 0 · Answer 2 · answered Apr 18 '14 at 18:15

A more portable way would be to use pathnames and dynamically binding *default-pathname-defaults*, which would effectively set your current working directory. I had the same problem today. Here is a working adaptation of dot->png from Land of Lisp text by Conrad Barski, that specifies the current working directory:

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

Posted in the hope that this could be useful to someone in a similar situation & running across this thread.

Can I specify directory for shell command?

2 Answers2