{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Objects.DBusInterfaceSkeleton
(
DBusInterfaceSkeleton(..) ,
IsDBusInterfaceSkeleton ,
toDBusInterfaceSkeleton ,
noDBusInterfaceSkeleton ,
#if defined(ENABLE_OVERLOADING)
ResolveDBusInterfaceSkeletonMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonExportMethodInfo ,
#endif
dBusInterfaceSkeletonExport ,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonFlushMethodInfo ,
#endif
dBusInterfaceSkeletonFlush ,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonGetConnectionMethodInfo,
#endif
dBusInterfaceSkeletonGetConnection ,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonGetConnectionsMethodInfo,
#endif
dBusInterfaceSkeletonGetConnections ,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonGetFlagsMethodInfo ,
#endif
dBusInterfaceSkeletonGetFlags ,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonGetInfoMethodInfo ,
#endif
dBusInterfaceSkeletonGetInfo ,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonGetObjectPathMethodInfo,
#endif
dBusInterfaceSkeletonGetObjectPath ,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonGetPropertiesMethodInfo,
#endif
dBusInterfaceSkeletonGetProperties ,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonHasConnectionMethodInfo,
#endif
dBusInterfaceSkeletonHasConnection ,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonSetFlagsMethodInfo ,
#endif
dBusInterfaceSkeletonSetFlags ,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonUnexportMethodInfo ,
#endif
dBusInterfaceSkeletonUnexport ,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonUnexportFromConnectionMethodInfo,
#endif
dBusInterfaceSkeletonUnexportFromConnection,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonGFlagsPropertyInfo ,
#endif
constructDBusInterfaceSkeletonGFlags ,
#if defined(ENABLE_OVERLOADING)
dBusInterfaceSkeletonGFlags ,
#endif
getDBusInterfaceSkeletonGFlags ,
setDBusInterfaceSkeletonGFlags ,
C_DBusInterfaceSkeletonGAuthorizeMethodCallback,
DBusInterfaceSkeletonGAuthorizeMethodCallback,
#if defined(ENABLE_OVERLOADING)
DBusInterfaceSkeletonGAuthorizeMethodSignalInfo,
#endif
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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
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 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 GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags
import {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusInterface as Gio.DBusInterface
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection
import {-# SOURCE #-} qualified GI.Gio.Objects.DBusMethodInvocation as Gio.DBusMethodInvocation
import {-# SOURCE #-} qualified GI.Gio.Structs.DBusInterfaceInfo as Gio.DBusInterfaceInfo
newtype DBusInterfaceSkeleton = DBusInterfaceSkeleton (ManagedPtr DBusInterfaceSkeleton)
deriving (Eq)
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
instance B.GValue.IsGValue DBusInterfaceSkeleton where
toGValue o = do
gtype <- c_g_dbus_interface_skeleton_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr DBusInterfaceSkeleton)
B.ManagedPtr.newObject DBusInterfaceSkeleton ptr
class (GObject o, O.IsDescendantOf DBusInterfaceSkeleton o) => IsDBusInterfaceSkeleton o
instance (GObject o, O.IsDescendantOf DBusInterfaceSkeleton o) => IsDBusInterfaceSkeleton o
instance O.HasParentTypes DBusInterfaceSkeleton
type instance O.ParentTypes DBusInterfaceSkeleton = '[GObject.Object.Object, Gio.DBusInterface.DBusInterface]
toDBusInterfaceSkeleton :: (MonadIO m, IsDBusInterfaceSkeleton o) => o -> m DBusInterfaceSkeleton
toDBusInterfaceSkeleton = liftIO . unsafeCastTo DBusInterfaceSkeleton
noDBusInterfaceSkeleton :: Maybe DBusInterfaceSkeleton
noDBusInterfaceSkeleton = Nothing
#if defined(ENABLE_OVERLOADING)
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 "getv" o = GObject.Object.ObjectGetvMethodInfo
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 "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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
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) => OL.IsLabel t (DBusInterfaceSkeleton -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#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 :: MonadIO m => DBusInterfaceSkeletonGAuthorizeMethodCallback -> m (GClosure C_DBusInterfaceSkeletonGAuthorizeMethodCallback)
genClosure_DBusInterfaceSkeletonGAuthorizeMethod cb = liftIO $ do
let cb' = wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback cb
mk_DBusInterfaceSkeletonGAuthorizeMethodCallback cb' >>= B.GClosure.newGClosure
wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback ::
DBusInterfaceSkeletonGAuthorizeMethodCallback ->
C_DBusInterfaceSkeletonGAuthorizeMethodCallback
wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback _cb _ invocation _ = do
invocation' <- (newObject Gio.DBusMethodInvocation.DBusMethodInvocation) invocation
result <- _cb invocation'
let result' = (fromIntegral . fromEnum) result
return result'
onDBusInterfaceSkeletonGAuthorizeMethod :: (IsDBusInterfaceSkeleton a, MonadIO m) => a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> m SignalHandlerId
onDBusInterfaceSkeletonGAuthorizeMethod obj cb = liftIO $ do
let cb' = wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback cb
cb'' <- mk_DBusInterfaceSkeletonGAuthorizeMethodCallback cb'
connectSignalFunPtr obj "g-authorize-method" cb'' SignalConnectBefore Nothing
afterDBusInterfaceSkeletonGAuthorizeMethod :: (IsDBusInterfaceSkeleton a, MonadIO m) => a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> m SignalHandlerId
afterDBusInterfaceSkeletonGAuthorizeMethod obj cb = liftIO $ do
let cb' = wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback cb
cb'' <- mk_DBusInterfaceSkeletonGAuthorizeMethodCallback cb'
connectSignalFunPtr obj "g-authorize-method" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonGAuthorizeMethodSignalInfo
instance SignalInfo DBusInterfaceSkeletonGAuthorizeMethodSignalInfo where
type HaskellCallbackType DBusInterfaceSkeletonGAuthorizeMethodSignalInfo = DBusInterfaceSkeletonGAuthorizeMethodCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback cb
cb'' <- mk_DBusInterfaceSkeletonGAuthorizeMethodCallback cb'
connectSignalFunPtr obj "g-authorize-method" cb'' connectMode detail
#endif
getDBusInterfaceSkeletonGFlags :: (MonadIO m, IsDBusInterfaceSkeleton o) => o -> m [Gio.Flags.DBusInterfaceSkeletonFlags]
getDBusInterfaceSkeletonGFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "g-flags"
setDBusInterfaceSkeletonGFlags :: (MonadIO m, IsDBusInterfaceSkeleton o) => o -> [Gio.Flags.DBusInterfaceSkeletonFlags] -> m ()
setDBusInterfaceSkeletonGFlags obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "g-flags" val
constructDBusInterfaceSkeletonGFlags :: (IsDBusInterfaceSkeleton o) => [Gio.Flags.DBusInterfaceSkeletonFlags] -> IO (GValueConstruct o)
constructDBusInterfaceSkeletonGFlags val = B.Properties.constructObjectPropertyFlags "g-flags" val
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonGFlagsPropertyInfo
instance AttrInfo DBusInterfaceSkeletonGFlagsPropertyInfo where
type AttrAllowedOps DBusInterfaceSkeletonGFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = IsDBusInterfaceSkeleton
type AttrSetTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = (~) [Gio.Flags.DBusInterfaceSkeletonFlags]
type AttrTransferTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = (~) [Gio.Flags.DBusInterfaceSkeletonFlags]
type AttrTransferType DBusInterfaceSkeletonGFlagsPropertyInfo = [Gio.Flags.DBusInterfaceSkeletonFlags]
type AttrGetType DBusInterfaceSkeletonGFlagsPropertyInfo = [Gio.Flags.DBusInterfaceSkeletonFlags]
type AttrLabel DBusInterfaceSkeletonGFlagsPropertyInfo = "g-flags"
type AttrOrigin DBusInterfaceSkeletonGFlagsPropertyInfo = DBusInterfaceSkeleton
attrGet = getDBusInterfaceSkeletonGFlags
attrSet = setDBusInterfaceSkeletonGFlags
attrTransfer _ v = do
return v
attrConstruct = constructDBusInterfaceSkeletonGFlags
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DBusInterfaceSkeleton
type instance O.AttributeList DBusInterfaceSkeleton = DBusInterfaceSkeletonAttributeList
type DBusInterfaceSkeletonAttributeList = ('[ '("gFlags", DBusInterfaceSkeletonGFlagsPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dBusInterfaceSkeletonGFlags :: AttrLabelProxy "gFlags"
dBusInterfaceSkeletonGFlags = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DBusInterfaceSkeleton = DBusInterfaceSkeletonSignalList
type DBusInterfaceSkeletonSignalList = ('[ '("gAuthorizeMethod", DBusInterfaceSkeletonGAuthorizeMethodSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
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'
)
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonExportMethodInfo
instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) => O.MethodInfo DBusInterfaceSkeletonExportMethodInfo a signature where
overloadedMethod = dBusInterfaceSkeletonExport
#endif
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 ()
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonFlushMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonFlushMethodInfo a signature where
overloadedMethod = dBusInterfaceSkeletonFlush
#endif
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'
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonGetConnectionMethodInfo
instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetConnectionMethodInfo a signature where
overloadedMethod = dBusInterfaceSkeletonGetConnection
#endif
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''
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonGetConnectionsMethodInfo
instance (signature ~ (m [Gio.DBusConnection.DBusConnection]), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetConnectionsMethodInfo a signature where
overloadedMethod = dBusInterfaceSkeletonGetConnections
#endif
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'
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonGetFlagsMethodInfo
instance (signature ~ (m [Gio.Flags.DBusInterfaceSkeletonFlags]), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetFlagsMethodInfo a signature where
overloadedMethod = dBusInterfaceSkeletonGetFlags
#endif
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'
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonGetInfoMethodInfo
instance (signature ~ (m Gio.DBusInterfaceInfo.DBusInterfaceInfo), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetInfoMethodInfo a signature where
overloadedMethod = dBusInterfaceSkeletonGetInfo
#endif
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'
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonGetObjectPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetObjectPathMethodInfo a signature where
overloadedMethod = dBusInterfaceSkeletonGetObjectPath
#endif
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' <- B.GVariant.wrapGVariantPtr result
touchManagedPtr interface_
return result'
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonGetPropertiesMethodInfo
instance (signature ~ (m GVariant), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetPropertiesMethodInfo a signature where
overloadedMethod = dBusInterfaceSkeletonGetProperties
#endif
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'
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonHasConnectionMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) => O.MethodInfo DBusInterfaceSkeletonHasConnectionMethodInfo a signature where
overloadedMethod = dBusInterfaceSkeletonHasConnection
#endif
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 ()
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonSetFlagsMethodInfo
instance (signature ~ ([Gio.Flags.DBusInterfaceSkeletonFlags] -> m ()), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonSetFlagsMethodInfo a signature where
overloadedMethod = dBusInterfaceSkeletonSetFlags
#endif
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 ()
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonUnexportMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonUnexportMethodInfo a signature where
overloadedMethod = dBusInterfaceSkeletonUnexport
#endif
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 ()
#if defined(ENABLE_OVERLOADING)
data DBusInterfaceSkeletonUnexportFromConnectionMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) => O.MethodInfo DBusInterfaceSkeletonUnexportFromConnectionMethodInfo a signature where
overloadedMethod = dBusInterfaceSkeletonUnexportFromConnection
#endif