shithub: femtolisp

Info  •  Files  •  Log  •  Branches

add "sleep" builtin

--- a/builtins.c

+++ b/builtins.c

@@ -301,7 +301,7 @@

 	return mk_double(sec_realtime());

 }

-static double

+double

 todouble(value_t a)

 {

 	if(isfixnum(a))

--- a/flisp.c

+++ b/flisp.c

@@ -13,6 +13,7 @@

 #include "types.h"

 #include "print.h"

 #include "read.h"

+#include "timefuncs.h"

 #include "equal.h"

 #include "hashing.h"

 #include "table.h"

@@ -2068,6 +2069,15 @@

 		fl_free_gc_handles(2);

 	}

 	return first;

+}

+

+BUILTIN("sleep", fl_sleep)

+{

+	if(nargs > 1)

+		argcount(nargs, 1);

+	double s = nargs > 0 ? todouble(args[0]) : 0;

+	sleep_ms(s * 1000.0);

+	return FL_T;

 }

 static const builtinspec_t builtin_fns[] = {