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

Added simulation for multiple users

Browse Source
This commit is contained in:
Ibrahim Mkusa 2017-04-05 16:22:51 -04:00
parent 91c611e2af
commit 819c6a9f74
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
concurrentreadandprint.rkt
View File

@ -1,8 +1,10 @@
#lang racket #lang racket
(require math/base) ;; for random number generation (require math/base) ;; for random number generation
;; author: Ibrahim Mkusa ;; author: Ibrahim Mkusa
;; about: print and read concurrently ;; about: print and read concurrently
;; notes: output may need to be aligned and formatted nicely
;; create custodian for managing all resources ;; create custodian for managing all resources
;; so we can shutdown everything at once ;; so we can shutdown everything at once
@ -28,7 +30,7 @@
(define (read-loop-i) (define (read-loop-i)
(semaphore-wait fair) ;(semaphore-wait fair)
(display usernamei) (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
@ -38,7 +40,7 @@
(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"))
(semaphore-post fair) ;(semaphore-post fair)
(read-loop-i) (read-loop-i)
) )
@ -47,11 +49,16 @@
;; "(hello-world)" can be executed as part of background thread ;; "(hello-world)" can be executed as part of background thread
;; that prints in the event there is something in the input port ;; 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 (sleep (random-integer 0 15)) ;; sleep between 0 and 15 seconds to simulate coms
;; with server ;; with server
(semaphore-wait fair) ;(semaphore-wait fair)
(display "\nHello, World!\n") ;; we will retrieve the line printed below from the server
(semaphore-post fair) ;; at this time we simulate the input from different users
(define what-to-print (random-integer 0 2))
(if (= what-to-print 0)
(display "Doug: What's up, up?\n")
(display "Fred: Looking good, good!\n"))
;(semaphore-post fair)
(hello-world)) (hello-world))
(define t (thread (lambda () (define t (thread (lambda ()