syndicate-2017/historical/syndicate-monolithic/examples/example-quit-world.rkt

36 lines
1.2 KiB
Racket

#lang syndicate-monolithic
;; Demonstrates quit-dataspace.
(require (only-in racket/port read-bytes-line-evt))
(define (spawn-command-listener)
(spawn (lambda (e s)
(match e
[(message (at-meta (at-meta (external-event _ (list #"quit")))))
(printf "Quitting just the leaf actor.\n")
(quit)]
[(message (at-meta (at-meta (external-event _ (list #"quit-dataspace")))))
(printf "Terminating the whole dataspace.\n")
(transition s (quit-dataspace))]
[_ #f]))
(void)
(scn (subscription (external-event (read-bytes-line-evt (current-input-port) 'any) ?)
#:meta-level 2))))
(define (spawn-ticker)
(define (sub-to-alarm)
(scn (subscription (external-event (alarm-evt (+ (current-inexact-milliseconds) 1000)) ?)
#:meta-level 2)))
(spawn (lambda (e s)
(match e
[(message (at-meta (at-meta (external-event _ _))))
(printf "Tick!\n")
(transition s (sub-to-alarm))]
[_ #f]))
(void)
(sub-to-alarm)))
(printf "Type 'quit' or 'quit-dataspace'.\n")
(spawn-dataspace (spawn-command-listener)
(spawn-ticker))