diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-12-30 15:05:30 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-12-30 15:05:30 -0800 |
| commit | 4b29e91a09e09ce66060e2be30e1707943e49a85 (patch) | |
| tree | 3918df625518aba62a16ef86564efd480c7ce15d /tests/015/awk-res.tl | |
| parent | e4c591c3ff02733fd115343d0212e9083be93b8f (diff) | |
| download | txr-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.tl | 8 |
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")) |