Merge over vendor code.

git-svn-id: http://gallery.svn.sourceforge.net/svnroot/gallery/trunk/eval/gx/gallery3/trunk@18408 57fcd75e-5312-0410-8df3-f5eb6fbb1595

1 files changed, 54 insertions, 0 deletions

diff --git a/kohana/core/utf8/str_pad.php b/kohana/core/utf8/str_pad.php
new file mode 100644
index 00000000..9b7f391a
--- /dev/null
+++ b/kohana/core/utf8/str_pad.php
@@ -0,0 +1,54 @@
+<?php defined('SYSPATH') or die('No direct script access.');
+/**
+ * utf8::str_pad
+ *
+ * @package    Core
+ * @author     Kohana Team
+ * @copyright  (c) 2007 Kohana Team
+ * @copyright  (c) 2005 Harry Fuecks
+ * @license    http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt
+ */
+function _str_pad($str, $final_str_length, $pad_str = ' ', $pad_type = STR_PAD_RIGHT)
+{
+	if (utf8::is_ascii($str) AND utf8::is_ascii($pad_str))
+	{
+		return str_pad($str, $final_str_length, $pad_str, $pad_type);
+	}
+
+	$str_length = utf8::strlen($str);
+
+	if ($final_str_length <= 0 OR $final_str_length <= $str_length)
+	{
+		return $str;
+	}
+
+	$pad_str_length = utf8::strlen($pad_str);
+	$pad_length = $final_str_length - $str_length;
+
+	if ($pad_type == STR_PAD_RIGHT)
+	{
+		$repeat = ceil($pad_length / $pad_str_length);
+		return utf8::substr($str.str_repeat($pad_str, $repeat), 0, $final_str_length);
+	}
+
+	if ($pad_type == STR_PAD_LEFT)
+	{
+		$repeat = ceil($pad_length / $pad_str_length);
+		return utf8::substr(str_repeat($pad_str, $repeat), 0, floor($pad_length)).$str;
+	}
+
+	if ($pad_type == STR_PAD_BOTH)
+	{
+		$pad_length /= 2;
+		$pad_length_left = floor($pad_length);
+		$pad_length_right = ceil($pad_length);
+		$repeat_left = ceil($pad_length_left / $pad_str_length);
+		$repeat_right = ceil($pad_length_right / $pad_str_length);
+
+		$pad_left = utf8::substr(str_repeat($pad_str, $repeat_left), 0, $pad_length_left);
+		$pad_right = utf8::substr(str_repeat($pad_str, $repeat_right), 0, $pad_length_left);
+		return $pad_left.$str.$pad_right;
+	}
+
+	trigger_error('utf8::str_pad: Unknown padding type (' . $type . ')', E_USER_ERROR);
+}
\ No newline at end of file