bug #96 move libraries to library - better alignment of like rotator

1 files changed, 178 insertions, 0 deletions

diff --git a/library/simplepie/create.php b/library/simplepie/create.php
new file mode 100644
index 000000000..908ed182b
--- /dev/null
+++ b/library/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