получить выход из системной команды в схеме цыпленка

Question

Как я могу получить вывод из системной команды в Chicken Scheme?

Вот как я это делаю, я обычно делают это в NewLISP:

(nth 0 (exec "<COMMAND>")) 
;; the `(nth 0...` is just there 'cause I only care about the first element in 
;; the list returned by `exec` 

Answer 1

Блок posix, встроенный в Chicken Scheme, имеет канал вызова с выходом. Его можно сочетать с чтением все из модуля Drivers (также встроенный в Chicken Scheme), чтобы прочитать вывод команды оболочки:

#;1> (use posix) 
#;2> (call-with-input-pipe "echo hello world" read-all) 
"hello world\n" 

http://wiki.call-cc.org/man/4/Unit%20posix#call-with-output-pipe

http://wiki.call-cc.org/man/4/Unit%20utils#read-all

Answer 2

Я сделал быстрый поиск Google, и я наткнулся на яйцо куриное, shell.

Вот как я закончил использовать функцию capture от яйца shell.

(use shell) 
(capture "ls -d ./") 
;; -> "./\n"