packages feed

libarchive-3.0.2.2: src/Codec/Archive/Foreign/ArchiveEntry.chs

-- | This module corresponds to @archive_entry.h@
--
-- Functions in this module are stateful and hence take place in the 'IO'
-- monad.
module Codec.Archive.Foreign.ArchiveEntry ( -- * Direct bindings (entry)
                                            archiveEntryClear
                                          , archiveEntryClone
                                          , archiveEntryNew
                                          , archiveEntryFree
                                          , archiveEntryNew2
                                          , archiveEntryAtime
                                          , archiveEntryAtimeNsec
                                          , archiveEntryAtimeIsSet
                                          , archiveEntryBirthtime
                                          , archiveEntryBirthtimeNsec
                                          , archiveEntryBirthtimeIsSet
                                          , archiveEntryCtime
                                          , archiveEntryCtimeNsec
                                          , archiveEntryCtimeIsSet
                                          , archiveEntryDev
                                          , archiveEntryDevIsSet
                                          , archiveEntryDevminor
                                          , archiveEntryDevmajor
                                          , archiveEntryFflags
                                          , archiveEntryFflagsText
                                          , archiveEntryFiletype
                                          , archiveEntryGid
                                          , archiveEntryGname
                                          , archiveEntryGnameUtf8
                                          , archiveEntryGnameW
                                          , archiveEntryHardlink
                                          , archiveEntryHardlinkUtf8
                                          , archiveEntryHardlinkW
                                          , archiveEntryIno
                                          , archiveEntryIno64
                                          , archiveEntryInoIsSet
                                          , archiveEntryMode
                                          , archiveEntryMtime
                                          , archiveEntryMtimeNsec
                                          , archiveEntryMtimeIsSet
                                          , archiveEntryNlink
                                          , archiveEntryPathname
                                          , archiveEntryPathnameUtf8
                                          , archiveEntryPathnameW
                                          , archiveEntryPerm
                                          , archiveEntryRdev
                                          , archiveEntryRdevmajor
                                          , archiveEntryRdevminor
                                          , archiveEntrySourcepath
                                          , archiveEntrySourcepathW
                                          , archiveEntrySize
                                          , archiveEntrySizeIsSet
                                          , archiveEntryStrmode
                                          , archiveEntrySymlink
                                          , archiveEntrySymlinkType
                                          , archiveEntrySymlinkW
                                          , archiveEntrySymlinkUtf8
                                          , archiveEntryUid
                                          , archiveEntryUname
                                          , archiveEntryUnameUtf8
                                          , archiveEntryUnameW
                                          , archiveEntryIsDataEncrypted
                                          , archiveEntryIsMetadataEncrypted
                                          , archiveEntryIsEncrypted
                                          , archiveEntrySetAtime
                                          , archiveEntryUnsetAtime
                                          , archiveEntrySetBirthtime
                                          , archiveEntryUnsetBirthtime
                                          , archiveEntrySetCtime
                                          , archiveEntryUnsetCtime
                                          , archiveEntrySetDev
                                          , archiveEntrySetDevminor
                                          , archiveEntrySetDevmajor
                                          , archiveEntrySetFflags
                                          , archiveEntryCopyFflagsText
                                          , archiveEntryCopyFflagsTextW
                                          , archiveEntrySetFiletype
                                          , archiveEntrySetGid
                                          , archiveEntrySetGname
                                          , archiveEntrySetGnameUtf8
                                          , archiveEntryCopyGname
                                          , archiveEntryCopyGnameW
                                          , archiveEntryUpdateGnameUtf8
                                          , archiveEntrySetHardlink
                                          , archiveEntrySetHardlinkUtf8
                                          , archiveEntryCopyHardlink
                                          , archiveEntryCopyHardlinkW
                                          , archiveEntryUpdateHardlinkUtf8
                                          , archiveEntrySetIno
                                          , archiveEntrySetIno64
                                          , archiveEntrySetLink
                                          , archiveEntrySetLinkUtf8
                                          , archiveEntryCopyLink
                                          , archiveEntryCopyLinkW
                                          , archiveEntryUpdateLinkUtf8
                                          , archiveEntrySetMode
                                          , archiveEntrySetMtime
                                          , archiveEntryUnsetMtime
                                          , archiveEntrySetNlink
                                          , archiveEntrySetPathname
                                          , archiveEntrySetPathnameUtf8
                                          , archiveEntryCopyPathname
                                          , archiveEntryCopyPathnameW
                                          , archiveEntryUpdatePathnameUtf8
                                          , archiveEntrySetPerm
                                          , archiveEntrySetRdev
                                          , archiveEntrySetRdevmajor
                                          , archiveEntrySetRdevminor
                                          , archiveEntrySetSize
                                          , archiveEntryUnsetSize
                                          , archiveEntryCopySourcepath
                                          , archiveEntryCopySourcepathW
                                          , archiveEntrySetSymlink
                                          , archiveEntrySetSymlinkType
                                          , archiveEntrySetSymlinkUtf8
                                          , archiveEntryCopySymlink
                                          , archiveEntryCopySymlinkW
                                          , archiveEntryUpdateSymlinkUtf8
                                          , archiveEntrySetUid
                                          , archiveEntrySetUname
                                          , archiveEntrySetUnameUtf8
                                          , archiveEntryCopyUname
                                          , archiveEntryCopyUnameW
                                          , archiveEntryUpdateUnameUtf8
                                          , archiveEntryStat
                                          , archiveEntryCopyStat
                                          , archiveEntryMacMetadata
                                          , archiveEntryCopyMacMetadata
                                          , archiveEntryDigest
                                          , archiveEntryAclClear
                                          , archiveEntryAclNext
                                          -- , archiveEntryAclNextW
                                          , archiveEntryAclReset
                                          , archiveEntryAclToText
                                          , archiveEntryAclToTextW
                                          , archiveEntryAclFromText
                                          , archiveEntryAclFromTextW
                                          , archiveEntryAclTypes
                                          , archiveEntryAclCount
                                          , archiveEntryAclAddEntry
                                          , archiveEntryAclAddEntryW
                                          -- * Xattr functions
                                          , archiveEntryXattrClear
                                          , archiveEntryXattrAddEntry
                                          , archiveEntryXattrCount
                                          , archiveEntryXattrReset
                                          , archiveEntryXattrNext
                                          -- * For sparse archives
                                          , archiveEntrySparseClear
                                          , archiveEntrySparseAddEntry
                                          , archiveEntrySparseCount
                                          , archiveEntrySparseReset
                                          , archiveEntrySparseNext
                                          -- * Link resolver
                                          , archiveEntryLinkresolverNew
                                          , archiveEntryLinkresolverSetStrategy
                                          , archiveEntryLinkresolverFree
                                          , archiveEntryLinkify
                                          , archiveEntryPartialLinks
                                          -- * ACL macros
                                          , archiveEntryACLExecute
                                          , archiveEntryACLWrite
                                          , archiveEntryACLRead
                                          , archiveEntryACLReadData
                                          , archiveEntryACLListData
                                          , archiveEntryACLWriteData
                                          , archiveEntryACLAddFile
                                          , archiveEntryACLAppendData
                                          , archiveEntryACLAddSubdirectory
                                          , archiveEntryACLReadNamedAttrs
                                          , archiveEntryACLWriteNamedAttrs
                                          , archiveEntryACLDeleteChild
                                          , archiveEntryACLReadAttributes
                                          , archiveEntryACLWriteAttributes
                                          , archiveEntryACLDelete
                                          , archiveEntryACLReadACL
                                          , archiveEntryACLWriteACL
                                          , archiveEntryACLWriteOwner
                                          , archiveEntryACLSynchronize
                                          , archiveEntryACLEntryFileInherit
                                          , archiveEntryACLEntryDirectoryInherit
                                          , archiveEntryACLEntryNoPropagateInherit
                                          , archiveEntryACLEntryInheritOnly
                                          , archiveEntryACLEntrySuccessfulAccess
                                          , archiveEntryACLEntryFailedAccess
                                          , archiveEntryACLTypeAccess
                                          , archiveEntryACLTypeDefault
                                          , archiveEntryACLTypeAllow
                                          , archiveEntryACLTypeDeny
                                          , archiveEntryACLTypeAudit
                                          , archiveEntryACLTypeAlarm
                                          , archiveEntryACLUser
                                          , archiveEntryACLUserObj
                                          , archiveEntryACLGroup
                                          , archiveEntryACLGroupObj
                                          , archiveEntryACLMask
                                          , archiveEntryACLOther
                                          , archiveEntryACLEveryone
                                          , archiveEntryACLStyleExtraID
                                          , archiveEntryACLStyleMarkDefault
                                          , archiveEntryACLEntryInherited
                                          , archiveEntryACLStyleCompact
                                          , archiveEntryACLStyleSeparatorComma
                                          , archiveEntryACLStyleSolaris
                                          -- * Abstract types
                                          , ArchiveEntry
                                          , Stat
                                          , LinkResolver
                                          -- * Lower-level API types
                                          , FileType (..)
                                          , EntryACL
                                          , Symlink (..)
                                          -- * Type synonyms
                                          , ArchiveEntryPtr
                                          , LinkResolverPtr
                                          ) where

