15 lines
728 B
Common Lisp
15 lines
728 B
Common Lisp
|
(defun exec-command (command &key (env-vars nil))
|
||
|
|
(let* ((default-env '(("PATH" . "\"$PATH:./scripts\"")))
|
||
|
|
(combined-env (append default-env env-vars))
|
||
|
|
(full-command (format nil "~{~a=~a~} ; ~a"
|
||
|
|
(mapcan (lambda (kv) (list (car kv) (cdr kv)))
|
||
|
|
combined-env)
|
||
|
|
command)))
|
||
|
|
(with-open-stream (output-stream
|
||
|
|
(ext:run-program "/bin/sh" :arguments (list "-c" full-command)
|
||
|
|
:output :stream))
|
||
|
|
(with-output-to-string (result)
|
||
|
|
(loop for line = (read-line output-stream nil nil)
|
||
|
|
while line do (format result "~a~%" line))))))
|
||
|
|
|