From 8b6acc85633520f109d348c5e46c8a89521b3932 Mon Sep 17 00:00:00 2001
From: Flavian Kaufmann <flavian@flaviankaufmann.ch>
Date: Wed, 21 May 2025 14:05:27 +0200
Subject: procedures

---
 src/lexer.l | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/lexer.l')

diff --git a/src/lexer.l b/src/lexer.l
index b2cbaab..285cbf7 100644
--- a/src/lexer.l
+++ b/src/lexer.l
@@ -19,10 +19,13 @@ WHITESPACE  [ \t\r\n]+
 "do"            { return T_DO; }
 "var"           { return T_VAR; }
 "in"            { return T_IN; }
+"procedure"     { return T_PROC; }
+"begin"         { return T_BEGIN; }
 
 "("             { return T_LPAREN; }
 ")"             { return T_RPAREN; }
 ";"             { return T_SEM; }
+","             { return T_COM; }
 ":="            { return T_ASSIGN; }
 
 "+"             { return T_PLUS; }
-- 
cgit v1.2.3