diff options
Diffstat (limited to 'src/Evaluator.hs')
-rw-r--r-- | src/Evaluator.hs | 22 |
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 @@ | |||
1 | module Evaluator ( | ||
2 | eval | ||
3 | ) where | ||
4 | |||
5 | import Operators | ||
6 | import Parser | ||
7 | import Text.ParserCombinators.Parsec | ||
8 | |||
9 | apply :: String -> [Expr] -> Expr | ||
10 | apply fn args = | ||
11 | case lookup fn primitives of | ||
12 | Just f -> f args | ||
13 | _ -> BoolLiteral False -- TODO: error out instead | ||
14 | |||
15 | eval :: Expr -> Expr | ||
16 | eval v@(StringLiteral s) = v | ||
17 | eval v@(IntLiteral i) = v | ||
18 | eval v@(BoolLiteral b) = v | ||
19 | -- handle quotes as literals | ||
20 | eval (List[Id "quote", val]) = val | ||
21 | eval (List (Id fn : args)) = apply fn $ map eval args | ||
22 | |||