FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

encodings.pl: Generate lower-case names.

Browse source 
* 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
This commit is contained in:
Tom Tromey 2001-06-26 04:36:47 +00:00 • committed by Tom Tromey
parent 23c108aff8
commit c0aa72210a
3 changed files with 38 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libjava/scripts/encodings.pl
View file

@ -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";
}
}
}