15 lines
319 B
Factor
15 lines
319 B
Factor
USING: listener io.servers.connection io.encodings.utf8
|
|
accessors kernel ;
|
|
IN: tty-server
|
|
|
|
: <tty-server> ( port -- )
|
|
utf8 <threaded-server>
|
|
"tty-server" >>name
|
|
swap local-server >>insecure
|
|
[ listener ] >>handler
|
|
start-server ;
|
|
|
|
: tty-server ( -- ) 9999 <tty-server> ;
|
|
|
|
MAIN: tty-server
|