From 409470d0bc54e60b3a6f9cae338da750c1f50233 Mon Sep 17 00:00:00 2001
From: Lisa Milne <lisamilne618@gmail.com>
Date: Thu, 14 Dec 2023 16:10:00 +1000
Subject: [PATCH] add sleep() and sleep command

---
 clite/commands.js | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 clite/core.js     |  6 ++++--
 clite/libstd.js   |  6 ++++++
 3 files changed, 57 insertions(+), 2 deletions(-)

diff --git a/clite/commands.js b/clite/commands.js
index d840e3e..dc41ea8 100644
--- a/clite/commands.js
+++ b/clite/commands.js
@@ -1535,6 +1535,53 @@ Options:
 	return main(args);
 });
 
+clite.commands.load('sleep',function(args,env,io) {
+	var stdio = io.include('stdio');
+	var stdlib = io.include('stdlib');
+
+	function help() {
+		stdio.printf(`
+sleep - suspend execution for a time
+Usage: sleep [OPTION] <SECONDS>
+
+Options:
+-?	Print this help information
+`);
+	}
+
+	function scb(r) {
+		io.exit(0);
+	}
+
+	function main(args) {
+		var seconds = 0;
+		for (var i=1; i<args.length; i++) {
+			if (args[i][0] == '-') {
+				for (var j=1; j<args[i].length; j++) {
+					switch (args[i][j]) {
+					case '?':
+						help();
+						return 0;
+						break;
+					default:
+						stdio.fprintf(io.stderr,'unknown argument: -%c\n',args[i][j]);
+					}
+				}
+			}else{
+				seconds = parseInt(args[i]);
+			}
+		}
+		if (seconds < 1)
+			return 0;
+
+		if (!stdlib.sleep(seconds,scb))
+			return 1;
+		return null;
+	}
+
+	return main(args);
+});
+
 if (window.location.protocol == 'file:')
 clite.commands.load('test',function(args,env,io) {
 	var stdio = io.include('stdio');
diff --git a/clite/core.js b/clite/core.js
index 53db1f0..f74cd5e 100644
--- a/clite/core.js
+++ b/clite/core.js
@@ -32,9 +32,11 @@ var clite = {
 			}
 			return true;
 		},
-		execSafeAsync:function(f) {
+		execSafeAsync:function(f,delay) {
+			if (typeof delay !== 'number')
+				delay = 10;
 			try{
-				setTimeout(f,10);
+				setTimeout(f,delay);
 			} catch(e) {
 				clite.log.write(e.message);
 				return false;
diff --git a/clite/libstd.js b/clite/libstd.js
index 3316903..edf6f24 100644
--- a/clite/libstd.js
+++ b/clite/libstd.js
@@ -92,6 +92,12 @@ return Object.create({
 	// wait for all child processes to exit
 	waitall:function(cb) {
 		return clite.proc.addWaitGroupAll(io.pid,cb);
+	},
+
+	sleep:function(seconds,cb) {
+		return clite.core.execSafeAsync(function() {
+			cb(0);
+		},seconds*1000);
 	}
 
 });