Initial Kohana install

[speedfreak] / Server / system / core / utf8 / strrpos.php

diff --git a/Server/system/core/utf8/strrpos.php b/Server/system/core/utf8/strrpos.php
new file mode 100644 (file)
index 0000000..1ac8f9c
--- /dev/null
+++ b/Server/system/core/utf8/strrpos.php
@@ -0,0 +1,30 @@
+<?php defined('SYSPATH') OR die('No direct access allowed.');
+/**
+ * utf8::strrpos
+ *
+ * @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 _strrpos($str, $search, $offset = 0)
+{
+       $offset = (int) $offset;
+
+       if (SERVER_UTF8)
+               return mb_strrpos($str, $search, $offset);
+
+       if (utf8::is_ascii($str) AND utf8::is_ascii($search))
+               return strrpos($str, $search, $offset);
+
+       if ($offset == 0)
+       {
+               $array = explode($search, $str, -1);
+               return isset($array[0]) ? utf8::strlen(implode($search, $array)) : FALSE;
+       }
+
+       $str = utf8::substr($str, $offset);
+       $pos = utf8::strrpos($str, $search);
+       return ($pos === FALSE) ? FALSE : $pos + $offset;
+}
\ No newline at end of file