module GI.Gio.Objects.DBusInterfaceSkeleton
(
DBusInterfaceSkeleton(..) ,
IsDBusInterfaceSkeleton ,
toDBusInterfaceSkeleton ,
noDBusInterfaceSkeleton ,
DBusInterfaceSkeletonExportMethodInfo ,
dBusInterfaceSkeletonExport ,
DBusInterfaceSkeletonFlushMethodInfo ,
dBusInterfaceSkeletonFlush ,
DBusInterfaceSkeletonGetConnectionMethodInfo,
dBusInterfaceSkeletonGetConnection ,
DBusInterfaceSkeletonGetConnectionsMethodInfo,
dBusInterfaceSkeletonGetConnections ,
DBusInterfaceSkeletonGetFlagsMethodInfo ,
dBusInterfaceSkeletonGetFlags ,
DBusInterfaceSkeletonGetInfoMethodInfo ,
dBusInterfaceSkeletonGetInfo ,
DBusInterfaceSkeletonGetObjectPathMethodInfo,
dBusInterfaceSkeletonGetObjectPath ,
DBusInterfaceSkeletonGetPropertiesMethodInfo,
dBusInterfaceSkeletonGetProperties ,
DBusInterfaceSkeletonHasConnectionMethodInfo,
dBusInterfaceSkeletonHasConnection ,
DBusInterfaceSkeletonSetFlagsMethodInfo ,
dBusInterfaceSkeletonSetFlags ,
DBusInterfaceSkeletonUnexportMethodInfo ,
dBusInterfaceSkeletonUnexport ,
DBusInterfaceSkeletonUnexportFromConnectionMethodInfo,
dBusInterfaceSkeletonUnexportFromConnection,
DBusInterfaceSkeletonGFlagsPropertyInfo ,
constructDBusInterfaceSkeletonGFlags ,
dBusInterfaceSkeletonGFlags ,
getDBusInterfaceSkeletonGFlags ,
setDBusInterfaceSkeletonGFlags ,
C_DBusInterfaceSkeletonGAuthorizeMethodCallback,
DBusInterfaceSkeletonGAuthorizeMethodCallback,
DBusInterfaceSkeletonGAuthorizeMethodSignalInfo,
afterDBusInterfaceSkeletonGAuthorizeMethod,
genClosure_DBusInterfaceSkeletonGAuthorizeMethod,
mk_DBusInterfaceSkeletonGAuthorizeMethodCallback,
noDBusInterfaceSkeletonGAuthorizeMethodCallback,
onDBusInterfaceSkeletonGAuthorizeMethod ,
wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback,
) 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.Flags as Gio.Flags
import qualified GI.Gio.Interfaces.DBusInterface as Gio.DBusInterface
import qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection
import qualified GI.Gio.Objects.DBusMethodInvocation as Gio.DBusMethodInvocation
import qualified GI.Gio.Structs.DBusInterfaceInfo as Gio.DBusInterfaceInfo
newtype DBusInterfaceSkeleton = DBusInterfaceSkeleton (ManagedPtr DBusInterfaceSkeleton)
foreign import ccall "g_dbus_interface_skeleton_get_type"
c_g_dbus_interface_skeleton_get_type :: IO GType
instance GObject DBusInterfaceSkeleton where
gobjectType _ = c_g_dbus_interface_skeleton_get_type
class GObject o => IsDBusInterfaceSkeleton o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DBusInterfaceSkeleton a) =>
IsDBusInterfaceSkeleton a
#endif
instance IsDBusInterfaceSkeleton DBusInterfaceSkeleton
instance GObject.Object.IsObject DBusInterfaceSkeleton
instance Gio.DBusInterface.IsDBusInterface DBusInterfaceSkeleton
toDBusInterfaceSkeleton :: IsDBusInterfaceSkeleton o => o -> IO DBusInterfaceSkeleton
toDBusInterfaceSkeleton = unsafeCastTo DBusInterfaceSkeleton
noDBusInterfaceSkeleton :: Maybe DBusInterfaceSkeleton
noDBusInterfaceSkeleton = Nothing
type family ResolveDBusInterfaceSkeletonMethod (t :: Symbol) (o :: *) :: * where
ResolveDBusInterfaceSkeletonMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDBusInterfaceSkeletonMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDBusInterfaceSkeletonMethod "export" o = DBusInterfaceSkeletonExportMethodInfo
ResolveDBusInterfaceSkeletonMethod "flush" o = DBusInterfaceSkeletonFlushMethodInfo
ResolveDBusInterfaceSkeletonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDBusInterfaceSkeletonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDBusInterfaceSkeletonMethod "hasConnection" o = DBusInterfaceSkeletonHasConnectionMethodInfo
ResolveDBusInterfaceSkeletonMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDBusInterfaceSkeletonMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDBusInterfaceSkeletonMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDBusInterfaceSkeletonMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDBusInterfaceSkeletonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDBusInterfaceSkeletonMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDBusInterfaceSkeletonMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveDBusInterfaceSkeletonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDBusInterfaceSkeletonMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDBusInterfaceSkeletonMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDBusInterfaceSkeletonMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDBusInterfaceSkeletonMethod "unexport" o = DBusInterfaceSkeletonUnexportMethodInfo
ResolveDBusInterfaceSkeletonMethod "unexportFromConnection" o = DBusInterfaceSkeletonUnexportFromConnectionMethodInfo
ResolveDBusInterfaceSkeletonMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDBusInterfaceSkeletonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDBusInterfaceSkeletonMethod "getConnection" o = DBusInterfaceSkeletonGetConnectionMethodInfo
ResolveDBusInterfaceSkeletonMethod "getConnections" o = DBusInterfaceSkeletonGetConnectionsMethodInfo
ResolveDBusInterfaceSkeletonMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDBusInterfaceSkeletonMethod "getFlags" o = DBusInterfaceSkeletonGetFlagsMethodInfo
ResolveDBusInterfaceSkeletonMethod "getInfo" o = DBusInterfaceSkeletonGetInfoMethodInfo
ResolveDBusInterfaceSkeletonMethod "getObject" o = Gio.DBusInterface.DBusInterfaceGetObjectMethodInfo
ResolveDBusInterfaceSkeletonMethod "getObjectPath" o = DBusInterfaceSkeletonGetObjectPathMethodInfo
ResolveDBusInterfaceSkeletonMethod "getProperties" o = DBusInterfaceSkeletonGetPropertiesMethodInfo
ResolveDBusInterfaceSkeletonMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDBusInterfaceSkeletonMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDBusInterfaceSkeletonMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDBusInterfaceSkeletonMethod "setFlags" o = DBusInterfaceSkeletonSetFlagsMethodInfo
ResolveDBusInterfaceSkeletonMethod "setObject" o = Gio.DBusInterface.DBusInterfaceSetObjectMethodInfo
ResolveDBusInterfaceSkeletonMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDBusInterfaceSkeletonMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDBusInterfaceSkeletonMethod t DBusInterfaceSkeleton, O.MethodInfo info DBusInterfaceSkeleton p) => O.IsLabelProxy t (DBusInterfaceSkeleton -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDBusInterfaceSkeletonMethod t DBusInterfaceSkeleton, O.MethodInfo info DBusInterfaceSkeleton p) => O.IsLabel t (DBusInterfaceSkeleton -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type DBusInterfaceSkeletonGAuthorizeMethodCallback =
Gio.DBusMethodInvocation.DBusMethodInvocation ->
IO Bool
noDBusInterfaceSkeletonGAuthorizeMethodCallback :: Maybe DBusInterfaceSkeletonGAuthorizeMethodCallback
noDBusInterfaceSkeletonGAuthorizeMethodCallback = Nothing
type C_DBusInterfaceSkeletonGAuthorizeMethodCallback =
Ptr () ->
Ptr Gio.DBusMethodInvocation.DBusMethodInvocation ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_DBusInterfaceSkeletonGAuthorizeMethodCallback :: C_DBusInterfaceSkeletonGAuthorizeMethodCallback -> IO (FunPtr C_DBusInterfaceSkeletonGAuthorizeMethodCallback)
genClosure_DBusInterfaceSkeletonGAuthorizeMethod :: DBusInterfaceSkeletonGAuthorizeMethodCallback -> IO Closure
genClosure_DBusInterfaceSkeletonGAuthorizeMethod cb = do
let cb' = wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback cb
mk_DBusInterfaceSkeletonGAuthorizeMethodCallback cb' >>= newCClosure
wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback ::
DBusInterfaceSkeletonGAuthorizeMethodCallback ->
Ptr () ->
Ptr Gio.DBusMethodInvocation.DBusMethodInvocation ->
Ptr () ->
IO CInt
wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback _cb _ invocation _ = do
invocation' <- (newObject Gio.DBusMethodInvocation.DBusMethodInvocation) invocation
result <- _cb invocation'
let result' = (fromIntegral . fromEnum) result
return result'
onDBusInterfaceSkeletonGAuthorizeMethod :: (GObject a, MonadIO m) => a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> m SignalHandlerId
onDBusInterfaceSkeletonGAuthorizeMethod obj cb = liftIO $ connectDBusInterfaceSkeletonGAuthorizeMethod obj cb SignalConnectBefore
afterDBusInterfaceSkeletonGAuthorizeMethod :: (GObject a, MonadIO m) => a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> m SignalHandlerId
afterDBusInterfaceSkeletonGAuthorizeMethod obj cb = connectDBusInterfaceSkeletonGAuthorizeMethod obj cb SignalConnectAfter
connectDBusInterfaceSkeletonGAuthorizeMethod :: (GObject a, MonadIO m) =>
a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> SignalConnectMode -> m SignalHandlerId
connectDBusInterfaceSkeletonGAuthorizeMethod obj cb after = liftIO $ do
let cb' = wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback cb
cb'' <- mk_DBusInterfaceSkeletonGAuthorizeMethodCallback cb'
connectSignalFunPtr obj "g-authorize-method" cb'' after
getDBusInterfaceSkeletonGFlags :: (MonadIO m, IsDBusInterfaceSkeleton o) => o -> m [Gio.Flags.DBusInterfaceSkeletonFlags]
getDBusInterfaceSkeletonGFlags obj = liftIO $ getObjectPropertyFlags obj "g-flags"
setDBusInterfaceSkeletonGFlags :: (MonadIO m, IsDBusInterfaceSkeleton o) => o -> [Gio.Flags.DBusInterfaceSkeletonFlags] -> m ()
setDBusInterfaceSkeletonGFlags obj val = liftIO $ setObjectPropertyFlags obj "g-flags" val
constructDBusInterfaceSkeletonGFlags :: (IsDBusInterfaceSkeleton o) => [Gio.Flags.DBusInterfaceSkeletonFlags] -> IO (GValueConstruct o)
constructDBusInterfaceSkeletonGFlags val = constructObjectPropertyFlags "g-flags" val
data DBusInterfaceSkeletonGFlagsPropertyInfo
instance AttrInfo DBusInterfaceSkeletonGFlagsPropertyInfo where
type AttrAllowedOps DBusInterfaceSkeletonGFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = (~) [Gio.Flags.DBusInterfaceSkeletonFlags]
type AttrBaseTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = IsDBusInterfaceSkeleton
type AttrGetType DBusInterfaceSkeletonGFlagsPropertyInfo = [Gio.Flags.DBusInterfaceSkeletonFlags]
type AttrLabel DBusInterfaceSkeletonGFlagsPropertyInfo = "g-flags"
type AttrOrigin DBusInterfaceSkeletonGFlagsPropertyInfo = DBusInterfaceSkeleton
attrGet _ = getDBusInterfaceSkeletonGFlags
attrSet _ = setDBusInterfaceSkeletonGFlags
attrConstruct _ = constructDBusInterfaceSkeletonGFlags
attrClear _ = undefined
instance O.HasAttributeList DBusInterfaceSkeleton
type instance O.AttributeList DBusInterfaceSkeleton = DBusInterfaceSkeletonAttributeList
type DBusInterfaceSkeletonAttributeList = ('[ '("gFlags", DBusInterfaceSkeletonGFlagsPropertyInfo)] :: [(Symbol, *)])
dBusInterfaceSkeletonGFlags :: AttrLabelProxy "gFlags"
dBusInterfaceSkeletonGFlags = AttrLabelProxy
data DBusInterfaceSkeletonGAuthorizeMethodSignalInfo
instance SignalInfo DBusInterfaceSkeletonGAuthorizeMethodSignalInfo where
type HaskellCallbackType DBusInterfaceSkeletonGAuthorizeMethodSignalInfo = DBusInterfaceSkeletonGAuthorizeMethodCallback
connectSignal _ = connectDBusInterfaceSkeletonGAuthorizeMethod
type instance O.SignalList DBusInterfaceSkeleton = DBusInterfaceSkeletonSignalList
type DBusInterfaceSkeletonSignalList = ('[ '("gAuthorizeMethod", DBusInterfaceSkeletonGAuthorizeMethodSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_dbus_interface_skeleton_export" g_dbus_interface_skeleton_export ::
Ptr DBusInterfaceSkeleton ->
Ptr Gio.DBusConnection.DBusConnection ->
CString ->
Ptr (Ptr GError) ->
IO CInt
dBusInterfaceSkeletonExport ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) =>
a
-> b
-> T.Text
-> m ()
dBusInterfaceSkeletonExport interface_ connection objectPath = liftIO $ do
interface_' <- unsafeManagedPtrCastPtr interface_
connection' <- unsafeManagedPtrCastPtr connection
objectPath' <- textToCString objectPath
onException (do
_ <- propagateGError $ g_dbus_interface_skeleton_export interface_' connection' objectPath'
touchManagedPtr interface_
touchManagedPtr connection
freeMem objectPath'
return ()
) (do
freeMem objectPath'
)
data DBusInterfaceSkeletonExportMethodInfo
instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) => O.MethodInfo DBusInterfaceSkeletonExportMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonExport
foreign import ccall "g_dbus_interface_skeleton_flush" g_dbus_interface_skeleton_flush ::
Ptr DBusInterfaceSkeleton ->
IO ()
dBusInterfaceSkeletonFlush ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>
a
-> m ()
dBusInterfaceSkeletonFlush interface_ = liftIO $ do
interface_' <- unsafeManagedPtrCastPtr interface_
g_dbus_interface_skeleton_flush interface_'
touchManagedPtr interface_
return ()
data DBusInterfaceSkeletonFlushMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonFlushMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonFlush
foreign import ccall "g_dbus_interface_skeleton_get_connection" g_dbus_interface_skeleton_get_connection ::
Ptr DBusInterfaceSkeleton ->
IO (Ptr Gio.DBusConnection.DBusConnection)
dBusInterfaceSkeletonGetConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>
a
-> m Gio.DBusConnection.DBusConnection
dBusInterfaceSkeletonGetConnection interface_ = liftIO $ do
interface_' <- unsafeManagedPtrCastPtr interface_
result <- g_dbus_interface_skeleton_get_connection interface_'
checkUnexpectedReturnNULL "dBusInterfaceSkeletonGetConnection" result
result' <- (newObject Gio.DBusConnection.DBusConnection) result
touchManagedPtr interface_
return result'
data DBusInterfaceSkeletonGetConnectionMethodInfo
instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetConnectionMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonGetConnection
foreign import ccall "g_dbus_interface_skeleton_get_connections" g_dbus_interface_skeleton_get_connections ::
Ptr DBusInterfaceSkeleton ->
IO (Ptr (GList (Ptr Gio.DBusConnection.DBusConnection)))
dBusInterfaceSkeletonGetConnections ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>
a
-> m [Gio.DBusConnection.DBusConnection]
dBusInterfaceSkeletonGetConnections interface_ = liftIO $ do
interface_' <- unsafeManagedPtrCastPtr interface_
result <- g_dbus_interface_skeleton_get_connections interface_'
result' <- unpackGList result
result'' <- mapM (wrapObject Gio.DBusConnection.DBusConnection) result'
g_list_free result
touchManagedPtr interface_
return result''
data DBusInterfaceSkeletonGetConnectionsMethodInfo
instance (signature ~ (m [Gio.DBusConnection.DBusConnection]), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetConnectionsMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonGetConnections
foreign import ccall "g_dbus_interface_skeleton_get_flags" g_dbus_interface_skeleton_get_flags ::
Ptr DBusInterfaceSkeleton ->
IO CUInt
dBusInterfaceSkeletonGetFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>
a
-> m [Gio.Flags.DBusInterfaceSkeletonFlags]
dBusInterfaceSkeletonGetFlags interface_ = liftIO $ do
interface_' <- unsafeManagedPtrCastPtr interface_
result <- g_dbus_interface_skeleton_get_flags interface_'
let result' = wordToGFlags result
touchManagedPtr interface_
return result'
data DBusInterfaceSkeletonGetFlagsMethodInfo
instance (signature ~ (m [Gio.Flags.DBusInterfaceSkeletonFlags]), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetFlagsMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonGetFlags
foreign import ccall "g_dbus_interface_skeleton_get_info" g_dbus_interface_skeleton_get_info ::
Ptr DBusInterfaceSkeleton ->
IO (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo)
dBusInterfaceSkeletonGetInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>
a
-> m Gio.DBusInterfaceInfo.DBusInterfaceInfo
dBusInterfaceSkeletonGetInfo interface_ = liftIO $ do
interface_' <- unsafeManagedPtrCastPtr interface_
result <- g_dbus_interface_skeleton_get_info interface_'
checkUnexpectedReturnNULL "dBusInterfaceSkeletonGetInfo" result
result' <- (newBoxed Gio.DBusInterfaceInfo.DBusInterfaceInfo) result
touchManagedPtr interface_
return result'
data DBusInterfaceSkeletonGetInfoMethodInfo
instance (signature ~ (m Gio.DBusInterfaceInfo.DBusInterfaceInfo), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetInfoMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonGetInfo
foreign import ccall "g_dbus_interface_skeleton_get_object_path" g_dbus_interface_skeleton_get_object_path ::
Ptr DBusInterfaceSkeleton ->
IO CString
dBusInterfaceSkeletonGetObjectPath ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>
a
-> m T.Text
dBusInterfaceSkeletonGetObjectPath interface_ = liftIO $ do
interface_' <- unsafeManagedPtrCastPtr interface_
result <- g_dbus_interface_skeleton_get_object_path interface_'
checkUnexpectedReturnNULL "dBusInterfaceSkeletonGetObjectPath" result
result' <- cstringToText result
touchManagedPtr interface_
return result'
data DBusInterfaceSkeletonGetObjectPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetObjectPathMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonGetObjectPath
foreign import ccall "g_dbus_interface_skeleton_get_properties" g_dbus_interface_skeleton_get_properties ::
Ptr DBusInterfaceSkeleton ->
IO (Ptr GVariant)
dBusInterfaceSkeletonGetProperties ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>
a
-> m GVariant
dBusInterfaceSkeletonGetProperties interface_ = liftIO $ do
interface_' <- unsafeManagedPtrCastPtr interface_
result <- g_dbus_interface_skeleton_get_properties interface_'
checkUnexpectedReturnNULL "dBusInterfaceSkeletonGetProperties" result
result' <- wrapGVariantPtr result
touchManagedPtr interface_
return result'
data DBusInterfaceSkeletonGetPropertiesMethodInfo
instance (signature ~ (m GVariant), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetPropertiesMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonGetProperties
foreign import ccall "g_dbus_interface_skeleton_has_connection" g_dbus_interface_skeleton_has_connection ::
Ptr DBusInterfaceSkeleton ->
Ptr Gio.DBusConnection.DBusConnection ->
IO CInt
dBusInterfaceSkeletonHasConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) =>
a
-> b
-> m Bool
dBusInterfaceSkeletonHasConnection interface_ connection = liftIO $ do
interface_' <- unsafeManagedPtrCastPtr interface_
connection' <- unsafeManagedPtrCastPtr connection
result <- g_dbus_interface_skeleton_has_connection interface_' connection'
let result' = (/= 0) result
touchManagedPtr interface_
touchManagedPtr connection
return result'
data DBusInterfaceSkeletonHasConnectionMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) => O.MethodInfo DBusInterfaceSkeletonHasConnectionMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonHasConnection
foreign import ccall "g_dbus_interface_skeleton_set_flags" g_dbus_interface_skeleton_set_flags ::
Ptr DBusInterfaceSkeleton ->
CUInt ->
IO ()
dBusInterfaceSkeletonSetFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>
a
-> [Gio.Flags.DBusInterfaceSkeletonFlags]
-> m ()
dBusInterfaceSkeletonSetFlags interface_ flags = liftIO $ do
interface_' <- unsafeManagedPtrCastPtr interface_
let flags' = gflagsToWord flags
g_dbus_interface_skeleton_set_flags interface_' flags'
touchManagedPtr interface_
return ()
data DBusInterfaceSkeletonSetFlagsMethodInfo
instance (signature ~ ([Gio.Flags.DBusInterfaceSkeletonFlags] -> m ()), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonSetFlagsMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonSetFlags
foreign import ccall "g_dbus_interface_skeleton_unexport" g_dbus_interface_skeleton_unexport ::
Ptr DBusInterfaceSkeleton ->
IO ()
dBusInterfaceSkeletonUnexport ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>
a
-> m ()
dBusInterfaceSkeletonUnexport interface_ = liftIO $ do
interface_' <- unsafeManagedPtrCastPtr interface_
g_dbus_interface_skeleton_unexport interface_'
touchManagedPtr interface_
return ()
data DBusInterfaceSkeletonUnexportMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonUnexportMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonUnexport
foreign import ccall "g_dbus_interface_skeleton_unexport_from_connection" g_dbus_interface_skeleton_unexport_from_connection ::
Ptr DBusInterfaceSkeleton ->
Ptr Gio.DBusConnection.DBusConnection ->
IO ()
dBusInterfaceSkeletonUnexportFromConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) =>
a
-> b
-> m ()
dBusInterfaceSkeletonUnexportFromConnection interface_ connection = liftIO $ do
interface_' <- unsafeManagedPtrCastPtr interface_
connection' <- unsafeManagedPtrCastPtr connection
g_dbus_interface_skeleton_unexport_from_connection interface_' connection'
touchManagedPtr interface_
touchManagedPtr connection
return ()
data DBusInterfaceSkeletonUnexportFromConnectionMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) => O.MethodInfo DBusInterfaceSkeletonUnexportFromConnectionMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonUnexportFromConnection