     acl-flag-names filter-strings ;
 
 : acl-entry>flagset ( acl-entry -- flagset )
-    acl_flagset_t <struct> [ acl_get_flagset_np acl-error ] keep ;
+    f acl_flagset_t <ref> [ acl_get_flagset_np acl-error ] keep ;
 
 : acl-entry>flag-names ( acl-entry -- strings )
     acl-entry>flagset flagset>strings ;

: acl-entry>owner-name ( acl-entry -- string )
    [
        acl_get_qualifier dup acl-error &free-acl
        uid_t <struct> -1 int <ref> [ mbr_uuid_to_id io-error ] 2keep
        [ uint deref ] bi@ unix-id>string
    ] with-destructors ;

: acl-entry>tag-name ( acl-entry -- string )
    acl_tag_t <struct> [ acl_get_tag_type acl-error ] keep
    uint deref acl_tag_t>string ;

: flagset>strings ( flagset -- strings )


FUNCTION: acl_t acl_get_fd ( int fd ) ;
FUNCTION: acl_t acl_get_fd_np ( int fd, acl_type_t type ) ;
FUNCTION: acl_t acl_get_file ( c-string path_p, acl_type_t type ) ;
FUNCTION: acl_t acl_get_link_np ( c-string path_p, acl_type_t type ) ;

FUNCTION: int acl_set_file ( c-string path_p, acl_type_t type, acl_t acl ) ;

FUNCTION: int acl_get_entry ( acl_t acl, int entry_id, acl_entry_t* entry_p ) ;

