utf8/rtrim.php

   1 <?php defined('SYSPATH') OR die('No direct script access.');
   2 /**
   3  * UTF8::rtrim
   4  *
   5  * @package    Kohana
   6  * @author     Kohana Team
   7  * @copyright  (c) 2007-2012 Kohana Team
   8  * @copyright  (c) 2005 Harry Fuecks
   9  * @license    http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt
  10  */
  11 function _rtrim($str, $charlist = NULL)
  12 {
  13         if ($charlist === NULL)
  14                 return rtrim($str);
  15
  16         if (UTF8::is_ascii($charlist))
  17                 return rtrim($str, $charlist);
  18
  19         $charlist = preg_replace('#[-\[\]:\\\\^/]#', '\\\\$0', $charlist);
  20
  21         return preg_replace('/['.$charlist.']++$/uD', '', $str);
  22 }