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, 44 insertions, 0 deletions

diff --git a/js/printer.js b/js/printer.js
new file mode 100644
index 0000000..0d84cc6
--- /dev/null
+++ b/js/printer.js
@@ -0,0 +1,44 @@
+// Node vs browser behavior
+var printer = {};
+if (typeof module !== 'undefined') {
+    var types = require('./types');
+    // map output/print to console.log
+    var print = exports.print = function () { console.log.apply(console, arguments); };
+} else {
+    var exports = printer;
+}
+
+function _pr_str(obj, print_readably) {
+    if (typeof print_readably === 'undefined') { print_readably = true; }
+    var _r = print_readably;
+    var ot = types._obj_type(obj);
+    switch (ot) {
+    case 'list':
+        var ret = obj.map(function(e) { return _pr_str(e,_r); });
+        return "(" + ret.join(' ') + ")";
+    case 'vector':
+        var ret = obj.map(function(e) { return _pr_str(e,_r); });
+        return "[" + ret.join(' ') + "]";
+    case 'hash-map':
+        var ret = [];
+        for (var k in obj) {
+            ret.push(_pr_str(k,_r), _pr_str(obj[k],_r));
+        }
+        return "{" + ret.join(' ') + "}";
+    case 'string':
+        if (print_readably) {
+            return '"' + obj.replace(/\\/, "\\\\").replace(/"/g, '\\"') + '"';
+        } else {
+            return obj;
+        }
+    case 'nil':
+        return "nil";
+    case 'atom':
+        return "(atom " + _pr_str(obj.val,_r) + ")";
+    default:
+        return obj.toString();
+    }
+}
+
+exports._pr_str = printer._pr_str = _pr_str;
+