Существует ли стандартный способ запуска внешней программы в Common Lisp?

В сжатом виде работает следующий код:

(defun hit-history () (shell "tail ssqHitNum.txt"))

Однако в Clozure CL функция shell не поддерживается!

Ответ 1

Нет, стандартного способа нет, но есть библиотеки, которые предоставляют эту функциональность для важных реализаций. Например, существует тривиальная оболочка, доступная в Quicklisp, которая предоставляет shell-command. (Я на самом деле не тестировал его, но его среди рекомендованных библиотек на CLiki.) Существует также внешняя программа. Обновление: inferior-shell кажется предпочтительным в наши дни, как указывает Эввинс в комментарии и его собственном ответе.

Вы также можете использовать условные выражения для чтения, чтобы разные реализации использовали свои соответствующие функции для этого.

CCL имеет ccl:run-program, например:

CL-USER> (run-program "whoami" '() :output *standard-output*)
foobar
#<EXTERNAL-PROCESS (whoami)[NIL] (EXITED : 0) #xC695EA6>

Ответ 2

синхронные команды: uiop:run-program (документация в источнике)
асинхронные команды: uiop:launch-program (документация в источнике)

(edit jan 18) Здесь они более подробно описаны: https://lispcookbook.github.io/cl-cookbook/os.html#running-external-programs

trivial-shell устарел и заменен на inferior-shell, который внутренне использует портативный uiop run-program (синхронно), поэтому мы можем использовать именно это.

Для асинхронных команд оболочки см. uiop launch-program.

Ответ 3

(defun dot->png (fname thunk)
   (with-open-file (*standard-output*
       fname
       :direction :output
       :if-exists :superseded)
     (funcall thunk))
   (ccl:run-program "dot" (list "-Tpng -O" fname))
)

i успех в ccl (clozure), когда участок исследования lisp p123

Ответ 4

Ниже показан пример вызова wget из общего lisp:

https://diasp.eu/posts/1742240

Здесь код:

(sb-ext:run-program "/usr/bin/wget" '("-O" "<path-to-output-file>" "<url-link>") :output *standard-output*)

Ответ 5

Посмотрите на пакет inferior-shell.

(Получите его через всплывающий диспетчер пакетов quicklisp.)

Это работает в интерпретаторе, если у вас есть интернет:

(require 'inferior-shell)
(inferior-shell:run/s '(curl icanhazip.com))

Ответ 6

CL21 определяет простые методы:

(in-package :cl21-user)
(use-package :cl21.process)

Затем либо с run-process, либо с макросом # `reader:

(run-process '("ls" "-l"))
;-> total 0
;   drwxrwxrwt    5 root         wheel   170 Nov  1 18:00 Shared
;   drwxr-xr-x+ 174 nitro_idiot  staff  5916 Mar  5 21:41 nitro_idiot
;=> #<PROCESS /bin/sh -c ls -l /Users (76468) EXITED 0>

или

#`ls -l /Users`
;=> "total 0
;   drwxrwxrwt    5 root         wheel   170 Nov  1 18:00 Shared
;   drwxr-xr-x+ 174 nitro_idiot  staff  5916 Mar  5 21:41 nitro_idiot
;   "
;   ""
;   0

Источник показывает реализацию для SBCL и CCL.