mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 17:50:24 +03:00
8a19f60386
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
105 lines
2.1 KiB
Bash
105 lines
2.1 KiB
Bash
#
|
|
# mal (Make a Lisp) printer
|
|
#
|
|
|
|
if [ -z "${__mal_printer_included__}" ]; then
|
|
__mal_printer_included=true
|
|
|
|
source $(dirname $0)/types.sh
|
|
|
|
_pr_str () {
|
|
local print_readably="${2}"
|
|
_obj_type "${1}"; local ot="${r}"
|
|
if [[ -z "${ot}" ]]; then
|
|
_error "_pr_str failed on '${1}'"
|
|
r="<${1}>"
|
|
else
|
|
eval ${ot}_pr_str "${1}" "${print_readably}"
|
|
fi
|
|
}
|
|
|
|
nil_pr_str () { r="nil"; }
|
|
true_pr_str () { r="true"; }
|
|
false_pr_str () { r="false"; }
|
|
|
|
number_pr_str () { r="${ANON["${1}"]}"; }
|
|
|
|
symbol_pr_str () {
|
|
r="${ANON["${1}"]}"
|
|
r="${r//__STAR__/*}"
|
|
}
|
|
|
|
keyword_pr_str () {
|
|
string_pr_str "${1}"
|
|
}
|
|
|
|
_raw_string_pr_str () {
|
|
local s="${1}"
|
|
local print_readably="${2}"
|
|
if [[ "${s:0:1}" = "${__keyw}" ]]; then
|
|
r=":${s:1}"
|
|
elif [[ "${s:0:2}" = "${__keyw}" ]]; then
|
|
r=":${s:2}"
|
|
elif [ "${print_readably}" == "yes" ]; then
|
|
s="${s//\\/\\\\}"
|
|
s="${s//\"/\\\"}"
|
|
r="\"${s//$'\n'/\\n}\""
|
|
else
|
|
r="${s}"
|
|
fi
|
|
r="${r//__STAR__/$'*'}"
|
|
}
|
|
|
|
string_pr_str () {
|
|
_raw_string_pr_str "${ANON["${1}"]}" "${2}"
|
|
}
|
|
|
|
function_pr_str () { r="${ANON["${1}"]}"; }
|
|
|
|
bash_pr_str () {
|
|
r="$(declare -f -p ${1})"
|
|
}
|
|
|
|
hash_map_pr_str () {
|
|
local print_readably="${2}"
|
|
local res=""; local val=""
|
|
local hm="${ANON["${1}"]}"
|
|
eval local keys="\${!${hm}[@]}"
|
|
for key in ${keys}; do
|
|
_raw_string_pr_str "${key}" "${print_readably}"
|
|
res="${res} ${r}"
|
|
eval val="\${${hm}[\"${key}\"]}"
|
|
_pr_str "${val}" "${print_readably}"
|
|
res="${res} ${r}"
|
|
done
|
|
r="{${res:1}}"
|
|
}
|
|
|
|
vector_pr_str () {
|
|
local print_readably="${2}"
|
|
local res=""
|
|
for elem in ${ANON["${1}"]}; do
|
|
_pr_str "${elem}" "${print_readably}"
|
|
res="${res} ${r}"
|
|
done
|
|
r="[${res:1}]"
|
|
}
|
|
|
|
list_pr_str () {
|
|
local print_readably="${2}"
|
|
local res=""
|
|
for elem in ${ANON["${1}"]}; do
|
|
_pr_str "${elem}" "${print_readably}"
|
|
res="${res} ${r}"
|
|
done
|
|
r="(${res:1})"
|
|
}
|
|
|
|
atom_pr_str () {
|
|
local print_readably="${2}"
|
|
_pr_str "${ANON["${1}"]}" "${print_readably}"
|
|
r="(atom ${r})";
|
|
}
|
|
|
|
fi
|