NextPrevUpTopContentsIndex

run-shell-command

Function
Package

system

Signature

run-shell-command command &key input output error-output separate-streams wait if-input-does-not-exist if-output-exists if-error-output-exists show-window environment element-type save-exit-status => result

Signature

run-shell-command command &key input output error-output separate-streams wait if-input-does-not-exist if-output-exists if-error-output-exists show-window environment element-type save-exit-status => stream , error-stream , process

Arguments

command

A string or a sequence of strings.

input

nil , :stream or a file designator. Default value nil .

output

nil , :stream or a file designator. Default value nil .

error-output

nil , :stream, :output or a file designator. Default value nil .

separate-streams

A boolean. True value not currently supported.

wait

A boolean, default value t .

if-input-does-not-exist

:error , :create or nil . Default value :error .

if-output-exists

:error , :overwrite , :append , :supersede or nil . Default value :error .

if-error-output-exists

:error , :overwrite , :append , :supersede or nil . Default value :error .

show-window

A boolean. True value not currently supported.

environment

An alist of strings naming environment variables and values. Default value nil .

element-type

Default value base-char .

save-exit-status

A boolean, default value nil .

Values

result

The exit status of the process running command, or a process ID

stream

A stream, or nil .

error-stream

A stream, or nil .

process

A process ID.

Description

The function run-shell-command allows Unix shell commands to be called from Lisp code with redirection of the stdout, stdin and stderr to Lisp streams. It creates a subprocess which executes the command command .

The argument command is interpreted as by call-system. The shell in which the command is run is determined by the environment variable SHELL, or defaults to /bin/csh or /bin/sh if that does not exist

If wait is true, then run-shell-command executes command and does not return until the process has exited. In this case none of input , output or error-output may have the value :stream , and the single value result is the exit status of the process that ran command .

If wait is nil and none of input , output or error-output have the value :stream then run-shell-command executes command and returns a single value result which is the process ID of the process running command .

If wait is nil and either of input or output have the value :stream then run-shell-command executes command and returns three values: stream is a Lisp stream which acts as the stdout of the process if output is :stream , and is the stdin of the process if input is :stream . error-stream is determined by the argument error-output as described below. process is the process ID of the process.

If wait is nil and neither of input or output have the value :stream then the first return value, stream , is nil .

If wait is nil and error-output has the value :stream then run-shell-command executes command and returns three values. stream is determined by the arguments input and output as described above. error-stream is a Lisp stream which acts as the stderr of the process. process is the process ID of the process.

If wait is nil and error-output is not :stream then the second return value, error-stream , is nil . If error-output is :output , then stderr goes to the same place as stdout.

If input is a pathname or string, then open is called with :if-does-not-exist if-input-does-not-exist . The resulting file-stream acts as the stdin of the process.

If output is a pathname or string, then open is called with :if-exists if-output-exists . The resulting file-stream acts as the stdout of the process.

If error-output is a pathname or string, then open is called with :if-exists if-error-output-exists . The resulting file-stream acts as the stderr of the process.

This table describes the streams created, for each combination of stream arguments:

 

The streams created by run-shell-command

Arguments

stream

error-stream

input is :stream
output is :stream
error-output is :stream

An I/O stream connected to stdin and stdout

An input stream connected to stderr

input is not :stream
output is :stream
error-output is :stream

An input stream connected to stdout

An input stream connected to stderr

input is :stream
output is not :stream
error-output is :stream

An output stream connected to stdin

An input stream connected to stderr

input is not :stream
output is not :stream
error-output is :stream

nil

An input stream connected to stderr

input is :stream
output is :stream
error-output is :output

An I/O stream connected to stdin, stdout and stderr

nil

input is not :stream
output is :stream
error-output is :output

An input stream connected to stdout and stderr

nil

input is :stream
output is not :stream
error-output is :output

An output stream connected to stdin

nil

input is not :stream
output is not :stream
error-output is :output

nil

nil

input is :stream
output is :stream
error-output is not :stream or :output

An I/O stream connected to stdin and stdout

nil

input is not :stream
output is :stream
error-output is not :stream or :output

An input stream connected to stdout

nil

input is :stream
output is not :stream
error-output is not :stream or :output

An output stream connected to stdin

nil

input is not :stream
output is not :stream
error-output is not :stream or :output

nil

nil

If any of input , output or error-output are streams, then they must be file-stream s or socket-streams capable of acting as the stdin, stdout or stderr of the process.

environment should be an alist of strings naming environment variables and their values. The process runs in an enviroment inherited from the Lisp process, augmented by environment .

If save-exit-status is true, then the system stores the exit status of the process, so that it can be recovered by calling pid-exit-status.

Note: run-shell-command is implemented only for Unix/Linux/Mac OS X.

Example
(multiple-value-bind (out err pid)
    (sys:run-shell-command "sh -c 'echo foo >&2; echo bar'"
			   :wait nil
			   :output :stream
			   :error-output :stream)
  (with-open-stream (out out)
    (with-open-stream (err err)
      (values (read-line out) (read-line err)))))
=> 
"bar", "foo"
See also

call-system
call-system-showing-output
open-pipe


LispWorks Reference Manual - 23 Jul 2004

NextPrevUpTopContentsIndex