mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 04:15:36 +02:00
Code Activity

Surrogate characters shouldn't be in charsets

Browse source 
* libguile/srfi-14.c (charsets_complement): use surrogate #defines instead
  of hardcoded numbers

* libguile/srfi-14.i.c (cs_full_ranges): remove surrogates from full
  charset

* libguile/unidata_to_charset.pl (full): test for surrogates
This commit is contained in:
Michael Gran 2009-08-28 23:47:42 -07:00
parent 526ee76ac3
commit 24d23822ee
3 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/unidata_to_charset.pl
View file

@ -254,10 +254,14 @@ sub empty {
return 0;
}
# Full -- All characters.
# Full -- All characters except for the surrogates
sub full {
my($codepoint, $name, $category, $uppercase, $lowercase)= @_;
return 1;
if ($category =~ (/Cs/)) {
return 0;
} else {
return 1;
}
}
@ -362,7 +366,7 @@ sub compute {
# Write a bit of a header
print $out "/* srfi-14.i.c -- standard SRFI-14 character set data */\n\n";
print $out "/* This file is #include'd by srfi-14.c. */\n\n";
print $out "/* This file was generated from\n"
print $out "/* This file was generated from\n";
print $out " http://unicode.org/Public/UNIDATA/UnicodeData.txt\n";
print $out " with the unidata_to_charset.pl script. */\n\n";