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
|
<?php
// Would be nice if this weren't a global function - but I can't find
// out how to make a class member work in preg_replace_callback
function __escape_unprintable($matched) {
$unprintable = array(
'z', 'x01', 'x02', 'x03', 'x04', 'x05', 'x06', 'a',
'x08', 't', 'n', 'v', 'f', 'r', 'x0e', 'x0f',
'x10', 'x11', 'x12', 'x13', 'x14', 'x15', 'x16', 'x17',
'x18', 'x19', 'x1a', 'e', 'x1c', 'x1d', 'x1e', 'x1f',
);
return '\\' . $unprintable[ ord( $matched[0] ) ];
}
class YAMLishWriter {
function YAMLishWriter() {
}
function write( $obj ) {
$out = array();
$this->_write_obj( $out, '---', $obj );
$out[] = '...';
return $out;
}
function _write_hash( &$out, $obj, $indent, $pad ) {
while ( list($k, $v) = each( $obj ) ) {
$this->_write_obj(
$out,
$pad . $this->_enc_scalar($k) . ':',
$v, $indent + 1
);
}
}
function _write_array( &$out, $obj, $indent ) {
$pad = '';
for ( $i = 0; $i < $indent; $i++ ) {
$pad .= ' ';
}
$nout = array();
$idx = 0;
while ( list($k, $v) = each( $obj ) ) {
if (gettype($k) != 'integer' || $k != $idx) {
# If we find it's not actually an array discard what we've done
# and write a hash instead. Usually we should find out pretty
# early.
$this->_write_hash( $out, $obj, $indent, $pad );
return;
}
$this->_write_obj( $nout, "$pad-", $v, $indent + 1);
$idx++;
}
array_splice( $out, count($out), 0, $nout );
}
function _enc_string ( $str ) {
if (preg_match('/[\x00-\x1f\"]/', $str)) {
$str = preg_replace('/\\\\/', '\\\\', $str);
$str = preg_replace('/"/', '\\"', $str);
$str = preg_replace_callback( '/([\x00-\x1f])/', '__escape_unprintable', $str );
return '"' . $str . '"';
}
if ( strlen($str) == 0 || preg_match( '/\s/', $str ) ) {
return "'" . preg_replace('/\'/', "''", $str) . "'";
}
return $str;
}
function _enc_scalar( $obj ) {
$type = gettype( $obj );
switch ($type) {
case 'boolean':
return $obj ? '1' : '0';
case 'double' :
case 'integer':
return "$obj";
case 'NULL':
return '~';
case 'string':
return $this->_enc_string( $obj );
default:
die('Unhandled scalar type ' . $type);
}
}
function _write_obj( &$out, $prefix, $obj, $indent = 0 ) {
$type = gettype( $obj );
switch ($type) {
case 'boolean':
case 'integer':
case 'double' :
case 'string':
case 'NULL':
$out[] = "$prefix " . $this->_enc_scalar( $obj );
break;
case 'array':
$out[] = $prefix;
$this->_write_array( $out, $obj, $indent );
break;
case 'object':
case 'resource':
default:
die('Unhandled type ' . $type);
}
}
}
?>
|
