New funtion related to where function.

* eval.c (eval_init): register intrinsics wheref, whereq,
whereql and wherequal.

* lib.c (wheref_fun): New static function.
(wheref, whereq, whereql, wherequal): New functions.

* lib.h (wheref, whereq, whereql, wherequal): Declared.

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

* txr.1: Documented.

1 files changed, 39 insertions, 0 deletions

diff --git a/tests/012/seq.tl b/tests/012/seq.tl
index 5746939b..45cf2b67 100644
--- a/tests/012/seq.tl
+++ b/tests/012/seq.tl
@@ -1537,3 +1537,42 @@
 (mtest
   (partition "abcdef" '(4 -1)) ("abcd" "e" "f")
   (partition "abcdef" '(4 5)) ("abcd" "e" "f"))
+
+(mtest
+  (where (op eq #\z) "") nil
+  (where (op eq #\z) "abc") nil
+  (where (op eq 'z) #()) nil
+  (where (op eq 'z) #(a b c)) nil
+  (where (op eq 'z) '()) nil
+  (where (op eq 'z) '(a b c)) nil
+  (where (op eq 10) 1..4) nil
+  (where (op eq 10) 1..1) nil)
+
+(mtest
+  (where (op eq #\c) "abcabc") (2 5)
+  (where (op eq 'c) #(a b c a b c)) (2 5)
+  (where (op eq 'c) '(a b c a b c)) (2 5)
+  (where (op eq 3) 0..9) (3))
+
+(mtest
+  [[wheref oddp] '()] nil
+  [[wheref oddp] '(1 2 3 4 5 6)] (0 2 4))
+
+(mtest
+  [(whereq #\c) "abcabc"] (2 5)
+  [(whereq 'c) #(a b c a b c)] (2 5)
+  [(whereq 'c) '(a b c a b c)] (2 5)
+  [(whereq 3) 0..9] (3))
+
+(mtest
+  [(whereql #\c) "abcabc"] (2 5)
+  [(whereq 'c) #(a b c a b c)] (2 5)
+  [(whereql 'c) '(a b c a b c)] (2 5)
+  [(whereql 3) 0..9] (3))
+
+(mtest
+  [(wherequal #xFFFFFFFFFFFFFFFFFFFF) '(#xFFFFFFFFFFFFFFFFFFFF)] (0)
+  [(wherequal 'c) #(a b c a b c)] (2 5)
+  [(wherequal 'c) '(a b c a b c)] (2 5)
+  [(wherequal 3) '(3 3.0 b c a b c)] (0)
+  [(wherequal 3) 0..9] (3))