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 / strpbrk.php < prev    next >
Encoding:
PHP Script  |  2008-07-02  |  2.4 KB  |  63 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: Stephan Schmidt <schst@php.net>                             |
  16. // +----------------------------------------------------------------------+
  17. //
  18. // $Id: strpbrk.php,v 1.4 2005/01/26 04:55:13 aidan Exp $
  19.  
  20.  
  21. /**
  22.  * Replace strpbrk()
  23.  *
  24.  * @category    PHP
  25.  * @package     PHP_Compat
  26.  * @link        http://php.net/function.strpbrk
  27.  * @author      Stephan Schmidt <schst@php.net>
  28.  * @version     $Revision: 1.4 $
  29.  * @since       PHP 5
  30.  * @require     PHP 4.0.0 (user_error)
  31.  */
  32. if (!function_exists('strpbrk')) {
  33.     function strpbrk($haystack, $char_list)
  34.     {
  35.         if (!is_scalar($haystack)) {
  36.             user_error('strpbrk() expects parameter 1 to be string, ' .
  37.                 gettype($haystack) . ' given', E_USER_WARNING);
  38.             return false;
  39.         }
  40.  
  41.         if (!is_scalar($char_list)) {
  42.             user_error('strpbrk() expects parameter 2 to be scalar, ' .
  43.                 gettype($needle) . ' given', E_USER_WARNING);
  44.             return false;
  45.         }
  46.  
  47.         $haystack  = (string) $haystack;
  48.         $char_list = (string) $char_list;
  49.  
  50.         $len = strlen($haystack);
  51.         for ($i = 0; $i < $len; $i++) {
  52.             $char = substr($haystack, $i, 1);
  53.             if (strpos($char_list, $char) === false) {
  54.                 continue;
  55.             }
  56.             return substr($haystack, $i);
  57.         }
  58.  
  59.         return false;
  60.     }
  61. }
  62.  
  63. ?>