Запуск команд Shell с GNU Breisp

Question

Я пытаюсь создать команду «Система» для клипа, которая работает так

(setq result (system "pwd"))

;;now result is equal to /my/path/here

У меня есть что-то подобное:

(defun system (cmd)
 (ext:run-program :output :stream))

Но я не уверен, как преобразовать поток в строку. Я рассмотрел гиперспец и Google более нескольких раз.

Редактировать: Работа с командой ranier и используя с помощью opte-to-Stream,

(defun system (cmd)
  (with-output-to-string (stream)
    (ext:run-program cmd :output stream)))

А затем пытаться бежать grep, который на моем пути ...

[11]> (system "grep")

*** - STRING: argument #<OUTPUT STRING-OUTPUT-STREAM> should be a string, a
      symbol or a character
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead.
ABORT          :R2      Abort main loop
Break 1 [12]> :r2

Answer 1

Что-то вроде этого?

Версия 2:

(defun copy-stream (in out)
   (loop for line = (read-line in nil nil)
         while line
         do (write-line line out)))

(defun system (cmd)
  (with-open-stream (s1 (ext:run-program cmd :output :stream))
    (with-output-to-string (out)
      (copy-stream s1 out))))


[6]> (system "ls")
"#.emacs#
Applications
..."

Answer 2

За то Документация на клип run-program, то :output аргумент должен быть одним из

• :terminal - пишет к терминалу
• :stream - создает и возвращает А.Н. входной поток из которого вы можете прочитать
• а. Диналог Pathname - пишет в назначенный файл
• nil - игнорирует вывод

Если вы хотите собрать вывод в строку, вам придется использовать цикл копирования чтения-записи для передачи данных из возвращаемого потока в строку. У тебя уже есть with-output-to-string в игре, на предложение Rainer, но вместо того, чтобы обеспечить этот выходной поток к run-program, Вам нужно будет написать это самостоятельно, копируя данные из входной поток возвращено run-program.

Answer 3

Вы спрашиваете специально о клипе. Я добавлю здесь, что если вы используете Clozure CL, вы также можете легко запускать подпроцессы ОС.

Несколько примеров:

;;; Capture the output of the "uname" program in a lisp string-stream
;;; and return the generated string (which will contain a trailing
;;; newline.)
? (with-output-to-string (stream)
    (run-program "uname" '("-r") :output stream))
;;; Write a string to *STANDARD-OUTPUT*, the hard way.
? (run-program "cat" () :input (make-string-input-stream "hello") :output t)
;;; Find out that "ls" doesn't expand wildcards.
? (run-program "ls" '("*.lisp") :output t)
;;; Let the shell expand wildcards.
? (run-program "sh" '("-c" "ls *.lisp") :output t)

Сделайте поиск Run-Program в CCL Docs, расположенные здесь: http://ccl.clozure.com/ccl-documentation.html.

Есть пара приятных лидных способов сделать это в этом ответе в этой стойке: Сделать системный вызов, который возвращает вывод STDOUT в виде строки Еще раз, Rainer к спасению. Спасибо Ранье.

Answer 4

Это более короткий

(defun system(cmd)
  (ext:shell (string cmd)))

> (system '"cd ..; ls -lrt; pwd")