{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Structs.DBusMethodInfo
(
DBusMethodInfo(..) ,
newZeroDBusMethodInfo ,
noDBusMethodInfo ,
#if defined(ENABLE_OVERLOADING)
ResolveDBusMethodInfoMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DBusMethodInfoRefMethodInfo ,
#endif
dBusMethodInfoRef ,
#if defined(ENABLE_OVERLOADING)
DBusMethodInfoUnrefMethodInfo ,
#endif
dBusMethodInfoUnref ,
clearDBusMethodInfoAnnotations ,
#if defined(ENABLE_OVERLOADING)
dBusMethodInfo_annotations ,
#endif
getDBusMethodInfoAnnotations ,
setDBusMethodInfoAnnotations ,
clearDBusMethodInfoInArgs ,
#if defined(ENABLE_OVERLOADING)
dBusMethodInfo_inArgs ,
#endif
getDBusMethodInfoInArgs ,
setDBusMethodInfoInArgs ,
clearDBusMethodInfoName ,
#if defined(ENABLE_OVERLOADING)
dBusMethodInfo_name ,
#endif
getDBusMethodInfoName ,
setDBusMethodInfoName ,
clearDBusMethodInfoOutArgs ,
#if defined(ENABLE_OVERLOADING)
dBusMethodInfo_outArgs ,
#endif
getDBusMethodInfoOutArgs ,
setDBusMethodInfoOutArgs ,
#if defined(ENABLE_OVERLOADING)
dBusMethodInfo_refCount ,
#endif
getDBusMethodInfoRefCount ,
setDBusMethodInfoRefCount ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusAnnotationInfo as Gio.DBusAnnotationInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusArgInfo as Gio.DBusArgInfo
newtype DBusMethodInfo = DBusMethodInfo (ManagedPtr DBusMethodInfo)
deriving (Eq)
foreign import ccall "g_dbus_method_info_get_type" c_g_dbus_method_info_get_type ::
IO GType
instance BoxedObject DBusMethodInfo where
boxedType _ = c_g_dbus_method_info_get_type
instance B.GValue.IsGValue DBusMethodInfo where
toGValue o = do
gtype <- c_g_dbus_method_info_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_boxed)
fromGValue gv = do
ptr <- B.GValue.get_boxed gv :: IO (Ptr DBusMethodInfo)
B.ManagedPtr.newBoxed DBusMethodInfo ptr
newZeroDBusMethodInfo :: MonadIO m => m DBusMethodInfo
newZeroDBusMethodInfo = liftIO $ callocBoxedBytes 20 >>= wrapBoxed DBusMethodInfo
instance tag ~ 'AttrSet => Constructible DBusMethodInfo tag where
new _ attrs = do
o <- newZeroDBusMethodInfo
GI.Attributes.set o attrs
return o
noDBusMethodInfo :: Maybe DBusMethodInfo
noDBusMethodInfo = Nothing
getDBusMethodInfoRefCount :: MonadIO m => DBusMethodInfo -> m Int32
getDBusMethodInfoRefCount s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
setDBusMethodInfoRefCount :: MonadIO m => DBusMethodInfo -> Int32 -> m ()
setDBusMethodInfoRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data DBusMethodInfoRefCountFieldInfo
instance AttrInfo DBusMethodInfoRefCountFieldInfo where
type AttrBaseTypeConstraint DBusMethodInfoRefCountFieldInfo = (~) DBusMethodInfo
type AttrAllowedOps DBusMethodInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint DBusMethodInfoRefCountFieldInfo = (~) Int32
type AttrTransferTypeConstraint DBusMethodInfoRefCountFieldInfo = (~)Int32
type AttrTransferType DBusMethodInfoRefCountFieldInfo = Int32
type AttrGetType DBusMethodInfoRefCountFieldInfo = Int32
type AttrLabel DBusMethodInfoRefCountFieldInfo = "ref_count"
type AttrOrigin DBusMethodInfoRefCountFieldInfo = DBusMethodInfo
attrGet = getDBusMethodInfoRefCount
attrSet = setDBusMethodInfoRefCount
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dBusMethodInfo_refCount :: AttrLabelProxy "refCount"
dBusMethodInfo_refCount = AttrLabelProxy
#endif
getDBusMethodInfoName :: MonadIO m => DBusMethodInfo -> m (Maybe T.Text)
getDBusMethodInfoName s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setDBusMethodInfoName :: MonadIO m => DBusMethodInfo -> CString -> m ()
setDBusMethodInfoName s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (val :: CString)
clearDBusMethodInfoName :: MonadIO m => DBusMethodInfo -> m ()
clearDBusMethodInfoName s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data DBusMethodInfoNameFieldInfo
instance AttrInfo DBusMethodInfoNameFieldInfo where
type AttrBaseTypeConstraint DBusMethodInfoNameFieldInfo = (~) DBusMethodInfo
type AttrAllowedOps DBusMethodInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusMethodInfoNameFieldInfo = (~) CString
type AttrTransferTypeConstraint DBusMethodInfoNameFieldInfo = (~)CString
type AttrTransferType DBusMethodInfoNameFieldInfo = CString
type AttrGetType DBusMethodInfoNameFieldInfo = Maybe T.Text
type AttrLabel DBusMethodInfoNameFieldInfo = "name"
type AttrOrigin DBusMethodInfoNameFieldInfo = DBusMethodInfo
attrGet = getDBusMethodInfoName
attrSet = setDBusMethodInfoName
attrConstruct = undefined
attrClear = clearDBusMethodInfoName
attrTransfer _ v = do
return v
dBusMethodInfo_name :: AttrLabelProxy "name"
dBusMethodInfo_name = AttrLabelProxy
#endif
getDBusMethodInfoInArgs :: MonadIO m => DBusMethodInfo -> m (Maybe [Gio.DBusArgInfo.DBusArgInfo])
getDBusMethodInfoInArgs s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO (Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- unpackZeroTerminatedPtrArray val'
val''' <- mapM (newBoxed Gio.DBusArgInfo.DBusArgInfo) val''
return val'''
return result
setDBusMethodInfoInArgs :: MonadIO m => DBusMethodInfo -> Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo) -> m ()
setDBusMethodInfoInArgs s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))
clearDBusMethodInfoInArgs :: MonadIO m => DBusMethodInfo -> m ()
clearDBusMethodInfoInArgs s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))
#if defined(ENABLE_OVERLOADING)
data DBusMethodInfoInArgsFieldInfo
instance AttrInfo DBusMethodInfoInArgsFieldInfo where
type AttrBaseTypeConstraint DBusMethodInfoInArgsFieldInfo = (~) DBusMethodInfo
type AttrAllowedOps DBusMethodInfoInArgsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusMethodInfoInArgsFieldInfo = (~) (Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))
type AttrTransferTypeConstraint DBusMethodInfoInArgsFieldInfo = (~)(Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))
type AttrTransferType DBusMethodInfoInArgsFieldInfo = (Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))
type AttrGetType DBusMethodInfoInArgsFieldInfo = Maybe [Gio.DBusArgInfo.DBusArgInfo]
type AttrLabel DBusMethodInfoInArgsFieldInfo = "in_args"
type AttrOrigin DBusMethodInfoInArgsFieldInfo = DBusMethodInfo
attrGet = getDBusMethodInfoInArgs
attrSet = setDBusMethodInfoInArgs
attrConstruct = undefined
attrClear = clearDBusMethodInfoInArgs
attrTransfer _ v = do
return v
dBusMethodInfo_inArgs :: AttrLabelProxy "inArgs"
dBusMethodInfo_inArgs = AttrLabelProxy
#endif
getDBusMethodInfoOutArgs :: MonadIO m => DBusMethodInfo -> m (Maybe [Gio.DBusArgInfo.DBusArgInfo])
getDBusMethodInfoOutArgs s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO (Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- unpackZeroTerminatedPtrArray val'
val''' <- mapM (newBoxed Gio.DBusArgInfo.DBusArgInfo) val''
return val'''
return result
setDBusMethodInfoOutArgs :: MonadIO m => DBusMethodInfo -> Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo) -> m ()
setDBusMethodInfoOutArgs s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (val :: Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))
clearDBusMethodInfoOutArgs :: MonadIO m => DBusMethodInfo -> m ()
clearDBusMethodInfoOutArgs s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (FP.nullPtr :: Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))
#if defined(ENABLE_OVERLOADING)
data DBusMethodInfoOutArgsFieldInfo
instance AttrInfo DBusMethodInfoOutArgsFieldInfo where
type AttrBaseTypeConstraint DBusMethodInfoOutArgsFieldInfo = (~) DBusMethodInfo
type AttrAllowedOps DBusMethodInfoOutArgsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusMethodInfoOutArgsFieldInfo = (~) (Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))
type AttrTransferTypeConstraint DBusMethodInfoOutArgsFieldInfo = (~)(Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))
type AttrTransferType DBusMethodInfoOutArgsFieldInfo = (Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))
type AttrGetType DBusMethodInfoOutArgsFieldInfo = Maybe [Gio.DBusArgInfo.DBusArgInfo]
type AttrLabel DBusMethodInfoOutArgsFieldInfo = "out_args"
type AttrOrigin DBusMethodInfoOutArgsFieldInfo = DBusMethodInfo
attrGet = getDBusMethodInfoOutArgs
attrSet = setDBusMethodInfoOutArgs
attrConstruct = undefined
attrClear = clearDBusMethodInfoOutArgs
attrTransfer _ v = do
return v
dBusMethodInfo_outArgs :: AttrLabelProxy "outArgs"
dBusMethodInfo_outArgs = AttrLabelProxy
#endif
getDBusMethodInfoAnnotations :: MonadIO m => DBusMethodInfo -> m (Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo])
getDBusMethodInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- unpackZeroTerminatedPtrArray val'
val''' <- mapM (newBoxed Gio.DBusAnnotationInfo.DBusAnnotationInfo) val''
return val'''
return result
setDBusMethodInfoAnnotations :: MonadIO m => DBusMethodInfo -> Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo) -> m ()
setDBusMethodInfoAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
clearDBusMethodInfoAnnotations :: MonadIO m => DBusMethodInfo -> m ()
clearDBusMethodInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (FP.nullPtr :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
#if defined(ENABLE_OVERLOADING)
data DBusMethodInfoAnnotationsFieldInfo
instance AttrInfo DBusMethodInfoAnnotationsFieldInfo where
type AttrBaseTypeConstraint DBusMethodInfoAnnotationsFieldInfo = (~) DBusMethodInfo
type AttrAllowedOps DBusMethodInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusMethodInfoAnnotationsFieldInfo = (~) (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
type AttrTransferTypeConstraint DBusMethodInfoAnnotationsFieldInfo = (~)(Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
type AttrTransferType DBusMethodInfoAnnotationsFieldInfo = (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
type AttrGetType DBusMethodInfoAnnotationsFieldInfo = Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo]
type AttrLabel DBusMethodInfoAnnotationsFieldInfo = "annotations"
type AttrOrigin DBusMethodInfoAnnotationsFieldInfo = DBusMethodInfo
attrGet = getDBusMethodInfoAnnotations
attrSet = setDBusMethodInfoAnnotations
attrConstruct = undefined
attrClear = clearDBusMethodInfoAnnotations
attrTransfer _ v = do
return v
dBusMethodInfo_annotations :: AttrLabelProxy "annotations"
dBusMethodInfo_annotations = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DBusMethodInfo
type instance O.AttributeList DBusMethodInfo = DBusMethodInfoAttributeList
type DBusMethodInfoAttributeList = ('[ '("refCount", DBusMethodInfoRefCountFieldInfo), '("name", DBusMethodInfoNameFieldInfo), '("inArgs", DBusMethodInfoInArgsFieldInfo), '("outArgs", DBusMethodInfoOutArgsFieldInfo), '("annotations", DBusMethodInfoAnnotationsFieldInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_dbus_method_info_ref" g_dbus_method_info_ref ::
Ptr DBusMethodInfo ->
IO (Ptr DBusMethodInfo)
dBusMethodInfoRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
DBusMethodInfo
-> m DBusMethodInfo
dBusMethodInfoRef info = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
result <- g_dbus_method_info_ref info'
checkUnexpectedReturnNULL "dBusMethodInfoRef" result
result' <- (wrapBoxed DBusMethodInfo) result
touchManagedPtr info
return result'
#if defined(ENABLE_OVERLOADING)
data DBusMethodInfoRefMethodInfo
instance (signature ~ (m DBusMethodInfo), MonadIO m) => O.MethodInfo DBusMethodInfoRefMethodInfo DBusMethodInfo signature where
overloadedMethod = dBusMethodInfoRef
#endif
foreign import ccall "g_dbus_method_info_unref" g_dbus_method_info_unref ::
Ptr DBusMethodInfo ->
IO ()
dBusMethodInfoUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
DBusMethodInfo
-> m ()
dBusMethodInfoUnref info = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
g_dbus_method_info_unref info'
touchManagedPtr info
return ()
#if defined(ENABLE_OVERLOADING)
data DBusMethodInfoUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusMethodInfoUnrefMethodInfo DBusMethodInfo signature where
overloadedMethod = dBusMethodInfoUnref
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveDBusMethodInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveDBusMethodInfoMethod "ref" o = DBusMethodInfoRefMethodInfo
ResolveDBusMethodInfoMethod "unref" o = DBusMethodInfoUnrefMethodInfo
ResolveDBusMethodInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDBusMethodInfoMethod t DBusMethodInfo, O.MethodInfo info DBusMethodInfo p) => OL.IsLabel t (DBusMethodInfo -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif