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

Exchange ad-hoc tracing for slightly more principled log-info output.

This commit is contained in:
Tony Garnock-Jones 2016-05-10 01:24:47 -04:00
parent b24cd754b0
commit fd2e4cc23c
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/syndicate/broker/protocol.rkt
View File

@ -59,9 +59,6 @@
[(? patch? p) `("patch" ,(patch->jsexpr p (lambda (v) #t)))]
[(message body) `("message" ,body)])))
(require racket/trace)
(trace drop lift)
(define drop-json-action drop)
(define lift-json-event lift)
(define lift-json-action lift)

14
racket/syndicate/broker/server.rkt
View File

@ -35,6 +35,7 @@
(arm-ping-timer!)
(log-info "\nStarting broker connection from ~v" c)
(until (retracted (advertise (websocket-message c server-id _)) #:meta-level 1)
(assert (advertise (websocket-message server-id c _)) #:meta-level 1)
@ -46,14 +47,19 @@
(match (drop-json-action (string->jsexpr data))
['ping (send-event 'pong)]
['pong (void)]
[(? patch? p) (patch! (patch-without-at-meta p))]
[(? patch? p) (patch! (log-packet c 'inbound 'patch (patch-without-at-meta p)))]
[(message (at-meta _)) (void)]
[(message body) (send! body)]))
[(message body) (send! (log-packet c 'inbound 'message body))]))
(on-event
[(? patch? p) (send-event (clean-patch p))]
[(? patch? p) (send-event (log-packet c 'outbound 'patch (clean-patch p)))]
[(message (at-meta _)) #f]
[(? message? m) (send-event m)]))))
[(message body) (send-event (message (log-packet c 'outbound 'message body)))]))
(log-info "\nEnding broker connection from ~v" c)))
(define (log-packet c direction kind value)
(log-info "\nBroker: ~v: ~a ~a\n~v" c direction kind value)
value)
(define stuff-to-prune
(trie-union-all #:combiner (lambda (v1 v2) (trie-success #t))