2010-08-01 14:13:38 -04:00
|
|
|
! Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz.
|
2009-01-21 06:21:21 -05:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2015-10-06 07:54:33 -04:00
|
|
|
USING: io io.servers kernel math tty-server ;
|
2009-01-21 06:21:21 -05:00
|
|
|
|
2011-08-19 18:03:45 -04:00
|
|
|
IN: fuel.remote
|
2009-01-27 04:34:25 -05:00
|
|
|
|
2011-08-19 18:03:45 -04:00
|
|
|
<PRIVATE
|
2009-01-21 06:21:21 -05:00
|
|
|
|
|
|
|
|
: print-banner ( -- )
|
|
|
|
|
"Starting server. Connect with 'M-x connect-to-factor' in Emacs"
|
|
|
|
|
write nl flush ;
|
|
|
|
|
|
|
|
|
|
PRIVATE>
|
|
|
|
|
|
|
|
|
|
: fuel-start-remote-listener ( port/f -- )
|
2011-08-19 18:03:45 -04:00
|
|
|
print-banner integer? [ 9000 ] unless* <tty-server> start-server drop ;
|
2009-01-21 06:21:21 -05:00
|
|
|
|
|
|
|
|
: fuel-start-remote-listener* ( -- ) f fuel-start-remote-listener ;
|
2015-10-06 07:54:33 -04:00
|
|
|
|
|
|
|
|
! Remote connection
|
|
|
|
|
MAIN: fuel-start-remote-listener*
|
