{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Structs.DBusInterfaceVTable
(
DBusInterfaceVTable(..) ,
newZeroDBusInterfaceVTable ,
#if defined(ENABLE_OVERLOADING)
ResolveDBusInterfaceVTableMethod ,
#endif
clearDBusInterfaceVTableGetProperty ,
#if defined(ENABLE_OVERLOADING)
dBusInterfaceVTable_getProperty ,
#endif
getDBusInterfaceVTableGetProperty ,
setDBusInterfaceVTableGetProperty ,
clearDBusInterfaceVTableMethodCall ,
#if defined(ENABLE_OVERLOADING)
dBusInterfaceVTable_methodCall ,
#endif
getDBusInterfaceVTableMethodCall ,
setDBusInterfaceVTableMethodCall ,
clearDBusInterfaceVTableSetProperty ,
#if defined(ENABLE_OVERLOADING)
dBusInterfaceVTable_setProperty ,
#endif
getDBusInterfaceVTableSetProperty ,
setDBusInterfaceVTableSetProperty ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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 Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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
import qualified GHC.Records as R
import qualified GI.Gio.Callbacks as Gio.Callbacks
newtype DBusInterfaceVTable = DBusInterfaceVTable (SP.ManagedPtr DBusInterfaceVTable)
deriving (DBusInterfaceVTable -> DBusInterfaceVTable -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DBusInterfaceVTable -> DBusInterfaceVTable -> Bool
$c/= :: DBusInterfaceVTable -> DBusInterfaceVTable -> Bool
== :: DBusInterfaceVTable -> DBusInterfaceVTable -> Bool
$c== :: DBusInterfaceVTable -> DBusInterfaceVTable -> Bool
Eq)
instance SP.ManagedPtrNewtype DBusInterfaceVTable where
toManagedPtr :: DBusInterfaceVTable -> ManagedPtr DBusInterfaceVTable
toManagedPtr (DBusInterfaceVTable ManagedPtr DBusInterfaceVTable
p) = ManagedPtr DBusInterfaceVTable
p
instance BoxedPtr DBusInterfaceVTable where
boxedPtrCopy :: DBusInterfaceVTable -> IO DBusInterfaceVTable
boxedPtrCopy = \DBusInterfaceVTable
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DBusInterfaceVTable
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
88 forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr DBusInterfaceVTable -> DBusInterfaceVTable
DBusInterfaceVTable)
boxedPtrFree :: DBusInterfaceVTable -> IO ()
boxedPtrFree = \DBusInterfaceVTable
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr DBusInterfaceVTable
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr DBusInterfaceVTable where
boxedPtrCalloc :: IO (Ptr DBusInterfaceVTable)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
88
newZeroDBusInterfaceVTable :: MonadIO m => m DBusInterfaceVTable
newZeroDBusInterfaceVTable :: forall (m :: * -> *). MonadIO m => m DBusInterfaceVTable
newZeroDBusInterfaceVTable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr DBusInterfaceVTable -> DBusInterfaceVTable
DBusInterfaceVTable
instance tag ~ 'AttrSet => Constructible DBusInterfaceVTable tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr DBusInterfaceVTable -> DBusInterfaceVTable)
-> [AttrOp DBusInterfaceVTable tag] -> m DBusInterfaceVTable
new ManagedPtr DBusInterfaceVTable -> DBusInterfaceVTable
_ [AttrOp DBusInterfaceVTable tag]
attrs = do
DBusInterfaceVTable
o <- forall (m :: * -> *). MonadIO m => m DBusInterfaceVTable
newZeroDBusInterfaceVTable
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set DBusInterfaceVTable
o [AttrOp DBusInterfaceVTable tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return DBusInterfaceVTable
o
getDBusInterfaceVTableMethodCall :: MonadIO m => DBusInterfaceVTable -> m (Maybe Gio.Callbacks.DBusInterfaceMethodCallFunc_WithClosures)
getDBusInterfaceVTableMethodCall :: forall (m :: * -> *).
MonadIO m =>
DBusInterfaceVTable
-> m (Maybe DBusInterfaceMethodCallFunc_WithClosures)
getDBusInterfaceVTableMethodCall DBusInterfaceVTable
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusInterfaceVTable
s forall a b. (a -> b) -> a -> b
$ \Ptr DBusInterfaceVTable
ptr -> do
FunPtr C_DBusInterfaceMethodCallFunc
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr DBusInterfaceVTable
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO (FunPtr Gio.Callbacks.C_DBusInterfaceMethodCallFunc)
Maybe DBusInterfaceMethodCallFunc_WithClosures
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_DBusInterfaceMethodCallFunc
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_DBusInterfaceMethodCallFunc
val' -> do
let val'' :: DBusInterfaceMethodCallFunc_WithClosures
val'' = forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDBusConnection a,
IsDBusMethodInvocation b) =>
FunPtr C_DBusInterfaceMethodCallFunc
-> a
-> Text
-> Text
-> Text
-> Text
-> GVariant
-> b
-> Ptr ()
-> m ()
Gio.Callbacks.dynamic_DBusInterfaceMethodCallFunc FunPtr C_DBusInterfaceMethodCallFunc
val'
forall (m :: * -> *) a. Monad m => a -> m a
return DBusInterfaceMethodCallFunc_WithClosures
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DBusInterfaceMethodCallFunc_WithClosures
result
setDBusInterfaceVTableMethodCall :: MonadIO m => DBusInterfaceVTable -> FunPtr Gio.Callbacks.C_DBusInterfaceMethodCallFunc -> m ()
setDBusInterfaceVTableMethodCall :: forall (m :: * -> *).
MonadIO m =>
DBusInterfaceVTable -> FunPtr C_DBusInterfaceMethodCallFunc -> m ()
setDBusInterfaceVTableMethodCall DBusInterfaceVTable
s FunPtr C_DBusInterfaceMethodCallFunc
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusInterfaceVTable
s forall a b. (a -> b) -> a -> b
$ \Ptr DBusInterfaceVTable
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusInterfaceVTable
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (FunPtr C_DBusInterfaceMethodCallFunc
val :: FunPtr Gio.Callbacks.C_DBusInterfaceMethodCallFunc)
clearDBusInterfaceVTableMethodCall :: MonadIO m => DBusInterfaceVTable -> m ()
clearDBusInterfaceVTableMethodCall :: forall (m :: * -> *). MonadIO m => DBusInterfaceVTable -> m ()
clearDBusInterfaceVTableMethodCall DBusInterfaceVTable
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusInterfaceVTable
s forall a b. (a -> b) -> a -> b
$ \Ptr DBusInterfaceVTable
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusInterfaceVTable
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr Gio.Callbacks.C_DBusInterfaceMethodCallFunc)
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceVTableMethodCallFieldInfo
instance AttrInfo DBusInterfaceVTableMethodCallFieldInfo where
type AttrBaseTypeConstraint DBusInterfaceVTableMethodCallFieldInfo = (~) DBusInterfaceVTable
type AttrAllowedOps DBusInterfaceVTableMethodCallFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusInterfaceVTableMethodCallFieldInfo = (~) (FunPtr Gio.Callbacks.C_DBusInterfaceMethodCallFunc)
type AttrTransferTypeConstraint DBusInterfaceVTableMethodCallFieldInfo = (~)Gio.Callbacks.DBusInterfaceMethodCallFunc_WithClosures
type AttrTransferType DBusInterfaceVTableMethodCallFieldInfo = (FunPtr Gio.Callbacks.C_DBusInterfaceMethodCallFunc)
type AttrGetType DBusInterfaceVTableMethodCallFieldInfo = Maybe Gio.Callbacks.DBusInterfaceMethodCallFunc_WithClosures
type AttrLabel DBusInterfaceVTableMethodCallFieldInfo = "method_call"
type AttrOrigin DBusInterfaceVTableMethodCallFieldInfo = DBusInterfaceVTable
attrGet = getDBusInterfaceVTableMethodCall
attrSet = setDBusInterfaceVTableMethodCall
attrConstruct = undefined
attrClear = clearDBusInterfaceVTableMethodCall
attrTransfer _ v = do
Gio.Callbacks.mk_DBusInterfaceMethodCallFunc (Gio.Callbacks.wrap_DBusInterfaceMethodCallFunc Nothing v)
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Structs.DBusInterfaceVTable.methodCall"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Structs-DBusInterfaceVTable.html#g:attr:methodCall"
})
dBusInterfaceVTable_methodCall :: AttrLabelProxy "methodCall"
dBusInterfaceVTable_methodCall = AttrLabelProxy
#endif
getDBusInterfaceVTableGetProperty :: MonadIO m => DBusInterfaceVTable -> m (Maybe Gio.Callbacks.DBusInterfaceGetPropertyFunc_WithClosures)
getDBusInterfaceVTableGetProperty :: forall (m :: * -> *).
MonadIO m =>
DBusInterfaceVTable
-> m (Maybe DBusInterfaceGetPropertyFunc_WithClosures)
getDBusInterfaceVTableGetProperty DBusInterfaceVTable
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusInterfaceVTable
s forall a b. (a -> b) -> a -> b
$ \Ptr DBusInterfaceVTable
ptr -> do
FunPtr C_DBusInterfaceGetPropertyFunc
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr DBusInterfaceVTable
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO (FunPtr Gio.Callbacks.C_DBusInterfaceGetPropertyFunc)
Maybe DBusInterfaceGetPropertyFunc_WithClosures
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_DBusInterfaceGetPropertyFunc
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_DBusInterfaceGetPropertyFunc
val' -> do
let val'' :: DBusInterfaceGetPropertyFunc_WithClosures
val'' = forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusConnection a) =>
FunPtr C_DBusInterfaceGetPropertyFunc
-> a
-> Text
-> Text
-> Text
-> Text
-> GError
-> Ptr ()
-> m GVariant
Gio.Callbacks.dynamic_DBusInterfaceGetPropertyFunc FunPtr C_DBusInterfaceGetPropertyFunc
val'
forall (m :: * -> *) a. Monad m => a -> m a
return DBusInterfaceGetPropertyFunc_WithClosures
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DBusInterfaceGetPropertyFunc_WithClosures
result
setDBusInterfaceVTableGetProperty :: MonadIO m => DBusInterfaceVTable -> FunPtr Gio.Callbacks.C_DBusInterfaceGetPropertyFunc -> m ()
setDBusInterfaceVTableGetProperty :: forall (m :: * -> *).
MonadIO m =>
DBusInterfaceVTable
-> FunPtr C_DBusInterfaceGetPropertyFunc -> m ()
setDBusInterfaceVTableGetProperty DBusInterfaceVTable
s FunPtr C_DBusInterfaceGetPropertyFunc
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusInterfaceVTable
s forall a b. (a -> b) -> a -> b
$ \Ptr DBusInterfaceVTable
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusInterfaceVTable
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (FunPtr C_DBusInterfaceGetPropertyFunc
val :: FunPtr Gio.Callbacks.C_DBusInterfaceGetPropertyFunc)
clearDBusInterfaceVTableGetProperty :: MonadIO m => DBusInterfaceVTable -> m ()
clearDBusInterfaceVTableGetProperty :: forall (m :: * -> *). MonadIO m => DBusInterfaceVTable -> m ()
clearDBusInterfaceVTableGetProperty DBusInterfaceVTable
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusInterfaceVTable
s forall a b. (a -> b) -> a -> b
$ \Ptr DBusInterfaceVTable
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusInterfaceVTable
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr Gio.Callbacks.C_DBusInterfaceGetPropertyFunc)
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceVTableGetPropertyFieldInfo
instance AttrInfo DBusInterfaceVTableGetPropertyFieldInfo where
type AttrBaseTypeConstraint DBusInterfaceVTableGetPropertyFieldInfo = (~) DBusInterfaceVTable
type AttrAllowedOps DBusInterfaceVTableGetPropertyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusInterfaceVTableGetPropertyFieldInfo = (~) (FunPtr Gio.Callbacks.C_DBusInterfaceGetPropertyFunc)
type AttrTransferTypeConstraint DBusInterfaceVTableGetPropertyFieldInfo = (~)Gio.Callbacks.DBusInterfaceGetPropertyFunc_WithClosures
type AttrTransferType DBusInterfaceVTableGetPropertyFieldInfo = (FunPtr Gio.Callbacks.C_DBusInterfaceGetPropertyFunc)
type AttrGetType DBusInterfaceVTableGetPropertyFieldInfo = Maybe Gio.Callbacks.DBusInterfaceGetPropertyFunc_WithClosures
type AttrLabel DBusInterfaceVTableGetPropertyFieldInfo = "get_property"
type AttrOrigin DBusInterfaceVTableGetPropertyFieldInfo = DBusInterfaceVTable
attrGet = getDBusInterfaceVTableGetProperty
attrSet = setDBusInterfaceVTableGetProperty
attrConstruct = undefined
attrClear = clearDBusInterfaceVTableGetProperty
attrTransfer _ v = do
Gio.Callbacks.mk_DBusInterfaceGetPropertyFunc (Gio.Callbacks.wrap_DBusInterfaceGetPropertyFunc Nothing v)
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Structs.DBusInterfaceVTable.getProperty"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Structs-DBusInterfaceVTable.html#g:attr:getProperty"
})
dBusInterfaceVTable_getProperty :: AttrLabelProxy "getProperty"
dBusInterfaceVTable_getProperty = AttrLabelProxy
#endif
getDBusInterfaceVTableSetProperty :: MonadIO m => DBusInterfaceVTable -> m (Maybe Gio.Callbacks.DBusInterfaceSetPropertyFunc_WithClosures)
getDBusInterfaceVTableSetProperty :: forall (m :: * -> *).
MonadIO m =>
DBusInterfaceVTable
-> m (Maybe DBusInterfaceSetPropertyFunc_WithClosures)
getDBusInterfaceVTableSetProperty DBusInterfaceVTable
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusInterfaceVTable
s forall a b. (a -> b) -> a -> b
$ \Ptr DBusInterfaceVTable
ptr -> do
FunPtr C_DBusInterfaceSetPropertyFunc
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr DBusInterfaceVTable
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO (FunPtr Gio.Callbacks.C_DBusInterfaceSetPropertyFunc)
Maybe DBusInterfaceSetPropertyFunc_WithClosures
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_DBusInterfaceSetPropertyFunc
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_DBusInterfaceSetPropertyFunc
val' -> do
let val'' :: DBusInterfaceSetPropertyFunc_WithClosures
val'' = forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusConnection a) =>
FunPtr C_DBusInterfaceSetPropertyFunc
-> a
-> Text
-> Text
-> Text
-> Text
-> GVariant
-> GError
-> Ptr ()
-> m Bool
Gio.Callbacks.dynamic_DBusInterfaceSetPropertyFunc FunPtr C_DBusInterfaceSetPropertyFunc
val'
forall (m :: * -> *) a. Monad m => a -> m a
return DBusInterfaceSetPropertyFunc_WithClosures
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DBusInterfaceSetPropertyFunc_WithClosures
result
setDBusInterfaceVTableSetProperty :: MonadIO m => DBusInterfaceVTable -> FunPtr Gio.Callbacks.C_DBusInterfaceSetPropertyFunc -> m ()
setDBusInterfaceVTableSetProperty :: forall (m :: * -> *).
MonadIO m =>
DBusInterfaceVTable
-> FunPtr C_DBusInterfaceSetPropertyFunc -> m ()
setDBusInterfaceVTableSetProperty DBusInterfaceVTable
s FunPtr C_DBusInterfaceSetPropertyFunc
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusInterfaceVTable
s forall a b. (a -> b) -> a -> b
$ \Ptr DBusInterfaceVTable
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusInterfaceVTable
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (FunPtr C_DBusInterfaceSetPropertyFunc
val :: FunPtr Gio.Callbacks.C_DBusInterfaceSetPropertyFunc)
clearDBusInterfaceVTableSetProperty :: MonadIO m => DBusInterfaceVTable -> m ()
clearDBusInterfaceVTableSetProperty :: forall (m :: * -> *). MonadIO m => DBusInterfaceVTable -> m ()
clearDBusInterfaceVTableSetProperty DBusInterfaceVTable
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr DBusInterfaceVTable
s forall a b. (a -> b) -> a -> b
$ \Ptr DBusInterfaceVTable
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr DBusInterfaceVTable
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr Gio.Callbacks.C_DBusInterfaceSetPropertyFunc)
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceVTableSetPropertyFieldInfo
instance AttrInfo DBusInterfaceVTableSetPropertyFieldInfo where
type AttrBaseTypeConstraint DBusInterfaceVTableSetPropertyFieldInfo = (~) DBusInterfaceVTable
type AttrAllowedOps DBusInterfaceVTableSetPropertyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusInterfaceVTableSetPropertyFieldInfo = (~) (FunPtr Gio.Callbacks.C_DBusInterfaceSetPropertyFunc)
type AttrTransferTypeConstraint DBusInterfaceVTableSetPropertyFieldInfo = (~)Gio.Callbacks.DBusInterfaceSetPropertyFunc_WithClosures
type AttrTransferType DBusInterfaceVTableSetPropertyFieldInfo = (FunPtr Gio.Callbacks.C_DBusInterfaceSetPropertyFunc)
type AttrGetType DBusInterfaceVTableSetPropertyFieldInfo = Maybe Gio.Callbacks.DBusInterfaceSetPropertyFunc_WithClosures
type AttrLabel DBusInterfaceVTableSetPropertyFieldInfo = "set_property"
type AttrOrigin DBusInterfaceVTableSetPropertyFieldInfo = DBusInterfaceVTable
attrGet = getDBusInterfaceVTableSetProperty
attrSet = setDBusInterfaceVTableSetProperty
attrConstruct = undefined
attrClear = clearDBusInterfaceVTableSetProperty
attrTransfer _ v = do
Gio.Callbacks.mk_DBusInterfaceSetPropertyFunc (Gio.Callbacks.wrap_DBusInterfaceSetPropertyFunc Nothing v)
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Structs.DBusInterfaceVTable.setProperty"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Structs-DBusInterfaceVTable.html#g:attr:setProperty"
})
dBusInterfaceVTable_setProperty :: AttrLabelProxy "setProperty"
dBusInterfaceVTable_setProperty = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DBusInterfaceVTable
type instance O.AttributeList DBusInterfaceVTable = DBusInterfaceVTableAttributeList
type DBusInterfaceVTableAttributeList = ('[ '("methodCall", DBusInterfaceVTableMethodCallFieldInfo), '("getProperty", DBusInterfaceVTableGetPropertyFieldInfo), '("setProperty", DBusInterfaceVTableSetPropertyFieldInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveDBusInterfaceVTableMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveDBusInterfaceVTableMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDBusInterfaceVTableMethod t DBusInterfaceVTable, O.OverloadedMethod info DBusInterfaceVTable p) => OL.IsLabel t (DBusInterfaceVTable -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveDBusInterfaceVTableMethod t DBusInterfaceVTable, O.OverloadedMethod info DBusInterfaceVTable p, R.HasField t DBusInterfaceVTable p) => R.HasField t DBusInterfaceVTable p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDBusInterfaceVTableMethod t DBusInterfaceVTable, O.OverloadedMethodInfo info DBusInterfaceVTable) => OL.IsLabel t (O.MethodProxy info DBusInterfaceVTable) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif