<?php

require_once './includes/bootstrap.inc';
require_once './includes/common.inc';
require_once './includes/unicode.inc';

error_reporting(E_ALL ^ E_NOTICE);
define ('TRIALS', 5);

function microtime_float()
{
   list($usec, $sec) = explode(' ', microtime());
   return ((float)$usec + (float)$sec);
}

/**
* UTF-8 aware alternative to substr
*
* Return part of a string given character offset (and optionally length)
*
* @author Harry Fuecks <hfuecks@gmail.com>
* @author Chris Smith <chris@jalakai.co.uk>
* @param string
* @param integer number of UTF-8 characters offset (from left)
* @param integer (optional) length in UTF-8 characters from offset
* @return mixed string or false if failure
*/
function utf8_substr($str, $offset, $length = null) {

   /*
    * Notes:
    *
    * no mb string support, so we'll use pcre regex's with 'u' flag
    * pcre only supports repetitions of less than 65536, in order to accept up to MAXINT values for
    * offset and length, we'll repeat a group of 65535 characters when needed (ok, up to MAXINT-65536)
    *
    * substr documentation states false can be returned in some cases (e.g. offset > string length)
    * mb_substr never returns false, it will return an empty string instead.
    *
    * calculating the number of characters in the string is a relatively expensive operation, so
    * we only carry it out when necessary. It isn't necessary for +ve offsets and no specified length
    */

   // cast parameters to appropriate types to avoid multiple notices/warnings
   $str = (string)$str;                          // generates E_NOTICE for PHP4 objects, but not PHP5 objects
   $offset = (int)$offset;
   if (!is_null($length)) $length = (int)$length;

   // handle trivial cases
   if ($length === 0) return '';
   if ($offset < 0 && $length < 0 && $length < $offset) return '';

   $offset_pattern = '';
   $length_pattern = '';

   // normalise -ve offsets (we could use a tail anchored pattern, but they are horribly slow!)
   if ($offset < 0) {
     $strlen = strlen(utf8_decode($str));        // see notes
     $offset = $strlen + $offset;
     if ($offset < 0) $offset = 0;
   }

   // establish a pattern for offset, a non-captured group equal in length to offset
   if ($offset > 0) {
     $Ox = (int)($offset/65535);
     $Oy = $offset%65535;

     if ($Ox) $offset_pattern = '(?:.{65535}){'.$Ox.'}';
     $offset_pattern = '^(?:'.$offset_pattern.'.{'.$Oy.'})';
   } else {
     $offset_pattern = '^';                      // offset == 0; just anchor the pattern
   }

   // establish a pattern for length
   if (is_null($length)) {
     $length_pattern = '(.*)$';                  // the rest of the string
   } else {

     if (!isset($strlen)) $strlen = strlen(utf8_decode($str));    // see notes
     if ($offset > $strlen) return '';           // another trivial case

     if ($length > 0) {

       $length = min($strlen-$offset, $length);  // reduce any length that would go passed the end of the string

       $Lx = (int)($length/65535);
       $Ly = $length%65535;

       // +ve length requires ... a captured group of length characters
       if ($Lx) $length_pattern = '(?:.{65535}){'.$Lx.'}';
       $length_pattern = '('.$length_pattern.'.{'.$Ly.'})';

     } else if ($length < 0) {

       if ($length < ($offset - $strlen)) return '';

       $Lx = (int)((-$length)/65535);
       $Ly = (-$length)%65535;

       // -ve length requires ... capture everything except a group of -length characters 
       //                         anchored at the tail-end of the string
       if ($Lx) $length_pattern = '(?:.{65535}){'.$Lx.'}';
       $length_pattern = '(.*)(?:'.$length_pattern.'.{'.$Ly.'})$';
     }
   }

   if (!preg_match('#'.$offset_pattern.$length_pattern.'#us',$str,$match)) return '';
   return $match[1];
}
  

