True OS sleep on yield() and wait()

Author: marcgurevitx

MiniScript-cpp/src/MiniScript/MiniscriptIntrinsics.cpp

@@ -14,6 +14,8 @@
 #include <cmath>
 #include <ctime>
 #include <algorithm>
+#include <chrono>
+#include <thread>
 
 namespace MiniScript {
 
@@ -855,16 +857,10 @@ namespace MiniScript {
 	}
 
 	static IntrinsicResult intrinsic_wait(Context *context, IntrinsicResult partialResult) {
-		double now = context->vm->RunTime();
-		if (partialResult.Done()) {
-			// Just starting our wait; calculate end time and return as partial result
-			double interval = context->GetVar("seconds").DoubleValue();
-			return IntrinsicResult(Value(now + interval), false);
-		} else {
-			// Continue until current time exceeds the time in the partial result
-			if (now > partialResult.Result().DoubleValue()) return IntrinsicResult::Null;
-			return partialResult;
-		}
+		double seconds = context->GetVar("seconds").DoubleValue();
+		long nanoseconds = seconds * 1000000000;
+		std::this_thread::sleep_for(std::chrono::nanoseconds(nanoseconds));
+		return IntrinsicResult::Null;
 	}
 
 	static IntrinsicResult intrinsic_yield(Context *context, IntrinsicResult partialResult) {

MiniScript-cpp/src/main.cpp

@@ -9,6 +9,8 @@
 #include <iostream>
 #include <fstream>
 #include <string>
+#include <chrono>
+#include <thread>
 #include "MiniScript/SimpleString.h"
 #include "MiniScript/UnicodeUtil.h"
 #include "MiniScript/UnitTest.h"
@@ -22,6 +24,9 @@
 #include "ShellIntrinsics.h"
 #include "DateTimeUtils.h"	// TEMP for initial testing
 
+// YIELD_NANOSECONDS: How many nano-seconds to sleep when yielding.
+#define YIELD_NANOSECONDS 10000000
+
 using namespace MiniScript;
 
 bool printHeaderInfo = true;
@@ -127,6 +132,7 @@ static int DoCommand(Interpreter &interp, String cmd) {
 	while (!interp.Done()) {
 		try {
 			interp.RunUntilDone();
+			std::this_thread::sleep_for(std::chrono::nanoseconds(YIELD_NANOSECONDS));
 		} catch (MiniscriptException& mse) {
 			std::cerr << "Runtime Exception: " << mse.message << std::endl;
 			interp.vm->Stop();