unicode-decomp.pl: Move from chartables.pl...

2002-03-04  Eric Blake  <ebb9@email.byu.edu>

	* scripts/unicode-decomp.pl: Move from chartables.pl, and remove
	the code for generating include/java-chartables.h.
	* scripts/unicode-blocks.pl: Move from scripts/blocks.pl, and
	merge with Classpath.
	* scripts/unicode-muncher.pl: Copy from Classpath.
	* scritps/MakeCharTables.java: New file.
	* gnu/gcj/convert/Blocks-3.txt: New file.
	* gnu/gcj/convert/UnicodeData-3.0.0.txt: New file.
	* gnu/gcj/convert/UnicodeCharacterDatabase-3.0.0.html: New file.
	* gnu/java/lang/CharData.java: Copy from Classpath.
	* Makefile.am (ordinary_java_source_files): Add
	gnu/java/lang/CharData.java.
	* configure.in: Remove --enable-fast-character option.
	* java/lang/Character.java: Merge algorithms and Javadoc with
	Classpath.
	* java/lang/natCharacter.cc: Implement Unicode lookup table more
	efficiently.
	* include/java-chardecomp.h: Regenerate.
	* include/java-chartables.h: Regenerate.

From-SVN: r50368

1 files changed, 0 insertions, 65 deletions

diff --git a/libjava/scripts/blocks.pl b/libjava/scripts/blocks.pl
deleted file mode 100644
index 9142a49..0000000
--- a/libjava/scripts/blocks.pl
+++ /dev/null
@@ -1,65 +0,0 @@
-#! /usr/bin/perl
-
-if ($ARGV[0] eq '')
-{
-    $file = 'Blocks.txt';
-    if (! -f $file)
-    {
-	# Too painful to figure out how to get Perl to do it.
-	system 'wget -o .wget-log http://www.unicode.org/Public/UNIDATA/Blocks.txt';
-    }
-}
-else
-{
-    $file = $ARGV[0];
-}
-
-open (INPUT, "< $file") || die "couldn't open $file: $!";
-
-@array = ();
-while (<INPUT>)
-{
-    next if /^#/;
-    chop;
-    next if /^$/;
-
-    ($start, $to, $text) = split (/; /);
-    ($symbol = $text) =~ tr/a-z/A-Z/;
-    $symbol =~ s/[- ]/_/g;
-
-    # 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;
-
-    push (@array, $symbol);
-}
-
-printf "    private static final UnicodeBlock[] blocks = {\n";
-foreach (@array)
-{
-    printf "      %s", $_;
-    printf "," unless $_ eq 'SPECIALS';
-    printf "\n";
-}
-printf "    };\n";
-
-close (INPUT);