diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2024-06-15 18:18:10 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2024-06-15 18:18:10 -0700 |
commit | 959c9394dcdee41b0515b705bf8d60921e1532a6 (patch) | |
tree | f9ff708ed52d8a708f38d48f6d36a486bf565e6a | |
parent | a787e16583463ed15c0aa2911253e8ba78d3f4c8 (diff) | |
download | txr-959c9394dcdee41b0515b705bf8d60921e1532a6.tar.gz txr-959c9394dcdee41b0515b705bf8d60921e1532a6.tar.bz2 txr-959c9394dcdee41b0515b705bf8d60921e1532a6.zip |
New function: copy-iter.
* eval.c (eval_init): Register copy-iter intrinsic.
* lib.[ch] (copy_iter): New function.
-rw-r--r-- | eval.c | 1 | ||||
-rw-r--r-- | lib.c | 16 | ||||
-rw-r--r-- | lib.h | 1 |
3 files changed, 18 insertions, 0 deletions
@@ -7839,6 +7839,7 @@ void eval_init(void) reg_fun(intern(lit("iter-step"), user_package), func_n1(iter_step)); reg_fun(intern(lit("iter-reset"), user_package), func_n2(iter_reset)); reg_fun(intern(lit("iter-cat"), user_package), func_n0v(iter_catv)); + reg_fun(intern(lit("copy-iter"), user_package), func_n1(copy_iter)); reg_fun(intern(lit("rcons"), user_package), func_n2(rcons)); reg_fun(intern(lit("rangep"), user_package), func_n1(rangep)); @@ -1493,6 +1493,22 @@ val iter_catv(varg iters) return nil; } +val copy_iter(val iter) +{ + if (type(iter) == COBJ && iter->co.cls == seq_iter_cls) { + val iter_copy; + const struct seq_iter *sit = coerce(struct seq_iter *, iter->co.handle); + struct seq_iter *dit = coerce(struct seq_iter *, + chk_calloc(1, sizeof *dit)); + seq_iter_clone(dit, sit); + iter_copy = cobj(coerce(mem_t *, dit), seq_iter_cls, &seq_iter_cobj_ops); + gc_hint(iter); + return iter_copy; + } else { + return iter; + } +} + static void seq_build_generic_pend(seq_build_t *bu, val seq) { seq_iter_t it; @@ -776,6 +776,7 @@ val iter_item(val iter); val iter_step(val iter); val iter_reset(val iter, val obj); val iter_catv(varg iters); +val copy_iter(val iter); void seq_build_init(val self, seq_build_t *bu, val likeobj); void seq_add(seq_build_t *bu, val item); void seq_pend(seq_build_t *bu, val items); |