stop-server ( threaded-server -- )
Threaded servers

Prev:	start-server ( threaded-server -- threaded-server )
Next:	wait-for-server ( threaded-server -- )

Vocabulary
io.servers

Inputs

threaded-server

a threaded-server

Outputs
None

Word description
Stops a threaded server, preventing it from accepting any more connections. All client connections which have already been opened continue to be serviced.

Definition

USING: accessors concurrency.flags destructors
io.servers.private kernel namespaces ;

IN: io.servers

: stop-server ( threaded-server -- )
    dup server-running? [
        [ running-servers get remove-running-server ] [
            [
                [ secure-context>> [ &dispose drop ] when* ]
                [ [ f ] change-servers drop dispose-each ] bi
            ] with-destructors
        ] [ server-stopped>> raise-flag ] tri
    ] [ drop ] if ;