Actorize the timer driver and avoid inertness-preventing permanent subscription at ground-meta-level

minimart/drivers/timer.rkt

@@ -20,21 +20,23 @@
 (struct timer-expired (label msecs) #:prefab)
 
 (define (spawn-timer-driver)
+  (actor #:name timer-driver
+	 #:state [count 0]
+
 	 (define control-ch (make-channel))
 	 (thread (lambda () (timer-driver-thread-main control-ch)))
-  (spawn timer-driver control-ch (gestalt-union (sub (set-timer ? ? 'relative))
-						(sub (set-timer ? ? 'absolute))
-						(pub (timer-expired ? ?))
-						(sub (timer-expired ? ?) #:meta-level 1))))
 
-(define (timer-driver e control-ch)
+	 (subscribe ($ expiry (timer-expired ? ?))
-  (match e
+	   #:meta-level 1
-    [(message (? timer-expired? expiry) 1 #f)
+	   #:when (positive? count)
-     (transition control-ch (send expiry))]
+	   (send expiry)
-    [(message (? set-timer? instruction) 0 #f)
+	   #:update [count (- count 1)]
+	   #:update-routes) ;; TODO: only update-routes when count is zero
+
+	 (subscribe ($ instruction (set-timer ? ? ?))
 	   (channel-put control-ch instruction)
-     #f]
+	   #:update [count (+ count 1)]
-    [_ #f]))
+	   #:update-routes))) ;; TODO: only update-routes when count was zero
 
 (define (timer-driver-thread-main control-ch)
   (define heap (make-timer-heap))