From 12b57f23dcd4f0e42b14a4f375b334be6c7c55a3 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 29 Jan 2017 18:09:35 -0800 Subject: awk: support list of string as input source. * share/txr/stdlib/awk.tl (sys:awk-state loop): Allow an input source to be a list of strings, which is converted to a stream. * txr.1: Documented. --- share/txr/stdlib/awk.tl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'share') diff --git a/share/txr/stdlib/awk.tl b/share/txr/stdlib/awk.tl index 05567956..90f9e8b0 100644 --- a/share/txr/stdlib/awk.tl +++ b/share/txr/stdlib/awk.tl @@ -125,7 +125,10 @@ in)) (when beg-file-func [beg-file-func aws]) - (let* ((*stdin* (if (streamp in) in (open-file in))) + (let* ((*stdin* (cond + ((streamp in) in) + ((listp in) (make-strlist-input-stream in)) + ((open-file in)))) (noted-rs (not aws.rs)) (noted-krs (not aws.krs)) (cached-rr nil)) -- cgit v1.2.3