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:
parent
0dcd7e6153
commit
719bb8cd5d
3 changed files with 20 additions and 6 deletions
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue