dir-or-size ( file-info -- str )

Vocabulary

tools.files.private

Inputs

file-info

an object

Outputs

str

an object

Definition

USING: accessors io.files.info kernel math.parser sequences ;

IN: tools.files.private

: dir-or-size ( file-info -- str )
    dup directory?
    [ drop "<DIR>" 20 32 pad-tail ]
    [ size>> number>string 20 32 pad-head ] if ;