extra/tty-server/tty-server.factor

   1 USING: listener io.server io.encodings.utf8 ;
   2 IN: tty-server
   3
   4 : tty-server ( port -- )
   5     local-server
   6     "tty-server"
   7     utf8 [ listener ] with-server ;
   8
   9 : default-tty-server ( -- ) 9999 tty-server ;
  10
  11 MAIN: default-tty-server