Initial Kohana install

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

diff --git a/Server/system/core/utf8/ltrim.php b/Server/system/core/utf8/ltrim.php
new file mode 100644 (file)
index 0000000..556fe07
--- /dev/null
+++ b/Server/system/core/utf8/ltrim.php
@@ -0,0 +1,22 @@
+<?php defined('SYSPATH') OR die('No direct access allowed.');
+/**
+ * utf8::ltrim
+ *
+ * @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 _ltrim($str, $charlist = NULL)
+{
+       if ($charlist === NULL)
+               return ltrim($str);
+
+       if (utf8::is_ascii($charlist))
+               return ltrim($str, $charlist);
+
+       $charlist = preg_replace('#[-\[\]:\\\\^/]#', '\\\\$0', $charlist);
+
+       return preg_replace('/^['.$charlist.']+/u', '', $str);
+}
\ No newline at end of file