extra/time-server/time-server.factor

   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 ;
   5 IN: time-server
   6
   7 : handle-time-client ( -- )
   8     now timestamp>rfc822 print ;
   9
  10 : <time-server> ( -- threaded-server )
  11     ascii <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