acl-entry-each ( path quot -- )


Vocabulary
io.files.acls.macos

Inputs
pathan object
quotan object


Outputs
None

Definition
USING: alien.c-types alien.data destructors
io.files.acls.macos.private kernel ;

IN: io.files.acls.macos

:: acl-entry-each ( path quot -- )
[
path file-acl &free-acl :> acl f :> acl-entry! acl [
acl first-acl-entry void* deref quot call
[ acl next-acl-entry dup acl-entry! ]
[ acl-entry void* deref quot call ] while
] when
] with-destructors ; inline