<shared-tty-server> ( port -- server )

Vocabulary

tty-server.shared

Inputs

port

an object

Outputs

server

an object

Definition

USING: accessors io.encodings.utf8 io.servers kernel listener
namespaces vocabs.parser ;

IN: tty-server.shared

: <shared-tty-server> ( port -- server )
    utf8 <threaded-server> "tty-server" >>name
    swap local-server >>insecure
    [ manifest get ] with-interactive-vocabs
    [ start-shared-listener ] curry >>handler f >>timeout ;