{# import Codec.Archive.Foreign.Archive #}

import Codec.Archive.Foreign.ArchiveEntry.Macros
import Codec.Archive.Types
import Data.Coerce (coerce)
import Foreign.C.String
import Foreign.C.Types
import Foreign.Ptr (Ptr, castPtr)
import System.PosixCompat.Types (CMode (..), CDev (..))

-- TODO: higher level archiveEntryXattrList?

#include <archive_entry.h>

-- TODO: foreign ptr
{#pointer *archive_entry_linkresolver as LinkResolverPtr -> LinkResolver #}

{#typedef size_t CSize#}
{#typedef wchar_t CWchar#}
{#typedef mode_t CMode#}
{#typedef time_t CTime#}
{#typedef dev_t CDev#}
{#typedef la_int64_t LaInt64#}
{#default in `CWString' [wchar_t*] castPtr#}
{#default out `CWString' [wchar_t*] castPtr#}

ft :: Permissions -> Maybe FileType
ft 0 = Nothing
ft i = Just $ toEnum (fromIntegral i)

uft :: Maybe FileType -> CUInt
uft Nothing    = 0
uft (Just ft') = fromIntegral (fromEnum ft')

{# fun archive_entry_clear as ^ { `ArchiveEntryPtr' } -> `ArchiveEntryPtr' #}
{# fun archive_entry_clone as ^ { `ArchiveEntryPtr' } -> `ArchiveEntryPtr' #}
{# fun archive_entry_new as ^ {} -> `ArchiveEntryPtr' #}
{# fun archive_entry_new2 as ^ { `ArchivePtr' } -> `ArchiveEntryPtr' #}
{# fun archive_entry_atime as ^ { `ArchiveEntryPtr' } -> `CTime' #}
{# fun archive_entry_atime_nsec as ^ { `ArchiveEntryPtr' } -> `CLong' #}
{# fun archive_entry_birthtime as ^ { `ArchiveEntryPtr' } -> `CTime' #}
{# fun archive_entry_birthtime_nsec as ^ { `ArchiveEntryPtr' } -> `CLong' #}
{# fun archive_entry_ctime as ^ { `ArchiveEntryPtr' } -> `CTime' #}
{# fun archive_entry_ctime_nsec as ^ { `ArchiveEntryPtr' } -> `CLong' #}
{# fun archive_entry_dev as ^ { `ArchiveEntryPtr' } -> `CDev' #}
{# fun archive_entry_devminor as ^ { `ArchiveEntryPtr' } -> `CDev' #}
{# fun archive_entry_devmajor as ^ { `ArchiveEntryPtr' } -> `CDev' #}
{# fun archive_entry_fflags as ^ { `ArchiveEntryPtr', `CULong', `CULong' } -> `()' #}
{# fun archive_entry_fflags_text as ^ { `ArchiveEntryPtr' } -> `CString' #}
-- | Here a 'Nothing' means a hardlink
{# fun archive_entry_filetype as ^ { `ArchiveEntryPtr' } -> `Maybe FileType' ft #}
{# fun archive_entry_gid as ^ { `ArchiveEntryPtr' } -> `LaInt64' #}
{# fun archive_entry_gname as ^ { `ArchiveEntryPtr' } -> `CString' #}
{# fun archive_entry_gname_utf8 as ^ { `ArchiveEntryPtr' } -> `CString' #}
{# fun archive_entry_gname_w as ^ { `ArchiveEntryPtr' } -> `CWString' #}
{# fun archive_entry_hardlink as ^ { `ArchiveEntryPtr' } -> `CString' #}
{# fun archive_entry_hardlink_utf8 as ^ { `ArchiveEntryPtr' } -> `CString' #}
{# fun archive_entry_hardlink_w as ^ { `ArchiveEntryPtr' } -> `CWString' #}
{# fun archive_entry_ino as ^ { `ArchiveEntryPtr' } -> `LaInt64' #}
{# fun archive_entry_ino64 as ^ { `ArchiveEntryPtr' } -> `LaInt64' #}
#ifdef mingw32_HOST_OS
{# fun archive_entry_mode as ^ { `ArchiveEntryPtr' } -> `CUShort' #}
#else
{# fun archive_entry_mode as ^ { `ArchiveEntryPtr' } -> `CMode' #}
#endif
{# fun archive_entry_mtime as ^ { `ArchiveEntryPtr' } -> `CTime' #}
{# fun archive_entry_mtime_nsec as ^ { `ArchiveEntryPtr' } -> `CLong' #}
{# fun archive_entry_nlink as ^ { `ArchiveEntryPtr' } -> `CUInt' #}
{# fun archive_entry_pathname as ^ { `ArchiveEntryPtr' } -> `CString' #}
{# fun archive_entry_pathname_utf8 as ^ { `ArchiveEntryPtr' } -> `CString' #}
{# fun archive_entry_pathname_w as ^ { `ArchiveEntryPtr' } -> `CWString' #}
#ifdef mingw32_HOST_OS
{# fun archive_entry_perm as ^ { `ArchiveEntryPtr' } -> `CUShort' #}
#else
{# fun archive_entry_perm as ^ { `ArchiveEntryPtr' } -> `CMode' #}
#endif
{# fun archive_entry_rdev as ^ { `ArchiveEntryPtr' } -> `CDev' #}
{# fun archive_entry_rdevmajor as ^ { `ArchiveEntryPtr' } -> `CDev' #}
{# fun archive_entry_rdevminor as ^ { `ArchiveEntryPtr' } -> `CDev' #}
{# fun archive_entry_sourcepath as ^ { `ArchiveEntryPtr' } -> `CString' #}
{# fun archive_entry_sourcepath_w as ^ { `ArchiveEntryPtr' } -> `CWString' #}
{# fun archive_entry_size as ^ { `ArchiveEntryPtr' } -> `LaInt64' #}
{# fun archive_entry_strmode as ^ { `ArchiveEntryPtr' } -> `CString' #}
{# fun archive_entry_symlink as ^ { `ArchiveEntryPtr' } -> `CString' #}
-- | @since 2.1.2.0
{# fun archive_entry_symlink_type as ^ { `ArchiveEntryPtr' } -> `Symlink' #}
{# fun archive_entry_symlink_w as ^ { `ArchiveEntryPtr' } -> `CWString' #}
{# fun archive_entry_symlink_utf8 as ^ { `ArchiveEntryPtr' } -> `CString' #}
{# fun archive_entry_uid as ^ { `ArchiveEntryPtr' } -> `LaInt64' #}
{# fun archive_entry_uname as ^ { `ArchiveEntryPtr' } -> `CString' #}
{# fun archive_entry_uname_utf8 as ^ { `ArchiveEntryPtr' } -> `CString' #}
{# fun archive_entry_uname_w as ^ { `ArchiveEntryPtr' } -> `CWString' #}
{# fun archive_entry_set_atime as ^ { `ArchiveEntryPtr', `CTime', `CLong' } -> `()' #}
{# fun archive_entry_unset_atime as ^ { `ArchiveEntryPtr' } -> `()' #}
{# fun archive_entry_set_birthtime as ^ { `ArchiveEntryPtr', `CTime', `CLong' } -> `()' #}
{# fun archive_entry_unset_birthtime as ^ { `ArchiveEntryPtr' } -> `()' #}
{# fun archive_entry_set_ctime as ^ { `ArchiveEntryPtr', `CTime', `CLong' } -> `()' #}
{# fun archive_entry_unset_ctime as ^ { `ArchiveEntryPtr' } -> `()' #}
{# fun archive_entry_set_dev as ^ { `ArchiveEntryPtr', `CDev' } -> `()' #}
{# fun archive_entry_set_devmajor as ^ { `ArchiveEntryPtr', `CDev' } -> `()' #}
{# fun archive_entry_set_devminor as ^ { `ArchiveEntryPtr', `CDev' } -> `()' #}
{# fun archive_entry_set_fflags as ^ { `ArchiveEntryPtr', `CULong', `CULong' } -> `()' #}
{# fun archive_entry_copy_fflags_text as ^ { `ArchiveEntryPtr', `CString' } -> `CString' #}
{# fun archive_entry_copy_fflags_text_w as ^ { `ArchiveEntryPtr', `CWString' } -> `CWString' #}
-- | Here a 'Nothing' means a hardlink
{# fun archive_entry_set_filetype as ^ { `ArchiveEntryPtr', uft `Maybe FileType' } -> `()' #}
{# fun archive_entry_set_gid as ^ { `ArchiveEntryPtr', `LaInt64' } -> `()' #}
{# fun archive_entry_set_gname as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_set_gname_utf8 as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_gname as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_gname_w as ^ { `ArchiveEntryPtr', `CWString' } -> `()' #}
{# fun archive_entry_set_hardlink as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_set_hardlink_utf8 as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_hardlink as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_hardlink_w as ^ { `ArchiveEntryPtr', `CWString' } -> `()' #}
{# fun archive_entry_set_ino as ^ { `ArchiveEntryPtr', `LaInt64' } -> `()' #}
{# fun archive_entry_set_ino64 as ^ { `ArchiveEntryPtr', `LaInt64' } -> `()' #}
{# fun archive_entry_set_link as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_set_link_utf8 as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_link as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_link_w as ^ { `ArchiveEntryPtr', `CWString' } -> `()' #}
#ifdef mingw32_HOST_OS
{# fun archive_entry_set_mode as ^ { `ArchiveEntryPtr', `CUShort' } -> `()' #}
#else
{# fun archive_entry_set_mode as ^ { `ArchiveEntryPtr', `CMode' } -> `()' #}
#endif
{# fun archive_entry_set_mtime as ^ { `ArchiveEntryPtr', `CTime', `CLong' } -> `()' #}
{# fun archive_entry_unset_mtime as ^ { `ArchiveEntryPtr' } -> `()' #}
{# fun archive_entry_set_nlink as ^ { `ArchiveEntryPtr', `CUInt' } -> `()' #}
{# fun archive_entry_set_pathname as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_set_pathname_utf8 as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_pathname as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_pathname_w as ^ { `ArchiveEntryPtr', `CWString' } -> `()' #}
#ifdef mingw32_HOST_OS
{# fun archive_entry_set_perm as ^ { `ArchiveEntryPtr', `CUShort' } -> `()' #}
#else
{# fun archive_entry_set_perm as ^ { `ArchiveEntryPtr', `CMode' } -> `()' #}
#endif
{# fun archive_entry_set_rdev as ^ { `ArchiveEntryPtr', `CDev' } -> `()' #}
{# fun archive_entry_set_rdevmajor as ^ { `ArchiveEntryPtr', `CDev' } -> `()' #}
{# fun archive_entry_set_rdevminor as ^ { `ArchiveEntryPtr', `CDev' } -> `()' #}
{# fun archive_entry_set_size as ^ { `ArchiveEntryPtr', `LaInt64' } -> `()' #}
{# fun archive_entry_unset_size as ^ { `ArchiveEntryPtr' } -> `()' #}
{# fun archive_entry_copy_sourcepath as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_sourcepath_w as ^ { `ArchiveEntryPtr', `CWString' } -> `()' #}
{# fun archive_entry_set_symlink as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_set_symlink_type as ^ { `ArchiveEntryPtr', `Symlink' } -> `()' #}
{# fun archive_entry_set_symlink_utf8 as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_symlink as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_symlink_w as ^ { `ArchiveEntryPtr', `CWString' } -> `()' #}
{# fun archive_entry_set_uid as ^ { `ArchiveEntryPtr', `LaInt64' } -> `()' #}
{# fun archive_entry_set_uname as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_set_uname_utf8 as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_uname as ^ { `ArchiveEntryPtr', `CString' } -> `()' #}
{# fun archive_entry_copy_uname_w as ^ { `ArchiveEntryPtr', `CWString' } -> `()' #}
{# fun archive_entry_stat as ^ { `ArchiveEntryPtr' } -> `StatPtr' #}
{# fun archive_entry_copy_stat as ^ { `ArchiveEntryPtr', `StatPtr' } -> `()' #}
{# fun archive_entry_mac_metadata as ^ { `ArchiveEntryPtr', castPtr `Ptr CSize' } -> `Ptr a' castPtr #}
{# fun archive_entry_copy_mac_metadata as ^ { `ArchiveEntryPtr', castPtr `Ptr a', `CSize' } -> `()' #}

{# fun archive_entry_acl_clear as ^ { `ArchiveEntryPtr' } -> `()' #}
{# fun archive_entry_acl_add_entry as ^ { `ArchiveEntryPtr', coerce `EntryACL', coerce `EntryACL', coerce `EntryACL', `CInt', `CString' } -> `CInt' #}
{# fun archive_entry_acl_add_entry_w as ^ { `ArchiveEntryPtr', coerce `EntryACL', coerce `EntryACL', coerce `EntryACL', `CInt', `CWString' } -> `CInt' #}
{# fun archive_entry_acl_reset as ^ { `ArchiveEntryPtr', coerce `EntryACL' } -> `CInt' #}
{# fun archive_entry_acl_next as ^ { `ArchiveEntryPtr', coerce `EntryACL', castPtr `Ptr EntryACL', castPtr `Ptr EntryACL', castPtr `Ptr EntryACL', id `Ptr CInt', id `Ptr CString' } -> `CInt' #}
-- This function is in the header but not in nm libarchive.a | rg ...
-- {# fun archive_entry_acl_next_w as ^ { `ArchiveEntryPtr', coerce `EntryACL', castPtr `Ptr EntryACL', castPtr `Ptr EntryACL', castPtr `Ptr EntryACL', id `Ptr CInt', id `Ptr CWString' } -> `CInt' #}
{# fun archive_entry_acl_to_text_w as ^ { `ArchiveEntryPtr', castPtr `Ptr LaSSize', coerce `EntryACL' } -> `CWString' #}
{# fun archive_entry_acl_to_text as ^ { `ArchiveEntryPtr', castPtr `Ptr LaSSize', coerce `EntryACL' } -> `CString' #}
{# fun archive_entry_acl_from_text as ^ { `ArchiveEntryPtr', `CString', coerce `EntryACL' } -> `CInt' #}
{# fun archive_entry_acl_from_text_w as ^ { `ArchiveEntryPtr', `CWString', coerce `EntryACL' } -> `CInt' #}
{# fun archive_entry_acl_types as ^ { `ArchiveEntryPtr' } -> `EntryACL' coerce #}
{# fun archive_entry_acl_count as ^ { `ArchiveEntryPtr', coerce `EntryACL' } -> `CInt' #}

{# fun archive_entry_xattr_clear as ^ { `ArchiveEntryPtr' } -> `()' #}
{# fun archive_entry_xattr_add_entry as ^ { `ArchiveEntryPtr', `CString', castPtr `Ptr a', `CSize' } -> `()' #}
{# fun archive_entry_xattr_count as ^ { `ArchiveEntryPtr' } -> `CInt' #}
{# fun archive_entry_xattr_reset as ^ { `ArchiveEntryPtr' } -> `CInt' #}
{# fun archive_entry_xattr_next as ^ { `ArchiveEntryPtr', id `Ptr CString', castPtr `Ptr (Ptr a)', id `Ptr CSize' } -> `CInt' #}
{# fun archive_entry_sparse_clear as ^ { `ArchiveEntryPtr' } -> `()' #}
{# fun archive_entry_sparse_add_entry as ^ { `ArchiveEntryPtr', `LaInt64', `LaInt64' } -> `()' #}
{# fun archive_entry_sparse_count as ^ { `ArchiveEntryPtr' } -> `CInt' #}
{# fun archive_entry_sparse_reset as ^ { `ArchiveEntryPtr' } -> `CInt' #}
{# fun archive_entry_sparse_next as ^ { `ArchiveEntryPtr', id `Ptr LaInt64', id `Ptr LaInt64' } -> `CInt' #}
{# fun archive_entry_linkresolver_new as ^ {} -> `LinkResolverPtr' #}
{# fun archive_entry_linkresolver_set_strategy as ^ { `LinkResolverPtr', `ArchiveFormat' } -> `()' #}
{# fun archive_entry_linkresolver_free as ^ { `LinkResolverPtr' } -> `()' #}
{# fun archive_entry_linkify as ^ { `LinkResolverPtr', id `Ptr (Ptr ArchiveEntry)', id `Ptr (Ptr ArchiveEntry)' } -> `()' #}
{# fun archive_entry_partial_links as ^ { `LinkResolverPtr', id `Ptr CUInt' } -> `Ptr ArchiveEntry' id #}

{# fun archive_entry_atime_is_set as ^ { `ArchiveEntryPtr' } -> `Bool' #}
{# fun archive_entry_birthtime_is_set as ^ { `ArchiveEntryPtr' } -> `Bool' #}
{# fun archive_entry_ctime_is_set as ^ { `ArchiveEntryPtr' } -> `Bool' #}
{# fun archive_entry_dev_is_set as ^ { `ArchiveEntryPtr' } -> `Bool' #}
{# fun archive_entry_ino_is_set as ^ { `ArchiveEntryPtr' } -> `Bool' #}
{# fun archive_entry_mtime_is_set as ^ { `ArchiveEntryPtr' } -> `Bool' #}
{# fun archive_entry_size_is_set as ^ { `ArchiveEntryPtr' } -> `Bool' #}
{# fun archive_entry_is_data_encrypted as ^ { `ArchiveEntryPtr' } -> `Bool' #}
{# fun archive_entry_is_metadata_encrypted as ^ { `ArchiveEntryPtr' } -> `Bool' #}
{# fun archive_entry_is_encrypted as ^ { `ArchiveEntryPtr' } -> `Bool' #}
{# fun archive_entry_update_gname_utf8 as ^ { `ArchiveEntryPtr', `CString' } -> `Bool' #}
{# fun archive_entry_update_hardlink_utf8 as ^ { `ArchiveEntryPtr', `CString' } -> `Bool' #}
{# fun archive_entry_update_link_utf8 as ^ { `ArchiveEntryPtr', `CString' } -> `Bool' #}
{# fun archive_entry_update_pathname_utf8 as ^ { `ArchiveEntryPtr', `CString' } -> `Bool' #}
{# fun archive_entry_update_symlink_utf8 as ^ { `ArchiveEntryPtr', `CString' } -> `Bool' #}
{# fun archive_entry_update_uname_utf8 as ^ { `ArchiveEntryPtr', `CString' } -> `Bool' #}
{# fun archive_entry_digest as ^ { `ArchiveEntryPtr', `ArchiveEntryDigest' } -> `Ptr CUChar' id #}