Add control.timeout

ChangeLog

@@ -1,3 +1,7 @@
+2025-01-17  Shiro Kawai  <[email protected]>
+
+	* lib/control/timeout.scm: Added experimentally.
+
 2025-01-15  Shiro Kawai  <[email protected]>
 
 	* lib/math/prime.scm (grouped-factorize, reduced-totient): Added.

lib/Makefile.in

@@ -107,7 +107,8 @@ SCMFILES = \
        r7rs-setup.scm \
        binary/ftype.scm binary/pack.scm \
        control/cseq.scm control/future.scm control/job.scm control/plumbing.scm \
-       control/pmap.scm control/scheduler.scm control/thread-pool.scm \
+       control/pmap.scm control/scheduler.scm control/timeout.scm \
+       control/thread-pool.scm \
        dbi.scm dbd/null.scm dbm.scm dbm/fsdbm.scm dbm/dump dbm/restore \
        data/cache.scm data/heap.scm \
        data/ideque.scm data/imap.scm data/priority-map.scm data/random.scm \

test/control.scm

@@ -689,4 +689,25 @@
          (port-closed? outlet0))
   )
 
+;;--------------------------------------------------------------------
+;; control.timeout
+;;
+
+(test-section "control.timeout")
+(use control.timeout)
+(use srfi.19)
+(test-module 'control.timeout)
+
+(test* "timeout (not)" 'ok
+       (do/timeout (10 'oops) (sys-nanosleep 10) 'ok))
+
+(test* "timeout (timeout)" 'oops
+       (do/timeout (0.1 'oops) (sys-sleep 1) 'ok))
+
+(test* "timeout (already passed)" 'oops
+       (do/timeout ((subtract-duration (current-time)
+                                       (make-time time-duration 0 1))
+                    'oops)
+                   (sys-sleep 1) 'ok))
+
 (test-end)