NextPrevUpTopContentsIndex

open-pipe

Function
Summary

Runs a command in a subshell.

Package

system

Signature

open-pipe command &key direction element-type interrupt-off shell-type => stream

Arguments

command

A string, or a list of strings, or nil .

direction

:input , :output or :io .

element-type

A type specifier.

interrupt-off

A boolean. Not implemented on Windows.

shell-type

A shell type.

Values

stream

A pipe stream.

Description

On Unix/Linux/Mac OS X the behaviour of open-pipe is analogous to that of popen in the UNIX library. It creates a pipe to/from a subprocess and returns a stream. The stream can be read from or written to as appropriate.

On Windows open-pipe calls CreateProcess and CreatePipe and returns a bidirectional stream.

If command is a string then it is passed to the shell as the command to run. If command is a list, then the first element is the command to run directly and the other elements are passed as arguments on the command line. If command is nil , then the shell is run.

direction is a keyword for the stream direction. The default value is :input . Bidirectional (i/o) pipes may be created by pasing :io . See the example below. This argument is ignored on Windows.

element-type specifies the type of the stream as with open. The default value is base-char . This argument is ignored on Windows.

interrupt-off , if t , ensures that Ctrl+C (SIGINT) to the LispWorks image is ignored by the subprocess. This argument is not implemented on Windows.

shell-type specifies the type of shell to run. On UNIX/Linux/Mac OS X the default value is "/bin/sh" . On Windows the default value is "cmd" . Note that on Windows ME/98/95 you will need to pass "command" .

stream supports mixed character and binary I/O in the same way as file streams constructed by open.

Examples

Example on Unix:

CL-USER 1 > (setf *ls* (sys:open-pipe "ls"))
Warning: Setting unbound variable *LS*
#<SYSTEM::PIPE-STREAM "ls">
 
CL-USER 2 > (loop while 
                  (print (read-line *ls* nil nil)))
 
"hello" 
"othello" 
NIL 
NIL
 
CL-USER 3 > (close *ls*)
T

The following example shows you how to use bidirectional pipes.

CL-USER 1 >  (with-open-stream
                   (s (sys:open-pipe "/bin/csh"
                                     :direction :io))
                 (write-line "whereis ls" s) 
                 (force-output s)
                 (read-line s))
"ls: /sbin/ls /usr/bin/ls /usr/share/man/man1.Z/ls.1"
NIL

Example on Windows

CL-USER 40 > (setf *ls* (sys:open-pipe "dir"))
#<WIN32::TWO-WAY-PIPE-STREAM 205F03F4>
 
CL-USER 41 > (loop while 
                   (print (read-line *ls* nil nil)))
 
" Volume in drive Z is lispsrc" 
" Volume Serial Number is 82E3-1342" 
"" 
" Directory of Z:\\v42\\delivery-tests" 
"" 
"20/02/02  11:57a        <DIR>          ." 
"20/02/02  11:57a        <DIR>          .." 
"14/02/02  07:04p             6,815,772 othello.exe" 
"14/02/02  07:07p             6,553,628 hello.exe" 
"               4 File(s)     13,369,400 bytes" 
"                          3,974,103,040 bytes free" 
NIL 
NIL
 
CL-USER 42 > (close *ls*)
T
See also

call-system
call-system-showing-output


LispWorks Reference Manual - 23 Jul 2004

NextPrevUpTopContentsIndex