20 lines
395 B
Plaintext
20 lines
395 B
Plaintext
(thread-create
|
|
(tcp-server 7777 (lambda (str) (list #f (+ "(print \"" (string-upcase str) "\")"))))
|
|
)
|
|
|
|
(thread-sleep 1)
|
|
|
|
(thread-create
|
|
(def code (tcp-client "127.0.0.1" 7777 ("abcd" "xyz")))
|
|
(for c code
|
|
(print "executing code:" c)
|
|
(eval (parse c))
|
|
)
|
|
|
|
(def code (tcp-client "127.0.0.1" 7777 "abcd"))
|
|
(print "executing code:" code)
|
|
(eval (parse code))
|
|
)
|
|
(threads-join)
|
|
(print "ok")
|