log-stream ( service -- stream )

Vocabulary

logging.server

Inputs

service

an object

Outputs

stream

an object

Definition

USING: accessors assocs io kernel math namespaces ;

IN: logging.server

:: log-stream ( service -- stream )
    service log-files get [ open-log-stream ] cache
    :> stream max-log-size get-global :> limit limit
    [ stream stream>> stream-length 0 or limit >= ] [ f ] if [
        service rotate-log service log-files get
        [ open-log-stream ] cache
    ] [ stream ] if ;