diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-09-08 22:43:03 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-09-08 22:43:03 -0700 |
| commit | cf5abb23e5bc1d7da8d0a5438700e69fd86d29bb (patch) | |
| tree | 95d3cade952d701781bf48c43103bc380ef537c7 | |
| parent | 45a1353ecd60c776218ce49e7021b9b82bc1c11b (diff) | |
| download | txr-cf5abb23e5bc1d7da8d0a5438700e69fd86d29bb.tar.gz txr-cf5abb23e5bc1d7da8d0a5438700e69fd86d29bb.tar.bz2 txr-cf5abb23e5bc1d7da8d0a5438700e69fd86d29bb.zip | |
awk macro: handle string typed output.
* share/txr/stdlib/awk.tl (sys:awk-state): if output is a
string, open file.
| -rw-r--r-- | share/txr/stdlib/awk.tl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/share/txr/stdlib/awk.tl b/share/txr/stdlib/awk.tl index 0a08ee18..d7aa6891 100644 --- a/share/txr/stdlib/awk.tl +++ b/share/txr/stdlib/awk.tl @@ -36,7 +36,9 @@ rec fields nf rng-vec (rng-n 0) (:postinit (self) (if (plusp self.rng-n) - (set self.rng-vec (vector self.rng-n))))) + (set self.rng-vec (vector self.rng-n))) + (unless (streamp self.output) + (set self.output (open-file self.output "w"))))) (defstruct sys:awk-compile-time () (nranges 0)) |