{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Objects.DBusObjectManagerClient
(
DBusObjectManagerClient(..) ,
IsDBusObjectManagerClient ,
toDBusObjectManagerClient ,
#if defined(ENABLE_OVERLOADING)
ResolveDBusObjectManagerClientMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientGetConnectionMethodInfo,
#endif
dBusObjectManagerClientGetConnection ,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientGetFlagsMethodInfo,
#endif
dBusObjectManagerClientGetFlags ,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientGetNameMethodInfo,
#endif
dBusObjectManagerClientGetName ,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientGetNameOwnerMethodInfo,
#endif
dBusObjectManagerClientGetNameOwner ,
dBusObjectManagerClientNew ,
dBusObjectManagerClientNewFinish ,
dBusObjectManagerClientNewForBus ,
dBusObjectManagerClientNewForBusFinish ,
dBusObjectManagerClientNewForBusSync ,
dBusObjectManagerClientNewSync ,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientBusTypePropertyInfo,
#endif
constructDBusObjectManagerClientBusType ,
#if defined(ENABLE_OVERLOADING)
dBusObjectManagerClientBusType ,
#endif
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientConnectionPropertyInfo,
#endif
constructDBusObjectManagerClientConnection,
#if defined(ENABLE_OVERLOADING)
dBusObjectManagerClientConnection ,
#endif
getDBusObjectManagerClientConnection ,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientFlagsPropertyInfo,
#endif
constructDBusObjectManagerClientFlags ,
#if defined(ENABLE_OVERLOADING)
dBusObjectManagerClientFlags ,
#endif
getDBusObjectManagerClientFlags ,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo,
#endif
constructDBusObjectManagerClientGetProxyTypeDestroyNotify,
#if defined(ENABLE_OVERLOADING)
dBusObjectManagerClientGetProxyTypeDestroyNotify,
#endif
getDBusObjectManagerClientGetProxyTypeDestroyNotify,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientGetProxyTypeFuncPropertyInfo,
#endif
constructDBusObjectManagerClientGetProxyTypeFunc,
#if defined(ENABLE_OVERLOADING)
dBusObjectManagerClientGetProxyTypeFunc ,
#endif
getDBusObjectManagerClientGetProxyTypeFunc,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo,
#endif
constructDBusObjectManagerClientGetProxyTypeUserData,
#if defined(ENABLE_OVERLOADING)
dBusObjectManagerClientGetProxyTypeUserData,
#endif
getDBusObjectManagerClientGetProxyTypeUserData,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientNamePropertyInfo ,
#endif
constructDBusObjectManagerClientName ,
#if defined(ENABLE_OVERLOADING)
dBusObjectManagerClientName ,
#endif
getDBusObjectManagerClientName ,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientNameOwnerPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dBusObjectManagerClientNameOwner ,
#endif
getDBusObjectManagerClientNameOwner ,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientObjectPathPropertyInfo,
#endif
constructDBusObjectManagerClientObjectPath,
#if defined(ENABLE_OVERLOADING)
dBusObjectManagerClientObjectPath ,
#endif
getDBusObjectManagerClientObjectPath ,
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo,
#endif
afterDBusObjectManagerClientInterfaceProxyPropertiesChanged,
onDBusObjectManagerClientInterfaceProxyPropertiesChanged,
DBusObjectManagerClientInterfaceProxySignalCallback,
#if defined(ENABLE_OVERLOADING)
DBusObjectManagerClientInterfaceProxySignalSignalInfo,
#endif
afterDBusObjectManagerClientInterfaceProxySignal,
onDBusObjectManagerClientInterfaceProxySignal,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.PollFD as GLib.PollFD
import qualified GI.GLib.Structs.Source as GLib.Source
import qualified GI.GLib.Structs.String as GLib.String
import qualified GI.GLib.Structs.VariantType as GLib.VariantType
import qualified GI.GObject.Callbacks as GObject.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.GObject.Structs.Parameter as GObject.Parameter
import qualified GI.Gio.Callbacks as Gio.Callbacks
import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums
import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags
import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncInitable as Gio.AsyncInitable
import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusInterface as Gio.DBusInterface
import {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusObject as Gio.DBusObject
import {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusObjectManager as Gio.DBusObjectManager
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable
import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import {-# SOURCE #-} qualified GI.Gio.Objects.Credentials as Gio.Credentials
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusAuthObserver as Gio.DBusAuthObserver
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusMessage as Gio.DBusMessage
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusObjectProxy as Gio.DBusObjectProxy
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusProxy as Gio.DBusProxy
import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream
import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream
import {-# SOURCE #-} qualified GI.Gio.Objects.MenuAttributeIter as Gio.MenuAttributeIter
import {-# SOURCE #-} qualified GI.Gio.Objects.MenuLinkIter as Gio.MenuLinkIter
import {-# SOURCE #-} qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream
import {-# SOURCE #-} qualified GI.Gio.Objects.UnixFDList as Gio.UnixFDList
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusAnnotationInfo as Gio.DBusAnnotationInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusArgInfo as Gio.DBusArgInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusInterfaceInfo as Gio.DBusInterfaceInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusMethodInfo as Gio.DBusMethodInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusPropertyInfo as Gio.DBusPropertyInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusSignalInfo as Gio.DBusSignalInfo
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusSubtreeVTable as Gio.DBusSubtreeVTable
import {-# SOURCE #-} qualified GI.Gio.Structs.OutputVector as Gio.OutputVector
#else
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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums
import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags
import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncInitable as Gio.AsyncInitable
import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusObjectManager as Gio.DBusObjectManager
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable
import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusObjectProxy as Gio.DBusObjectProxy
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusProxy as Gio.DBusProxy
#endif
newtype DBusObjectManagerClient = DBusObjectManagerClient (SP.ManagedPtr DBusObjectManagerClient)
deriving (DBusObjectManagerClient -> DBusObjectManagerClient -> Bool
(DBusObjectManagerClient -> DBusObjectManagerClient -> Bool)
-> (DBusObjectManagerClient -> DBusObjectManagerClient -> Bool)
-> Eq DBusObjectManagerClient
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DBusObjectManagerClient -> DBusObjectManagerClient -> Bool
== :: DBusObjectManagerClient -> DBusObjectManagerClient -> Bool
$c/= :: DBusObjectManagerClient -> DBusObjectManagerClient -> Bool
/= :: DBusObjectManagerClient -> DBusObjectManagerClient -> Bool
Eq)
instance SP.ManagedPtrNewtype DBusObjectManagerClient where
toManagedPtr :: DBusObjectManagerClient -> ManagedPtr DBusObjectManagerClient
toManagedPtr (DBusObjectManagerClient ManagedPtr DBusObjectManagerClient
p) = ManagedPtr DBusObjectManagerClient
p
foreign import ccall "g_dbus_object_manager_client_get_type"
c_g_dbus_object_manager_client_get_type :: IO B.Types.GType
instance B.Types.TypedObject DBusObjectManagerClient where
glibType :: IO GType
glibType = IO GType
c_g_dbus_object_manager_client_get_type
instance B.Types.GObject DBusObjectManagerClient
class (SP.GObject o, O.IsDescendantOf DBusObjectManagerClient o) => IsDBusObjectManagerClient o
instance (SP.GObject o, O.IsDescendantOf DBusObjectManagerClient o) => IsDBusObjectManagerClient o
instance O.HasParentTypes DBusObjectManagerClient
type instance O.ParentTypes DBusObjectManagerClient = '[GObject.Object.Object, Gio.AsyncInitable.AsyncInitable, Gio.DBusObjectManager.DBusObjectManager, Gio.Initable.Initable]
toDBusObjectManagerClient :: (MIO.MonadIO m, IsDBusObjectManagerClient o) => o -> m DBusObjectManagerClient
toDBusObjectManagerClient :: forall (m :: * -> *) o.
(MonadIO m, IsDBusObjectManagerClient o) =>
o -> m DBusObjectManagerClient
toDBusObjectManagerClient = IO DBusObjectManagerClient -> m DBusObjectManagerClient
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DBusObjectManagerClient -> m DBusObjectManagerClient)
-> (o -> IO DBusObjectManagerClient)
-> o
-> m DBusObjectManagerClient
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DBusObjectManagerClient -> DBusObjectManagerClient)
-> o -> IO DBusObjectManagerClient
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DBusObjectManagerClient -> DBusObjectManagerClient
DBusObjectManagerClient
instance B.GValue.IsGValue (Maybe DBusObjectManagerClient) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_g_dbus_object_manager_client_get_type
gvalueSet_ :: Ptr GValue -> Maybe DBusObjectManagerClient -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DBusObjectManagerClient
P.Nothing = Ptr GValue -> Ptr DBusObjectManagerClient -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DBusObjectManagerClient
forall a. Ptr a
FP.nullPtr :: FP.Ptr DBusObjectManagerClient)
gvalueSet_ Ptr GValue
gv (P.Just DBusObjectManagerClient
obj) = DBusObjectManagerClient
-> (Ptr DBusObjectManagerClient -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DBusObjectManagerClient
obj (Ptr GValue -> Ptr DBusObjectManagerClient -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DBusObjectManagerClient)
gvalueGet_ Ptr GValue
gv = do
Ptr DBusObjectManagerClient
ptr <- Ptr GValue -> IO (Ptr DBusObjectManagerClient)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DBusObjectManagerClient)
if Ptr DBusObjectManagerClient
ptr Ptr DBusObjectManagerClient -> Ptr DBusObjectManagerClient -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DBusObjectManagerClient
forall a. Ptr a
FP.nullPtr
then DBusObjectManagerClient -> Maybe DBusObjectManagerClient
forall a. a -> Maybe a
P.Just (DBusObjectManagerClient -> Maybe DBusObjectManagerClient)
-> IO DBusObjectManagerClient -> IO (Maybe DBusObjectManagerClient)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DBusObjectManagerClient -> DBusObjectManagerClient)
-> Ptr DBusObjectManagerClient -> IO DBusObjectManagerClient
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DBusObjectManagerClient -> DBusObjectManagerClient
DBusObjectManagerClient Ptr DBusObjectManagerClient
ptr
else Maybe DBusObjectManagerClient -> IO (Maybe DBusObjectManagerClient)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DBusObjectManagerClient
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDBusObjectManagerClientMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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 "getv" o = GObject.Object.ObjectGetvMethodInfo
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 "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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDBusObjectManagerClientMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDBusObjectManagerClientMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDBusObjectManagerClientMethod t DBusObjectManagerClient, O.OverloadedMethod info DBusObjectManagerClient p) => OL.IsLabel t (DBusObjectManagerClient -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveDBusObjectManagerClientMethod t DBusObjectManagerClient, O.OverloadedMethod info DBusObjectManagerClient p, R.HasField t DBusObjectManagerClient p) => R.HasField t DBusObjectManagerClient p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDBusObjectManagerClientMethod t DBusObjectManagerClient, O.OverloadedMethodInfo info DBusObjectManagerClient) => OL.IsLabel t (O.MethodProxy info DBusObjectManagerClient) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback =
Gio.DBusObjectProxy.DBusObjectProxy
-> Gio.DBusProxy.DBusProxy
-> GVariant
-> [T.Text]
-> IO ()
type C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback =
Ptr DBusObjectManagerClient ->
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)
wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback ::
GObject a => (a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback) ->
C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback :: forall a.
GObject a =>
(a
-> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback)
-> C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
gi'cb Ptr DBusObjectManagerClient
gi'selfPtr Ptr DBusObjectProxy
objectProxy Ptr DBusProxy
interfaceProxy Ptr GVariant
changedProperties Ptr CString
invalidatedProperties Ptr ()
_ = do
DBusObjectProxy
objectProxy' <- ((ManagedPtr DBusObjectProxy -> DBusObjectProxy)
-> Ptr DBusObjectProxy -> IO DBusObjectProxy
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DBusObjectProxy -> DBusObjectProxy
Gio.DBusObjectProxy.DBusObjectProxy) Ptr DBusObjectProxy
objectProxy
DBusProxy
interfaceProxy' <- ((ManagedPtr DBusProxy -> DBusProxy)
-> Ptr DBusProxy -> IO DBusProxy
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DBusProxy -> DBusProxy
Gio.DBusProxy.DBusProxy) Ptr DBusProxy
interfaceProxy
GVariant
changedProperties' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
changedProperties
[Text]
invalidatedProperties' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
invalidatedProperties
Ptr DBusObjectManagerClient
-> (DBusObjectManagerClient -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr DBusObjectManagerClient
gi'selfPtr ((DBusObjectManagerClient -> IO ()) -> IO ())
-> (DBusObjectManagerClient -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \DBusObjectManagerClient
gi'self -> a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
gi'cb (DBusObjectManagerClient -> a
forall a b. Coercible a b => a -> b
Coerce.coerce DBusObjectManagerClient
gi'self) DBusObjectProxy
objectProxy' DBusProxy
interfaceProxy' GVariant
changedProperties' [Text]
invalidatedProperties'
onDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (IsDBusObjectManagerClient a, MonadIO m) => a -> ((?self :: a) => DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback) -> m SignalHandlerId
onDBusObjectManagerClientInterfaceProxyPropertiesChanged :: forall a (m :: * -> *).
(IsDBusObjectManagerClient a, MonadIO m) =>
a
-> ((?self::a) =>
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback)
-> m SignalHandlerId
onDBusObjectManagerClientInterfaceProxyPropertiesChanged a
obj (?self::a) =>
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) =>
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
cb
let wrapped' :: C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrapped' = (a
-> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback)
-> C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
forall a.
GObject a =>
(a
-> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback)
-> C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrapped
FunPtr
C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrapped'' <- C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
-> IO
(FunPtr
C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback)
mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrapped'
a
-> Text
-> FunPtr
C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"interface-proxy-properties-changed" FunPtr
C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (IsDBusObjectManagerClient a, MonadIO m) => a -> ((?self :: a) => DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback) -> m SignalHandlerId
afterDBusObjectManagerClientInterfaceProxyPropertiesChanged :: forall a (m :: * -> *).
(IsDBusObjectManagerClient a, MonadIO m) =>
a
-> ((?self::a) =>
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback)
-> m SignalHandlerId
afterDBusObjectManagerClientInterfaceProxyPropertiesChanged a
obj (?self::a) =>
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) =>
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
cb
let wrapped' :: C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrapped' = (a
-> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback)
-> C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
forall a.
GObject a =>
(a
-> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback)
-> C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrapped
FunPtr
C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrapped'' <- C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
-> IO
(FunPtr
C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback)
mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrapped'
a
-> Text
-> FunPtr
C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"interface-proxy-properties-changed" FunPtr
C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo
instance SignalInfo DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo where
type HaskellCallbackType DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo = DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb
cb'' <- mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb'
connectSignalFunPtr obj "interface-proxy-properties-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient::interface-proxy-properties-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#g:signal:interfaceProxyPropertiesChanged"})
#endif
type DBusObjectManagerClientInterfaceProxySignalCallback =
Gio.DBusObjectProxy.DBusObjectProxy
-> Gio.DBusProxy.DBusProxy
-> T.Text
-> T.Text
-> GVariant
-> IO ()
type C_DBusObjectManagerClientInterfaceProxySignalCallback =
Ptr DBusObjectManagerClient ->
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)
wrap_DBusObjectManagerClientInterfaceProxySignalCallback ::
GObject a => (a -> DBusObjectManagerClientInterfaceProxySignalCallback) ->
C_DBusObjectManagerClientInterfaceProxySignalCallback
wrap_DBusObjectManagerClientInterfaceProxySignalCallback :: forall a.
GObject a =>
(a -> DBusObjectManagerClientInterfaceProxySignalCallback)
-> C_DBusObjectManagerClientInterfaceProxySignalCallback
wrap_DBusObjectManagerClientInterfaceProxySignalCallback a -> DBusObjectManagerClientInterfaceProxySignalCallback
gi'cb Ptr DBusObjectManagerClient
gi'selfPtr Ptr DBusObjectProxy
objectProxy Ptr DBusProxy
interfaceProxy CString
senderName CString
signalName Ptr GVariant
parameters Ptr ()
_ = do
DBusObjectProxy
objectProxy' <- ((ManagedPtr DBusObjectProxy -> DBusObjectProxy)
-> Ptr DBusObjectProxy -> IO DBusObjectProxy
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DBusObjectProxy -> DBusObjectProxy
Gio.DBusObjectProxy.DBusObjectProxy) Ptr DBusObjectProxy
objectProxy
DBusProxy
interfaceProxy' <- ((ManagedPtr DBusProxy -> DBusProxy)
-> Ptr DBusProxy -> IO DBusProxy
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DBusProxy -> DBusProxy
Gio.DBusProxy.DBusProxy) Ptr DBusProxy
interfaceProxy
Text
senderName' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
senderName
Text
signalName' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
signalName
GVariant
parameters' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
parameters
Ptr DBusObjectManagerClient
-> (DBusObjectManagerClient -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr DBusObjectManagerClient
gi'selfPtr ((DBusObjectManagerClient -> IO ()) -> IO ())
-> (DBusObjectManagerClient -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \DBusObjectManagerClient
gi'self -> a -> DBusObjectManagerClientInterfaceProxySignalCallback
gi'cb (DBusObjectManagerClient -> a
forall a b. Coercible a b => a -> b
Coerce.coerce DBusObjectManagerClient
gi'self) DBusObjectProxy
objectProxy' DBusProxy
interfaceProxy' Text
senderName' Text
signalName' GVariant
parameters'
onDBusObjectManagerClientInterfaceProxySignal :: (IsDBusObjectManagerClient a, MonadIO m) => a -> ((?self :: a) => DBusObjectManagerClientInterfaceProxySignalCallback) -> m SignalHandlerId
onDBusObjectManagerClientInterfaceProxySignal :: forall a (m :: * -> *).
(IsDBusObjectManagerClient a, MonadIO m) =>
a
-> ((?self::a) =>
DBusObjectManagerClientInterfaceProxySignalCallback)
-> m SignalHandlerId
onDBusObjectManagerClientInterfaceProxySignal a
obj (?self::a) => DBusObjectManagerClientInterfaceProxySignalCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> DBusObjectManagerClientInterfaceProxySignalCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => DBusObjectManagerClientInterfaceProxySignalCallback
DBusObjectManagerClientInterfaceProxySignalCallback
cb
let wrapped' :: C_DBusObjectManagerClientInterfaceProxySignalCallback
wrapped' = (a -> DBusObjectManagerClientInterfaceProxySignalCallback)
-> C_DBusObjectManagerClientInterfaceProxySignalCallback
forall a.
GObject a =>
(a -> DBusObjectManagerClientInterfaceProxySignalCallback)
-> C_DBusObjectManagerClientInterfaceProxySignalCallback
wrap_DBusObjectManagerClientInterfaceProxySignalCallback a -> DBusObjectManagerClientInterfaceProxySignalCallback
wrapped
FunPtr C_DBusObjectManagerClientInterfaceProxySignalCallback
wrapped'' <- C_DBusObjectManagerClientInterfaceProxySignalCallback
-> IO
(FunPtr C_DBusObjectManagerClientInterfaceProxySignalCallback)
mk_DBusObjectManagerClientInterfaceProxySignalCallback C_DBusObjectManagerClientInterfaceProxySignalCallback
wrapped'
a
-> Text
-> FunPtr C_DBusObjectManagerClientInterfaceProxySignalCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"interface-proxy-signal" FunPtr C_DBusObjectManagerClientInterfaceProxySignalCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterDBusObjectManagerClientInterfaceProxySignal :: (IsDBusObjectManagerClient a, MonadIO m) => a -> ((?self :: a) => DBusObjectManagerClientInterfaceProxySignalCallback) -> m SignalHandlerId
afterDBusObjectManagerClientInterfaceProxySignal :: forall a (m :: * -> *).
(IsDBusObjectManagerClient a, MonadIO m) =>
a
-> ((?self::a) =>
DBusObjectManagerClientInterfaceProxySignalCallback)
-> m SignalHandlerId
afterDBusObjectManagerClientInterfaceProxySignal a
obj (?self::a) => DBusObjectManagerClientInterfaceProxySignalCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> DBusObjectManagerClientInterfaceProxySignalCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => DBusObjectManagerClientInterfaceProxySignalCallback
DBusObjectManagerClientInterfaceProxySignalCallback
cb
let wrapped' :: C_DBusObjectManagerClientInterfaceProxySignalCallback
wrapped' = (a -> DBusObjectManagerClientInterfaceProxySignalCallback)
-> C_DBusObjectManagerClientInterfaceProxySignalCallback
forall a.
GObject a =>
(a -> DBusObjectManagerClientInterfaceProxySignalCallback)
-> C_DBusObjectManagerClientInterfaceProxySignalCallback
wrap_DBusObjectManagerClientInterfaceProxySignalCallback a -> DBusObjectManagerClientInterfaceProxySignalCallback
wrapped
FunPtr C_DBusObjectManagerClientInterfaceProxySignalCallback
wrapped'' <- C_DBusObjectManagerClientInterfaceProxySignalCallback
-> IO
(FunPtr C_DBusObjectManagerClientInterfaceProxySignalCallback)
mk_DBusObjectManagerClientInterfaceProxySignalCallback C_DBusObjectManagerClientInterfaceProxySignalCallback
wrapped'
a
-> Text
-> FunPtr C_DBusObjectManagerClientInterfaceProxySignalCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"interface-proxy-signal" FunPtr C_DBusObjectManagerClientInterfaceProxySignalCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientInterfaceProxySignalSignalInfo
instance SignalInfo DBusObjectManagerClientInterfaceProxySignalSignalInfo where
type HaskellCallbackType DBusObjectManagerClientInterfaceProxySignalSignalInfo = DBusObjectManagerClientInterfaceProxySignalCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_DBusObjectManagerClientInterfaceProxySignalCallback cb
cb'' <- mk_DBusObjectManagerClientInterfaceProxySignalCallback cb'
connectSignalFunPtr obj "interface-proxy-signal" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient::interface-proxy-signal"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#g:signal:interfaceProxySignal"})
#endif
constructDBusObjectManagerClientBusType :: (IsDBusObjectManagerClient o, MIO.MonadIO m) => Gio.Enums.BusType -> m (GValueConstruct o)
constructDBusObjectManagerClientBusType :: forall o (m :: * -> *).
(IsDBusObjectManagerClient o, MonadIO m) =>
BusType -> m (GValueConstruct o)
constructDBusObjectManagerClientBusType BusType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> BusType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"bus-type" BusType
val
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientBusTypePropertyInfo
instance AttrInfo DBusObjectManagerClientBusTypePropertyInfo where
type AttrAllowedOps DBusObjectManagerClientBusTypePropertyInfo = '[ 'AttrConstruct]
type AttrBaseTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = IsDBusObjectManagerClient
type AttrSetTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = (~) Gio.Enums.BusType
type AttrTransferTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = (~) Gio.Enums.BusType
type AttrTransferType DBusObjectManagerClientBusTypePropertyInfo = Gio.Enums.BusType
type AttrGetType DBusObjectManagerClientBusTypePropertyInfo = ()
type AttrLabel DBusObjectManagerClientBusTypePropertyInfo = "bus-type"
type AttrOrigin DBusObjectManagerClientBusTypePropertyInfo = DBusObjectManagerClient
attrGet = undefined
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructDBusObjectManagerClientBusType
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.busType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#g:attr:busType"
})
#endif
getDBusObjectManagerClientConnection :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m Gio.DBusConnection.DBusConnection
getDBusObjectManagerClientConnection :: forall (m :: * -> *) o.
(MonadIO m, IsDBusObjectManagerClient o) =>
o -> m DBusConnection
getDBusObjectManagerClientConnection o
obj = IO DBusConnection -> m DBusConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DBusConnection -> m DBusConnection)
-> IO DBusConnection -> m DBusConnection
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DBusConnection) -> IO DBusConnection
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDBusObjectManagerClientConnection" (IO (Maybe DBusConnection) -> IO DBusConnection)
-> IO (Maybe DBusConnection) -> IO DBusConnection
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DBusConnection -> DBusConnection)
-> IO (Maybe DBusConnection)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"connection" ManagedPtr DBusConnection -> DBusConnection
Gio.DBusConnection.DBusConnection
constructDBusObjectManagerClientConnection :: (IsDBusObjectManagerClient o, MIO.MonadIO m, Gio.DBusConnection.IsDBusConnection a) => a -> m (GValueConstruct o)
constructDBusObjectManagerClientConnection :: forall o (m :: * -> *) a.
(IsDBusObjectManagerClient o, MonadIO m, IsDBusConnection a) =>
a -> m (GValueConstruct o)
constructDBusObjectManagerClientConnection a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"connection" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientConnectionPropertyInfo
instance AttrInfo DBusObjectManagerClientConnectionPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = IsDBusObjectManagerClient
type AttrSetTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = Gio.DBusConnection.IsDBusConnection
type AttrTransferTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = Gio.DBusConnection.IsDBusConnection
type AttrTransferType DBusObjectManagerClientConnectionPropertyInfo = Gio.DBusConnection.DBusConnection
type AttrGetType DBusObjectManagerClientConnectionPropertyInfo = Gio.DBusConnection.DBusConnection
type AttrLabel DBusObjectManagerClientConnectionPropertyInfo = "connection"
type AttrOrigin DBusObjectManagerClientConnectionPropertyInfo = DBusObjectManagerClient
attrGet = getDBusObjectManagerClientConnection
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gio.DBusConnection.DBusConnection v
attrConstruct = constructDBusObjectManagerClientConnection
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.connection"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#g:attr:connection"
})
#endif
getDBusObjectManagerClientFlags :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m [Gio.Flags.DBusObjectManagerClientFlags]
getDBusObjectManagerClientFlags :: forall (m :: * -> *) o.
(MonadIO m, IsDBusObjectManagerClient o) =>
o -> m [DBusObjectManagerClientFlags]
getDBusObjectManagerClientFlags o
obj = IO [DBusObjectManagerClientFlags]
-> m [DBusObjectManagerClientFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [DBusObjectManagerClientFlags]
-> m [DBusObjectManagerClientFlags])
-> IO [DBusObjectManagerClientFlags]
-> m [DBusObjectManagerClientFlags]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [DBusObjectManagerClientFlags]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"flags"
constructDBusObjectManagerClientFlags :: (IsDBusObjectManagerClient o, MIO.MonadIO m) => [Gio.Flags.DBusObjectManagerClientFlags] -> m (GValueConstruct o)
constructDBusObjectManagerClientFlags :: forall o (m :: * -> *).
(IsDBusObjectManagerClient o, MonadIO m) =>
[DBusObjectManagerClientFlags] -> m (GValueConstruct o)
constructDBusObjectManagerClientFlags [DBusObjectManagerClientFlags]
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> [DBusObjectManagerClientFlags] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"flags" [DBusObjectManagerClientFlags]
val
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientFlagsPropertyInfo
instance AttrInfo DBusObjectManagerClientFlagsPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = IsDBusObjectManagerClient
type AttrSetTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = (~) [Gio.Flags.DBusObjectManagerClientFlags]
type AttrTransferTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = (~) [Gio.Flags.DBusObjectManagerClientFlags]
type AttrTransferType DBusObjectManagerClientFlagsPropertyInfo = [Gio.Flags.DBusObjectManagerClientFlags]
type AttrGetType DBusObjectManagerClientFlagsPropertyInfo = [Gio.Flags.DBusObjectManagerClientFlags]
type AttrLabel DBusObjectManagerClientFlagsPropertyInfo = "flags"
type AttrOrigin DBusObjectManagerClientFlagsPropertyInfo = DBusObjectManagerClient
attrGet = getDBusObjectManagerClientFlags
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructDBusObjectManagerClientFlags
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.flags"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#g:attr:flags"
})
#endif
getDBusObjectManagerClientGetProxyTypeDestroyNotify :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Ptr ())
getDBusObjectManagerClientGetProxyTypeDestroyNotify :: forall (m :: * -> *) o.
(MonadIO m, IsDBusObjectManagerClient o) =>
o -> m (Ptr ())
getDBusObjectManagerClientGetProxyTypeDestroyNotify o
obj = IO (Ptr ()) -> m (Ptr ())
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Ptr ())
forall a b. GObject a => a -> String -> IO (Ptr b)
B.Properties.getObjectPropertyPtr o
obj String
"get-proxy-type-destroy-notify"
constructDBusObjectManagerClientGetProxyTypeDestroyNotify :: (IsDBusObjectManagerClient o, MIO.MonadIO m) => Ptr () -> m (GValueConstruct o)
constructDBusObjectManagerClientGetProxyTypeDestroyNotify :: forall o (m :: * -> *).
(IsDBusObjectManagerClient o, MonadIO m) =>
Ptr () -> m (GValueConstruct o)
constructDBusObjectManagerClientGetProxyTypeDestroyNotify Ptr ()
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Ptr () -> IO (GValueConstruct o)
forall b o. String -> Ptr b -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyPtr String
"get-proxy-type-destroy-notify" Ptr ()
val
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo
instance AttrInfo DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = IsDBusObjectManagerClient
type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (~) (Ptr ())
type AttrTransferTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (~) (Ptr ())
type AttrTransferType DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = Ptr ()
type AttrGetType DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (Ptr ())
type AttrLabel DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = "get-proxy-type-destroy-notify"
type AttrOrigin DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = DBusObjectManagerClient
attrGet = getDBusObjectManagerClientGetProxyTypeDestroyNotify
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructDBusObjectManagerClientGetProxyTypeDestroyNotify
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.getProxyTypeDestroyNotify"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#g:attr:getProxyTypeDestroyNotify"
})
#endif
getDBusObjectManagerClientGetProxyTypeFunc :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Ptr ())
getDBusObjectManagerClientGetProxyTypeFunc :: forall (m :: * -> *) o.
(MonadIO m, IsDBusObjectManagerClient o) =>
o -> m (Ptr ())
getDBusObjectManagerClientGetProxyTypeFunc o
obj = IO (Ptr ()) -> m (Ptr ())
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Ptr ())
forall a b. GObject a => a -> String -> IO (Ptr b)
B.Properties.getObjectPropertyPtr o
obj String
"get-proxy-type-func"
constructDBusObjectManagerClientGetProxyTypeFunc :: (IsDBusObjectManagerClient o, MIO.MonadIO m) => Ptr () -> m (GValueConstruct o)
constructDBusObjectManagerClientGetProxyTypeFunc :: forall o (m :: * -> *).
(IsDBusObjectManagerClient o, MonadIO m) =>
Ptr () -> m (GValueConstruct o)
constructDBusObjectManagerClientGetProxyTypeFunc Ptr ()
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Ptr () -> IO (GValueConstruct o)
forall b o. String -> Ptr b -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyPtr String
"get-proxy-type-func" Ptr ()
val
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientGetProxyTypeFuncPropertyInfo
instance AttrInfo DBusObjectManagerClientGetProxyTypeFuncPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = IsDBusObjectManagerClient
type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (~) (Ptr ())
type AttrTransferTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (~) (Ptr ())
type AttrTransferType DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = Ptr ()
type AttrGetType DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (Ptr ())
type AttrLabel DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = "get-proxy-type-func"
type AttrOrigin DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = DBusObjectManagerClient
attrGet = getDBusObjectManagerClientGetProxyTypeFunc
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructDBusObjectManagerClientGetProxyTypeFunc
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.getProxyTypeFunc"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#g:attr:getProxyTypeFunc"
})
#endif
getDBusObjectManagerClientGetProxyTypeUserData :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Ptr ())
getDBusObjectManagerClientGetProxyTypeUserData :: forall (m :: * -> *) o.
(MonadIO m, IsDBusObjectManagerClient o) =>
o -> m (Ptr ())
getDBusObjectManagerClientGetProxyTypeUserData o
obj = IO (Ptr ()) -> m (Ptr ())
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Ptr ())
forall a b. GObject a => a -> String -> IO (Ptr b)
B.Properties.getObjectPropertyPtr o
obj String
"get-proxy-type-user-data"
constructDBusObjectManagerClientGetProxyTypeUserData :: (IsDBusObjectManagerClient o, MIO.MonadIO m) => Ptr () -> m (GValueConstruct o)
constructDBusObjectManagerClientGetProxyTypeUserData :: forall o (m :: * -> *).
(IsDBusObjectManagerClient o, MonadIO m) =>
Ptr () -> m (GValueConstruct o)
constructDBusObjectManagerClientGetProxyTypeUserData Ptr ()
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Ptr () -> IO (GValueConstruct o)
forall b o. String -> Ptr b -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyPtr String
"get-proxy-type-user-data" Ptr ()
val
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo
instance AttrInfo DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = IsDBusObjectManagerClient
type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (~) (Ptr ())
type AttrTransferTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (~) (Ptr ())
type AttrTransferType DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = Ptr ()
type AttrGetType DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (Ptr ())
type AttrLabel DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = "get-proxy-type-user-data"
type AttrOrigin DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = DBusObjectManagerClient
attrGet = getDBusObjectManagerClientGetProxyTypeUserData
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructDBusObjectManagerClientGetProxyTypeUserData
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.getProxyTypeUserData"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#g:attr:getProxyTypeUserData"
})
#endif
getDBusObjectManagerClientName :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m T.Text
getDBusObjectManagerClientName :: forall (m :: * -> *) o.
(MonadIO m, IsDBusObjectManagerClient o) =>
o -> m Text
getDBusObjectManagerClientName o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDBusObjectManagerClientName" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"name"
constructDBusObjectManagerClientName :: (IsDBusObjectManagerClient o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDBusObjectManagerClientName :: forall o (m :: * -> *).
(IsDBusObjectManagerClient o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDBusObjectManagerClientName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientNamePropertyInfo
instance AttrInfo DBusObjectManagerClientNamePropertyInfo where
type AttrAllowedOps DBusObjectManagerClientNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DBusObjectManagerClientNamePropertyInfo = IsDBusObjectManagerClient
type AttrSetTypeConstraint DBusObjectManagerClientNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DBusObjectManagerClientNamePropertyInfo = (~) T.Text
type AttrTransferType DBusObjectManagerClientNamePropertyInfo = T.Text
type AttrGetType DBusObjectManagerClientNamePropertyInfo = T.Text
type AttrLabel DBusObjectManagerClientNamePropertyInfo = "name"
type AttrOrigin DBusObjectManagerClientNamePropertyInfo = DBusObjectManagerClient
attrGet = getDBusObjectManagerClientName
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructDBusObjectManagerClientName
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.name"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#g:attr:name"
})
#endif
getDBusObjectManagerClientNameOwner :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Maybe T.Text)
getDBusObjectManagerClientNameOwner :: forall (m :: * -> *) o.
(MonadIO m, IsDBusObjectManagerClient o) =>
o -> m (Maybe Text)
getDBusObjectManagerClientNameOwner o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"name-owner"
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientNameOwnerPropertyInfo
instance AttrInfo DBusObjectManagerClientNameOwnerPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientNameOwnerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = IsDBusObjectManagerClient
type AttrSetTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = (~) ()
type AttrTransferTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = (~) ()
type AttrTransferType DBusObjectManagerClientNameOwnerPropertyInfo = ()
type AttrGetType DBusObjectManagerClientNameOwnerPropertyInfo = (Maybe T.Text)
type AttrLabel DBusObjectManagerClientNameOwnerPropertyInfo = "name-owner"
type AttrOrigin DBusObjectManagerClientNameOwnerPropertyInfo = DBusObjectManagerClient
attrGet = getDBusObjectManagerClientNameOwner
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.nameOwner"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#g:attr:nameOwner"
})
#endif
getDBusObjectManagerClientObjectPath :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Maybe T.Text)
getDBusObjectManagerClientObjectPath :: forall (m :: * -> *) o.
(MonadIO m, IsDBusObjectManagerClient o) =>
o -> m (Maybe Text)
getDBusObjectManagerClientObjectPath o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"object-path"
constructDBusObjectManagerClientObjectPath :: (IsDBusObjectManagerClient o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDBusObjectManagerClientObjectPath :: forall o (m :: * -> *).
(IsDBusObjectManagerClient o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDBusObjectManagerClientObjectPath Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"object-path" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientObjectPathPropertyInfo
instance AttrInfo DBusObjectManagerClientObjectPathPropertyInfo where
type AttrAllowedOps DBusObjectManagerClientObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = IsDBusObjectManagerClient
type AttrSetTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = (~) T.Text
type AttrTransferType DBusObjectManagerClientObjectPathPropertyInfo = T.Text
type AttrGetType DBusObjectManagerClientObjectPathPropertyInfo = (Maybe T.Text)
type AttrLabel DBusObjectManagerClientObjectPathPropertyInfo = "object-path"
type AttrOrigin DBusObjectManagerClientObjectPathPropertyInfo = DBusObjectManagerClient
attrGet = getDBusObjectManagerClientObjectPath
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructDBusObjectManagerClientObjectPath
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.objectPath"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#g:attr:objectPath"
})
#endif
#if defined(ENABLE_OVERLOADING)
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, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
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
#endif
#if defined(ENABLE_OVERLOADING)
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, DK.Type)])
#endif
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAsyncResult a) =>
a -> m DBusObjectManagerClient
dBusObjectManagerClientNewFinish a
res = IO DBusObjectManagerClient -> m DBusObjectManagerClient
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DBusObjectManagerClient -> m DBusObjectManagerClient)
-> IO DBusObjectManagerClient -> m DBusObjectManagerClient
forall a b. (a -> b) -> a -> b
$ do
Ptr AsyncResult
res' <- a -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
res
IO DBusObjectManagerClient -> IO () -> IO DBusObjectManagerClient
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DBusObjectManagerClient
result <- (Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient))
-> IO (Ptr DBusObjectManagerClient)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient))
-> IO (Ptr DBusObjectManagerClient))
-> (Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient))
-> IO (Ptr DBusObjectManagerClient)
forall a b. (a -> b) -> a -> b
$ Ptr AsyncResult
-> Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient)
g_dbus_object_manager_client_new_finish Ptr AsyncResult
res'
Text -> Ptr DBusObjectManagerClient -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusObjectManagerClientNewFinish" Ptr DBusObjectManagerClient
result
DBusObjectManagerClient
result' <- ((ManagedPtr DBusObjectManagerClient -> DBusObjectManagerClient)
-> Ptr DBusObjectManagerClient -> IO DBusObjectManagerClient
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DBusObjectManagerClient -> DBusObjectManagerClient
DBusObjectManagerClient) Ptr DBusObjectManagerClient
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
res
DBusObjectManagerClient -> IO DBusObjectManagerClient
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DBusObjectManagerClient
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
#endif
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAsyncResult a) =>
a -> m DBusObjectManagerClient
dBusObjectManagerClientNewForBusFinish a
res = IO DBusObjectManagerClient -> m DBusObjectManagerClient
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DBusObjectManagerClient -> m DBusObjectManagerClient)
-> IO DBusObjectManagerClient -> m DBusObjectManagerClient
forall a b. (a -> b) -> a -> b
$ do
Ptr AsyncResult
res' <- a -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
res
IO DBusObjectManagerClient -> IO () -> IO DBusObjectManagerClient
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DBusObjectManagerClient
result <- (Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient))
-> IO (Ptr DBusObjectManagerClient)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient))
-> IO (Ptr DBusObjectManagerClient))
-> (Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient))
-> IO (Ptr DBusObjectManagerClient)
forall a b. (a -> b) -> a -> b
$ Ptr AsyncResult
-> Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient)
g_dbus_object_manager_client_new_for_bus_finish Ptr AsyncResult
res'
Text -> Ptr DBusObjectManagerClient -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusObjectManagerClientNewForBusFinish" Ptr DBusObjectManagerClient
result
DBusObjectManagerClient
result' <- ((ManagedPtr DBusObjectManagerClient -> DBusObjectManagerClient)
-> Ptr DBusObjectManagerClient -> IO DBusObjectManagerClient
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DBusObjectManagerClient -> DBusObjectManagerClient
DBusObjectManagerClient) Ptr DBusObjectManagerClient
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
res
DBusObjectManagerClient -> IO DBusObjectManagerClient
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DBusObjectManagerClient
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_dbus_object_manager_client_new_for_bus_sync" g_dbus_object_manager_client_new_for_bus_sync ::
CInt ->
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCancellable a) =>
BusType
-> [DBusObjectManagerClientFlags]
-> Text
-> Text
-> Maybe DBusProxyTypeFunc
-> Maybe a
-> m DBusObjectManagerClient
dBusObjectManagerClientNewForBusSync BusType
busType [DBusObjectManagerClientFlags]
flags Text
name Text
objectPath Maybe DBusProxyTypeFunc
getProxyTypeFunc Maybe a
cancellable = IO DBusObjectManagerClient -> m DBusObjectManagerClient
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DBusObjectManagerClient -> m DBusObjectManagerClient)
-> IO DBusObjectManagerClient -> m DBusObjectManagerClient
forall a b. (a -> b) -> a -> b
$ do
let busType' :: CInt
busType' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (BusType -> Int) -> BusType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. BusType -> Int
forall a. Enum a => a -> Int
fromEnum) BusType
busType
let flags' :: CUInt
flags' = [DBusObjectManagerClientFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusObjectManagerClientFlags]
flags
CString
name' <- Text -> IO CString
textToCString Text
name
CString
objectPath' <- Text -> IO CString
textToCString Text
objectPath
FunPtr C_DBusProxyTypeFunc
maybeGetProxyTypeFunc <- case Maybe DBusProxyTypeFunc
getProxyTypeFunc of
Maybe DBusProxyTypeFunc
Nothing -> FunPtr C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_DBusProxyTypeFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just DBusProxyTypeFunc
jGetProxyTypeFunc -> do
FunPtr C_DBusProxyTypeFunc
jGetProxyTypeFunc' <- C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)
Gio.Callbacks.mk_DBusProxyTypeFunc (Maybe (Ptr (FunPtr C_DBusProxyTypeFunc))
-> DBusProxyTypeFunc_WithClosures -> C_DBusProxyTypeFunc
Gio.Callbacks.wrap_DBusProxyTypeFunc Maybe (Ptr (FunPtr C_DBusProxyTypeFunc))
forall a. Maybe a
Nothing (DBusProxyTypeFunc -> DBusProxyTypeFunc_WithClosures
Gio.Callbacks.drop_closures_DBusProxyTypeFunc DBusProxyTypeFunc
jGetProxyTypeFunc))
FunPtr C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_DBusProxyTypeFunc
jGetProxyTypeFunc'
Ptr Cancellable
maybeCancellable <- case Maybe a
cancellable of
Maybe a
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just a
jCancellable -> do
Ptr Cancellable
jCancellable' <- a -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
let getProxyTypeUserData :: Ptr ()
getProxyTypeUserData = FunPtr C_DBusProxyTypeFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_DBusProxyTypeFunc
maybeGetProxyTypeFunc
let getProxyTypeDestroyNotify :: FunPtr (Ptr a -> IO ())
getProxyTypeDestroyNotify = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
IO DBusObjectManagerClient -> IO () -> IO DBusObjectManagerClient
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DBusObjectManagerClient
result <- (Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient))
-> IO (Ptr DBusObjectManagerClient)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient))
-> IO (Ptr DBusObjectManagerClient))
-> (Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient))
-> IO (Ptr DBusObjectManagerClient)
forall a b. (a -> b) -> a -> b
$ CInt
-> CUInt
-> CString
-> CString
-> FunPtr C_DBusProxyTypeFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO (Ptr DBusObjectManagerClient)
g_dbus_object_manager_client_new_for_bus_sync CInt
busType' CUInt
flags' CString
name' CString
objectPath' FunPtr C_DBusProxyTypeFunc
maybeGetProxyTypeFunc Ptr ()
getProxyTypeUserData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
getProxyTypeDestroyNotify Ptr Cancellable
maybeCancellable
Text -> Ptr DBusObjectManagerClient -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusObjectManagerClientNewForBusSync" Ptr DBusObjectManagerClient
result
DBusObjectManagerClient
result' <- ((ManagedPtr DBusObjectManagerClient -> DBusObjectManagerClient)
-> Ptr DBusObjectManagerClient -> IO DBusObjectManagerClient
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DBusObjectManagerClient -> DBusObjectManagerClient
DBusObjectManagerClient) Ptr DBusObjectManagerClient
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
cancellable a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
objectPath'
DBusObjectManagerClient -> IO DBusObjectManagerClient
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DBusObjectManagerClient
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
objectPath'
)
#if defined(ENABLE_OVERLOADING)
#endif
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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDBusConnection a, IsCancellable b) =>
a
-> [DBusObjectManagerClientFlags]
-> Maybe Text
-> Text
-> Maybe DBusProxyTypeFunc
-> Maybe b
-> m DBusObjectManagerClient
dBusObjectManagerClientNewSync a
connection [DBusObjectManagerClientFlags]
flags Maybe Text
name Text
objectPath Maybe DBusProxyTypeFunc
getProxyTypeFunc Maybe b
cancellable = IO DBusObjectManagerClient -> m DBusObjectManagerClient
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DBusObjectManagerClient -> m DBusObjectManagerClient)
-> IO DBusObjectManagerClient -> m DBusObjectManagerClient
forall a b. (a -> b) -> a -> b
$ do
Ptr DBusConnection
connection' <- a -> IO (Ptr DBusConnection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
connection
let flags' :: CUInt
flags' = [DBusObjectManagerClientFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusObjectManagerClientFlags]
flags
CString
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
CString
objectPath' <- Text -> IO CString
textToCString Text
objectPath
FunPtr C_DBusProxyTypeFunc
maybeGetProxyTypeFunc <- case Maybe DBusProxyTypeFunc
getProxyTypeFunc of
Maybe DBusProxyTypeFunc
Nothing -> FunPtr C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_DBusProxyTypeFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just DBusProxyTypeFunc
jGetProxyTypeFunc -> do
FunPtr C_DBusProxyTypeFunc
jGetProxyTypeFunc' <- C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)
Gio.Callbacks.mk_DBusProxyTypeFunc (Maybe (Ptr (FunPtr C_DBusProxyTypeFunc))
-> DBusProxyTypeFunc_WithClosures -> C_DBusProxyTypeFunc
Gio.Callbacks.wrap_DBusProxyTypeFunc Maybe (Ptr (FunPtr C_DBusProxyTypeFunc))
forall a. Maybe a
Nothing (DBusProxyTypeFunc -> DBusProxyTypeFunc_WithClosures
Gio.Callbacks.drop_closures_DBusProxyTypeFunc DBusProxyTypeFunc
jGetProxyTypeFunc))
FunPtr C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_DBusProxyTypeFunc
jGetProxyTypeFunc'
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
let getProxyTypeUserData :: Ptr ()
getProxyTypeUserData = FunPtr C_DBusProxyTypeFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_DBusProxyTypeFunc
maybeGetProxyTypeFunc
let getProxyTypeDestroyNotify :: FunPtr (Ptr a -> IO ())
getProxyTypeDestroyNotify = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
IO DBusObjectManagerClient -> IO () -> IO DBusObjectManagerClient
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DBusObjectManagerClient
result <- (Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient))
-> IO (Ptr DBusObjectManagerClient)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient))
-> IO (Ptr DBusObjectManagerClient))
-> (Ptr (Ptr GError) -> IO (Ptr DBusObjectManagerClient))
-> IO (Ptr DBusObjectManagerClient)
forall a b. (a -> b) -> a -> b
$ Ptr DBusConnection
-> CUInt
-> CString
-> CString
-> FunPtr C_DBusProxyTypeFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO (Ptr DBusObjectManagerClient)
g_dbus_object_manager_client_new_sync Ptr DBusConnection
connection' CUInt
flags' CString
maybeName CString
objectPath' FunPtr C_DBusProxyTypeFunc
maybeGetProxyTypeFunc Ptr ()
getProxyTypeUserData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
getProxyTypeDestroyNotify Ptr Cancellable
maybeCancellable
Text -> Ptr DBusObjectManagerClient -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusObjectManagerClientNewSync" Ptr DBusObjectManagerClient
result
DBusObjectManagerClient
result' <- ((ManagedPtr DBusObjectManagerClient -> DBusObjectManagerClient)
-> Ptr DBusObjectManagerClient -> IO DBusObjectManagerClient
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DBusObjectManagerClient -> DBusObjectManagerClient
DBusObjectManagerClient) Ptr DBusObjectManagerClient
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
connection
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
objectPath'
DBusObjectManagerClient -> IO DBusObjectManagerClient
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DBusObjectManagerClient
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
objectPath'
)
#if defined(ENABLE_OVERLOADING)
#endif
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusObjectManagerClient a) =>
a -> m DBusConnection
dBusObjectManagerClientGetConnection a
manager = IO DBusConnection -> m DBusConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DBusConnection -> m DBusConnection)
-> IO DBusConnection -> m DBusConnection
forall a b. (a -> b) -> a -> b
$ do
Ptr DBusObjectManagerClient
manager' <- a -> IO (Ptr DBusObjectManagerClient)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr DBusConnection
result <- Ptr DBusObjectManagerClient -> IO (Ptr DBusConnection)
g_dbus_object_manager_client_get_connection Ptr DBusObjectManagerClient
manager'
Text -> Ptr DBusConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusObjectManagerClientGetConnection" Ptr DBusConnection
result
DBusConnection
result' <- ((ManagedPtr DBusConnection -> DBusConnection)
-> Ptr DBusConnection -> IO DBusConnection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DBusConnection -> DBusConnection
Gio.DBusConnection.DBusConnection) Ptr DBusConnection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
DBusConnection -> IO DBusConnection
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DBusConnection
result'
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientGetConnectionMethodInfo
instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusObjectManagerClient a) => O.OverloadedMethod DBusObjectManagerClientGetConnectionMethodInfo a signature where
overloadedMethod = dBusObjectManagerClientGetConnection
instance O.OverloadedMethodInfo DBusObjectManagerClientGetConnectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientGetConnection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#v:dBusObjectManagerClientGetConnection"
})
#endif
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusObjectManagerClient a) =>
a -> m [DBusObjectManagerClientFlags]
dBusObjectManagerClientGetFlags a
manager = IO [DBusObjectManagerClientFlags]
-> m [DBusObjectManagerClientFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [DBusObjectManagerClientFlags]
-> m [DBusObjectManagerClientFlags])
-> IO [DBusObjectManagerClientFlags]
-> m [DBusObjectManagerClientFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr DBusObjectManagerClient
manager' <- a -> IO (Ptr DBusObjectManagerClient)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CUInt
result <- Ptr DBusObjectManagerClient -> IO CUInt
g_dbus_object_manager_client_get_flags Ptr DBusObjectManagerClient
manager'
let result' :: [DBusObjectManagerClientFlags]
result' = CUInt -> [DBusObjectManagerClientFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
[DBusObjectManagerClientFlags] -> IO [DBusObjectManagerClientFlags]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [DBusObjectManagerClientFlags]
result'
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientGetFlagsMethodInfo
instance (signature ~ (m [Gio.Flags.DBusObjectManagerClientFlags]), MonadIO m, IsDBusObjectManagerClient a) => O.OverloadedMethod DBusObjectManagerClientGetFlagsMethodInfo a signature where
overloadedMethod = dBusObjectManagerClientGetFlags
instance O.OverloadedMethodInfo DBusObjectManagerClientGetFlagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientGetFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#v:dBusObjectManagerClientGetFlags"
})
#endif
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusObjectManagerClient a) =>
a -> m Text
dBusObjectManagerClientGetName a
manager = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DBusObjectManagerClient
manager' <- a -> IO (Ptr DBusObjectManagerClient)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr DBusObjectManagerClient -> IO CString
g_dbus_object_manager_client_get_name Ptr DBusObjectManagerClient
manager'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusObjectManagerClientGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusObjectManagerClient a) => O.OverloadedMethod DBusObjectManagerClientGetNameMethodInfo a signature where
overloadedMethod = dBusObjectManagerClientGetName
instance O.OverloadedMethodInfo DBusObjectManagerClientGetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientGetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#v:dBusObjectManagerClientGetName"
})
#endif
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusObjectManagerClient a) =>
a -> m (Maybe Text)
dBusObjectManagerClientGetNameOwner a
manager = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr DBusObjectManagerClient
manager' <- a -> IO (Ptr DBusObjectManagerClient)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
result <- Ptr DBusObjectManagerClient -> IO CString
g_dbus_object_manager_client_get_name_owner Ptr DBusObjectManagerClient
manager'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data DBusObjectManagerClientGetNameOwnerMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDBusObjectManagerClient a) => O.OverloadedMethod DBusObjectManagerClientGetNameOwnerMethodInfo a signature where
overloadedMethod = dBusObjectManagerClientGetNameOwner
instance O.OverloadedMethodInfo DBusObjectManagerClientGetNameOwnerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientGetNameOwner",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.33/docs/GI-Gio-Objects-DBusObjectManagerClient.html#v:dBusObjectManagerClientGetNameOwner"
})
#endif
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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDBusConnection a, IsCancellable b) =>
a
-> [DBusObjectManagerClientFlags]
-> Text
-> Text
-> Maybe DBusProxyTypeFunc
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
dBusObjectManagerClientNew a
connection [DBusObjectManagerClientFlags]
flags Text
name Text
objectPath Maybe DBusProxyTypeFunc
getProxyTypeFunc Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DBusConnection
connection' <- a -> IO (Ptr DBusConnection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
connection
let flags' :: CUInt
flags' = [DBusObjectManagerClientFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusObjectManagerClientFlags]
flags
CString
name' <- Text -> IO CString
textToCString Text
name
CString
objectPath' <- Text -> IO CString
textToCString Text
objectPath
FunPtr C_DBusProxyTypeFunc
maybeGetProxyTypeFunc <- case Maybe DBusProxyTypeFunc
getProxyTypeFunc of
Maybe DBusProxyTypeFunc
Nothing -> FunPtr C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_DBusProxyTypeFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just DBusProxyTypeFunc
jGetProxyTypeFunc -> do
FunPtr C_DBusProxyTypeFunc
jGetProxyTypeFunc' <- C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)
Gio.Callbacks.mk_DBusProxyTypeFunc (Maybe (Ptr (FunPtr C_DBusProxyTypeFunc))
-> DBusProxyTypeFunc_WithClosures -> C_DBusProxyTypeFunc
Gio.Callbacks.wrap_DBusProxyTypeFunc Maybe (Ptr (FunPtr C_DBusProxyTypeFunc))
forall a. Maybe a
Nothing (DBusProxyTypeFunc -> DBusProxyTypeFunc_WithClosures
Gio.Callbacks.drop_closures_DBusProxyTypeFunc DBusProxyTypeFunc
jGetProxyTypeFunc))
FunPtr C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_DBusProxyTypeFunc
jGetProxyTypeFunc'
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let getProxyTypeUserData :: Ptr ()
getProxyTypeUserData = FunPtr C_DBusProxyTypeFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_DBusProxyTypeFunc
maybeGetProxyTypeFunc
let getProxyTypeDestroyNotify :: FunPtr (Ptr a -> IO ())
getProxyTypeDestroyNotify = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr DBusConnection
-> CUInt
-> CString
-> CString
-> FunPtr C_DBusProxyTypeFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> C_DestroyNotify
g_dbus_object_manager_client_new Ptr DBusConnection
connection' CUInt
flags' CString
name' CString
objectPath' FunPtr C_DBusProxyTypeFunc
maybeGetProxyTypeFunc Ptr ()
getProxyTypeUserData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
getProxyTypeDestroyNotify Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
connection
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
objectPath'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_dbus_object_manager_client_new_for_bus" g_dbus_object_manager_client_new_for_bus ::
CInt ->
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCancellable a) =>
BusType
-> [DBusObjectManagerClientFlags]
-> Text
-> Text
-> Maybe DBusProxyTypeFunc
-> Maybe a
-> Maybe AsyncReadyCallback
-> m ()
dBusObjectManagerClientNewForBus BusType
busType [DBusObjectManagerClientFlags]
flags Text
name Text
objectPath Maybe DBusProxyTypeFunc
getProxyTypeFunc Maybe a
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let busType' :: CInt
busType' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (BusType -> Int) -> BusType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. BusType -> Int
forall a. Enum a => a -> Int
fromEnum) BusType
busType
let flags' :: CUInt
flags' = [DBusObjectManagerClientFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusObjectManagerClientFlags]
flags
CString
name' <- Text -> IO CString
textToCString Text
name
CString
objectPath' <- Text -> IO CString
textToCString Text
objectPath
FunPtr C_DBusProxyTypeFunc
maybeGetProxyTypeFunc <- case Maybe DBusProxyTypeFunc
getProxyTypeFunc of
Maybe DBusProxyTypeFunc
Nothing -> FunPtr C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_DBusProxyTypeFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just DBusProxyTypeFunc
jGetProxyTypeFunc -> do
FunPtr C_DBusProxyTypeFunc
jGetProxyTypeFunc' <- C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)
Gio.Callbacks.mk_DBusProxyTypeFunc (Maybe (Ptr (FunPtr C_DBusProxyTypeFunc))
-> DBusProxyTypeFunc_WithClosures -> C_DBusProxyTypeFunc
Gio.Callbacks.wrap_DBusProxyTypeFunc Maybe (Ptr (FunPtr C_DBusProxyTypeFunc))
forall a. Maybe a
Nothing (DBusProxyTypeFunc -> DBusProxyTypeFunc_WithClosures
Gio.Callbacks.drop_closures_DBusProxyTypeFunc DBusProxyTypeFunc
jGetProxyTypeFunc))
FunPtr C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_DBusProxyTypeFunc
jGetProxyTypeFunc'
Ptr Cancellable
maybeCancellable <- case Maybe a
cancellable of
Maybe a
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just a
jCancellable -> do
Ptr Cancellable
jCancellable' <- a -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
FunPtr C_AsyncReadyCallback
jCallback' <- C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
Gio.Callbacks.mk_AsyncReadyCallback (Maybe (Ptr (FunPtr C_AsyncReadyCallback))
-> AsyncReadyCallback_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let getProxyTypeUserData :: Ptr ()
getProxyTypeUserData = FunPtr C_DBusProxyTypeFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_DBusProxyTypeFunc
maybeGetProxyTypeFunc
let getProxyTypeDestroyNotify :: FunPtr (Ptr a -> IO ())
getProxyTypeDestroyNotify = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
CInt
-> CUInt
-> CString
-> CString
-> FunPtr C_DBusProxyTypeFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> C_DestroyNotify
g_dbus_object_manager_client_new_for_bus CInt
busType' CUInt
flags' CString
name' CString
objectPath' FunPtr C_DBusProxyTypeFunc
maybeGetProxyTypeFunc Ptr ()
getProxyTypeUserData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
getProxyTypeDestroyNotify Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
cancellable a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
objectPath'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif