module GI.Gio.Interfaces.DBusObject
(
DBusObject(..) ,
noDBusObject ,
IsDBusObject ,
toDBusObject ,
DBusObjectGetInterfaceMethodInfo ,
dBusObjectGetInterface ,
DBusObjectGetInterfacesMethodInfo ,
dBusObjectGetInterfaces ,
DBusObjectGetObjectPathMethodInfo ,
dBusObjectGetObjectPath ,
C_DBusObjectInterfaceAddedCallback ,
DBusObjectInterfaceAddedCallback ,
DBusObjectInterfaceAddedSignalInfo ,
afterDBusObjectInterfaceAdded ,
genClosure_DBusObjectInterfaceAdded ,
mk_DBusObjectInterfaceAddedCallback ,
noDBusObjectInterfaceAddedCallback ,
onDBusObjectInterfaceAdded ,
wrap_DBusObjectInterfaceAddedCallback ,
C_DBusObjectInterfaceRemovedCallback ,
DBusObjectInterfaceRemovedCallback ,
DBusObjectInterfaceRemovedSignalInfo ,
afterDBusObjectInterfaceRemoved ,
genClosure_DBusObjectInterfaceRemoved ,
mk_DBusObjectInterfaceRemovedCallback ,
noDBusObjectInterfaceRemovedCallback ,
onDBusObjectInterfaceRemoved ,
wrap_DBusObjectInterfaceRemovedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.DBusInterface as Gio.DBusInterface
newtype DBusObject = DBusObject (ManagedPtr DBusObject)
noDBusObject :: Maybe DBusObject
noDBusObject = Nothing
type family ResolveDBusObjectMethod (t :: Symbol) (o :: *) :: * where
ResolveDBusObjectMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDBusObjectMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDBusObjectMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDBusObjectMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDBusObjectMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDBusObjectMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDBusObjectMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDBusObjectMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDBusObjectMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDBusObjectMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDBusObjectMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveDBusObjectMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDBusObjectMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDBusObjectMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDBusObjectMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDBusObjectMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDBusObjectMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDBusObjectMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDBusObjectMethod "getInterface" o = DBusObjectGetInterfaceMethodInfo
ResolveDBusObjectMethod "getInterfaces" o = DBusObjectGetInterfacesMethodInfo
ResolveDBusObjectMethod "getObjectPath" o = DBusObjectGetObjectPathMethodInfo
ResolveDBusObjectMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDBusObjectMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDBusObjectMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDBusObjectMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDBusObjectMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDBusObjectMethod t DBusObject, O.MethodInfo info DBusObject p) => O.IsLabelProxy t (DBusObject -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDBusObjectMethod t DBusObject, O.MethodInfo info DBusObject p) => O.IsLabel t (DBusObject -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type DBusObjectInterfaceAddedCallback =
Gio.DBusInterface.DBusInterface ->
IO ()
noDBusObjectInterfaceAddedCallback :: Maybe DBusObjectInterfaceAddedCallback
noDBusObjectInterfaceAddedCallback = Nothing
type C_DBusObjectInterfaceAddedCallback =
Ptr () ->
Ptr Gio.DBusInterface.DBusInterface ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DBusObjectInterfaceAddedCallback :: C_DBusObjectInterfaceAddedCallback -> IO (FunPtr C_DBusObjectInterfaceAddedCallback)
genClosure_DBusObjectInterfaceAdded :: DBusObjectInterfaceAddedCallback -> IO Closure
genClosure_DBusObjectInterfaceAdded cb = do
let cb' = wrap_DBusObjectInterfaceAddedCallback cb
mk_DBusObjectInterfaceAddedCallback cb' >>= newCClosure
wrap_DBusObjectInterfaceAddedCallback ::
DBusObjectInterfaceAddedCallback ->
Ptr () ->
Ptr Gio.DBusInterface.DBusInterface ->
Ptr () ->
IO ()
wrap_DBusObjectInterfaceAddedCallback _cb _ interface _ = do
interface' <- (newObject Gio.DBusInterface.DBusInterface) interface
_cb interface'
onDBusObjectInterfaceAdded :: (GObject a, MonadIO m) => a -> DBusObjectInterfaceAddedCallback -> m SignalHandlerId
onDBusObjectInterfaceAdded obj cb = liftIO $ connectDBusObjectInterfaceAdded obj cb SignalConnectBefore
afterDBusObjectInterfaceAdded :: (GObject a, MonadIO m) => a -> DBusObjectInterfaceAddedCallback -> m SignalHandlerId
afterDBusObjectInterfaceAdded obj cb = connectDBusObjectInterfaceAdded obj cb SignalConnectAfter
connectDBusObjectInterfaceAdded :: (GObject a, MonadIO m) =>
a -> DBusObjectInterfaceAddedCallback -> SignalConnectMode -> m SignalHandlerId
connectDBusObjectInterfaceAdded obj cb after = liftIO $ do
let cb' = wrap_DBusObjectInterfaceAddedCallback cb
cb'' <- mk_DBusObjectInterfaceAddedCallback cb'
connectSignalFunPtr obj "interface-added" cb'' after
type DBusObjectInterfaceRemovedCallback =
Gio.DBusInterface.DBusInterface ->
IO ()
noDBusObjectInterfaceRemovedCallback :: Maybe DBusObjectInterfaceRemovedCallback
noDBusObjectInterfaceRemovedCallback = Nothing
type C_DBusObjectInterfaceRemovedCallback =
Ptr () ->
Ptr Gio.DBusInterface.DBusInterface ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_DBusObjectInterfaceRemovedCallback :: C_DBusObjectInterfaceRemovedCallback -> IO (FunPtr C_DBusObjectInterfaceRemovedCallback)
genClosure_DBusObjectInterfaceRemoved :: DBusObjectInterfaceRemovedCallback -> IO Closure
genClosure_DBusObjectInterfaceRemoved cb = do
let cb' = wrap_DBusObjectInterfaceRemovedCallback cb
mk_DBusObjectInterfaceRemovedCallback cb' >>= newCClosure
wrap_DBusObjectInterfaceRemovedCallback ::
DBusObjectInterfaceRemovedCallback ->
Ptr () ->
Ptr Gio.DBusInterface.DBusInterface ->
Ptr () ->
IO ()
wrap_DBusObjectInterfaceRemovedCallback _cb _ interface _ = do
interface' <- (newObject Gio.DBusInterface.DBusInterface) interface
_cb interface'
onDBusObjectInterfaceRemoved :: (GObject a, MonadIO m) => a -> DBusObjectInterfaceRemovedCallback -> m SignalHandlerId
onDBusObjectInterfaceRemoved obj cb = liftIO $ connectDBusObjectInterfaceRemoved obj cb SignalConnectBefore
afterDBusObjectInterfaceRemoved :: (GObject a, MonadIO m) => a -> DBusObjectInterfaceRemovedCallback -> m SignalHandlerId
afterDBusObjectInterfaceRemoved obj cb = connectDBusObjectInterfaceRemoved obj cb SignalConnectAfter
connectDBusObjectInterfaceRemoved :: (GObject a, MonadIO m) =>
a -> DBusObjectInterfaceRemovedCallback -> SignalConnectMode -> m SignalHandlerId
connectDBusObjectInterfaceRemoved obj cb after = liftIO $ do
let cb' = wrap_DBusObjectInterfaceRemovedCallback cb
cb'' <- mk_DBusObjectInterfaceRemovedCallback cb'
connectSignalFunPtr obj "interface-removed" cb'' after
instance O.HasAttributeList DBusObject
type instance O.AttributeList DBusObject = DBusObjectAttributeList
type DBusObjectAttributeList = ('[ ] :: [(Symbol, *)])
data DBusObjectInterfaceAddedSignalInfo
instance SignalInfo DBusObjectInterfaceAddedSignalInfo where
type HaskellCallbackType DBusObjectInterfaceAddedSignalInfo = DBusObjectInterfaceAddedCallback
connectSignal _ = connectDBusObjectInterfaceAdded
data DBusObjectInterfaceRemovedSignalInfo
instance SignalInfo DBusObjectInterfaceRemovedSignalInfo where
type HaskellCallbackType DBusObjectInterfaceRemovedSignalInfo = DBusObjectInterfaceRemovedCallback
connectSignal _ = connectDBusObjectInterfaceRemoved
type instance O.SignalList DBusObject = DBusObjectSignalList
type DBusObjectSignalList = ('[ '("interfaceAdded", DBusObjectInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_dbus_object_get_type"
c_g_dbus_object_get_type :: IO GType
instance GObject DBusObject where
gobjectType _ = c_g_dbus_object_get_type
class GObject o => IsDBusObject o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DBusObject a) =>
IsDBusObject a
#endif
instance IsDBusObject DBusObject
instance GObject.Object.IsObject DBusObject
toDBusObject :: IsDBusObject o => o -> IO DBusObject
toDBusObject = unsafeCastTo DBusObject
foreign import ccall "g_dbus_object_get_interface" g_dbus_object_get_interface ::
Ptr DBusObject ->
CString ->
IO (Ptr Gio.DBusInterface.DBusInterface)
dBusObjectGetInterface ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusObject a) =>
a
-> T.Text
-> m Gio.DBusInterface.DBusInterface
dBusObjectGetInterface object interfaceName = liftIO $ do
object' <- unsafeManagedPtrCastPtr object
interfaceName' <- textToCString interfaceName
result <- g_dbus_object_get_interface object' interfaceName'
checkUnexpectedReturnNULL "dBusObjectGetInterface" result
result' <- (wrapObject Gio.DBusInterface.DBusInterface) result
touchManagedPtr object
freeMem interfaceName'
return result'
data DBusObjectGetInterfaceMethodInfo
instance (signature ~ (T.Text -> m Gio.DBusInterface.DBusInterface), MonadIO m, IsDBusObject a) => O.MethodInfo DBusObjectGetInterfaceMethodInfo a signature where
overloadedMethod _ = dBusObjectGetInterface
foreign import ccall "g_dbus_object_get_interfaces" g_dbus_object_get_interfaces ::
Ptr DBusObject ->
IO (Ptr (GList (Ptr Gio.DBusInterface.DBusInterface)))
dBusObjectGetInterfaces ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusObject a) =>
a
-> m [Gio.DBusInterface.DBusInterface]
dBusObjectGetInterfaces object = liftIO $ do
object' <- unsafeManagedPtrCastPtr object
result <- g_dbus_object_get_interfaces object'
result' <- unpackGList result
result'' <- mapM (wrapObject Gio.DBusInterface.DBusInterface) result'
g_list_free result
touchManagedPtr object
return result''
data DBusObjectGetInterfacesMethodInfo
instance (signature ~ (m [Gio.DBusInterface.DBusInterface]), MonadIO m, IsDBusObject a) => O.MethodInfo DBusObjectGetInterfacesMethodInfo a signature where
overloadedMethod _ = dBusObjectGetInterfaces
foreign import ccall "g_dbus_object_get_object_path" g_dbus_object_get_object_path ::
Ptr DBusObject ->
IO CString
dBusObjectGetObjectPath ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusObject a) =>
a
-> m T.Text
dBusObjectGetObjectPath object = liftIO $ do
object' <- unsafeManagedPtrCastPtr object
result <- g_dbus_object_get_object_path object'
checkUnexpectedReturnNULL "dBusObjectGetObjectPath" result
result' <- cstringToText result
touchManagedPtr object
return result'
data DBusObjectGetObjectPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusObject a) => O.MethodInfo DBusObjectGetObjectPathMethodInfo a signature where
overloadedMethod _ = dBusObjectGetObjectPath