{-# LINE 1 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
module Codec.Archive.Foreign.Archive.Macros ( archiveVersionNumberMacro
, archiveVersionOnlyString
, archiveVersionStringMacro
, archiveReadFormatCapsNone
, archiveReadFormatCapsEncryptData
, archiveReadFormatCapsEncryptMetadata
, archiveMatchMTime
, archiveMatchCTime
, archiveMatchNewer
, archiveMatchOlder
, archiveMatchEqual
, archiveExtractOwner
, archiveExtractPerm
, archiveExtractNoOverwrite
, archiveExtractUnlink
, archiveExtractACL
, archiveExtractFFlags
, archiveExtractXattr
, archiveExtractSecureSymlinks
, archiveExtractSecureNoDotDot
, archiveExtractTime
, archiveExtractNoAutodir
, archiveExtractSparse
, archiveExtractMacMetadata
, archiveExtractNoHfsCompression
, archiveExtractHfsCompressionForced
, archiveExtractSecureNoAbsolutePaths
, archiveExtractClearNoChangeFFlags
, archiveExtractNoOverwriteNewer
, archiveReadDiskRestoreATime
, archiveReadDiskHonorNoDump
, archiveReadDiskMacCopyFile
, archiveReadDiskNoTraverseMounts
, archiveReadDiskNoXattr
, archiveReadDiskNoAcl
, archiveReadDiskNoFFlags
, resultToErr
, encryptionResult
) where
import Codec.Archive.Types
import Data.Bits (Bits (..))
import Foreign.C.Types
archiveVersionNumberMacro :: Int
archiveVersionNumberMacro :: Int
archiveVersionNumberMacro = 3004000
{-# LINE 49 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveVersionOnlyString :: String
archiveVersionOnlyString = "3.4.0"
{-# LINE 52 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveVersionStringMacro :: String
archiveVersionStringMacro :: String
archiveVersionStringMacro = "libarchive 3.4.0"
{-# LINE 55 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractOwner :: Flags
= CInt -> Flags
Flags 0x1
{-# LINE 59 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractPerm :: Flags
= CInt -> Flags
Flags 0x2
{-# LINE 62 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractTime :: Flags
= CInt -> Flags
Flags 0x4
{-# LINE 65 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractNoOverwrite :: Flags
= CInt -> Flags
Flags 0x8
{-# LINE 68 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractUnlink :: Flags
= CInt -> Flags
Flags 0x10
{-# LINE 71 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractACL :: Flags
= CInt -> Flags
Flags 0x20
{-# LINE 74 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractFFlags :: Flags
= CInt -> Flags
Flags 0x40
{-# LINE 77 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractXattr :: Flags
= CInt -> Flags
Flags 0x80
{-# LINE 80 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractSecureSymlinks :: Flags
= CInt -> Flags
Flags 0x100
{-# LINE 83 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractSecureNoDotDot :: Flags
= CInt -> Flags
Flags 0x200
{-# LINE 86 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractNoAutodir :: Flags
= CInt -> Flags
Flags 0x400
{-# LINE 89 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractNoOverwriteNewer :: Flags
= CInt -> Flags
Flags 0x800
{-# LINE 92 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractSparse :: Flags
= CInt -> Flags
Flags 0x1000
{-# LINE 95 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractMacMetadata :: Flags
= CInt -> Flags
Flags 0x2000
{-# LINE 98 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractNoHfsCompression :: Flags
= CInt -> Flags
Flags 0x4000
{-# LINE 101 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractHfsCompressionForced :: Flags
= CInt -> Flags
Flags 0x8000
{-# LINE 104 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractSecureNoAbsolutePaths :: Flags
= CInt -> Flags
Flags 0x10000
{-# LINE 107 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveExtractClearNoChangeFFlags :: Flags
= CInt -> Flags
Flags 0x20000
{-# LINE 110 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
encryptionResult :: CInt -> ArchiveEncryption
encryptionResult :: CInt -> ArchiveEncryption
encryptionResult 0 = ArchiveEncryption
NoEncryption
encryptionResult 1 = ArchiveEncryption
HasEncryption
encryptionResult (-2) = ArchiveEncryption
EncryptionUnsupported
encryptionResult (-1) = ArchiveEncryption
EncryptionUnknown
encryptionResult _ = String -> ArchiveEncryption
forall a. HasCallStack => String -> a
error "Should not happen."
archiveReadFormatCapsNone :: ArchiveCapabilities
archiveReadFormatCapsNone :: ArchiveCapabilities
archiveReadFormatCapsNone = CInt -> ArchiveCapabilities
ArchiveCapabilities 0
{-# LINE 120 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
(<<) :: Bits a => a -> Int -> a
m :: a
m << :: a -> Int -> a
<< n :: Int
n = a
m a -> Int -> a
forall a. Bits a => a -> Int -> a
`shift` Int
n
archiveReadFormatCapsEncryptData :: ArchiveCapabilities
archiveReadFormatCapsEncryptData :: ArchiveCapabilities
archiveReadFormatCapsEncryptData = CInt -> ArchiveCapabilities
ArchiveCapabilities (1 CInt -> Int -> CInt
forall a. Bits a => a -> Int -> a
<< 0)
archiveReadFormatCapsEncryptMetadata :: ArchiveCapabilities
archiveReadFormatCapsEncryptMetadata :: ArchiveCapabilities
archiveReadFormatCapsEncryptMetadata = CInt -> ArchiveCapabilities
ArchiveCapabilities (1 CInt -> Int -> CInt
forall a. Bits a => a -> Int -> a
<< 0)
archiveReadDiskRestoreATime :: ReadDiskFlags
archiveReadDiskRestoreATime :: ReadDiskFlags
archiveReadDiskRestoreATime = CInt -> ReadDiskFlags
ReadDiskFlags 0x1
{-# LINE 132 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveReadDiskHonorNoDump :: ReadDiskFlags
archiveReadDiskHonorNoDump :: ReadDiskFlags
archiveReadDiskHonorNoDump = CInt -> ReadDiskFlags
ReadDiskFlags 0x2
{-# LINE 135 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveReadDiskMacCopyFile :: ReadDiskFlags
archiveReadDiskMacCopyFile :: ReadDiskFlags
archiveReadDiskMacCopyFile = CInt -> ReadDiskFlags
ReadDiskFlags 0x4
{-# LINE 138 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveReadDiskNoTraverseMounts :: ReadDiskFlags
archiveReadDiskNoTraverseMounts :: ReadDiskFlags
archiveReadDiskNoTraverseMounts = CInt -> ReadDiskFlags
ReadDiskFlags 0x8
{-# LINE 141 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveReadDiskNoXattr :: ReadDiskFlags
archiveReadDiskNoXattr :: ReadDiskFlags
archiveReadDiskNoXattr = CInt -> ReadDiskFlags
ReadDiskFlags 0x10
{-# LINE 144 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveReadDiskNoAcl :: ReadDiskFlags
archiveReadDiskNoAcl :: ReadDiskFlags
archiveReadDiskNoAcl = CInt -> ReadDiskFlags
ReadDiskFlags 0x20
{-# LINE 148 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveReadDiskNoFFlags :: ReadDiskFlags
archiveReadDiskNoFFlags :: ReadDiskFlags
archiveReadDiskNoFFlags = CInt -> ReadDiskFlags
ReadDiskFlags 0x40
{-# LINE 152 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveMatchMTime :: TimeFlag
archiveMatchMTime :: TimeFlag
archiveMatchMTime = CInt -> TimeFlag
TimeFlag 0x100
{-# LINE 155 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveMatchCTime :: TimeFlag
archiveMatchCTime :: TimeFlag
archiveMatchCTime = CInt -> TimeFlag
TimeFlag 0x200
{-# LINE 158 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveMatchNewer :: TimeFlag
archiveMatchNewer :: TimeFlag
archiveMatchNewer = CInt -> TimeFlag
TimeFlag 0x1
{-# LINE 161 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveMatchOlder :: TimeFlag
archiveMatchOlder :: TimeFlag
archiveMatchOlder = CInt -> TimeFlag
TimeFlag 0x2
{-# LINE 164 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}
archiveMatchEqual :: TimeFlag
archiveMatchEqual :: TimeFlag
archiveMatchEqual = CInt -> TimeFlag
TimeFlag 0x10
{-# LINE 167 "src/Codec/Archive/Foreign/Archive/Macros.chs" #-}