124 lines
3.1 KiB
PHP
124 lines
3.1 KiB
PHP
<?php
|
|
|
|
// original source: https://code.google.com/p/prado3/source/browse/trunk/framework/Util/TVar_dumper.php
|
|
|
|
/**
|
|
* TVar_dumper class.
|
|
*
|
|
* TVar_dumper is intended to replace the buggy PHP function var_dump and print_r.
|
|
* It can correctly identify the recursively referenced objects in a complex
|
|
* object structure. It also has a recursive depth control to avoid indefinite
|
|
* recursive display of some peculiar variables.
|
|
*
|
|
* TVar_dumper can be used as follows,
|
|
* <code>
|
|
* echo TVar_dumper::dump($var);
|
|
* </code>
|
|
*
|
|
* @author Qiang Xue <qiang.xue@gmail.com>
|
|
* @version $Id$
|
|
* @package System.Util
|
|
* @since 3.0
|
|
*/
|
|
class FW_Dumper
|
|
{
|
|
private static $_objects;
|
|
private static $_output;
|
|
private static $_depth;
|
|
|
|
/**
|
|
* Converts a variable into a string representation.
|
|
* This method achieves the similar functionality as var_dump and print_r
|
|
* but is more robust when handling complex objects such as PRADO controls.
|
|
* @param mixed $var Variable to be dumped
|
|
* @param integer $depth Maximum depth that the dumper should go into the variable. Defaults to 10.
|
|
* @return string the string representation of the variable
|
|
*/
|
|
public static function dump($var, $depth=10)
|
|
{
|
|
self::reset_internals();
|
|
|
|
self::$_depth=$depth;
|
|
self::dump_internal($var,0);
|
|
|
|
$output = self::$_output;
|
|
|
|
self::reset_internals();
|
|
|
|
return $output;
|
|
}
|
|
|
|
private static function reset_internals()
|
|
{
|
|
self::$_output='';
|
|
self::$_objects=array();
|
|
self::$_depth=10;
|
|
}
|
|
|
|
private static function dump_internal($var,$level)
|
|
{
|
|
switch(gettype($var)) {
|
|
case 'boolean':
|
|
self::$_output.=$var?'true':'false';
|
|
break;
|
|
case 'integer':
|
|
self::$_output.="$var";
|
|
break;
|
|
case 'double':
|
|
self::$_output.="$var";
|
|
break;
|
|
case 'string':
|
|
self::$_output.="'$var'";
|
|
break;
|
|
case 'resource':
|
|
self::$_output.='{resource}';
|
|
break;
|
|
case 'NULL':
|
|
self::$_output.="null";
|
|
break;
|
|
case 'unknown type':
|
|
self::$_output.='{unknown}';
|
|
break;
|
|
case 'array':
|
|
if(self::$_depth<=$level)
|
|
self::$_output.='array(...)';
|
|
else if(empty($var))
|
|
self::$_output.='array()';
|
|
else
|
|
{
|
|
$keys=array_keys($var);
|
|
$spaces=str_repeat(' ',$level*4);
|
|
self::$_output.="array\n".$spaces.'(';
|
|
foreach($keys as $key)
|
|
{
|
|
self::$_output.="\n".$spaces." [$key] => ";
|
|
self::$_output.=self::dump_internal($var[$key],$level+1);
|
|
}
|
|
self::$_output.="\n".$spaces.')';
|
|
}
|
|
break;
|
|
case 'object':
|
|
if(($id=array_search($var,self::$_objects,true))!==false)
|
|
self::$_output.=get_class($var).'(...)';
|
|
else if(self::$_depth<=$level)
|
|
self::$_output.=get_class($var).'(...)';
|
|
else
|
|
{
|
|
$id=array_push(self::$_objects,$var);
|
|
$class_name=get_class($var);
|
|
$members=(array)$var;
|
|
$keys=array_keys($members);
|
|
$spaces=str_repeat(' ',$level*4);
|
|
self::$_output.="$class_name\n".$spaces.'(';
|
|
foreach($keys as $key)
|
|
{
|
|
$key_display=strtr(trim($key),array("\0"=>':'));
|
|
self::$_output.="\n".$spaces." [$key_display] => ";
|
|
self::$_output.=self::dump_internal($members[$key],$level+1);
|
|
}
|
|
self::$_output.="\n".$spaces.')';
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
} |