diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2024-04-16 21:46:37 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2024-04-16 21:46:37 -0700 |
| commit | 262cf47d2c701bf71143f312427b1f4fa140deb9 (patch) | |
| tree | 0828d9e7641147aa0687cb65c48404ae12533fdb /tests/012 | |
| parent | 12c24e79baa50ce2e345956bcbabe567c5339130 (diff) | |
| download | txr-262cf47d2c701bf71143f312427b1f4fa140deb9.tar.gz txr-262cf47d2c701bf71143f312427b1f4fa140deb9.tar.bz2 txr-262cf47d2c701bf71143f312427b1f4fa140deb9.zip | |
New function: iter-cat.
* eval.c (eval_init): Register iter-cat intrinsic.
* lib.h (struct seq_iter): New union member dargs.
(iter_catv): Declared.
* lib.c (seq_iter_get_cat, seq_iter_peek_cat): New
static functions.
(si_cat_ops): New static structure.
(iter_catv): New function.
* tests/012/iter.tl: New tests.
* txr.1: Documented.
Diffstat (limited to 'tests/012')
| -rw-r--r-- | tests/012/iter.tl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/012/iter.tl b/tests/012/iter.tl index 1b1bfd1e..0823849e 100644 --- a/tests/012/iter.tl +++ b/tests/012/iter.tl @@ -90,3 +90,8 @@ 115792089237316195423570985008687907853269984665640564039457584007913129639934 115792089237316195423570985008687907853269984665640564039457584007913129639933)) +(mtest + (str-seq (iter-cat "abc" "def" "ghi" #\j..(succ #\z))) + "abcdefghijklmnopqrstuvwxyz" + (iter-cat) nil + (list-seq (iter-cat nil)) nil) |