expect-connection ( -- port )

Vocabulary

ftp.server

Inputs

None

Outputs

port

an object

Definition

USING: accessors concurrency.promises kernel namespaces threads
;

IN: ftp.server

: expect-connection ( -- port )
    <promise> client get extra-connection<< random-local-server
    [ [ passive-loop ] curry in-thread ] [ addr>> port>> ] bi ;