small fix

[cc1516.git] / src / parse.dcl

diff --git a/src/parse.dcl b/src/parse.dcl
index 3f42eda..8a368ba 100644 (file)
--- a/src/parse.dcl
+++ b/src/parse.dcl
@@ -20,11 +20,12 @@ import lex
 
 :: Expr 
        = VarExpr String (Maybe FieldSelector)
-       | Op2Expr Expr Op2 Expr //TODO, iets met associativiteit wat niet weet hoe
+       | Op2Expr Expr Op2 Expr
        | Op1Expr Op1 Expr
        | IntExpr Int
        | CharExpr Char
        | BoolExpr Bool
+       | FunExpr String [Expr]
        | EmptyListExpr
        | TupleExpr Expr Expr
 
@@ -35,6 +36,10 @@ import lex
 
 //TODO
 
-:: FunDecl = Stub
+:: FunDecl = FunDecl String [String] FunType [VarDecl] [Stmt]
+:: FunType = Stub
+:: Stmt = Stubbel
 
-parse :: LexerOutput -> ParserOutput
+instance toString AST
+
+parser :: LexerOutput -> ParserOutput