file-server-logging ( quot -- )

Vocabulary

file-server

Inputs

quot

an object

Outputs

None

Definition

USING: concurrency.messaging io kernel logging.server namespaces
sequences threads ;

IN: file-server

: file-server-logging ( quot -- )
    [
        init-namestack receive dup first "log-message" = [
            dup last "http.server" =
            [ dup rest first3 write-message flush ] when
        ] when "log-server" get-global send t
    ] "Log server (file-server)" spawn-server "log-server"
    [ call ] with-variable ; inline