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.
---
 txr.1 | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)

(limited to 'txr.1')

diff --git a/txr.1 b/txr.1
index 7f4b5cb8..c0ac5a8a 100644
--- a/txr.1
+++ b/txr.1
@@ -15996,6 +15996,61 @@ and
 For all other characters, it returns
 .codn nil .
 
+.coNP Function @ chr-isblank
+.synb
+.mets (chr-isblank << char )
+.syne
+.desc
+This function returns
+.code t
+if
+.meta char
+is a space or tab: the character
+.code #\espace
+or
+.codn #\etab .
+For all other characters, it returns
+.codn nil .
+
+.coNP Function @ chr-isunisp
+.synb
+.mets (chr-isunisp << char )
+.syne
+.desc
+This function returns
+.code t
+if
+.meta char
+is a Unicode whitespace character. This the case for
+all the characters for which
+.code chr-isspace
+returns
+.codn t.
+It also returns
+.code t
+for these additional characters:
+.codn #\exa0 ,
+.codn #\ex1680 ,
+.codn #\ex180e ,
+.codn #\ex2000 ,
+.codn #\ex2001 ,
+.codn #\ex2002 ,
+.codn #\ex2003 ,
+.codn #\ex2004 ,
+.codn #\ex2005 ,
+.codn #\ex2006 ,
+.codn #\ex2007 ,
+.codn #\ex2008 ,
+.codn #\ex2009 ,
+.codn #\ex200a ,
+.codn #\ex2028 ,
+.codn #\ex2029 ,
+.codn #\ex205f ,
+and
+.codn #\ex3000 .
+For all other characters, it returns
+.codn nil .
+
 .coNP Function @ chr-isupper
 .synb
 .mets (chr-isupper < char )
-- 
cgit v1.2.3