init

1 files changed, 22 insertions, 0 deletions

diff --git a/src/Evaluator.hs b/src/Evaluator.hs
new file mode 100644
index 0000000..f264ee0
--- /dev/null
+++ b/src/Evaluator.hs
@@ -0,0 +1,22 @@
+module Evaluator (
+    eval
+    ) where
+
+import           Operators
+import           Parser
+import           Text.ParserCombinators.Parsec
+
+apply :: String -> [Expr] -> Expr
+apply fn args =
+    case lookup fn primitives of
+      Just f -> f args
+      _      -> BoolLiteral False -- TODO: error out instead
+
+eval :: Expr -> Expr
+eval v@(StringLiteral s)     = v
+eval v@(IntLiteral i)        = v
+eval v@(BoolLiteral b)       = v
+-- handle quotes as literals
+eval (List[Id "quote", val]) = val
+eval (List (Id fn : args))   = apply fn $ map eval args
+