Imported gcc-4.4.3

[msp430-gcc.git] / libjava / scripts / encodings.pl

diff --git a/libjava/scripts/encodings.pl b/libjava/scripts/encodings.pl
deleted file mode 100644 (file)
index 5e802c1..0000000
--- a/libjava/scripts/encodings.pl
+++ /dev/null
@@ -1,66 +0,0 @@
-# encodings.pl - Download IANA text and compute alias list.
-# Assumes you are running this program from gnu/gcj/convert/.
-# Output suitable for direct inclusion in IOConverter.java.
-
-# Map IANA canonical names onto our canonical names.
-%map = (
-       'ANSI_X3.4-1968' => 'ASCII',
-       'ISO_8859-1:1987' => '8859_1',
-       'UTF-8' => 'UTF8',
-       'Shift_JIS' => 'SJIS',
-       'Extended_UNIX_Code_Packed_Format_for_Japanese' => 'EUCJIS'
-       );
-
-if ($ARGV[0] eq '')
-{
-    $file = 'character-sets';
-    if (! -f $file)
-    {
-       # Too painful to figure out how to get Perl to do it.
-       system 'wget -o .wget-log http://www.iana.org/assignments/character-sets';
-    }
-}
-else
-{
-    $file = $ARGV[0];
-}
-
-open (INPUT, "< $file") || die "couldn't open $file: $!";
-
-$body = 0;
-$current = '';
-while (<INPUT>)
-{
-    chop;
-    $body = 1 if /^Name:/;
-    next unless $body;
-
-    if (/^$/)
-    {
-       $current = '';
-       next;
-    }
-
-    ($type, $name) = split (/\s+/);
-    # Encoding names are case-insensitive.  We do all processing on
-    # the lower-case form.
-    my $lower = lc ($name);
-    if ($type eq 'Name:')
-    {
-       $current = $map{$name};
-       if ($current)
-       {
-           print "    hash.put (\"$lower\", \"$current\");\n";
-       }
-    }
-    elsif ($type eq 'Alias:')
-    {
-       # The IANA list has some ugliness.
-       if ($name ne '' && $name ne 'NONE' && $current)
-       {
-           print "    hash.put (\"$lower\", \"$current\");\n";
-       }
-    }
-}
-
-close (INPUT);