2008-02-25 16:10:14 -05:00
|
|
|
USING: listener io.server io.encodings.utf8 ;
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: tty-server
|
|
|
|
|
|
|
|
|
|
: tty-server ( port -- )
|
|
|
|
|
local-server
|
|
|
|
|
"tty-server"
|
2008-02-25 16:10:14 -05:00
|
|
|
utf8 [ listener ] with-server ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
: default-tty-server 9999 tty-server ;
|
|
|
|
|
|
2008-02-25 16:10:14 -05:00
|
|
|
MAIN: default-tty-server
|
