reorganized some stuff, started experimenting with racket/gui

8 files changed, 49 insertions, 0 deletions

diff --git a/feasibility_analysis/gui/windows.rkt b/feasibility_analysis/gui/windows.rkt
new file mode 100644
index 0000000..4524673
--- /dev/null
+++ b/feasibility_analysis/gui/windows.rkt
@@ -0,0 +1,9 @@
+#lang racket
+
+(require racket/gui/base)
+
+;; Create a new window via the frame class
+(define frame (new frame% [label "Example"]))
+
+;; Show frame(window) by calling it show method
+(send frame show #t) ;; you call object methods via send
diff --git a/feasibility_analysis/tcpevents/README.md b/feasibility_analysis/tcpevents/README.md
new file mode 100644
index 0000000..7c3ec21
--- /dev/null
+++ b/feasibility_analysis/tcpevents/README.md
@@ -0,0 +1 @@
+TCP communication racket concepts of events. For more see the racket guide.
diff --git a/feasibility_analysis/tcpevents/server.rkt b/feasibility_analysis/tcpevents/server.rkt
new file mode 100644
index 0000000..4313bda
--- /dev/null
+++ b/feasibility_analysis/tcpevents/server.rkt
@@ -0,0 +1,39 @@
+#lang racket
+
+(define (serve in-port out-port)
+  (let loop []
+    (define evt (sync/timeout 2
+                              (read-line-evt in-port 'any)
+                              (thread-receive-evt)))
+    (cond
+      [(not evt)
+       (displayln "Timed out, exiting")
+       (tcp-abandon-port in-port)
+       (tcp-abandon-port out-port)]
+      [(string? evt)
+       (fprintf out-port "~a~n" evt)
+       (flush-output out-port)
+       (loop)]
+      [else
+        (printf "Received a message in mailbox: ~a~n"
+                (thread-receive))
+        (loop)])))
+
+(define port-num 4321)
+(define (start-server)
+  (define listener (tcp-listen port-num))
+  (thread
+    (lambda ()
+      (define-values [in-port out-port] (tcp-accept listener))
+      (serve in-port out-port))))
+
+(start-server)
+
+(define client-thread
+  (thread
+    (lambda ()
+      (define-values [in-port out-port] (tcp-connect "localhost" port-num))
+      (display "first\nsecond\nthird\n" out-port)
+      (flush-output out-port)
+      ; copy-port will block until EOF is read from in-port
+      (copy-port in-port (current-output-port)))))
diff --git a/feasibility_analysis/client.rkt b/feasibility_analysis/tcpvanilla/client.rkt
index 967d2b9..967d2b9 100644
--- a/feasibility_analysis/client.rkt
+++ b/feasibility_analysis/tcpvanilla/client.rkt
diff --git a/feasibility_analysis/client2.rkt b/feasibility_analysis/tcpvanilla/client2.rkt
index 47e3052..47e3052 100644
--- a/feasibility_analysis/client2.rkt
+++ b/feasibility_analysis/tcpvanilla/client2.rkt
diff --git a/feasibility_analysis/server.rkt b/feasibility_analysis/tcpvanilla/server.rkt
index bf72aff..bf72aff 100644
--- a/feasibility_analysis/server.rkt
+++ b/feasibility_analysis/tcpvanilla/server.rkt
diff --git a/feasibility_analysis/tcptalk.rkt b/feasibility_analysis/tcpvanilla/tcptalk.rkt
index d069851..d069851 100644
--- a/feasibility_analysis/tcptalk.rkt
+++ b/feasibility_analysis/tcpvanilla/tcptalk.rkt
diff --git a/feasibility_analysis/testdrive.md b/feasibility_analysis/tcpvanilla/testdrive.md
index b8e2883..b8e2883 100644
--- a/feasibility_analysis/testdrive.md
+++ b/feasibility_analysis/tcpvanilla/testdrive.md