2008-06-17 01:08:50 -04:00
|
|
|
USING: listener io.servers.connection io.encodings.utf8 ;
|
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
|
|
|
|
|
[ listener ] >>handler ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2008-06-17 01:08:50 -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
|
