module GI.Gio.Objects.DBusObjectManagerClient
(
DBusObjectManagerClient(..) ,
DBusObjectManagerClientK ,
toDBusObjectManagerClient ,
noDBusObjectManagerClient ,
dBusObjectManagerClientGetConnection ,
dBusObjectManagerClientGetFlags ,
dBusObjectManagerClientGetName ,
dBusObjectManagerClientGetNameOwner ,
dBusObjectManagerClientNew ,
dBusObjectManagerClientNewFinish ,
dBusObjectManagerClientNewForBus ,
dBusObjectManagerClientNewForBusFinish ,
dBusObjectManagerClientNewForBusSync ,
dBusObjectManagerClientNewSync ,
DBusObjectManagerClientBusTypePropertyInfo,
constructDBusObjectManagerClientBusType ,
DBusObjectManagerClientConnectionPropertyInfo,
constructDBusObjectManagerClientConnection,
getDBusObjectManagerClientConnection ,
DBusObjectManagerClientFlagsPropertyInfo,
constructDBusObjectManagerClientFlags ,
getDBusObjectManagerClientFlags ,
DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo,
constructDBusObjectManagerClientGetProxyTypeDestroyNotify,
getDBusObjectManagerClientGetProxyTypeDestroyNotify,
DBusObjectManagerClientGetProxyTypeFuncPropertyInfo,
constructDBusObjectManagerClientGetProxyTypeFunc,
getDBusObjectManagerClientGetProxyTypeFunc,
DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo,
constructDBusObjectManagerClientGetProxyTypeUserData,
getDBusObjectManagerClientGetProxyTypeUserData,
DBusObjectManagerClientNamePropertyInfo ,
constructDBusObjectManagerClientName ,
getDBusObjectManagerClientName ,
DBusObjectManagerClientNameOwnerPropertyInfo,
getDBusObjectManagerClientNameOwner ,
DBusObjectManagerClientObjectPathPropertyInfo,
constructDBusObjectManagerClientObjectPath,
getDBusObjectManagerClientObjectPath ,
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackC,
DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo,
afterDBusObjectManagerClientInterfaceProxyPropertiesChanged,
dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper,
dBusObjectManagerClientInterfaceProxyPropertiesChangedClosure,
mkDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,
noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,
onDBusObjectManagerClientInterfaceProxyPropertiesChanged,
DBusObjectManagerClientInterfaceProxySignalCallback,
DBusObjectManagerClientInterfaceProxySignalCallbackC,
DBusObjectManagerClientInterfaceProxySignalSignalInfo,
afterDBusObjectManagerClientInterfaceProxySignal,
dBusObjectManagerClientInterfaceProxySignalCallbackWrapper,
dBusObjectManagerClientInterfaceProxySignalClosure,
mkDBusObjectManagerClientInterfaceProxySignalCallback,
noDBusObjectManagerClientInterfaceProxySignalCallback,
onDBusObjectManagerClientInterfaceProxySignal,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gio.Types
import GI.Gio.Callbacks
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
newtype DBusObjectManagerClient = DBusObjectManagerClient (ForeignPtr DBusObjectManagerClient)
foreign import ccall "g_dbus_object_manager_client_get_type"
c_g_dbus_object_manager_client_get_type :: IO GType
type instance ParentTypes DBusObjectManagerClient = DBusObjectManagerClientParentTypes
type DBusObjectManagerClientParentTypes = '[GObject.Object, AsyncInitable, DBusObjectManager, Initable]
instance GObject DBusObjectManagerClient where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_dbus_object_manager_client_get_type
class GObject o => DBusObjectManagerClientK o
instance (GObject o, IsDescendantOf DBusObjectManagerClient o) => DBusObjectManagerClientK o
toDBusObjectManagerClient :: DBusObjectManagerClientK o => o -> IO DBusObjectManagerClient
toDBusObjectManagerClient = unsafeCastTo DBusObjectManagerClient
noDBusObjectManagerClient :: Maybe DBusObjectManagerClient
noDBusObjectManagerClient = Nothing
type DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback =
DBusObjectProxy ->
DBusProxy ->
GVariant ->
[T.Text] ->
IO ()
noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback :: Maybe DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback = Nothing
type DBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackC =
Ptr () ->
Ptr DBusObjectProxy ->
Ptr DBusProxy ->
Ptr GVariant ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback :: DBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackC -> IO (FunPtr DBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackC)
dBusObjectManagerClientInterfaceProxyPropertiesChangedClosure :: DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> IO Closure
dBusObjectManagerClientInterfaceProxyPropertiesChangedClosure cb = newCClosure =<< mkDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback wrapped
where wrapped = dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper cb
dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper ::
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback ->
Ptr () ->
Ptr DBusObjectProxy ->
Ptr DBusProxy ->
Ptr GVariant ->
Ptr CString ->
Ptr () ->
IO ()
dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper _cb _ object_proxy interface_proxy changed_properties invalidated_properties _ = do
object_proxy' <- (newObject DBusObjectProxy) object_proxy
interface_proxy' <- (newObject DBusProxy) interface_proxy
changed_properties' <- newGVariantFromPtr changed_properties
invalidated_properties' <- unpackZeroTerminatedUTF8CArray invalidated_properties
_cb object_proxy' interface_proxy' changed_properties' invalidated_properties'
onDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> m SignalHandlerId
onDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb = liftIO $ connectDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb SignalConnectBefore
afterDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> m SignalHandlerId
afterDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb = connectDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb SignalConnectAfter
connectDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (GObject a, MonadIO m) =>
a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb after = liftIO $ do
cb' <- mkDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback (dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper cb)
connectSignalFunPtr obj "interface-proxy-properties-changed" cb' after
type DBusObjectManagerClientInterfaceProxySignalCallback =
DBusObjectProxy ->
DBusProxy ->
T.Text ->
T.Text ->
GVariant ->
IO ()
noDBusObjectManagerClientInterfaceProxySignalCallback :: Maybe DBusObjectManagerClientInterfaceProxySignalCallback
noDBusObjectManagerClientInterfaceProxySignalCallback = Nothing
type DBusObjectManagerClientInterfaceProxySignalCallbackC =
Ptr () ->
Ptr DBusObjectProxy ->
Ptr DBusProxy ->
CString ->
CString ->
Ptr GVariant ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkDBusObjectManagerClientInterfaceProxySignalCallback :: DBusObjectManagerClientInterfaceProxySignalCallbackC -> IO (FunPtr DBusObjectManagerClientInterfaceProxySignalCallbackC)
dBusObjectManagerClientInterfaceProxySignalClosure :: DBusObjectManagerClientInterfaceProxySignalCallback -> IO Closure
dBusObjectManagerClientInterfaceProxySignalClosure cb = newCClosure =<< mkDBusObjectManagerClientInterfaceProxySignalCallback wrapped
where wrapped = dBusObjectManagerClientInterfaceProxySignalCallbackWrapper cb
dBusObjectManagerClientInterfaceProxySignalCallbackWrapper ::
DBusObjectManagerClientInterfaceProxySignalCallback ->
Ptr () ->
Ptr DBusObjectProxy ->
Ptr DBusProxy ->
CString ->
CString ->
Ptr GVariant ->
Ptr () ->
IO ()
dBusObjectManagerClientInterfaceProxySignalCallbackWrapper _cb _ object_proxy interface_proxy sender_name signal_name parameters _ = do
object_proxy' <- (newObject DBusObjectProxy) object_proxy
interface_proxy' <- (newObject DBusProxy) interface_proxy
sender_name' <- cstringToText sender_name
signal_name' <- cstringToText signal_name
parameters' <- newGVariantFromPtr parameters
_cb object_proxy' interface_proxy' sender_name' signal_name' parameters'
onDBusObjectManagerClientInterfaceProxySignal :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxySignalCallback -> m SignalHandlerId
onDBusObjectManagerClientInterfaceProxySignal obj cb = liftIO $ connectDBusObjectManagerClientInterfaceProxySignal obj cb SignalConnectBefore
afterDBusObjectManagerClientInterfaceProxySignal :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxySignalCallback -> m SignalHandlerId
afterDBusObjectManagerClientInterfaceProxySignal obj cb = connectDBusObjectManagerClientInterfaceProxySignal obj cb SignalConnectAfter
connectDBusObjectManagerClientInterfaceProxySignal :: (GObject a, MonadIO m) =>
a -> DBusObjectManagerClientInterfaceProxySignalCallback -> SignalConnectMode -> m SignalHandlerId
connectDBusObjectManagerClientInterfaceProxySignal obj cb after = liftIO $ do
cb' <- mkDBusObjectManagerClientInterfaceProxySignalCallback (dBusObjectManagerClientInterfaceProxySignalCallbackWrapper cb)
connectSignalFunPtr obj "interface-proxy-signal" cb' after
constructDBusObjectManagerClientBusType :: BusType -> IO ([Char], GValue)
constructDBusObjectManagerClientBusType val = constructObjectPropertyEnum "bus-type" val
data DBusObjectManagerClientBusTypePropertyInfo
instance AttrInfo DBusObjectManagerClientBusTypePropertyInfo where
type AttrAllowedOps DBusObjectManagerClientBusTypePropertyInfo = '[ 'AttrConstruct]
type AttrSetTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = (~) BusType
type AttrBaseTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = DBusObjectManagerClientK
type AttrGetType DBusObjectManagerClientBusTypePropertyInfo = ()
type AttrLabel DBusObjectManagerClientBusTypePropertyInfo = "DBusObjectManagerClient::bus-type"
attrGet _ = undefined
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientBusType
getDBusObjectManagerClientConnection :: (MonadIO m, DBusObjectManagerClientK o) => o -> m DBusConnection
getDBusObjectManagerClientConnection obj = liftIO $ getObjectPropertyObject obj "connection" DBusConnection
constructDBusObjectManagerClientConnection :: (DBusConnectionK a) => a -> IO ([Char], GValue)
constructDBusObjectManagerClientConnection val = constructObjectPropertyObject "connection" val
data DBusObjectManagerClientConnectionPropertyInfo
instance AttrInfo DBusObjectManagerClientConnectionPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = DBusConnectionK
type AttrBaseTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = DBusObjectManagerClientK
type AttrGetType DBusObjectManagerClientConnectionPropertyInfo = DBusConnection
type AttrLabel DBusObjectManagerClientConnectionPropertyInfo = "DBusObjectManagerClient::connection"
attrGet _ = getDBusObjectManagerClientConnection
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientConnection
getDBusObjectManagerClientFlags :: (MonadIO m, DBusObjectManagerClientK o) => o -> m [DBusObjectManagerClientFlags]
getDBusObjectManagerClientFlags obj = liftIO $ getObjectPropertyFlags obj "flags"
constructDBusObjectManagerClientFlags :: [DBusObjectManagerClientFlags] -> IO ([Char], GValue)
constructDBusObjectManagerClientFlags val = constructObjectPropertyFlags "flags" val
data DBusObjectManagerClientFlagsPropertyInfo
instance AttrInfo DBusObjectManagerClientFlagsPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = (~) [DBusObjectManagerClientFlags]
type AttrBaseTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = DBusObjectManagerClientK
type AttrGetType DBusObjectManagerClientFlagsPropertyInfo = [DBusObjectManagerClientFlags]
type AttrLabel DBusObjectManagerClientFlagsPropertyInfo = "DBusObjectManagerClient::flags"
attrGet _ = getDBusObjectManagerClientFlags
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientFlags
getDBusObjectManagerClientGetProxyTypeDestroyNotify :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Ptr ())
getDBusObjectManagerClientGetProxyTypeDestroyNotify obj = liftIO $ getObjectPropertyPtr obj "get-proxy-type-destroy-notify"
constructDBusObjectManagerClientGetProxyTypeDestroyNotify :: (Ptr ()) -> IO ([Char], GValue)
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 = DBusObjectManagerClientK
type AttrGetType DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (Ptr ())
type AttrLabel DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = "DBusObjectManagerClient::get-proxy-type-destroy-notify"
attrGet _ = getDBusObjectManagerClientGetProxyTypeDestroyNotify
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeDestroyNotify
getDBusObjectManagerClientGetProxyTypeFunc :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Ptr ())
getDBusObjectManagerClientGetProxyTypeFunc obj = liftIO $ getObjectPropertyPtr obj "get-proxy-type-func"
constructDBusObjectManagerClientGetProxyTypeFunc :: (Ptr ()) -> IO ([Char], GValue)
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 = DBusObjectManagerClientK
type AttrGetType DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (Ptr ())
type AttrLabel DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = "DBusObjectManagerClient::get-proxy-type-func"
attrGet _ = getDBusObjectManagerClientGetProxyTypeFunc
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeFunc
getDBusObjectManagerClientGetProxyTypeUserData :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Ptr ())
getDBusObjectManagerClientGetProxyTypeUserData obj = liftIO $ getObjectPropertyPtr obj "get-proxy-type-user-data"
constructDBusObjectManagerClientGetProxyTypeUserData :: (Ptr ()) -> IO ([Char], GValue)
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 = DBusObjectManagerClientK
type AttrGetType DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (Ptr ())
type AttrLabel DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = "DBusObjectManagerClient::get-proxy-type-user-data"
attrGet _ = getDBusObjectManagerClientGetProxyTypeUserData
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeUserData
getDBusObjectManagerClientName :: (MonadIO m, DBusObjectManagerClientK o) => o -> m T.Text
getDBusObjectManagerClientName obj = liftIO $ getObjectPropertyString obj "name"
constructDBusObjectManagerClientName :: T.Text -> IO ([Char], GValue)
constructDBusObjectManagerClientName val = constructObjectPropertyString "name" val
data DBusObjectManagerClientNamePropertyInfo
instance AttrInfo DBusObjectManagerClientNamePropertyInfo where
type AttrAllowedOps DBusObjectManagerClientNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DBusObjectManagerClientNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DBusObjectManagerClientNamePropertyInfo = DBusObjectManagerClientK
type AttrGetType DBusObjectManagerClientNamePropertyInfo = T.Text
type AttrLabel DBusObjectManagerClientNamePropertyInfo = "DBusObjectManagerClient::name"
attrGet _ = getDBusObjectManagerClientName
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientName
getDBusObjectManagerClientNameOwner :: (MonadIO m, DBusObjectManagerClientK o) => o -> m T.Text
getDBusObjectManagerClientNameOwner obj = liftIO $ getObjectPropertyString obj "name-owner"
data DBusObjectManagerClientNameOwnerPropertyInfo
instance AttrInfo DBusObjectManagerClientNameOwnerPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientNameOwnerPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = (~) ()
type AttrBaseTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = DBusObjectManagerClientK
type AttrGetType DBusObjectManagerClientNameOwnerPropertyInfo = T.Text
type AttrLabel DBusObjectManagerClientNameOwnerPropertyInfo = "DBusObjectManagerClient::name-owner"
attrGet _ = getDBusObjectManagerClientNameOwner
attrSet _ = undefined
attrConstruct _ = undefined
getDBusObjectManagerClientObjectPath :: (MonadIO m, DBusObjectManagerClientK o) => o -> m T.Text
getDBusObjectManagerClientObjectPath obj = liftIO $ getObjectPropertyString obj "object-path"
constructDBusObjectManagerClientObjectPath :: T.Text -> IO ([Char], GValue)
constructDBusObjectManagerClientObjectPath val = constructObjectPropertyString "object-path" val
data DBusObjectManagerClientObjectPathPropertyInfo
instance AttrInfo DBusObjectManagerClientObjectPathPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = DBusObjectManagerClientK
type AttrGetType DBusObjectManagerClientObjectPathPropertyInfo = T.Text
type AttrLabel DBusObjectManagerClientObjectPathPropertyInfo = "DBusObjectManagerClient::object-path"
attrGet _ = getDBusObjectManagerClientObjectPath
attrSet _ = undefined
attrConstruct _ = constructDBusObjectManagerClientObjectPath
type instance AttributeList DBusObjectManagerClient = DBusObjectManagerClientAttributeList
type DBusObjectManagerClientAttributeList = ('[ '("bus-type", DBusObjectManagerClientBusTypePropertyInfo), '("connection", DBusObjectManagerClientConnectionPropertyInfo), '("flags", DBusObjectManagerClientFlagsPropertyInfo), '("get-proxy-type-destroy-notify", DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo), '("get-proxy-type-func", DBusObjectManagerClientGetProxyTypeFuncPropertyInfo), '("get-proxy-type-user-data", DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo), '("name", DBusObjectManagerClientNamePropertyInfo), '("name-owner", DBusObjectManagerClientNameOwnerPropertyInfo), '("object-path", DBusObjectManagerClientObjectPathPropertyInfo)] :: [(Symbol, *)])
data DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo
instance SignalInfo DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo where
type HaskellCallbackType DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo = DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
connectSignal _ = connectDBusObjectManagerClientInterfaceProxyPropertiesChanged
data DBusObjectManagerClientInterfaceProxySignalSignalInfo
instance SignalInfo DBusObjectManagerClientInterfaceProxySignalSignalInfo where
type HaskellCallbackType DBusObjectManagerClientInterfaceProxySignalSignalInfo = DBusObjectManagerClientInterfaceProxySignalCallback
connectSignal _ = connectDBusObjectManagerClientInterfaceProxySignal
type instance SignalList DBusObjectManagerClient = DBusObjectManagerClientSignalList
type DBusObjectManagerClientSignalList = ('[ '("interface-added", DBusObjectManagerInterfaceAddedSignalInfo), '("interface-proxy-properties-changed", DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo), '("interface-proxy-signal", DBusObjectManagerClientInterfaceProxySignalSignalInfo), '("interface-removed", DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("object-added", DBusObjectManagerObjectAddedSignalInfo), '("object-removed", DBusObjectManagerObjectRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_dbus_object_manager_client_new_finish" g_dbus_object_manager_client_new_finish ::
Ptr AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr DBusObjectManagerClient)
dBusObjectManagerClientNewFinish ::
(MonadIO m, AsyncResultK a) =>
a ->
m DBusObjectManagerClient
dBusObjectManagerClientNewFinish res = liftIO $ do
let res' = unsafeManagedPtrCastPtr res
onException (do
result <- propagateGError $ g_dbus_object_manager_client_new_finish res'
checkUnexpectedReturnNULL "g_dbus_object_manager_client_new_finish" 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 AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr DBusObjectManagerClient)
dBusObjectManagerClientNewForBusFinish ::
(MonadIO m, AsyncResultK a) =>
a ->
m DBusObjectManagerClient
dBusObjectManagerClientNewForBusFinish res = liftIO $ do
let res' = unsafeManagedPtrCastPtr res
onException (do
result <- propagateGError $ g_dbus_object_manager_client_new_for_bus_finish res'
checkUnexpectedReturnNULL "g_dbus_object_manager_client_new_for_bus_finish" 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 DBusProxyTypeFuncC ->
Ptr () ->
FunPtr GLib.DestroyNotifyC ->
Ptr Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr DBusObjectManagerClient)
dBusObjectManagerClientNewForBusSync ::
(MonadIO m, CancellableK a) =>
BusType ->
[DBusObjectManagerClientFlags] ->
T.Text ->
T.Text ->
Maybe (DBusProxyTypeFunc) ->
Maybe (a) ->
m DBusObjectManagerClient
dBusObjectManagerClientNewForBusSync bus_type flags name object_path get_proxy_type_func_ cancellable = liftIO $ do
let bus_type' = (fromIntegral . fromEnum) bus_type
let flags' = gflagsToWord flags
name' <- textToCString name
object_path' <- textToCString object_path
maybeGet_proxy_type_func_ <- case get_proxy_type_func_ of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jGet_proxy_type_func_ -> do
jGet_proxy_type_func_' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGet_proxy_type_func_)
return jGet_proxy_type_func_'
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
let get_proxy_type_user_data_ = castFunPtrToPtr maybeGet_proxy_type_func_
let get_proxy_type_destroy_notify_ = safeFreeFunPtrPtr
onException (do
result <- propagateGError $ g_dbus_object_manager_client_new_for_bus_sync bus_type' flags' name' object_path' maybeGet_proxy_type_func_ get_proxy_type_user_data_ get_proxy_type_destroy_notify_ maybeCancellable
checkUnexpectedReturnNULL "g_dbus_object_manager_client_new_for_bus_sync" result
result' <- (wrapObject DBusObjectManagerClient) result
whenJust cancellable touchManagedPtr
freeMem name'
freeMem object_path'
return result'
) (do
freeMem name'
freeMem object_path'
)
foreign import ccall "g_dbus_object_manager_client_new_sync" g_dbus_object_manager_client_new_sync ::
Ptr DBusConnection ->
CUInt ->
CString ->
CString ->
FunPtr DBusProxyTypeFuncC ->
Ptr () ->
FunPtr GLib.DestroyNotifyC ->
Ptr Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr DBusObjectManagerClient)
dBusObjectManagerClientNewSync ::
(MonadIO m, DBusConnectionK a, CancellableK b) =>
a ->
[DBusObjectManagerClientFlags] ->
Maybe (T.Text) ->
T.Text ->
Maybe (DBusProxyTypeFunc) ->
Maybe (b) ->
m DBusObjectManagerClient
dBusObjectManagerClientNewSync connection flags name object_path get_proxy_type_func_ cancellable = liftIO $ do
let connection' = unsafeManagedPtrCastPtr connection
let flags' = gflagsToWord flags
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
object_path' <- textToCString object_path
maybeGet_proxy_type_func_ <- case get_proxy_type_func_ of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jGet_proxy_type_func_ -> do
jGet_proxy_type_func_' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGet_proxy_type_func_)
return jGet_proxy_type_func_'
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
let get_proxy_type_user_data_ = castFunPtrToPtr maybeGet_proxy_type_func_
let get_proxy_type_destroy_notify_ = safeFreeFunPtrPtr
onException (do
result <- propagateGError $ g_dbus_object_manager_client_new_sync connection' flags' maybeName object_path' maybeGet_proxy_type_func_ get_proxy_type_user_data_ get_proxy_type_destroy_notify_ maybeCancellable
checkUnexpectedReturnNULL "g_dbus_object_manager_client_new_sync" result
result' <- (wrapObject DBusObjectManagerClient) result
touchManagedPtr connection
whenJust cancellable touchManagedPtr
freeMem maybeName
freeMem object_path'
return result'
) (do
freeMem maybeName
freeMem object_path'
)
foreign import ccall "g_dbus_object_manager_client_get_connection" g_dbus_object_manager_client_get_connection ::
Ptr DBusObjectManagerClient ->
IO (Ptr DBusConnection)
dBusObjectManagerClientGetConnection ::
(MonadIO m, DBusObjectManagerClientK a) =>
a ->
m DBusConnection
dBusObjectManagerClientGetConnection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_dbus_object_manager_client_get_connection _obj'
checkUnexpectedReturnNULL "g_dbus_object_manager_client_get_connection" result
result' <- (newObject DBusConnection) result
touchManagedPtr _obj
return result'
foreign import ccall "g_dbus_object_manager_client_get_flags" g_dbus_object_manager_client_get_flags ::
Ptr DBusObjectManagerClient ->
IO CUInt
dBusObjectManagerClientGetFlags ::
(MonadIO m, DBusObjectManagerClientK a) =>
a ->
m [DBusObjectManagerClientFlags]
dBusObjectManagerClientGetFlags _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_dbus_object_manager_client_get_flags _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
foreign import ccall "g_dbus_object_manager_client_get_name" g_dbus_object_manager_client_get_name ::
Ptr DBusObjectManagerClient ->
IO CString
dBusObjectManagerClientGetName ::
(MonadIO m, DBusObjectManagerClientK a) =>
a ->
m T.Text
dBusObjectManagerClientGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_dbus_object_manager_client_get_name _obj'
checkUnexpectedReturnNULL "g_dbus_object_manager_client_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "g_dbus_object_manager_client_get_name_owner" g_dbus_object_manager_client_get_name_owner ::
Ptr DBusObjectManagerClient ->
IO CString
dBusObjectManagerClientGetNameOwner ::
(MonadIO m, DBusObjectManagerClientK a) =>
a ->
m T.Text
dBusObjectManagerClientGetNameOwner _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_dbus_object_manager_client_get_name_owner _obj'
checkUnexpectedReturnNULL "g_dbus_object_manager_client_get_name_owner" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "g_dbus_object_manager_client_new" g_dbus_object_manager_client_new ::
Ptr DBusConnection ->
CUInt ->
CString ->
CString ->
FunPtr DBusProxyTypeFuncC ->
Ptr () ->
FunPtr GLib.DestroyNotifyC ->
Ptr Cancellable ->
FunPtr AsyncReadyCallbackC ->
Ptr () ->
IO ()
dBusObjectManagerClientNew ::
(MonadIO m, DBusConnectionK a, CancellableK b) =>
a ->
[DBusObjectManagerClientFlags] ->
T.Text ->
T.Text ->
Maybe (DBusProxyTypeFunc) ->
Maybe (b) ->
Maybe (AsyncReadyCallback) ->
m ()
dBusObjectManagerClientNew connection flags name object_path get_proxy_type_func_ cancellable callback = liftIO $ do
let connection' = unsafeManagedPtrCastPtr connection
let flags' = gflagsToWord flags
name' <- textToCString name
object_path' <- textToCString object_path
maybeGet_proxy_type_func_ <- case get_proxy_type_func_ of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jGet_proxy_type_func_ -> do
jGet_proxy_type_func_' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGet_proxy_type_func_)
return jGet_proxy_type_func_'
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let get_proxy_type_user_data_ = castFunPtrToPtr maybeGet_proxy_type_func_
let get_proxy_type_destroy_notify_ = safeFreeFunPtrPtr
let user_data = nullPtr
g_dbus_object_manager_client_new connection' flags' name' object_path' maybeGet_proxy_type_func_ get_proxy_type_user_data_ get_proxy_type_destroy_notify_ maybeCancellable maybeCallback user_data
touchManagedPtr connection
whenJust cancellable touchManagedPtr
freeMem name'
freeMem object_path'
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 DBusProxyTypeFuncC ->
Ptr () ->
FunPtr GLib.DestroyNotifyC ->
Ptr Cancellable ->
FunPtr AsyncReadyCallbackC ->
Ptr () ->
IO ()
dBusObjectManagerClientNewForBus ::
(MonadIO m, CancellableK a) =>
BusType ->
[DBusObjectManagerClientFlags] ->
T.Text ->
T.Text ->
Maybe (DBusProxyTypeFunc) ->
Maybe (a) ->
Maybe (AsyncReadyCallback) ->
m ()
dBusObjectManagerClientNewForBus bus_type flags name object_path get_proxy_type_func_ cancellable callback = liftIO $ do
let bus_type' = (fromIntegral . fromEnum) bus_type
let flags' = gflagsToWord flags
name' <- textToCString name
object_path' <- textToCString object_path
maybeGet_proxy_type_func_ <- case get_proxy_type_func_ of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jGet_proxy_type_func_ -> do
jGet_proxy_type_func_' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGet_proxy_type_func_)
return jGet_proxy_type_func_'
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let get_proxy_type_user_data_ = castFunPtrToPtr maybeGet_proxy_type_func_
let get_proxy_type_destroy_notify_ = safeFreeFunPtrPtr
let user_data = nullPtr
g_dbus_object_manager_client_new_for_bus bus_type' flags' name' object_path' maybeGet_proxy_type_func_ get_proxy_type_user_data_ get_proxy_type_destroy_notify_ maybeCancellable maybeCallback user_data
whenJust cancellable touchManagedPtr
freeMem name'
freeMem object_path'
return ()