178 lines
4 KiB
PHP
Executable file
178 lines
4 KiB
PHP
Executable file
<?php
|
|
|
|
require_once 'simplepie.inc';
|
|
|
|
function normalize_character_set($charset)
|
|
{
|
|
return strtolower(preg_replace('/(?:[^a-zA-Z0-9]+|([^0-9])0+)/', '\1', $charset));
|
|
}
|
|
|
|
function build_character_set_list()
|
|
{
|
|
$file = new SimplePie_File('http://www.iana.org/assignments/character-sets');
|
|
if (!$file->success && !($file->method & SIMPLEPIE_FILE_SOURCE_REMOTE === 0 || ($file->status_code === 200 || $file->status_code > 206 && $file->status_code < 300)))
|
|
{
|
|
return false;
|
|
}
|
|
else
|
|
{
|
|
$data = explode("\n", $file->body);
|
|
unset($file);
|
|
|
|
foreach ($data as $line)
|
|
{
|
|
// New character set
|
|
if (substr($line, 0, 5) === 'Name:')
|
|
{
|
|
// If we already have one, push it on to the array
|
|
if (isset($aliases))
|
|
{
|
|
for ($i = 0, $count = count($aliases); $i < $count; $i++)
|
|
{
|
|
$aliases[$i] = normalize_character_set($aliases[$i]);
|
|
}
|
|
$charsets[$preferred] = array_unique($aliases);
|
|
natsort($charsets[$preferred]);
|
|
}
|
|
|
|
$start = 5 + strspn($line, "\x09\x0A\x0B\xC\x0D\x20", 5);
|
|
$chars = strcspn($line, "\x09\x0A\x0B\xC\x0D\x20", $start);
|
|
$aliases = array(substr($line, $start, $chars));
|
|
$preferred = end($aliases);
|
|
}
|
|
// Another alias
|
|
elseif(substr($line, 0, 6) === 'Alias:')
|
|
{
|
|
$start = 7 + strspn($line, "\x09\x0A\x0B\xC\x0D\x20", 7);
|
|
$chars = strcspn($line, "\x09\x0A\x0B\xC\x0D\x20", $start);
|
|
$aliases[] = substr($line, $start, $chars);
|
|
|
|
if (end($aliases) === 'None')
|
|
{
|
|
array_pop($aliases);
|
|
}
|
|
elseif (substr($line, 7 + $chars + 1, 21) === '(preferred MIME name)')
|
|
{
|
|
$preferred = end($aliases);
|
|
}
|
|
}
|
|
}
|
|
|
|
// Compatibility replacements
|
|
$compat = array(
|
|
'EUC-KR' => 'windows-949',
|
|
'GB2312' => 'GBK',
|
|
'GB_2312-80' => 'GBK',
|
|
'ISO-8859-1' => 'windows-1252',
|
|
'ISO-8859-9' => 'windows-1254',
|
|
'ISO-8859-11' => 'windows-874',
|
|
'KS_C_5601-1987' => 'windows-949',
|
|
'TIS-620' => 'windows-874',
|
|
//'US-ASCII' => 'windows-1252',
|
|
'x-x-big5' => 'Big5',
|
|
);
|
|
|
|
foreach ($compat as $real => $replace)
|
|
{
|
|
if (isset($charsets[$real]) && isset($charsets[$replace]))
|
|
{
|
|
$charsets[$replace] = array_merge($charsets[$replace], $charsets[$real]);
|
|
unset($charsets[$real]);
|
|
}
|
|
elseif (isset($charsets[$real]))
|
|
{
|
|
$charsets[$replace] = $charsets[$real];
|
|
$charsets[$replace][] = normalize_character_set($replace);
|
|
unset($charsets[$real]);
|
|
}
|
|
else
|
|
{
|
|
$charsets[$replace][] = normalize_character_set($real);
|
|
}
|
|
$charsets[$replace] = array_unique($charsets[$replace]);
|
|
natsort($charsets[$replace]);
|
|
}
|
|
|
|
// Sort it
|
|
uksort($charsets, 'strnatcasecmp');
|
|
|
|
// Check that nothing matches more than one
|
|
$all = call_user_func_array('array_merge', $charsets);
|
|
$all_count = array_count_values($all);
|
|
if (max($all_count) > 1)
|
|
{
|
|
echo "Duplicated charsets:\n";
|
|
foreach ($all_count as $charset => $count)
|
|
{
|
|
if ($count > 1)
|
|
{
|
|
echo "$charset\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
// And we're done!
|
|
return $charsets;
|
|
}
|
|
}
|
|
|
|
function charset($charset)
|
|
{
|
|
$normalized_charset = normalize_character_set($charset);
|
|
if ($charsets = build_character_set_list())
|
|
{
|
|
foreach ($charsets as $preferred => $aliases)
|
|
{
|
|
if (in_array($normalized_charset, $aliases))
|
|
{
|
|
return $preferred;
|
|
}
|
|
}
|
|
return $charset;
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
|
|
function build_function()
|
|
{
|
|
if ($charsets = build_character_set_list())
|
|
{
|
|
$return = <<<EOF
|
|
function charset(\$charset)
|
|
{
|
|
// Normalization from UTS #22
|
|
switch (strtolower(preg_replace('/(?:[^a-zA-Z0-9]+|([^0-9])0+)/', '\\1', \$charset)))
|
|
{
|
|
|
|
EOF;
|
|
foreach ($charsets as $preferred => $aliases)
|
|
{
|
|
foreach ($aliases as $alias)
|
|
{
|
|
$return .= "\t\tcase " . var_export($alias, true) . ":\n";
|
|
}
|
|
$return .= "\t\t\treturn " . var_export($preferred, true) . ";\n\n";
|
|
}
|
|
$return .= <<<EOF
|
|
default:
|
|
return \$charset;
|
|
}
|
|
}
|
|
EOF;
|
|
return $return;
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
|
|
if (php_sapi_name() === 'cli' && realpath($_SERVER['argv'][0]) === __FILE__)
|
|
{
|
|
echo build_function();
|
|
}
|
|
|
|
?>
|