extra/fuel/remote/remote.factor

   1 ! Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3
   4 USING: accessors io io.encodings.utf8 io.servers kernel math
   5 namespaces tty-server ;
   6
   7 IN: fuel.remote
   8
   9 <PRIVATE
  10
  11 : print-banner ( -- )
  12     "Starting server. Connect with 'M-x connect-to-factor' in Emacs"
  13     write nl flush ;
  14
  15 PRIVATE>
  16
  17 : fuel-start-remote-listener ( port/f -- )
  18     print-banner integer? [ 9000 ] unless* <tty-server> start-server drop ;
  19
  20 : fuel-start-remote-listener* ( -- ) f fuel-start-remote-listener ;