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

server colors default to blue

Browse Source
This commit is contained in:
Ibrahim Mkusa 2017-04-23 16:34:30 -04:00
parent 9b31f3b324
commit a8e49e9070
2 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Hermes/client.rkt
View File

@ -1,4 +1,8 @@
#lang racket #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 "modules/general.rkt" "GUI.rkt")
(require math/base) ;; for random number generation (require math/base) ;; for random number generation

19
Hermes/server.rkt
View File

@ -1,12 +1,15 @@
#lang racket #lang racket
; Author: Ibrahim Mkusa
; About: code that powers Hermes server
(require "modules/general.rkt") ;; common function(s) (require "modules/general.rkt") ;; common function(s)
(require math/base) ;; for random number generation (require math/base) ;; for random number generation
;; server messages in black ;; server messages in blue
(define welcome-message "Welcome to Hermes coms. Type your message below /color black ") (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 black ") (define successful-connection-m "Successfully connected to a client. Sending client a welcome message. /color blue ")
(define sleep-t 0.1) (define sleep-t 0.1)
@ -135,7 +138,7 @@
;; print to server log and client ;; print to server log and client
(define print-no-users (string-append "Number of users in chat: " (define print-no-users (string-append "Number of users in chat: "
(number->string ((c-count 'current-count))) (number->string ((c-count 'current-count)))
" /color black")) " /color blue"))
(displayln print-no-users out) (displayln print-no-users out)
(displayln-safe print-no-users convs-out-s convs-out) (displayln-safe print-no-users convs-out-s convs-out)
(flush-output out) (flush-output out)
@ -205,7 +208,7 @@
(if (and (null? that-user-ports) (if (and (null? that-user-ports)
#t) ; #t is placeholder for further checks #t) ; #t is placeholder for further checks
(begin (begin
(displayln "User is unavailable. /color black" out) (displayln "User is unavailable. /color blue" out)
(flush-output out)) (flush-output out))
(begin (begin
(displayln (string-append "(whisper)" (displayln (string-append "(whisper)"
@ -219,7 +222,7 @@
(semaphore-wait connections-s) (semaphore-wait connections-s)
(define no-of-users (string-append "Number of users in chat: " (define no-of-users (string-append "Number of users in chat: "
(number->string ((c-count 'current-count))) (number->string ((c-count 'current-count)))
" /color black")) " /color blue"))
(displayln no-of-users out) (displayln no-of-users out)
(flush-output out) (flush-output out)
(semaphore-post connections-s) (semaphore-post connections-s)
@ -228,10 +231,10 @@
[list-users [list-users
(semaphore-wait connections-s) (semaphore-wait connections-s)
; map over connections sending the username to the client ; 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 (map
(lambda (ports) (lambda (ports)
(displayln (string-append (get-username ports) " /color black") out)) (displayln (string-append (get-username ports) " /color blue") out))
((c-connections 'cons-list))) ((c-connections 'cons-list)))
(flush-output out) (flush-output out)
(semaphore-post connections-s)] (semaphore-post connections-s)]