From b7676fbb4768f804d908fcf8a667236c649af1d1 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 19 Jan 2014 12:38:10 +0900 Subject: [PATCH] Adding process->sexp utility. --- lib/chibi/process.scm | 3 +++ lib/chibi/process.sld | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lib/chibi/process.scm b/lib/chibi/process.scm index 6a115d7c..4c6b38dd 100644 --- a/lib/chibi/process.scm +++ b/lib/chibi/process.scm @@ -113,6 +113,9 @@ (waitpid pid 0) res)))) +(define (process->sexp str) + (call-with-input-string (process->string str) read)) + (define (process->output+error str) (call-with-process-io str diff --git a/lib/chibi/process.sld b/lib/chibi/process.sld index 2744a26e..9508d74a 100644 --- a/lib/chibi/process.sld +++ b/lib/chibi/process.sld @@ -15,7 +15,8 @@ signal/stop signal/tty-stop signal/tty-input signal/tty-output wait/no-hang 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)) (cond-expand (threads (import (srfi 18) (srfi 33))) (else #f)) (include-shared "process")