module GI.OSTree.Structs.RollsumMatches
(
RollsumMatches(..) ,
newZeroRollsumMatches ,
noRollsumMatches ,
getRollsumMatchesBufmatches ,
rollsumMatches_bufmatches ,
setRollsumMatchesBufmatches ,
getRollsumMatchesCrcmatches ,
rollsumMatches_crcmatches ,
setRollsumMatchesCrcmatches ,
clearRollsumMatchesFromRollsums ,
getRollsumMatchesFromRollsums ,
rollsumMatches_fromRollsums ,
setRollsumMatchesFromRollsums ,
getRollsumMatchesMatchSize ,
rollsumMatches_matchSize ,
setRollsumMatchesMatchSize ,
clearRollsumMatchesMatches ,
getRollsumMatchesMatches ,
rollsumMatches_matches ,
setRollsumMatchesMatches ,
clearRollsumMatchesToRollsums ,
getRollsumMatchesToRollsums ,
rollsumMatches_toRollsums ,
setRollsumMatchesToRollsums ,
getRollsumMatchesTotal ,
rollsumMatches_total ,
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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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
newtype RollsumMatches = RollsumMatches (ManagedPtr RollsumMatches)
instance WrappedPtr RollsumMatches where
wrappedPtrCalloc = callocBytes 48
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 48 >=> 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 ())))
data RollsumMatchesFromRollsumsFieldInfo
instance AttrInfo RollsumMatchesFromRollsumsFieldInfo where
type AttrAllowedOps RollsumMatchesFromRollsumsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RollsumMatchesFromRollsumsFieldInfo = (~) (Ptr (GHashTable (Ptr ()) (Ptr ())))
type AttrBaseTypeConstraint RollsumMatchesFromRollsumsFieldInfo = (~) RollsumMatches
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
rollsumMatches_fromRollsums :: AttrLabelProxy "fromRollsums"
rollsumMatches_fromRollsums = AttrLabelProxy
getRollsumMatchesToRollsums :: MonadIO m => RollsumMatches -> m (Maybe (Map.Map (Ptr ()) (Ptr ())))
getRollsumMatchesToRollsums s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: 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` 8) (val :: Ptr (GHashTable (Ptr ()) (Ptr ())))
clearRollsumMatchesToRollsums :: MonadIO m => RollsumMatches -> m ()
clearRollsumMatchesToRollsums s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: Ptr (GHashTable (Ptr ()) (Ptr ())))
data RollsumMatchesToRollsumsFieldInfo
instance AttrInfo RollsumMatchesToRollsumsFieldInfo where
type AttrAllowedOps RollsumMatchesToRollsumsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RollsumMatchesToRollsumsFieldInfo = (~) (Ptr (GHashTable (Ptr ()) (Ptr ())))
type AttrBaseTypeConstraint RollsumMatchesToRollsumsFieldInfo = (~) RollsumMatches
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
rollsumMatches_toRollsums :: AttrLabelProxy "toRollsums"
rollsumMatches_toRollsums = AttrLabelProxy
getRollsumMatchesCrcmatches :: MonadIO m => RollsumMatches -> m Word32
getRollsumMatchesCrcmatches s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Word32
return val
setRollsumMatchesCrcmatches :: MonadIO m => RollsumMatches -> Word32 -> m ()
setRollsumMatchesCrcmatches s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: Word32)
data RollsumMatchesCrcmatchesFieldInfo
instance AttrInfo RollsumMatchesCrcmatchesFieldInfo where
type AttrAllowedOps RollsumMatchesCrcmatchesFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RollsumMatchesCrcmatchesFieldInfo = (~) Word32
type AttrBaseTypeConstraint RollsumMatchesCrcmatchesFieldInfo = (~) RollsumMatches
type AttrGetType RollsumMatchesCrcmatchesFieldInfo = Word32
type AttrLabel RollsumMatchesCrcmatchesFieldInfo = "crcmatches"
type AttrOrigin RollsumMatchesCrcmatchesFieldInfo = RollsumMatches
attrGet _ = getRollsumMatchesCrcmatches
attrSet _ = setRollsumMatchesCrcmatches
attrConstruct = undefined
attrClear _ = undefined
rollsumMatches_crcmatches :: AttrLabelProxy "crcmatches"
rollsumMatches_crcmatches = AttrLabelProxy
getRollsumMatchesBufmatches :: MonadIO m => RollsumMatches -> m Word32
getRollsumMatchesBufmatches s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
setRollsumMatchesBufmatches :: MonadIO m => RollsumMatches -> Word32 -> m ()
setRollsumMatchesBufmatches s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (val :: Word32)
data RollsumMatchesBufmatchesFieldInfo
instance AttrInfo RollsumMatchesBufmatchesFieldInfo where
type AttrAllowedOps RollsumMatchesBufmatchesFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RollsumMatchesBufmatchesFieldInfo = (~) Word32
type AttrBaseTypeConstraint RollsumMatchesBufmatchesFieldInfo = (~) RollsumMatches
type AttrGetType RollsumMatchesBufmatchesFieldInfo = Word32
type AttrLabel RollsumMatchesBufmatchesFieldInfo = "bufmatches"
type AttrOrigin RollsumMatchesBufmatchesFieldInfo = RollsumMatches
attrGet _ = getRollsumMatchesBufmatches
attrSet _ = setRollsumMatchesBufmatches
attrConstruct = undefined
attrClear _ = undefined
rollsumMatches_bufmatches :: AttrLabelProxy "bufmatches"
rollsumMatches_bufmatches = AttrLabelProxy
getRollsumMatchesTotal :: MonadIO m => RollsumMatches -> m Word32
getRollsumMatchesTotal s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO Word32
return val
setRollsumMatchesTotal :: MonadIO m => RollsumMatches -> Word32 -> m ()
setRollsumMatchesTotal s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (val :: Word32)
data RollsumMatchesTotalFieldInfo
instance AttrInfo RollsumMatchesTotalFieldInfo where
type AttrAllowedOps RollsumMatchesTotalFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RollsumMatchesTotalFieldInfo = (~) Word32
type AttrBaseTypeConstraint RollsumMatchesTotalFieldInfo = (~) RollsumMatches
type AttrGetType RollsumMatchesTotalFieldInfo = Word32
type AttrLabel RollsumMatchesTotalFieldInfo = "total"
type AttrOrigin RollsumMatchesTotalFieldInfo = RollsumMatches
attrGet _ = getRollsumMatchesTotal
attrSet _ = setRollsumMatchesTotal
attrConstruct = undefined
attrClear _ = undefined
rollsumMatches_total :: AttrLabelProxy "total"
rollsumMatches_total = AttrLabelProxy
getRollsumMatchesMatchSize :: MonadIO m => RollsumMatches -> m Word64
getRollsumMatchesMatchSize s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO Word64
return val
setRollsumMatchesMatchSize :: MonadIO m => RollsumMatches -> Word64 -> m ()
setRollsumMatchesMatchSize s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (val :: Word64)
data RollsumMatchesMatchSizeFieldInfo
instance AttrInfo RollsumMatchesMatchSizeFieldInfo where
type AttrAllowedOps RollsumMatchesMatchSizeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RollsumMatchesMatchSizeFieldInfo = (~) Word64
type AttrBaseTypeConstraint RollsumMatchesMatchSizeFieldInfo = (~) RollsumMatches
type AttrGetType RollsumMatchesMatchSizeFieldInfo = Word64
type AttrLabel RollsumMatchesMatchSizeFieldInfo = "match_size"
type AttrOrigin RollsumMatchesMatchSizeFieldInfo = RollsumMatches
attrGet _ = getRollsumMatchesMatchSize
attrSet _ = setRollsumMatchesMatchSize
attrConstruct = undefined
attrClear _ = undefined
rollsumMatches_matchSize :: AttrLabelProxy "matchSize"
rollsumMatches_matchSize = AttrLabelProxy
getRollsumMatchesMatches :: MonadIO m => RollsumMatches -> m (Maybe [Ptr ()])
getRollsumMatchesMatches s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: 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` 40) (val :: Ptr (GPtrArray (Ptr ())))
clearRollsumMatchesMatches :: MonadIO m => RollsumMatches -> m ()
clearRollsumMatchesMatches s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 40) (FP.nullPtr :: Ptr (GPtrArray (Ptr ())))
data RollsumMatchesMatchesFieldInfo
instance AttrInfo RollsumMatchesMatchesFieldInfo where
type AttrAllowedOps RollsumMatchesMatchesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RollsumMatchesMatchesFieldInfo = (~) (Ptr (GPtrArray (Ptr ())))
type AttrBaseTypeConstraint RollsumMatchesMatchesFieldInfo = (~) RollsumMatches
type AttrGetType RollsumMatchesMatchesFieldInfo = Maybe [Ptr ()]
type AttrLabel RollsumMatchesMatchesFieldInfo = "matches"
type AttrOrigin RollsumMatchesMatchesFieldInfo = RollsumMatches
attrGet _ = getRollsumMatchesMatches
attrSet _ = setRollsumMatchesMatches
attrConstruct = undefined
attrClear _ = clearRollsumMatchesMatches
rollsumMatches_matches :: AttrLabelProxy "matches"
rollsumMatches_matches = AttrLabelProxy
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, *)])
type family ResolveRollsumMatchesMethod (t :: Symbol) (o :: *) :: * where
ResolveRollsumMatchesMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRollsumMatchesMethod t RollsumMatches, O.MethodInfo info RollsumMatches p) => O.IsLabelProxy t (RollsumMatches -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveRollsumMatchesMethod t RollsumMatches, O.MethodInfo info RollsumMatches p) => O.IsLabel t (RollsumMatches -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif