蔡海斌

/**
 * 将utf-8编码串转成原字符串
 * @param string $str utf-8编码
 * @return string 原字符串
 */
function unicode2utf8($str) {
	if (! $str)
		return $str;
	$decode = json_decode ( $str [0] );
	if ($decode)
		return $decode;
	$str = '["' . $str [0] . '"]';
	$decode = json_decode ( $str );
	if (count ( $decode ) == 1) {
		return $decode [0];
	}
	return $str;
}
/**
 * 将json串格式化成串输出，对于有缺损的json串同样可以进行格式化
 * 例:
 * 
 * {
 * "枯asdf":{
 * "adsf":[
 * "hffe顶替标有"
 * ],
 * "0":"asdf"
 * },
 * "0":"hahakao"
 * }
 *
 * @param string $json        	
 * @return void 
 */
function dumpjson($json) {
	$isnojson = json_decode ( $json, true );
	$json = preg_replace_callback ( "/(\uw{4})/", "unicode2utf8", $json );
	$json = preg_replace ( "/\//", '/', $json );
	$data = indent ( $json );
	return "<pre>{$data}</pre>";
}
function indent($json) {
	$result = '';
	$pos = 0;
	$strLen = mb_strlen ( $json, "utf-8" );
	$indentStr = '	';
	$newLine = "n";
	$prevChar = '';
	$outOfQuotes = true;
	for($i = 0; $i <= $strLen; $i ++) {
		// Grab the next character in the string.
		$char = mb_substr ( $json, $i, 1, "utf-8" );
		// Are we inside a quoted string?
		if ($char == '"' && $prevChar != '') {
			$outOfQuotes = ! $outOfQuotes;
			// If this character is the end of an element,
			// output a new line and indent the next line.
		} else if (($char == '}' || $char == ']') && $outOfQuotes) {
			$result .= $newLine;
			$pos --;
			for($j = 0; $j < $pos; $j ++) {
				$result .= $indentStr;
			}
		}
		// Add the character to the result string.
		$result .= $char;
		// If the last character was the beginning of an element,
		// output a new line and indent the next line.
		if (($char == ',' || $char == '{' || $char == '[') && $outOfQuotes) {
			$result .= $newLine;
			if ($char == '{' || $char == '[') {
				$pos ++;
			}
			for($j = 0; $j < $pos; $j ++) {
				$result .= $indentStr;
			}
		}
		$prevChar = $char;
	}
	$result = preg_replace ( '/\\/', '', $result );
	$result = preg_replace ( '/\"/', '"', $result );
	return $result;
}

/**
 * 返回函数操作链表
 *
 * @param int $level
 *        	返回多少级
 * @param int $start
 *        	跳过原来多少级
 * @param boolean $gettree
 *        	是否按树的形式返回
 * @return array
 */
function backtracelist($level = 3, $start = 0, $gettree = false) {
	$backtrace = debug_backtrace ();
	$btlist = array ();
	if ($backtrace) {
		$level = $level + $start;
		foreach ( $backtrace as $i => $bt ) {
			if ($i < $start) {
				continue;
			}
			if ($i >= $level) {
				break;
			}
			$args = '';
			foreach ( $bt ['args'] as $a ) {
				if (! empty ( $args )) {
					$args .= ', ';
				}
				switch (gettype ( $a )) {
					case 'integer' :
					case 'double' :
						$args .= $a;
						break;
					case 'string' :
						$a = htmlspecialchars ( substr ( $a, 0, 64 ) ) . ((strlen ( $a ) > 64) ? '...' : '');
						$args .= ""$a"";
						break;
					case 'array' :
						$args .= 'Array(' . count ( $a ) . ')';
						break;
					case 'object' :
						$args .= 'Object(' . get_class ( $a ) . ')';
						break;
					case 'resource' :
						$args .= 'Resource(' . strstr ( $a, '#' ) . ')';
						break;
					case 'boolean' :
						$args .= $a ? 'True' : 'False';
						break;
					case 'NULL' :
						$args .= 'Null';
						break;
					default :
						$args .= 'Unknown';
				}
			}
			$params = array (
					"line" => $bt ['line'],
					"file" => $bt ['file'],
					"class" => $bt ['class'],
					"type" => $bt ['type'],
					"function" => $bt ['function'],
					"args" => $args,
					"next" => $params 
			);
			$btitem = array (
					'file' => "{$bt['line']} - {$bt['file']}",
					'call' => "{$bt['class']}{$bt['type']}{$bt['function']}($args)" 
			);
			if ($bt ['args']) {
				$btitem ['args'] = $bt ['args'];
			}
			$btlist [] = $btitem;
		}
	}
	if ($gettree) {
		return $params;
	}
	return $btlist;
}

/**
 * 通过在 $_GET[GDDEBUG_LEVEL]=1
 * 可以动态调整 gddebug 时 backtracelist 打印出来的层数，方便数据调试
 */
defined ( 'GDDEBUG_LEVEL' ) or define ( 'GDDEBUG_LEVEL', 'GDDEBUG_LEVEL' );

/**
 *
 * @author caihaibin
 *         数据打印工具，用来打印各种数据进行调试
 *         字符串为 string(1) "a"
 *         数字为 int(1)
 *         NULL 为 NULL
 *         数组为 Array(
 *         'a'=>'test'
 *         )
 *         对像为 Object xxxx
 *        
 *         另补充数据 debug_backtrace 层级调试，可以方便跟踪数据所在位置 ，具体看 backtracelist()
 *         可以通过 $_GET [GDDEBUG_LEVEL] 指定对应显示层级
 *         再将返回结果插入数据库，可以通过数据库进行数据调试
 */
function gddebug() {
	echo "rn<pre>";
	if (isset ( $_GET [GDDEBUG_LEVEL] )) {
		$level = $_GET [GDDEBUG_LEVEL];
	} else {
		$level = 0;
	}
	$btlist = backtracelist ( $level, 1 );
	if (! empty ( $btlist )) {
		echo "backtracelist:rn";
		foreach ( $btlist as &$btitem ) {
			if (isset ( $btitem ['args'] ))
				$btitem ['args'] = preg_replace ( '/n/ms', "n            ", print_r ( $btitem ['args'], true ) );
		}
		echo htmlspecialchars ( print_r ( $btlist, true ) ) . "rn";
	}
	$arrays = func_get_args ();
	echo "args:rn";
	foreach ( $arrays as $value ) {
		if (is_array ( $value ) || is_object ( $value )) {
			echo htmlspecialchars ( print_r ( $value, true ) ) . "rn";
		} elseif (is_string ( $value )) {
			echo "string(" . strlen ( $value ) . ") "" . htmlspecialchars ( $value ) . ""rn";
		} else {
			var_dump ( $value );
		}
	}
	echo "</pre>";
}