function _pr_str($obj, $print_readably = True)
{
if (_list_Q($obj)) {
$ret = array();
foreach ($obj as $e) {
array_push($ret, _pr_str($e, $print_readably));
}
return "(" . implode(" ", $ret) . ")";
} elseif (_vector_Q($obj)) {
$ret = array();
foreach ($obj as $e) {
array_push($ret, _pr_str($e, $print_readably));
}
return "[" . implode(" ", $ret) . "]";
} elseif (_hash_map_Q($obj)) {
$ret = array();
foreach (array_keys($obj->getArrayCopy()) as $k) {
$ret[] = _pr_str($k, $print_readably);
$ret[] = _pr_str($obj[$k], $print_readably);
}
return "{" . implode(" ", $ret) . "}";
} elseif (is_string($obj)) {
if (strpos($obj, chr(0x7f)) === 0) {
return ":" . substr($obj, 1);
} elseif ($print_readably) {
$obj = preg_replace('/"/', '\\"', preg_replace('/\\\\/', '\\\\\\\\', $obj));
return '"' . $obj . '"';
} else {
return $obj;
}
} elseif (is_integer($obj)) {
return $obj;
} elseif ($obj === NULL) {
return "nil";
} elseif ($obj === true) {
return "true";
} elseif ($obj === false) {
return "false";
} elseif (_symbol_Q($obj)) {
return $obj->value;
} elseif (_atom_Q($obj)) {
return "(atom " . _pr_str($obj->value, $print_readably) . ")";
} elseif (_function_Q($obj)) {
return "(fn* [...] ...)";
} elseif (is_callable($obj)) {
// only step4 and below
return "#<function ...>";
} else {
throw new Exception("_pr_str unknown type: " . gettype($obj));
}
}
}, 'nth' => function ($a, $b) {
return nth($a, $b);
}, 'first' => function ($a) {
return first($a);
}, 'rest' => function ($a) {
return rest($a);
}, 'empty?' => function ($a) {
return empty_Q($a);
}, 'count' => function ($a) {
return scount($a);
}, 'conj' => function () {
return call_user_func_array('conj', func_get_args());
}, 'apply' => function () {
return call_user_func_array('apply', func_get_args());
}, 'map' => function ($a, $b) {
return map($a, $b);
}, 'with-meta' => function ($a, $b) {
return with_meta($a, $b);
}, 'meta' => function ($a) {
return meta($a);
}, 'atom' => function ($a) {
return _atom($a);
}, 'atom?' => function ($a) {
return _atom_Q($a);
}, 'deref' => function ($a) {
return deref($a);
}, 'reset!' => function ($a, $b) {
return reset_BANG($a, $b);
}, 'swap!' => function () {
return call_user_func_array('swap_BANG', func_get_args());
});
