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

Improve distributed debug output

This commit is contained in:
Tony Garnock-Jones 2019-05-20 21:45:40 +01:00
parent 43a0578f19
commit 8aaf1d1902
2 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
syndicate/distributed/client.rkt
View File

@ -19,6 +19,12 @@
(on-stop (log-syndicate/distributed-info "Disconnected from ~v" address))
(assert (server-connected address))
(when (log-level? syndicate/distributed-logger 'debug)
(set! w (let ((w* w))
(lambda (p)
(log-syndicate/distributed-debug "C OUT ~v ~v" address p)
(w* p)))))
(on-start (w (Connect scope)))
(define next-ep

17
syndicate/distributed/main.rkt
View File

@ -73,12 +73,21 @@
(define-logger syndicate/distributed)
(when (log-level? syndicate/distributed-logger 'debug)
(spawn #:name 'client-debug
(on (asserted (server-connection $addr))
(log-syndicate/distributed-debug "C + ~v" addr))
(on (retracted (server-connection $addr))
(log-syndicate/distributed-debug "C - ~v" addr))
(on (message (server-packet $addr $p))
(log-syndicate/distributed-debug "C IN ~v ~v" addr p))
;; C OUT is covered in client.rkt
)
(spawn #:name 'server-debug
(on (asserted (server-poa $id))
(log-syndicate/distributed-debug "+ ~v" id))
(log-syndicate/distributed-debug "S + ~v" id))
(on (retracted (server-poa $id))
(log-syndicate/distributed-debug "- ~v" id))
(log-syndicate/distributed-debug "S - ~v" id))
(on (message (message-poa->server $id $p))
(log-syndicate/distributed-debug "IN ~v ~v" id p))
(log-syndicate/distributed-debug "S IN ~v ~v" id p))
(on (message (message-server->poa $id $p))
(log-syndicate/distributed-debug "OUT ~v ~v" id p))))
(log-syndicate/distributed-debug "S OUT ~v ~v" id p))))