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     <threaded-server>
   7         "tty-server" >>name
   8         utf8 >>encoding
   9         swap local-server >>insecure
  10         [ listener ] >>handler
  11     start-server ;
  12
  13 : tty-server ( -- ) 9999 <tty-server> ;
  14
  15 MAIN: tty-server