From 4296be5ab5aeb2f13b7c76f5e562b85b18d3beb9 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 8 Sep 2016 22:43:03 -0700 Subject: awk macro: handle string typed output. * share/txr/stdlib/awk.tl (sys:awk-state): if output is a string, open file. --- share/txr/stdlib/awk.tl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'share') 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)) -- cgit v1.2.3