analyze-entry ( entry -- )

Vocabulary

logging.analysis

Inputs

entry

an object

Outputs

None

Definition

USING: accessors arrays assocs kernel logging namespaces
sequences ;

IN: logging.analysis

: analyze-entry ( entry -- )
    dup level>> { ERROR CRITICAL } member-eq?
    [ dup errors get push ] when
    dup word-name>> word-histogram get inc-at
    dup word-name>> word-names get member? [
        dup [ level>> ] [ word-name>> ] [ message>> ] tri 3array
        message-histogram get inc-at
    ] when drop ;