FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Character.java: Updated UnicodeBlock constants.

Browse source 
* java/lang/Character.java: Updated UnicodeBlock constants.
	* scripts/blocks.pl: Special case private use and surrogate
	areas.  Updated URL.

From-SVN: r38269
This commit is contained in:
Tom Tromey 2000-12-15 05:53:39 +00:00 • committed by Tom Tromey
parent 0eda43cee4
commit 9acffced80
3 changed files with 68 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

21
libjava/scripts/blocks.pl
View file

@ -6,8 +6,7 @@ if ($ARGV[0] eq '')
if (! -f $file)
{
# Too painful to figure out how to get Perl to do it.
# FIXME.
system 'wget -o .wget-log http://www.isi.edu/in-notes/iana/unidata/Blocks.txt';
system 'wget -o .wget-log http://www.unicode.org/Public/UNIDATA/Blocks.txt';
}
}
else
@ -22,6 +21,7 @@ while (<INPUT>)
{
next if /^#/;
chop;
next if /^$/;
($start, $to, $text) = split (/; /);
($symbol = $text) =~ tr/a-z/A-Z/;
@ -30,6 +30,23 @@ while (<INPUT>)
# Special case for one of the SPECIALS.
next if $start eq 'FEFF';
# Special case some areas that our heuristic mishandles.
if ($symbol eq 'HIGH_SURROGATES')
{
$symbol = 'SURROGATES_AREA';
$text = 'Surrogates Area';
$to = 'DFFF';
}
elsif ($symbol =~ /SURROGATES/)
{
next;
}
elsif ($symbol eq 'PRIVATE_USE')
{
$symbol .= '_AREA';
$text = 'Private Use Area';
}
printf " public static final UnicodeBlock %s = new UnicodeBlock (\"%s\", '\\u%s', '\\u%s');\n",
$symbol, $text, $start, $to;