function test_str()
{
   return<<<EOF
·
   胡锦涛:实施物权法 开创社会主义法治国家新局面 ( 2007-03-24 )
·
   李长春在墨西哥城会见墨参议院议长贝尔特曼内斯 ( 2007-03-24 )
·
   吴仪离京前往莫斯科检查“中国年”活动筹备情况 ( 2007-03-24 )
·
   曾培炎在布里斯班会见澳大利亚昆士兰代总理布莱 ( 2007-03-24 )
·
   中共中央决定习近平任上海市委书记 更多人事任免 ( 2007-03-24 )
·
   统计局:06年城镇单位在岗职工年平均工资21001元 ( 2007-03-24 )
·
   王陇德：2006年结核病治愈率达92% 疫情依然严重 ( 2007-03-24 )
·
   我国西部重点区域发展将分五类推进 城镇化率35% ( 2007-03-24 )
·
   共和国部长义务植树活动举行 157名部级领导参加 ( 2007-03-24 )
·
   五部门发通知要求在建筑工地创建农民工业余学校 ( 2007-03-24 )
·
   邮政局：监管、自律、监督三结合推动快递业发展 ( 2007-03-24 )
   
    
国务院所属部门 | 地方 | 驻外
·
   法制办就科学技术进步法（修订草案）征求意见
·
   商务部副部长在莫斯科通报"中国年"经贸活动安排
·
   农业部要求农业部门做好春季农业生产各项工作
·
   湖北:从畜禽嘴巴管起 加强对动物违禁投入品监管
·
   山东省气象局发布大雾黄色预警 11个航班延误
·
   新疆：结核病控制取得成效 治愈率平均达90%以上
      
   
食品 | 药品 | 广告 | 消费
   教育 | 医疗卫生 | 知识产权 | 环境 | 气象
·
   教育部通知同意将天津商学院更名为天津商业大学
·
   肉干、肉脯产品质量国抽查公告（3月23日）
·
   蜜饯产品质量国家监督抽查质量公告(3月23日)
·
   春耕七类农资产品质量抽查公告(3月23日)
·
   卫生部通报12家医疗机构涉嫌违法行为查处情况
    
   
　　2007年《政府工作报告》解读   
   
计划报告解读   
      
 
·  预算报告解读
·  2007年3·23世界气象日专题
·  3.15国际消费者权益日专题
·  2006年水利工作回顾
·  2006年人事人才工作回顾
·  2006年气象工作回顾
·  2007年全国两会专题
      
 
·  《春季健康养生手册》
·  《春游出行信息服务手册》
·  国家和地方住房公积金缴存使用政策
·  2007两岸清明包机服务信息
·  2007春季田间管理指导信息
·  2007年中直机关公务员招录专题
·  编辑推荐：23日热点服务信息导读
   
   国务院 | 部门 | 其他
   
　　3月16日11时，十届全国人大五次会议闭幕会结束后，温家宝总理在人民大会堂三楼大厅会见中外记者。
·
   温家宝总理作政府工作报告
·
   2007年全国“两会”网上直播
·
   "好运北京"系列赛筹备工作发布会
·
   十届全国人大五次会议举行闭幕会
·
   全国政协十届五次会议举行闭幕会
      
    
　　[访谈回放]3月15日上午9时30分质检总局副局长蒲长城谈品质生活、和谐消费
·
   [回放]教育部长周济谈教育热点问题
·
   [回放]中国气象局局长谈气候变化和气象工作
·
   文化部副部长周和平谈加强古籍保护工作
·
   西藏自治区党委书记谈西藏的稳定与发展
·
   信息产业部谈加强电子信息产品污染控制
EOF;
}

$start = microtime_float();
for ($i = 0; $i < TRIALS; ++$i)
{
   $str = test_str();
   while(drupal_strlen($str) > 0)
   {
      $prefix = drupal_substr($str, 0, 1);
      // echo $prefix;
      $str = drupal_substr($str, 1);
   }
}
$time = microtime_float()-$start;
echo "drupal_substr chopper: $time\n";

// Commented out because it takes too long
/*
$start = microtime_float();
for ($i = 0; $i < TRIALS; ++$i)
{
   $str = test_str();
   $len = drupal_strlen($str);
   for ($j = 0; $j < $len; ++$j)
   {
      $char = drupal_substr($str, $j, 1);
      // echo $char;
   }
}
$time = microtime_float()-$start;
echo "drupal_substr iterate: $time\n";
*/


$start = microtime_float();
for ($i = 0; $i < TRIALS; ++$i)
{
   $str = test_str();
   $len = drupal_strlen($str);
   for ($j = 0; $j < $len; ++$j)
   {
      $u32 = iconv('UTF8', 'UTF32', $str);
      $char = iconv('UTF32', 'UTF8', substr($u32, ($j+1)<<2, 4));
      // echo $char;
   }
}
$time = microtime_float()-$start;
echo "\niconv utf32:   $time\n";


$start = microtime_float();
for ($i = 0; $i < TRIALS; ++$i)
{
   $str = test_str();
   $len = drupal_strlen($str);
   for ($j = 0; $j < $len; ++$j)
   {
      $char = utf8_substr($str, $j, 1);
      // echo $char;
   }
}
$time = microtime_float()-$start;
echo "utf8_substr iterate: $time\n";

$start = microtime_float();
for ($i = 0; $i < TRIALS; ++$i)
{
   $str = test_str();
   preg_match_all('/.|\n/u', $str, $matches);
   $chars = $matches[0];
   $len = count($chars);
   for ($j = 0; $j < $len; ++$j)
   {
      $char = $chars[$j];
      // echo $char;
   }
}
$time = microtime_float()-$start;
echo "\npreg_match_all:   $time\n";

unicode_check();
global $multibyte;
if ($multibyte == UNICODE_MULTIBYTE)
{
   $start = microtime_float();
   for ($i = 0; $i < TRIALS; ++$i)
   {
      $str = test_str();
      $len = drupal_strlen($str);
      for ($j = 0; $j < $len; ++$j)
      {
         $char = drupal_substr($str, $j, 1);
         // echo $char;
      }
   }
   $time = microtime_float()-$start;
   echo "drupal_substr iterate: $time\n";
}