FUEL: capture restarts in remote connections
parent
9935c8f3c0
commit
7324e583a1
|
@ -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 ( -- )
|
||||||
|
|
Loading…
Reference in New Issue