From 95cb13a3265bee7c037d5bec320078925e4c2e7a Mon Sep 17 00:00:00 2001
From: mtardy <mahe5397@hotmail.fr>
Date: Mon, 6 Jul 2020 19:24:09 +0200
Subject: [PATCH] Add the (not working) null keyword

---
 calc.leg | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/calc.leg b/calc.leg
index 7bb599d..2d0817a 100644
--- a/calc.leg
+++ b/calc.leg
@@ -161,7 +161,9 @@ oop intern(char *ident)
 oop update_symbol_value(oop symbol, oop integer)
 {
 	_checkType(symbol, Symbol);
-	_checkType(integer, Integer);
+	// For now it will fail with assigning to null
+	// because for now we can write "a=2 b=a" because everything is passed by value
+	_checkType(integer, Integer); 
 	symbol->Symbol.value = integer;
 	return symbol;
 }
@@ -191,17 +193,19 @@ neg		=	MINUS n:neg				{ set(n, Integer, value, -get(n, Integer, value)); $$ = n
 			| n:value				{ $$ = n }
 
 value	=	n:NUMBER				{ $$ = n }
+			| NULL					{ $$ = null; // For now it doesn't work because of _checktype in update_symbol_value() }
 			| l:IDENT				{ $$ = get(l, Symbol, value); // Will result in an assertion failed if ident is undefined }
 
 -		=	[ \t]*
 NUMBER	=	< [0-9]+ >	-			{ $$ = makeInteger(atoi(yytext)) }
+IDENT	=	< [a-zA-Z][a-zA-Z0-9_]* >	-	{ $$ = intern(yytext) }
 PLUS	=	'+'			-
 MINUS	=	'-'			-
 MULTI	=	'*'			-
 DIVIDE	=	'/'			-
 MODULO	=	'%'			-
 EQUAL	=	'='			-
-IDENT	=	< [a-zA-Z][a-zA-Z0-9_]* >	-	{ $$ = intern(yytext) }
+NULL	=	'null'		-
 
 %%