aboutsummaryrefslogtreecommitdiffstats
path: root/simplepie/create.php
diff options
context:
space:
mode:
authorMike Macgirvin <mike@macgirvin.com>2010-07-05 03:34:42 -0700
committerMike Macgirvin <mike@macgirvin.com>2010-07-05 03:34:42 -0700
commit9f7ae0e95f89b964a098eaacdfd89ff25e05c615 (patch)
tree0bfe8d04f4b11abdbea41fe9bf6e165eec8ebc4b /simplepie/create.php
parentf5826105bfc514599b2c5b6692bca14ca4bc5d78 (diff)
downloadvolse-hubzilla-9f7ae0e95f89b964a098eaacdfd89ff25e05c615.tar.gz
volse-hubzilla-9f7ae0e95f89b964a098eaacdfd89ff25e05c615.tar.bz2
volse-hubzilla-9f7ae0e95f89b964a098eaacdfd89ff25e05c615.zip
Add simplepie
Diffstat (limited to 'simplepie/create.php')
-rw-r--r--simplepie/create.php178
1 files changed, 178 insertions, 0 deletions
diff --git a/simplepie/create.php b/simplepie/create.php
new file mode 100644
index 000000000..908ed182b
--- /dev/null
+++ b/simplepie/create.php
@@ -0,0 +1,178 @@
+<?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();
+}
+
+?> \ No newline at end of file