check-trash-path ( path -- )

Vocabulary

io.files.trash.unix.private

Inputs

path

an object

Outputs

None

Definition

USING: combinators.short-circuit io.files.info
io.files.info.unix kernel ;

IN: io.files.trash.unix.private

: check-trash-path ( path -- )
    {
        [ file-info directory? ]
        [ sticky? ]
        [ link-info symbolic-link? not ]
    } 1&& [ "invalid trash path" throw ] unless ;