file-acl ( path -- acl_t/f )

Vocabulary

io.files.acls.macos.private

Inputs

path

an object

Outputs

acl_t/f

an object

Definition

USING: io.backend io.files io.files.acls.macos.ffi kernel libc ;

IN: io.files.acls.macos.private

:: file-acl ( path -- acl_t/f )
    path normalize-path clear-errno ACL_TYPE_EXTENDED
    acl_get_file dup [
        errno ENOENT = [
            [ path file-exists? ] preserve-errno
            [ drop f ] [ throw-errno ] if
        ] [ throw-errno ] if
    ] unless ;