From ea81a8087bcd7953b083a2be9db447f75e7ebf56 Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Wed, 2 Apr 2014 22:23:37 -0500
Subject: 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.
---
 ps/printer.ps | 61 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 ps/printer.ps

(limited to 'ps/printer.ps')

diff --git a/ps/printer.ps b/ps/printer.ps
new file mode 100644
index 0000000..c2e42a5
--- /dev/null
+++ b/ps/printer.ps
@@ -0,0 +1,61 @@
+(in types.ps\n) print
+
+% requires types.ps to be included first
+
+/_pr_str { 4 dict begin
+    /print_readably exch def
+    dup
+    /func? exch xcheck def % executable function
+    /obj exch cvlit def
+    obj _mal_function? { % if user defined function
+        (<\(fn* )
+        obj /params get print_readably _pr_str
+        ( )
+        obj /ast get print_readably _pr_str
+        (\)>)
+        concatenate concatenate concatenate concatenate
+    }{ /arraytype obj type eq { % if list or code block
+        % accumulate an array of strings
+        func? { (<builtin_fn* { ) }{ (\() } ifelse
+        obj ( ) print_readably _pr_str_args
+        concatenate
+        func? { ( } >) }{ (\)) } ifelse
+        concatenate
+    }{ /integertype obj type eq { % if number
+        /slen obj 10 add log ceiling cvi def
+        obj 10 slen string cvrs
+    }{ /stringtype obj type eq { % if string
+        print_readably {
+            (") obj (") concatenate concatenate
+        }{
+            obj
+        } ifelse
+    }{ null obj eq { % if nil
+        (nil)
+    }{ true obj eq { % if true
+        (true)
+    }{ false obj eq { % if false
+        (false)
+    }{ /nametype obj type eq { % if symbol
+        obj dup length string cvs
+    }{
+        (<unknown>) 
+    } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse
+end } def
+
+% array delim print_readably -> _pr_str_args -> new_string
+/_pr_str_args { 3 dict begin
+    /print_readably exch def
+    /delim exch def
+    /args exch def
+    ()
+    args length 0 gt { %if any elements
+        [
+            args { %foreach argument in array
+                print_readably _pr_str
+            } forall 
+        ]
+        { concatenate delim concatenate } forall
+        dup length delim length sub 0 exch getinterval % strip off final delim
+    } if
+end } def
-- 
cgit v1.2.3