1 USING: accessors calendar concurrency.promises fry io
2 io.encodings.ascii io.servers
3 io.servers.private io.sockets kernel namespaces
4 sequences threads tools.test ;
7 [ t ] [ ascii <threaded-server> listen-on empty? ] unit-test
10 ascii <threaded-server>
11 25 internet-server >>insecure
17 T{ inet4 f "1.2.3.4" 1234 } T{ inet4 f "1.2.3.5" 1235 }
18 [ log-connection ] 2keep
19 [ remote-address get = ] [ local-address get = ] bi*
23 [ ] [ ascii <threaded-server> init-server drop ] unit-test
26 ascii <threaded-server>
28 init-server semaphore>> count>>
32 ascii <threaded-server>
35 [ "Hello world." write stop-this-server ] >>handler
37 insecure-addr ascii <client> drop stream-contents
38 ] with-threaded-server
42 ascii <threaded-server>
45 start-server [ '[ _ wait-for-server ] in-thread ] [ stop-server ] bi