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

More updates.

Browse Source
This commit is contained in:
Ibrahim Mkusa 2017-04-12 00:46:08 -04:00
parent a540bc917f
commit 11f4ae1946
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Hermes/server.rkt
View File

@ -47,7 +47,7 @@
(display "Broadcast thread started!\n") (display "Broadcast thread started!\n")
(semaphore-post stdout) (semaphore-post stdout)
(let loopb [] (let loopb []
(sleep 0.5) ;; wait 30 secs before beginning to broadcast ; (sleep 0.5) ;; wait 30 secs before beginning to broadcast
(broadcast) (broadcast)
(loopb))))) (loopb)))))
(lambda () (lambda ()
@ -166,7 +166,7 @@
(lambda () (lambda ()
(semaphore-wait messages-s) (semaphore-wait messages-s)
(if (not (null? messages)) (cond [(not (null? messages))
(begin (map (begin (map
(lambda (ports) (lambda (ports)
(displayln (first messages) (get-output-port ports)) (displayln (first messages) (get-output-port ports))
@ -180,10 +180,11 @@
;; current state of messages and connections ;; current state of messages and connections
;messages ;messages
;connections ;connections
(displayln "Message broadcasted")) (displayln "Message broadcasted"))]
(begin (semaphore-wait stdout) )
(display "No message to display\n") ; (begin (semaphore-wait stdout)
(semaphore-post stdout))) ; (display "No message to display\n")
; (semaphore-post stdout)))
;;; -- NO LONGER IN USE --- TO BE DELETED ;;; -- NO LONGER IN USE --- TO BE DELETED
; Approach one was to broadcast via thread mailboxes ; Approach one was to broadcast via thread mailboxes