{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.OSTree.Structs.RollsumMatches
(
RollsumMatches(..) ,
newZeroRollsumMatches ,
noRollsumMatches ,
#if defined(ENABLE_OVERLOADING)
ResolveRollsumMatchesMethod ,
#endif
getRollsumMatchesBufmatches ,
#if defined(ENABLE_OVERLOADING)
rollsumMatches_bufmatches ,
#endif
setRollsumMatchesBufmatches ,
getRollsumMatchesCrcmatches ,
#if defined(ENABLE_OVERLOADING)
rollsumMatches_crcmatches ,
#endif
setRollsumMatchesCrcmatches ,
clearRollsumMatchesFromRollsums ,
getRollsumMatchesFromRollsums ,
#if defined(ENABLE_OVERLOADING)
rollsumMatches_fromRollsums ,
#endif
setRollsumMatchesFromRollsums ,
getRollsumMatchesMatchSize ,
#if defined(ENABLE_OVERLOADING)
rollsumMatches_matchSize ,
#endif
setRollsumMatchesMatchSize ,
clearRollsumMatchesMatches ,
getRollsumMatchesMatches ,
#if defined(ENABLE_OVERLOADING)
rollsumMatches_matches ,
#endif
setRollsumMatchesMatches ,
clearRollsumMatchesToRollsums ,
getRollsumMatchesToRollsums ,
#if defined(ENABLE_OVERLOADING)
rollsumMatches_toRollsums ,
#endif
setRollsumMatchesToRollsums ,
getRollsumMatchesTotal ,
#if defined(ENABLE_OVERLOADING)
rollsumMatches_total ,
#endif
setRollsumMatchesTotal ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
newtype RollsumMatches = RollsumMatches (ManagedPtr RollsumMatches)
deriving (Eq)
instance WrappedPtr RollsumMatches where
wrappedPtrCalloc = callocBytes 40
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 40 >=> wrapPtr RollsumMatches)
wrappedPtrFree = Just ptr_to_g_free
newZeroRollsumMatches :: MonadIO m => m RollsumMatches
newZeroRollsumMatches = liftIO $ wrappedPtrCalloc >>= wrapPtr RollsumMatches
instance tag ~ 'AttrSet => Constructible RollsumMatches tag where
new _ attrs = do
o <- newZeroRollsumMatches
GI.Attributes.set o attrs
return o
noRollsumMatches :: Maybe RollsumMatches
noRollsumMatches = Nothing
getRollsumMatchesFromRollsums :: MonadIO m => RollsumMatches -> m (Maybe (Map.Map (Ptr ()) (Ptr ())))
getRollsumMatchesFromRollsums s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr (GHashTable (Ptr ()) (Ptr ())))
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- unpackGHashTable val'
let val''' = mapFirst ptrUnpackPtr val''
let val'''' = mapSecond ptrUnpackPtr val'''
let val''''' = Map.fromList val''''
return val'''''
return result
setRollsumMatchesFromRollsums :: MonadIO m => RollsumMatches -> Ptr (GHashTable (Ptr ()) (Ptr ())) -> m ()
setRollsumMatchesFromRollsums s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Ptr (GHashTable (Ptr ()) (Ptr ())))
clearRollsumMatchesFromRollsums :: MonadIO m => RollsumMatches -> m ()
clearRollsumMatchesFromRollsums s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (FP.nullPtr :: Ptr (GHashTable (Ptr ()) (Ptr ())))
#if defined(ENABLE_OVERLOADING)
data RollsumMatchesFromRollsumsFieldInfo
instance AttrInfo RollsumMatchesFromRollsumsFieldInfo where
type AttrBaseTypeConstraint RollsumMatchesFromRollsumsFieldInfo = (~) RollsumMatches
type AttrAllowedOps RollsumMatchesFromRollsumsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RollsumMatchesFromRollsumsFieldInfo = (~) (Ptr (GHashTable (Ptr ()) (Ptr ())))
type AttrTransferTypeConstraint RollsumMatchesFromRollsumsFieldInfo = (~)(Ptr (GHashTable (Ptr ()) (Ptr ())))
type AttrTransferType RollsumMatchesFromRollsumsFieldInfo = (Ptr (GHashTable (Ptr ()) (Ptr ())))
type AttrGetType RollsumMatchesFromRollsumsFieldInfo = Maybe (Map.Map (Ptr ()) (Ptr ()))
type AttrLabel RollsumMatchesFromRollsumsFieldInfo = "from_rollsums"
type AttrOrigin RollsumMatchesFromRollsumsFieldInfo = RollsumMatches
attrGet = getRollsumMatchesFromRollsums
attrSet = setRollsumMatchesFromRollsums
attrConstruct = undefined
attrClear = clearRollsumMatchesFromRollsums
attrTransfer _ v = do
return v
rollsumMatches_fromRollsums :: AttrLabelProxy "fromRollsums"
rollsumMatches_fromRollsums = AttrLabelProxy
#endif
getRollsumMatchesToRollsums :: MonadIO m => RollsumMatches -> m (Maybe (Map.Map (Ptr ()) (Ptr ())))
getRollsumMatchesToRollsums s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO (Ptr (GHashTable (Ptr ()) (Ptr ())))
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- unpackGHashTable val'
let val''' = mapFirst ptrUnpackPtr val''
let val'''' = mapSecond ptrUnpackPtr val'''
let val''''' = Map.fromList val''''
return val'''''
return result
setRollsumMatchesToRollsums :: MonadIO m => RollsumMatches -> Ptr (GHashTable (Ptr ()) (Ptr ())) -> m ()
setRollsumMatchesToRollsums s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (val :: Ptr (GHashTable (Ptr ()) (Ptr ())))
clearRollsumMatchesToRollsums :: MonadIO m => RollsumMatches -> m ()
clearRollsumMatchesToRollsums s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (FP.nullPtr :: Ptr (GHashTable (Ptr ()) (Ptr ())))
#if defined(ENABLE_OVERLOADING)
data RollsumMatchesToRollsumsFieldInfo
instance AttrInfo RollsumMatchesToRollsumsFieldInfo where
type AttrBaseTypeConstraint RollsumMatchesToRollsumsFieldInfo = (~) RollsumMatches
type AttrAllowedOps RollsumMatchesToRollsumsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RollsumMatchesToRollsumsFieldInfo = (~) (Ptr (GHashTable (Ptr ()) (Ptr ())))
type AttrTransferTypeConstraint RollsumMatchesToRollsumsFieldInfo = (~)(Ptr (GHashTable (Ptr ()) (Ptr ())))
type AttrTransferType RollsumMatchesToRollsumsFieldInfo = (Ptr (GHashTable (Ptr ()) (Ptr ())))
type AttrGetType RollsumMatchesToRollsumsFieldInfo = Maybe (Map.Map (Ptr ()) (Ptr ()))
type AttrLabel RollsumMatchesToRollsumsFieldInfo = "to_rollsums"
type AttrOrigin RollsumMatchesToRollsumsFieldInfo = RollsumMatches
attrGet = getRollsumMatchesToRollsums
attrSet = setRollsumMatchesToRollsums
attrConstruct = undefined
attrClear = clearRollsumMatchesToRollsums
attrTransfer _ v = do
return v
rollsumMatches_toRollsums :: AttrLabelProxy "toRollsums"
rollsumMatches_toRollsums = AttrLabelProxy
#endif
getRollsumMatchesCrcmatches :: MonadIO m => RollsumMatches -> m Word32
getRollsumMatchesCrcmatches s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Word32
return val
setRollsumMatchesCrcmatches :: MonadIO m => RollsumMatches -> Word32 -> m ()
setRollsumMatchesCrcmatches s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data RollsumMatchesCrcmatchesFieldInfo
instance AttrInfo RollsumMatchesCrcmatchesFieldInfo where
type AttrBaseTypeConstraint RollsumMatchesCrcmatchesFieldInfo = (~) RollsumMatches
type AttrAllowedOps RollsumMatchesCrcmatchesFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RollsumMatchesCrcmatchesFieldInfo = (~) Word32
type AttrTransferTypeConstraint RollsumMatchesCrcmatchesFieldInfo = (~)Word32
type AttrTransferType RollsumMatchesCrcmatchesFieldInfo = Word32
type AttrGetType RollsumMatchesCrcmatchesFieldInfo = Word32
type AttrLabel RollsumMatchesCrcmatchesFieldInfo = "crcmatches"
type AttrOrigin RollsumMatchesCrcmatchesFieldInfo = RollsumMatches
attrGet = getRollsumMatchesCrcmatches
attrSet = setRollsumMatchesCrcmatches
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
rollsumMatches_crcmatches :: AttrLabelProxy "crcmatches"
rollsumMatches_crcmatches = AttrLabelProxy
#endif
getRollsumMatchesBufmatches :: MonadIO m => RollsumMatches -> m Word32
getRollsumMatchesBufmatches s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO Word32
return val
setRollsumMatchesBufmatches :: MonadIO m => RollsumMatches -> Word32 -> m ()
setRollsumMatchesBufmatches s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data RollsumMatchesBufmatchesFieldInfo
instance AttrInfo RollsumMatchesBufmatchesFieldInfo where
type AttrBaseTypeConstraint RollsumMatchesBufmatchesFieldInfo = (~) RollsumMatches
type AttrAllowedOps RollsumMatchesBufmatchesFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RollsumMatchesBufmatchesFieldInfo = (~) Word32
type AttrTransferTypeConstraint RollsumMatchesBufmatchesFieldInfo = (~)Word32
type AttrTransferType RollsumMatchesBufmatchesFieldInfo = Word32
type AttrGetType RollsumMatchesBufmatchesFieldInfo = Word32
type AttrLabel RollsumMatchesBufmatchesFieldInfo = "bufmatches"
type AttrOrigin RollsumMatchesBufmatchesFieldInfo = RollsumMatches
attrGet = getRollsumMatchesBufmatches
attrSet = setRollsumMatchesBufmatches
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
rollsumMatches_bufmatches :: AttrLabelProxy "bufmatches"
rollsumMatches_bufmatches = AttrLabelProxy
#endif
getRollsumMatchesTotal :: MonadIO m => RollsumMatches -> m Word32
getRollsumMatchesTotal s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Word32
return val
setRollsumMatchesTotal :: MonadIO m => RollsumMatches -> Word32 -> m ()
setRollsumMatchesTotal s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data RollsumMatchesTotalFieldInfo
instance AttrInfo RollsumMatchesTotalFieldInfo where
type AttrBaseTypeConstraint RollsumMatchesTotalFieldInfo = (~) RollsumMatches
type AttrAllowedOps RollsumMatchesTotalFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RollsumMatchesTotalFieldInfo = (~) Word32
type AttrTransferTypeConstraint RollsumMatchesTotalFieldInfo = (~)Word32
type AttrTransferType RollsumMatchesTotalFieldInfo = Word32
type AttrGetType RollsumMatchesTotalFieldInfo = Word32
type AttrLabel RollsumMatchesTotalFieldInfo = "total"
type AttrOrigin RollsumMatchesTotalFieldInfo = RollsumMatches
attrGet = getRollsumMatchesTotal
attrSet = setRollsumMatchesTotal
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
rollsumMatches_total :: AttrLabelProxy "total"
rollsumMatches_total = AttrLabelProxy
#endif
getRollsumMatchesMatchSize :: MonadIO m => RollsumMatches -> m Word64
getRollsumMatchesMatchSize s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO Word64
return val
setRollsumMatchesMatchSize :: MonadIO m => RollsumMatches -> Word64 -> m ()
setRollsumMatchesMatchSize s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (val :: Word64)
#if defined(ENABLE_OVERLOADING)
data RollsumMatchesMatchSizeFieldInfo
instance AttrInfo RollsumMatchesMatchSizeFieldInfo where
type AttrBaseTypeConstraint RollsumMatchesMatchSizeFieldInfo = (~) RollsumMatches
type AttrAllowedOps RollsumMatchesMatchSizeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RollsumMatchesMatchSizeFieldInfo = (~) Word64
type AttrTransferTypeConstraint RollsumMatchesMatchSizeFieldInfo = (~)Word64
type AttrTransferType RollsumMatchesMatchSizeFieldInfo = Word64
type AttrGetType RollsumMatchesMatchSizeFieldInfo = Word64
type AttrLabel RollsumMatchesMatchSizeFieldInfo = "match_size"
type AttrOrigin RollsumMatchesMatchSizeFieldInfo = RollsumMatches
attrGet = getRollsumMatchesMatchSize
attrSet = setRollsumMatchesMatchSize
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
rollsumMatches_matchSize :: AttrLabelProxy "matchSize"
rollsumMatches_matchSize = AttrLabelProxy
#endif
getRollsumMatchesMatches :: MonadIO m => RollsumMatches -> m (Maybe ([Ptr ()]))
getRollsumMatchesMatches s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO (Ptr (GPtrArray (Ptr ())))
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- unpackGPtrArray val'
return val''
return result
setRollsumMatchesMatches :: MonadIO m => RollsumMatches -> Ptr (GPtrArray (Ptr ())) -> m ()
setRollsumMatchesMatches s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (val :: Ptr (GPtrArray (Ptr ())))
clearRollsumMatchesMatches :: MonadIO m => RollsumMatches -> m ()
clearRollsumMatchesMatches s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (FP.nullPtr :: Ptr (GPtrArray (Ptr ())))
#if defined(ENABLE_OVERLOADING)
data RollsumMatchesMatchesFieldInfo
instance AttrInfo RollsumMatchesMatchesFieldInfo where
type AttrBaseTypeConstraint RollsumMatchesMatchesFieldInfo = (~) RollsumMatches
type AttrAllowedOps RollsumMatchesMatchesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RollsumMatchesMatchesFieldInfo = (~) (Ptr (GPtrArray (Ptr ())))
type AttrTransferTypeConstraint RollsumMatchesMatchesFieldInfo = (~)(Ptr (GPtrArray (Ptr ())))
type AttrTransferType RollsumMatchesMatchesFieldInfo = (Ptr (GPtrArray (Ptr ())))
type AttrGetType RollsumMatchesMatchesFieldInfo = Maybe ([Ptr ()])
type AttrLabel RollsumMatchesMatchesFieldInfo = "matches"
type AttrOrigin RollsumMatchesMatchesFieldInfo = RollsumMatches
attrGet = getRollsumMatchesMatches
attrSet = setRollsumMatchesMatches
attrConstruct = undefined
attrClear = clearRollsumMatchesMatches
attrTransfer _ v = do
return v
rollsumMatches_matches :: AttrLabelProxy "matches"
rollsumMatches_matches = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList RollsumMatches
type instance O.AttributeList RollsumMatches = RollsumMatchesAttributeList
type RollsumMatchesAttributeList = ('[ '("fromRollsums", RollsumMatchesFromRollsumsFieldInfo), '("toRollsums", RollsumMatchesToRollsumsFieldInfo), '("crcmatches", RollsumMatchesCrcmatchesFieldInfo), '("bufmatches", RollsumMatchesBufmatchesFieldInfo), '("total", RollsumMatchesTotalFieldInfo), '("matchSize", RollsumMatchesMatchSizeFieldInfo), '("matches", RollsumMatchesMatchesFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveRollsumMatchesMethod (t :: Symbol) (o :: *) :: * where
ResolveRollsumMatchesMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRollsumMatchesMethod t RollsumMatches, O.MethodInfo info RollsumMatches p) => OL.IsLabel t (RollsumMatches -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif