diff options
| -rw-r--r-- | Hermes/client.rkt | 4 | ||||
| -rw-r--r-- | Hermes/server.rkt | 19 |
2 files changed, 15 insertions, 8 deletions
diff --git a/Hermes/client.rkt b/Hermes/client.rkt index 67b02c3..197485e 100644 --- a/Hermes/client.rkt +++ b/Hermes/client.rkt @@ -1,4 +1,8 @@ #lang racket +; Author: Ibrahim Mkusa +; About: code that enables communication with the client. It uses GUI code +; authored by Doug-Richardson + (require "modules/general.rkt" "GUI.rkt") (require math/base) ;; for random number generation diff --git a/Hermes/server.rkt b/Hermes/server.rkt index 099d1f2..ae23494 100644 --- a/Hermes/server.rkt +++ b/Hermes/server.rkt @@ -1,12 +1,15 @@ #lang racket +; Author: Ibrahim Mkusa +; About: code that powers Hermes server + (require "modules/general.rkt") ;; common function(s) (require math/base) ;; for random number generation -;; server messages in black -(define welcome-message "Welcome to Hermes coms. Type your message below /color black ") -(define successful-connection-m "Successfully connected to a client. Sending client a welcome message. /color black ") +;; server messages in blue +(define welcome-message "Welcome to Hermes coms. Type your message below /color blue ") +(define successful-connection-m "Successfully connected to a client. Sending client a welcome message. /color blue ") (define sleep-t 0.1) @@ -135,7 +138,7 @@ ;; print to server log and client (define print-no-users (string-append "Number of users in chat: " (number->string ((c-count 'current-count))) - " /color black")) + " /color blue")) (displayln print-no-users out) (displayln-safe print-no-users convs-out-s convs-out) (flush-output out) @@ -205,7 +208,7 @@ (if (and (null? that-user-ports) #t) ; #t is placeholder for further checks (begin - (displayln "User is unavailable. /color black" out) + (displayln "User is unavailable. /color blue" out) (flush-output out)) (begin (displayln (string-append "(whisper)" @@ -219,7 +222,7 @@ (semaphore-wait connections-s) (define no-of-users (string-append "Number of users in chat: " (number->string ((c-count 'current-count))) - " /color black")) + " /color blue")) (displayln no-of-users out) (flush-output out) (semaphore-post connections-s) @@ -228,10 +231,10 @@ [list-users (semaphore-wait connections-s) ; map over connections sending the username to the client - (displayln "Here is a list of users in chat. /color black" out) + (displayln "Here is a list of users in chat. /color blue" out) (map (lambda (ports) - (displayln (string-append (get-username ports) " /color black") out)) + (displayln (string-append (get-username ports) " /color blue") out)) ((c-connections 'cons-list))) (flush-output out) (semaphore-post connections-s)] |