final polish for release for 0.2
This commit is contained in:
parent
cb381871d5
commit
44c715c55c
@ -1,12 +1,10 @@
|
|||||||
#lang racket
|
#lang racket
|
||||||
(require math/base) ;; for random number generation
|
(require math/base) ;; for random number generation
|
||||||
|
|
||||||
|
;; a proof of concept
|
||||||
|
;; one thread waits for input
|
||||||
|
;; another displays messages in the background
|
||||||
|
|
||||||
;; author: Ibrahim Mkusa
|
|
||||||
;; about: print and read concurrently
|
|
||||||
;; notes: output may need to be aligned and formatted nicely
|
|
||||||
;; look into
|
|
||||||
;; https://docs.racket-lang.org/gui/text-field_.html#%28meth._%28%28%28lib._mred%2Fmain..rkt%29._text-field~25%29._get-editor%29%29
|
|
||||||
|
|
||||||
;; 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
|
||||||
|
@ -1,4 +1,7 @@
|
|||||||
#lang racket
|
#lang racket
|
||||||
|
;; Reads input iteratively then sends it to local server
|
||||||
|
;; client reads back the message and displays it
|
||||||
|
|
||||||
(require math/base) ;; for random number generation
|
(require math/base) ;; for random number generation
|
||||||
|
|
||||||
(define listener (tcp-listen 4326 5 #t))
|
(define listener (tcp-listen 4326 5 #t))
|
||||||
|
Loading…
Reference in New Issue
Block a user