C:\xampp\php\pear\PHP\Compat\Function\var_export.php


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
<?php
// +----------------------------------------------------------------------+
// | 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 at through the world-wide-web at                           |
// | 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: Aidan Lister <aidan@php.net>                                |
// +----------------------------------------------------------------------+
//
// $Id: var_export.php,v 1.15 2005/12/05 14:24:27 aidan Exp $


/**
 * Replace var_export()
 *
 * @category    PHP
 * @package     PHP_Compat
 * @link        http://php.net/function.var_export
 * @author      Aidan Lister <aidan@php.net>
 * @version     $Revision: 1.15 $
 * @since       PHP 4.2.0
 * @require     PHP 4.0.0 (user_error)
 */
if (!function_exists('var_export')) {
    function 
var_export($var$return false$level 0)
    {
        
// Init
        
$indent      '  ';
        
$doublearrow ' => ';
        
$lineend     ",\n";
        
$stringdelim '\'';
        
$newline     "\n";
        
$find        = array(null'\\''\'');
        
$replace     = array('NULL''\\\\''\\\'');
        
$out         '';
        
        
// Indent
        
$level++;
        for (
$i 1$previndent ''$i $level$i++) {
            
$previndent .= $indent;
        }

        
// Handle each type
        
switch (gettype($var)) {
            
// Array
            
case 'array':
                
$out 'array (' $newline;
                foreach (
$var as $key => $value) {
                    
// Key
                    
if (is_string($key)) {
                        
// Make key safe
                        
for ($i 0$c count($find); $i $c$i++) {
                            
$var str_replace($find[$i], $replace[$i], $var);
                        }
                        
$key $stringdelim $key $stringdelim;
                    }
                    
                    
// Value
                    
if (is_array($value)) {
                        
$export var_export($valuetrue$level);
                        
$value $newline $previndent $indent $export;
                    } else {
                        
$value var_export($valuetrue$level);
                    }

                    
// Piece line together
                    
$out .= $previndent $indent $key $doublearrow $value $lineend;
                }

                
// End string
                
$out .= $previndent ')';
                break;

            
// String
            
case 'string':
                
// Make the string safe
                
for ($i 0$c count($find); $i $c$i++) {
                    
$var str_replace($find[$i], $replace[$i], $var);
                }
                
$out $stringdelim $var $stringdelim;
                break;

            
// Number
            
case 'integer':
            case 
'double':
                
$out = (string) $var;
                break;
            
            
// Boolean
            
case 'boolean':
                
$out $var 'true' 'false';
                break;

            
// NULLs
            
case 'NULL':
            case 
'resource':
                
$out 'NULL';
                break;

            
// Objects
            
case 'object':
                
// Start the object export
                
$out $newline $previndent 'class ' get_class($var) . ' {' $newline;

                
// Export the object vars
                
foreach (get_object_vars($var) as $key => $val) {
                    
$out .= $previndent '  var $' $key ' = ';
                    if (
is_array($val)) {
                        
$export var_export($valtrue$level);
                        
$out .= $newline $previndent $indent .  $export  ';' $newline;
                    } else {
                        
$out .= var_export($valtrue$level) . ';' $newline;
                    }
                }
                
$out .= $previndent '}';
                break;
        }

        
// Method of output
        
if ($return === true) {
            return 
$out;
        } else {
            echo 
$out;
        }
    }
}

?>
x

Windows NT KPTV 6.2 build 9200 (Windows Server 2012 Datacenter Edition) i586