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

whispers are properly tagged

Browse Source
This commit is contained in:
Ibrahim Mkusa 2017-04-23 15:50:53 -04:00
parent 28d78a8a97
commit 1c60a61d82
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Hermes/server.rkt
View File

@ -189,7 +189,7 @@
(define list-users (regexp-match #px"(.*)/list\\s+users\\s*" evt-t0)) ;; user names (define list-users (regexp-match #px"(.*)/list\\s+users\\s*" evt-t0)) ;; user names
; do something whether it was a message, a whisper, request for number of users and so on ; do something whether it was a message, a whisper, request for number of users and so on
; TODO if user doesn't exist handle it********
(cond [whisper (cond [whisper
(semaphore-wait connections-s) (semaphore-wait connections-s)
; get output port for user ; get output port for user
@ -208,7 +208,8 @@
(displayln "User is unavailable. /color black" out) (displayln "User is unavailable. /color black" out)
(flush-output out)) (flush-output out))
(begin (begin
(displayln (string-append (whisper-info whisper) (whisper-message whisper)) (displayln (string-append "(whisper)"
(whisper-info whisper) (whisper-message whisper))
(get-output-port (car that-user-ports))) (get-output-port (car that-user-ports)))
(flush-output (get-output-port (car that-user-ports))))) (flush-output (get-output-port (car that-user-ports)))))
(semaphore-post connections-s)] (semaphore-post connections-s)]