source: branches/version-2_5-dev/data/module/Compat/Compat/Function/strripos.php @ 19792

Revision 19792, 3.1 KB checked in by Seasoft, 13 years ago (diff)

#744(PHP4 互換用途ソースを将来的に切り捨てやすい仕組みづくり)

Line 
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 */
33if (!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?>
Note: See TracBrowser for help on using the repository browser.