1 ! Copyright (C) 2012 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license.
4 USING: accessors command-line io io.encodings.binary io.servers
5 kernel math.parser namespaces sequences ;
10 1024 read-partial [ write flush echo-loop ] when* ;
12 : <echo-server> ( port -- server )
13 binary <threaded-server>
16 [ echo-loop ] >>handler ;
18 : echo-server-main ( -- )
19 command-line get [ 1234 ] [ first string>number ] if-empty
20 <echo-server> start-server wait-for-server ;
22 MAIN: echo-server-main