Add for do loop

Does not add for loop to parse tree.

1 files changed, 8 insertions, 0 deletions

diff --git a/pc.y b/pc.y
index a3a5df9..495f64a 100644
--- a/pc.y
+++ b/pc.y
@@ -56,6 +56,7 @@ extern int yylex();
 
 %token IF ELSE THEN
 %token WHILE DO
+%token FOR TO DT
 
 %token FCALL PCALL
 %token ARRAY_ACCESS
@@ -227,8 +228,15 @@ statement
 	{
 		$$ = mktree(WHILE, $2, $4);
 	}
+	|FOR var ASSIGNOP expr TD expr DO statement
+	{
+		/*TODO design tree structure for FOR loops*/
+		$$ = NULL;
+	}
 ;
 
+TD: TO | DT;
+
 var
 	:ID
 	{