diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-01-29 18:09:35 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-01-29 18:09:35 -0800 |
| commit | 12b57f23dcd4f0e42b14a4f375b334be6c7c55a3 (patch) | |
| tree | 1b08ca8700b616c4dd8c0f2fb150fc1768a401a0 /share | |
| parent | b75f188c4991ac07ce7d6db8caaccda8ed4e1542 (diff) | |
| download | txr-12b57f23dcd4f0e42b14a4f375b334be6c7c55a3.tar.gz txr-12b57f23dcd4f0e42b14a4f375b334be6c7c55a3.tar.bz2 txr-12b57f23dcd4f0e42b14a4f375b334be6c7c55a3.zip | |
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.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/awk.tl | 5 |
1 files changed, 4 insertions, 1 deletions
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)) |