aboutsummaryrefslogtreecommitdiff
path: root/tcpcommunication.rkt
blob: 27a51516e9fe487e1f6e601450f0a1938bafbf22 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#lang racket
(require math/base) ;; for random number generation

(define listener (tcp-listen 4326 5 #t))
(define a (thread (lambda ()
          (define-values (s-in s-out) (tcp-accept listener))
          ; Discard the request header (up to blank line):
          ;(regexp-match #rx"(\r\n|^)\r\n" s-in)
          (sleep 10) 
          (define (echo)
            (define input (read-line s-in))
            (displayln input s-out)
            (flush-output s-out)
            (if (eof-object? input)
                (displayln "Done talking\n")
                (echo)))
          (echo)
          (close-input-port s-in)
          (close-output-port s-out)
          (tcp-close listener)
          'ok)))

(define t (thread (lambda ()
          (define-values (c-in c-out) (tcp-connect "localhost" 4326))
          (define input-prompt "input: ")
          (define output-prompt "output: ")

          ;; prompt for username and bind to a variable username
          (display "What's your name?\n")
          (define username (read-line))
          (define usernamei (string-append username ": ")) ;; make username appear nicer in a prompt
          (define fair (make-semaphore 1))

          ;; intelligent read, quits when user types in "quit"
          (define (read-loop-i)
            ;(semaphore-wait fair)
            ; (display usernamei)
            (define input (read-line))
            ;; 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") (exit)))
            (display (string-append output-prompt input "\n") c-out)
            (flush-output c-out)
            (displayln (read-line c-in)) ;; server echoes back sent input
            ;(semaphore-post fair)
            (read-loop-i)
          )
          (read-loop-i)
          'ok)))
  
;(kill-thread a)
;(kill-thread t)
(thread-wait t)
(display "DONE!!\n")