diff options
| author | Tom Tromey <tromey@redhat.com> | 2001-06-26 04:36:47 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@gcc.gnu.org> | 2001-06-26 04:36:47 +0000 |
| commit | c0aa72210ae18e16f77ed71006d7c0176868a3c0 (patch) | |
| tree | e4381edc40f1d4d1ad1a946cb83fc6f9251e8751 /libjava/scripts | |
| parent | 23c108aff8d955857df3cd6a7e86d911792ed672 (diff) | |
| download | gcc-c0aa72210ae18e16f77ed71006d7c0176868a3c0.tar.gz | |
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
Diffstat (limited to 'libjava/scripts')
| -rw-r--r-- | libjava/scripts/encodings.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/libjava/scripts/encodings.pl b/libjava/scripts/encodings.pl index 4c7f0579534..5e802c1f5fc 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 (<INPUT>) } ($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 (<INPUT>) # 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"; } } } |