Add for do loop

Does not add for loop to parse tree.

1 files changed, 15 insertions, 0 deletions

diff --git a/pc.l b/pc.l
index e744c4d..1a686d3 100644
--- a/pc.l
+++ b/pc.l
@@ -104,6 +104,21 @@ id	[A-Za-z][A-Za-z0-9_]*
 	return DO;
 }
 
+"for" {
+	debug_print(FOR, NULL);
+	return FOR;
+}
+
+"to" {
+	debug_print(TO, NULL);
+	return TO;
+}
+
+"downto" {
+	debug_print(DT, NULL);
+	return DT;
+}
+
 "not" {
 	debug_print(NOT, NULL);
 	return NOT;