diff options
Diffstat (limited to 'AST.hs')
-rw-r--r-- | AST.hs | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -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 |