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

Update OT example

This commit is contained in:
Tony Garnock-Jones 2016-08-01 17:48:13 -04:00
parent 4138495ae1
commit c9ae956bd2
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/operational-transformation/syndicate-multiserver.rkt
View File

@ -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))

1
examples/operational-transformation/syndicate-server.rkt
View File

@ -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)