Source for file Var_Dump.php

<?php
/* vim: set expandtab tabstop=4 shiftwidth=4: */
// +----------------------------------------------------------------------+
// | PHP version 4                                                        |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2004 The PHP Group                                |
// +----------------------------------------------------------------------+
// | This source file is subject to version 3.0 of the PHP license,       |
// | that is bundled with this package in the file LICENSE, and is        |
// | available through the world-wide-web at the following url:           |
// | http://www.php.net/license/3_0.txt.                                  |
// | If you did not receive a copy of the PHP license and are unable to   |
// | obtain it through the world-wide-web, please send a note to          |
// | license@php.net so we can mail you a copy immediately.               |
// +----------------------------------------------------------------------+
// | Authors: Frederic Poeydomenge <frederic.poeydomenge@free.fr>         |
// +----------------------------------------------------------------------+
//
// $Id:
 
require_once 'PEAR.php';
require_once 'Var_Dump/Renderer.php';
 
/**
 * Wrapper for the var_dump function.
 *
 * " The var_dump function displays structured information about expressions
 * that includes its type and value. Arrays are explored recursively
 * with values indented to show structure. "
 *
 * The Var_Dump class captures the output of the var_dump function,
 * by using output control functions, and then uses external renderer
 * classes for displaying the result in various graphical ways :
 * simple text, (X)HTML text, (X)HTML table, XML, ...
 *
 * @package Var_Dump
 * @category PHP
 * @author Frederic Poeydomenge <frederic.poeydomenge@free.fr>
 */
 
// {{{ constants
define ('VAR_DUMP_START_GROUP',       1);
define ('VAR_DUMP_FINISH_GROUP',      2);
define ('VAR_DUMP_START_ELEMENT_NUM', 3);
define ('VAR_DUMP_START_ELEMENT_STR', 4);
define ('VAR_DUMP_FINISH_ELEMENT',    5);
define ('VAR_DUMP_FINISH_ELEMENT_NL', 6);
// }}}
 
class Var_Dump
{
 
    // {{{ properties
 
    /**
     * Run-time configuration options.
     * @var    array 
     * @access public
     */
    var $options = array();
 
    /**
     * Default configuration options.
     * @var    array 
     * @access public
     */
    var $defaultOptions = array(
        'display_mode' => 'XHTML_Text'
    );
 
    /**
     * Rendering configuration options, one entry for each renderer.
     * See Var_Dump/Renderer/*.php for the complete list of options
     * @var    array 
     * @access public
     */
    var $rendererOptions = array();
 
    /**
     * Rendering object.
     * @var    object 
     * @access public
     */
    var $renderer = NULL;
 
    // }}}
 
    // {{{ constructor
    /**
     * Class constructor.
     * See Var_Dump/Renderer/*.php for the complete list of options
     * @param  array  $options         Global parameters.
     * @param  array  $rendererOptions Parameters for the rendering.
     * @access public
     */
    function Var_Dump($options = array(), $rendererOptions = array())
        {
        $this->setOptions($options);
        $displayMode=$this->options['display_mode'];
        if (!isset($this->rendererOptions[$displayMode])) {
            $this->rendererOptions[$displayMode] = $rendererOptions;
        } else {
            $this->rendererOptions[$displayMode] = array_merge(
                $this->rendererOptions[$displayMode],
                $rendererOptions
            );
        }
        $this->renderer = & Var_Dump_Renderer::singleton(
            $displayMode,
            $this->rendererOptions[$displayMode]
        );
    }
    // }}}
    
    // {{{ factory()
    /**
     * Attempt to return a concrete Var_Dump instance.
     * See Var_Dump/Renderer/*.php for the complete list of options
     * @param  array  $options         Global parameters.
     * @param  array  $rendererOptions Parameters for the rendering.
     * @access public
     */
    function & factory($options = array(), $rendererOptions = array())
    {
        $obj = & new Var_Dump($options, $rendererOptions);
        return $obj;
    }
    // }}}
 
    // {{{ singleton()
    /**
     * Attempt to return a concrete singleton Var_Dump instance.
     * See Var_Dump/Renderer/*.php for the complete list of options
     * @param  array  $options         Run-time configuration options.
     * @param  array  $rendererOptions Parameters for the rendering.
     * @access public
     */
    function & singleton($options = array(), $rendererOptions = array())
    {
        static $instance;
        if (!isset($instance)) {
            $instance = new Var_Dump($options, $rendererOptions);
        } else {
            $instance->Var_Dump($options, $rendererOptions);
        }
        return $instance;
    }
    // }}}
 
    // {{{ setOptions()
    /**
     * Set run-time configuration options for the renderer
     * @param  array  $options Run-time configuration options.
     * @access public
     */
    function setOptions($options = array())
    {
        $this->options = array_merge (
            $this->defaultOptions,
            $this->options,
            $options
        );
    }
    // }}}
 
