2008-06-17 06:21:45 -04:00
|
|
|
USING: listener io.servers.connection io.encodings.utf8
|
|
|
|
|
accessors kernel ;
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: tty-server
|
|
|
|
|
|
2008-06-17 01:08:50 -04:00
|
|
|
: <tty-server> ( port -- )
|
|
|
|
|
<threaded-server>
|
|
|
|
|
"tty-server" >>name
|
|
|
|
|
utf8 >>encoding
|
|
|
|
|
swap local-server >>insecure
|
2008-06-17 06:21:45 -04:00
|
|
|
[ listener ] >>handler
|
|
|
|
|
start-server ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2008-06-17 06:21:45 -04:00
|
|
|
: tty-server ( -- ) 9999 <tty-server> ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2008-06-17 01:08:50 -04:00
|
|
|
MAIN: tty-server
|
