X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Fparse.dcl;h=baef54567d9bd2e19a8643509fe0664925ac8f4b;hb=50b5f82d49946ae0125b1815903865eb11a386b4;hp=a5bc93a6e89221b1135a3854d010edfe381201cc;hpb=ff0b269598ad277346c81db9d9bc86b4c244e1e2;p=cc1516.git

diff --git a/src/parse.dcl b/src/parse.dcl
index a5bc93a..baef545 100644
--- a/src/parse.dcl
+++ b/src/parse.dcl
@@ -17,28 +17,30 @@ import lex
 	| BoolType
 	| CharType
 	| VarType
-
 :: Expr 
-	= VarExpr String (Maybe FieldSelector)
-	| Op2Expr Expr Op2 Expr //TODO, iets met associativiteit wat niet weet hoe
+	= VarExpr VarDef
+	| Op2Expr Expr Op2 Expr
 	| Op1Expr Op1 Expr
 	| IntExpr Int
 	| CharExpr Char
 	| BoolExpr Bool
-	| FunExpr String [Expr]
+	| FunExpr FunCall
 	| EmptyListExpr
 	| TupleExpr Expr Expr
-
+:: VarDef = VarDef String [FieldSelector]
 :: FieldSelector = FieldHd | FieldTl | FieldFst | FieldSnd
 :: Op1 = UnNegation | UnMinus
 :: Op2 = BiPlus | BiMinus | BiTimes | BiDivide | BiMod | BiEquals | BiLesser |
 	BiGreater | BiLesserEq | BiGreaterEq | BiUnEqual | BiAnd | BiOr | BiCons
-
-//TODO
-
 :: FunDecl = FunDecl String [String] FunType [VarDecl] [Stmt]
-:: FunType = Stub
-:: Stmt = Stubbel
+:: FunType = FunType [Type] (Maybe Type)
+:: FunCall = FunCall String [Expr]
+:: Stmt 
+	= IfStmt Expr [Stmt] [Stmt]
+	| WhileStmt Expr [Stmt]
+	| AssStmt VarDef Expr
+	| FunStmt FunCall
+	| ReturnStmt (Maybe Expr)
 
 instance toString AST