Initial revision
From-SVN: r102074
This commit is contained in:
Tom Tromey
parent
6f4434b39b
commit
f911ba985a
4557 changed files with 1000262 additions and 0 deletions
libjava/classpath/scripts
210
libjava/classpath/scripts/unicode-blocks.pl
Executable file
210
libjava/classpath/scripts/unicode-blocks.pl
Executable file
|
|
@ -0,0 +1,210 @@
|
|||
#!/usr/bin/perl -w
|
||||
# unicode-blocks.pl -- Script to generate java.lang.Character.UnicodeBlock
|
||||
# Copyright (C) 2002, 2004 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is part of GNU Classpath.
|
||||
#
|
||||
# GNU Classpath is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2, or (at your option)
|
||||
# any later version.
|
||||
#
|
||||
# GNU Classpath is distributed in the hope that it will be useful, but
|
||||
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
# General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with GNU Classpath; see the file COPYING. If not, write to the
|
||||
# Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
||||
# 02110-1301 USA.
|
||||
#
|
||||
# Linking this library statically or dynamically with other modules is
|
||||
# making a combined work based on this library. Thus, the terms and
|
||||
# conditions of the GNU General Public License cover the whole
|
||||
# combination.
|
||||
#
|
||||
# As a special exception, the copyright holders of this library give you
|
||||
# permission to link this library with independent modules to produce an
|
||||
# executable, regardless of the license terms of these independent
|
||||
# modules, and to copy and distribute the resulting executable under
|
||||
# terms of your choice, provided that you also meet, for each linked
|
||||
# independent module, the terms and conditions of the license of that
|
||||
# module. An independent module is a module which is not derived from
|
||||
# or based on this library. If you modify this library, you may extend
|
||||
# this exception to your version of the library, but you are not
|
||||
# obligated to do so. If you do not wish to do so, delete this
|
||||
# exception statement from your version.
|
||||
|
||||
|
||||
# Code for reading Blocks.txt and generating (to standard out) the code for
|
||||
# java.lang.Character.UnicodeBlock, for pasting into java/lang/Character.java.
|
||||
# You should probably check that the results are accurate to the
|
||||
# specification, but I made sure it works OOB for Unicode 3.0.0 and JDK 1.4.
|
||||
# As the grammar for the Blocks.txt file is changing in Unicode 3.2.0, you
|
||||
# will have to tweak this some for future use. For now, the relevant
|
||||
# Unicode definition files are found in doc/unicode/.
|
||||
#
|
||||
# author Eric Blake <ebb9@email.byu.edu>
|
||||
#
|
||||
# usage: unicode-blocks.pl <blocks.txt>
|
||||
# where <blocks.txt> is obtained from www.unicode.org (named Blocks-3.txt
|
||||
# for Unicode version 3.0.0).
|
||||
|
||||
|
||||
die "Usage: $0 <blocks.txt>" unless @ARGV == 1;
|
||||
open (BLOCKS, $ARGV[0]) || die "Can't open Unicode block file: $!\n";
|
||||
|
||||
# A hash of added fields and the JDK they were added in, to automatically
|
||||
# print @since tags. Maintaining this is optional (and tedious), but nice.
|
||||
my %additions = ("SYRIAC" => "1.4",
|
||||
"THAANA" => "1.4",
|
||||
"SINHALA" => "1.4",
|
||||
"MYANMAR" => "1.4",
|
||||
"ETHIOPIC" => "1.4",
|
||||
"CHEROKEE" => "1.4",
|
||||
"UNIFIED_CANADIAN_ABORIGINAL_SYLLABICS" => "1.4",
|
||||
"OGHAM" => "1.4",
|
||||
"RUNIC" => "1.4",
|
||||
"KHMER" => "1.4",
|
||||
"MONGOLIAN" => "1.4",
|
||||
"BRAILLE_PATTERNS" => "1.4",
|
||||
"CJK_RADICALS_SUPPLEMENT" => "1.4",
|
||||
"KANGXI_RADICALS" => "1.4",
|
||||
"IDEOGRAPHIC_DESCRIPTION_CHARACTERS" => "1.4",
|
||||
"BOPOMOFO_EXTENDED" => "1.4",
|
||||
"CJK_UNIFIED_IDEOGRAPHS_EXTENSION_A" => "1.4",
|
||||
"YI_SYLLABLES" => "1.4",
|
||||
"YI_RADICALS" => "1.4",
|
||||
);
|
||||
|
||||
print <<'EOF';
|
||||
/**
|
||||
* A family of character subsets in the Unicode specification. A character
|
||||
* is in at most one of these blocks.
|
||||
*
|
||||
* This inner class was generated automatically from
|
||||
* <code>$ARGV[0]</code>, by some perl scripts.
|
||||
* This Unicode definition file can be found on the
|
||||
* <a href="http://www.unicode.org">http://www.unicode.org</a> website.
|
||||
* JDK 1.4 uses Unicode version 3.0.0.
|
||||
*
|
||||
* @author scripts/unicode-blocks.pl (written by Eric Blake)
|
||||
* @since 1.2
|
||||
*/
|
||||
public static final class UnicodeBlock extends Subset
|
||||
{
|
||||
/** The start of the subset. */
|
||||
private final char start;
|
||||
|
||||
/** The end of the subset. */
|
||||
private final char end;
|
||||
|
||||
/**
|
||||
* Constructor for strictly defined blocks.
|
||||
*
|
||||
* @param start the start character of the range
|
||||
* @param end the end character of the range
|
||||
* @param name the block name
|
||||
*/
|
||||
private UnicodeBlock(char start, char end, String name)
|
||||
{
|
||||
super(name);
|
||||
this.start = start;
|
||||
this.end = end;
|
||||
}
|
||||
|
||||
/**
|
||||
* Returns the Unicode character block which a character belongs to.
|
||||
*
|
||||
* @param ch the character to look up
|
||||
* @return the set it belongs to, or null if it is not in one
|
||||
*/
|
||||
public static UnicodeBlock of(char ch)
|
||||
{
|
||||
// Special case, since SPECIALS contains two ranges.
|
||||
if (ch == '\uFEFF')
|
||||
return SPECIALS;
|
||||
// Simple binary search for the correct block.
|
||||
int low = 0;
|
||||
int hi = sets.length - 1;
|
||||
while (low <= hi)
|
||||
{
|
||||
int mid = (low + hi) >> 1;
|
||||
UnicodeBlock b = sets[mid];
|
||||
if (ch < b.start)
|
||||
hi = mid - 1;
|
||||
else if (ch > b.end)
|
||||
low = mid + 1;
|
||||
else
|
||||
return b;
|
||||
}
|
||||
return null;
|
||||
}
|
||||
EOF
|
||||
|
||||
my $seenSpecials = 0;
|
||||
my $seenSurrogates = 0;
|
||||
my $surrogateStart = 0;
|
||||
my @names = ();
|
||||
while (<BLOCKS>) {
|
||||
next if /^\#/;
|
||||
my ($start, $end, $block) = split(/; /);
|
||||
next unless defined $block;
|
||||
chomp $block;
|
||||
$block =~ s/ *$//;
|
||||
if (! $seenSpecials and $block =~ /Specials/) {
|
||||
# Special case SPECIALS, since it is two disjoint ranges
|
||||
$seenSpecials = 1;
|
||||
next;
|
||||
}
|
||||
if ($block =~ /Surrogates/) {
|
||||
# Special case SURROGATES_AREA, since it one range, not three
|
||||
# consecutive, in Java
|
||||
$seenSurrogates++;
|
||||
if ($seenSurrogates == 1) {
|
||||
$surrogateStart = $start;
|
||||
next;
|
||||
} elsif ($seenSurrogates == 2) {
|
||||
next;
|
||||
} else {
|
||||
$start = $surrogateStart;
|
||||
$block = "Surrogates Area";
|
||||
}
|
||||
}
|
||||
# Special case the name of PRIVATE_USE_AREA.
|
||||
$block =~ s/(Private Use)/$1 Area/;
|
||||
|
||||
(my $name = $block) =~ tr/a-z -/A-Z__/;
|
||||
push @names, $name;
|
||||
my $since = (defined $additions{$name}
|
||||
? "\n * \@since $additions{$name}" : "");
|
||||
my $extra = ($block =~ /Specials/ ? "'\\uFEFF', " : "");
|
||||
print <<EOF;
|
||||
|
||||
/**
|
||||
* $block.
|
||||
* $extra'\\u$start' - '\\u$end'.$since
|
||||
*/
|
||||
public static final UnicodeBlock $name
|
||||
= new UnicodeBlock('\\u$start', '\\u$end',
|
||||
"$name");
|
||||
EOF
|
||||
}
|
||||
|
||||
print <<EOF;
|
||||
|
||||
/**
|
||||
* The defined subsets.
|
||||
*/
|
||||
private static final UnicodeBlock sets[] = {
|
||||
EOF
|
||||
|
||||
foreach (@names) {
|
||||
print " $_,\n";
|
||||
}
|
||||
|
||||
print <<EOF;
|
||||
};
|
||||
} // class UnicodeBlock
|
||||
EOF
|
||||
Loading…
Add table
Add a link
Reference in a new issue