file-tail ( file -- string )

Vocabulary

mason.report

Inputs

file

an object

Outputs

string

an object

Definition

USING: kernel logging.parser math sequences splitting ;

IN: mason.report

: file-tail ( file -- string )
    65536 log-file-tail
    [ 400 index-or-length tail* join-lines ] dip 0 >
    [ "... (earlier log bytes omitted) ...\n" prepend ] when ;