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
This commit is contained in:
Michael Gran 2009-09-03 08:23:24 -07:00
commit 719bb8cd5d
3 changed files with 20 additions and 6 deletions

View file

@ -254,8 +254,8 @@ sub empty {
return 0;
}
# Full -- All characters except for the surrogates
sub full {
# Designated -- All characters except for the surrogates
sub designated {
my($codepoint, $name, $category, $uppercase, $lowercase)= @_;
if ($category =~ (/Cs/)) {
return 0;
@ -387,7 +387,7 @@ compute "symbol";
compute "blank";
compute "ascii";
compute "empty";
compute "full";
compute "designated";
close $in;
close $out;