1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: io io.servers.connection accessors threads
4 calendar calendar.format ;
7 : handle-time-client ( -- )
8 now timestamp>rfc822 print ;
10 : <time-server> ( -- 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