From 7197508cb5460ad4c18dfbffd07f8cc411d37065 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 20 Feb 2015 03:18:41 -0800 Subject: String-returning wrappers for some regex matching functions. * eval.c (eval_init): Register search-regst, match-regst and match-regst-right intrinsics. * regex.c (search_regst, match_regst, match_regst_right): New functions. * regex.h (search_regst, match_regst, match_regst_right): Declared. * txr.1: Documented new variants. --- eval.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 645af5f2..5721aa85 100644 --- a/eval.c +++ b/eval.c @@ -4022,9 +4022,13 @@ void eval_init(void) reg_fun(intern(lit("regexp"), user_package), func_n1(regexp)); reg_fun(intern(lit("search-regex"), user_package), func_n4o(search_regex, 2)); reg_fun(intern(lit("range-regex"), user_package), func_n4o(range_regex, 2)); + reg_fun(intern(lit("search-regst"), user_package), func_n4o(search_regst, 2)); reg_fun(intern(lit("match-regex"), user_package), func_n3o(match_regex, 2)); + reg_fun(intern(lit("match-regst"), user_package), func_n3o(match_regst, 2)); reg_fun(intern(lit("match-regex-right"), user_package), func_n3o(match_regex_right, 2)); + reg_fun(intern(lit("match-regst-right"), user_package), + func_n3o(match_regst_right, 2)); reg_fun(intern(lit("regsub"), user_package), func_n3(regsub)); reg_fun(intern(lit("regex-parse"), user_package), func_n2o(regex_parse, 1)); -- cgit v1.2.3