All: split types into types, env, printer, core.

- types: low-level mapping to the implementation language.
- core: functions on types that are exposed directly to mal.
- printer: implementation called by pr-str, str, prn, println.
- env: the environment implementation

- Also, unindent all TCO while loops so that the diff of step4 and
  step5 are minimized.

1 files changed, 87 insertions, 0 deletions

diff --git a/bash/printer.sh b/bash/printer.sh
new file mode 100644
index 0000000..911db17
--- /dev/null
+++ b/bash/printer.sh
@@ -0,0 +1,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