From e39f3fcc0520ce0d93082a8b8e87187eb38efd48 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 12 Mar 2017 20:40:03 -0700 Subject: New functions starts-with and ends-with. * eval.c (eval_init): Register starts-with and ends-with intrinsics. * lib.c (starts_with, ends_with): New functions. * lib.c (starts_with, ends_with): Declared. * txr.1: Documented. --- lib.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib.h') diff --git a/lib.h b/lib.h index 79a1fbe9..df401e58 100644 --- a/lib.h +++ b/lib.h @@ -974,6 +974,8 @@ val pos_max(val seq, val testfun, val keyfun); val pos_min(val seq, val testfun, val keyfun); val mismatch(val left, val right, val testfun, val keyfun); val rmismatch(val left, val right, val testfun, val keyfun); +val starts_with(val little, val big, val testfun, val keyfun); +val ends_with(val little, val big, val testfun, val keyfun); val take(val count, val seq); val take_while(val pred, val seq, val keyfun); val take_until(val pred, val seq, val keyfun); -- cgit v1.2.3