Codeerklärung einmal mehr

[Tragon]

function ss_array_as_string (&$array, $column = 0) {
$str = "Array(<BR>\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)."<BR>\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."(<BR>\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)."<BR>\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.")";
}
}
Kann mir jemand dieses Script auseinander nehmen und erklären??
M.F.G. Tragon

[Sky]

Dieses Funktionsset tut eigentlich nichts anderes als die print_r() Funktion (also Variablen beliebigen Typs und deren Inhalte anzeigen). Weil es die aber erst ab PHP4 gibt, soll dieser Code sie wohl für PHP3-Benutzer emulieren.