file-type>trailing ( directory-entry -- string )

Vocabulary

io.files.info.unix

Inputs

directory-entry

an object

Outputs

string

an object

Definition

USING: accessors combinators io.files.info.unix.private
io.files.types kernel ;

IN: io.files.info.unix

: file-type>trailing ( directory-entry -- string )
    dup type>> {
        { +directory+ [ drop "/" ] }
        { +symbolic-link+ [ drop "@" ] }
        { +fifo+ [ drop "|" ] }
        { +socket+ [ drop "=" ] }
        { +whiteout+ [ drop "%" ] }
        { +unknown+ [ file-type>executable ] }
        { +regular-file+ [ file-type>executable ] }
        [ drop file-type>executable ]
    } case ;