From c0aa72210ae18e16f77ed71006d7c0176868a3c0 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Tue, 26 Jun 2001 04:36:47 +0000 Subject: encodings.pl: Generate lower-case names. * scripts/encodings.pl: Generate lower-case names. Updated URL for `character-sets' file. * gnu/gcj/convert/IOConverter.java (canonicalize): Convert name to lower case. Rebuilt list of aliases. From-SVN: r43566 --- libjava/scripts/encodings.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'libjava/scripts/encodings.pl') diff --git a/libjava/scripts/encodings.pl b/libjava/scripts/encodings.pl index 4c7f057..5e802c1 100644 --- a/libjava/scripts/encodings.pl +++ b/libjava/scripts/encodings.pl @@ -17,7 +17,7 @@ if ($ARGV[0] eq '') if (! -f $file) { # Too painful to figure out how to get Perl to do it. - system 'wget -o .wget-log http://www.isi.edu/in-notes/iana/assignments/character-sets'; + system 'wget -o .wget-log http://www.iana.org/assignments/character-sets'; } } else @@ -42,12 +42,15 @@ while () } ($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 (\"$name\", \"$current\");\n"; + print " hash.put (\"$lower\", \"$current\");\n"; } } elsif ($type eq 'Alias:') @@ -55,7 +58,7 @@ while () # The IANA list has some ugliness. if ($name ne '' && $name ne 'NONE' && $current) { - print " hash.put (\"$name\", \"$current\");\n"; + print " hash.put (\"$lower\", \"$current\");\n"; } } } -- cgit v1.1