-- Evaluator for simple arithmetic expressions
-- Developed for use in COMP2600
-- Clem Baker-Finch

module Evaluator where

import AbsSyn

-- Function to evaluate arithmetic expressions:
eval :: Aexp -> Int

eval (Num n)      = n
eval (a0 :+: a1)  = (eval a0) + (eval a1)
eval (a0 :-: a1)  = (eval a0) - (eval a1)
eval (a0 :*: a1)  = (eval a0) * (eval a1)