visible-dir? ( entry -- ? )

Vocabulary

vocabs.hierarchy.private

Inputs

entry

an object

Outputs

?

an object

Definition

USING: accessors combinators combinators.short-circuit
io.files.info io.files.types kernel sequences vocabs.private ;

IN: vocabs.hierarchy.private

: visible-dir? ( entry -- ? )
    {
        [
            dup type>> {
                { +directory+ [ drop t ] }
                {
                    +symbolic-link+
                    [ name>> file-info type>> +directory+ = ]
                }
                [ 2drop f ]
            } case
        ]
        [ name>> "." head? not ]
        [ name>> valid-vocab-name? ]
    } 1&& ;