gestalt-intersect is probably not useful as an API
(original commit adapted to naive-routing setting)
This commit is contained in:
parent
187d4affa8
commit
7c22d439ec
|
@ -20,7 +20,7 @@
|
||||||
gestalt-empty
|
gestalt-empty
|
||||||
gestalt-empty?
|
gestalt-empty?
|
||||||
gestalt-union
|
gestalt-union
|
||||||
gestalt-intersect
|
gestalt-filter
|
||||||
pretty-print-matcher
|
pretty-print-matcher
|
||||||
pretty-print-gestalt
|
pretty-print-gestalt
|
||||||
spawn
|
spawn
|
||||||
|
@ -82,7 +82,7 @@
|
||||||
(flatten g)))
|
(flatten g)))
|
||||||
|
|
||||||
(define (gestalt-union . gs) (flatten gs))
|
(define (gestalt-union . gs) (flatten gs))
|
||||||
(define (gestalt-intersect g1 g2) (intersect-routes (flatten g1) (flatten g2)))
|
(define (gestalt-filter g1 g2) (intersect-routes (flatten g1) (flatten g2)))
|
||||||
(define (gestalt-empty) '())
|
(define (gestalt-empty) '())
|
||||||
(define (gestalt-empty? g) (null? g))
|
(define (gestalt-empty? g) (null? g))
|
||||||
|
|
||||||
|
@ -311,4 +311,4 @@
|
||||||
[(message body meta-level feedback?)
|
[(message body meta-level feedback?)
|
||||||
(enqueue-event (message body (+ meta-level 1) feedback?) w)]))
|
(enqueue-event (message body (+ meta-level 1) feedback?) w)]))
|
||||||
|
|
||||||
(define routing-implementation 'naive)
|
(define routing-implementation 'naive)
|
||||||
|
|
|
@ -34,7 +34,7 @@
|
||||||
(printf "REF:")
|
(printf "REF:")
|
||||||
(pretty-print-matcher (gestalt-ref g 0 0 #f) #:indent 4)
|
(pretty-print-matcher (gestalt-ref g 0 0 #f) #:indent 4)
|
||||||
(printf "INTERSECTED:\n")
|
(printf "INTERSECTED:\n")
|
||||||
(pretty-print-gestalt (gestalt-intersect g (sub (set-timer ? ? ?))))
|
(pretty-print-gestalt (gestalt-filter g (pub (set-timer ? ? ?) #:level 1)))
|
||||||
#f]
|
#f]
|
||||||
[(message (timer-expired 'tick now) _ _)
|
[(message (timer-expired 'tick now) _ _)
|
||||||
(printf "TICK ~v\n" now)
|
(printf "TICK ~v\n" now)
|
||||||
|
|
|
@ -30,7 +30,7 @@
|
||||||
(printf "REF:")
|
(printf "REF:")
|
||||||
(pretty-print-matcher (gestalt-ref g 0 0 #f) #:indent 4)
|
(pretty-print-matcher (gestalt-ref g 0 0 #f) #:indent 4)
|
||||||
(printf "INTERSECTED:\n")
|
(printf "INTERSECTED:\n")
|
||||||
(pretty-print-gestalt (gestalt-intersect g (sub (set-timer ? ? ?))))
|
(pretty-print-gestalt (gestalt-filter g (pub (set-timer ? ? ?) #:level 1)))
|
||||||
#f]
|
#f]
|
||||||
[(message (timer-expired 'tick now) _ _)
|
[(message (timer-expired 'tick now) _ _)
|
||||||
(printf "TICK ~v\n" now)
|
(printf "TICK ~v\n" now)
|
||||||
|
|
Loading…
Reference in New Issue