start-server ( threaded-server -- threaded-server )
Threaded servers

Prev:	Threaded server configuration
Next:	stop-server ( threaded-server -- )

Vocabulary
io.servers

Inputs

threaded-server

a threaded-server

Outputs

threaded-server

a threaded-server

Word description
Starts a threaded server and returns after the server is fully running. Throws an error if any of the ports cannot be acquired.

Notes
Use stop-server or stop-this-server to stop the server.

Definition

USING: accessors io.servers.private kernel logging namespaces
sequences threads ;

IN: io.servers

: start-server ( threaded-server -- threaded-server )
    init-server [
        dup threaded-server [
            [ ] [ name>> ] bi [
                set-servers dup running-servers get
                add-running-server dup servers>> [
                    [ ~quotation~ 2curry ]
                    [ server-thread-name ] 2bi spawn drop
                ] with each
            ] with-logging
        ] with-variable
    ] keep ;