extra/tty-server/tty-server.factor

   1 USING: accessors command-line debugger io.encodings.utf8
   2 io.servers kernel listener math.parser namespaces sequences ;
   3
   4 IN: tty-server
   5
   6 : start-listener ( -- )
   7     [ [ drop print-error-and-restarts ] error-hook set listener ] with-scope ;
   8
   9 : <tty-server> ( port -- server )
  10     utf8 <threaded-server>
  11         "tty-server" >>name
  12         swap local-server >>insecure
  13         [ start-listener ] >>handler
  14         f >>timeout ;
  15
  16 : run-tty-server ( -- )
  17     command-line get [ 9999 ] [ first string>number ] if-empty
  18     <tty-server> start-server wait-for-server ;
  19
  20 MAIN: run-tty-server