33 lines
894 B
Racket
33 lines
894 B
Racket
#lang typed/racket/base
|
|
|
|
(require "../sugar-typed.rkt")
|
|
|
|
(provide generic-spy)
|
|
|
|
(: generic-spy : (All (ParentState) Any -> (Spawn ParentState)))
|
|
(define (generic-spy label)
|
|
(name-process `(generic-spy ,label)
|
|
(spawn: #:parent : ParentState
|
|
#:child : Void
|
|
(transition: (void) : Void
|
|
(observe-publishers: Void (wild)
|
|
(match-orientation orientation
|
|
(match-conversation topic
|
|
(match-interest-type interest
|
|
(match-reason reason
|
|
(on-presence (begin (write `(,label ENTER (,orientation ,topic ,interest)))
|
|
(newline)
|
|
(flush-output)
|
|
'()))
|
|
(on-absence (begin (write `(,label EXIT (,orientation ,topic ,interest)))
|
|
(newline)
|
|
(display reason)
|
|
(newline)
|
|
(flush-output)
|
|
'()))
|
|
(on-message
|
|
[p (begin (write `(,label MSG ,p))
|
|
(newline)
|
|
(flush-output)
|
|
'())]))))))))))
|