Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding process->sexp utility.

Browse source
This commit is contained in:
Alex Shinn 2014-01-19 12:38:10 +09:00
parent 4ade4f7d2a
commit b7676fbb47
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/process.scm
View file

@ -113,6 +113,9 @@
(waitpid pid 0) (waitpid pid 0)
res)))) res))))
(define (process->sexp str)
(call-with-input-string (process->string str) read))
(define (process->output+error str) (define (process->output+error str)
(call-with-process-io (call-with-process-io
str str

3
lib/chibi/process.sld
View file

@ -15,7 +15,8 @@
signal/stop signal/tty-stop signal/tty-input signal/stop signal/tty-stop signal/tty-input
signal/tty-output wait/no-hang signal/tty-output wait/no-hang
call-with-process-io call-with-process-io
process->string process->string-list process->output+error) process->string process->sexp
process->string-list process->output+error)
(import (chibi) (chibi io) (chibi string) (chibi filesystem)) (import (chibi) (chibi io) (chibi string) (chibi filesystem))
(cond-expand (threads (import (srfi 18) (srfi 33))) (else #f)) (cond-expand (threads (import (srfi 18) (srfi 33))) (else #f))
(include-shared "process") (include-shared "process")