361 lines
14 KiB
Racket
361 lines
14 KiB
Racket
#lang scribble/doc
|
|
@(require "mz.ss"
|
|
(for-label scheme/system))
|
|
|
|
@title[#:tag "subprocess"]{Processes}
|
|
|
|
@defproc*[([(subprocess [stdout (or/c (and/c output-port? file-stream-port?) #f)]
|
|
[stdin (or/c (and/c input-port? file-stream-port?) #f)]
|
|
[stderr (or/c (and/c output-port? file-stream-port?) #f)]
|
|
[command path-string?]
|
|
[arg string?] ...)
|
|
(values subprocess?
|
|
(or/c (and/c input-port? file-stream-port?) #f)
|
|
(or/c (and/c output-port? file-stream-port?) #f)
|
|
(or/c (and/c input-port? file-stream-port?) #f))]
|
|
[(subprocess [stdout (or/c (and/c output-port? file-stream-port?) #f)]
|
|
[stdin (or/c (and/c input-port? file-stream-port?) #f)]
|
|
[stderr (or/c (and/c output-port? file-stream-port?) #f)]
|
|
[command path-string?]
|
|
[exact 'exact]
|
|
[arg string?])
|
|
(values subprocess?
|
|
(or/c (and/c input-port? file-stream-port?) #f)
|
|
(or/c (and/c output-port? file-stream-port?) #f)
|
|
(or/c (and/c input-port? file-stream-port?) #f))])]{
|
|
|
|
Creates a new process in the underlying operating system to execute
|
|
@scheme[command] asynchronously. See also @scheme[system] and
|
|
@scheme[process] from @schememodname[scheme/system].
|
|
|
|
The @scheme[command] argument is a path to a program executable, and
|
|
the @scheme[arg]s are command-line arguments for the program. Under
|
|
Unix and Mac OS X, command-line arguments are passed as byte strings
|
|
using the current locale's encoding (see @secref["encodings"]).
|
|
|
|
Under Windows, the first @scheme[arg] can be replaced with
|
|
@indexed-scheme['exact], which triggers a Windows-specific behavior:
|
|
the sole @scheme[arg] is used exactly as the command-line for the
|
|
subprocess. Otherwise, under Windows, a command-line string is
|
|
constructed from @scheme[command] and @scheme[arg] so that a typical
|
|
Windows console application can parse it back to an array of
|
|
arguments. If @scheme['exact] is provided on a non-Windows platform,
|
|
the @exnraise[exn:fail:contract].
|
|
|
|
@margin-note{For information on the Windows command-line conventions,
|
|
search for ``command line parsing'' at
|
|
@tt{http://msdn.microsoft.com/}.}
|
|
|
|
Unless it is @scheme[#f], @scheme[stdout] is used for the launched
|
|
process's standard output, @scheme[stdin] is used for the process's
|
|
standard input, and @scheme[stderr] is used for the process's standard
|
|
error. All provided ports must be file-stream ports. Any of the ports
|
|
can be @scheme[#f], in which case a system pipe is created and
|
|
returned by @scheme[subprocess]. For each port that is provided, no
|
|
pipe is created and the corresponding returned value is @scheme[#f].
|
|
|
|
The @scheme[subprocess] procedure returns four values:
|
|
|
|
@itemize[
|
|
|
|
@item{a subprocess value representing the created process;}
|
|
|
|
@item{an input port piped from the process's standard output, or
|
|
@scheme[#f] if @scheme[stdout-output-port] was a port;}
|
|
|
|
@item{an output port piped to the process standard input, or
|
|
@scheme[#f] if @scheme[stdin-input-port] was a port;}
|
|
|
|
@item{an input port piped from the process's standard error, or
|
|
@scheme[#f] if @scheme[stderr-output-port] was a port.}
|
|
|
|
]
|
|
|
|
@bold{Important:} All ports returned from @scheme[subprocess] must be
|
|
explicitly closed with @scheme[close-input-port] or
|
|
@scheme[close-output-port].
|
|
|
|
The returned ports are @tech{file-stream ports} (see
|
|
@secref["file-ports"]), and they are placed into the management of
|
|
the current custodian (see @secref["custodians"]). The
|
|
@exnraise[exn:fail] when a low-level error prevents the spawning of a
|
|
process or the creation of operating system pipes for process
|
|
communication.}
|
|
|
|
|
|
@defproc[(subprocess-wait [subproc subprocess?]) void?]{
|
|
|
|
Blocks until the process represented by @scheme[subproc]
|
|
terminates. The @scheme[subproc] value also can be used with
|
|
@scheme[sync] and @scheme[sync/timeout].}
|
|
|
|
|
|
@defproc[(subprocess-status [subproc subprocess?])
|
|
(or/c 'running
|
|
exact-nonnegative-integer?)]{
|
|
|
|
Returns @indexed-scheme['running] if the process represented by
|
|
@scheme[subproc] is still running, or its exit code otherwise. The
|
|
exit code is an exact integer, and @scheme[0] typically indicates
|
|
success. If the process terminated due to a fault or signal, the exit
|
|
code is non-zero.}
|
|
|
|
|
|
@defproc[(subprocess-kill [subproc subprocess?][force? any/c]) void?]{
|
|
|
|
Terminates the subprocess represented by @scheme[subproc] if
|
|
@scheme[force?] is true and if the process still running. If an error
|
|
occurs during termination, the @exnraise[exn:fail].
|
|
|
|
If @scheme[force?] is @scheme[#f] under @|AllUnix|, the subprocess is
|
|
sent an interrupt signal instead of a kill signal (and the subprocess
|
|
might handle the signal without terminating). Under Windows, no action
|
|
is taken when @scheme[force?] is @scheme[#f].}
|
|
|
|
|
|
@defproc[(subprocess-pid [subproce subprocess?]) exact-nonnegative-integer?]{
|
|
|
|
Returns the operating system's numerical ID (if any) for the process
|
|
represented by @scheme[subproc], valid only as long as the process is
|
|
running.}
|
|
|
|
|
|
@defproc[(subprocess? [v any/c]) boolean?]{
|
|
|
|
Returns @scheme[#t] if @scheme[v] is a subprocess value, @scheme[#f]
|
|
otherwise.}
|
|
|
|
|
|
@defproc[(shell-execute [verb (or/c string? #f)]
|
|
[target string?][parameters string?][dir path-string?][show-mode symbol?])
|
|
#f]
|
|
|
|
@index['("ShellExecute")]{Performs} the action specified by @scheme[verb]
|
|
on @scheme[target] in Windows. For platforms other than Windows, the
|
|
@exnraise[exn:fail:unsupported].
|
|
|
|
For example,
|
|
|
|
@schemeblock[
|
|
(shell-execute #f "http://www.plt-scheme.org" ""
|
|
(current-directory) 'sw_shownormal)
|
|
]
|
|
|
|
Opens the PLT Scheme home page in a browser window.
|
|
|
|
The @scheme[verb] can be @scheme[#f], in which case the operating
|
|
system will use a default verb. Common verbs include @scheme["open"],
|
|
@scheme["edit"], @scheme["find"], @scheme["explore"], and
|
|
@scheme["print"].
|
|
|
|
The @scheme[target] is the target for the action, usually a filename
|
|
path. The file could be executable, or it could be a file with a
|
|
recognized extension that can be handled by an installed application.
|
|
|
|
The @scheme[parameters] argument is passed on to the system to perform
|
|
the action. For example, in the case of opening an executable, the
|
|
@scheme[parameters] is used as the command line (after the executable
|
|
name).
|
|
|
|
The @scheme[dir] is used as the current directory when performing the
|
|
action.
|
|
|
|
The @scheme[show-mode] sets the display mode for a Window affected by
|
|
the action. It must be one of the following symbols; the description
|
|
of each symbol's meaning is taken from the Windows API documentation.
|
|
|
|
@itemize[
|
|
|
|
@item{@indexed-scheme['sw_hide] or @indexed-scheme['SW_HIDE] ---
|
|
Hides the window and activates another window.}
|
|
|
|
@item{@indexed-scheme['sw_maximize] or @indexed-scheme['SW_MAXIMIZE]
|
|
--- Maximizes the window.}
|
|
|
|
@item{@indexed-scheme['sw_minimize] or @indexed-scheme['SW_MINIMIZE]
|
|
--- Minimizes the window and activates the next top-level window in
|
|
the z-order.}
|
|
|
|
@item{@indexed-scheme['sw_restore] or @indexed-scheme['SW_RESTORE]
|
|
--- Activates and displays the window. If the window is minimized or
|
|
maximized, Windows restores it to its original size and position.}
|
|
|
|
@item{@indexed-scheme['sw_show] or @indexed-scheme['SW_SHOW] ---
|
|
Activates the window and displays it in its current size and
|
|
position.}
|
|
|
|
@item{@indexed-scheme['sw_showdefault] or
|
|
@indexed-scheme['SW_SHOWDEFAULT] --- Uses a default.}
|
|
|
|
@item{@indexed-scheme['sw_showmaximized] or
|
|
@indexed-scheme['SW_SHOWMAXIMIZED] --- Activates the window and
|
|
displays it as a maximized window.}
|
|
|
|
@item{@indexed-scheme['sw_showminimized] or
|
|
@indexed-scheme['SW_SHOWMINIMIZED] --- Activates the window and
|
|
displays it as a minimized window.}
|
|
|
|
@item{@indexed-scheme['sw_showminnoactive] or
|
|
@indexed-scheme['SW_SHOWMINNOACTIVE] --- Displays the window as a
|
|
minimized window. The active window remains active.}
|
|
|
|
@item{@indexed-scheme['sw_showna] or @indexed-scheme['SW_SHOWNA] ---
|
|
Displays the window in its current state. The active window remains
|
|
active.}
|
|
|
|
@item{@indexed-scheme['sw_shownoactivate] or
|
|
@indexed-scheme['SW_SHOWNOACTIVATE] --- Displays a window in its most
|
|
recent size and position. The active window remains active.}
|
|
|
|
@item{@indexed-scheme['sw_shownormal] or
|
|
@indexed-scheme['SW_SHOWNORMAL] --- Activates and displays a
|
|
window. If the window is minimized or maximized, Windows restores it
|
|
to its original size and position.}
|
|
|
|
]
|
|
|
|
If the action fails, the @exnraise[exn:fail]. If the action succeeds,
|
|
the result is @scheme[#f].
|
|
|
|
In future versions of Scheme, the result may be a subprocess value if
|
|
the operating system did returns a process handle (but if a subprocess
|
|
value is returned, its process ID will be @scheme[0] instead of the
|
|
real process ID).
|
|
|
|
@; ----------------------------------------------------------------------
|
|
|
|
@section{Simple Subprocesses}
|
|
|
|
@note-lib-only[scheme/system]
|
|
|
|
@defproc[(system [command string?]) boolean?]{
|
|
|
|
Executes a Unix, Mac OS X, or Windows shell command synchronously
|
|
(i.e., the call to @scheme[system] does not return until the
|
|
subprocess has ended). The @scheme[command] argument is a string
|
|
containing no nul characters. If the command succeeds, the return
|
|
value is @scheme[#t], @scheme[#f] otherwise.}
|
|
|
|
|
|
@defproc*[([(system* [command path-string?][arg string?] ...) boolean?]
|
|
[(system* [command path-string?][exact 'exact][arg string?]) boolean?])]{
|
|
|
|
Like @scheme[system], except that @scheme[command] is a filename that
|
|
is executed directly (instead of through a shell command), and the
|
|
@scheme[arg]s are the arguments. The executed file is passed the
|
|
specified string arguments (which must contain no nul
|
|
characters).
|
|
|
|
Under Windows, the first argument after @scheme[command] can be
|
|
@scheme['exact], and the final @scheme[arg] is a complete command
|
|
line. See @scheme[subprocess] for details.}
|
|
|
|
|
|
@defproc[(system/exit-code [command string?]) (integer-in 0 255)]{
|
|
|
|
Like @scheme[system], except that the result is the exit code returned
|
|
by the subprocess. A @scheme[0] result normally indicates success.}
|
|
|
|
|
|
@defproc*[([(system*/exit-code [command path-string?][arg string?] ...) (integer-in 0 255)]
|
|
[(system*/exit-code [command path-string?][exact 'exact][arg string?]) (integer-in 0 255)])]{
|
|
|
|
Like @scheme[system*], but returns the exit code like
|
|
@scheme[system/exit-code].}
|
|
|
|
|
|
@defproc[(process [command string?])
|
|
(list input-port?
|
|
output-port?
|
|
exact-nonnegative-integer?
|
|
input-port?
|
|
((or/c 'status 'wait 'interrupt 'kill) . -> . any))]{
|
|
|
|
Executes a shell command asynchronously. The result is a list of five values:
|
|
|
|
@itemize[
|
|
|
|
@item{an input port piped from the subprocess's standard output,}
|
|
|
|
@item{an output port piped to the subprocess standard input,}
|
|
|
|
@item{the system process id of the subprocess,}
|
|
|
|
@item{an input port piped from the subprocess's standard
|
|
error, and}
|
|
|
|
@item{a procedure of one argument, either @scheme['status],
|
|
@scheme['wait], @scheme['interrupt], or @scheme['kill]:
|
|
|
|
@itemize[
|
|
|
|
@item{@scheme['status] returns the status of the subprocess as one
|
|
of @scheme['running], @scheme['done-ok], or
|
|
@scheme['done-error].}
|
|
|
|
@item{@scheme['exit-code] returns the integer exit code of the
|
|
subprocess or @scheme[#f] if it is still running.}
|
|
|
|
@item{@scheme['wait] blocks execution in the current thread until
|
|
the subprocess has completed.}
|
|
|
|
@item{@scheme['interrupt] sends the subprocess an interrupt signal
|
|
under @|AllUnix|, and takes no action under Windows. The result is
|
|
@|void-const|.}
|
|
|
|
@item{@scheme['kill] terminates the subprocess and returns
|
|
@|void-const|. Note that the immediate process created by
|
|
@scheme[process] is a shell process that may run another program;
|
|
terminating the shell process may not terminate processes that
|
|
the shell starts, particularly under Windows.}
|
|
|
|
]}
|
|
|
|
]
|
|
|
|
@bold{Important:} All three ports returned from @scheme[process] must
|
|
be explicitly closed with @scheme[close-input-port] or
|
|
@scheme[close-output-port].}
|
|
|
|
|
|
@defproc*[([(process* [command path-string?][arg string?] ...) list?]
|
|
[(process* [command path-string?][exact 'exact][arg string?]) list?])]{
|
|
|
|
Like @scheme[process], except that @scheme[command] is a filename that
|
|
is executed directly, and the @scheme[arg]s are the arguments. Under
|
|
Windows, as for @scheme[system*], the first @scheme[arg] can be
|
|
replaced with @scheme['exact].}
|
|
|
|
|
|
@defproc[(process/ports [out (or/c #f output-port?)]
|
|
[in (or/c #f input-port?)]
|
|
[error-out (or/c #f output-port?)]
|
|
[command string?])
|
|
list?]{
|
|
|
|
Like @scheme[process], except that @scheme[out] is used for the
|
|
process's standard output, @scheme[in] is used for the process's
|
|
standard input, and @scheme[error-out] is used for the process's
|
|
standard error. Any of the ports can be @scheme[#f], in which case a
|
|
system pipe is created and returned, as in @scheme[process]. For each
|
|
port that is provided, no pipe is created, and the corresponding value
|
|
in the returned list is @scheme[#f].}
|
|
|
|
@defproc*[([(process*/ports [out (or/c #f output-port?)]
|
|
[in (or/c #f input-port?)]
|
|
[error-out (or/c #f output-port?)]
|
|
[command path-string?]
|
|
[arg string?] ...)
|
|
list?]
|
|
[(process*/ports [out (or/c #f output-port?)]
|
|
[in (or/c #f input-port?)]
|
|
[error-out (or/c #f output-port?)]
|
|
[command path-string?]
|
|
[exact 'exact]
|
|
[arg string?])
|
|
list?])]{
|
|
|
|
Like @scheme[process*], but with the port handling of
|
|
@scheme[process/ports].}
|
|
|