init-server ( threaded-server -- threaded-server )

Vocabulary

io.servers.private

Inputs

threaded-server

an object

Outputs

threaded-server

an object

Definition

USING: accessors concurrency.flags concurrency.semaphores kernel
;

IN: io.servers.private

: init-server ( threaded-server -- threaded-server )
    create-secure-context <flag> >>server-stopped
    dup semaphore>>
    [ dup max-connections>> [ <semaphore> >>semaphore ] when* ]
    unless ;