extra/tty-server/tty-server.factor

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