Skip to content
Snippets Groups Projects
Commit 6880f454 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

run-program/ is now run-program!

parent da30c0d4
No related branches found
No related tags found
No related merge requests found
...@@ -35,7 +35,7 @@ Example use of inferior-shell, from the rpm system: ...@@ -35,7 +35,7 @@ Example use of inferior-shell, from the rpm system:
==== Limitations ==== ==== Limitations ====
By default, inferior-shell uses xcvb-driver:run-program/ By default, inferior-shell uses asdf-driver:run-program
as its universal execution backend, and has its limitations, as its universal execution backend, and has its limitations,
which are as follows. which are as follows.
...@@ -113,7 +113,7 @@ RUN CMD &KEY ON-ERROR TIME SHOW HOST OUTPUT ...@@ -113,7 +113,7 @@ RUN CMD &KEY ON-ERROR TIME SHOW HOST OUTPUT
but strips any line-ending at the end of the results, but strips any line-ending at the end of the results,
just like a shell's `cmd` or $(cmd) would do, just like a shell's `cmd` or $(cmd) would do,
more options are accepted and you can define your own, as per more options are accepted and you can define your own, as per
xcvb-driver's slurp-input-stream protocol. asdf-driver's slurp-input-stream protocol.
On Windows, RUN will not succeed for pipes, only for simple commands. On Windows, RUN will not succeed for pipes, only for simple commands.
On Unix, simple commands on localhost are executed directly, but On Unix, simple commands on localhost are executed directly, but
remote commands and pipes are executed by spawning a shell. remote commands and pipes are executed by spawning a shell.
...@@ -133,7 +133,7 @@ RUN/LINES CMD &KEY ON-ERROR TIME SHOW HOST ...@@ -133,7 +133,7 @@ RUN/LINES CMD &KEY ON-ERROR TIME SHOW HOST
*BACKEND* *BACKEND*
a variable to choose between backends. Currently, only supported are a variable to choose between backends. Currently, only supported are
:AUTO (the default, using xcvb-driver:run-program/, and :AUTO (the default, using asdf-driver:run-program, and
spawning a shell unless it's a simple process), and spawning a shell unless it's a simple process), and
:SBCL (only available on #+(and sbcl sb-thread unix), :SBCL (only available on #+(and sbcl sb-thread unix),
doesn't need a shell but has some limitations such as doesn't need a shell but has some limitations such as
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
(defsystem :inferior-shell (defsystem :inferior-shell
:defsystem-depends-on (:asdf :asdf-driver) :defsystem-depends-on (:asdf :asdf-driver)
:depends-on (:asdf-driver :fare-utils :alexandria :fare-quasiquote-extras :fare-mop :depends-on (:asdf-driver :fare-utils :alexandria :fare-quasiquote-extras :fare-mop :optima
#+sbcl :sb-posix) #+sbcl :sb-posix)
:description "spawn local or remote processes and shell pipes" :description "spawn local or remote processes and shell pipes"
:around-compile "asdf-driver:call-with-safe-io-syntax" :around-compile "asdf-driver:call-with-safe-io-syntax"
......
#+xcvb (module (:depends-on ("pkgdcl"))) #+xcvb (module (:depends-on ("pkgdcl")))
(in-package :inferior-shell) (cl:in-package :inferior-shell)
(in-readtable :fare-quasiquote) (in-readtable :fare-quasiquote)
......
...@@ -31,9 +31,9 @@ ...@@ -31,9 +31,9 @@
spec)))) spec))))
(case output (case output
((t) ((t)
(run-program/ command :ignore-error-status ignore-error-status)) (run-program command :ignore-error-status ignore-error-status))
(otherwise (otherwise
(run-program/ (run-program
command :ignore-error-status ignore-error-status :output output))))) command :ignore-error-status ignore-error-status :output output)))))
(defun run-process-spec (spec &rest keys &key ignore-error-status output host backend) (defun run-process-spec (spec &rest keys &key ignore-error-status output host backend)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment