From 22bd461cdcc447f133139dd2c43f2cee18c2ae4e Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 3 Jun 2021 22:38:11 +0200 Subject: [PATCH] Entity names --- syndicate/actor.rkt | 5 +++-- syndicate/dataspace.rkt | 5 +++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/syndicate/actor.rkt b/syndicate/actor.rkt index 72fd1c0..cba6906 100644 --- a/syndicate/actor.rkt +++ b/syndicate/actor.rkt @@ -59,12 +59,13 @@ (require "field.rkt") (require "support/counter.rkt") -(struct entity (id assert retract message sync) +(struct entity (id name assert retract message sync) #:methods gen:custom-write [(define (write-proc e port mode) - (fprintf port "#" (entity-id e)))]) + (fprintf port "#" (entity-id e) (entity-name e)))]) (define-struct-defaults make-entity entity (#:_id [entity-id (generate-entity-id)] + #:name [entity-name '?] #:assert [entity-assert #f] #:retract [entity-retract #f] #:message [entity-message #f] diff --git a/syndicate/dataspace.rkt b/syndicate/dataspace.rkt index cb8857e..28d4290 100644 --- a/syndicate/dataspace.rkt +++ b/syndicate/dataspace.rkt @@ -20,12 +20,13 @@ (define-logger syndicate/dataspace) -(define (dataspace) +(define (dataspace #:name [name (gensym 'dataspace)]) (define handles (make-hash)) (define assertions (make-bag)) (define skeleton (make-empty-skeleton)) (define ds-e - (entity #:assert (action (value handle) + (entity #:name name + #:assert (action (value handle) (log-syndicate/dataspace-debug "~v + ~v ~v" ds-e handle value) (define maybe-observe (parse-Observe value)) (hash-set! handles handle (cons value maybe-observe))