module GI.Gio.Structs.DBusNodeInfo
(
DBusNodeInfo(..) ,
newZeroDBusNodeInfo ,
noDBusNodeInfo ,
DBusNodeInfoGenerateXmlMethodInfo ,
dBusNodeInfoGenerateXml ,
DBusNodeInfoLookupInterfaceMethodInfo ,
dBusNodeInfoLookupInterface ,
dBusNodeInfoNewForXml ,
DBusNodeInfoRefMethodInfo ,
dBusNodeInfoRef ,
DBusNodeInfoUnrefMethodInfo ,
dBusNodeInfoUnref ,
clearDBusNodeInfoAnnotations ,
dBusNodeInfo_annotations ,
getDBusNodeInfoAnnotations ,
setDBusNodeInfoAnnotations ,
clearDBusNodeInfoInterfaces ,
dBusNodeInfo_interfaces ,
getDBusNodeInfoInterfaces ,
setDBusNodeInfoInterfaces ,
clearDBusNodeInfoNodes ,
dBusNodeInfo_nodes ,
getDBusNodeInfoNodes ,
setDBusNodeInfoNodes ,
clearDBusNodeInfoPath ,
dBusNodeInfo_path ,
getDBusNodeInfoPath ,
setDBusNodeInfoPath ,
dBusNodeInfo_refCount ,
getDBusNodeInfoRefCount ,
setDBusNodeInfoRefCount ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GLib.Structs.String as GLib.String
import qualified GI.Gio.Structs.DBusAnnotationInfo as Gio.DBusAnnotationInfo
import qualified GI.Gio.Structs.DBusInterfaceInfo as Gio.DBusInterfaceInfo
newtype DBusNodeInfo = DBusNodeInfo (ManagedPtr DBusNodeInfo)
foreign import ccall "g_dbus_node_info_get_type" c_g_dbus_node_info_get_type ::
IO GType
instance BoxedObject DBusNodeInfo where
boxedType _ = c_g_dbus_node_info_get_type
newZeroDBusNodeInfo :: MonadIO m => m DBusNodeInfo
newZeroDBusNodeInfo = liftIO $ callocBoxedBytes 40 >>= wrapBoxed DBusNodeInfo
instance tag ~ 'AttrSet => Constructible DBusNodeInfo tag where
new _ attrs = do
o <- newZeroDBusNodeInfo
GI.Attributes.set o attrs
return o
noDBusNodeInfo :: Maybe DBusNodeInfo
noDBusNodeInfo = Nothing
getDBusNodeInfoRefCount :: MonadIO m => DBusNodeInfo -> m Int32
getDBusNodeInfoRefCount s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
setDBusNodeInfoRefCount :: MonadIO m => DBusNodeInfo -> Int32 -> m ()
setDBusNodeInfoRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Int32)
data DBusNodeInfoRefCountFieldInfo
instance AttrInfo DBusNodeInfoRefCountFieldInfo where
type AttrAllowedOps DBusNodeInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint DBusNodeInfoRefCountFieldInfo = (~) Int32
type AttrBaseTypeConstraint DBusNodeInfoRefCountFieldInfo = (~) DBusNodeInfo
type AttrGetType DBusNodeInfoRefCountFieldInfo = Int32
type AttrLabel DBusNodeInfoRefCountFieldInfo = "ref_count"
type AttrOrigin DBusNodeInfoRefCountFieldInfo = DBusNodeInfo
attrGet _ = getDBusNodeInfoRefCount
attrSet _ = setDBusNodeInfoRefCount
attrConstruct = undefined
attrClear _ = undefined
dBusNodeInfo_refCount :: AttrLabelProxy "refCount"
dBusNodeInfo_refCount = AttrLabelProxy
getDBusNodeInfoPath :: MonadIO m => DBusNodeInfo -> m (Maybe T.Text)
getDBusNodeInfoPath s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setDBusNodeInfoPath :: MonadIO m => DBusNodeInfo -> CString -> m ()
setDBusNodeInfoPath s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: CString)
clearDBusNodeInfoPath :: MonadIO m => DBusNodeInfo -> m ()
clearDBusNodeInfoPath s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)
data DBusNodeInfoPathFieldInfo
instance AttrInfo DBusNodeInfoPathFieldInfo where
type AttrAllowedOps DBusNodeInfoPathFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusNodeInfoPathFieldInfo = (~) CString
type AttrBaseTypeConstraint DBusNodeInfoPathFieldInfo = (~) DBusNodeInfo
type AttrGetType DBusNodeInfoPathFieldInfo = Maybe T.Text
type AttrLabel DBusNodeInfoPathFieldInfo = "path"
type AttrOrigin DBusNodeInfoPathFieldInfo = DBusNodeInfo
attrGet _ = getDBusNodeInfoPath
attrSet _ = setDBusNodeInfoPath
attrConstruct = undefined
attrClear _ = clearDBusNodeInfoPath
dBusNodeInfo_path :: AttrLabelProxy "path"
dBusNodeInfo_path = AttrLabelProxy
getDBusNodeInfoInterfaces :: MonadIO m => DBusNodeInfo -> m (Maybe [Gio.DBusInterfaceInfo.DBusInterfaceInfo])
getDBusNodeInfoInterfaces s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo))
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- unpackZeroTerminatedPtrArray val'
val''' <- mapM (newBoxed Gio.DBusInterfaceInfo.DBusInterfaceInfo) val''
return val'''
return result
setDBusNodeInfoInterfaces :: MonadIO m => DBusNodeInfo -> Ptr (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo) -> m ()
setDBusNodeInfoInterfaces s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: Ptr (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo))
clearDBusNodeInfoInterfaces :: MonadIO m => DBusNodeInfo -> m ()
clearDBusNodeInfoInterfaces s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (FP.nullPtr :: Ptr (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo))
data DBusNodeInfoInterfacesFieldInfo
instance AttrInfo DBusNodeInfoInterfacesFieldInfo where
type AttrAllowedOps DBusNodeInfoInterfacesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusNodeInfoInterfacesFieldInfo = (~) (Ptr (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo))
type AttrBaseTypeConstraint DBusNodeInfoInterfacesFieldInfo = (~) DBusNodeInfo
type AttrGetType DBusNodeInfoInterfacesFieldInfo = Maybe [Gio.DBusInterfaceInfo.DBusInterfaceInfo]
type AttrLabel DBusNodeInfoInterfacesFieldInfo = "interfaces"
type AttrOrigin DBusNodeInfoInterfacesFieldInfo = DBusNodeInfo
attrGet _ = getDBusNodeInfoInterfaces
attrSet _ = setDBusNodeInfoInterfaces
attrConstruct = undefined
attrClear _ = clearDBusNodeInfoInterfaces
dBusNodeInfo_interfaces :: AttrLabelProxy "interfaces"
dBusNodeInfo_interfaces = AttrLabelProxy
getDBusNodeInfoNodes :: MonadIO m => DBusNodeInfo -> m (Maybe [DBusNodeInfo])
getDBusNodeInfoNodes s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusNodeInfo))
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- unpackZeroTerminatedPtrArray val'
val''' <- mapM (newBoxed DBusNodeInfo) val''
return val'''
return result
setDBusNodeInfoNodes :: MonadIO m => DBusNodeInfo -> Ptr (Ptr DBusNodeInfo) -> m ()
setDBusNodeInfoNodes s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusNodeInfo))
clearDBusNodeInfoNodes :: MonadIO m => DBusNodeInfo -> m ()
clearDBusNodeInfoNodes s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (FP.nullPtr :: Ptr (Ptr DBusNodeInfo))
data DBusNodeInfoNodesFieldInfo
instance AttrInfo DBusNodeInfoNodesFieldInfo where
type AttrAllowedOps DBusNodeInfoNodesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusNodeInfoNodesFieldInfo = (~) (Ptr (Ptr DBusNodeInfo))
type AttrBaseTypeConstraint DBusNodeInfoNodesFieldInfo = (~) DBusNodeInfo
type AttrGetType DBusNodeInfoNodesFieldInfo = Maybe [DBusNodeInfo]
type AttrLabel DBusNodeInfoNodesFieldInfo = "nodes"
type AttrOrigin DBusNodeInfoNodesFieldInfo = DBusNodeInfo
attrGet _ = getDBusNodeInfoNodes
attrSet _ = setDBusNodeInfoNodes
attrConstruct = undefined
attrClear _ = clearDBusNodeInfoNodes
dBusNodeInfo_nodes :: AttrLabelProxy "nodes"
dBusNodeInfo_nodes = AttrLabelProxy
getDBusNodeInfoAnnotations :: MonadIO m => DBusNodeInfo -> m (Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo])
getDBusNodeInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: 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
setDBusNodeInfoAnnotations :: MonadIO m => DBusNodeInfo -> Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo) -> m ()
setDBusNodeInfoAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (val :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
clearDBusNodeInfoAnnotations :: MonadIO m => DBusNodeInfo -> m ()
clearDBusNodeInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (FP.nullPtr :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
data DBusNodeInfoAnnotationsFieldInfo
instance AttrInfo DBusNodeInfoAnnotationsFieldInfo where
type AttrAllowedOps DBusNodeInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusNodeInfoAnnotationsFieldInfo = (~) (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))
type AttrBaseTypeConstraint DBusNodeInfoAnnotationsFieldInfo = (~) DBusNodeInfo
type AttrGetType DBusNodeInfoAnnotationsFieldInfo = Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo]
type AttrLabel DBusNodeInfoAnnotationsFieldInfo = "annotations"
type AttrOrigin DBusNodeInfoAnnotationsFieldInfo = DBusNodeInfo
attrGet _ = getDBusNodeInfoAnnotations
attrSet _ = setDBusNodeInfoAnnotations
attrConstruct = undefined
attrClear _ = clearDBusNodeInfoAnnotations
dBusNodeInfo_annotations :: AttrLabelProxy "annotations"
dBusNodeInfo_annotations = AttrLabelProxy
instance O.HasAttributeList DBusNodeInfo
type instance O.AttributeList DBusNodeInfo = DBusNodeInfoAttributeList
type DBusNodeInfoAttributeList = ('[ '("refCount", DBusNodeInfoRefCountFieldInfo), '("path", DBusNodeInfoPathFieldInfo), '("interfaces", DBusNodeInfoInterfacesFieldInfo), '("nodes", DBusNodeInfoNodesFieldInfo), '("annotations", DBusNodeInfoAnnotationsFieldInfo)] :: [(Symbol, *)])
foreign import ccall "g_dbus_node_info_new_for_xml" g_dbus_node_info_new_for_xml ::
CString ->
Ptr (Ptr GError) ->
IO (Ptr DBusNodeInfo)
dBusNodeInfoNewForXml ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m DBusNodeInfo
dBusNodeInfoNewForXml xmlData = liftIO $ do
xmlData' <- textToCString xmlData
onException (do
result <- propagateGError $ g_dbus_node_info_new_for_xml xmlData'
checkUnexpectedReturnNULL "dBusNodeInfoNewForXml" result
result' <- (wrapBoxed DBusNodeInfo) result
freeMem xmlData'
return result'
) (do
freeMem xmlData'
)
foreign import ccall "g_dbus_node_info_generate_xml" g_dbus_node_info_generate_xml ::
Ptr DBusNodeInfo ->
Word32 ->
Ptr GLib.String.String ->
IO ()
dBusNodeInfoGenerateXml ::
(B.CallStack.HasCallStack, MonadIO m) =>
DBusNodeInfo
-> Word32
-> m (GLib.String.String)
dBusNodeInfoGenerateXml info indent = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
stringBuilder <- callocBoxedBytes 24 :: IO (Ptr GLib.String.String)
g_dbus_node_info_generate_xml info' indent stringBuilder
stringBuilder' <- (wrapBoxed GLib.String.String) stringBuilder
touchManagedPtr info
return stringBuilder'
data DBusNodeInfoGenerateXmlMethodInfo
instance (signature ~ (Word32 -> m (GLib.String.String)), MonadIO m) => O.MethodInfo DBusNodeInfoGenerateXmlMethodInfo DBusNodeInfo signature where
overloadedMethod _ = dBusNodeInfoGenerateXml
foreign import ccall "g_dbus_node_info_lookup_interface" g_dbus_node_info_lookup_interface ::
Ptr DBusNodeInfo ->
CString ->
IO (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo)
dBusNodeInfoLookupInterface ::
(B.CallStack.HasCallStack, MonadIO m) =>
DBusNodeInfo
-> T.Text
-> m Gio.DBusInterfaceInfo.DBusInterfaceInfo
dBusNodeInfoLookupInterface info name = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
name' <- textToCString name
result <- g_dbus_node_info_lookup_interface info' name'
checkUnexpectedReturnNULL "dBusNodeInfoLookupInterface" result
result' <- (newBoxed Gio.DBusInterfaceInfo.DBusInterfaceInfo) result
touchManagedPtr info
freeMem name'
return result'
data DBusNodeInfoLookupInterfaceMethodInfo
instance (signature ~ (T.Text -> m Gio.DBusInterfaceInfo.DBusInterfaceInfo), MonadIO m) => O.MethodInfo DBusNodeInfoLookupInterfaceMethodInfo DBusNodeInfo signature where
overloadedMethod _ = dBusNodeInfoLookupInterface
foreign import ccall "g_dbus_node_info_ref" g_dbus_node_info_ref ::
Ptr DBusNodeInfo ->
IO (Ptr DBusNodeInfo)
dBusNodeInfoRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
DBusNodeInfo
-> m DBusNodeInfo
dBusNodeInfoRef info = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
result <- g_dbus_node_info_ref info'
checkUnexpectedReturnNULL "dBusNodeInfoRef" result
result' <- (wrapBoxed DBusNodeInfo) result
touchManagedPtr info
return result'
data DBusNodeInfoRefMethodInfo
instance (signature ~ (m DBusNodeInfo), MonadIO m) => O.MethodInfo DBusNodeInfoRefMethodInfo DBusNodeInfo signature where
overloadedMethod _ = dBusNodeInfoRef
foreign import ccall "g_dbus_node_info_unref" g_dbus_node_info_unref ::
Ptr DBusNodeInfo ->
IO ()
dBusNodeInfoUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
DBusNodeInfo
-> m ()
dBusNodeInfoUnref info = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
g_dbus_node_info_unref info'
touchManagedPtr info
return ()
data DBusNodeInfoUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusNodeInfoUnrefMethodInfo DBusNodeInfo signature where
overloadedMethod _ = dBusNodeInfoUnref
type family ResolveDBusNodeInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveDBusNodeInfoMethod "generateXml" o = DBusNodeInfoGenerateXmlMethodInfo
ResolveDBusNodeInfoMethod "lookupInterface" o = DBusNodeInfoLookupInterfaceMethodInfo
ResolveDBusNodeInfoMethod "ref" o = DBusNodeInfoRefMethodInfo
ResolveDBusNodeInfoMethod "unref" o = DBusNodeInfoUnrefMethodInfo
ResolveDBusNodeInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDBusNodeInfoMethod t DBusNodeInfo, O.MethodInfo info DBusNodeInfo p) => O.IsLabelProxy t (DBusNodeInfo -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDBusNodeInfoMethod t DBusNodeInfo, O.MethodInfo info DBusNodeInfo p) => O.IsLabel t (DBusNodeInfo -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif