diff options
| author | tromey <tromey@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-12-15 05:53:39 +0000 |
|---|---|---|
| committer | tromey <tromey@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-12-15 05:53:39 +0000 |
| commit | ca1e7d319f6f23b50a9301264f50303c30976597 (patch) | |
| tree | 4f2f0143358efba1541db25d8289623b23d78eac /libjava/scripts | |
| parent | a933f65ea681f813bcf30b95d0bd2aa04ab17200 (diff) | |
| download | gcc-ca1e7d319f6f23b50a9301264f50303c30976597.tar.gz | |
* java/lang/Character.java: Updated UnicodeBlock constants.
* scripts/blocks.pl: Special case private use and surrogate
areas. Updated URL.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@38269 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libjava/scripts')
| -rw-r--r-- | libjava/scripts/blocks.pl | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/libjava/scripts/blocks.pl b/libjava/scripts/blocks.pl index 400967145a6..9142a49f87a 100644 --- a/libjava/scripts/blocks.pl +++ b/libjava/scripts/blocks.pl @@ -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; |