<managed-client> ( username -- managed-client )

Vocabulary

managed-server.private

Inputs

username

an object

Outputs

managed-client

an object

Definition

USING: accessors io io.sockets kernel managed-server namespaces
;

IN: managed-server.private

: <managed-client> ( username -- managed-client )
    managed-client new swap >>username
    input-stream get >>input-stream
    output-stream get >>output-stream
    local-address get >>local-address
    remote-address get >>remote-address ;