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

fixed an issue with username not appearing nicely

Browse Source
This commit is contained in:
Ibrahim Mkusa 2017-04-05 16:01:17 -04:00
parent 7683951024
commit 91c611e2af
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
concurrentreadandprint.rkt
View File

@ -1,4 +1,6 @@
#lang racket #lang racket
(require math/base) ;; for random number generation
;; author: Ibrahim Mkusa ;; author: Ibrahim Mkusa
;; about: print and read concurrently ;; about: print and read concurrently
@ -24,11 +26,15 @@
;; intelligent read, quits when user types in "quit" ;; intelligent read, quits when user types in "quit"
(define (read-loop-i) (define (read-loop-i)
(display usernamei)
(semaphore-wait fair) (semaphore-wait fair)
(display usernamei)
(define input (read-line)) (define input (read-line))
;; do something over here with input maybe send it out ;; do something over here with input maybe send it out
;; Tests input if its a quit then kills all threads
;; An if would be better here tbh
(cond ((string=? input "quit") (begin (kill-thread a) (cond ((string=? input "quit") (begin (kill-thread a)
(kill-thread t)))) (kill-thread t))))
(display (string-append output-prompt input "\n")) (display (string-append output-prompt input "\n"))
@ -38,9 +44,13 @@
;; print hello world continously ;; print hello world continously
;; "(hello-world)" can be executed as part of background thread
;; that prints in the event there is something in the input port
(define (hello-world) (define (hello-world)
(sleep (random-integer 0 60)) ;; sleep between 0 and 60 seconds to simulate coms
;; with server
(semaphore-wait fair) (semaphore-wait fair)
(display "Hello, World!\n") (display "\nHello, World!\n")
(semaphore-post fair) (semaphore-post fair)
(hello-world)) (hello-world))