#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.GObject.Structs.InterfaceInfo
(
InterfaceInfo(..) ,
newZeroInterfaceInfo ,
noInterfaceInfo ,
clearInterfaceInfoInterfaceData ,
getInterfaceInfoInterfaceData ,
#if ENABLE_OVERLOADING
interfaceInfo_interfaceData ,
#endif
setInterfaceInfoInterfaceData ,
clearInterfaceInfoInterfaceFinalize ,
getInterfaceInfoInterfaceFinalize ,
#if ENABLE_OVERLOADING
interfaceInfo_interfaceFinalize ,
#endif
setInterfaceInfoInterfaceFinalize ,
clearInterfaceInfoInterfaceInit ,
getInterfaceInfoInterfaceInit ,
#if ENABLE_OVERLOADING
interfaceInfo_interfaceInit ,
#endif
setInterfaceInfoInterfaceInit ,
) 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 InterfaceInfo = InterfaceInfo (ManagedPtr InterfaceInfo)
instance WrappedPtr InterfaceInfo where
wrappedPtrCalloc :: IO (Ptr InterfaceInfo)
wrappedPtrCalloc = Int -> IO (Ptr InterfaceInfo)
forall a. Int -> IO (Ptr a)
callocBytes 24
wrappedPtrCopy :: InterfaceInfo -> IO InterfaceInfo
wrappedPtrCopy = \p :: InterfaceInfo
p -> InterfaceInfo
-> (Ptr InterfaceInfo -> IO InterfaceInfo) -> IO InterfaceInfo
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr InterfaceInfo
p (Int -> Ptr InterfaceInfo -> IO (Ptr InterfaceInfo)
forall a. WrappedPtr a => Int -> Ptr a -> IO (Ptr a)
copyBytes 24 (Ptr InterfaceInfo -> IO (Ptr InterfaceInfo))
-> (Ptr InterfaceInfo -> IO InterfaceInfo)
-> Ptr InterfaceInfo
-> IO InterfaceInfo
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr InterfaceInfo -> InterfaceInfo)
-> Ptr InterfaceInfo -> IO InterfaceInfo
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr InterfaceInfo -> InterfaceInfo
InterfaceInfo)
wrappedPtrFree :: Maybe (FunPtr (Ptr InterfaceInfo -> IO ()))
wrappedPtrFree = FunPtr (Ptr InterfaceInfo -> IO ())
-> Maybe (FunPtr (Ptr InterfaceInfo -> IO ()))
forall a. a -> Maybe a
Just FunPtr (Ptr InterfaceInfo -> IO ())
forall a. FunPtr (Ptr a -> IO ())
ptr_to_g_free
newZeroInterfaceInfo :: MonadIO m => m InterfaceInfo
newZeroInterfaceInfo :: m InterfaceInfo
newZeroInterfaceInfo = IO InterfaceInfo -> m InterfaceInfo
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InterfaceInfo -> m InterfaceInfo)
-> IO InterfaceInfo -> m InterfaceInfo
forall a b. (a -> b) -> a -> b
$ IO (Ptr InterfaceInfo)
forall a. WrappedPtr a => IO (Ptr a)
wrappedPtrCalloc IO (Ptr InterfaceInfo)
-> (Ptr InterfaceInfo -> IO InterfaceInfo) -> IO InterfaceInfo
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr InterfaceInfo -> InterfaceInfo)
-> Ptr InterfaceInfo -> IO InterfaceInfo
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr InterfaceInfo -> InterfaceInfo
InterfaceInfo
instance tag ~ 'AttrSet => Constructible InterfaceInfo tag where
new :: (ManagedPtr InterfaceInfo -> InterfaceInfo)
-> [AttrOp InterfaceInfo tag] -> m InterfaceInfo
new _ attrs :: [AttrOp InterfaceInfo tag]
attrs = do
InterfaceInfo
o <- m InterfaceInfo
forall (m :: * -> *). MonadIO m => m InterfaceInfo
newZeroInterfaceInfo
InterfaceInfo -> [AttrOp InterfaceInfo 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set InterfaceInfo
o [AttrOp InterfaceInfo tag]
[AttrOp InterfaceInfo 'AttrSet]
attrs
InterfaceInfo -> m InterfaceInfo
forall (m :: * -> *) a. Monad m => a -> m a
return InterfaceInfo
o
noInterfaceInfo :: Maybe InterfaceInfo
noInterfaceInfo :: Maybe InterfaceInfo
noInterfaceInfo = Maybe InterfaceInfo
forall a. Maybe a
Nothing
getInterfaceInfoInterfaceInit :: MonadIO m => InterfaceInfo -> m (Maybe GObject.Callbacks.InterfaceInitFunc)
getInterfaceInfoInterfaceInit :: InterfaceInfo -> m (Maybe InterfaceInitFunc)
getInterfaceInfoInterfaceInit s :: InterfaceInfo
s = IO (Maybe InterfaceInitFunc) -> m (Maybe InterfaceInitFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe InterfaceInitFunc) -> m (Maybe InterfaceInitFunc))
-> IO (Maybe InterfaceInitFunc) -> m (Maybe InterfaceInitFunc)
forall a b. (a -> b) -> a -> b
$ InterfaceInfo
-> (Ptr InterfaceInfo -> IO (Maybe InterfaceInitFunc))
-> IO (Maybe InterfaceInitFunc)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr InterfaceInfo
s ((Ptr InterfaceInfo -> IO (Maybe InterfaceInitFunc))
-> IO (Maybe InterfaceInitFunc))
-> (Ptr InterfaceInfo -> IO (Maybe InterfaceInitFunc))
-> IO (Maybe InterfaceInitFunc)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr InterfaceInfo
ptr -> do
FunPtr C_InterfaceInitFunc
val <- Ptr (FunPtr C_InterfaceInitFunc) -> IO (FunPtr C_InterfaceInitFunc)
forall a. Storable a => Ptr a -> IO a
peek (Ptr InterfaceInfo
ptr Ptr InterfaceInfo -> Int -> Ptr (FunPtr C_InterfaceInitFunc)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO (FunPtr GObject.Callbacks.C_InterfaceInitFunc)
Maybe InterfaceInitFunc
result <- FunPtr C_InterfaceInitFunc
-> (FunPtr C_InterfaceInitFunc -> IO InterfaceInitFunc)
-> IO (Maybe InterfaceInitFunc)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_InterfaceInitFunc
val ((FunPtr C_InterfaceInitFunc -> IO InterfaceInitFunc)
-> IO (Maybe InterfaceInitFunc))
-> (FunPtr C_InterfaceInitFunc -> IO InterfaceInitFunc)
-> IO (Maybe InterfaceInitFunc)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_InterfaceInitFunc
val' -> do
let val'' :: InterfaceInitFunc
val'' = FunPtr C_InterfaceInitFunc -> InterfaceInitFunc
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_InterfaceInitFunc -> TypeInterface -> Ptr () -> m ()
GObject.Callbacks.dynamic_InterfaceInitFunc FunPtr C_InterfaceInitFunc
val'
InterfaceInitFunc -> IO InterfaceInitFunc
forall (m :: * -> *) a. Monad m => a -> m a
return InterfaceInitFunc
val''
Maybe InterfaceInitFunc -> IO (Maybe InterfaceInitFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe InterfaceInitFunc
result
setInterfaceInfoInterfaceInit :: MonadIO m => InterfaceInfo -> FunPtr GObject.Callbacks.C_InterfaceInitFunc -> m ()
setInterfaceInfoInterfaceInit :: InterfaceInfo -> FunPtr C_InterfaceInitFunc -> m ()
setInterfaceInfoInterfaceInit s :: InterfaceInfo
s val :: FunPtr C_InterfaceInitFunc
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ InterfaceInfo -> (Ptr InterfaceInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr InterfaceInfo
s ((Ptr InterfaceInfo -> IO ()) -> IO ())
-> (Ptr InterfaceInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr InterfaceInfo
ptr -> do
Ptr (FunPtr C_InterfaceInitFunc)
-> FunPtr C_InterfaceInitFunc -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr InterfaceInfo
ptr Ptr InterfaceInfo -> Int -> Ptr (FunPtr C_InterfaceInitFunc)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (FunPtr C_InterfaceInitFunc
val :: FunPtr GObject.Callbacks.C_InterfaceInitFunc)
clearInterfaceInfoInterfaceInit :: MonadIO m => InterfaceInfo -> m ()
clearInterfaceInfoInterfaceInit :: InterfaceInfo -> m ()
clearInterfaceInfoInterfaceInit s :: InterfaceInfo
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ InterfaceInfo -> (Ptr InterfaceInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr InterfaceInfo
s ((Ptr InterfaceInfo -> IO ()) -> IO ())
-> (Ptr InterfaceInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr InterfaceInfo
ptr -> do
Ptr (FunPtr C_InterfaceInitFunc)
-> FunPtr C_InterfaceInitFunc -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr InterfaceInfo
ptr Ptr InterfaceInfo -> Int -> Ptr (FunPtr C_InterfaceInitFunc)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (FunPtr C_InterfaceInitFunc
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GObject.Callbacks.C_InterfaceInitFunc)
#if ENABLE_OVERLOADING
data InterfaceInfoInterfaceInitFieldInfo
instance AttrInfo InterfaceInfoInterfaceInitFieldInfo where
type AttrAllowedOps InterfaceInfoInterfaceInitFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint InterfaceInfoInterfaceInitFieldInfo = (~) (FunPtr GObject.Callbacks.C_InterfaceInitFunc)
type AttrBaseTypeConstraint InterfaceInfoInterfaceInitFieldInfo = (~) InterfaceInfo
type AttrGetType InterfaceInfoInterfaceInitFieldInfo = Maybe GObject.Callbacks.InterfaceInitFunc
type AttrLabel InterfaceInfoInterfaceInitFieldInfo = "interface_init"
type AttrOrigin InterfaceInfoInterfaceInitFieldInfo = InterfaceInfo
attrGet _ = getInterfaceInfoInterfaceInit
attrSet _ = setInterfaceInfoInterfaceInit
attrConstruct = undefined
attrClear _ = clearInterfaceInfoInterfaceInit
interfaceInfo_interfaceInit :: AttrLabelProxy "interfaceInit"
interfaceInfo_interfaceInit = AttrLabelProxy
#endif
getInterfaceInfoInterfaceFinalize :: MonadIO m => InterfaceInfo -> m (Maybe GObject.Callbacks.InterfaceFinalizeFunc)
getInterfaceInfoInterfaceFinalize :: InterfaceInfo -> m (Maybe InterfaceInitFunc)
getInterfaceInfoInterfaceFinalize s :: InterfaceInfo
s = IO (Maybe InterfaceInitFunc) -> m (Maybe InterfaceInitFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe InterfaceInitFunc) -> m (Maybe InterfaceInitFunc))
-> IO (Maybe InterfaceInitFunc) -> m (Maybe InterfaceInitFunc)
forall a b. (a -> b) -> a -> b
$ InterfaceInfo
-> (Ptr InterfaceInfo -> IO (Maybe InterfaceInitFunc))
-> IO (Maybe InterfaceInitFunc)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr InterfaceInfo
s ((Ptr InterfaceInfo -> IO (Maybe InterfaceInitFunc))
-> IO (Maybe InterfaceInitFunc))
-> (Ptr InterfaceInfo -> IO (Maybe InterfaceInitFunc))
-> IO (Maybe InterfaceInitFunc)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr InterfaceInfo
ptr -> do
FunPtr C_InterfaceInitFunc
val <- Ptr (FunPtr C_InterfaceInitFunc) -> IO (FunPtr C_InterfaceInitFunc)
forall a. Storable a => Ptr a -> IO a
peek (Ptr InterfaceInfo
ptr Ptr InterfaceInfo -> Int -> Ptr (FunPtr C_InterfaceInitFunc)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) :: IO (FunPtr GObject.Callbacks.C_InterfaceFinalizeFunc)
Maybe InterfaceInitFunc
result <- FunPtr C_InterfaceInitFunc
-> (FunPtr C_InterfaceInitFunc -> IO InterfaceInitFunc)
-> IO (Maybe InterfaceInitFunc)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_InterfaceInitFunc
val ((FunPtr C_InterfaceInitFunc -> IO InterfaceInitFunc)
-> IO (Maybe InterfaceInitFunc))
-> (FunPtr C_InterfaceInitFunc -> IO InterfaceInitFunc)
-> IO (Maybe InterfaceInitFunc)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_InterfaceInitFunc
val' -> do
let val'' :: InterfaceInitFunc
val'' = FunPtr C_InterfaceInitFunc -> InterfaceInitFunc
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_InterfaceInitFunc -> TypeInterface -> Ptr () -> m ()
GObject.Callbacks.dynamic_InterfaceFinalizeFunc FunPtr C_InterfaceInitFunc
val'
InterfaceInitFunc -> IO InterfaceInitFunc
forall (m :: * -> *) a. Monad m => a -> m a
return InterfaceInitFunc
val''
Maybe InterfaceInitFunc -> IO (Maybe InterfaceInitFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe InterfaceInitFunc
result
setInterfaceInfoInterfaceFinalize :: MonadIO m => InterfaceInfo -> FunPtr GObject.Callbacks.C_InterfaceFinalizeFunc -> m ()
setInterfaceInfoInterfaceFinalize :: InterfaceInfo -> FunPtr C_InterfaceInitFunc -> m ()
setInterfaceInfoInterfaceFinalize s :: InterfaceInfo
s val :: FunPtr C_InterfaceInitFunc
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ InterfaceInfo -> (Ptr InterfaceInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr InterfaceInfo
s ((Ptr InterfaceInfo -> IO ()) -> IO ())
-> (Ptr InterfaceInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr InterfaceInfo
ptr -> do
Ptr (FunPtr C_InterfaceInitFunc)
-> FunPtr C_InterfaceInitFunc -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr InterfaceInfo
ptr Ptr InterfaceInfo -> Int -> Ptr (FunPtr C_InterfaceInitFunc)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (FunPtr C_InterfaceInitFunc
val :: FunPtr GObject.Callbacks.C_InterfaceFinalizeFunc)
clearInterfaceInfoInterfaceFinalize :: MonadIO m => InterfaceInfo -> m ()
clearInterfaceInfoInterfaceFinalize :: InterfaceInfo -> m ()
clearInterfaceInfoInterfaceFinalize s :: InterfaceInfo
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ InterfaceInfo -> (Ptr InterfaceInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr InterfaceInfo
s ((Ptr InterfaceInfo -> IO ()) -> IO ())
-> (Ptr InterfaceInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr InterfaceInfo
ptr -> do
Ptr (FunPtr C_InterfaceInitFunc)
-> FunPtr C_InterfaceInitFunc -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr InterfaceInfo
ptr Ptr InterfaceInfo -> Int -> Ptr (FunPtr C_InterfaceInitFunc)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (FunPtr C_InterfaceInitFunc
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GObject.Callbacks.C_InterfaceFinalizeFunc)
#if ENABLE_OVERLOADING
data InterfaceInfoInterfaceFinalizeFieldInfo
instance AttrInfo InterfaceInfoInterfaceFinalizeFieldInfo where
type AttrAllowedOps InterfaceInfoInterfaceFinalizeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint InterfaceInfoInterfaceFinalizeFieldInfo = (~) (FunPtr GObject.Callbacks.C_InterfaceFinalizeFunc)
type AttrBaseTypeConstraint InterfaceInfoInterfaceFinalizeFieldInfo = (~) InterfaceInfo
type AttrGetType InterfaceInfoInterfaceFinalizeFieldInfo = Maybe GObject.Callbacks.InterfaceFinalizeFunc
type AttrLabel InterfaceInfoInterfaceFinalizeFieldInfo = "interface_finalize"
type AttrOrigin InterfaceInfoInterfaceFinalizeFieldInfo = InterfaceInfo
attrGet _ = getInterfaceInfoInterfaceFinalize
attrSet _ = setInterfaceInfoInterfaceFinalize
attrConstruct = undefined
attrClear _ = clearInterfaceInfoInterfaceFinalize
interfaceInfo_interfaceFinalize :: AttrLabelProxy "interfaceFinalize"
interfaceInfo_interfaceFinalize = AttrLabelProxy
#endif
getInterfaceInfoInterfaceData :: MonadIO m => InterfaceInfo -> m (Ptr ())
getInterfaceInfoInterfaceData :: InterfaceInfo -> m (Ptr ())
getInterfaceInfoInterfaceData s :: InterfaceInfo
s = IO (Ptr ()) -> m (Ptr ())
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ InterfaceInfo -> (Ptr InterfaceInfo -> IO (Ptr ())) -> IO (Ptr ())
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr InterfaceInfo
s ((Ptr InterfaceInfo -> IO (Ptr ())) -> IO (Ptr ()))
-> (Ptr InterfaceInfo -> IO (Ptr ())) -> IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr InterfaceInfo
ptr -> do
Ptr ()
val <- Ptr (Ptr ()) -> IO (Ptr ())
forall a. Storable a => Ptr a -> IO a
peek (Ptr InterfaceInfo
ptr Ptr InterfaceInfo -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) :: IO (Ptr ())
Ptr () -> IO (Ptr ())
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
val
setInterfaceInfoInterfaceData :: MonadIO m => InterfaceInfo -> Ptr () -> m ()
setInterfaceInfoInterfaceData :: InterfaceInfo -> Ptr () -> m ()
setInterfaceInfoInterfaceData s :: InterfaceInfo
s val :: Ptr ()
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ InterfaceInfo -> (Ptr InterfaceInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr InterfaceInfo
s ((Ptr InterfaceInfo -> IO ()) -> IO ())
-> (Ptr InterfaceInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr InterfaceInfo
ptr -> do
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr InterfaceInfo
ptr Ptr InterfaceInfo -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (Ptr ()
val :: Ptr ())
clearInterfaceInfoInterfaceData :: MonadIO m => InterfaceInfo -> m ()
clearInterfaceInfoInterfaceData :: InterfaceInfo -> m ()
clearInterfaceInfoInterfaceData s :: InterfaceInfo
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ InterfaceInfo -> (Ptr InterfaceInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr InterfaceInfo
s ((Ptr InterfaceInfo -> IO ()) -> IO ())
-> (Ptr InterfaceInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr InterfaceInfo
ptr -> do
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr InterfaceInfo
ptr Ptr InterfaceInfo -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (Ptr ()
forall a. Ptr a
FP.nullPtr :: Ptr ())
#if ENABLE_OVERLOADING
data InterfaceInfoInterfaceDataFieldInfo
instance AttrInfo InterfaceInfoInterfaceDataFieldInfo where
type AttrAllowedOps InterfaceInfoInterfaceDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint InterfaceInfoInterfaceDataFieldInfo = (~) (Ptr ())
type AttrBaseTypeConstraint InterfaceInfoInterfaceDataFieldInfo = (~) InterfaceInfo
type AttrGetType InterfaceInfoInterfaceDataFieldInfo = Ptr ()
type AttrLabel InterfaceInfoInterfaceDataFieldInfo = "interface_data"
type AttrOrigin InterfaceInfoInterfaceDataFieldInfo = InterfaceInfo
attrGet _ = getInterfaceInfoInterfaceData
attrSet _ = setInterfaceInfoInterfaceData
attrConstruct = undefined
attrClear _ = clearInterfaceInfoInterfaceData
interfaceInfo_interfaceData :: AttrLabelProxy "interfaceData"
interfaceInfo_interfaceData = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList InterfaceInfo
type instance O.AttributeList InterfaceInfo = InterfaceInfoAttributeList
type InterfaceInfoAttributeList = ('[ '("interfaceInit", InterfaceInfoInterfaceInitFieldInfo), '("interfaceFinalize", InterfaceInfoInterfaceFinalizeFieldInfo), '("interfaceData", InterfaceInfoInterfaceDataFieldInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
type family ResolveInterfaceInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveInterfaceInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveInterfaceInfoMethod t InterfaceInfo, O.MethodInfo info InterfaceInfo p) => O.IsLabelProxy t (InterfaceInfo -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveInterfaceInfoMethod t InterfaceInfo, O.MethodInfo info InterfaceInfo p) => O.IsLabel t (InterfaceInfo -> 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