blob: 0d2302821f4ed4d3e4bd50e274794b0a4d88ddc5 (
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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
#
# 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 [ "${print_readably}" == "yes" ]; then
s="${s//\\/\\\\}"
r="\"${s//\"/\\\"}\""
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
|
