From 2460496c2abde2ed8d8324aab0570ce3a2718e68 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Mon, 9 Mar 2026 01:03:19 +1100
Subject: ms

---
 jefs.fs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'jefs.fs')

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
-- 
cgit v1.2.3