home *** CD-ROM | disk | FTP | other *** search
/ Cricao de Sites - 650 Layouts Prontos / WebMasters.iso / Servidores / xampp-win32-1.6.7-installer.exe / php / PEAR / PHP / Compat / Function / strripos.php < prev    next >
Encoding:
PHP Script  |  2008-07-02  |  3.1 KB  |  79 lines
  1. <?php
  2. // +----------------------------------------------------------------------+
  3. // | PHP Version 4                                                        |
  4. // +----------------------------------------------------------------------+
  5. // | Copyright (c) 1997-2004 The PHP Group                                |
  6. // +----------------------------------------------------------------------+
  7. // | This source file is subject to version 3.0 of the PHP license,       |
  8. // | that is bundled with this package in the file LICENSE, and is        |
  9. // | available at through the world-wide-web at                           |
  10. // | http://www.php.net/license/3_0.txt.                                  |
  11. // | If you did not receive a copy of the PHP license and are unable to   |
  12. // | obtain it through the world-wide-web, please send a note to          |
  13. // | license@php.net so we can mail you a copy immediately.               |
  14. // +----------------------------------------------------------------------+
  15. // | Authors: Aidan Lister <aidan@php.net>                                |
  16. // |          Stephan Schmidt <schst@php.net>                             |
  17. // +----------------------------------------------------------------------+
  18. //
  19. // $Id: strripos.php,v 1.24 2005/08/10 10:19:59 aidan Exp $
  20.  
  21.  
  22. /**
  23.  * Replace strripos()
  24.  *
  25.  * @category    PHP
  26.  * @package     PHP_Compat
  27.  * @link        http://php.net/function.strripos
  28.  * @author      Aidan Lister <aidan@php.net>
  29.  * @version     $Revision: 1.24 $
  30.  * @since       PHP 5
  31.  * @require     PHP 4.0.0 (user_error)
  32.  */
  33. if (!function_exists('strripos')) {
  34.     function strripos($haystack, $needle, $offset = null)
  35.     {
  36.         // Sanity check
  37.         if (!is_scalar($haystack)) {
  38.             user_error('strripos() expects parameter 1 to be scalar, ' .
  39.                 gettype($haystack) . ' given', E_USER_WARNING);
  40.             return false;
  41.         }
  42.  
  43.         if (!is_scalar($needle)) {
  44.             user_error('strripos() expects parameter 2 to be scalar, ' .
  45.                 gettype($needle) . ' given', E_USER_WARNING);
  46.             return false;
  47.         }
  48.  
  49.         if (!is_int($offset) && !is_bool($offset) && !is_null($offset)) {
  50.             user_error('strripos() expects parameter 3 to be long, ' .
  51.                 gettype($offset) . ' given', E_USER_WARNING);
  52.             return false;
  53.         }
  54.  
  55.         // Initialise variables
  56.         $needle         = strtolower($needle);
  57.         $haystack       = strtolower($haystack);
  58.         $needle_fc      = $needle{0};
  59.         $needle_len     = strlen($needle);
  60.         $haystack_len   = strlen($haystack);
  61.         $offset         = (int) $offset;
  62.         $leftlimit      = ($offset >= 0) ? $offset : 0;
  63.         $p              = ($offset >= 0) ?
  64.                                 $haystack_len :
  65.                                 $haystack_len + $offset + 1;
  66.  
  67.         // Reverse iterate haystack
  68.         while (--$p >= $leftlimit) {
  69.             if ($needle_fc === $haystack{$p} &&
  70.                 substr($haystack, $p, $needle_len) === $needle) {
  71.                 return $p;
  72.             }
  73.         }
  74.  
  75.         return false;
  76.     }
  77. }
  78.  
  79. ?>