function ss_array_as_string (＆$array, $column = 0) {
$str = "Array(n";
while(list($var, $val) = each($array)){
for ($i = 0; $i < $column＋1; $i＋＋){
$str .= "＆nbsp;＆nbsp;＆nbsp;＆nbsp;";
}
$str .= $var. ==＞ ;
$str .= ss_as_string($val, $column＋1)." n";
}
for ($i = 0; $i < $column; $i＋＋){
$str .= "＆nbsp;＆nbsp;＆nbsp;＆nbsp;";
}
return $str.);
}
function ss_object_as_string (＆$object, $column = 0) {
if (empty($object－＞classname)) {
return "$object";
}
else {
$str = $object－＞classname."( n";
while (list(,$var) = each($object－＞persistent_slots)) {
for ($i = 0; $i < $column; $i＋＋){
$str .= "＆nbsp;＆nbsp;＆nbsp;＆nbsp;";
}
global $$var;
$str .= $var. ==＞ ;
$str .= ss_as_string($$var, column＋1)." n";
}
for ($i = 0; $i < $column; $i＋＋){
$str .= "＆nbsp;＆nbsp;＆nbsp;＆nbsp;";
}
return $str.);
}
}
function ss_as_string (＆$thing, $column = 0) {
if (is_object($thing)) {
return ss_object_as_string($thing, $column);
}
elseif (is_array($thing)) {
return ss_array_as_string($thing, $column);
}
elseif (is_double($thing)) {
return "Double(".$thing.")";
}
elseif (is_long($thing)) {
return "Long(".$thing.")";
}
elseif (is_string($thing)) {
return "String(".$thing.")";
}
else {
return "Unknown(".$thing.")";
}
} |
