2011-08-19 18:03:45 -04:00
|
|
|
USING: accessors debugger kernel listener io.servers
|
|
|
|
|
io.encodings.utf8 namespaces ;
|
|
|
|
|
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: tty-server
|
|
|
|
|
|
2011-08-19 18:03:45 -04:00
|
|
|
: start-listener ( -- )
|
|
|
|
|
[ [ drop print-error-and-restarts ] error-hook set listener ] with-scope ;
|
|
|
|
|
|
|
|
|
|
: <tty-server> ( port -- server )
|
2009-05-30 20:15:53 -04:00
|
|
|
utf8 <threaded-server>
|
2008-06-17 01:08:50 -04:00
|
|
|
"tty-server" >>name
|
|
|
|
|
swap local-server >>insecure
|
2011-08-19 18:03:45 -04:00
|
|
|
[ start-listener ] >>handler
|
|
|
|
|
f >>timeout ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2011-08-19 18:03:45 -04:00
|
|
|
: run-tty-server ( -- )
|
|
|
|
|
9999 <tty-server> start-server drop ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2011-08-19 18:03:45 -04:00
|
|
|
MAIN: run-tty-server
|
