diff options
| author | tromey <tromey@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-06-26 04:36:47 +0000 |
|---|---|---|
| committer | tromey <tromey@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-06-26 04:36:47 +0000 |
| commit | 6bc019e85f12b15545b7838843eee01a9829be91 (patch) | |
| tree | e4381edc40f1d4d1ad1a946cb83fc6f9251e8751 /libjava/scripts | |
| parent | 4c9b2035884bccdc4e60edf8d98e12ce1fa9a4af (diff) | |
| download | gcc-6bc019e85f12b15545b7838843eee01a9829be91.tar.gz | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@43566 138bc75d-0d04-0410-961f-82ee72b054a4
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"; } } } |