aboutsummaryrefslogtreecommitdiff
path: root/AST.hs
diff options
context:
space:
mode:
Diffstat (limited to 'AST.hs')
-rw-r--r--AST.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/AST.hs b/AST.hs
index 5217d46..197edf9 100644
--- a/AST.hs
+++ b/AST.hs
@@ -30,6 +30,7 @@ data Statement
| SBreak Int
| SReturn (Maybe Expression)
| SExpr Expression
+ | SDebugger
deriving (Show, Eq)
data AsExpression
@@ -49,6 +50,7 @@ data Expression
data BinaryOp
= BOAdd | BOSub | BOMul | BODiv | BOMod | BOPow
| BOAnd | BOOr
+ | BOBitAnd | BOBitOr | BOBitXor
| BOEq | BONeq | BOGt | BOLt | BOGeq | BOLeq
deriving (Show, Eq)
@@ -121,6 +123,7 @@ instance Pretty Statement where
prettyI i (SReturn (Just e)) =
"return " ++ prettyI i e ++ ";"
prettyI i (SExpr e) = prettyI i e ++ ";"
+ prettyI _ SDebugger = "debugger;"
instance Pretty Expression where
prettyI i (EBin bo a b (Just t)) =
@@ -164,6 +167,9 @@ instance Pretty BinaryOp where
prettyI _ BOLt = "<"
prettyI _ BOGeq = ">="
prettyI _ BOLeq = "<="
+ prettyI _ BOBitAnd = "&"
+ prettyI _ BOBitOr = "|"
+ prettyI _ BOBitXor = "^"
instance Pretty UnaryOp where