    // {{{ display()
    /**
     * Outputs or returns a string representation of a variable.
     * @param  mixed  $expression The variable to parse.
     * @param  bool   $return     Whether the variable should be echoed or returned.
     * @return string             If returned, the string representation of the variable.
     * @access public
     */
    function display($expression, $return=FALSE)
    {
        $display = & Var_Dump::singleton();
        if ($return) {
            return $display->toString($expression);
        } else {
            echo $display->toString($expression);
        }
    }
    // }}}
 
    // {{{ toString()
    /**
     * Uses a renderer object to return the string representation of a variable.
     * @param  mixed  $expression The variable to parse.
     * @return string             The string representation of the variable.
     * @access public
     */
    function toString($expression)
    {
 
        if (PEAR::isError($this->renderer)) {
            return '';
        }
 
        $family = array(); // element family
        $depth  = array(); // element depth
        $type   = array(); // element type
        $value  = array(); // element value
 
        ob_start();
        var_dump($expression);
        $variable = ob_get_contents();
        ob_end_clean();
 
        // The numbers between the square brackets [] are the reference of the captured subpattern
        // and correspond to the entries in the resulting $matches array
        preg_match_all(
            '/^
                (\s*)                             # 2 spaces for each depth level
                (?:                               # start of alternative
                  (?:\[("?)(.*?)\\2\]=>)          #   = Key [2-3]
                    |                             #   OR
                  (?:                             #   = Value, multiline [4-5]
                      (string\([0-9]*\))          #     - type [4]
                      \s+"(.*[^"]$\n              #     - value [5], first line (no " at the end)
                      (?:^.*[^"]$\n)*             #     - value [5], multiple middle line (no " at the end)
                      ^.*)"                       #     - value [5], last line (closing ")
                  )                               #
                    |                             #   OR
                  (                               #   = Value [6-10]
                    (bool|string|int|float|       #     - type [7]
                     resource|NULL|\*RECURSION\*) #
                    (?:\((.*?)\))?                #     - complement [8]
                    (?:\s+(?:                     #     - value [9-10]
                      (?:"(.*?)") |               #       . string [9] OR
                      (?:of\ type\ \((.*?)\))     #       . resource [10]
                    ))?                           #
                  )                               #
                    |                             #   OR
                  (})                             #   = End of array [11]
                    |                             #   OR
                  (?:(&?(?:array|object).*)\ {)   #   = Start of array [12]
                )                                 # end of alternative
            $/Smx',
            $variable,
            $matches,
            PREG_SET_ORDER
        );
 
        $stack = array();
        $keyLen = array();
        $maxLen = 0;
 
        foreach($matches AS $match) {
            $count = count($match);
            if ($count>=4 and $count<=13) {
                $depth[] = strlen($match[1]) >> 1;
                switch ($count) {
                    case 4:
 
                        $len = strlen($match[3]);
                        if ($len > $maxLen) {
                            $maxLen = $len;
                        }
 
                        if (empty($match[2])) {
                            $family[] = VAR_DUMP_START_ELEMENT_NUM;
                        } else {
                            $family[] = VAR_DUMP_START_ELEMENT_STR;
                                              }
                        $type[] = NULL;
                        $value[] = $match[3];
 
                        break;
                    case 6: 
                        $family[] = VAR_DUMP_FINISH_ELEMENT_NL;
                        $type[] = $match[4];
                        $value[] = $match[5];
                        break;
                    case 7:
                    case 8:
                    case 9:
                    case 10:
                    case 11:
                        $family[] = VAR_DUMP_FINISH_ELEMENT;
                        switch ($match[7]) {
                          case 'bool':
                          case 'int':
                          case 'float':
                              $type[] = $match[7];
                              $value[] = $match[8];
                              break;
                          case 'string':
                              $type[] = $match[7].'('.$match[8].')';
                              $value[] = $match[9];
                              break;
                          case 'resource':
                              $type[] = $match[7].'('.$match[10].')';
                              $value[] = $match[8];
                              break;
                          default:
                              $type[] = $match[7];
                              $value[] = '';
                              break;
                        }
                        break;
                    case 12:
 
                        $oldLen = array_pop($stack);
                        $keyLen[$oldLen[0]] = $maxLen;
                        $maxLen = $oldLen[1];
 
                        $family[] = VAR_DUMP_FINISH_GROUP;
                        $type[] = NULL;
                        $value[] = $match[$count-1];
 
                        break;
                    case 13:
 
                        array_push($stack, array(count($family), $maxLen));
                        $maxLen = 0;
 
                        $family[] = VAR_DUMP_START_GROUP;
                        $type[] = NULL;
                        $value[] = $match[$count-1];
 
                        break;
                }
            }
        }
 
        $this->renderer->initialize(
            & $family,
            & $depth,
            & $type,
            & $value,
            & $keyLen
        );
                
        return $this->renderer->toString();
 
    }
    // }}}
 
}
 
?>