summaryrefslogtreecommitdiff
path: root/libguile/srfi-14.c
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2009-09-03 08:23:24 -0700
committerMichael Gran <spk121@yahoo.com>2009-09-03 08:23:24 -0700
commit719bb8cd5db10aeb0dad1c16227d6b6abc40e8b6 (patch)
treecddacfe129952ab5f16ae8fadb49b95f9f7179ad /libguile/srfi-14.c
parent0dcd7e61534c9d1e33de904196cb505daf320a42 (diff)
downloadguile-719bb8cd5db10aeb0dad1c16227d6b6abc40e8b6.tar.gz
Distinguish between all codepoints and designated codepoints in char-sets
* libguile/unidata_to_charset.pl (designated): renamed from full * libguile/srfi-14.c (scm_char_set_designated): new char-set * libguile/srfi-14.i.c (cs_designated): renamed from cs_full
Diffstat (limited to 'libguile/srfi-14.c')
-rw-r--r--libguile/srfi-14.c14
1 files changed, 14 insertions, 0 deletions
diff --git a/libguile/srfi-14.c b/libguile/srfi-14.c
index 33b508d21..822673b92 100644
--- a/libguile/srfi-14.c
+++ b/libguile/srfi-14.c
@@ -34,6 +34,18 @@
/* Include the pre-computed standard charset data. */
#include "libguile/srfi-14.i.c"
+scm_t_char_range cs_full_ranges[] = {
+ {0x0000, SCM_CODEPOINT_SURROGATE_START - 1}
+ ,
+ {SCM_CODEPOINT_SURROGATE_END + 1, SCM_CODEPOINT_MAX}
+};
+
+scm_t_char_set cs_full = {
+ 2,
+ cs_full_ranges
+};
+
+
#define SCM_CHARSET_DATA(charset) ((scm_t_char_set *) SCM_SMOB_DATA (charset))
#define SCM_CHARSET_SET(cs, idx) \
@@ -2025,6 +2037,7 @@ SCM scm_char_set_hex_digit;
SCM scm_char_set_blank;
SCM scm_char_set_ascii;
SCM scm_char_set_empty;
+SCM scm_char_set_designated;
SCM scm_char_set_full;
@@ -2102,6 +2115,7 @@ scm_init_srfi_14 (void)
scm_char_set_blank = define_charset ("char-set:blank", &cs_blank);
scm_char_set_ascii = define_charset ("char-set:ascii", &cs_ascii);
scm_char_set_empty = define_charset ("char-set:empty", &cs_empty);
+ scm_char_set_designated = define_charset ("char-set:designated", &cs_designated);
scm_char_set_full = define_charset ("char-set:full", &cs_full);
#include "libguile/srfi-14.x"