syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

More thoughtless uncommenting of query-* forms

This commit is contained in:
Tony Garnock-Jones 2018-05-01 20:58:02 +01:00
parent 9c22868bd2
commit e43054a6bd
1 changed files with 56 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

112
syndicate/syntax.rkt
View File

@ -29,18 +29,18 @@
let-event let-event
query-value query-value
;; query-set query-set
;; query-hash query-hash
;; query-hash-set ;; query-hash-set
;; query-count ;; query-count
query-value* query-value*
;; query-set* query-set*
;; query-hash* query-hash*
;; query-hash-set* ;; query-hash-set*
;; query-count* ;; query-count*
define/query-value define/query-value
;; define/query-set define/query-set
;; define/query-hash define/query-hash
;; define/query-hash-set ;; define/query-hash-set
;; define/query-count ;; define/query-count
;; immediate-query ;; immediate-query
@ -466,57 +466,57 @@
(F absent-expr)) (F absent-expr))
F))])) F))]))
;; (define-syntax (query-set stx) (define-syntax (query-set stx)
;; (syntax-parse stx (syntax-parse stx
;; [(_ field-name args ...) [(_ field-name args ...)
;; (quasisyntax/loc stx (quasisyntax/loc stx
;; (let () (let ()
;; (field [field-name (set)]) (field [field-name (set)])
;; (query-set* field-name args ...)))])) (query-set* field-name args ...)))]))
;; (define-syntax (query-set* stx) (define-syntax (query-set* stx)
;; (syntax-parse stx (syntax-parse stx
;; [(_ field-name P expr on-add:on-add on-remove:on-remove) [(_ field-name P expr on-add:on-add on-remove:on-remove)
;; (quasisyntax/loc stx (quasisyntax/loc stx
;; (let ((F field-name)) (let ((F field-name))
;; (on (asserted P) #:priority *query-priority* (on (asserted P) #:priority *query-priority*
;; (let ((V expr)) (let ((V expr))
;; (when (not (set-member? (F) V)) (when (not (set-member? (F) V))
;; #,@(schedule-query-handler-stxs (attribute on-add.expr)) #,@(schedule-query-handler-stxs (attribute on-add.expr))
;; (F (set-add (F) V))))) (F (set-add (F) V)))))
;; (on (retracted P) #:priority *query-priority-high* (on (retracted P) #:priority *query-priority-high*
;; (let ((V expr)) (let ((V expr))
;; (when (set-member? (F) V) (when (set-member? (F) V)
;; #,@(schedule-query-handler-stxs (attribute on-remove.expr)) #,@(schedule-query-handler-stxs (attribute on-remove.expr))
;; (F (set-remove (F) V))))) (F (set-remove (F) V)))))
;; F))])) F))]))
;; (define-syntax (query-hash stx) (define-syntax (query-hash stx)
;; (syntax-parse stx (syntax-parse stx
;; [(_ field-name args ...) [(_ field-name args ...)
;; (quasisyntax/loc stx (quasisyntax/loc stx
;; (let () (let ()
;; (field [field-name (hash)]) (field [field-name (hash)])
;; (query-hash* field-name args ...)))])) (query-hash* field-name args ...)))]))
;; (define-syntax (query-hash* stx) (define-syntax (query-hash* stx)
;; (syntax-parse stx (syntax-parse stx
;; [(_ field-name P key-expr value-expr on-add:on-add on-remove:on-remove) [(_ field-name P key-expr value-expr on-add:on-add on-remove:on-remove)
;; (quasisyntax/loc stx (quasisyntax/loc stx
;; (let ((F field-name)) (let ((F field-name))
;; (on (asserted P) #:priority *query-priority* (on (asserted P) #:priority *query-priority*
;; (let ((key key-expr)) (let ((key key-expr))
;; (when (hash-has-key? (F) key) (when (hash-has-key? (F) key)
;; (log-warning "query-hash: field ~v with pattern ~v: overwriting existing entry ~v" (log-warning "query-hash: field ~v with pattern ~v: overwriting existing entry ~v"
;; 'field-name 'field-name
;; 'P 'P
;; key)) key))
;; #,@(schedule-query-handler-stxs (attribute on-add.expr)) #,@(schedule-query-handler-stxs (attribute on-add.expr))
;; (F (hash-set (F) key value-expr)))) (F (hash-set (F) key value-expr))))
;; (on (retracted P) #:priority *query-priority-high* (on (retracted P) #:priority *query-priority-high*
;; #,@(schedule-query-handler-stxs (attribute on-remove.expr)) #,@(schedule-query-handler-stxs (attribute on-remove.expr))
;; (F (hash-remove (F) key-expr))) (F (hash-remove (F) key-expr)))
;; F))])) F))]))
;; (define-syntax (query-hash-set stx) ;; (define-syntax (query-hash-set stx)
;; (syntax-parse stx ;; (syntax-parse stx
@ -571,8 +571,8 @@
;; F))])) ;; F))]))
(define-syntax-rule (define/query-value id ae P x ...) (define id (query-value id ae P x ...))) (define-syntax-rule (define/query-value id ae P x ...) (define id (query-value id ae P x ...)))
;; (define-syntax-rule (define/query-set id P x ...) (define id (query-set id P x ...))) (define-syntax-rule (define/query-set id P x ...) (define id (query-set id P x ...)))
;; (define-syntax-rule (define/query-hash id P x ...) (define id (query-hash id P x ...))) (define-syntax-rule (define/query-hash id P x ...) (define id (query-hash id P x ...)))
;; (define-syntax-rule (define/query-hash-set id P x ...) (define id (query-hash-set id P x ...))) ;; (define-syntax-rule (define/query-hash-set id P x ...) (define id (query-hash-set id P x ...)))
;; (define-syntax-rule (define/query-count id P x ...) (define id (query-count id P x ...))) ;; (define-syntax-rule (define/query-count id P x ...) (define id (query-count id P x ...)))