From c9ae956bd20933f089f0c7210b5e066936b785e1 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 1 Aug 2016 17:48:13 -0400 Subject: [PATCH] Update OT example --- examples/operational-transformation/syndicate-multiserver.rkt | 4 +++- examples/operational-transformation/syndicate-server.rkt | 1 + 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/examples/operational-transformation/syndicate-multiserver.rkt b/examples/operational-transformation/syndicate-multiserver.rkt index e0f5eb3..34d7ba7 100644 --- a/examples/operational-transformation/syndicate-multiserver.rkt +++ b/examples/operational-transformation/syndicate-multiserver.rkt @@ -6,6 +6,7 @@ (require operational-transformation) (require operational-transformation/text/simple-document) +(require syndicate/protocol/advertise) (require/activate syndicate/drivers/tcp) (require/activate syndicate/drivers/line-reader) @@ -68,13 +69,14 @@ (send! (tcp-channel s c (get-output-bytes p)))) (field [seen-up-to 0]) + (field [selected-filename #f]) + (assert #:when (selected-filename) (client-seen-up-to (selected-filename) (seen-up-to))) (define/query-set available-filenames (observe (proposed-op $f _)) f) (begin/dataflow (output (set->list (available-filenames)))) - (field [selected-filename #f]) (begin/dataflow (when (selected-filename) (log-info "~a: attached to file ~a" c (selected-filename)) diff --git a/examples/operational-transformation/syndicate-server.rkt b/examples/operational-transformation/syndicate-server.rkt index c1c2943..082cbcf 100644 --- a/examples/operational-transformation/syndicate-server.rkt +++ b/examples/operational-transformation/syndicate-server.rkt @@ -5,6 +5,7 @@ (require operational-transformation) (require operational-transformation/text/simple-document) +(require syndicate/protocol/advertise) (require/activate syndicate/drivers/tcp) (require/activate syndicate/drivers/line-reader)