From ff18ec7c29456025f7e4e29c4d24f5efa1913ca8 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 11 Oct 2014 08:15:13 -0700
Subject: * eval.c (eval_init): Register chr_isblank and chr_isunisp as
 intrinsics.

* lib.c (chr_isblank, chr_isunisp): New functions.

* lib.h (chr_isblank, chr_isunisp): Declared.

* regex.h (spaces): Declaration for existing variable added.

* txr.1: Documented chr-isblank and chr-isunisp.

* genvim.txr: Add missing sysif.c.

* txr.vim: Regenerated.
---
 lib.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index 2c4db220..c90b4823 100644
--- a/lib.c
+++ b/lib.c
@@ -3085,6 +3085,16 @@ val chr_isspace(val ch)
   return c_true(iswspace(c_chr(ch)));
 }
 
+val chr_isblank(val ch)
+{
+  return c_true(ch == chr(' ') || ch == chr('\t'));
+}
+
+val chr_isunisp(val ch)
+{
+  return c_true(wcschr(spaces, c_chr(ch)));
+}
+
 val chr_isupper(val ch)
 {
   return c_true(iswupper(c_chr(ch)));
-- 
cgit v1.2.3