wp/wp-includes/compat.php
author ymh <ymh.work@gmail.com>
Wed, 06 Nov 2013 03:21:17 +0000
changeset 0 d970ebf37754
child 5 5e2f62d02dcd
permissions -rw-r--r--
first import
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     1
<?php
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     2
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     3
 * WordPress implementation for PHP functions either missing from older PHP versions or not included by default.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     4
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     5
 * @package PHP
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     6
 * @access private
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     7
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     9
// If gettext isn't available
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    10
if ( !function_exists('_') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    11
	function _($string) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    12
		return $string;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    13
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    14
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    15
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    16
if ( !function_exists('mb_substr') ):
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    17
	function mb_substr( $str, $start, $length=null, $encoding=null ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    18
		return _mb_substr($str, $start, $length, $encoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    19
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    20
endif;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    21
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    22
function _mb_substr( $str, $start, $length=null, $encoding=null ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    23
	// the solution below, works only for utf-8, so in case of a different
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    24
	// charset, just use built-in substr
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    25
	$charset = get_option( 'blog_charset' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    26
	if ( !in_array( $charset, array('utf8', 'utf-8', 'UTF8', 'UTF-8') ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    27
		return is_null( $length )? substr( $str, $start ) : substr( $str, $start, $length);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    28
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    29
	// use the regex unicode support to separate the UTF-8 characters into an array
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    30
	preg_match_all( '/./us', $str, $match );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    31
	$chars = is_null( $length )? array_slice( $match[0], $start ) : array_slice( $match[0], $start, $length );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    32
	return implode( '', $chars );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    33
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    34
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    35
if ( !function_exists('hash_hmac') ):
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    36
function hash_hmac($algo, $data, $key, $raw_output = false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    37
	return _hash_hmac($algo, $data, $key, $raw_output);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    38
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    39
endif;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    40
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    41
function _hash_hmac($algo, $data, $key, $raw_output = false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    42
	$packs = array('md5' => 'H32', 'sha1' => 'H40');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    43
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    44
	if ( !isset($packs[$algo]) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    45
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    46
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    47
	$pack = $packs[$algo];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    48
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    49
	if (strlen($key) > 64)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    50
		$key = pack($pack, $algo($key));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    51
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    52
	$key = str_pad($key, 64, chr(0));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    53
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    54
	$ipad = (substr($key, 0, 64) ^ str_repeat(chr(0x36), 64));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    55
	$opad = (substr($key, 0, 64) ^ str_repeat(chr(0x5C), 64));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    56
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    57
	$hmac = $algo($opad . pack($pack, $algo($ipad . $data)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    58
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    59
	if ( $raw_output )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    60
		return pack( $pack, $hmac );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    61
	return $hmac;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    62
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    63
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    64
if ( !function_exists('json_encode') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    65
	function json_encode( $string ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    66
		global $wp_json;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    67
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    68
		if ( !is_a($wp_json, 'Services_JSON') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    69
			require_once( ABSPATH . WPINC . '/class-json.php' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    70
			$wp_json = new Services_JSON();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    71
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    72
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    73
		return $wp_json->encodeUnsafe( $string );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    74
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    75
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    76
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    77
if ( !function_exists('json_decode') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    78
	function json_decode( $string, $assoc_array = false ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    79
		global $wp_json;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    80
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    81
		if ( !is_a($wp_json, 'Services_JSON') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    82
			require_once( ABSPATH . WPINC . '/class-json.php' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    83
			$wp_json = new Services_JSON();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    84
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    85
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    86
		$res = $wp_json->decode( $string );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    87
		if ( $assoc_array )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    88
			$res = _json_decode_object_helper( $res );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    89
		return $res;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    90
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    91
	function _json_decode_object_helper($data) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    92
		if ( is_object($data) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    93
			$data = get_object_vars($data);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    94
		return is_array($data) ? array_map(__FUNCTION__, $data) : $data;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    95
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    96
}