1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors calendar calendar.format io io.encodings.ascii
4 io.servers.connection threads ;
7 : handle-time-client ( -- )
8 now timestamp>rfc822 print ;
10 : <time-server> ( -- threaded-server )
11 ascii <threaded-server>
14 [ handle-time-client ] >>handler ;
16 : start-time-server ( -- threaded-server )
17 <time-server> [ start-server ] in-thread ;
19 MAIN: start-time-server