Add int_random and millis

Author: MaartenS11

platforms/Zephyr/prj.conf

@@ -38,4 +38,8 @@ CONFIG_STM32_ENABLE_DEBUG_SLEEP_STOP=y
 # This needs to be enabled for older espressif boards
 #CONFIG_ESP32_USE_UNSUPPORTED_REVISION=y
 
+# Display drivers
 CONFIG_DISPLAY=y
+
+# Needed for random number generation primitives
+CONFIG_ENTROPY_GENERATOR=y

src/Primitives/zephyr.cpp

@@ -19,6 +19,7 @@
 #include <zephyr/drivers/gpio.h>
 #include <zephyr/drivers/pwm.h>
 #include <zephyr/kernel.h>
+#include <zephyr/random/random.h>
 #include <zephyr/sys/util_macro.h>
 
 #include <chrono>
@@ -123,6 +124,16 @@ def_prim(chip_digital_read, oneToOneU32) {
     return true;
 }
 
+def_prim(millis, NoneToOneU32) {
+    pushInt32(k_uptime_get());
+    return true;
+}
+
+def_prim(int_random, NoneToOneU32) {
+    pushInt32(sys_rand32_get());
+    return true;
+}
+
 def_prim(print_string, twoToNoneU32) {
     uint32_t addr = arg1.uint32;
     uint32_t size = arg0.uint32;
@@ -490,6 +501,8 @@ void install_primitives(Interpreter *interpreter) {
     install_primitive(chip_pin_mode);
     install_reversible_primitive(chip_digital_write);
     install_primitive(chip_digital_read);
+    install_primitive(millis);
+    install_primitive(int_random);
     install_primitive(print_string);
     install_primitive(print_int);
     install_primitive(abort);