From 976f80ed226e53625cd807539b9336f52f6eb091 Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Thu, 20 Jun 2024 20:25:19 +0200
Subject: Removed the need for () after rnd

---
 lib/qparser/idents.ml          | 2 +-
 lib/qparser/qsp_expression.mly | 4 ++++
 lib/qparser/tokens.mly         | 1 +
 3 files changed, 6 insertions(+), 1 deletion(-)

(limited to 'lib/qparser')

diff --git a/lib/qparser/idents.ml b/lib/qparser/idents.ml
index f96dd95..be3d76c 100644
--- a/lib/qparser/idents.ml
+++ b/lib/qparser/idents.ml
@@ -127,7 +127,7 @@ let _ =
       ("REPLACE", FUNCTION T.Replace);
       ("$REPLACE", FUNCTION T.Replace');
       ("RGB", FUNCTION T.Rgb);
-      ("RND", FUNCTION T.Rnd);
+      ("RND", FUNCTION_NOARGS T.Rnd);
       ("SAVEGAME", KEYWORD T.SaveGame);
       ("SELACT", FUNCTION T.Selact);
       ("$SELACT", IDENT "$SELACT");
diff --git a/lib/qparser/qsp_expression.mly b/lib/qparser/qsp_expression.mly
index 1e0988f..c6b7564 100644
--- a/lib/qparser/qsp_expression.mly
+++ b/lib/qparser/qsp_expression.mly
@@ -44,6 +44,10 @@
     {
         (Analyzer.Expression.function_ $loc k arg)
     }
+    | k = FUNCTION_NOARGS
+    {
+        (Analyzer.Expression.function_ $loc k [])
+    }
 literal:
     | v = LITERAL { Qsp_syntax.T.Text v }
     | e = delimited(ENTER_EMBED, expression, LEAVE_EMBED) 
diff --git a/lib/qparser/tokens.mly b/lib/qparser/tokens.mly
index 90e9e14..0ba5486 100644
--- a/lib/qparser/tokens.mly
+++ b/lib/qparser/tokens.mly
@@ -40,6 +40,7 @@
 %token NO
 %token <Qsp_syntax.T.keywords>KEYWORD
 %token <Qsp_syntax.T.function_>FUNCTION
+%token <Qsp_syntax.T.function_>FUNCTION_NOARGS
 
 (* 
 (b) if the token was declared left-associative, then the conflict is resolved
-- 
cgit v1.2.3