gi-gio-0.2.46.13: GI/Gio/Objects/DBusInterfaceSkeleton.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gio.Objects.DBusInterfaceSkeleton
(
-- * Exported types
DBusInterfaceSkeleton(..) ,
DBusInterfaceSkeletonK ,
toDBusInterfaceSkeleton ,
noDBusInterfaceSkeleton ,
-- * Methods
-- ** dBusInterfaceSkeletonExport
DBusInterfaceSkeletonExportMethodInfo ,
dBusInterfaceSkeletonExport ,
-- ** dBusInterfaceSkeletonFlush
DBusInterfaceSkeletonFlushMethodInfo ,
dBusInterfaceSkeletonFlush ,
-- ** dBusInterfaceSkeletonGetConnection
DBusInterfaceSkeletonGetConnectionMethodInfo,
dBusInterfaceSkeletonGetConnection ,
-- ** dBusInterfaceSkeletonGetConnections
DBusInterfaceSkeletonGetConnectionsMethodInfo,
dBusInterfaceSkeletonGetConnections ,
-- ** dBusInterfaceSkeletonGetFlags
DBusInterfaceSkeletonGetFlagsMethodInfo ,
dBusInterfaceSkeletonGetFlags ,
-- ** dBusInterfaceSkeletonGetInfo
DBusInterfaceSkeletonGetInfoMethodInfo ,
dBusInterfaceSkeletonGetInfo ,
-- ** dBusInterfaceSkeletonGetObjectPath
DBusInterfaceSkeletonGetObjectPathMethodInfo,
dBusInterfaceSkeletonGetObjectPath ,
-- ** dBusInterfaceSkeletonGetProperties
DBusInterfaceSkeletonGetPropertiesMethodInfo,
dBusInterfaceSkeletonGetProperties ,
-- ** dBusInterfaceSkeletonHasConnection
DBusInterfaceSkeletonHasConnectionMethodInfo,
dBusInterfaceSkeletonHasConnection ,
-- ** dBusInterfaceSkeletonSetFlags
DBusInterfaceSkeletonSetFlagsMethodInfo ,
dBusInterfaceSkeletonSetFlags ,
-- ** dBusInterfaceSkeletonUnexport
DBusInterfaceSkeletonUnexportMethodInfo ,
dBusInterfaceSkeletonUnexport ,
-- ** dBusInterfaceSkeletonUnexportFromConnection
DBusInterfaceSkeletonUnexportFromConnectionMethodInfo,
dBusInterfaceSkeletonUnexportFromConnection,
-- * Properties
-- ** GFlags
DBusInterfaceSkeletonGFlagsPropertyInfo ,
constructDBusInterfaceSkeletonGFlags ,
getDBusInterfaceSkeletonGFlags ,
setDBusInterfaceSkeletonGFlags ,
-- * Signals
-- ** GAuthorizeMethod
DBusInterfaceSkeletonGAuthorizeMethodCallback,
DBusInterfaceSkeletonGAuthorizeMethodCallbackC,
DBusInterfaceSkeletonGAuthorizeMethodSignalInfo,
afterDBusInterfaceSkeletonGAuthorizeMethod,
dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper,
dBusInterfaceSkeletonGAuthorizeMethodClosure,
mkDBusInterfaceSkeletonGAuthorizeMethodCallback,
noDBusInterfaceSkeletonGAuthorizeMethodCallback,
onDBusInterfaceSkeletonGAuthorizeMethod ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gio.Types
import GI.Gio.Callbacks
import qualified GI.GObject as GObject
newtype DBusInterfaceSkeleton = DBusInterfaceSkeleton (ForeignPtr DBusInterfaceSkeleton)
foreign import ccall "g_dbus_interface_skeleton_get_type"
c_g_dbus_interface_skeleton_get_type :: IO GType
type instance ParentTypes DBusInterfaceSkeleton = DBusInterfaceSkeletonParentTypes
type DBusInterfaceSkeletonParentTypes = '[GObject.Object, DBusInterface]
instance GObject DBusInterfaceSkeleton where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_dbus_interface_skeleton_get_type
class GObject o => DBusInterfaceSkeletonK o
instance (GObject o, IsDescendantOf DBusInterfaceSkeleton o) => DBusInterfaceSkeletonK o
toDBusInterfaceSkeleton :: DBusInterfaceSkeletonK o => o -> IO DBusInterfaceSkeleton
toDBusInterfaceSkeleton = unsafeCastTo DBusInterfaceSkeleton
noDBusInterfaceSkeleton :: Maybe DBusInterfaceSkeleton
noDBusInterfaceSkeleton = Nothing
type family ResolveDBusInterfaceSkeletonMethod (t :: Symbol) (o :: *) :: * where
ResolveDBusInterfaceSkeletonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveDBusInterfaceSkeletonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveDBusInterfaceSkeletonMethod "export" o = DBusInterfaceSkeletonExportMethodInfo
ResolveDBusInterfaceSkeletonMethod "flush" o = DBusInterfaceSkeletonFlushMethodInfo
ResolveDBusInterfaceSkeletonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveDBusInterfaceSkeletonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveDBusInterfaceSkeletonMethod "hasConnection" o = DBusInterfaceSkeletonHasConnectionMethodInfo
ResolveDBusInterfaceSkeletonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveDBusInterfaceSkeletonMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveDBusInterfaceSkeletonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveDBusInterfaceSkeletonMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveDBusInterfaceSkeletonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveDBusInterfaceSkeletonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveDBusInterfaceSkeletonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveDBusInterfaceSkeletonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveDBusInterfaceSkeletonMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveDBusInterfaceSkeletonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveDBusInterfaceSkeletonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveDBusInterfaceSkeletonMethod "unexport" o = DBusInterfaceSkeletonUnexportMethodInfo
ResolveDBusInterfaceSkeletonMethod "unexportFromConnection" o = DBusInterfaceSkeletonUnexportFromConnectionMethodInfo
ResolveDBusInterfaceSkeletonMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveDBusInterfaceSkeletonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveDBusInterfaceSkeletonMethod "getConnection" o = DBusInterfaceSkeletonGetConnectionMethodInfo
ResolveDBusInterfaceSkeletonMethod "getConnections" o = DBusInterfaceSkeletonGetConnectionsMethodInfo
ResolveDBusInterfaceSkeletonMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveDBusInterfaceSkeletonMethod "getFlags" o = DBusInterfaceSkeletonGetFlagsMethodInfo
ResolveDBusInterfaceSkeletonMethod "getObject" o = DBusInterfaceGetObjectMethodInfo
ResolveDBusInterfaceSkeletonMethod "getObjectPath" o = DBusInterfaceSkeletonGetObjectPathMethodInfo
ResolveDBusInterfaceSkeletonMethod "getProperties" o = DBusInterfaceSkeletonGetPropertiesMethodInfo
ResolveDBusInterfaceSkeletonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveDBusInterfaceSkeletonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveDBusInterfaceSkeletonMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveDBusInterfaceSkeletonMethod "setFlags" o = DBusInterfaceSkeletonSetFlagsMethodInfo
ResolveDBusInterfaceSkeletonMethod "setObject" o = DBusInterfaceSetObjectMethodInfo
ResolveDBusInterfaceSkeletonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveDBusInterfaceSkeletonMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveDBusInterfaceSkeletonMethod t DBusInterfaceSkeleton, MethodInfo info DBusInterfaceSkeleton p) => IsLabelProxy t (DBusInterfaceSkeleton -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDBusInterfaceSkeletonMethod t DBusInterfaceSkeleton, MethodInfo info DBusInterfaceSkeleton p) => IsLabel t (DBusInterfaceSkeleton -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal DBusInterfaceSkeleton::g-authorize-method
type DBusInterfaceSkeletonGAuthorizeMethodCallback =
DBusMethodInvocation ->
IO Bool
noDBusInterfaceSkeletonGAuthorizeMethodCallback :: Maybe DBusInterfaceSkeletonGAuthorizeMethodCallback
noDBusInterfaceSkeletonGAuthorizeMethodCallback = Nothing
type DBusInterfaceSkeletonGAuthorizeMethodCallbackC =
Ptr () -> -- object
Ptr DBusMethodInvocation ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkDBusInterfaceSkeletonGAuthorizeMethodCallback :: DBusInterfaceSkeletonGAuthorizeMethodCallbackC -> IO (FunPtr DBusInterfaceSkeletonGAuthorizeMethodCallbackC)
dBusInterfaceSkeletonGAuthorizeMethodClosure :: DBusInterfaceSkeletonGAuthorizeMethodCallback -> IO Closure
dBusInterfaceSkeletonGAuthorizeMethodClosure cb = newCClosure =<< mkDBusInterfaceSkeletonGAuthorizeMethodCallback wrapped
where wrapped = dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper cb
dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper ::
DBusInterfaceSkeletonGAuthorizeMethodCallback ->
Ptr () ->
Ptr DBusMethodInvocation ->
Ptr () ->
IO CInt
dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper _cb _ invocation _ = do
invocation' <- (newObject 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
cb' <- mkDBusInterfaceSkeletonGAuthorizeMethodCallback (dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper cb)
connectSignalFunPtr obj "g-authorize-method" cb' after
-- VVV Prop "g-flags"
-- Type: TInterface "Gio" "DBusInterfaceSkeletonFlags"
-- Flags: [PropertyReadable,PropertyWritable]
getDBusInterfaceSkeletonGFlags :: (MonadIO m, DBusInterfaceSkeletonK o) => o -> m [DBusInterfaceSkeletonFlags]
getDBusInterfaceSkeletonGFlags obj = liftIO $ getObjectPropertyFlags obj "g-flags"
setDBusInterfaceSkeletonGFlags :: (MonadIO m, DBusInterfaceSkeletonK o) => o -> [DBusInterfaceSkeletonFlags] -> m ()
setDBusInterfaceSkeletonGFlags obj val = liftIO $ setObjectPropertyFlags obj "g-flags" val
constructDBusInterfaceSkeletonGFlags :: [DBusInterfaceSkeletonFlags] -> IO ([Char], GValue)
constructDBusInterfaceSkeletonGFlags val = constructObjectPropertyFlags "g-flags" val
data DBusInterfaceSkeletonGFlagsPropertyInfo
instance AttrInfo DBusInterfaceSkeletonGFlagsPropertyInfo where
type AttrAllowedOps DBusInterfaceSkeletonGFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = (~) [DBusInterfaceSkeletonFlags]
type AttrBaseTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = DBusInterfaceSkeletonK
type AttrGetType DBusInterfaceSkeletonGFlagsPropertyInfo = [DBusInterfaceSkeletonFlags]
type AttrLabel DBusInterfaceSkeletonGFlagsPropertyInfo = "g-flags"
attrGet _ = getDBusInterfaceSkeletonGFlags
attrSet _ = setDBusInterfaceSkeletonGFlags
attrConstruct _ = constructDBusInterfaceSkeletonGFlags
type instance AttributeList DBusInterfaceSkeleton = DBusInterfaceSkeletonAttributeList
type DBusInterfaceSkeletonAttributeList = ('[ '("gFlags", DBusInterfaceSkeletonGFlagsPropertyInfo)] :: [(Symbol, *)])
data DBusInterfaceSkeletonGAuthorizeMethodSignalInfo
instance SignalInfo DBusInterfaceSkeletonGAuthorizeMethodSignalInfo where
type HaskellCallbackType DBusInterfaceSkeletonGAuthorizeMethodSignalInfo = DBusInterfaceSkeletonGAuthorizeMethodCallback
connectSignal _ = connectDBusInterfaceSkeletonGAuthorizeMethod
type instance SignalList DBusInterfaceSkeleton = DBusInterfaceSkeletonSignalList
type DBusInterfaceSkeletonSignalList = ('[ '("gAuthorizeMethod", DBusInterfaceSkeletonGAuthorizeMethodSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method DBusInterfaceSkeleton::export
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "g_dbus_interface_skeleton_export" g_dbus_interface_skeleton_export ::
Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"
Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection"
CString -> -- object_path : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
dBusInterfaceSkeletonExport ::
(MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) =>
a -- _obj
-> b -- connection
-> T.Text -- objectPath
-> m () -- result
dBusInterfaceSkeletonExport _obj connection objectPath = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let connection' = unsafeManagedPtrCastPtr connection
objectPath' <- textToCString objectPath
onException (do
_ <- propagateGError $ g_dbus_interface_skeleton_export _obj' connection' objectPath'
touchManagedPtr _obj
touchManagedPtr connection
freeMem objectPath'
return ()
) (do
freeMem objectPath'
)
data DBusInterfaceSkeletonExportMethodInfo
instance (signature ~ (b -> T.Text -> m ()), MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => MethodInfo DBusInterfaceSkeletonExportMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonExport
-- method DBusInterfaceSkeleton::flush
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_interface_skeleton_flush" g_dbus_interface_skeleton_flush ::
Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"
IO ()
dBusInterfaceSkeletonFlush ::
(MonadIO m, DBusInterfaceSkeletonK a) =>
a -- _obj
-> m () -- result
dBusInterfaceSkeletonFlush _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_dbus_interface_skeleton_flush _obj'
touchManagedPtr _obj
return ()
data DBusInterfaceSkeletonFlushMethodInfo
instance (signature ~ (m ()), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonFlushMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonFlush
-- method DBusInterfaceSkeleton::get_connection
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "DBusConnection"
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_interface_skeleton_get_connection" g_dbus_interface_skeleton_get_connection ::
Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"
IO (Ptr DBusConnection)
dBusInterfaceSkeletonGetConnection ::
(MonadIO m, DBusInterfaceSkeletonK a) =>
a -- _obj
-> m DBusConnection -- result
dBusInterfaceSkeletonGetConnection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_dbus_interface_skeleton_get_connection _obj'
checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_connection" result
result' <- (newObject DBusConnection) result
touchManagedPtr _obj
return result'
data DBusInterfaceSkeletonGetConnectionMethodInfo
instance (signature ~ (m DBusConnection), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetConnectionMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonGetConnection
-- method DBusInterfaceSkeleton::get_connections
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TGList (TInterface "Gio" "DBusConnection")
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_interface_skeleton_get_connections" g_dbus_interface_skeleton_get_connections ::
Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"
IO (Ptr (GList (Ptr DBusConnection)))
dBusInterfaceSkeletonGetConnections ::
(MonadIO m, DBusInterfaceSkeletonK a) =>
a -- _obj
-> m [DBusConnection] -- result
dBusInterfaceSkeletonGetConnections _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_dbus_interface_skeleton_get_connections _obj'
checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_connections" result
result' <- unpackGList result
result'' <- mapM (wrapObject DBusConnection) result'
g_list_free result
touchManagedPtr _obj
return result''
data DBusInterfaceSkeletonGetConnectionsMethodInfo
instance (signature ~ (m [DBusConnection]), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetConnectionsMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonGetConnections
-- method DBusInterfaceSkeleton::get_flags
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "DBusInterfaceSkeletonFlags"
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_interface_skeleton_get_flags" g_dbus_interface_skeleton_get_flags ::
Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"
IO CUInt
dBusInterfaceSkeletonGetFlags ::
(MonadIO m, DBusInterfaceSkeletonK a) =>
a -- _obj
-> m [DBusInterfaceSkeletonFlags] -- result
dBusInterfaceSkeletonGetFlags _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_dbus_interface_skeleton_get_flags _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
data DBusInterfaceSkeletonGetFlagsMethodInfo
instance (signature ~ (m [DBusInterfaceSkeletonFlags]), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetFlagsMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonGetFlags
-- method DBusInterfaceSkeleton::get_info
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "DBusInterfaceInfo"
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_interface_skeleton_get_info" g_dbus_interface_skeleton_get_info ::
Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"
IO (Ptr DBusInterfaceInfo)
dBusInterfaceSkeletonGetInfo ::
(MonadIO m, DBusInterfaceSkeletonK a) =>
a -- _obj
-> m DBusInterfaceInfo -- result
dBusInterfaceSkeletonGetInfo _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_dbus_interface_skeleton_get_info _obj'
checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_info" result
result' <- (newBoxed DBusInterfaceInfo) result
touchManagedPtr _obj
return result'
data DBusInterfaceSkeletonGetInfoMethodInfo
instance (signature ~ (m DBusInterfaceInfo), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetInfoMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonGetInfo
-- method DBusInterfaceSkeleton::get_object_path
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_interface_skeleton_get_object_path" g_dbus_interface_skeleton_get_object_path ::
Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"
IO CString
dBusInterfaceSkeletonGetObjectPath ::
(MonadIO m, DBusInterfaceSkeletonK a) =>
a -- _obj
-> m T.Text -- result
dBusInterfaceSkeletonGetObjectPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_dbus_interface_skeleton_get_object_path _obj'
checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_object_path" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
data DBusInterfaceSkeletonGetObjectPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetObjectPathMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonGetObjectPath
-- method DBusInterfaceSkeleton::get_properties
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TVariant
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_interface_skeleton_get_properties" g_dbus_interface_skeleton_get_properties ::
Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"
IO (Ptr GVariant)
dBusInterfaceSkeletonGetProperties ::
(MonadIO m, DBusInterfaceSkeletonK a) =>
a -- _obj
-> m GVariant -- result
dBusInterfaceSkeletonGetProperties _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_dbus_interface_skeleton_get_properties _obj'
checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_properties" result
result' <- wrapGVariantPtr result
touchManagedPtr _obj
return result'
data DBusInterfaceSkeletonGetPropertiesMethodInfo
instance (signature ~ (m GVariant), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetPropertiesMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonGetProperties
-- method DBusInterfaceSkeleton::has_connection
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_interface_skeleton_has_connection" g_dbus_interface_skeleton_has_connection ::
Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"
Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection"
IO CInt
dBusInterfaceSkeletonHasConnection ::
(MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) =>
a -- _obj
-> b -- connection
-> m Bool -- result
dBusInterfaceSkeletonHasConnection _obj connection = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let connection' = unsafeManagedPtrCastPtr connection
result <- g_dbus_interface_skeleton_has_connection _obj' connection'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr connection
return result'
data DBusInterfaceSkeletonHasConnectionMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => MethodInfo DBusInterfaceSkeletonHasConnectionMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonHasConnection
-- method DBusInterfaceSkeleton::set_flags
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusInterfaceSkeletonFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_interface_skeleton_set_flags" g_dbus_interface_skeleton_set_flags ::
Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"
CUInt -> -- flags : TInterface "Gio" "DBusInterfaceSkeletonFlags"
IO ()
dBusInterfaceSkeletonSetFlags ::
(MonadIO m, DBusInterfaceSkeletonK a) =>
a -- _obj
-> [DBusInterfaceSkeletonFlags] -- flags
-> m () -- result
dBusInterfaceSkeletonSetFlags _obj flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
g_dbus_interface_skeleton_set_flags _obj' flags'
touchManagedPtr _obj
return ()
data DBusInterfaceSkeletonSetFlagsMethodInfo
instance (signature ~ ([DBusInterfaceSkeletonFlags] -> m ()), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonSetFlagsMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonSetFlags
-- method DBusInterfaceSkeleton::unexport
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_interface_skeleton_unexport" g_dbus_interface_skeleton_unexport ::
Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"
IO ()
dBusInterfaceSkeletonUnexport ::
(MonadIO m, DBusInterfaceSkeletonK a) =>
a -- _obj
-> m () -- result
dBusInterfaceSkeletonUnexport _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_dbus_interface_skeleton_unexport _obj'
touchManagedPtr _obj
return ()
data DBusInterfaceSkeletonUnexportMethodInfo
instance (signature ~ (m ()), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonUnexportMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonUnexport
-- method DBusInterfaceSkeleton::unexport_from_connection
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_interface_skeleton_unexport_from_connection" g_dbus_interface_skeleton_unexport_from_connection ::
Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"
Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection"
IO ()
dBusInterfaceSkeletonUnexportFromConnection ::
(MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) =>
a -- _obj
-> b -- connection
-> m () -- result
dBusInterfaceSkeletonUnexportFromConnection _obj connection = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let connection' = unsafeManagedPtrCastPtr connection
g_dbus_interface_skeleton_unexport_from_connection _obj' connection'
touchManagedPtr _obj
touchManagedPtr connection
return ()
data DBusInterfaceSkeletonUnexportFromConnectionMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => MethodInfo DBusInterfaceSkeletonUnexportFromConnectionMethodInfo a signature where
overloadedMethod _ = dBusInterfaceSkeletonUnexportFromConnection