{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Objects.DBusProxy
(
DBusProxy(..) ,
IsDBusProxy ,
toDBusProxy ,
#if defined(ENABLE_OVERLOADING)
ResolveDBusProxyMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DBusProxyCallMethodInfo ,
#endif
dBusProxyCall ,
#if defined(ENABLE_OVERLOADING)
DBusProxyCallFinishMethodInfo ,
#endif
dBusProxyCallFinish ,
#if defined(ENABLE_OVERLOADING)
DBusProxyCallSyncMethodInfo ,
#endif
dBusProxyCallSync ,
#if defined(ENABLE_OVERLOADING)
DBusProxyCallWithUnixFdListMethodInfo ,
#endif
dBusProxyCallWithUnixFdList ,
#if defined(ENABLE_OVERLOADING)
DBusProxyCallWithUnixFdListFinishMethodInfo,
#endif
dBusProxyCallWithUnixFdListFinish ,
#if defined(ENABLE_OVERLOADING)
DBusProxyCallWithUnixFdListSyncMethodInfo,
#endif
dBusProxyCallWithUnixFdListSync ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGetCachedPropertyMethodInfo ,
#endif
dBusProxyGetCachedProperty ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGetCachedPropertyNamesMethodInfo,
#endif
dBusProxyGetCachedPropertyNames ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGetConnectionMethodInfo ,
#endif
dBusProxyGetConnection ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGetDefaultTimeoutMethodInfo ,
#endif
dBusProxyGetDefaultTimeout ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGetFlagsMethodInfo ,
#endif
dBusProxyGetFlags ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGetInterfaceInfoMethodInfo ,
#endif
dBusProxyGetInterfaceInfo ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGetInterfaceNameMethodInfo ,
#endif
dBusProxyGetInterfaceName ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGetNameMethodInfo ,
#endif
dBusProxyGetName ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGetNameOwnerMethodInfo ,
#endif
dBusProxyGetNameOwner ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGetObjectPathMethodInfo ,
#endif
dBusProxyGetObjectPath ,
dBusProxyNew ,
dBusProxyNewFinish ,
dBusProxyNewForBus ,
dBusProxyNewForBusFinish ,
dBusProxyNewForBusSync ,
dBusProxyNewSync ,
#if defined(ENABLE_OVERLOADING)
DBusProxySetCachedPropertyMethodInfo ,
#endif
dBusProxySetCachedProperty ,
#if defined(ENABLE_OVERLOADING)
DBusProxySetDefaultTimeoutMethodInfo ,
#endif
dBusProxySetDefaultTimeout ,
#if defined(ENABLE_OVERLOADING)
DBusProxySetInterfaceInfoMethodInfo ,
#endif
dBusProxySetInterfaceInfo ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGBusTypePropertyInfo ,
#endif
constructDBusProxyGBusType ,
#if defined(ENABLE_OVERLOADING)
dBusProxyGBusType ,
#endif
#if defined(ENABLE_OVERLOADING)
DBusProxyGConnectionPropertyInfo ,
#endif
constructDBusProxyGConnection ,
#if defined(ENABLE_OVERLOADING)
dBusProxyGConnection ,
#endif
getDBusProxyGConnection ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGDefaultTimeoutPropertyInfo ,
#endif
constructDBusProxyGDefaultTimeout ,
#if defined(ENABLE_OVERLOADING)
dBusProxyGDefaultTimeout ,
#endif
getDBusProxyGDefaultTimeout ,
setDBusProxyGDefaultTimeout ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGFlagsPropertyInfo ,
#endif
constructDBusProxyGFlags ,
#if defined(ENABLE_OVERLOADING)
dBusProxyGFlags ,
#endif
getDBusProxyGFlags ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGInterfaceInfoPropertyInfo ,
#endif
clearDBusProxyGInterfaceInfo ,
constructDBusProxyGInterfaceInfo ,
#if defined(ENABLE_OVERLOADING)
dBusProxyGInterfaceInfo ,
#endif
getDBusProxyGInterfaceInfo ,
setDBusProxyGInterfaceInfo ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGInterfaceNamePropertyInfo ,
#endif
constructDBusProxyGInterfaceName ,
#if defined(ENABLE_OVERLOADING)
dBusProxyGInterfaceName ,
#endif
getDBusProxyGInterfaceName ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGNamePropertyInfo ,
#endif
constructDBusProxyGName ,
#if defined(ENABLE_OVERLOADING)
dBusProxyGName ,
#endif
getDBusProxyGName ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGNameOwnerPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dBusProxyGNameOwner ,
#endif
getDBusProxyGNameOwner ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGObjectPathPropertyInfo ,
#endif
constructDBusProxyGObjectPath ,
#if defined(ENABLE_OVERLOADING)
dBusProxyGObjectPath ,
#endif
getDBusProxyGObjectPath ,
DBusProxyGPropertiesChangedCallback ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGPropertiesChangedSignalInfo ,
#endif
afterDBusProxyGPropertiesChanged ,
onDBusProxyGPropertiesChanged ,
DBusProxyGSignalCallback ,
#if defined(ENABLE_OVERLOADING)
DBusProxyGSignalSignalInfo ,
#endif
afterDBusProxyGSignal ,
onDBusProxyGSignal ,
) 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 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.DBusInterface as Gio.DBusInterface
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.UnixFDList as Gio.UnixFDList
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusInterfaceInfo as Gio.DBusInterfaceInfo
newtype DBusProxy = DBusProxy (SP.ManagedPtr DBusProxy)
deriving (DBusProxy -> DBusProxy -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DBusProxy -> DBusProxy -> Bool
$c/= :: DBusProxy -> DBusProxy -> Bool
== :: DBusProxy -> DBusProxy -> Bool
$c== :: DBusProxy -> DBusProxy -> Bool
Eq)
instance SP.ManagedPtrNewtype DBusProxy where
toManagedPtr :: DBusProxy -> ManagedPtr DBusProxy
toManagedPtr (DBusProxy ManagedPtr DBusProxy
p) = ManagedPtr DBusProxy
p
foreign import ccall "g_dbus_proxy_get_type"
c_g_dbus_proxy_get_type :: IO B.Types.GType
instance B.Types.TypedObject DBusProxy where
glibType :: IO GType
glibType = IO GType
c_g_dbus_proxy_get_type
instance B.Types.GObject DBusProxy
class (SP.GObject o, O.IsDescendantOf DBusProxy o) => IsDBusProxy o
instance (SP.GObject o, O.IsDescendantOf DBusProxy o) => IsDBusProxy o
instance O.HasParentTypes DBusProxy
type instance O.ParentTypes DBusProxy = '[GObject.Object.Object, Gio.AsyncInitable.AsyncInitable, Gio.DBusInterface.DBusInterface, Gio.Initable.Initable]
toDBusProxy :: (MIO.MonadIO m, IsDBusProxy o) => o -> m DBusProxy
toDBusProxy :: forall (m :: * -> *) o.
(MonadIO m, IsDBusProxy o) =>
o -> m DBusProxy
toDBusProxy = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DBusProxy -> DBusProxy
DBusProxy
instance B.GValue.IsGValue (Maybe DBusProxy) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_g_dbus_proxy_get_type
gvalueSet_ :: Ptr GValue -> Maybe DBusProxy -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DBusProxy
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr DBusProxy)
gvalueSet_ Ptr GValue
gv (P.Just DBusProxy
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DBusProxy
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DBusProxy)
gvalueGet_ Ptr GValue
gv = do
Ptr DBusProxy
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DBusProxy)
if Ptr DBusProxy
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DBusProxy -> DBusProxy
DBusProxy Ptr DBusProxy
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDBusProxyMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveDBusProxyMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDBusProxyMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDBusProxyMethod "call" o = DBusProxyCallMethodInfo
ResolveDBusProxyMethod "callFinish" o = DBusProxyCallFinishMethodInfo
ResolveDBusProxyMethod "callSync" o = DBusProxyCallSyncMethodInfo
ResolveDBusProxyMethod "callWithUnixFdList" o = DBusProxyCallWithUnixFdListMethodInfo
ResolveDBusProxyMethod "callWithUnixFdListFinish" o = DBusProxyCallWithUnixFdListFinishMethodInfo
ResolveDBusProxyMethod "callWithUnixFdListSync" o = DBusProxyCallWithUnixFdListSyncMethodInfo
ResolveDBusProxyMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDBusProxyMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDBusProxyMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDBusProxyMethod "init" o = Gio.Initable.InitableInitMethodInfo
ResolveDBusProxyMethod "initAsync" o = Gio.AsyncInitable.AsyncInitableInitAsyncMethodInfo
ResolveDBusProxyMethod "initFinish" o = Gio.AsyncInitable.AsyncInitableInitFinishMethodInfo
ResolveDBusProxyMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDBusProxyMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDBusProxyMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDBusProxyMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDBusProxyMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDBusProxyMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDBusProxyMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDBusProxyMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDBusProxyMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDBusProxyMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDBusProxyMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDBusProxyMethod "getCachedProperty" o = DBusProxyGetCachedPropertyMethodInfo
ResolveDBusProxyMethod "getCachedPropertyNames" o = DBusProxyGetCachedPropertyNamesMethodInfo
ResolveDBusProxyMethod "getConnection" o = DBusProxyGetConnectionMethodInfo
ResolveDBusProxyMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDBusProxyMethod "getDefaultTimeout" o = DBusProxyGetDefaultTimeoutMethodInfo
ResolveDBusProxyMethod "getFlags" o = DBusProxyGetFlagsMethodInfo
ResolveDBusProxyMethod "getInfo" o = Gio.DBusInterface.DBusInterfaceGetInfoMethodInfo
ResolveDBusProxyMethod "getInterfaceInfo" o = DBusProxyGetInterfaceInfoMethodInfo
ResolveDBusProxyMethod "getInterfaceName" o = DBusProxyGetInterfaceNameMethodInfo
ResolveDBusProxyMethod "getName" o = DBusProxyGetNameMethodInfo
ResolveDBusProxyMethod "getNameOwner" o = DBusProxyGetNameOwnerMethodInfo
ResolveDBusProxyMethod "getObject" o = Gio.DBusInterface.DBusInterfaceGetObjectMethodInfo
ResolveDBusProxyMethod "getObjectPath" o = DBusProxyGetObjectPathMethodInfo
ResolveDBusProxyMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDBusProxyMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDBusProxyMethod "setCachedProperty" o = DBusProxySetCachedPropertyMethodInfo
ResolveDBusProxyMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDBusProxyMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDBusProxyMethod "setDefaultTimeout" o = DBusProxySetDefaultTimeoutMethodInfo
ResolveDBusProxyMethod "setInterfaceInfo" o = DBusProxySetInterfaceInfoMethodInfo
ResolveDBusProxyMethod "setObject" o = Gio.DBusInterface.DBusInterfaceSetObjectMethodInfo
ResolveDBusProxyMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDBusProxyMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDBusProxyMethod t DBusProxy, O.OverloadedMethod info DBusProxy p) => OL.IsLabel t (DBusProxy -> 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 ~ ResolveDBusProxyMethod t DBusProxy, O.OverloadedMethod info DBusProxy p, R.HasField t DBusProxy p) => R.HasField t DBusProxy p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDBusProxyMethod t DBusProxy, O.OverloadedMethodInfo info DBusProxy) => OL.IsLabel t (O.MethodProxy info DBusProxy) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type DBusProxyGPropertiesChangedCallback =
GVariant
-> [T.Text]
-> IO ()
type C_DBusProxyGPropertiesChangedCallback =
Ptr DBusProxy ->
Ptr GVariant ->
Ptr CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DBusProxyGPropertiesChangedCallback :: C_DBusProxyGPropertiesChangedCallback -> IO (FunPtr C_DBusProxyGPropertiesChangedCallback)
wrap_DBusProxyGPropertiesChangedCallback ::
GObject a => (a -> DBusProxyGPropertiesChangedCallback) ->
C_DBusProxyGPropertiesChangedCallback
wrap_DBusProxyGPropertiesChangedCallback :: forall a.
GObject a =>
(a -> DBusProxyGPropertiesChangedCallback)
-> C_DBusProxyGPropertiesChangedCallback
wrap_DBusProxyGPropertiesChangedCallback a -> DBusProxyGPropertiesChangedCallback
gi'cb Ptr DBusProxy
gi'selfPtr Ptr GVariant
changedProperties Ptr CString
invalidatedProperties Ptr ()
_ = do
GVariant
changedProperties' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
changedProperties
[Text]
invalidatedProperties' <- HasCallStack => Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
invalidatedProperties
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr DBusProxy
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \DBusProxy
gi'self -> a -> DBusProxyGPropertiesChangedCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce DBusProxy
gi'self) GVariant
changedProperties' [Text]
invalidatedProperties'
onDBusProxyGPropertiesChanged :: (IsDBusProxy a, MonadIO m) => a -> ((?self :: a) => DBusProxyGPropertiesChangedCallback) -> m SignalHandlerId
onDBusProxyGPropertiesChanged :: forall a (m :: * -> *).
(IsDBusProxy a, MonadIO m) =>
a
-> ((?self::a) => DBusProxyGPropertiesChangedCallback)
-> m SignalHandlerId
onDBusProxyGPropertiesChanged a
obj (?self::a) => DBusProxyGPropertiesChangedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> DBusProxyGPropertiesChangedCallback
wrapped a
self = let ?self = a
self in (?self::a) => DBusProxyGPropertiesChangedCallback
cb
let wrapped' :: C_DBusProxyGPropertiesChangedCallback
wrapped' = forall a.
GObject a =>
(a -> DBusProxyGPropertiesChangedCallback)
-> C_DBusProxyGPropertiesChangedCallback
wrap_DBusProxyGPropertiesChangedCallback a -> DBusProxyGPropertiesChangedCallback
wrapped
FunPtr C_DBusProxyGPropertiesChangedCallback
wrapped'' <- C_DBusProxyGPropertiesChangedCallback
-> IO (FunPtr C_DBusProxyGPropertiesChangedCallback)
mk_DBusProxyGPropertiesChangedCallback C_DBusProxyGPropertiesChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"g-properties-changed" FunPtr C_DBusProxyGPropertiesChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterDBusProxyGPropertiesChanged :: (IsDBusProxy a, MonadIO m) => a -> ((?self :: a) => DBusProxyGPropertiesChangedCallback) -> m SignalHandlerId
afterDBusProxyGPropertiesChanged :: forall a (m :: * -> *).
(IsDBusProxy a, MonadIO m) =>
a
-> ((?self::a) => DBusProxyGPropertiesChangedCallback)
-> m SignalHandlerId
afterDBusProxyGPropertiesChanged a
obj (?self::a) => DBusProxyGPropertiesChangedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> DBusProxyGPropertiesChangedCallback
wrapped a
self = let ?self = a
self in (?self::a) => DBusProxyGPropertiesChangedCallback
cb
let wrapped' :: C_DBusProxyGPropertiesChangedCallback
wrapped' = forall a.
GObject a =>
(a -> DBusProxyGPropertiesChangedCallback)
-> C_DBusProxyGPropertiesChangedCallback
wrap_DBusProxyGPropertiesChangedCallback a -> DBusProxyGPropertiesChangedCallback
wrapped
FunPtr C_DBusProxyGPropertiesChangedCallback
wrapped'' <- C_DBusProxyGPropertiesChangedCallback
-> IO (FunPtr C_DBusProxyGPropertiesChangedCallback)
mk_DBusProxyGPropertiesChangedCallback C_DBusProxyGPropertiesChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"g-properties-changed" FunPtr C_DBusProxyGPropertiesChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data DBusProxyGPropertiesChangedSignalInfo
instance SignalInfo DBusProxyGPropertiesChangedSignalInfo where
type HaskellCallbackType DBusProxyGPropertiesChangedSignalInfo = DBusProxyGPropertiesChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_DBusProxyGPropertiesChangedCallback cb
cb'' <- mk_DBusProxyGPropertiesChangedCallback cb'
connectSignalFunPtr obj "g-properties-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy::g-properties-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#g:signal:gPropertiesChanged"})
#endif
type DBusProxyGSignalCallback =
Maybe T.Text
-> T.Text
-> GVariant
-> IO ()
type C_DBusProxyGSignalCallback =
Ptr DBusProxy ->
CString ->
CString ->
Ptr GVariant ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DBusProxyGSignalCallback :: C_DBusProxyGSignalCallback -> IO (FunPtr C_DBusProxyGSignalCallback)
wrap_DBusProxyGSignalCallback ::
GObject a => (a -> DBusProxyGSignalCallback) ->
C_DBusProxyGSignalCallback
wrap_DBusProxyGSignalCallback :: forall a.
GObject a =>
(a -> DBusProxyGSignalCallback) -> C_DBusProxyGSignalCallback
wrap_DBusProxyGSignalCallback a -> DBusProxyGSignalCallback
gi'cb Ptr DBusProxy
gi'selfPtr CString
senderName CString
signalName Ptr GVariant
parameters Ptr ()
_ = do
Maybe Text
maybeSenderName <-
if CString
senderName forall a. Eq a => a -> a -> Bool
== forall a. Ptr a
nullPtr
then forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
Nothing
else do
Text
senderName' <- HasCallStack => CString -> IO Text
cstringToText CString
senderName
forall (m :: * -> *) a. Monad m => a -> m a
return forall a b. (a -> b) -> a -> b
$ forall a. a -> Maybe a
Just Text
senderName'
Text
signalName' <- HasCallStack => CString -> IO Text
cstringToText CString
signalName
GVariant
parameters' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
parameters
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr DBusProxy
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \DBusProxy
gi'self -> a -> DBusProxyGSignalCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce DBusProxy
gi'self) Maybe Text
maybeSenderName Text
signalName' GVariant
parameters'
onDBusProxyGSignal :: (IsDBusProxy a, MonadIO m) => a -> P.Maybe T.Text -> ((?self :: a) => DBusProxyGSignalCallback) -> m SignalHandlerId
onDBusProxyGSignal :: forall a (m :: * -> *).
(IsDBusProxy a, MonadIO m) =>
a
-> Maybe Text
-> ((?self::a) => DBusProxyGSignalCallback)
-> m SignalHandlerId
onDBusProxyGSignal a
obj Maybe Text
detail (?self::a) => DBusProxyGSignalCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> DBusProxyGSignalCallback
wrapped a
self = let ?self = a
self in (?self::a) => DBusProxyGSignalCallback
cb
let wrapped' :: C_DBusProxyGSignalCallback
wrapped' = forall a.
GObject a =>
(a -> DBusProxyGSignalCallback) -> C_DBusProxyGSignalCallback
wrap_DBusProxyGSignalCallback a -> DBusProxyGSignalCallback
wrapped
FunPtr C_DBusProxyGSignalCallback
wrapped'' <- C_DBusProxyGSignalCallback
-> IO (FunPtr C_DBusProxyGSignalCallback)
mk_DBusProxyGSignalCallback C_DBusProxyGSignalCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"g-signal" FunPtr C_DBusProxyGSignalCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
detail
afterDBusProxyGSignal :: (IsDBusProxy a, MonadIO m) => a -> P.Maybe T.Text -> ((?self :: a) => DBusProxyGSignalCallback) -> m SignalHandlerId
afterDBusProxyGSignal :: forall a (m :: * -> *).
(IsDBusProxy a, MonadIO m) =>
a
-> Maybe Text
-> ((?self::a) => DBusProxyGSignalCallback)
-> m SignalHandlerId
afterDBusProxyGSignal a
obj Maybe Text
detail (?self::a) => DBusProxyGSignalCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> DBusProxyGSignalCallback
wrapped a
self = let ?self = a
self in (?self::a) => DBusProxyGSignalCallback
cb
let wrapped' :: C_DBusProxyGSignalCallback
wrapped' = forall a.
GObject a =>
(a -> DBusProxyGSignalCallback) -> C_DBusProxyGSignalCallback
wrap_DBusProxyGSignalCallback a -> DBusProxyGSignalCallback
wrapped
FunPtr C_DBusProxyGSignalCallback
wrapped'' <- C_DBusProxyGSignalCallback
-> IO (FunPtr C_DBusProxyGSignalCallback)
mk_DBusProxyGSignalCallback C_DBusProxyGSignalCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"g-signal" FunPtr C_DBusProxyGSignalCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
detail
#if defined(ENABLE_OVERLOADING)
data DBusProxyGSignalSignalInfo
instance SignalInfo DBusProxyGSignalSignalInfo where
type HaskellCallbackType DBusProxyGSignalSignalInfo = DBusProxyGSignalCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_DBusProxyGSignalCallback cb
cb'' <- mk_DBusProxyGSignalCallback cb'
connectSignalFunPtr obj "g-signal" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy::g-signal"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#g:signal:gSignal"})
#endif
constructDBusProxyGBusType :: (IsDBusProxy o, MIO.MonadIO m) => Gio.Enums.BusType -> m (GValueConstruct o)
constructDBusProxyGBusType :: forall o (m :: * -> *).
(IsDBusProxy o, MonadIO m) =>
BusType -> m (GValueConstruct o)
constructDBusProxyGBusType BusType
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"g-bus-type" BusType
val
#if defined(ENABLE_OVERLOADING)
data DBusProxyGBusTypePropertyInfo
instance AttrInfo DBusProxyGBusTypePropertyInfo where
type AttrAllowedOps DBusProxyGBusTypePropertyInfo = '[ 'AttrConstruct]
type AttrBaseTypeConstraint DBusProxyGBusTypePropertyInfo = IsDBusProxy
type AttrSetTypeConstraint DBusProxyGBusTypePropertyInfo = (~) Gio.Enums.BusType
type AttrTransferTypeConstraint DBusProxyGBusTypePropertyInfo = (~) Gio.Enums.BusType
type AttrTransferType DBusProxyGBusTypePropertyInfo = Gio.Enums.BusType
type AttrGetType DBusProxyGBusTypePropertyInfo = ()
type AttrLabel DBusProxyGBusTypePropertyInfo = "g-bus-type"
type AttrOrigin DBusProxyGBusTypePropertyInfo = DBusProxy
attrGet = undefined
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructDBusProxyGBusType
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.gBusType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#g:attr:gBusType"
})
#endif
getDBusProxyGConnection :: (MonadIO m, IsDBusProxy o) => o -> m (Maybe Gio.DBusConnection.DBusConnection)
getDBusProxyGConnection :: forall (m :: * -> *) o.
(MonadIO m, IsDBusProxy o) =>
o -> m (Maybe DBusConnection)
getDBusProxyGConnection o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"g-connection" ManagedPtr DBusConnection -> DBusConnection
Gio.DBusConnection.DBusConnection
constructDBusProxyGConnection :: (IsDBusProxy o, MIO.MonadIO m, Gio.DBusConnection.IsDBusConnection a) => a -> m (GValueConstruct o)
constructDBusProxyGConnection :: forall o (m :: * -> *) a.
(IsDBusProxy o, MonadIO m, IsDBusConnection a) =>
a -> m (GValueConstruct o)
constructDBusProxyGConnection a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"g-connection" (forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data DBusProxyGConnectionPropertyInfo
instance AttrInfo DBusProxyGConnectionPropertyInfo where
type AttrAllowedOps DBusProxyGConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DBusProxyGConnectionPropertyInfo = IsDBusProxy
type AttrSetTypeConstraint DBusProxyGConnectionPropertyInfo = Gio.DBusConnection.IsDBusConnection
type AttrTransferTypeConstraint DBusProxyGConnectionPropertyInfo = Gio.DBusConnection.IsDBusConnection
type AttrTransferType DBusProxyGConnectionPropertyInfo = Gio.DBusConnection.DBusConnection
type AttrGetType DBusProxyGConnectionPropertyInfo = (Maybe Gio.DBusConnection.DBusConnection)
type AttrLabel DBusProxyGConnectionPropertyInfo = "g-connection"
type AttrOrigin DBusProxyGConnectionPropertyInfo = DBusProxy
attrGet = getDBusProxyGConnection
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gio.DBusConnection.DBusConnection v
attrConstruct = constructDBusProxyGConnection
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.gConnection"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#g:attr:gConnection"
})
#endif
getDBusProxyGDefaultTimeout :: (MonadIO m, IsDBusProxy o) => o -> m Int32
getDBusProxyGDefaultTimeout :: forall (m :: * -> *) o. (MonadIO m, IsDBusProxy o) => o -> m Int32
getDBusProxyGDefaultTimeout o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"g-default-timeout"
setDBusProxyGDefaultTimeout :: (MonadIO m, IsDBusProxy o) => o -> Int32 -> m ()
setDBusProxyGDefaultTimeout :: forall (m :: * -> *) o.
(MonadIO m, IsDBusProxy o) =>
o -> Int32 -> m ()
setDBusProxyGDefaultTimeout o
obj Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"g-default-timeout" Int32
val
constructDBusProxyGDefaultTimeout :: (IsDBusProxy o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructDBusProxyGDefaultTimeout :: forall o (m :: * -> *).
(IsDBusProxy o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructDBusProxyGDefaultTimeout Int32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"g-default-timeout" Int32
val
#if defined(ENABLE_OVERLOADING)
data DBusProxyGDefaultTimeoutPropertyInfo
instance AttrInfo DBusProxyGDefaultTimeoutPropertyInfo where
type AttrAllowedOps DBusProxyGDefaultTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DBusProxyGDefaultTimeoutPropertyInfo = IsDBusProxy
type AttrSetTypeConstraint DBusProxyGDefaultTimeoutPropertyInfo = (~) Int32
type AttrTransferTypeConstraint DBusProxyGDefaultTimeoutPropertyInfo = (~) Int32
type AttrTransferType DBusProxyGDefaultTimeoutPropertyInfo = Int32
type AttrGetType DBusProxyGDefaultTimeoutPropertyInfo = Int32
type AttrLabel DBusProxyGDefaultTimeoutPropertyInfo = "g-default-timeout"
type AttrOrigin DBusProxyGDefaultTimeoutPropertyInfo = DBusProxy
attrGet = getDBusProxyGDefaultTimeout
attrSet = setDBusProxyGDefaultTimeout
attrTransfer _ v = do
return v
attrConstruct = constructDBusProxyGDefaultTimeout
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.gDefaultTimeout"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#g:attr:gDefaultTimeout"
})
#endif
getDBusProxyGFlags :: (MonadIO m, IsDBusProxy o) => o -> m [Gio.Flags.DBusProxyFlags]
getDBusProxyGFlags :: forall (m :: * -> *) o.
(MonadIO m, IsDBusProxy o) =>
o -> m [DBusProxyFlags]
getDBusProxyGFlags o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"g-flags"
constructDBusProxyGFlags :: (IsDBusProxy o, MIO.MonadIO m) => [Gio.Flags.DBusProxyFlags] -> m (GValueConstruct o)
constructDBusProxyGFlags :: forall o (m :: * -> *).
(IsDBusProxy o, MonadIO m) =>
[DBusProxyFlags] -> m (GValueConstruct o)
constructDBusProxyGFlags [DBusProxyFlags]
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"g-flags" [DBusProxyFlags]
val
#if defined(ENABLE_OVERLOADING)
data DBusProxyGFlagsPropertyInfo
instance AttrInfo DBusProxyGFlagsPropertyInfo where
type AttrAllowedOps DBusProxyGFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DBusProxyGFlagsPropertyInfo = IsDBusProxy
type AttrSetTypeConstraint DBusProxyGFlagsPropertyInfo = (~) [Gio.Flags.DBusProxyFlags]
type AttrTransferTypeConstraint DBusProxyGFlagsPropertyInfo = (~) [Gio.Flags.DBusProxyFlags]
type AttrTransferType DBusProxyGFlagsPropertyInfo = [Gio.Flags.DBusProxyFlags]
type AttrGetType DBusProxyGFlagsPropertyInfo = [Gio.Flags.DBusProxyFlags]
type AttrLabel DBusProxyGFlagsPropertyInfo = "g-flags"
type AttrOrigin DBusProxyGFlagsPropertyInfo = DBusProxy
attrGet = getDBusProxyGFlags
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructDBusProxyGFlags
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.gFlags"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#g:attr:gFlags"
})
#endif
getDBusProxyGInterfaceInfo :: (MonadIO m, IsDBusProxy o) => o -> m (Maybe Gio.DBusInterfaceInfo.DBusInterfaceInfo)
getDBusProxyGInterfaceInfo :: forall (m :: * -> *) o.
(MonadIO m, IsDBusProxy o) =>
o -> m (Maybe DBusInterfaceInfo)
getDBusProxyGInterfaceInfo o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"g-interface-info" ManagedPtr DBusInterfaceInfo -> DBusInterfaceInfo
Gio.DBusInterfaceInfo.DBusInterfaceInfo
setDBusProxyGInterfaceInfo :: (MonadIO m, IsDBusProxy o) => o -> Gio.DBusInterfaceInfo.DBusInterfaceInfo -> m ()
setDBusProxyGInterfaceInfo :: forall (m :: * -> *) o.
(MonadIO m, IsDBusProxy o) =>
o -> DBusInterfaceInfo -> m ()
setDBusProxyGInterfaceInfo o
obj DBusInterfaceInfo
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"g-interface-info" (forall a. a -> Maybe a
Just DBusInterfaceInfo
val)
constructDBusProxyGInterfaceInfo :: (IsDBusProxy o, MIO.MonadIO m) => Gio.DBusInterfaceInfo.DBusInterfaceInfo -> m (GValueConstruct o)
constructDBusProxyGInterfaceInfo :: forall o (m :: * -> *).
(IsDBusProxy o, MonadIO m) =>
DBusInterfaceInfo -> m (GValueConstruct o)
constructDBusProxyGInterfaceInfo DBusInterfaceInfo
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"g-interface-info" (forall a. a -> Maybe a
P.Just DBusInterfaceInfo
val)
clearDBusProxyGInterfaceInfo :: (MonadIO m, IsDBusProxy o) => o -> m ()
clearDBusProxyGInterfaceInfo :: forall (m :: * -> *) o. (MonadIO m, IsDBusProxy o) => o -> m ()
clearDBusProxyGInterfaceInfo o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"g-interface-info" (forall a. Maybe a
Nothing :: Maybe Gio.DBusInterfaceInfo.DBusInterfaceInfo)
#if defined(ENABLE_OVERLOADING)
data DBusProxyGInterfaceInfoPropertyInfo
instance AttrInfo DBusProxyGInterfaceInfoPropertyInfo where
type AttrAllowedOps DBusProxyGInterfaceInfoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DBusProxyGInterfaceInfoPropertyInfo = IsDBusProxy
type AttrSetTypeConstraint DBusProxyGInterfaceInfoPropertyInfo = (~) Gio.DBusInterfaceInfo.DBusInterfaceInfo
type AttrTransferTypeConstraint DBusProxyGInterfaceInfoPropertyInfo = (~) Gio.DBusInterfaceInfo.DBusInterfaceInfo
type AttrTransferType DBusProxyGInterfaceInfoPropertyInfo = Gio.DBusInterfaceInfo.DBusInterfaceInfo
type AttrGetType DBusProxyGInterfaceInfoPropertyInfo = (Maybe Gio.DBusInterfaceInfo.DBusInterfaceInfo)
type AttrLabel DBusProxyGInterfaceInfoPropertyInfo = "g-interface-info"
type AttrOrigin DBusProxyGInterfaceInfoPropertyInfo = DBusProxy
attrGet = getDBusProxyGInterfaceInfo
attrSet = setDBusProxyGInterfaceInfo
attrTransfer _ v = do
return v
attrConstruct = constructDBusProxyGInterfaceInfo
attrClear = clearDBusProxyGInterfaceInfo
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.gInterfaceInfo"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#g:attr:gInterfaceInfo"
})
#endif
getDBusProxyGInterfaceName :: (MonadIO m, IsDBusProxy o) => o -> m (Maybe T.Text)
getDBusProxyGInterfaceName :: forall (m :: * -> *) o.
(MonadIO m, IsDBusProxy o) =>
o -> m (Maybe Text)
getDBusProxyGInterfaceName o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"g-interface-name"
constructDBusProxyGInterfaceName :: (IsDBusProxy o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDBusProxyGInterfaceName :: forall o (m :: * -> *).
(IsDBusProxy o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDBusProxyGInterfaceName Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"g-interface-name" (forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DBusProxyGInterfaceNamePropertyInfo
instance AttrInfo DBusProxyGInterfaceNamePropertyInfo where
type AttrAllowedOps DBusProxyGInterfaceNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DBusProxyGInterfaceNamePropertyInfo = IsDBusProxy
type AttrSetTypeConstraint DBusProxyGInterfaceNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DBusProxyGInterfaceNamePropertyInfo = (~) T.Text
type AttrTransferType DBusProxyGInterfaceNamePropertyInfo = T.Text
type AttrGetType DBusProxyGInterfaceNamePropertyInfo = (Maybe T.Text)
type AttrLabel DBusProxyGInterfaceNamePropertyInfo = "g-interface-name"
type AttrOrigin DBusProxyGInterfaceNamePropertyInfo = DBusProxy
attrGet = getDBusProxyGInterfaceName
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructDBusProxyGInterfaceName
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.gInterfaceName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#g:attr:gInterfaceName"
})
#endif
getDBusProxyGName :: (MonadIO m, IsDBusProxy o) => o -> m (Maybe T.Text)
getDBusProxyGName :: forall (m :: * -> *) o.
(MonadIO m, IsDBusProxy o) =>
o -> m (Maybe Text)
getDBusProxyGName o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"g-name"
constructDBusProxyGName :: (IsDBusProxy o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDBusProxyGName :: forall o (m :: * -> *).
(IsDBusProxy o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDBusProxyGName Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"g-name" (forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DBusProxyGNamePropertyInfo
instance AttrInfo DBusProxyGNamePropertyInfo where
type AttrAllowedOps DBusProxyGNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DBusProxyGNamePropertyInfo = IsDBusProxy
type AttrSetTypeConstraint DBusProxyGNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DBusProxyGNamePropertyInfo = (~) T.Text
type AttrTransferType DBusProxyGNamePropertyInfo = T.Text
type AttrGetType DBusProxyGNamePropertyInfo = (Maybe T.Text)
type AttrLabel DBusProxyGNamePropertyInfo = "g-name"
type AttrOrigin DBusProxyGNamePropertyInfo = DBusProxy
attrGet = getDBusProxyGName
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructDBusProxyGName
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.gName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#g:attr:gName"
})
#endif
getDBusProxyGNameOwner :: (MonadIO m, IsDBusProxy o) => o -> m (Maybe T.Text)
getDBusProxyGNameOwner :: forall (m :: * -> *) o.
(MonadIO m, IsDBusProxy o) =>
o -> m (Maybe Text)
getDBusProxyGNameOwner o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"g-name-owner"
#if defined(ENABLE_OVERLOADING)
data DBusProxyGNameOwnerPropertyInfo
instance AttrInfo DBusProxyGNameOwnerPropertyInfo where
type AttrAllowedOps DBusProxyGNameOwnerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DBusProxyGNameOwnerPropertyInfo = IsDBusProxy
type AttrSetTypeConstraint DBusProxyGNameOwnerPropertyInfo = (~) ()
type AttrTransferTypeConstraint DBusProxyGNameOwnerPropertyInfo = (~) ()
type AttrTransferType DBusProxyGNameOwnerPropertyInfo = ()
type AttrGetType DBusProxyGNameOwnerPropertyInfo = (Maybe T.Text)
type AttrLabel DBusProxyGNameOwnerPropertyInfo = "g-name-owner"
type AttrOrigin DBusProxyGNameOwnerPropertyInfo = DBusProxy
attrGet = getDBusProxyGNameOwner
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.gNameOwner"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#g:attr:gNameOwner"
})
#endif
getDBusProxyGObjectPath :: (MonadIO m, IsDBusProxy o) => o -> m (Maybe T.Text)
getDBusProxyGObjectPath :: forall (m :: * -> *) o.
(MonadIO m, IsDBusProxy o) =>
o -> m (Maybe Text)
getDBusProxyGObjectPath o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"g-object-path"
constructDBusProxyGObjectPath :: (IsDBusProxy o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDBusProxyGObjectPath :: forall o (m :: * -> *).
(IsDBusProxy o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDBusProxyGObjectPath Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"g-object-path" (forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DBusProxyGObjectPathPropertyInfo
instance AttrInfo DBusProxyGObjectPathPropertyInfo where
type AttrAllowedOps DBusProxyGObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DBusProxyGObjectPathPropertyInfo = IsDBusProxy
type AttrSetTypeConstraint DBusProxyGObjectPathPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DBusProxyGObjectPathPropertyInfo = (~) T.Text
type AttrTransferType DBusProxyGObjectPathPropertyInfo = T.Text
type AttrGetType DBusProxyGObjectPathPropertyInfo = (Maybe T.Text)
type AttrLabel DBusProxyGObjectPathPropertyInfo = "g-object-path"
type AttrOrigin DBusProxyGObjectPathPropertyInfo = DBusProxy
attrGet = getDBusProxyGObjectPath
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructDBusProxyGObjectPath
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.gObjectPath"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#g:attr:gObjectPath"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DBusProxy
type instance O.AttributeList DBusProxy = DBusProxyAttributeList
type DBusProxyAttributeList = ('[ '("gBusType", DBusProxyGBusTypePropertyInfo), '("gConnection", DBusProxyGConnectionPropertyInfo), '("gDefaultTimeout", DBusProxyGDefaultTimeoutPropertyInfo), '("gFlags", DBusProxyGFlagsPropertyInfo), '("gInterfaceInfo", DBusProxyGInterfaceInfoPropertyInfo), '("gInterfaceName", DBusProxyGInterfaceNamePropertyInfo), '("gName", DBusProxyGNamePropertyInfo), '("gNameOwner", DBusProxyGNameOwnerPropertyInfo), '("gObjectPath", DBusProxyGObjectPathPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
dBusProxyGBusType :: AttrLabelProxy "gBusType"
dBusProxyGBusType = AttrLabelProxy
dBusProxyGConnection :: AttrLabelProxy "gConnection"
dBusProxyGConnection = AttrLabelProxy
dBusProxyGDefaultTimeout :: AttrLabelProxy "gDefaultTimeout"
dBusProxyGDefaultTimeout = AttrLabelProxy
dBusProxyGFlags :: AttrLabelProxy "gFlags"
dBusProxyGFlags = AttrLabelProxy
dBusProxyGInterfaceInfo :: AttrLabelProxy "gInterfaceInfo"
dBusProxyGInterfaceInfo = AttrLabelProxy
dBusProxyGInterfaceName :: AttrLabelProxy "gInterfaceName"
dBusProxyGInterfaceName = AttrLabelProxy
dBusProxyGName :: AttrLabelProxy "gName"
dBusProxyGName = AttrLabelProxy
dBusProxyGNameOwner :: AttrLabelProxy "gNameOwner"
dBusProxyGNameOwner = AttrLabelProxy
dBusProxyGObjectPath :: AttrLabelProxy "gObjectPath"
dBusProxyGObjectPath = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DBusProxy = DBusProxySignalList
type DBusProxySignalList = ('[ '("gPropertiesChanged", DBusProxyGPropertiesChangedSignalInfo), '("gSignal", DBusProxyGSignalSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "g_dbus_proxy_new_finish" g_dbus_proxy_new_finish ::
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr DBusProxy)
dBusProxyNewFinish ::
(B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>
a
-> m DBusProxy
dBusProxyNewFinish :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAsyncResult a) =>
a -> m DBusProxy
dBusProxyNewFinish a
res = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr AsyncResult
res' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
res
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DBusProxy
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr DBusProxy)
g_dbus_proxy_new_finish Ptr AsyncResult
res'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusProxyNewFinish" Ptr DBusProxy
result
DBusProxy
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DBusProxy -> DBusProxy
DBusProxy) Ptr DBusProxy
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
res
forall (m :: * -> *) a. Monad m => a -> m a
return DBusProxy
result'
) (do
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_dbus_proxy_new_for_bus_finish" g_dbus_proxy_new_for_bus_finish ::
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr DBusProxy)
dBusProxyNewForBusFinish ::
(B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>
a
-> m DBusProxy
dBusProxyNewForBusFinish :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAsyncResult a) =>
a -> m DBusProxy
dBusProxyNewForBusFinish a
res = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr AsyncResult
res' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
res
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DBusProxy
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr DBusProxy)
g_dbus_proxy_new_for_bus_finish Ptr AsyncResult
res'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusProxyNewForBusFinish" Ptr DBusProxy
result
DBusProxy
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DBusProxy -> DBusProxy
DBusProxy) Ptr DBusProxy
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
res
forall (m :: * -> *) a. Monad m => a -> m a
return DBusProxy
result'
) (do
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_dbus_proxy_new_for_bus_sync" g_dbus_proxy_new_for_bus_sync ::
CInt ->
CUInt ->
Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo ->
CString ->
CString ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr DBusProxy)
dBusProxyNewForBusSync ::
(B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>
Gio.Enums.BusType
-> [Gio.Flags.DBusProxyFlags]
-> Maybe (Gio.DBusInterfaceInfo.DBusInterfaceInfo)
-> T.Text
-> T.Text
-> T.Text
-> Maybe (a)
-> m DBusProxy
dBusProxyNewForBusSync :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCancellable a) =>
BusType
-> [DBusProxyFlags]
-> Maybe DBusInterfaceInfo
-> Text
-> Text
-> Text
-> Maybe a
-> m DBusProxy
dBusProxyNewForBusSync BusType
busType [DBusProxyFlags]
flags Maybe DBusInterfaceInfo
info Text
name Text
objectPath Text
interfaceName Maybe a
cancellable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let busType' :: CInt
busType' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) BusType
busType
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusProxyFlags]
flags
Ptr DBusInterfaceInfo
maybeInfo <- case Maybe DBusInterfaceInfo
info of
Maybe DBusInterfaceInfo
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just DBusInterfaceInfo
jInfo -> do
Ptr DBusInterfaceInfo
jInfo' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr DBusInterfaceInfo
jInfo
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DBusInterfaceInfo
jInfo'
CString
name' <- Text -> IO CString
textToCString Text
name
CString
objectPath' <- Text -> IO CString
textToCString Text
objectPath
CString
interfaceName' <- Text -> IO CString
textToCString Text
interfaceName
Ptr Cancellable
maybeCancellable <- case Maybe a
cancellable of
Maybe a
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just a
jCancellable -> do
Ptr Cancellable
jCancellable' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jCancellable
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DBusProxy
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ CInt
-> CUInt
-> Ptr DBusInterfaceInfo
-> CString
-> CString
-> CString
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO (Ptr DBusProxy)
g_dbus_proxy_new_for_bus_sync CInt
busType' CUInt
flags' Ptr DBusInterfaceInfo
maybeInfo CString
name' CString
objectPath' CString
interfaceName' Ptr Cancellable
maybeCancellable
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusProxyNewForBusSync" Ptr DBusProxy
result
DBusProxy
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DBusProxy -> DBusProxy
DBusProxy) Ptr DBusProxy
result
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe DBusInterfaceInfo
info forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
cancellable forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem CString
name'
forall a. Ptr a -> IO ()
freeMem CString
objectPath'
forall a. Ptr a -> IO ()
freeMem CString
interfaceName'
forall (m :: * -> *) a. Monad m => a -> m a
return DBusProxy
result'
) (do
forall a. Ptr a -> IO ()
freeMem CString
name'
forall a. Ptr a -> IO ()
freeMem CString
objectPath'
forall a. Ptr a -> IO ()
freeMem CString
interfaceName'
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_dbus_proxy_new_sync" g_dbus_proxy_new_sync ::
Ptr Gio.DBusConnection.DBusConnection ->
CUInt ->
Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo ->
CString ->
CString ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr DBusProxy)
dBusProxyNewSync ::
(B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>
a
-> [Gio.Flags.DBusProxyFlags]
-> Maybe (Gio.DBusInterfaceInfo.DBusInterfaceInfo)
-> Maybe (T.Text)
-> T.Text
-> T.Text
-> Maybe (b)
-> m DBusProxy
dBusProxyNewSync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDBusConnection a, IsCancellable b) =>
a
-> [DBusProxyFlags]
-> Maybe DBusInterfaceInfo
-> Maybe Text
-> Text
-> Text
-> Maybe b
-> m DBusProxy
dBusProxyNewSync a
connection [DBusProxyFlags]
flags Maybe DBusInterfaceInfo
info Maybe Text
name Text
objectPath Text
interfaceName Maybe b
cancellable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusConnection
connection' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
connection
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusProxyFlags]
flags
Ptr DBusInterfaceInfo
maybeInfo <- case Maybe DBusInterfaceInfo
info of
Maybe DBusInterfaceInfo
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just DBusInterfaceInfo
jInfo -> do
Ptr DBusInterfaceInfo
jInfo' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr DBusInterfaceInfo
jInfo
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DBusInterfaceInfo
jInfo'
CString
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
CString
objectPath' <- Text -> IO CString
textToCString Text
objectPath
CString
interfaceName' <- Text -> IO CString
textToCString Text
interfaceName
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DBusProxy
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr DBusConnection
-> CUInt
-> Ptr DBusInterfaceInfo
-> CString
-> CString
-> CString
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO (Ptr DBusProxy)
g_dbus_proxy_new_sync Ptr DBusConnection
connection' CUInt
flags' Ptr DBusInterfaceInfo
maybeInfo CString
maybeName CString
objectPath' CString
interfaceName' Ptr Cancellable
maybeCancellable
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusProxyNewSync" Ptr DBusProxy
result
DBusProxy
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DBusProxy -> DBusProxy
DBusProxy) Ptr DBusProxy
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
connection
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe DBusInterfaceInfo
info forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem CString
maybeName
forall a. Ptr a -> IO ()
freeMem CString
objectPath'
forall a. Ptr a -> IO ()
freeMem CString
interfaceName'
forall (m :: * -> *) a. Monad m => a -> m a
return DBusProxy
result'
) (do
forall a. Ptr a -> IO ()
freeMem CString
maybeName
forall a. Ptr a -> IO ()
freeMem CString
objectPath'
forall a. Ptr a -> IO ()
freeMem CString
interfaceName'
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_dbus_proxy_call" g_dbus_proxy_call ::
Ptr DBusProxy ->
CString ->
Ptr GVariant ->
CUInt ->
Int32 ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
dBusProxyCall ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Maybe (GVariant)
-> [Gio.Flags.DBusCallFlags]
-> Int32
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
dBusProxyCall :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDBusProxy a, IsCancellable b) =>
a
-> Text
-> Maybe GVariant
-> [DBusCallFlags]
-> Int32
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
dBusProxyCall a
proxy Text
methodName Maybe GVariant
parameters [DBusCallFlags]
flags Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
CString
methodName' <- Text -> IO CString
textToCString Text
methodName
Ptr GVariant
maybeParameters <- case Maybe GVariant
parameters of
Maybe GVariant
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just GVariant
jParameters -> do
Ptr GVariant
jParameters' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jParameters
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jParameters'
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusCallFlags]
flags
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return (forall a b. Ptr a -> FunPtr b
castPtrToFunPtr forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- 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 -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) AsyncReadyCallback
jCallback)
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = forall a. Ptr a
nullPtr
Ptr DBusProxy
-> CString
-> Ptr GVariant
-> CUInt
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
g_dbus_proxy_call Ptr DBusProxy
proxy' CString
methodName' Ptr GVariant
maybeParameters CUInt
flags' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback forall a. Ptr a
userData
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
parameters forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem CString
methodName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DBusProxyCallMethodInfo
instance (signature ~ (T.Text -> Maybe (GVariant) -> [Gio.Flags.DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDBusProxy a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod DBusProxyCallMethodInfo a signature where
overloadedMethod = dBusProxyCall
instance O.OverloadedMethodInfo DBusProxyCallMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyCall",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyCall"
})
#endif
foreign import ccall "g_dbus_proxy_call_finish" g_dbus_proxy_call_finish ::
Ptr DBusProxy ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr GVariant)
dBusProxyCallFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m GVariant
dBusProxyCallFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDBusProxy a, IsAsyncResult b) =>
a -> b -> m GVariant
dBusProxyCallFinish a
proxy b
res = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
Ptr AsyncResult
res' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
forall a b. IO a -> IO b -> IO a
onException (do
Ptr GVariant
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr DBusProxy
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr GVariant)
g_dbus_proxy_call_finish Ptr DBusProxy
proxy' Ptr AsyncResult
res'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusProxyCallFinish" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'
) (do
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DBusProxyCallFinishMethodInfo
instance (signature ~ (b -> m GVariant), MonadIO m, IsDBusProxy a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod DBusProxyCallFinishMethodInfo a signature where
overloadedMethod = dBusProxyCallFinish
instance O.OverloadedMethodInfo DBusProxyCallFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyCallFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyCallFinish"
})
#endif
foreign import ccall "g_dbus_proxy_call_sync" g_dbus_proxy_call_sync ::
Ptr DBusProxy ->
CString ->
Ptr GVariant ->
CUInt ->
Int32 ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr GVariant)
dBusProxyCallSync ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Maybe (GVariant)
-> [Gio.Flags.DBusCallFlags]
-> Int32
-> Maybe (b)
-> m GVariant
dBusProxyCallSync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDBusProxy a, IsCancellable b) =>
a
-> Text
-> Maybe GVariant
-> [DBusCallFlags]
-> Int32
-> Maybe b
-> m GVariant
dBusProxyCallSync a
proxy Text
methodName Maybe GVariant
parameters [DBusCallFlags]
flags Int32
timeoutMsec Maybe b
cancellable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
CString
methodName' <- Text -> IO CString
textToCString Text
methodName
Ptr GVariant
maybeParameters <- case Maybe GVariant
parameters of
Maybe GVariant
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just GVariant
jParameters -> do
Ptr GVariant
jParameters' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jParameters
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jParameters'
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusCallFlags]
flags
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
forall a b. IO a -> IO b -> IO a
onException (do
Ptr GVariant
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr DBusProxy
-> CString
-> Ptr GVariant
-> CUInt
-> Int32
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO (Ptr GVariant)
g_dbus_proxy_call_sync Ptr DBusProxy
proxy' CString
methodName' Ptr GVariant
maybeParameters CUInt
flags' Int32
timeoutMsec Ptr Cancellable
maybeCancellable
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusProxyCallSync" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
parameters forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem CString
methodName'
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'
) (do
forall a. Ptr a -> IO ()
freeMem CString
methodName'
)
#if defined(ENABLE_OVERLOADING)
data DBusProxyCallSyncMethodInfo
instance (signature ~ (T.Text -> Maybe (GVariant) -> [Gio.Flags.DBusCallFlags] -> Int32 -> Maybe (b) -> m GVariant), MonadIO m, IsDBusProxy a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod DBusProxyCallSyncMethodInfo a signature where
overloadedMethod = dBusProxyCallSync
instance O.OverloadedMethodInfo DBusProxyCallSyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyCallSync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyCallSync"
})
#endif
foreign import ccall "g_dbus_proxy_call_with_unix_fd_list" g_dbus_proxy_call_with_unix_fd_list ::
Ptr DBusProxy ->
CString ->
Ptr GVariant ->
CUInt ->
Int32 ->
Ptr Gio.UnixFDList.UnixFDList ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
dBusProxyCallWithUnixFdList ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a, Gio.UnixFDList.IsUnixFDList b, Gio.Cancellable.IsCancellable c) =>
a
-> T.Text
-> Maybe (GVariant)
-> [Gio.Flags.DBusCallFlags]
-> Int32
-> Maybe (b)
-> Maybe (c)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
dBusProxyCallWithUnixFdList :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsDBusProxy a, IsUnixFDList b,
IsCancellable c) =>
a
-> Text
-> Maybe GVariant
-> [DBusCallFlags]
-> Int32
-> Maybe b
-> Maybe c
-> Maybe AsyncReadyCallback
-> m ()
dBusProxyCallWithUnixFdList a
proxy Text
methodName Maybe GVariant
parameters [DBusCallFlags]
flags Int32
timeoutMsec Maybe b
fdList Maybe c
cancellable Maybe AsyncReadyCallback
callback = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
CString
methodName' <- Text -> IO CString
textToCString Text
methodName
Ptr GVariant
maybeParameters <- case Maybe GVariant
parameters of
Maybe GVariant
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just GVariant
jParameters -> do
Ptr GVariant
jParameters' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jParameters
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jParameters'
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusCallFlags]
flags
Ptr UnixFDList
maybeFdList <- case Maybe b
fdList of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jFdList -> do
Ptr UnixFDList
jFdList' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFdList
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr UnixFDList
jFdList'
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Maybe c
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just c
jCancellable -> do
Ptr Cancellable
jCancellable' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return (forall a b. Ptr a -> FunPtr b
castPtrToFunPtr forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- 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 -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) AsyncReadyCallback
jCallback)
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = forall a. Ptr a
nullPtr
Ptr DBusProxy
-> CString
-> Ptr GVariant
-> CUInt
-> Int32
-> Ptr UnixFDList
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
g_dbus_proxy_call_with_unix_fd_list Ptr DBusProxy
proxy' CString
methodName' Ptr GVariant
maybeParameters CUInt
flags' Int32
timeoutMsec Ptr UnixFDList
maybeFdList Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback forall a. Ptr a
userData
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
parameters forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
fdList forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem CString
methodName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DBusProxyCallWithUnixFdListMethodInfo
instance (signature ~ (T.Text -> Maybe (GVariant) -> [Gio.Flags.DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDBusProxy a, Gio.UnixFDList.IsUnixFDList b, Gio.Cancellable.IsCancellable c) => O.OverloadedMethod DBusProxyCallWithUnixFdListMethodInfo a signature where
overloadedMethod = dBusProxyCallWithUnixFdList
instance O.OverloadedMethodInfo DBusProxyCallWithUnixFdListMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyCallWithUnixFdList",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyCallWithUnixFdList"
})
#endif
foreign import ccall "g_dbus_proxy_call_with_unix_fd_list_finish" g_dbus_proxy_call_with_unix_fd_list_finish ::
Ptr DBusProxy ->
Ptr (Ptr Gio.UnixFDList.UnixFDList) ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr GVariant)
dBusProxyCallWithUnixFdListFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ((GVariant, Gio.UnixFDList.UnixFDList))
dBusProxyCallWithUnixFdListFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDBusProxy a, IsAsyncResult b) =>
a -> b -> m (GVariant, UnixFDList)
dBusProxyCallWithUnixFdListFinish a
proxy b
res = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
Ptr (Ptr UnixFDList)
outFdList <- forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr Gio.UnixFDList.UnixFDList))
Ptr AsyncResult
res' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
forall a b. IO a -> IO b -> IO a
onException (do
Ptr GVariant
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr DBusProxy
-> Ptr (Ptr UnixFDList)
-> Ptr AsyncResult
-> Ptr (Ptr GError)
-> IO (Ptr GVariant)
g_dbus_proxy_call_with_unix_fd_list_finish Ptr DBusProxy
proxy' Ptr (Ptr UnixFDList)
outFdList Ptr AsyncResult
res'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusProxyCallWithUnixFdListFinish" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result
Ptr UnixFDList
outFdList' <- forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr UnixFDList)
outFdList
UnixFDList
outFdList'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr UnixFDList -> UnixFDList
Gio.UnixFDList.UnixFDList) Ptr UnixFDList
outFdList'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr UnixFDList)
outFdList
forall (m :: * -> *) a. Monad m => a -> m a
return (GVariant
result', UnixFDList
outFdList'')
) (do
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr UnixFDList)
outFdList
)
#if defined(ENABLE_OVERLOADING)
data DBusProxyCallWithUnixFdListFinishMethodInfo
instance (signature ~ (b -> m ((GVariant, Gio.UnixFDList.UnixFDList))), MonadIO m, IsDBusProxy a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod DBusProxyCallWithUnixFdListFinishMethodInfo a signature where
overloadedMethod = dBusProxyCallWithUnixFdListFinish
instance O.OverloadedMethodInfo DBusProxyCallWithUnixFdListFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyCallWithUnixFdListFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyCallWithUnixFdListFinish"
})
#endif
foreign import ccall "g_dbus_proxy_call_with_unix_fd_list_sync" g_dbus_proxy_call_with_unix_fd_list_sync ::
Ptr DBusProxy ->
CString ->
Ptr GVariant ->
CUInt ->
Int32 ->
Ptr Gio.UnixFDList.UnixFDList ->
Ptr (Ptr Gio.UnixFDList.UnixFDList) ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr GVariant)
dBusProxyCallWithUnixFdListSync ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a, Gio.UnixFDList.IsUnixFDList b, Gio.Cancellable.IsCancellable c) =>
a
-> T.Text
-> Maybe (GVariant)
-> [Gio.Flags.DBusCallFlags]
-> Int32
-> Maybe (b)
-> Maybe (c)
-> m ((GVariant, Gio.UnixFDList.UnixFDList))
dBusProxyCallWithUnixFdListSync :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsDBusProxy a, IsUnixFDList b,
IsCancellable c) =>
a
-> Text
-> Maybe GVariant
-> [DBusCallFlags]
-> Int32
-> Maybe b
-> Maybe c
-> m (GVariant, UnixFDList)
dBusProxyCallWithUnixFdListSync a
proxy Text
methodName Maybe GVariant
parameters [DBusCallFlags]
flags Int32
timeoutMsec Maybe b
fdList Maybe c
cancellable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
CString
methodName' <- Text -> IO CString
textToCString Text
methodName
Ptr GVariant
maybeParameters <- case Maybe GVariant
parameters of
Maybe GVariant
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just GVariant
jParameters -> do
Ptr GVariant
jParameters' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jParameters
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jParameters'
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusCallFlags]
flags
Ptr UnixFDList
maybeFdList <- case Maybe b
fdList of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jFdList -> do
Ptr UnixFDList
jFdList' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFdList
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr UnixFDList
jFdList'
Ptr (Ptr UnixFDList)
outFdList <- forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr Gio.UnixFDList.UnixFDList))
Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
Maybe c
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just c
jCancellable -> do
Ptr Cancellable
jCancellable' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
forall a b. IO a -> IO b -> IO a
onException (do
Ptr GVariant
result <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr DBusProxy
-> CString
-> Ptr GVariant
-> CUInt
-> Int32
-> Ptr UnixFDList
-> Ptr (Ptr UnixFDList)
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO (Ptr GVariant)
g_dbus_proxy_call_with_unix_fd_list_sync Ptr DBusProxy
proxy' CString
methodName' Ptr GVariant
maybeParameters CUInt
flags' Int32
timeoutMsec Ptr UnixFDList
maybeFdList Ptr (Ptr UnixFDList)
outFdList Ptr Cancellable
maybeCancellable
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusProxyCallWithUnixFdListSync" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result
Ptr UnixFDList
outFdList' <- forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr UnixFDList)
outFdList
UnixFDList
outFdList'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr UnixFDList -> UnixFDList
Gio.UnixFDList.UnixFDList) Ptr UnixFDList
outFdList'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
parameters forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
fdList forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem CString
methodName'
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr UnixFDList)
outFdList
forall (m :: * -> *) a. Monad m => a -> m a
return (GVariant
result', UnixFDList
outFdList'')
) (do
forall a. Ptr a -> IO ()
freeMem CString
methodName'
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr UnixFDList)
outFdList
)
#if defined(ENABLE_OVERLOADING)
data DBusProxyCallWithUnixFdListSyncMethodInfo
instance (signature ~ (T.Text -> Maybe (GVariant) -> [Gio.Flags.DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> m ((GVariant, Gio.UnixFDList.UnixFDList))), MonadIO m, IsDBusProxy a, Gio.UnixFDList.IsUnixFDList b, Gio.Cancellable.IsCancellable c) => O.OverloadedMethod DBusProxyCallWithUnixFdListSyncMethodInfo a signature where
overloadedMethod = dBusProxyCallWithUnixFdListSync
instance O.OverloadedMethodInfo DBusProxyCallWithUnixFdListSyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyCallWithUnixFdListSync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyCallWithUnixFdListSync"
})
#endif
foreign import ccall "g_dbus_proxy_get_cached_property" g_dbus_proxy_get_cached_property ::
Ptr DBusProxy ->
CString ->
IO (Ptr GVariant)
dBusProxyGetCachedProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> T.Text
-> m (Maybe GVariant)
dBusProxyGetCachedProperty :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> Text -> m (Maybe GVariant)
dBusProxyGetCachedProperty a
proxy Text
propertyName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr GVariant
result <- Ptr DBusProxy -> CString -> IO (Ptr GVariant)
g_dbus_proxy_get_cached_property Ptr DBusProxy
proxy' CString
propertyName'
Maybe GVariant
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr GVariant
result forall a b. (a -> b) -> a -> b
$ \Ptr GVariant
result' -> do
GVariant
result'' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result'
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GVariant
maybeResult
#if defined(ENABLE_OVERLOADING)
data DBusProxyGetCachedPropertyMethodInfo
instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxyGetCachedPropertyMethodInfo a signature where
overloadedMethod = dBusProxyGetCachedProperty
instance O.OverloadedMethodInfo DBusProxyGetCachedPropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyGetCachedProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyGetCachedProperty"
})
#endif
foreign import ccall "g_dbus_proxy_get_cached_property_names" g_dbus_proxy_get_cached_property_names ::
Ptr DBusProxy ->
IO (Ptr CString)
dBusProxyGetCachedPropertyNames ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> m (Maybe [T.Text])
dBusProxyGetCachedPropertyNames :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> m (Maybe [Text])
dBusProxyGetCachedPropertyNames a
proxy = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
Ptr CString
result <- Ptr DBusProxy -> IO (Ptr CString)
g_dbus_proxy_get_cached_property_names Ptr DBusProxy
proxy'
Maybe [Text]
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CString
result forall a b. (a -> b) -> a -> b
$ \Ptr CString
result' -> do
[Text]
result'' <- HasCallStack => Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
result'
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray forall a. Ptr a -> IO ()
freeMem Ptr CString
result'
forall a. Ptr a -> IO ()
freeMem Ptr CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe [Text]
maybeResult
#if defined(ENABLE_OVERLOADING)
data DBusProxyGetCachedPropertyNamesMethodInfo
instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxyGetCachedPropertyNamesMethodInfo a signature where
overloadedMethod = dBusProxyGetCachedPropertyNames
instance O.OverloadedMethodInfo DBusProxyGetCachedPropertyNamesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyGetCachedPropertyNames",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyGetCachedPropertyNames"
})
#endif
foreign import ccall "g_dbus_proxy_get_connection" g_dbus_proxy_get_connection ::
Ptr DBusProxy ->
IO (Ptr Gio.DBusConnection.DBusConnection)
dBusProxyGetConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> m Gio.DBusConnection.DBusConnection
dBusProxyGetConnection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> m DBusConnection
dBusProxyGetConnection a
proxy = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
Ptr DBusConnection
result <- Ptr DBusProxy -> IO (Ptr DBusConnection)
g_dbus_proxy_get_connection Ptr DBusProxy
proxy'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusProxyGetConnection" Ptr DBusConnection
result
DBusConnection
result' <- (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
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => a -> m a
return DBusConnection
result'
#if defined(ENABLE_OVERLOADING)
data DBusProxyGetConnectionMethodInfo
instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxyGetConnectionMethodInfo a signature where
overloadedMethod = dBusProxyGetConnection
instance O.OverloadedMethodInfo DBusProxyGetConnectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyGetConnection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyGetConnection"
})
#endif
foreign import ccall "g_dbus_proxy_get_default_timeout" g_dbus_proxy_get_default_timeout ::
Ptr DBusProxy ->
IO Int32
dBusProxyGetDefaultTimeout ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> m Int32
dBusProxyGetDefaultTimeout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> m Int32
dBusProxyGetDefaultTimeout a
proxy = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
Int32
result <- Ptr DBusProxy -> IO Int32
g_dbus_proxy_get_default_timeout Ptr DBusProxy
proxy'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data DBusProxyGetDefaultTimeoutMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxyGetDefaultTimeoutMethodInfo a signature where
overloadedMethod = dBusProxyGetDefaultTimeout
instance O.OverloadedMethodInfo DBusProxyGetDefaultTimeoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyGetDefaultTimeout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyGetDefaultTimeout"
})
#endif
foreign import ccall "g_dbus_proxy_get_flags" g_dbus_proxy_get_flags ::
Ptr DBusProxy ->
IO CUInt
dBusProxyGetFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> m [Gio.Flags.DBusProxyFlags]
dBusProxyGetFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> m [DBusProxyFlags]
dBusProxyGetFlags a
proxy = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
CUInt
result <- Ptr DBusProxy -> IO CUInt
g_dbus_proxy_get_flags Ptr DBusProxy
proxy'
let result' :: [DBusProxyFlags]
result' = forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => a -> m a
return [DBusProxyFlags]
result'
#if defined(ENABLE_OVERLOADING)
data DBusProxyGetFlagsMethodInfo
instance (signature ~ (m [Gio.Flags.DBusProxyFlags]), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxyGetFlagsMethodInfo a signature where
overloadedMethod = dBusProxyGetFlags
instance O.OverloadedMethodInfo DBusProxyGetFlagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyGetFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyGetFlags"
})
#endif
foreign import ccall "g_dbus_proxy_get_interface_info" g_dbus_proxy_get_interface_info ::
Ptr DBusProxy ->
IO (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo)
dBusProxyGetInterfaceInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> m (Maybe Gio.DBusInterfaceInfo.DBusInterfaceInfo)
dBusProxyGetInterfaceInfo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> m (Maybe DBusInterfaceInfo)
dBusProxyGetInterfaceInfo a
proxy = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
Ptr DBusInterfaceInfo
result <- Ptr DBusProxy -> IO (Ptr DBusInterfaceInfo)
g_dbus_proxy_get_interface_info Ptr DBusProxy
proxy'
Maybe DBusInterfaceInfo
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr DBusInterfaceInfo
result forall a b. (a -> b) -> a -> b
$ \Ptr DBusInterfaceInfo
result' -> do
DBusInterfaceInfo
result'' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr DBusInterfaceInfo -> DBusInterfaceInfo
Gio.DBusInterfaceInfo.DBusInterfaceInfo) Ptr DBusInterfaceInfo
result'
forall (m :: * -> *) a. Monad m => a -> m a
return DBusInterfaceInfo
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DBusInterfaceInfo
maybeResult
#if defined(ENABLE_OVERLOADING)
data DBusProxyGetInterfaceInfoMethodInfo
instance (signature ~ (m (Maybe Gio.DBusInterfaceInfo.DBusInterfaceInfo)), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxyGetInterfaceInfoMethodInfo a signature where
overloadedMethod = dBusProxyGetInterfaceInfo
instance O.OverloadedMethodInfo DBusProxyGetInterfaceInfoMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyGetInterfaceInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyGetInterfaceInfo"
})
#endif
foreign import ccall "g_dbus_proxy_get_interface_name" g_dbus_proxy_get_interface_name ::
Ptr DBusProxy ->
IO CString
dBusProxyGetInterfaceName ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> m T.Text
dBusProxyGetInterfaceName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> m Text
dBusProxyGetInterfaceName a
proxy = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
CString
result <- Ptr DBusProxy -> IO CString
g_dbus_proxy_get_interface_name Ptr DBusProxy
proxy'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusProxyGetInterfaceName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DBusProxyGetInterfaceNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxyGetInterfaceNameMethodInfo a signature where
overloadedMethod = dBusProxyGetInterfaceName
instance O.OverloadedMethodInfo DBusProxyGetInterfaceNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyGetInterfaceName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyGetInterfaceName"
})
#endif
foreign import ccall "g_dbus_proxy_get_name" g_dbus_proxy_get_name ::
Ptr DBusProxy ->
IO CString
dBusProxyGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> m (Maybe T.Text)
dBusProxyGetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> m (Maybe Text)
dBusProxyGetName a
proxy = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
CString
result <- Ptr DBusProxy -> IO CString
g_dbus_proxy_get_name Ptr DBusProxy
proxy'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
cstringToText CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data DBusProxyGetNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxyGetNameMethodInfo a signature where
overloadedMethod = dBusProxyGetName
instance O.OverloadedMethodInfo DBusProxyGetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyGetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyGetName"
})
#endif
foreign import ccall "g_dbus_proxy_get_name_owner" g_dbus_proxy_get_name_owner ::
Ptr DBusProxy ->
IO CString
dBusProxyGetNameOwner ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> m (Maybe T.Text)
dBusProxyGetNameOwner :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> m (Maybe Text)
dBusProxyGetNameOwner a
proxy = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
CString
result <- Ptr DBusProxy -> IO CString
g_dbus_proxy_get_name_owner Ptr DBusProxy
proxy'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
cstringToText CString
result'
forall a. Ptr a -> IO ()
freeMem CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data DBusProxyGetNameOwnerMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxyGetNameOwnerMethodInfo a signature where
overloadedMethod = dBusProxyGetNameOwner
instance O.OverloadedMethodInfo DBusProxyGetNameOwnerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyGetNameOwner",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyGetNameOwner"
})
#endif
foreign import ccall "g_dbus_proxy_get_object_path" g_dbus_proxy_get_object_path ::
Ptr DBusProxy ->
IO CString
dBusProxyGetObjectPath ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> m T.Text
dBusProxyGetObjectPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> m Text
dBusProxyGetObjectPath a
proxy = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
CString
result <- Ptr DBusProxy -> IO CString
g_dbus_proxy_get_object_path Ptr DBusProxy
proxy'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dBusProxyGetObjectPath" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DBusProxyGetObjectPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxyGetObjectPathMethodInfo a signature where
overloadedMethod = dBusProxyGetObjectPath
instance O.OverloadedMethodInfo DBusProxyGetObjectPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxyGetObjectPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxyGetObjectPath"
})
#endif
foreign import ccall "g_dbus_proxy_set_cached_property" g_dbus_proxy_set_cached_property ::
Ptr DBusProxy ->
CString ->
Ptr GVariant ->
IO ()
dBusProxySetCachedProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> T.Text
-> Maybe (GVariant)
-> m ()
dBusProxySetCachedProperty :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> Text -> Maybe GVariant -> m ()
dBusProxySetCachedProperty a
proxy Text
propertyName Maybe GVariant
value = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr GVariant
maybeValue <- case Maybe GVariant
value of
Maybe GVariant
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just GVariant
jValue -> do
Ptr GVariant
jValue' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jValue
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jValue'
Ptr DBusProxy -> CString -> Ptr GVariant -> IO ()
g_dbus_proxy_set_cached_property Ptr DBusProxy
proxy' CString
propertyName' Ptr GVariant
maybeValue
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
value forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DBusProxySetCachedPropertyMethodInfo
instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxySetCachedPropertyMethodInfo a signature where
overloadedMethod = dBusProxySetCachedProperty
instance O.OverloadedMethodInfo DBusProxySetCachedPropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxySetCachedProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxySetCachedProperty"
})
#endif
foreign import ccall "g_dbus_proxy_set_default_timeout" g_dbus_proxy_set_default_timeout ::
Ptr DBusProxy ->
Int32 ->
IO ()
dBusProxySetDefaultTimeout ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> Int32
-> m ()
dBusProxySetDefaultTimeout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> Int32 -> m ()
dBusProxySetDefaultTimeout a
proxy Int32
timeoutMsec = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
Ptr DBusProxy -> Int32 -> IO ()
g_dbus_proxy_set_default_timeout Ptr DBusProxy
proxy' Int32
timeoutMsec
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DBusProxySetDefaultTimeoutMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxySetDefaultTimeoutMethodInfo a signature where
overloadedMethod = dBusProxySetDefaultTimeout
instance O.OverloadedMethodInfo DBusProxySetDefaultTimeoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxySetDefaultTimeout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxySetDefaultTimeout"
})
#endif
foreign import ccall "g_dbus_proxy_set_interface_info" g_dbus_proxy_set_interface_info ::
Ptr DBusProxy ->
Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo ->
IO ()
dBusProxySetInterfaceInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>
a
-> Maybe (Gio.DBusInterfaceInfo.DBusInterfaceInfo)
-> m ()
dBusProxySetInterfaceInfo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDBusProxy a) =>
a -> Maybe DBusInterfaceInfo -> m ()
dBusProxySetInterfaceInfo a
proxy Maybe DBusInterfaceInfo
info = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusProxy
proxy' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
proxy
Ptr DBusInterfaceInfo
maybeInfo <- case Maybe DBusInterfaceInfo
info of
Maybe DBusInterfaceInfo
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just DBusInterfaceInfo
jInfo -> do
Ptr DBusInterfaceInfo
jInfo' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr DBusInterfaceInfo
jInfo
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DBusInterfaceInfo
jInfo'
Ptr DBusProxy -> Ptr DBusInterfaceInfo -> IO ()
g_dbus_proxy_set_interface_info Ptr DBusProxy
proxy' Ptr DBusInterfaceInfo
maybeInfo
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
proxy
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe DBusInterfaceInfo
info forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DBusProxySetInterfaceInfoMethodInfo
instance (signature ~ (Maybe (Gio.DBusInterfaceInfo.DBusInterfaceInfo) -> m ()), MonadIO m, IsDBusProxy a) => O.OverloadedMethod DBusProxySetInterfaceInfoMethodInfo a signature where
overloadedMethod = dBusProxySetInterfaceInfo
instance O.OverloadedMethodInfo DBusProxySetInterfaceInfoMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.DBusProxy.dBusProxySetInterfaceInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-DBusProxy.html#v:dBusProxySetInterfaceInfo"
})
#endif
foreign import ccall "g_dbus_proxy_new" g_dbus_proxy_new ::
Ptr Gio.DBusConnection.DBusConnection ->
CUInt ->
Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo ->
CString ->
CString ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
dBusProxyNew ::
(B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>
a
-> [Gio.Flags.DBusProxyFlags]
-> Maybe (Gio.DBusInterfaceInfo.DBusInterfaceInfo)
-> Maybe (T.Text)
-> T.Text
-> T.Text
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
dBusProxyNew :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDBusConnection a, IsCancellable b) =>
a
-> [DBusProxyFlags]
-> Maybe DBusInterfaceInfo
-> Maybe Text
-> Text
-> Text
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
dBusProxyNew a
connection [DBusProxyFlags]
flags Maybe DBusInterfaceInfo
info Maybe Text
name Text
objectPath Text
interfaceName Maybe b
cancellable Maybe AsyncReadyCallback
callback = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr DBusConnection
connection' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
connection
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusProxyFlags]
flags
Ptr DBusInterfaceInfo
maybeInfo <- case Maybe DBusInterfaceInfo
info of
Maybe DBusInterfaceInfo
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just DBusInterfaceInfo
jInfo -> do
Ptr DBusInterfaceInfo
jInfo' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr DBusInterfaceInfo
jInfo
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DBusInterfaceInfo
jInfo'
CString
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
CString
objectPath' <- Text -> IO CString
textToCString Text
objectPath
CString
interfaceName' <- Text -> IO CString
textToCString Text
interfaceName
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return (forall a b. Ptr a -> FunPtr b
castPtrToFunPtr forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- 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 -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) AsyncReadyCallback
jCallback)
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = forall a. Ptr a
nullPtr
Ptr DBusConnection
-> CUInt
-> Ptr DBusInterfaceInfo
-> CString
-> CString
-> CString
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
g_dbus_proxy_new Ptr DBusConnection
connection' CUInt
flags' Ptr DBusInterfaceInfo
maybeInfo CString
maybeName CString
objectPath' CString
interfaceName' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback forall a. Ptr a
userData
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
connection
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe DBusInterfaceInfo
info forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem CString
maybeName
forall a. Ptr a -> IO ()
freeMem CString
objectPath'
forall a. Ptr a -> IO ()
freeMem CString
interfaceName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_dbus_proxy_new_for_bus" g_dbus_proxy_new_for_bus ::
CInt ->
CUInt ->
Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo ->
CString ->
CString ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
dBusProxyNewForBus ::
(B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>
Gio.Enums.BusType
-> [Gio.Flags.DBusProxyFlags]
-> Maybe (Gio.DBusInterfaceInfo.DBusInterfaceInfo)
-> T.Text
-> T.Text
-> T.Text
-> Maybe (a)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
dBusProxyNewForBus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCancellable a) =>
BusType
-> [DBusProxyFlags]
-> Maybe DBusInterfaceInfo
-> Text
-> Text
-> Text
-> Maybe a
-> Maybe AsyncReadyCallback
-> m ()
dBusProxyNewForBus BusType
busType [DBusProxyFlags]
flags Maybe DBusInterfaceInfo
info Text
name Text
objectPath Text
interfaceName Maybe a
cancellable Maybe AsyncReadyCallback
callback = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let busType' :: CInt
busType' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) BusType
busType
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DBusProxyFlags]
flags
Ptr DBusInterfaceInfo
maybeInfo <- case Maybe DBusInterfaceInfo
info of
Maybe DBusInterfaceInfo
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just DBusInterfaceInfo
jInfo -> do
Ptr DBusInterfaceInfo
jInfo' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr DBusInterfaceInfo
jInfo
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DBusInterfaceInfo
jInfo'
CString
name' <- Text -> IO CString
textToCString Text
name
CString
objectPath' <- Text -> IO CString
textToCString Text
objectPath
CString
interfaceName' <- Text -> IO CString
textToCString Text
interfaceName
Ptr Cancellable
maybeCancellable <- case Maybe a
cancellable of
Maybe a
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just a
jCancellable -> do
Ptr Cancellable
jCancellable' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jCancellable
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
Maybe AsyncReadyCallback
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return (forall a b. Ptr a -> FunPtr b
castPtrToFunPtr forall a. Ptr a
nullPtr)
Just AsyncReadyCallback
jCallback -> do
Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- 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 -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) AsyncReadyCallback
jCallback)
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
let userData :: Ptr a
userData = forall a. Ptr a
nullPtr
CInt
-> CUInt
-> Ptr DBusInterfaceInfo
-> CString
-> CString
-> CString
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
g_dbus_proxy_new_for_bus CInt
busType' CUInt
flags' Ptr DBusInterfaceInfo
maybeInfo CString
name' CString
objectPath' CString
interfaceName' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback forall a. Ptr a
userData
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe DBusInterfaceInfo
info forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
cancellable forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem CString
name'
forall a. Ptr a -> IO ()
freeMem CString
objectPath'
forall a. Ptr a -> IO ()
freeMem CString
interfaceName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif