extra/time-server/time-server.factor

   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 ;
   5 IN: time-server
   6
   7 : handle-time-client ( -- )
   8     now timestamp>rfc822 print ;
   9
  10 : <time-server> ( -- threaded-server )
  11     <threaded-server>
  12         "time-server" >>name
  13         1234 >>insecure
  14         [ handle-time-client ] >>handler ;
  15
  16 : start-time-server ( -- threaded-server )
  17     <time-server> [ start-server ] in-thread ;
  18
  19 MAIN: start-time-server