#!/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;    }EOFmy $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[] = {EOFforeach (@names) {    print "      $_,\n";}print <<EOF;    };  } // class UnicodeBlockEOF