iskm/Hermes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reduced time of broadcast to every 0.5 seconds to avoid hogging cpu and

Browse Source 
temps
This commit is contained in:
Ibrahim Mkusa 2017-04-12 00:31:41 -04:00
parent 66d5762bd9
commit a540bc917f
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Hermes/client.rkt
View File

@ -92,7 +92,7 @@
;; with server
;(semaphore-wait fair)
;; we will retrieve the line printed below from the server
(define evt (sync/timeout 30 (read-line-evt in)))
(define evt (sync/timeout 60 (read-line-evt in)))
(cond [(eof-object? evt)
(displayln "Server connection closed")
(custodian-shutdown-all main-client-cust)

4
Hermes/server.rkt
View File

@ -47,7 +47,7 @@
(display "Broadcast thread started!\n")
(semaphore-post stdout)
(let loopb []
(sleep 10) ;; wait 30 secs before beginning to broadcast
(sleep 0.5) ;; wait 30 secs before beginning to broadcast
(broadcast)
(loopb)))))
(lambda ()
@ -98,7 +98,7 @@
(semaphore-wait stdout)
(display "Started a thread to kill hanging connecting thread\n")
(semaphore-post stdout)
(sleep 360)
(sleep 1360)
(custodian-shutdown-all cust)))))
; (define (handle connections)