blob: 911db17d5c163db20a7a8b1e3efd766a4c71f687 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#
# 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__/*}"
}
string_pr_str () {
local print_readably="${2}"
if [ "${print_readably}" == "yes" ]; then
local s="${ANON["${1}"]}"
s="${s//\\/\\\\}"
r="\"${s//\"/\\\"}\""
else
r="${ANON["${1}"]}"
fi
r="${r//__STAR__/$'*'}"
}
function_pr_str () { r="${ANON["${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
#res="${res} \"${ANON["${key}"]}\""
res="${res} \"${key//__STAR__/$'*'}\""
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
|
