summaryrefslogtreecommitdiff
path: root/system/core/utf8/substr.php
diff options
context:
space:
mode:
Diffstat (limited to 'system/core/utf8/substr.php')
-rw-r--r--system/core/utf8/substr.php75
1 files changed, 0 insertions, 75 deletions
diff --git a/system/core/utf8/substr.php b/system/core/utf8/substr.php
deleted file mode 100644
index daf66b81..00000000
--- a/system/core/utf8/substr.php
+++ /dev/null
@@ -1,75 +0,0 @@
-<?php defined('SYSPATH') OR die('No direct access allowed.');
-/**
- * utf8::substr
- *
- * @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 _substr($str, $offset, $length = NULL)
-{
- if (SERVER_UTF8)
- return ($length === NULL) ? mb_substr($str, $offset) : mb_substr($str, $offset, $length);
-
- if (utf8::is_ascii($str))
- return ($length === NULL) ? substr($str, $offset) : substr($str, $offset, $length);
-
- // Normalize params
- $str = (string) $str;
- $strlen = utf8::strlen($str);
- $offset = (int) ($offset < 0) ? max(0, $strlen + $offset) : $offset; // Normalize to positive offset
- $length = ($length === NULL) ? NULL : (int) $length;
-
- // Impossible
- if ($length === 0 OR $offset >= $strlen OR ($length < 0 AND $length <= $offset - $strlen))
- return '';
-
- // Whole string
- if ($offset == 0 AND ($length === NULL OR $length >= $strlen))
- return $str;
-
- // Build regex
- $regex = '^';
-
- // Create an offset expression
- if ($offset > 0)
- {
- // PCRE repeating quantifiers must be less than 65536, so repeat when necessary
- $x = (int) ($offset / 65535);
- $y = (int) ($offset % 65535);
- $regex .= ($x == 0) ? '' : '(?:.{65535}){'.$x.'}';
- $regex .= ($y == 0) ? '' : '.{'.$y.'}';
- }
-
- // Create a length expression
- if ($length === NULL)
- {
- $regex .= '(.*)'; // No length set, grab it all
- }
- // Find length from the left (positive length)
- elseif ($length > 0)
- {
- // Reduce length so that it can't go beyond the end of the string
- $length = min($strlen - $offset, $length);
-
- $x = (int) ($length / 65535);
- $y = (int) ($length % 65535);
- $regex .= '(';
- $regex .= ($x == 0) ? '' : '(?:.{65535}){'.$x.'}';
- $regex .= '.{'.$y.'})';
- }
- // Find length from the right (negative length)
- else
- {
- $x = (int) (-$length / 65535);
- $y = (int) (-$length % 65535);
- $regex .= '(.*)';
- $regex .= ($x == 0) ? '' : '(?:.{65535}){'.$x.'}';
- $regex .= '.{'.$y.'}';
- }
-
- preg_match('/'.$regex.'/us', $str, $matches);
- return $matches[1];
-} \ No newline at end of file