More exports and utilities
This commit is contained in:
parent
4711069f36
commit
f788caf754
|
@ -13,11 +13,21 @@
|
||||||
(struct-out quit)
|
(struct-out quit)
|
||||||
(struct-out process)
|
(struct-out process)
|
||||||
(struct-out transition)
|
(struct-out transition)
|
||||||
? ;; imported from route.rkt
|
|
||||||
|
;; imported from route.rkt:
|
||||||
|
?
|
||||||
wildcard?
|
wildcard?
|
||||||
|
?!
|
||||||
|
capture?
|
||||||
|
|
||||||
sub
|
sub
|
||||||
pub
|
pub
|
||||||
gestalt-union
|
gestalt-union
|
||||||
|
gestalt-ref
|
||||||
|
compile-gestalt-projection
|
||||||
|
gestalt-project
|
||||||
|
gestalt-project->finite-set
|
||||||
|
|
||||||
spawn
|
spawn
|
||||||
send
|
send
|
||||||
feedback
|
feedback
|
||||||
|
|
|
@ -8,12 +8,16 @@
|
||||||
|
|
||||||
(provide (struct-out gestalt)
|
(provide (struct-out gestalt)
|
||||||
gestalt-ref
|
gestalt-ref
|
||||||
|
compile-gestalt-projection
|
||||||
gestalt-project
|
gestalt-project
|
||||||
|
gestalt-project->finite-set
|
||||||
drop-gestalt
|
drop-gestalt
|
||||||
lift-gestalt
|
lift-gestalt
|
||||||
simple-gestalt
|
simple-gestalt
|
||||||
gestalt-empty
|
gestalt-empty
|
||||||
gestalt-combine
|
gestalt-combine
|
||||||
|
gestalt-combine-straight
|
||||||
|
gestalt-combine-crossed
|
||||||
gestalt-union
|
gestalt-union
|
||||||
gestalt-intersect
|
gestalt-intersect
|
||||||
gestalt-filter
|
gestalt-filter
|
||||||
|
@ -60,9 +64,15 @@
|
||||||
(define p (safe-list-ref v level (lambda () '(#f . #f))))
|
(define p (safe-list-ref v level (lambda () '(#f . #f))))
|
||||||
((if get-advertisements? cdr car) p))
|
((if get-advertisements? cdr car) p))
|
||||||
|
|
||||||
|
(define (compile-gestalt-projection spec)
|
||||||
|
(compile-projection spec))
|
||||||
|
|
||||||
(define (gestalt-project g metalevel level get-advertisements? capture-spec)
|
(define (gestalt-project g metalevel level get-advertisements? capture-spec)
|
||||||
(matcher-project (gestalt-ref g metalevel level get-advertisements?) capture-spec))
|
(matcher-project (gestalt-ref g metalevel level get-advertisements?) capture-spec))
|
||||||
|
|
||||||
|
(define (gestalt-project->finite-set g metalevel level get-advertisements? capture-spec)
|
||||||
|
(matcher->finite-set (gestalt-project g metalevel level get-advertisements? capture-spec)))
|
||||||
|
|
||||||
(define (drop-gestalt g)
|
(define (drop-gestalt g)
|
||||||
(match-define (gestalt metalevels) g)
|
(match-define (gestalt metalevels) g)
|
||||||
(if (null? metalevels) g (gestalt (cdr metalevels))))
|
(if (null? metalevels) g (gestalt (cdr metalevels))))
|
||||||
|
|
Loading…
Reference in New Issue