New function: search-all

* eval.c (eval_init): search-all intrinsic registered.

* lib.c (search_common): New Boolean argument all,
indicating whether all positions are to be returned.
We must handle this in the two places where empty
key and sequence are handled, and also in the main loop.
A trick is used: the found variable is now bound by
list_collect_decl, but not used for collecting unless
all is true.
(search, rsearch, contains): Pass 0 for all argument
of search_common.
(search_all): New function.

* lib.h (search_all): Declared.

* tests/012/seq.tl: New tests.

* txr.1: Documented.

* stdlib/doc-syms.tl: Regenerated.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 4eab1198..2e506e45 100644
--- a/lib.h
+++ b/lib.h
@@ -1252,6 +1252,7 @@ val update(val seq, val fun);
 val search(val seq, val key, val from, val to);
 val contains(val key, val seq, val testfun, val keyfun);
 val rsearch(val seq, val key, val from, val to);
+val search_all(val seq, val key, val testfun, val keyfun);
 val where(val func, val seq);
 val sel(val seq, val where);
 val reject(val seq, val where);