log-message ( msg word level -- )
Furnace framework » Logging framework » Logging messages

Next:

log-error ( error word -- )

Vocabulary
logging

Inputs

msg	a string
word	a word
level	a log level

Outputs
None

Word description
Sends a message to the current log if the level is more urgent than log-level. Does nothing if not executing in a dynamic scope established by with-logging.

Definition

USING: accessors arrays kernel namespaces splitting ;

IN: logging

: log-message ( msg word level -- )
    check-log-message log-service get 2dup [ log? ] [ ] bi* and 
    [
        [ [ split-lines ] [ name>> ] [ name>> ] tri* ] dip
        4array "log-message" send-to-log-server
    ] [ 4drop ] if ;