FUEL: capture restarts in remote connections

db4
Jose A. Ortega Ruiz 2009-01-27 10:34:25 +01:00
parent 9935c8f3c0
commit 7324e583a1
1 changed files with 6 additions and 3 deletions

View File

@ -1,18 +1,21 @@
! Copyright (C) 2009 Jose Antonio Ortega Ruiz. ! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors io io.encodings.utf8 io.servers.connection kernel USING: accessors debugger io io.encodings.utf8 io.servers.connection
listener math ; kernel listener math namespaces ;
IN: fuel.remote IN: fuel.remote
<PRIVATE <PRIVATE
: start-listener ( -- )
[ [ print-error-and-restarts ] error-hook set listener ] with-scope ;
: server ( port -- server ) : server ( port -- server )
<threaded-server> <threaded-server>
"tty-server" >>name "tty-server" >>name
utf8 >>encoding utf8 >>encoding
swap local-server >>insecure swap local-server >>insecure
[ listener ] >>handler [ start-listener ] >>handler
f >>timeout ; f >>timeout ;
: print-banner ( -- ) : print-banner ( -- )