extra/tty-server/tty-server.factor

   1 USING: listener io.servers.connection io.encodings.utf8
   2 accessors kernel ;
   3 IN: tty-server
   4
   5 : <tty-server> ( port -- )
   6     utf8 <threaded-server>
   7         "tty-server" >>name
   8         swap local-server >>insecure
   9         [ listener ] >>handler
  10     start-server ;
  11
  12 : tty-server ( -- ) 9999 <tty-server> ;
  13
  14 MAIN: tty-server