summaryrefslogtreecommitdiffstats
path: root/tests/015/awk-res.tl
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2022-12-30 15:05:30 -0800
committerKaz Kylheku <kaz@kylheku.com>2022-12-30 15:05:30 -0800
commit4b29e91a09e09ce66060e2be30e1707943e49a85 (patch)
tree3918df625518aba62a16ef86564efd480c7ce15d /tests/015/awk-res.tl
parente4c591c3ff02733fd115343d0212e9083be93b8f (diff)
downloadtxr-4b29e91a09e09ce66060e2be30e1707943e49a85.tar.gz
txr-4b29e91a09e09ce66060e2be30e1707943e49a85.tar.bz2
txr-4b29e91a09e09ce66060e2be30e1707943e49a85.zip
awk: new feature, res variable.
The res variable captures the specific value of the condition expression, making it available to the action. * autoload.c (awk_set_entries): Intern the res symbol * stdlib/awk.tl (awk): Instead of generating the condition-action into a simple when, we use whenlet to also bind the res variable. * tests/015/awk-res.tl: New file. * txr.1: Documented. * stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'tests/015/awk-res.tl')
-rw-r--r--tests/015/awk-res.tl8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/015/awk-res.tl b/tests/015/awk-res.tl
new file mode 100644
index 00000000..6c919320
--- /dev/null
+++ b/tests/015/awk-res.tl
@@ -0,0 +1,8 @@
+(load "../common")
+
+(test
+ (build
+ (awk
+ (:inputs '#"How about it now brown cow")
+ (#/.ow/ (add res))))
+ ("How" "now" "row" "cow"))