From a0183ecb42f016cd9e257304e74c571df1a8a522 Mon Sep 17 00:00:00 2001
From: brad Arant <barant@barant.com>
Date: Fri, 1 Nov 2024 12:44:59 -0700
Subject: [PATCH] Added RANDOM() function.

---
 Operand.cpp          | 6 +++++-
 tests/testrandom.jet | 7 +++++++
 2 files changed, 12 insertions(+), 1 deletion(-)
 create mode 100755 tests/testrandom.jet

diff --git a/Operand.cpp b/Operand.cpp
index 7cea175..ca823de 100644
--- a/Operand.cpp
+++ b/Operand.cpp
@@ -2,6 +2,7 @@
 #include "Exception.h"
 #include <format>
 #include <iostream>
+#include <time.h>
 
 namespace jet {
 
@@ -66,7 +67,10 @@ namespace jet {
       } else if(in.ifNext("ROUND")) {
 	 
       } else if(in.ifNext("RANDOM")) {
-	 
+	 unsigned int seed = (unsigned int)clock();
+	 doubleValue = (double) rand_r(&seed) / (RAND_MAX + 1.0);
+	 isNumber = true;
+	 string = std::format("{}", doubleValue);	 
       } else if(in.ifNext("true")) {
 	 boolean = true;
 	 string = "true";
diff --git a/tests/testrandom.jet b/tests/testrandom.jet
new file mode 100755
index 0000000..d8f49c0
--- /dev/null
+++ b/tests/testrandom.jet
@@ -0,0 +1,7 @@
+#!../jet-2.0
+<jet cgi="true" name1="localname" filterblanklines="true" trimlines="true">
+ <for name="ix" start="1" end="20" step="1">
+  <set name="random" expr="RANDOM()" />
+  $[random]
+ </for>
+</jet>