1 ! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors debugger io io.encodings.utf8 io.servers.connection
4 kernel listener math namespaces ;
10 : start-listener ( -- )
11 [ [ print-error-and-restarts drop ] error-hook set listener ] with-scope ;
13 : server ( port -- server )
14 utf8 <threaded-server>
16 swap local-server >>insecure
17 [ start-listener ] >>handler
21 "Starting server. Connect with 'M-x connect-to-factor' in Emacs"
26 : fuel-start-remote-listener ( port/f -- )
27 print-banner integer? [ 9000 ] unless* server start-server ;
29 : fuel-start-remote-listener* ( -- ) f fuel-start-remote-listener ;