Message($msg);
}
function Xmp($a)
{
printf("<![CDATA[%s]]>", print_r($a, true));
}
function VarDump($var)
{
$ret = '';
if (is_bool($var))
{
$ret = ($var) ? 'true' : 'false';
}
elseif (is_scalar($var))
{
$ret = htmlspecialchars($var);
}
elseif (is_null($var))
{
$ret = 'NULL';
}
else
{
ob_start();
var_dump($var);
$data = ob_get_clean();
$data = preg_replace('/=>\n\s+/', ' => ', $data);
$data = htmlspecialchars($data);
$ret = '' . $data . '
';
}
return $ret;
}
?>