From 70a3b3ae47671a8a73ac517cd7c3f6a4bce782e5 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 22 Oct 2011 13:44:38 -0400 Subject: Task #11474 * filter.c (filter_equal): New function. (upcase_k, downcase_k): New keyword variables. (filter_init): New keyword variables initialized, and new upcase and downcase filters registered. * filter.h (filter_equal): Declared. * lib.c (tree_find): Takes new argument, the equality test function. (upcase_str, downcase_str): New functions. (do_curry_123_23): New static function. (curry_123_23): New function. * lib.h (tree_find): Declaration updated. (upcase_str, downcase_str, curry_123_23): Declared. * match.c (dest_bind): Updated to take equality function. Uses it and passes it down to tree_find. (v_bind): Filter feature implemented. (h_var, v_try): Add equal_f to dest_bind argument list. * txr.1: Updated to describe new filters and bind arguments. --- filter.h | 1 + 1 file changed, 1 insertion(+) (limited to 'filter.h') diff --git a/filter.h b/filter.h index 67d4c243..7f37fa7c 100644 --- a/filter.h +++ b/filter.h @@ -32,6 +32,7 @@ val trie_value_at(val node); val trie_lookup_feed_char(val node, val ch); val get_filter_trie(val sym); val filter_string(val trie, val str); +val filter_equal(val filter, val left, val right); val register_filter(val sym, val table); void filter_init(void); -- cgit v1.2.3