#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.GObject.Structs.TypeValueTable
(
TypeValueTable(..) ,
newZeroTypeValueTable ,
noTypeValueTable ,
clearTypeValueTableCollectFormat ,
getTypeValueTableCollectFormat ,
setTypeValueTableCollectFormat ,
#if ENABLE_OVERLOADING
typeValueTable_collectFormat ,
#endif
clearTypeValueTableCollectValue ,
getTypeValueTableCollectValue ,
setTypeValueTableCollectValue ,
#if ENABLE_OVERLOADING
typeValueTable_collectValue ,
#endif
clearTypeValueTableLcopyFormat ,
getTypeValueTableLcopyFormat ,
setTypeValueTableLcopyFormat ,
#if ENABLE_OVERLOADING
typeValueTable_lcopyFormat ,
#endif
clearTypeValueTableLcopyValue ,
getTypeValueTableLcopyValue ,
setTypeValueTableLcopyValue ,
#if ENABLE_OVERLOADING
typeValueTable_lcopyValue ,
#endif
clearTypeValueTableValueCopy ,
getTypeValueTableValueCopy ,
setTypeValueTableValueCopy ,
#if ENABLE_OVERLOADING
typeValueTable_valueCopy ,
#endif
clearTypeValueTableValueFree ,
getTypeValueTableValueFree ,
setTypeValueTableValueFree ,
#if ENABLE_OVERLOADING
typeValueTable_valueFree ,
#endif
clearTypeValueTableValueInit ,
getTypeValueTableValueInit ,
setTypeValueTableValueInit ,
#if ENABLE_OVERLOADING
typeValueTable_valueInit ,
#endif
clearTypeValueTableValuePeekPointer ,
getTypeValueTableValuePeekPointer ,
setTypeValueTableValuePeekPointer ,
#if ENABLE_OVERLOADING
typeValueTable_valuePeekPointer ,
#endif
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Callbacks as GObject.Callbacks
newtype TypeValueTable = TypeValueTable (ManagedPtr TypeValueTable)
instance WrappedPtr TypeValueTable where
wrappedPtrCalloc :: IO (Ptr TypeValueTable)
wrappedPtrCalloc = Int -> IO (Ptr TypeValueTable)
forall a. Int -> IO (Ptr a)
callocBytes 64
wrappedPtrCopy :: TypeValueTable -> IO TypeValueTable
wrappedPtrCopy = \p :: TypeValueTable
p -> TypeValueTable
-> (Ptr TypeValueTable -> IO TypeValueTable) -> IO TypeValueTable
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
p (Int -> Ptr TypeValueTable -> IO (Ptr TypeValueTable)
forall a. WrappedPtr a => Int -> Ptr a -> IO (Ptr a)
copyBytes 64 (Ptr TypeValueTable -> IO (Ptr TypeValueTable))
-> (Ptr TypeValueTable -> IO TypeValueTable)
-> Ptr TypeValueTable
-> IO TypeValueTable
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr TypeValueTable -> TypeValueTable)
-> Ptr TypeValueTable -> IO TypeValueTable
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr TypeValueTable -> TypeValueTable
TypeValueTable)
wrappedPtrFree :: Maybe (FunPtr (Ptr TypeValueTable -> IO ()))
wrappedPtrFree = FunPtr (Ptr TypeValueTable -> IO ())
-> Maybe (FunPtr (Ptr TypeValueTable -> IO ()))
forall a. a -> Maybe a
Just FunPtr (Ptr TypeValueTable -> IO ())
forall a. FunPtr (Ptr a -> IO ())
ptr_to_g_free
newZeroTypeValueTable :: MonadIO m => m TypeValueTable
newZeroTypeValueTable :: m TypeValueTable
newZeroTypeValueTable = IO TypeValueTable -> m TypeValueTable
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TypeValueTable -> m TypeValueTable)
-> IO TypeValueTable -> m TypeValueTable
forall a b. (a -> b) -> a -> b
$ IO (Ptr TypeValueTable)
forall a. WrappedPtr a => IO (Ptr a)
wrappedPtrCalloc IO (Ptr TypeValueTable)
-> (Ptr TypeValueTable -> IO TypeValueTable) -> IO TypeValueTable
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr TypeValueTable -> TypeValueTable)
-> Ptr TypeValueTable -> IO TypeValueTable
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr TypeValueTable -> TypeValueTable
TypeValueTable
instance tag ~ 'AttrSet => Constructible TypeValueTable tag where
new :: (ManagedPtr TypeValueTable -> TypeValueTable)
-> [AttrOp TypeValueTable tag] -> m TypeValueTable
new _ attrs :: [AttrOp TypeValueTable tag]
attrs = do
TypeValueTable
o <- m TypeValueTable
forall (m :: * -> *). MonadIO m => m TypeValueTable
newZeroTypeValueTable
TypeValueTable -> [AttrOp TypeValueTable 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set TypeValueTable
o [AttrOp TypeValueTable tag]
[AttrOp TypeValueTable 'AttrSet]
attrs
TypeValueTable -> m TypeValueTable
forall (m :: * -> *) a. Monad m => a -> m a
return TypeValueTable
o
noTypeValueTable :: Maybe TypeValueTable
noTypeValueTable :: Maybe TypeValueTable
noTypeValueTable = Maybe TypeValueTable
forall a. Maybe a
Nothing
getTypeValueTableValueInit :: MonadIO m => TypeValueTable -> m (Maybe GObject.Callbacks.TypeValueTableValueInitFieldCallback)
getTypeValueTableValueInit :: TypeValueTable -> m (Maybe TypeValueTableValueInitFieldCallback)
getTypeValueTableValueInit s :: TypeValueTable
s = IO (Maybe TypeValueTableValueInitFieldCallback)
-> m (Maybe TypeValueTableValueInitFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TypeValueTableValueInitFieldCallback)
-> m (Maybe TypeValueTableValueInitFieldCallback))
-> IO (Maybe TypeValueTableValueInitFieldCallback)
-> m (Maybe TypeValueTableValueInitFieldCallback)
forall a b. (a -> b) -> a -> b
$ TypeValueTable
-> (Ptr TypeValueTable
-> IO (Maybe TypeValueTableValueInitFieldCallback))
-> IO (Maybe TypeValueTableValueInitFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable
-> IO (Maybe TypeValueTableValueInitFieldCallback))
-> IO (Maybe TypeValueTableValueInitFieldCallback))
-> (Ptr TypeValueTable
-> IO (Maybe TypeValueTableValueInitFieldCallback))
-> IO (Maybe TypeValueTableValueInitFieldCallback)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
FunPtr C_TypeValueTableValueInitFieldCallback
val <- Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)
-> IO (FunPtr C_TypeValueTableValueInitFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO (FunPtr GObject.Callbacks.C_TypeValueTableValueInitFieldCallback)
Maybe TypeValueTableValueInitFieldCallback
result <- FunPtr C_TypeValueTableValueInitFieldCallback
-> (FunPtr C_TypeValueTableValueInitFieldCallback
-> IO TypeValueTableValueInitFieldCallback)
-> IO (Maybe TypeValueTableValueInitFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_TypeValueTableValueInitFieldCallback
val ((FunPtr C_TypeValueTableValueInitFieldCallback
-> IO TypeValueTableValueInitFieldCallback)
-> IO (Maybe TypeValueTableValueInitFieldCallback))
-> (FunPtr C_TypeValueTableValueInitFieldCallback
-> IO TypeValueTableValueInitFieldCallback)
-> IO (Maybe TypeValueTableValueInitFieldCallback)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_TypeValueTableValueInitFieldCallback
val' -> do
let val'' :: TypeValueTableValueInitFieldCallback
val'' = FunPtr C_TypeValueTableValueInitFieldCallback
-> TypeValueTableValueInitFieldCallback
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeValueTableValueInitFieldCallback -> GValue -> m ()
GObject.Callbacks.dynamic_TypeValueTableValueInitFieldCallback FunPtr C_TypeValueTableValueInitFieldCallback
val'
TypeValueTableValueInitFieldCallback
-> IO TypeValueTableValueInitFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return TypeValueTableValueInitFieldCallback
val''
Maybe TypeValueTableValueInitFieldCallback
-> IO (Maybe TypeValueTableValueInitFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TypeValueTableValueInitFieldCallback
result
setTypeValueTableValueInit :: MonadIO m => TypeValueTable -> FunPtr GObject.Callbacks.C_TypeValueTableValueInitFieldCallback -> m ()
setTypeValueTableValueInit :: TypeValueTable
-> FunPtr C_TypeValueTableValueInitFieldCallback -> m ()
setTypeValueTableValueInit s :: TypeValueTable
s val :: FunPtr C_TypeValueTableValueInitFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)
-> FunPtr C_TypeValueTableValueInitFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (FunPtr C_TypeValueTableValueInitFieldCallback
val :: FunPtr GObject.Callbacks.C_TypeValueTableValueInitFieldCallback)
clearTypeValueTableValueInit :: MonadIO m => TypeValueTable -> m ()
clearTypeValueTableValueInit :: TypeValueTable -> m ()
clearTypeValueTableValueInit s :: TypeValueTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)
-> FunPtr C_TypeValueTableValueInitFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (FunPtr C_TypeValueTableValueInitFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GObject.Callbacks.C_TypeValueTableValueInitFieldCallback)
#if ENABLE_OVERLOADING
data TypeValueTableValueInitFieldInfo
instance AttrInfo TypeValueTableValueInitFieldInfo where
type AttrAllowedOps TypeValueTableValueInitFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TypeValueTableValueInitFieldInfo = (~) (FunPtr GObject.Callbacks.C_TypeValueTableValueInitFieldCallback)
type AttrBaseTypeConstraint TypeValueTableValueInitFieldInfo = (~) TypeValueTable
type AttrGetType TypeValueTableValueInitFieldInfo = Maybe GObject.Callbacks.TypeValueTableValueInitFieldCallback
type AttrLabel TypeValueTableValueInitFieldInfo = "value_init"
type AttrOrigin TypeValueTableValueInitFieldInfo = TypeValueTable
attrGet _ = getTypeValueTableValueInit
attrSet _ = setTypeValueTableValueInit
attrConstruct = undefined
attrClear _ = clearTypeValueTableValueInit
typeValueTable_valueInit :: AttrLabelProxy "valueInit"
typeValueTable_valueInit = AttrLabelProxy
#endif
getTypeValueTableValueFree :: MonadIO m => TypeValueTable -> m (Maybe GObject.Callbacks.TypeValueTableValueFreeFieldCallback)
getTypeValueTableValueFree :: TypeValueTable -> m (Maybe TypeValueTableValueInitFieldCallback)
getTypeValueTableValueFree s :: TypeValueTable
s = IO (Maybe TypeValueTableValueInitFieldCallback)
-> m (Maybe TypeValueTableValueInitFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TypeValueTableValueInitFieldCallback)
-> m (Maybe TypeValueTableValueInitFieldCallback))
-> IO (Maybe TypeValueTableValueInitFieldCallback)
-> m (Maybe TypeValueTableValueInitFieldCallback)
forall a b. (a -> b) -> a -> b
$ TypeValueTable
-> (Ptr TypeValueTable
-> IO (Maybe TypeValueTableValueInitFieldCallback))
-> IO (Maybe TypeValueTableValueInitFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable
-> IO (Maybe TypeValueTableValueInitFieldCallback))
-> IO (Maybe TypeValueTableValueInitFieldCallback))
-> (Ptr TypeValueTable
-> IO (Maybe TypeValueTableValueInitFieldCallback))
-> IO (Maybe TypeValueTableValueInitFieldCallback)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
FunPtr C_TypeValueTableValueInitFieldCallback
val <- Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)
-> IO (FunPtr C_TypeValueTableValueInitFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) :: IO (FunPtr GObject.Callbacks.C_TypeValueTableValueFreeFieldCallback)
Maybe TypeValueTableValueInitFieldCallback
result <- FunPtr C_TypeValueTableValueInitFieldCallback
-> (FunPtr C_TypeValueTableValueInitFieldCallback
-> IO TypeValueTableValueInitFieldCallback)
-> IO (Maybe TypeValueTableValueInitFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_TypeValueTableValueInitFieldCallback
val ((FunPtr C_TypeValueTableValueInitFieldCallback
-> IO TypeValueTableValueInitFieldCallback)
-> IO (Maybe TypeValueTableValueInitFieldCallback))
-> (FunPtr C_TypeValueTableValueInitFieldCallback
-> IO TypeValueTableValueInitFieldCallback)
-> IO (Maybe TypeValueTableValueInitFieldCallback)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_TypeValueTableValueInitFieldCallback
val' -> do
let val'' :: TypeValueTableValueInitFieldCallback
val'' = FunPtr C_TypeValueTableValueInitFieldCallback
-> TypeValueTableValueInitFieldCallback
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeValueTableValueInitFieldCallback -> GValue -> m ()
GObject.Callbacks.dynamic_TypeValueTableValueFreeFieldCallback FunPtr C_TypeValueTableValueInitFieldCallback
val'
TypeValueTableValueInitFieldCallback
-> IO TypeValueTableValueInitFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return TypeValueTableValueInitFieldCallback
val''
Maybe TypeValueTableValueInitFieldCallback
-> IO (Maybe TypeValueTableValueInitFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TypeValueTableValueInitFieldCallback
result
setTypeValueTableValueFree :: MonadIO m => TypeValueTable -> FunPtr GObject.Callbacks.C_TypeValueTableValueFreeFieldCallback -> m ()
setTypeValueTableValueFree :: TypeValueTable
-> FunPtr C_TypeValueTableValueInitFieldCallback -> m ()
setTypeValueTableValueFree s :: TypeValueTable
s val :: FunPtr C_TypeValueTableValueInitFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)
-> FunPtr C_TypeValueTableValueInitFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (FunPtr C_TypeValueTableValueInitFieldCallback
val :: FunPtr GObject.Callbacks.C_TypeValueTableValueFreeFieldCallback)
clearTypeValueTableValueFree :: MonadIO m => TypeValueTable -> m ()
clearTypeValueTableValueFree :: TypeValueTable -> m ()
clearTypeValueTableValueFree s :: TypeValueTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)
-> FunPtr C_TypeValueTableValueInitFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableValueInitFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (FunPtr C_TypeValueTableValueInitFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GObject.Callbacks.C_TypeValueTableValueFreeFieldCallback)
#if ENABLE_OVERLOADING
data TypeValueTableValueFreeFieldInfo
instance AttrInfo TypeValueTableValueFreeFieldInfo where
type AttrAllowedOps TypeValueTableValueFreeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TypeValueTableValueFreeFieldInfo = (~) (FunPtr GObject.Callbacks.C_TypeValueTableValueFreeFieldCallback)
type AttrBaseTypeConstraint TypeValueTableValueFreeFieldInfo = (~) TypeValueTable
type AttrGetType TypeValueTableValueFreeFieldInfo = Maybe GObject.Callbacks.TypeValueTableValueFreeFieldCallback
type AttrLabel TypeValueTableValueFreeFieldInfo = "value_free"
type AttrOrigin TypeValueTableValueFreeFieldInfo = TypeValueTable
attrGet _ = getTypeValueTableValueFree
attrSet _ = setTypeValueTableValueFree
attrConstruct = undefined
attrClear _ = clearTypeValueTableValueFree
typeValueTable_valueFree :: AttrLabelProxy "valueFree"
typeValueTable_valueFree = AttrLabelProxy
#endif
getTypeValueTableValueCopy :: MonadIO m => TypeValueTable -> m (Maybe GObject.Callbacks.TypeValueTableValueCopyFieldCallback)
getTypeValueTableValueCopy :: TypeValueTable -> m (Maybe TypeValueTableValueCopyFieldCallback)
getTypeValueTableValueCopy s :: TypeValueTable
s = IO (Maybe TypeValueTableValueCopyFieldCallback)
-> m (Maybe TypeValueTableValueCopyFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TypeValueTableValueCopyFieldCallback)
-> m (Maybe TypeValueTableValueCopyFieldCallback))
-> IO (Maybe TypeValueTableValueCopyFieldCallback)
-> m (Maybe TypeValueTableValueCopyFieldCallback)
forall a b. (a -> b) -> a -> b
$ TypeValueTable
-> (Ptr TypeValueTable
-> IO (Maybe TypeValueTableValueCopyFieldCallback))
-> IO (Maybe TypeValueTableValueCopyFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable
-> IO (Maybe TypeValueTableValueCopyFieldCallback))
-> IO (Maybe TypeValueTableValueCopyFieldCallback))
-> (Ptr TypeValueTable
-> IO (Maybe TypeValueTableValueCopyFieldCallback))
-> IO (Maybe TypeValueTableValueCopyFieldCallback)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
FunPtr C_TypeValueTableValueCopyFieldCallback
val <- Ptr (FunPtr C_TypeValueTableValueCopyFieldCallback)
-> IO (FunPtr C_TypeValueTableValueCopyFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableValueCopyFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) :: IO (FunPtr GObject.Callbacks.C_TypeValueTableValueCopyFieldCallback)
Maybe TypeValueTableValueCopyFieldCallback
result <- FunPtr C_TypeValueTableValueCopyFieldCallback
-> (FunPtr C_TypeValueTableValueCopyFieldCallback
-> IO TypeValueTableValueCopyFieldCallback)
-> IO (Maybe TypeValueTableValueCopyFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_TypeValueTableValueCopyFieldCallback
val ((FunPtr C_TypeValueTableValueCopyFieldCallback
-> IO TypeValueTableValueCopyFieldCallback)
-> IO (Maybe TypeValueTableValueCopyFieldCallback))
-> (FunPtr C_TypeValueTableValueCopyFieldCallback
-> IO TypeValueTableValueCopyFieldCallback)
-> IO (Maybe TypeValueTableValueCopyFieldCallback)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_TypeValueTableValueCopyFieldCallback
val' -> do
let val'' :: TypeValueTableValueCopyFieldCallback
val'' = FunPtr C_TypeValueTableValueCopyFieldCallback
-> TypeValueTableValueCopyFieldCallback
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeValueTableValueCopyFieldCallback
-> GValue -> GValue -> m ()
GObject.Callbacks.dynamic_TypeValueTableValueCopyFieldCallback FunPtr C_TypeValueTableValueCopyFieldCallback
val'
TypeValueTableValueCopyFieldCallback
-> IO TypeValueTableValueCopyFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return TypeValueTableValueCopyFieldCallback
val''
Maybe TypeValueTableValueCopyFieldCallback
-> IO (Maybe TypeValueTableValueCopyFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TypeValueTableValueCopyFieldCallback
result
setTypeValueTableValueCopy :: MonadIO m => TypeValueTable -> FunPtr GObject.Callbacks.C_TypeValueTableValueCopyFieldCallback -> m ()
setTypeValueTableValueCopy :: TypeValueTable
-> FunPtr C_TypeValueTableValueCopyFieldCallback -> m ()
setTypeValueTableValueCopy s :: TypeValueTable
s val :: FunPtr C_TypeValueTableValueCopyFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr (FunPtr C_TypeValueTableValueCopyFieldCallback)
-> FunPtr C_TypeValueTableValueCopyFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableValueCopyFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (FunPtr C_TypeValueTableValueCopyFieldCallback
val :: FunPtr GObject.Callbacks.C_TypeValueTableValueCopyFieldCallback)
clearTypeValueTableValueCopy :: MonadIO m => TypeValueTable -> m ()
clearTypeValueTableValueCopy :: TypeValueTable -> m ()
clearTypeValueTableValueCopy s :: TypeValueTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr (FunPtr C_TypeValueTableValueCopyFieldCallback)
-> FunPtr C_TypeValueTableValueCopyFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableValueCopyFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (FunPtr C_TypeValueTableValueCopyFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GObject.Callbacks.C_TypeValueTableValueCopyFieldCallback)
#if ENABLE_OVERLOADING
data TypeValueTableValueCopyFieldInfo
instance AttrInfo TypeValueTableValueCopyFieldInfo where
type AttrAllowedOps TypeValueTableValueCopyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TypeValueTableValueCopyFieldInfo = (~) (FunPtr GObject.Callbacks.C_TypeValueTableValueCopyFieldCallback)
type AttrBaseTypeConstraint TypeValueTableValueCopyFieldInfo = (~) TypeValueTable
type AttrGetType TypeValueTableValueCopyFieldInfo = Maybe GObject.Callbacks.TypeValueTableValueCopyFieldCallback
type AttrLabel TypeValueTableValueCopyFieldInfo = "value_copy"
type AttrOrigin TypeValueTableValueCopyFieldInfo = TypeValueTable
attrGet _ = getTypeValueTableValueCopy
attrSet _ = setTypeValueTableValueCopy
attrConstruct = undefined
attrClear _ = clearTypeValueTableValueCopy
typeValueTable_valueCopy :: AttrLabelProxy "valueCopy"
typeValueTable_valueCopy = AttrLabelProxy
#endif
getTypeValueTableValuePeekPointer :: MonadIO m => TypeValueTable -> m (Maybe GObject.Callbacks.TypeValueTableValuePeekPointerFieldCallback)
getTypeValueTableValuePeekPointer :: TypeValueTable
-> m (Maybe TypeValueTableValuePeekPointerFieldCallback)
getTypeValueTableValuePeekPointer s :: TypeValueTable
s = IO (Maybe TypeValueTableValuePeekPointerFieldCallback)
-> m (Maybe TypeValueTableValuePeekPointerFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TypeValueTableValuePeekPointerFieldCallback)
-> m (Maybe TypeValueTableValuePeekPointerFieldCallback))
-> IO (Maybe TypeValueTableValuePeekPointerFieldCallback)
-> m (Maybe TypeValueTableValuePeekPointerFieldCallback)
forall a b. (a -> b) -> a -> b
$ TypeValueTable
-> (Ptr TypeValueTable
-> IO (Maybe TypeValueTableValuePeekPointerFieldCallback))
-> IO (Maybe TypeValueTableValuePeekPointerFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable
-> IO (Maybe TypeValueTableValuePeekPointerFieldCallback))
-> IO (Maybe TypeValueTableValuePeekPointerFieldCallback))
-> (Ptr TypeValueTable
-> IO (Maybe TypeValueTableValuePeekPointerFieldCallback))
-> IO (Maybe TypeValueTableValuePeekPointerFieldCallback)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
FunPtr C_TypeValueTableValuePeekPointerFieldCallback
val <- Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback)
-> IO (FunPtr C_TypeValueTableValuePeekPointerFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int
-> Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) :: IO (FunPtr GObject.Callbacks.C_TypeValueTableValuePeekPointerFieldCallback)
Maybe TypeValueTableValuePeekPointerFieldCallback
result <- FunPtr C_TypeValueTableValuePeekPointerFieldCallback
-> (FunPtr C_TypeValueTableValuePeekPointerFieldCallback
-> IO TypeValueTableValuePeekPointerFieldCallback)
-> IO (Maybe TypeValueTableValuePeekPointerFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_TypeValueTableValuePeekPointerFieldCallback
val ((FunPtr C_TypeValueTableValuePeekPointerFieldCallback
-> IO TypeValueTableValuePeekPointerFieldCallback)
-> IO (Maybe TypeValueTableValuePeekPointerFieldCallback))
-> (FunPtr C_TypeValueTableValuePeekPointerFieldCallback
-> IO TypeValueTableValuePeekPointerFieldCallback)
-> IO (Maybe TypeValueTableValuePeekPointerFieldCallback)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_TypeValueTableValuePeekPointerFieldCallback
val' -> do
let val'' :: TypeValueTableValuePeekPointerFieldCallback
val'' = FunPtr C_TypeValueTableValuePeekPointerFieldCallback
-> TypeValueTableValuePeekPointerFieldCallback
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeValueTableValuePeekPointerFieldCallback
-> GValue -> m (Ptr ())
GObject.Callbacks.dynamic_TypeValueTableValuePeekPointerFieldCallback FunPtr C_TypeValueTableValuePeekPointerFieldCallback
val'
TypeValueTableValuePeekPointerFieldCallback
-> IO TypeValueTableValuePeekPointerFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return TypeValueTableValuePeekPointerFieldCallback
val''
Maybe TypeValueTableValuePeekPointerFieldCallback
-> IO (Maybe TypeValueTableValuePeekPointerFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TypeValueTableValuePeekPointerFieldCallback
result
setTypeValueTableValuePeekPointer :: MonadIO m => TypeValueTable -> FunPtr GObject.Callbacks.C_TypeValueTableValuePeekPointerFieldCallback -> m ()
setTypeValueTableValuePeekPointer :: TypeValueTable
-> FunPtr C_TypeValueTableValuePeekPointerFieldCallback -> m ()
setTypeValueTableValuePeekPointer s :: TypeValueTable
s val :: FunPtr C_TypeValueTableValuePeekPointerFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback)
-> FunPtr C_TypeValueTableValuePeekPointerFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int
-> Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) (FunPtr C_TypeValueTableValuePeekPointerFieldCallback
val :: FunPtr GObject.Callbacks.C_TypeValueTableValuePeekPointerFieldCallback)
clearTypeValueTableValuePeekPointer :: MonadIO m => TypeValueTable -> m ()
clearTypeValueTableValuePeekPointer :: TypeValueTable -> m ()
clearTypeValueTableValuePeekPointer s :: TypeValueTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback)
-> FunPtr C_TypeValueTableValuePeekPointerFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int
-> Ptr (FunPtr C_TypeValueTableValuePeekPointerFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) (FunPtr C_TypeValueTableValuePeekPointerFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GObject.Callbacks.C_TypeValueTableValuePeekPointerFieldCallback)
#if ENABLE_OVERLOADING
data TypeValueTableValuePeekPointerFieldInfo
instance AttrInfo TypeValueTableValuePeekPointerFieldInfo where
type AttrAllowedOps TypeValueTableValuePeekPointerFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TypeValueTableValuePeekPointerFieldInfo = (~) (FunPtr GObject.Callbacks.C_TypeValueTableValuePeekPointerFieldCallback)
type AttrBaseTypeConstraint TypeValueTableValuePeekPointerFieldInfo = (~) TypeValueTable
type AttrGetType TypeValueTableValuePeekPointerFieldInfo = Maybe GObject.Callbacks.TypeValueTableValuePeekPointerFieldCallback
type AttrLabel TypeValueTableValuePeekPointerFieldInfo = "value_peek_pointer"
type AttrOrigin TypeValueTableValuePeekPointerFieldInfo = TypeValueTable
attrGet _ = getTypeValueTableValuePeekPointer
attrSet _ = setTypeValueTableValuePeekPointer
attrConstruct = undefined
attrClear _ = clearTypeValueTableValuePeekPointer
typeValueTable_valuePeekPointer :: AttrLabelProxy "valuePeekPointer"
typeValueTable_valuePeekPointer = AttrLabelProxy
#endif
getTypeValueTableCollectFormat :: MonadIO m => TypeValueTable -> m (Maybe T.Text)
getTypeValueTableCollectFormat :: TypeValueTable -> m (Maybe Text)
getTypeValueTableCollectFormat s :: TypeValueTable
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ TypeValueTable
-> (Ptr TypeValueTable -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr TypeValueTable -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr TypeValueTable
ptr Ptr TypeValueTable -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 32) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setTypeValueTableCollectFormat :: MonadIO m => TypeValueTable -> CString -> m ()
setTypeValueTableCollectFormat :: TypeValueTable -> CString -> m ()
setTypeValueTableCollectFormat s :: TypeValueTable
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 32) (CString
val :: CString)
clearTypeValueTableCollectFormat :: MonadIO m => TypeValueTable -> m ()
clearTypeValueTableCollectFormat :: TypeValueTable -> m ()
clearTypeValueTableCollectFormat s :: TypeValueTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 32) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
data TypeValueTableCollectFormatFieldInfo
instance AttrInfo TypeValueTableCollectFormatFieldInfo where
type AttrAllowedOps TypeValueTableCollectFormatFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TypeValueTableCollectFormatFieldInfo = (~) CString
type AttrBaseTypeConstraint TypeValueTableCollectFormatFieldInfo = (~) TypeValueTable
type AttrGetType TypeValueTableCollectFormatFieldInfo = Maybe T.Text
type AttrLabel TypeValueTableCollectFormatFieldInfo = "collect_format"
type AttrOrigin TypeValueTableCollectFormatFieldInfo = TypeValueTable
attrGet _ = getTypeValueTableCollectFormat
attrSet _ = setTypeValueTableCollectFormat
attrConstruct = undefined
attrClear _ = clearTypeValueTableCollectFormat
typeValueTable_collectFormat :: AttrLabelProxy "collectFormat"
typeValueTable_collectFormat = AttrLabelProxy
#endif
getTypeValueTableCollectValue :: MonadIO m => TypeValueTable -> m (Maybe GObject.Callbacks.TypeValueTableCollectValueFieldCallback)
getTypeValueTableCollectValue :: TypeValueTable -> m (Maybe TypeValueTableCollectValueFieldCallback)
getTypeValueTableCollectValue s :: TypeValueTable
s = IO (Maybe TypeValueTableCollectValueFieldCallback)
-> m (Maybe TypeValueTableCollectValueFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TypeValueTableCollectValueFieldCallback)
-> m (Maybe TypeValueTableCollectValueFieldCallback))
-> IO (Maybe TypeValueTableCollectValueFieldCallback)
-> m (Maybe TypeValueTableCollectValueFieldCallback)
forall a b. (a -> b) -> a -> b
$ TypeValueTable
-> (Ptr TypeValueTable
-> IO (Maybe TypeValueTableCollectValueFieldCallback))
-> IO (Maybe TypeValueTableCollectValueFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable
-> IO (Maybe TypeValueTableCollectValueFieldCallback))
-> IO (Maybe TypeValueTableCollectValueFieldCallback))
-> (Ptr TypeValueTable
-> IO (Maybe TypeValueTableCollectValueFieldCallback))
-> IO (Maybe TypeValueTableCollectValueFieldCallback)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
FunPtr C_TypeValueTableCollectValueFieldCallback
val <- Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)
-> IO (FunPtr C_TypeValueTableCollectValueFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 40) :: IO (FunPtr GObject.Callbacks.C_TypeValueTableCollectValueFieldCallback)
Maybe TypeValueTableCollectValueFieldCallback
result <- FunPtr C_TypeValueTableCollectValueFieldCallback
-> (FunPtr C_TypeValueTableCollectValueFieldCallback
-> IO TypeValueTableCollectValueFieldCallback)
-> IO (Maybe TypeValueTableCollectValueFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_TypeValueTableCollectValueFieldCallback
val ((FunPtr C_TypeValueTableCollectValueFieldCallback
-> IO TypeValueTableCollectValueFieldCallback)
-> IO (Maybe TypeValueTableCollectValueFieldCallback))
-> (FunPtr C_TypeValueTableCollectValueFieldCallback
-> IO TypeValueTableCollectValueFieldCallback)
-> IO (Maybe TypeValueTableCollectValueFieldCallback)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_TypeValueTableCollectValueFieldCallback
val' -> do
let val'' :: TypeValueTableCollectValueFieldCallback
val'' = FunPtr C_TypeValueTableCollectValueFieldCallback
-> TypeValueTableCollectValueFieldCallback
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeValueTableCollectValueFieldCallback
-> GValue -> Word32 -> TypeCValue -> Word32 -> m Text
GObject.Callbacks.dynamic_TypeValueTableCollectValueFieldCallback FunPtr C_TypeValueTableCollectValueFieldCallback
val'
TypeValueTableCollectValueFieldCallback
-> IO TypeValueTableCollectValueFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return TypeValueTableCollectValueFieldCallback
val''
Maybe TypeValueTableCollectValueFieldCallback
-> IO (Maybe TypeValueTableCollectValueFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TypeValueTableCollectValueFieldCallback
result
setTypeValueTableCollectValue :: MonadIO m => TypeValueTable -> FunPtr GObject.Callbacks.C_TypeValueTableCollectValueFieldCallback -> m ()
setTypeValueTableCollectValue :: TypeValueTable
-> FunPtr C_TypeValueTableCollectValueFieldCallback -> m ()
setTypeValueTableCollectValue s :: TypeValueTable
s val :: FunPtr C_TypeValueTableCollectValueFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)
-> FunPtr C_TypeValueTableCollectValueFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 40) (FunPtr C_TypeValueTableCollectValueFieldCallback
val :: FunPtr GObject.Callbacks.C_TypeValueTableCollectValueFieldCallback)
clearTypeValueTableCollectValue :: MonadIO m => TypeValueTable -> m ()
clearTypeValueTableCollectValue :: TypeValueTable -> m ()
clearTypeValueTableCollectValue s :: TypeValueTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)
-> FunPtr C_TypeValueTableCollectValueFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 40) (FunPtr C_TypeValueTableCollectValueFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GObject.Callbacks.C_TypeValueTableCollectValueFieldCallback)
#if ENABLE_OVERLOADING
data TypeValueTableCollectValueFieldInfo
instance AttrInfo TypeValueTableCollectValueFieldInfo where
type AttrAllowedOps TypeValueTableCollectValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TypeValueTableCollectValueFieldInfo = (~) (FunPtr GObject.Callbacks.C_TypeValueTableCollectValueFieldCallback)
type AttrBaseTypeConstraint TypeValueTableCollectValueFieldInfo = (~) TypeValueTable
type AttrGetType TypeValueTableCollectValueFieldInfo = Maybe GObject.Callbacks.TypeValueTableCollectValueFieldCallback
type AttrLabel TypeValueTableCollectValueFieldInfo = "collect_value"
type AttrOrigin TypeValueTableCollectValueFieldInfo = TypeValueTable
attrGet _ = getTypeValueTableCollectValue
attrSet _ = setTypeValueTableCollectValue
attrConstruct = undefined
attrClear _ = clearTypeValueTableCollectValue
typeValueTable_collectValue :: AttrLabelProxy "collectValue"
typeValueTable_collectValue = AttrLabelProxy
#endif
getTypeValueTableLcopyFormat :: MonadIO m => TypeValueTable -> m (Maybe T.Text)
getTypeValueTableLcopyFormat :: TypeValueTable -> m (Maybe Text)
getTypeValueTableLcopyFormat s :: TypeValueTable
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ TypeValueTable
-> (Ptr TypeValueTable -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr TypeValueTable -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr TypeValueTable
ptr Ptr TypeValueTable -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 48) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setTypeValueTableLcopyFormat :: MonadIO m => TypeValueTable -> CString -> m ()
setTypeValueTableLcopyFormat :: TypeValueTable -> CString -> m ()
setTypeValueTableLcopyFormat s :: TypeValueTable
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 48) (CString
val :: CString)
clearTypeValueTableLcopyFormat :: MonadIO m => TypeValueTable -> m ()
clearTypeValueTableLcopyFormat :: TypeValueTable -> m ()
clearTypeValueTableLcopyFormat s :: TypeValueTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 48) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
data TypeValueTableLcopyFormatFieldInfo
instance AttrInfo TypeValueTableLcopyFormatFieldInfo where
type AttrAllowedOps TypeValueTableLcopyFormatFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TypeValueTableLcopyFormatFieldInfo = (~) CString
type AttrBaseTypeConstraint TypeValueTableLcopyFormatFieldInfo = (~) TypeValueTable
type AttrGetType TypeValueTableLcopyFormatFieldInfo = Maybe T.Text
type AttrLabel TypeValueTableLcopyFormatFieldInfo = "lcopy_format"
type AttrOrigin TypeValueTableLcopyFormatFieldInfo = TypeValueTable
attrGet _ = getTypeValueTableLcopyFormat
attrSet _ = setTypeValueTableLcopyFormat
attrConstruct = undefined
attrClear _ = clearTypeValueTableLcopyFormat
typeValueTable_lcopyFormat :: AttrLabelProxy "lcopyFormat"
typeValueTable_lcopyFormat = AttrLabelProxy
#endif
getTypeValueTableLcopyValue :: MonadIO m => TypeValueTable -> m (Maybe GObject.Callbacks.TypeValueTableLcopyValueFieldCallback)
getTypeValueTableLcopyValue :: TypeValueTable -> m (Maybe TypeValueTableCollectValueFieldCallback)
getTypeValueTableLcopyValue s :: TypeValueTable
s = IO (Maybe TypeValueTableCollectValueFieldCallback)
-> m (Maybe TypeValueTableCollectValueFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TypeValueTableCollectValueFieldCallback)
-> m (Maybe TypeValueTableCollectValueFieldCallback))
-> IO (Maybe TypeValueTableCollectValueFieldCallback)
-> m (Maybe TypeValueTableCollectValueFieldCallback)
forall a b. (a -> b) -> a -> b
$ TypeValueTable
-> (Ptr TypeValueTable
-> IO (Maybe TypeValueTableCollectValueFieldCallback))
-> IO (Maybe TypeValueTableCollectValueFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable
-> IO (Maybe TypeValueTableCollectValueFieldCallback))
-> IO (Maybe TypeValueTableCollectValueFieldCallback))
-> (Ptr TypeValueTable
-> IO (Maybe TypeValueTableCollectValueFieldCallback))
-> IO (Maybe TypeValueTableCollectValueFieldCallback)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
FunPtr C_TypeValueTableCollectValueFieldCallback
val <- Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)
-> IO (FunPtr C_TypeValueTableCollectValueFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 56) :: IO (FunPtr GObject.Callbacks.C_TypeValueTableLcopyValueFieldCallback)
Maybe TypeValueTableCollectValueFieldCallback
result <- FunPtr C_TypeValueTableCollectValueFieldCallback
-> (FunPtr C_TypeValueTableCollectValueFieldCallback
-> IO TypeValueTableCollectValueFieldCallback)
-> IO (Maybe TypeValueTableCollectValueFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_TypeValueTableCollectValueFieldCallback
val ((FunPtr C_TypeValueTableCollectValueFieldCallback
-> IO TypeValueTableCollectValueFieldCallback)
-> IO (Maybe TypeValueTableCollectValueFieldCallback))
-> (FunPtr C_TypeValueTableCollectValueFieldCallback
-> IO TypeValueTableCollectValueFieldCallback)
-> IO (Maybe TypeValueTableCollectValueFieldCallback)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_TypeValueTableCollectValueFieldCallback
val' -> do
let val'' :: TypeValueTableCollectValueFieldCallback
val'' = FunPtr C_TypeValueTableCollectValueFieldCallback
-> TypeValueTableCollectValueFieldCallback
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_TypeValueTableCollectValueFieldCallback
-> GValue -> Word32 -> TypeCValue -> Word32 -> m Text
GObject.Callbacks.dynamic_TypeValueTableLcopyValueFieldCallback FunPtr C_TypeValueTableCollectValueFieldCallback
val'
TypeValueTableCollectValueFieldCallback
-> IO TypeValueTableCollectValueFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return TypeValueTableCollectValueFieldCallback
val''
Maybe TypeValueTableCollectValueFieldCallback
-> IO (Maybe TypeValueTableCollectValueFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TypeValueTableCollectValueFieldCallback
result
setTypeValueTableLcopyValue :: MonadIO m => TypeValueTable -> FunPtr GObject.Callbacks.C_TypeValueTableLcopyValueFieldCallback -> m ()
setTypeValueTableLcopyValue :: TypeValueTable
-> FunPtr C_TypeValueTableCollectValueFieldCallback -> m ()
setTypeValueTableLcopyValue s :: TypeValueTable
s val :: FunPtr C_TypeValueTableCollectValueFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)
-> FunPtr C_TypeValueTableCollectValueFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 56) (FunPtr C_TypeValueTableCollectValueFieldCallback
val :: FunPtr GObject.Callbacks.C_TypeValueTableLcopyValueFieldCallback)
clearTypeValueTableLcopyValue :: MonadIO m => TypeValueTable -> m ()
clearTypeValueTableLcopyValue :: TypeValueTable -> m ()
clearTypeValueTableLcopyValue s :: TypeValueTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TypeValueTable -> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TypeValueTable
s ((Ptr TypeValueTable -> IO ()) -> IO ())
-> (Ptr TypeValueTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TypeValueTable
ptr -> do
Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)
-> FunPtr C_TypeValueTableCollectValueFieldCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TypeValueTable
ptr Ptr TypeValueTable
-> Int -> Ptr (FunPtr C_TypeValueTableCollectValueFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 56) (FunPtr C_TypeValueTableCollectValueFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GObject.Callbacks.C_TypeValueTableLcopyValueFieldCallback)
#if ENABLE_OVERLOADING
data TypeValueTableLcopyValueFieldInfo
instance AttrInfo TypeValueTableLcopyValueFieldInfo where
type AttrAllowedOps TypeValueTableLcopyValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TypeValueTableLcopyValueFieldInfo = (~) (FunPtr GObject.Callbacks.C_TypeValueTableLcopyValueFieldCallback)
type AttrBaseTypeConstraint TypeValueTableLcopyValueFieldInfo = (~) TypeValueTable
type AttrGetType TypeValueTableLcopyValueFieldInfo = Maybe GObject.Callbacks.TypeValueTableLcopyValueFieldCallback
type AttrLabel TypeValueTableLcopyValueFieldInfo = "lcopy_value"
type AttrOrigin TypeValueTableLcopyValueFieldInfo = TypeValueTable
attrGet _ = getTypeValueTableLcopyValue
attrSet _ = setTypeValueTableLcopyValue
attrConstruct = undefined
attrClear _ = clearTypeValueTableLcopyValue
typeValueTable_lcopyValue :: AttrLabelProxy "lcopyValue"
typeValueTable_lcopyValue = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList TypeValueTable
type instance O.AttributeList TypeValueTable = TypeValueTableAttributeList
type TypeValueTableAttributeList = ('[ '("valueInit", TypeValueTableValueInitFieldInfo), '("valueFree", TypeValueTableValueFreeFieldInfo), '("valueCopy", TypeValueTableValueCopyFieldInfo), '("valuePeekPointer", TypeValueTableValuePeekPointerFieldInfo), '("collectFormat", TypeValueTableCollectFormatFieldInfo), '("collectValue", TypeValueTableCollectValueFieldInfo), '("lcopyFormat", TypeValueTableLcopyFormatFieldInfo), '("lcopyValue", TypeValueTableLcopyValueFieldInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
type family ResolveTypeValueTableMethod (t :: Symbol) (o :: *) :: * where
ResolveTypeValueTableMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTypeValueTableMethod t TypeValueTable, O.MethodInfo info TypeValueTable p) => O.IsLabelProxy t (TypeValueTable -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveTypeValueTableMethod t TypeValueTable, O.MethodInfo info TypeValueTable p) => O.IsLabel t (TypeValueTable -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif