file-system-spec ( file-system-info obj -- str )

Vocabulary

tools.files

Inputs

file-system-info	an object
obj	an object

Outputs

str

an object

Definition

USING: accessors combinators kernel math ;

IN: tools.files

: file-system-spec ( file-system-info obj -- str )
    {
        { +device-name+ [ device-name>> "" or ] }
        { +mount-point+ [ mount-point>> "" or ] }
        { +type+ [ type>> "" or ] }
        { +available-space+ [ available-space>> 0 or ] }
        { +free-space+ [ free-space>> 0 or ] }
        { +used-space+ [ used-space>> 0 or ] }
        { +total-space+ [ total-space>> 0 or ] }
        {
            +percent-used+
            [
                [ used-space>> ] [ total-space>> ] bi
                [ 0 or ] bi@ dup 0 =
                [ 2drop 0 ] [ / percent ] if
            ]
        }
    } case ;