From 71f4c886ece16c2f8f1c52b86298cd348db37b8f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 27 Nov 2018 23:19:49 -0800 Subject: New range testing functions. * eval.c (eval_init): Register in-range and in-range* intrinsics. * lib.c (in_range, in_range_star): New functions. * lib.h (in_range, in_range_star): Declared. * txr.1: Documented. --- lib.c | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'lib.c') diff --git a/lib.c b/lib.c index 5a4eb3ad..d06a71b1 100644 --- a/lib.c +++ b/lib.c @@ -10639,6 +10639,26 @@ val set_to(val range, val to) return range; } +val in_range(val range, val num) +{ + type_check(lit("in-range"), range, RNG); + { + val from = range->rn.from; + val to = range->rn.to; + return and2(lequal(from, num), lequal(num, to)); + } +} + +val in_range_star(val range, val num) +{ + type_check(lit("in-range*"), range, RNG); + { + val from = range->rn.from; + val to = range->rn.to; + return and2(lequal(from, num), less(num, to)); + } +} + val env(void) { if (env_list) { -- cgit v1.2.3