запуск команд оболочки с помощью gnu clisp - PullRequest
Новая
       21

запуск команд оболочки с помощью gnu clisp

4 голосов
/ 11 июня 2010

Я пытаюсь создать "системную" команду для clisp, которая работает следующим образом 

(setq result (system "pwd"))

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

У меня есть что-то вроде этого: 

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

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

edit: работа с командой Ranier и использование with-output-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

Ответы [ 4 ]

5 голосов
/ 11 июня 2010

Как то так?

Версия 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
..."
3 голосов
/ 11 июня 2010

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

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

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

2 голосов
/ 18 мая 2011

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

Некоторые примеры: 

;;; 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)

Выполните поиск прогона программы в документации CCL, расположенной здесь: http://ccl.clozure.com/ccl-documentation.html

В этом ответе stackoverflow есть пара хороших способов для Lisp: Выполнение системного вызова, который возвращает вывод stdout в виде строки Еще раз, Rainer на помощь. Спасибо Ренье.

0 голосов
/ 10 июля 2014

Это короче 

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

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