ms

1 files changed, 16 insertions, 0 deletions

diff --git a/jefs.fs b/jefs.fs
index 321bb8a..eae3b9e 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -443,6 +443,22 @@ make old-termios old-termios# allot
 	dup raw-cflag TCSETSF stdin ioctl ;
 \ }}}
 
+\ TIME {{{
+: nanosleep  35 syscall2 ;
+
+16 constant timespec#
+make timespec timespec# allot
+
+: timespec.tv_sec  timespec ;
+: timespec.tv_nsec  timespec 8 + ;
+
+: ms>ns ( u -- u' )  1000000 * ;
+: ns>ms ( u -- u' )  1000000 / ;
+: ms>sec ( u -- ms sec )  1000 /mod ;
+
+: ms ( u -- )  ms>sec timespec.tv_sec ! ms>ns timespec.tv_nsec ! 0 timespec nanosleep errno .errno ;
+\ }}}
+
 \ DUMP {{{
 \ it's designed to look like xxd. i like xxd's hex dumps.
 hex