module GI.Gio.Objects.DBusObjectManagerClient
(
DBusObjectManagerClient(..) ,
IsDBusObjectManagerClient ,
toDBusObjectManagerClient ,
noDBusObjectManagerClient ,
DBusObjectManagerClientGetConnectionMethodInfo,
dBusObjectManagerClientGetConnection ,
DBusObjectManagerClientGetFlagsMethodInfo,
dBusObjectManagerClientGetFlags ,
DBusObjectManagerClientGetNameMethodInfo,
dBusObjectManagerClientGetName ,
DBusObjectManagerClientGetNameOwnerMethodInfo,
dBusObjectManagerClientGetNameOwner ,
dBusObjectManagerClientNew ,
dBusObjectManagerClientNewFinish ,
dBusObjectManagerClientNewForBus ,
dBusObjectManagerClientNewForBusFinish ,
dBusObjectManagerClientNewForBusSync ,
dBusObjectManagerClientNewSync ,
DBusObjectManagerClientBusTypePropertyInfo,
constructDBusObjectManagerClientBusType ,
dBusObjectManagerClientBusType ,
DBusObjectManagerClientConnectionPropertyInfo,
constructDBusObjectManagerClientConnection,
dBusObjectManagerClientConnection ,
getDBusObjectManagerClientConnection ,
DBusObjectManagerClientFlagsPropertyInfo,
constructDBusObjectManagerClientFlags ,
dBusObjectManagerClientFlags ,
getDBusObjectManagerClientFlags ,
DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo,
constructDBusObjectManagerClientGetProxyTypeDestroyNotify,
dBusObjectManagerClientGetProxyTypeDestroyNotify,
getDBusObjectManagerClientGetProxyTypeDestroyNotify,
DBusObjectManagerClientGetProxyTypeFuncPropertyInfo,
constructDBusObjectManagerClientGetProxyTypeFunc,
dBusObjectManagerClientGetProxyTypeFunc ,
getDBusObjectManagerClientGetProxyTypeFunc,
DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo,
constructDBusObjectManagerClientGetProxyTypeUserData,
dBusObjectManagerClientGetProxyTypeUserData,
getDBusObjectManagerClientGetProxyTypeUserData,
DBusObjectManagerClientNamePropertyInfo ,
constructDBusObjectManagerClientName ,
dBusObjectManagerClientName ,
getDBusObjectManagerClientName ,
DBusObjectManagerClientNameOwnerPropertyInfo,
dBusObjectManagerClientNameOwner ,
getDBusObjectManagerClientNameOwner ,
DBusObjectManagerClientObjectPathPropertyInfo,
constructDBusObjectManagerClientObjectPath,
dBusObjectManagerClientObjectPath ,
getDBusObjectManagerClientObjectPath ,
C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,
DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo,
afterDBusObjectManagerClientInterfaceProxyPropertiesChanged,
genClosure_DBusObjectManagerClientInterfaceProxyPropertiesChanged,
mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,
noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,
onDBusObjectManagerClientInterfaceProxyPropertiesChanged,
wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,
C_DBusObjectManagerClientInterfaceProxySignalCallback,
DBusObjectManagerClientInterfaceProxySignalCallback,
DBusObjectManagerClientInterfaceProxySignalSignalInfo,
afterDBusObjectManagerClientInterfaceProxySignal,
genClosure_DBusObjectManagerClientInterfaceProxySignal,
mk_DBusObjectManagerClientInterfaceProxySignalCallback,
noDBusObjectManagerClientInterfaceProxySignalCallback,
onDBusObjectManagerClientInterfaceProxySignal,
wrap_DBusObjectManagerClientInterfaceProxySignalCallback,
) 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.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Enums as Gio.Enums
import qualified GI.Gio.Flags as Gio.Flags
import qualified GI.Gio.Interfaces.AsyncInitable as Gio.AsyncInitable
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Interfaces.DBusObjectManager as Gio.DBusObjectManager
import qualified GI.Gio.Interfaces.Initable as Gio.Initable
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection
import qualified GI.Gio.Objects.DBusObjectProxy as Gio.DBusObjectProxy
import qualified GI.Gio.Objects.DBusProxy as Gio.DBusProxy
newtype DBusObjectManagerClient = DBusObjectManagerClient (ManagedPtr DBusObjectManagerClient)
foreign import ccall "g_dbus_object_manager_client_get_type"
c_g_dbus_object_manager_client_get_type :: IO GType
instance GObject DBusObjectManagerClient where
gobjectType _ = c_g_dbus_object_manager_client_get_type
class GObject o => IsDBusObjectManagerClient o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DBusObjectManagerClient a) =>
IsDBusObjectManagerClient a
#endif
instance IsDBusObjectManagerClient DBusObjectManagerClient
instance GObject.Object.IsObject DBusObjectManagerClient
instance Gio.AsyncInitable.IsAsyncInitable DBusObjectManagerClient
instance Gio.DBusObjectManager.IsDBusObjectManager DBusObjectManagerClient
instance Gio.Initable.IsInitable DBusObjectManagerClient
toDBusObjectManagerClient :: IsDBusObjectManagerClient o => o -> IO DBusObjectManagerClient
toDBusObjectManagerClient = unsafeCastTo DBusObjectManagerClient
noDBusObjectManagerClient :: Maybe DBusObjectManagerClient
noDBusObjectManagerClient = Nothing
type family ResolveDBusObjectManagerClientMethod (t :: Symbol) (o :: *) :: * where
ResolveDBusObjectManagerClientMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDBusObjectManagerClientMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDBusObjectManagerClientMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDBusObjectManagerClientMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDBusObjectManagerClientMethod "init" o = Gio.Initable.InitableInitMethodInfo
ResolveDBusObjectManagerClientMethod "initAsync" o = Gio.AsyncInitable.AsyncInitableInitAsyncMethodInfo
ResolveDBusObjectManagerClientMethod "initFinish" o = Gio.AsyncInitable.AsyncInitableInitFinishMethodInfo
ResolveDBusObjectManagerClientMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDBusObjectManagerClientMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDBusObjectManagerClientMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDBusObjectManagerClientMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDBusObjectManagerClientMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDBusObjectManagerClientMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDBusObjectManagerClientMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveDBusObjectManagerClientMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDBusObjectManagerClientMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDBusObjectManagerClientMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDBusObjectManagerClientMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDBusObjectManagerClientMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDBusObjectManagerClientMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDBusObjectManagerClientMethod "getConnection" o = DBusObjectManagerClientGetConnectionMethodInfo
ResolveDBusObjectManagerClientMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDBusObjectManagerClientMethod "getFlags" o = DBusObjectManagerClientGetFlagsMethodInfo
ResolveDBusObjectManagerClientMethod "getInterface" o = Gio.DBusObjectManager.DBusObjectManagerGetInterfaceMethodInfo
ResolveDBusObjectManagerClientMethod "getName" o = DBusObjectManagerClientGetNameMethodInfo
ResolveDBusObjectManagerClientMethod "getNameOwner" o = DBusObjectManagerClientGetNameOwnerMethodInfo
ResolveDBusObjectManagerClientMethod "getObject" o = Gio.DBusObjectManager.DBusObjectManagerGetObjectMethodInfo
ResolveDBusObjectManagerClientMethod "getObjectPath" o = Gio.DBusObjectManager.DBusObjectManagerGetObjectPathMethodInfo
ResolveDBusObjectManagerClientMethod "getObjects" o = Gio.DBusObjectManager.DBusObjectManagerGetObjectsMethodInfo
ResolveDBusObjectManagerClientMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDBusObjectManagerClientMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDBusObjectManagerClientMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDBusObjectManagerClientMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDBusObjectManagerClientMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDBusObjectManagerClientMethod t DBusObjectManagerClient, O.MethodInfo info DBusObjectManagerClient p) => O.IsLabelProxy t (DBusObjectManagerClient -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDBusObjectManagerClientMethod t DBusObjectManagerClient, O.MethodInfo info DBusObjectManagerClient p) => O.IsLabel t (DBusObjectManagerClient -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback =
Gio.DBusObjectProxy.DBusObjectProxy ->
Gio.DBusProxy.DBusProxy ->
GVariant ->
[T.Text] ->
IO ()
noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback :: Maybe DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback = Nothing
type C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback =
Ptr () ->
Ptr Gio.DBusObjectProxy.DBusObjectProxy ->
Ptr Gio.DBusProxy.DBusProxy ->
Ptr GVariant ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback :: C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> IO (FunPtr C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback)
genClosure_DBusObjectManagerClientInterfaceProxyPropertiesChanged :: DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> IO Closure
genClosure_DBusObjectManagerClientInterfaceProxyPropertiesChanged cb = do
let cb' = wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb
mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb' >>= newCClosure
wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback ::
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback ->
Ptr () ->
Ptr Gio.DBusObjectProxy.DBusObjectProxy ->
Ptr Gio.DBusProxy.DBusProxy ->
Ptr GVariant ->
Ptr CString ->
Ptr () ->
IO ()
wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback _cb _ objectProxy interfaceProxy changedProperties invalidatedProperties _ = do
objectProxy' <- (newObject Gio.DBusObjectProxy.DBusObjectProxy) objectProxy
interfaceProxy' <- (newObject Gio.DBusProxy.DBusProxy) interfaceProxy
changedProperties' <- newGVariantFromPtr changedProperties
invalidatedProperties' <- unpackZeroTerminatedUTF8CArray invalidatedProperties
_cb objectProxy' interfaceProxy' changedProperties' invalidatedProperties'
onDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (IsDBusObjectManagerClient a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> m SignalHandlerId
onDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb = liftIO $ do
let cb' = wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb
cb'' <- mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb'
connectSignalFunPtr obj "interface-proxy-properties-changed" cb'' SignalConnectBefore
afterDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (IsDBusObjectManagerClient a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> m SignalHandlerId
afterDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb = liftIO $ do
let cb' = wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb
cb'' <- mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb'
connectSignalFunPtr obj "interface-proxy-properties-changed" cb'' SignalConnectAfter
type DBusObjectManagerClientInterfaceProxySignalCallback =
Gio.DBusObjectProxy.DBusObjectProxy ->
Gio.DBusProxy.DBusProxy ->
T.Text ->
T.Text ->
GVariant ->
IO ()
noDBusObjectManagerClientInterfaceProxySignalCallback :: Maybe DBusObjectManagerClientInterfaceProxySignalCallback
noDBusObjectManagerClientInterfaceProxySignalCallback = Nothing
type C_DBusObjectManagerClientInterfaceProxySignalCallback =
Ptr () ->
Ptr Gio.DBusObjectProxy.DBusObjectProxy ->
Ptr Gio.DBusProxy.DBusProxy ->
CString ->
CString ->
Ptr GVariant ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DBusObjectManagerClientInterfaceProxySignalCallback :: C_DBusObjectManagerClientInterfaceProxySignalCallback -> IO (FunPtr C_DBusObjectManagerClientInterfaceProxySignalCallback)
genClosure_DBusObjectManagerClientInterfaceProxySignal :: DBusObjectManagerClientInterfaceProxySignalCallback -> IO Closure
genClosure_DBusObjectManagerClientInterfaceProxySignal cb = do
let cb' = wrap_DBusObjectManagerClientInterfaceProxySignalCallback cb
mk_DBusObjectManagerClientInterfaceProxySignalCallback cb' >>= newCClosure
wrap_DBusObjectManagerClientInterfaceProxySignalCallback ::
DBusObjectManagerClientInterfaceProxySignalCallback ->
Ptr () ->
Ptr Gio.DBusObjectProxy.DBusObjectProxy ->
Ptr Gio.DBusProxy.DBusProxy ->
CString ->
CString ->
Ptr GVariant ->
Ptr () ->
IO ()
wrap_DBusObjectManagerClientInterfaceProxySignalCallback _cb _ objectProxy interfaceProxy senderName signalName parameters _ = do
objectProxy' <- (newObject Gio.DBusObjectProxy.DBusObjectProxy) objectProxy
interfaceProxy' <- (newObject Gio.DBusProxy.DBusProxy) interfaceProxy
senderName' <- cstringToText senderName
signalName' <- cstringToText signalName
parameters' <- newGVariantFromPtr parameters
_cb objectProxy' interfaceProxy' senderName' signalName' parameters'
onDBusObjectManagerClientInterfaceProxySignal :: (IsDBusObjectManagerClient a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxySignalCallback -> m SignalHandlerId
onDBusObjectManagerClientInterfaceProxySignal obj cb = liftIO $ do
let cb' = wrap_DBusObjectManagerClientInterfaceProxySignalCallback cb
cb'' <- mk_DBusObjectManagerClientInterfaceProxySignalCallback cb'
connectSignalFunPtr obj "interface-proxy-signal" cb'' SignalConnectBefore
afterDBusObjectManagerClientInterfaceProxySignal :: (IsDBusObjectManagerClient a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxySignalCallback -> m SignalHandlerId
afterDBusObjectManagerClientInterfaceProxySignal obj cb = liftIO $ do
let cb' = wrap_DBusObjectManagerClientInterfaceProxySignalCallback cb
cb'' <- mk_DBusObjectManagerClientInterfaceProxySignalCallback cb'
connectSignalFunPtr obj "interface-proxy-signal" cb'' SignalConnectAfter
constructDBusObjectManagerClientBusType :: (IsDBusObjectManagerClient o) => Gio.Enums.BusType -> IO (GValueConstruct o)
constructDBusObjectManagerClientBusType val = constructObjectPropertyEnum "bus-type" val
data DBusObjectManagerClientBusTypePropertyInfo
instance AttrInfo DBusObjectManagerClientBusTypePropertyInfo where
type AttrAllowedOps DBusObjectManagerClientBusTypePropertyInfo = '[ 'AttrConstruct]
type AttrSetTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = (~) Gio.Enums.BusType
type AttrBaseTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = IsDBusObjectManagerClient
type AttrGetType DBusObjectManagerClientBusTypePropertyInfo = ()
type AttrLabel DBusObjectManagerClientBusTypePropertyInfo = "bus-type"
type AttrOrigin DBusObjectManagerClientBusTypePropertyInfo = DBusObjectManagerClient
attrGet _ = undefined
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientBusType
attrClear _ = undefined
getDBusObjectManagerClientConnection :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m Gio.DBusConnection.DBusConnection
getDBusObjectManagerClientConnection obj = liftIO $ checkUnexpectedNothing "getDBusObjectManagerClientConnection" $ getObjectPropertyObject obj "connection" Gio.DBusConnection.DBusConnection
constructDBusObjectManagerClientConnection :: (IsDBusObjectManagerClient o, Gio.DBusConnection.IsDBusConnection a) => a -> IO (GValueConstruct o)
constructDBusObjectManagerClientConnection val = constructObjectPropertyObject "connection" (Just val)
data DBusObjectManagerClientConnectionPropertyInfo
instance AttrInfo DBusObjectManagerClientConnectionPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = Gio.DBusConnection.IsDBusConnection
type AttrBaseTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = IsDBusObjectManagerClient
type AttrGetType DBusObjectManagerClientConnectionPropertyInfo = Gio.DBusConnection.DBusConnection
type AttrLabel DBusObjectManagerClientConnectionPropertyInfo = "connection"
type AttrOrigin DBusObjectManagerClientConnectionPropertyInfo = DBusObjectManagerClient
attrGet _ = getDBusObjectManagerClientConnection
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientConnection
attrClear _ = undefined
getDBusObjectManagerClientFlags :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m [Gio.Flags.DBusObjectManagerClientFlags]
getDBusObjectManagerClientFlags obj = liftIO $ getObjectPropertyFlags obj "flags"
constructDBusObjectManagerClientFlags :: (IsDBusObjectManagerClient o) => [Gio.Flags.DBusObjectManagerClientFlags] -> IO (GValueConstruct o)
constructDBusObjectManagerClientFlags val = constructObjectPropertyFlags "flags" val
data DBusObjectManagerClientFlagsPropertyInfo
instance AttrInfo DBusObjectManagerClientFlagsPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = (~) [Gio.Flags.DBusObjectManagerClientFlags]
type AttrBaseTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = IsDBusObjectManagerClient
type AttrGetType DBusObjectManagerClientFlagsPropertyInfo = [Gio.Flags.DBusObjectManagerClientFlags]
type AttrLabel DBusObjectManagerClientFlagsPropertyInfo = "flags"
type AttrOrigin DBusObjectManagerClientFlagsPropertyInfo = DBusObjectManagerClient
attrGet _ = getDBusObjectManagerClientFlags
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientFlags
attrClear _ = undefined
getDBusObjectManagerClientGetProxyTypeDestroyNotify :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Ptr ())
getDBusObjectManagerClientGetProxyTypeDestroyNotify obj = liftIO $ getObjectPropertyPtr obj "get-proxy-type-destroy-notify"
constructDBusObjectManagerClientGetProxyTypeDestroyNotify :: (IsDBusObjectManagerClient o) => Ptr () -> IO (GValueConstruct o)
constructDBusObjectManagerClientGetProxyTypeDestroyNotify val = constructObjectPropertyPtr "get-proxy-type-destroy-notify" val
data DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo
instance AttrInfo DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (~) (Ptr ())
type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = IsDBusObjectManagerClient
type AttrGetType DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (Ptr ())
type AttrLabel DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = "get-proxy-type-destroy-notify"
type AttrOrigin DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = DBusObjectManagerClient
attrGet _ = getDBusObjectManagerClientGetProxyTypeDestroyNotify
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeDestroyNotify
attrClear _ = undefined
getDBusObjectManagerClientGetProxyTypeFunc :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Ptr ())
getDBusObjectManagerClientGetProxyTypeFunc obj = liftIO $ getObjectPropertyPtr obj "get-proxy-type-func"
constructDBusObjectManagerClientGetProxyTypeFunc :: (IsDBusObjectManagerClient o) => Ptr () -> IO (GValueConstruct o)
constructDBusObjectManagerClientGetProxyTypeFunc val = constructObjectPropertyPtr "get-proxy-type-func" val
data DBusObjectManagerClientGetProxyTypeFuncPropertyInfo
instance AttrInfo DBusObjectManagerClientGetProxyTypeFuncPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (~) (Ptr ())
type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = IsDBusObjectManagerClient
type AttrGetType DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (Ptr ())
type AttrLabel DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = "get-proxy-type-func"
type AttrOrigin DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = DBusObjectManagerClient
attrGet _ = getDBusObjectManagerClientGetProxyTypeFunc
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeFunc
attrClear _ = undefined
getDBusObjectManagerClientGetProxyTypeUserData :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Ptr ())
getDBusObjectManagerClientGetProxyTypeUserData obj = liftIO $ getObjectPropertyPtr obj "get-proxy-type-user-data"
constructDBusObjectManagerClientGetProxyTypeUserData :: (IsDBusObjectManagerClient o) => Ptr () -> IO (GValueConstruct o)
constructDBusObjectManagerClientGetProxyTypeUserData val = constructObjectPropertyPtr "get-proxy-type-user-data" val
data DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo
instance AttrInfo DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (~) (Ptr ())
type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = IsDBusObjectManagerClient
type AttrGetType DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (Ptr ())
type AttrLabel DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = "get-proxy-type-user-data"
type AttrOrigin DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = DBusObjectManagerClient
attrGet _ = getDBusObjectManagerClientGetProxyTypeUserData
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeUserData
attrClear _ = undefined
getDBusObjectManagerClientName :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m T.Text
getDBusObjectManagerClientName obj = liftIO $ checkUnexpectedNothing "getDBusObjectManagerClientName" $ getObjectPropertyString obj "name"
constructDBusObjectManagerClientName :: (IsDBusObjectManagerClient o) => T.Text -> IO (GValueConstruct o)
constructDBusObjectManagerClientName val = constructObjectPropertyString "name" (Just val)
data DBusObjectManagerClientNamePropertyInfo
instance AttrInfo DBusObjectManagerClientNamePropertyInfo where
type AttrAllowedOps DBusObjectManagerClientNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusObjectManagerClientNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DBusObjectManagerClientNamePropertyInfo = IsDBusObjectManagerClient
type AttrGetType DBusObjectManagerClientNamePropertyInfo = T.Text
type AttrLabel DBusObjectManagerClientNamePropertyInfo = "name"
type AttrOrigin DBusObjectManagerClientNamePropertyInfo = DBusObjectManagerClient
attrGet _ = getDBusObjectManagerClientName
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientName
attrClear _ = undefined
getDBusObjectManagerClientNameOwner :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Maybe T.Text)
getDBusObjectManagerClientNameOwner obj = liftIO $ getObjectPropertyString obj "name-owner"
data DBusObjectManagerClientNameOwnerPropertyInfo
instance AttrInfo DBusObjectManagerClientNameOwnerPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientNameOwnerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = (~) ()
type AttrBaseTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = IsDBusObjectManagerClient
type AttrGetType DBusObjectManagerClientNameOwnerPropertyInfo = (Maybe T.Text)
type AttrLabel DBusObjectManagerClientNameOwnerPropertyInfo = "name-owner"
type AttrOrigin DBusObjectManagerClientNameOwnerPropertyInfo = DBusObjectManagerClient
attrGet _ = getDBusObjectManagerClientNameOwner
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDBusObjectManagerClientObjectPath :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Maybe T.Text)
getDBusObjectManagerClientObjectPath obj = liftIO $ getObjectPropertyString obj "object-path"
constructDBusObjectManagerClientObjectPath :: (IsDBusObjectManagerClient o) => T.Text -> IO (GValueConstruct o)
constructDBusObjectManagerClientObjectPath val = constructObjectPropertyString "object-path" (Just val)
data DBusObjectManagerClientObjectPathPropertyInfo
instance AttrInfo DBusObjectManagerClientObjectPathPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = IsDBusObjectManagerClient
type AttrGetType DBusObjectManagerClientObjectPathPropertyInfo = (Maybe T.Text)
type AttrLabel DBusObjectManagerClientObjectPathPropertyInfo = "object-path"
type AttrOrigin DBusObjectManagerClientObjectPathPropertyInfo = DBusObjectManagerClient
attrGet _ = getDBusObjectManagerClientObjectPath
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientObjectPath
attrClear _ = undefined
instance O.HasAttributeList DBusObjectManagerClient
type instance O.AttributeList DBusObjectManagerClient = DBusObjectManagerClientAttributeList
type DBusObjectManagerClientAttributeList = ('[ '("busType", DBusObjectManagerClientBusTypePropertyInfo), '("connection", DBusObjectManagerClientConnectionPropertyInfo), '("flags", DBusObjectManagerClientFlagsPropertyInfo), '("getProxyTypeDestroyNotify", DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo), '("getProxyTypeFunc", DBusObjectManagerClientGetProxyTypeFuncPropertyInfo), '("getProxyTypeUserData", DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo), '("name", DBusObjectManagerClientNamePropertyInfo), '("nameOwner", DBusObjectManagerClientNameOwnerPropertyInfo), '("objectPath", DBusObjectManagerClientObjectPathPropertyInfo)] :: [(Symbol, *)])
dBusObjectManagerClientBusType :: AttrLabelProxy "busType"
dBusObjectManagerClientBusType = AttrLabelProxy
dBusObjectManagerClientConnection :: AttrLabelProxy "connection"
dBusObjectManagerClientConnection = AttrLabelProxy
dBusObjectManagerClientFlags :: AttrLabelProxy "flags"
dBusObjectManagerClientFlags = AttrLabelProxy
dBusObjectManagerClientGetProxyTypeDestroyNotify :: AttrLabelProxy "getProxyTypeDestroyNotify"
dBusObjectManagerClientGetProxyTypeDestroyNotify = AttrLabelProxy
dBusObjectManagerClientGetProxyTypeFunc :: AttrLabelProxy "getProxyTypeFunc"
dBusObjectManagerClientGetProxyTypeFunc = AttrLabelProxy
dBusObjectManagerClientGetProxyTypeUserData :: AttrLabelProxy "getProxyTypeUserData"
dBusObjectManagerClientGetProxyTypeUserData = AttrLabelProxy
dBusObjectManagerClientName :: AttrLabelProxy "name"
dBusObjectManagerClientName = AttrLabelProxy
dBusObjectManagerClientNameOwner :: AttrLabelProxy "nameOwner"
dBusObjectManagerClientNameOwner = AttrLabelProxy
dBusObjectManagerClientObjectPath :: AttrLabelProxy "objectPath"
dBusObjectManagerClientObjectPath = AttrLabelProxy
data DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo
instance SignalInfo DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo where
type HaskellCallbackType DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo = DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb
cb'' <- mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb'
connectSignalFunPtr obj "interface-proxy-properties-changed" cb'' connectMode
data DBusObjectManagerClientInterfaceProxySignalSignalInfo
instance SignalInfo DBusObjectManagerClientInterfaceProxySignalSignalInfo where
type HaskellCallbackType DBusObjectManagerClientInterfaceProxySignalSignalInfo = DBusObjectManagerClientInterfaceProxySignalCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_DBusObjectManagerClientInterfaceProxySignalCallback cb
cb'' <- mk_DBusObjectManagerClientInterfaceProxySignalCallback cb'
connectSignalFunPtr obj "interface-proxy-signal" cb'' connectMode
type instance O.SignalList DBusObjectManagerClient = DBusObjectManagerClientSignalList
type DBusObjectManagerClientSignalList = ('[ '("interfaceAdded", Gio.DBusObjectManager.DBusObjectManagerInterfaceAddedSignalInfo), '("interfaceProxyPropertiesChanged", DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo), '("interfaceProxySignal", DBusObjectManagerClientInterfaceProxySignalSignalInfo), '("interfaceRemoved", Gio.DBusObjectManager.DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("objectAdded", Gio.DBusObjectManager.DBusObjectManagerObjectAddedSignalInfo), '("objectRemoved", Gio.DBusObjectManager.DBusObjectManagerObjectRemovedSignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_dbus_object_manager_client_new_finish" g_dbus_object_manager_client_new_finish ::
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr DBusObjectManagerClient)
dBusObjectManagerClientNewFinish ::
(B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>
a
-> m DBusObjectManagerClient
dBusObjectManagerClientNewFinish res = liftIO $ do
res' <- unsafeManagedPtrCastPtr res
onException (do
result <- propagateGError $ g_dbus_object_manager_client_new_finish res'
checkUnexpectedReturnNULL "dBusObjectManagerClientNewFinish" result
result' <- (wrapObject DBusObjectManagerClient) result
touchManagedPtr res
return result'
) (do
return ()
)
foreign import ccall "g_dbus_object_manager_client_new_for_bus_finish" g_dbus_object_manager_client_new_for_bus_finish ::
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr DBusObjectManagerClient)
dBusObjectManagerClientNewForBusFinish ::
(B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>
a
-> m DBusObjectManagerClient
dBusObjectManagerClientNewForBusFinish res = liftIO $ do
res' <- unsafeManagedPtrCastPtr res
onException (do
result <- propagateGError $ g_dbus_object_manager_client_new_for_bus_finish res'
checkUnexpectedReturnNULL "dBusObjectManagerClientNewForBusFinish" result
result' <- (wrapObject DBusObjectManagerClient) result
touchManagedPtr res
return result'
) (do
return ()
)
foreign import ccall "g_dbus_object_manager_client_new_for_bus_sync" g_dbus_object_manager_client_new_for_bus_sync ::
CUInt ->
CUInt ->
CString ->
CString ->
FunPtr Gio.Callbacks.C_DBusProxyTypeFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr DBusObjectManagerClient)
dBusObjectManagerClientNewForBusSync ::
(B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>
Gio.Enums.BusType
-> [Gio.Flags.DBusObjectManagerClientFlags]
-> T.Text
-> T.Text
-> Maybe (Gio.Callbacks.DBusProxyTypeFunc)
-> Maybe (a)
-> m DBusObjectManagerClient
dBusObjectManagerClientNewForBusSync busType flags name objectPath getProxyTypeFunc cancellable = liftIO $ do
let busType' = (fromIntegral . fromEnum) busType
let flags' = gflagsToWord flags
name' <- textToCString name
objectPath' <- textToCString objectPath
maybeGetProxyTypeFunc <- case getProxyTypeFunc of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jGetProxyTypeFunc -> do
jGetProxyTypeFunc' <- Gio.Callbacks.mk_DBusProxyTypeFunc (Gio.Callbacks.wrap_DBusProxyTypeFunc Nothing (Gio.Callbacks.drop_closures_DBusProxyTypeFunc jGetProxyTypeFunc))
return jGetProxyTypeFunc'
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
let getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc
let getProxyTypeDestroyNotify = safeFreeFunPtrPtr
onException (do
result <- propagateGError $ g_dbus_object_manager_client_new_for_bus_sync busType' flags' name' objectPath' maybeGetProxyTypeFunc getProxyTypeUserData getProxyTypeDestroyNotify maybeCancellable
checkUnexpectedReturnNULL "dBusObjectManagerClientNewForBusSync" result
result' <- (wrapObject DBusObjectManagerClient) result
whenJust cancellable touchManagedPtr
freeMem name'
freeMem objectPath'
return result'
) (do
freeMem name'
freeMem objectPath'
)
foreign import ccall "g_dbus_object_manager_client_new_sync" g_dbus_object_manager_client_new_sync ::
Ptr Gio.DBusConnection.DBusConnection ->
CUInt ->
CString ->
CString ->
FunPtr Gio.Callbacks.C_DBusProxyTypeFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr DBusObjectManagerClient)
dBusObjectManagerClientNewSync ::
(B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>
a
-> [Gio.Flags.DBusObjectManagerClientFlags]
-> Maybe (T.Text)
-> T.Text
-> Maybe (Gio.Callbacks.DBusProxyTypeFunc)
-> Maybe (b)
-> m DBusObjectManagerClient
dBusObjectManagerClientNewSync connection flags name objectPath getProxyTypeFunc cancellable = liftIO $ do
connection' <- unsafeManagedPtrCastPtr connection
let flags' = gflagsToWord flags
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
objectPath' <- textToCString objectPath
maybeGetProxyTypeFunc <- case getProxyTypeFunc of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jGetProxyTypeFunc -> do
jGetProxyTypeFunc' <- Gio.Callbacks.mk_DBusProxyTypeFunc (Gio.Callbacks.wrap_DBusProxyTypeFunc Nothing (Gio.Callbacks.drop_closures_DBusProxyTypeFunc jGetProxyTypeFunc))
return jGetProxyTypeFunc'
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
let getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc
let getProxyTypeDestroyNotify = safeFreeFunPtrPtr
onException (do
result <- propagateGError $ g_dbus_object_manager_client_new_sync connection' flags' maybeName objectPath' maybeGetProxyTypeFunc getProxyTypeUserData getProxyTypeDestroyNotify maybeCancellable
checkUnexpectedReturnNULL "dBusObjectManagerClientNewSync" result
result' <- (wrapObject DBusObjectManagerClient) result
touchManagedPtr connection
whenJust cancellable touchManagedPtr
freeMem maybeName
freeMem objectPath'
return result'
) (do
freeMem maybeName
freeMem objectPath'
)
foreign import ccall "g_dbus_object_manager_client_get_connection" g_dbus_object_manager_client_get_connection ::
Ptr DBusObjectManagerClient ->
IO (Ptr Gio.DBusConnection.DBusConnection)
dBusObjectManagerClientGetConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerClient a) =>
a
-> m Gio.DBusConnection.DBusConnection
dBusObjectManagerClientGetConnection manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- g_dbus_object_manager_client_get_connection manager'
checkUnexpectedReturnNULL "dBusObjectManagerClientGetConnection" result
result' <- (newObject Gio.DBusConnection.DBusConnection) result
touchManagedPtr manager
return result'
data DBusObjectManagerClientGetConnectionMethodInfo
instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusObjectManagerClient a) => O.MethodInfo DBusObjectManagerClientGetConnectionMethodInfo a signature where
overloadedMethod _ = dBusObjectManagerClientGetConnection
foreign import ccall "g_dbus_object_manager_client_get_flags" g_dbus_object_manager_client_get_flags ::
Ptr DBusObjectManagerClient ->
IO CUInt
dBusObjectManagerClientGetFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerClient a) =>
a
-> m [Gio.Flags.DBusObjectManagerClientFlags]
dBusObjectManagerClientGetFlags manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- g_dbus_object_manager_client_get_flags manager'
let result' = wordToGFlags result
touchManagedPtr manager
return result'
data DBusObjectManagerClientGetFlagsMethodInfo
instance (signature ~ (m [Gio.Flags.DBusObjectManagerClientFlags]), MonadIO m, IsDBusObjectManagerClient a) => O.MethodInfo DBusObjectManagerClientGetFlagsMethodInfo a signature where
overloadedMethod _ = dBusObjectManagerClientGetFlags
foreign import ccall "g_dbus_object_manager_client_get_name" g_dbus_object_manager_client_get_name ::
Ptr DBusObjectManagerClient ->
IO CString
dBusObjectManagerClientGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerClient a) =>
a
-> m T.Text
dBusObjectManagerClientGetName manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- g_dbus_object_manager_client_get_name manager'
checkUnexpectedReturnNULL "dBusObjectManagerClientGetName" result
result' <- cstringToText result
touchManagedPtr manager
return result'
data DBusObjectManagerClientGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusObjectManagerClient a) => O.MethodInfo DBusObjectManagerClientGetNameMethodInfo a signature where
overloadedMethod _ = dBusObjectManagerClientGetName
foreign import ccall "g_dbus_object_manager_client_get_name_owner" g_dbus_object_manager_client_get_name_owner ::
Ptr DBusObjectManagerClient ->
IO CString
dBusObjectManagerClientGetNameOwner ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerClient a) =>
a
-> m (Maybe T.Text)
dBusObjectManagerClientGetNameOwner manager = liftIO $ do
manager' <- unsafeManagedPtrCastPtr manager
result <- g_dbus_object_manager_client_get_name_owner manager'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
freeMem result'
return result''
touchManagedPtr manager
return maybeResult
data DBusObjectManagerClientGetNameOwnerMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDBusObjectManagerClient a) => O.MethodInfo DBusObjectManagerClientGetNameOwnerMethodInfo a signature where
overloadedMethod _ = dBusObjectManagerClientGetNameOwner
foreign import ccall "g_dbus_object_manager_client_new" g_dbus_object_manager_client_new ::
Ptr Gio.DBusConnection.DBusConnection ->
CUInt ->
CString ->
CString ->
FunPtr Gio.Callbacks.C_DBusProxyTypeFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
dBusObjectManagerClientNew ::
(B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>
a
-> [Gio.Flags.DBusObjectManagerClientFlags]
-> T.Text
-> T.Text
-> Maybe (Gio.Callbacks.DBusProxyTypeFunc)
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
dBusObjectManagerClientNew connection flags name objectPath getProxyTypeFunc cancellable callback = liftIO $ do
connection' <- unsafeManagedPtrCastPtr connection
let flags' = gflagsToWord flags
name' <- textToCString name
objectPath' <- textToCString objectPath
maybeGetProxyTypeFunc <- case getProxyTypeFunc of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jGetProxyTypeFunc -> do
jGetProxyTypeFunc' <- Gio.Callbacks.mk_DBusProxyTypeFunc (Gio.Callbacks.wrap_DBusProxyTypeFunc Nothing (Gio.Callbacks.drop_closures_DBusProxyTypeFunc jGetProxyTypeFunc))
return jGetProxyTypeFunc'
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc
let getProxyTypeDestroyNotify = safeFreeFunPtrPtr
let userData = nullPtr
g_dbus_object_manager_client_new connection' flags' name' objectPath' maybeGetProxyTypeFunc getProxyTypeUserData getProxyTypeDestroyNotify maybeCancellable maybeCallback userData
touchManagedPtr connection
whenJust cancellable touchManagedPtr
freeMem name'
freeMem objectPath'
return ()
foreign import ccall "g_dbus_object_manager_client_new_for_bus" g_dbus_object_manager_client_new_for_bus ::
CUInt ->
CUInt ->
CString ->
CString ->
FunPtr Gio.Callbacks.C_DBusProxyTypeFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
dBusObjectManagerClientNewForBus ::
(B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>
Gio.Enums.BusType
-> [Gio.Flags.DBusObjectManagerClientFlags]
-> T.Text
-> T.Text
-> Maybe (Gio.Callbacks.DBusProxyTypeFunc)
-> Maybe (a)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
dBusObjectManagerClientNewForBus busType flags name objectPath getProxyTypeFunc cancellable callback = liftIO $ do
let busType' = (fromIntegral . fromEnum) busType
let flags' = gflagsToWord flags
name' <- textToCString name
objectPath' <- textToCString objectPath
maybeGetProxyTypeFunc <- case getProxyTypeFunc of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jGetProxyTypeFunc -> do
jGetProxyTypeFunc' <- Gio.Callbacks.mk_DBusProxyTypeFunc (Gio.Callbacks.wrap_DBusProxyTypeFunc Nothing (Gio.Callbacks.drop_closures_DBusProxyTypeFunc jGetProxyTypeFunc))
return jGetProxyTypeFunc'
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc
let getProxyTypeDestroyNotify = safeFreeFunPtrPtr
let userData = nullPtr
g_dbus_object_manager_client_new_for_bus busType' flags' name' objectPath' maybeGetProxyTypeFunc getProxyTypeUserData getProxyTypeDestroyNotify maybeCancellable maybeCallback userData
whenJust cancellable touchManagedPtr
freeMem name'
freeMem objectPath'
return ()