{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}


-- | Copyright  : Will Thompson and Iñaki García Etxebarria
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- An IBusBus connects with IBus daemon.

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.IBus.Objects.Bus
    ( 

-- * Exported types
    Bus(..)                                 ,
    IsBus                                   ,
    toBus                                   ,


 -- * Methods
-- | 
-- 
--  === __Click to display all available methods, including inherited ones__
-- ==== Methods
-- [addMatch]("GI.IBus.Objects.Bus#g:method:addMatch"), [addMatchAsync]("GI.IBus.Objects.Bus#g:method:addMatchAsync"), [addMatchAsyncFinish]("GI.IBus.Objects.Bus#g:method:addMatchAsyncFinish"), [bindProperty]("GI.GObject.Objects.Object#g:method:bindProperty"), [bindPropertyFull]("GI.GObject.Objects.Object#g:method:bindPropertyFull"), [createInputContext]("GI.IBus.Objects.Bus#g:method:createInputContext"), [createInputContextAsync]("GI.IBus.Objects.Bus#g:method:createInputContextAsync"), [createInputContextAsyncFinish]("GI.IBus.Objects.Bus#g:method:createInputContextAsyncFinish"), [currentInputContext]("GI.IBus.Objects.Bus#g:method:currentInputContext"), [currentInputContextAsync]("GI.IBus.Objects.Bus#g:method:currentInputContextAsync"), [currentInputContextAsyncFinish]("GI.IBus.Objects.Bus#g:method:currentInputContextAsyncFinish"), [destroy]("GI.IBus.Objects.Object#g:method:destroy"), [exit]("GI.IBus.Objects.Bus#g:method:exit"), [exitAsync]("GI.IBus.Objects.Bus#g:method:exitAsync"), [exitAsyncFinish]("GI.IBus.Objects.Bus#g:method:exitAsyncFinish"), [forceFloating]("GI.GObject.Objects.Object#g:method:forceFloating"), [freezeNotify]("GI.GObject.Objects.Object#g:method:freezeNotify"), [getv]("GI.GObject.Objects.Object#g:method:getv"), [hello]("GI.IBus.Objects.Bus#g:method:hello"), [isConnected]("GI.IBus.Objects.Bus#g:method:isConnected"), [isFloating]("GI.GObject.Objects.Object#g:method:isFloating"), [isGlobalEngineEnabled]("GI.IBus.Objects.Bus#g:method:isGlobalEngineEnabled"), [isGlobalEngineEnabledAsync]("GI.IBus.Objects.Bus#g:method:isGlobalEngineEnabledAsync"), [isGlobalEngineEnabledAsyncFinish]("GI.IBus.Objects.Bus#g:method:isGlobalEngineEnabledAsyncFinish"), [listActiveEngines]("GI.IBus.Objects.Bus#g:method:listActiveEngines"), [listActiveEnginesAsync]("GI.IBus.Objects.Bus#g:method:listActiveEnginesAsync"), [listActiveEnginesAsyncFinish]("GI.IBus.Objects.Bus#g:method:listActiveEnginesAsyncFinish"), [listEngines]("GI.IBus.Objects.Bus#g:method:listEngines"), [listEnginesAsync]("GI.IBus.Objects.Bus#g:method:listEnginesAsync"), [listEnginesAsyncFinish]("GI.IBus.Objects.Bus#g:method:listEnginesAsyncFinish"), [listNames]("GI.IBus.Objects.Bus#g:method:listNames"), [listQueuedOwners]("GI.IBus.Objects.Bus#g:method:listQueuedOwners"), [nameHasOwner]("GI.IBus.Objects.Bus#g:method:nameHasOwner"), [nameHasOwnerAsync]("GI.IBus.Objects.Bus#g:method:nameHasOwnerAsync"), [nameHasOwnerAsyncFinish]("GI.IBus.Objects.Bus#g:method:nameHasOwnerAsyncFinish"), [notify]("GI.GObject.Objects.Object#g:method:notify"), [notifyByPspec]("GI.GObject.Objects.Object#g:method:notifyByPspec"), [preloadEngines]("GI.IBus.Objects.Bus#g:method:preloadEngines"), [preloadEnginesAsync]("GI.IBus.Objects.Bus#g:method:preloadEnginesAsync"), [preloadEnginesAsyncFinish]("GI.IBus.Objects.Bus#g:method:preloadEnginesAsyncFinish"), [ref]("GI.GObject.Objects.Object#g:method:ref"), [refSink]("GI.GObject.Objects.Object#g:method:refSink"), [registerComponent]("GI.IBus.Objects.Bus#g:method:registerComponent"), [registerComponentAsync]("GI.IBus.Objects.Bus#g:method:registerComponentAsync"), [registerComponentAsyncFinish]("GI.IBus.Objects.Bus#g:method:registerComponentAsyncFinish"), [releaseName]("GI.IBus.Objects.Bus#g:method:releaseName"), [releaseNameAsync]("GI.IBus.Objects.Bus#g:method:releaseNameAsync"), [releaseNameAsyncFinish]("GI.IBus.Objects.Bus#g:method:releaseNameAsyncFinish"), [removeMatch]("GI.IBus.Objects.Bus#g:method:removeMatch"), [removeMatchAsync]("GI.IBus.Objects.Bus#g:method:removeMatchAsync"), [removeMatchAsyncFinish]("GI.IBus.Objects.Bus#g:method:removeMatchAsyncFinish"), [requestName]("GI.IBus.Objects.Bus#g:method:requestName"), [requestNameAsync]("GI.IBus.Objects.Bus#g:method:requestNameAsync"), [requestNameAsyncFinish]("GI.IBus.Objects.Bus#g:method:requestNameAsyncFinish"), [runDispose]("GI.GObject.Objects.Object#g:method:runDispose"), [stealData]("GI.GObject.Objects.Object#g:method:stealData"), [stealQdata]("GI.GObject.Objects.Object#g:method:stealQdata"), [thawNotify]("GI.GObject.Objects.Object#g:method:thawNotify"), [unref]("GI.GObject.Objects.Object#g:method:unref"), [watchClosure]("GI.GObject.Objects.Object#g:method:watchClosure").
-- 
-- ==== Getters
-- [getConfig]("GI.IBus.Objects.Bus#g:method:getConfig"), [getConnection]("GI.IBus.Objects.Bus#g:method:getConnection"), [getData]("GI.GObject.Objects.Object#g:method:getData"), [getEnginesByNames]("GI.IBus.Objects.Bus#g:method:getEnginesByNames"), [getGlobalEngine]("GI.IBus.Objects.Bus#g:method:getGlobalEngine"), [getGlobalEngineAsync]("GI.IBus.Objects.Bus#g:method:getGlobalEngineAsync"), [getGlobalEngineAsyncFinish]("GI.IBus.Objects.Bus#g:method:getGlobalEngineAsyncFinish"), [getIbusProperty]("GI.IBus.Objects.Bus#g:method:getIbusProperty"), [getIbusPropertyAsync]("GI.IBus.Objects.Bus#g:method:getIbusPropertyAsync"), [getIbusPropertyAsyncFinish]("GI.IBus.Objects.Bus#g:method:getIbusPropertyAsyncFinish"), [getNameOwner]("GI.IBus.Objects.Bus#g:method:getNameOwner"), [getNameOwnerAsync]("GI.IBus.Objects.Bus#g:method:getNameOwnerAsync"), [getNameOwnerAsyncFinish]("GI.IBus.Objects.Bus#g:method:getNameOwnerAsyncFinish"), [getProperty]("GI.GObject.Objects.Object#g:method:getProperty"), [getQdata]("GI.GObject.Objects.Object#g:method:getQdata"), [getServiceName]("GI.IBus.Objects.Bus#g:method:getServiceName"), [getUseGlobalEngine]("GI.IBus.Objects.Bus#g:method:getUseGlobalEngine"), [getUseGlobalEngineAsync]("GI.IBus.Objects.Bus#g:method:getUseGlobalEngineAsync"), [getUseGlobalEngineAsyncFinish]("GI.IBus.Objects.Bus#g:method:getUseGlobalEngineAsyncFinish"), [getUseSysLayout]("GI.IBus.Objects.Bus#g:method:getUseSysLayout"), [getUseSysLayoutAsync]("GI.IBus.Objects.Bus#g:method:getUseSysLayoutAsync"), [getUseSysLayoutAsyncFinish]("GI.IBus.Objects.Bus#g:method:getUseSysLayoutAsyncFinish").
-- 
-- ==== Setters
-- [setData]("GI.GObject.Objects.Object#g:method:setData"), [setDataFull]("GI.GObject.Objects.Object#g:method:setDataFull"), [setGlobalEngine]("GI.IBus.Objects.Bus#g:method:setGlobalEngine"), [setGlobalEngineAsync]("GI.IBus.Objects.Bus#g:method:setGlobalEngineAsync"), [setGlobalEngineAsyncFinish]("GI.IBus.Objects.Bus#g:method:setGlobalEngineAsyncFinish"), [setGlobalShortcutKeys]("GI.IBus.Objects.Bus#g:method:setGlobalShortcutKeys"), [setGlobalShortcutKeysAsync]("GI.IBus.Objects.Bus#g:method:setGlobalShortcutKeysAsync"), [setGlobalShortcutKeysAsyncFinish]("GI.IBus.Objects.Bus#g:method:setGlobalShortcutKeysAsyncFinish"), [setIbusProperty]("GI.IBus.Objects.Bus#g:method:setIbusProperty"), [setIbusPropertyAsync]("GI.IBus.Objects.Bus#g:method:setIbusPropertyAsync"), [setIbusPropertyAsyncFinish]("GI.IBus.Objects.Bus#g:method:setIbusPropertyAsyncFinish"), [setProperty]("GI.GObject.Objects.Object#g:method:setProperty"), [setWatchDbusSignal]("GI.IBus.Objects.Bus#g:method:setWatchDbusSignal"), [setWatchIbusSignal]("GI.IBus.Objects.Bus#g:method:setWatchIbusSignal").

#if defined(ENABLE_OVERLOADING)
    ResolveBusMethod                        ,
#endif

-- ** addMatch #method:addMatch#

#if defined(ENABLE_OVERLOADING)
    BusAddMatchMethodInfo                   ,
#endif
    busAddMatch                             ,


-- ** addMatchAsync #method:addMatchAsync#

#if defined(ENABLE_OVERLOADING)
    BusAddMatchAsyncMethodInfo              ,
#endif
    busAddMatchAsync                        ,


-- ** addMatchAsyncFinish #method:addMatchAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusAddMatchAsyncFinishMethodInfo        ,
#endif
    busAddMatchAsyncFinish                  ,


-- ** createInputContext #method:createInputContext#

#if defined(ENABLE_OVERLOADING)
    BusCreateInputContextMethodInfo         ,
#endif
    busCreateInputContext                   ,


-- ** createInputContextAsync #method:createInputContextAsync#

#if defined(ENABLE_OVERLOADING)
    BusCreateInputContextAsyncMethodInfo    ,
#endif
    busCreateInputContextAsync              ,


-- ** createInputContextAsyncFinish #method:createInputContextAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusCreateInputContextAsyncFinishMethodInfo,
#endif
    busCreateInputContextAsyncFinish        ,


-- ** currentInputContext #method:currentInputContext#

#if defined(ENABLE_OVERLOADING)
    BusCurrentInputContextMethodInfo        ,
#endif
    busCurrentInputContext                  ,


-- ** currentInputContextAsync #method:currentInputContextAsync#

#if defined(ENABLE_OVERLOADING)
    BusCurrentInputContextAsyncMethodInfo   ,
#endif
    busCurrentInputContextAsync             ,


-- ** currentInputContextAsyncFinish #method:currentInputContextAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusCurrentInputContextAsyncFinishMethodInfo,
#endif
    busCurrentInputContextAsyncFinish       ,


-- ** exit #method:exit#

#if defined(ENABLE_OVERLOADING)
    BusExitMethodInfo                       ,
#endif
    busExit                                 ,


-- ** exitAsync #method:exitAsync#

#if defined(ENABLE_OVERLOADING)
    BusExitAsyncMethodInfo                  ,
#endif
    busExitAsync                            ,


-- ** exitAsyncFinish #method:exitAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusExitAsyncFinishMethodInfo            ,
#endif
    busExitAsyncFinish                      ,


-- ** getConfig #method:getConfig#

#if defined(ENABLE_OVERLOADING)
    BusGetConfigMethodInfo                  ,
#endif
    busGetConfig                            ,


-- ** getConnection #method:getConnection#

#if defined(ENABLE_OVERLOADING)
    BusGetConnectionMethodInfo              ,
#endif
    busGetConnection                        ,


-- ** getEnginesByNames #method:getEnginesByNames#

#if defined(ENABLE_OVERLOADING)
    BusGetEnginesByNamesMethodInfo          ,
#endif
    busGetEnginesByNames                    ,


-- ** getGlobalEngine #method:getGlobalEngine#

#if defined(ENABLE_OVERLOADING)
    BusGetGlobalEngineMethodInfo            ,
#endif
    busGetGlobalEngine                      ,


-- ** getGlobalEngineAsync #method:getGlobalEngineAsync#

#if defined(ENABLE_OVERLOADING)
    BusGetGlobalEngineAsyncMethodInfo       ,
#endif
    busGetGlobalEngineAsync                 ,


-- ** getGlobalEngineAsyncFinish #method:getGlobalEngineAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusGetGlobalEngineAsyncFinishMethodInfo ,
#endif
    busGetGlobalEngineAsyncFinish           ,


-- ** getIbusProperty #method:getIbusProperty#

#if defined(ENABLE_OVERLOADING)
    BusGetIbusPropertyMethodInfo            ,
#endif
    busGetIbusProperty                      ,


-- ** getIbusPropertyAsync #method:getIbusPropertyAsync#

#if defined(ENABLE_OVERLOADING)
    BusGetIbusPropertyAsyncMethodInfo       ,
#endif
    busGetIbusPropertyAsync                 ,


-- ** getIbusPropertyAsyncFinish #method:getIbusPropertyAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusGetIbusPropertyAsyncFinishMethodInfo ,
#endif
    busGetIbusPropertyAsyncFinish           ,


-- ** getNameOwner #method:getNameOwner#

#if defined(ENABLE_OVERLOADING)
    BusGetNameOwnerMethodInfo               ,
#endif
    busGetNameOwner                         ,


-- ** getNameOwnerAsync #method:getNameOwnerAsync#

#if defined(ENABLE_OVERLOADING)
    BusGetNameOwnerAsyncMethodInfo          ,
#endif
    busGetNameOwnerAsync                    ,


-- ** getNameOwnerAsyncFinish #method:getNameOwnerAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusGetNameOwnerAsyncFinishMethodInfo    ,
#endif
    busGetNameOwnerAsyncFinish              ,


-- ** getServiceName #method:getServiceName#

#if defined(ENABLE_OVERLOADING)
    BusGetServiceNameMethodInfo             ,
#endif
    busGetServiceName                       ,


-- ** getUseGlobalEngine #method:getUseGlobalEngine#

#if defined(ENABLE_OVERLOADING)
    BusGetUseGlobalEngineMethodInfo         ,
#endif
    busGetUseGlobalEngine                   ,


-- ** getUseGlobalEngineAsync #method:getUseGlobalEngineAsync#

#if defined(ENABLE_OVERLOADING)
    BusGetUseGlobalEngineAsyncMethodInfo    ,
#endif
    busGetUseGlobalEngineAsync              ,


-- ** getUseGlobalEngineAsyncFinish #method:getUseGlobalEngineAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusGetUseGlobalEngineAsyncFinishMethodInfo,
#endif
    busGetUseGlobalEngineAsyncFinish        ,


-- ** getUseSysLayout #method:getUseSysLayout#

#if defined(ENABLE_OVERLOADING)
    BusGetUseSysLayoutMethodInfo            ,
#endif
    busGetUseSysLayout                      ,


-- ** getUseSysLayoutAsync #method:getUseSysLayoutAsync#

#if defined(ENABLE_OVERLOADING)
    BusGetUseSysLayoutAsyncMethodInfo       ,
#endif
    busGetUseSysLayoutAsync                 ,


-- ** getUseSysLayoutAsyncFinish #method:getUseSysLayoutAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusGetUseSysLayoutAsyncFinishMethodInfo ,
#endif
    busGetUseSysLayoutAsyncFinish           ,


-- ** hello #method:hello#

#if defined(ENABLE_OVERLOADING)
    BusHelloMethodInfo                      ,
#endif
    busHello                                ,


-- ** isConnected #method:isConnected#

#if defined(ENABLE_OVERLOADING)
    BusIsConnectedMethodInfo                ,
#endif
    busIsConnected                          ,


-- ** isGlobalEngineEnabled #method:isGlobalEngineEnabled#

#if defined(ENABLE_OVERLOADING)
    BusIsGlobalEngineEnabledMethodInfo      ,
#endif
    busIsGlobalEngineEnabled                ,


-- ** isGlobalEngineEnabledAsync #method:isGlobalEngineEnabledAsync#

#if defined(ENABLE_OVERLOADING)
    BusIsGlobalEngineEnabledAsyncMethodInfo ,
#endif
    busIsGlobalEngineEnabledAsync           ,


-- ** isGlobalEngineEnabledAsyncFinish #method:isGlobalEngineEnabledAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusIsGlobalEngineEnabledAsyncFinishMethodInfo,
#endif
    busIsGlobalEngineEnabledAsyncFinish     ,


-- ** listActiveEngines #method:listActiveEngines#

#if defined(ENABLE_OVERLOADING)
    BusListActiveEnginesMethodInfo          ,
#endif
    busListActiveEngines                    ,


-- ** listActiveEnginesAsync #method:listActiveEnginesAsync#

#if defined(ENABLE_OVERLOADING)
    BusListActiveEnginesAsyncMethodInfo     ,
#endif
    busListActiveEnginesAsync               ,


-- ** listActiveEnginesAsyncFinish #method:listActiveEnginesAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusListActiveEnginesAsyncFinishMethodInfo,
#endif
    busListActiveEnginesAsyncFinish         ,


-- ** listEngines #method:listEngines#

#if defined(ENABLE_OVERLOADING)
    BusListEnginesMethodInfo                ,
#endif
    busListEngines                          ,


-- ** listEnginesAsync #method:listEnginesAsync#

#if defined(ENABLE_OVERLOADING)
    BusListEnginesAsyncMethodInfo           ,
#endif
    busListEnginesAsync                     ,


-- ** listEnginesAsyncFinish #method:listEnginesAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusListEnginesAsyncFinishMethodInfo     ,
#endif
    busListEnginesAsyncFinish               ,


-- ** listNames #method:listNames#

#if defined(ENABLE_OVERLOADING)
    BusListNamesMethodInfo                  ,
#endif
    busListNames                            ,


-- ** listQueuedOwners #method:listQueuedOwners#

#if defined(ENABLE_OVERLOADING)
    BusListQueuedOwnersMethodInfo           ,
#endif
    busListQueuedOwners                     ,


-- ** nameHasOwner #method:nameHasOwner#

#if defined(ENABLE_OVERLOADING)
    BusNameHasOwnerMethodInfo               ,
#endif
    busNameHasOwner                         ,


-- ** nameHasOwnerAsync #method:nameHasOwnerAsync#

#if defined(ENABLE_OVERLOADING)
    BusNameHasOwnerAsyncMethodInfo          ,
#endif
    busNameHasOwnerAsync                    ,


-- ** nameHasOwnerAsyncFinish #method:nameHasOwnerAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusNameHasOwnerAsyncFinishMethodInfo    ,
#endif
    busNameHasOwnerAsyncFinish              ,


-- ** new #method:new#

    busNew                                  ,


-- ** newAsync #method:newAsync#

    busNewAsync                             ,


-- ** newAsyncClient #method:newAsyncClient#

    busNewAsyncClient                       ,


-- ** preloadEngines #method:preloadEngines#

#if defined(ENABLE_OVERLOADING)
    BusPreloadEnginesMethodInfo             ,
#endif
    busPreloadEngines                       ,


-- ** preloadEnginesAsync #method:preloadEnginesAsync#

#if defined(ENABLE_OVERLOADING)
    BusPreloadEnginesAsyncMethodInfo        ,
#endif
    busPreloadEnginesAsync                  ,


-- ** preloadEnginesAsyncFinish #method:preloadEnginesAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusPreloadEnginesAsyncFinishMethodInfo  ,
#endif
    busPreloadEnginesAsyncFinish            ,


-- ** registerComponent #method:registerComponent#

#if defined(ENABLE_OVERLOADING)
    BusRegisterComponentMethodInfo          ,
#endif
    busRegisterComponent                    ,


-- ** registerComponentAsync #method:registerComponentAsync#

#if defined(ENABLE_OVERLOADING)
    BusRegisterComponentAsyncMethodInfo     ,
#endif
    busRegisterComponentAsync               ,


-- ** registerComponentAsyncFinish #method:registerComponentAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusRegisterComponentAsyncFinishMethodInfo,
#endif
    busRegisterComponentAsyncFinish         ,


-- ** releaseName #method:releaseName#

#if defined(ENABLE_OVERLOADING)
    BusReleaseNameMethodInfo                ,
#endif
    busReleaseName                          ,


-- ** releaseNameAsync #method:releaseNameAsync#

#if defined(ENABLE_OVERLOADING)
    BusReleaseNameAsyncMethodInfo           ,
#endif
    busReleaseNameAsync                     ,


-- ** releaseNameAsyncFinish #method:releaseNameAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusReleaseNameAsyncFinishMethodInfo     ,
#endif
    busReleaseNameAsyncFinish               ,


-- ** removeMatch #method:removeMatch#

#if defined(ENABLE_OVERLOADING)
    BusRemoveMatchMethodInfo                ,
#endif
    busRemoveMatch                          ,


-- ** removeMatchAsync #method:removeMatchAsync#

#if defined(ENABLE_OVERLOADING)
    BusRemoveMatchAsyncMethodInfo           ,
#endif
    busRemoveMatchAsync                     ,


-- ** removeMatchAsyncFinish #method:removeMatchAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusRemoveMatchAsyncFinishMethodInfo     ,
#endif
    busRemoveMatchAsyncFinish               ,


-- ** requestName #method:requestName#

#if defined(ENABLE_OVERLOADING)
    BusRequestNameMethodInfo                ,
#endif
    busRequestName                          ,


-- ** requestNameAsync #method:requestNameAsync#

#if defined(ENABLE_OVERLOADING)
    BusRequestNameAsyncMethodInfo           ,
#endif
    busRequestNameAsync                     ,


-- ** requestNameAsyncFinish #method:requestNameAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusRequestNameAsyncFinishMethodInfo     ,
#endif
    busRequestNameAsyncFinish               ,


-- ** setGlobalEngine #method:setGlobalEngine#

#if defined(ENABLE_OVERLOADING)
    BusSetGlobalEngineMethodInfo            ,
#endif
    busSetGlobalEngine                      ,


-- ** setGlobalEngineAsync #method:setGlobalEngineAsync#

#if defined(ENABLE_OVERLOADING)
    BusSetGlobalEngineAsyncMethodInfo       ,
#endif
    busSetGlobalEngineAsync                 ,


-- ** setGlobalEngineAsyncFinish #method:setGlobalEngineAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusSetGlobalEngineAsyncFinishMethodInfo ,
#endif
    busSetGlobalEngineAsyncFinish           ,


-- ** setGlobalShortcutKeys #method:setGlobalShortcutKeys#

#if defined(ENABLE_OVERLOADING)
    BusSetGlobalShortcutKeysMethodInfo      ,
#endif
    busSetGlobalShortcutKeys                ,


-- ** setGlobalShortcutKeysAsync #method:setGlobalShortcutKeysAsync#

#if defined(ENABLE_OVERLOADING)
    BusSetGlobalShortcutKeysAsyncMethodInfo ,
#endif
    busSetGlobalShortcutKeysAsync           ,


-- ** setGlobalShortcutKeysAsyncFinish #method:setGlobalShortcutKeysAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusSetGlobalShortcutKeysAsyncFinishMethodInfo,
#endif
    busSetGlobalShortcutKeysAsyncFinish     ,


-- ** setIbusProperty #method:setIbusProperty#

#if defined(ENABLE_OVERLOADING)
    BusSetIbusPropertyMethodInfo            ,
#endif
    busSetIbusProperty                      ,


-- ** setIbusPropertyAsync #method:setIbusPropertyAsync#

#if defined(ENABLE_OVERLOADING)
    BusSetIbusPropertyAsyncMethodInfo       ,
#endif
    busSetIbusPropertyAsync                 ,


-- ** setIbusPropertyAsyncFinish #method:setIbusPropertyAsyncFinish#

#if defined(ENABLE_OVERLOADING)
    BusSetIbusPropertyAsyncFinishMethodInfo ,
#endif
    busSetIbusPropertyAsyncFinish           ,


-- ** setWatchDbusSignal #method:setWatchDbusSignal#

#if defined(ENABLE_OVERLOADING)
    BusSetWatchDbusSignalMethodInfo         ,
#endif
    busSetWatchDbusSignal                   ,


-- ** setWatchIbusSignal #method:setWatchIbusSignal#

#if defined(ENABLE_OVERLOADING)
    BusSetWatchIbusSignalMethodInfo         ,
#endif
    busSetWatchIbusSignal                   ,




 -- * Properties


-- ** clientOnly #attr:clientOnly#
-- | Whether the t'GI.IBus.Objects.Bus.Bus' object is for client use only.

#if defined(ENABLE_OVERLOADING)
    BusClientOnlyPropertyInfo               ,
#endif
#if defined(ENABLE_OVERLOADING)
    busClientOnly                           ,
#endif
    constructBusClientOnly                  ,
    getBusClientOnly                        ,


-- ** connectAsync #attr:connectAsync#
-- | Whether the t'GI.IBus.Objects.Bus.Bus' object should connect asynchronously to the bus.

#if defined(ENABLE_OVERLOADING)
    BusConnectAsyncPropertyInfo             ,
#endif
#if defined(ENABLE_OVERLOADING)
    busConnectAsync                         ,
#endif
    constructBusConnectAsync                ,
    getBusConnectAsync                      ,




 -- * Signals


-- ** connected #signal:connected#

    BusConnectedCallback                    ,
#if defined(ENABLE_OVERLOADING)
    BusConnectedSignalInfo                  ,
#endif
    afterBusConnected                       ,
    onBusConnected                          ,


-- ** disconnected #signal:disconnected#

    BusDisconnectedCallback                 ,
#if defined(ENABLE_OVERLOADING)
    BusDisconnectedSignalInfo               ,
#endif
    afterBusDisconnected                    ,
    onBusDisconnected                       ,


-- ** globalEngineChanged #signal:globalEngineChanged#

    BusGlobalEngineChangedCallback          ,
#if defined(ENABLE_OVERLOADING)
    BusGlobalEngineChangedSignalInfo        ,
#endif
    afterBusGlobalEngineChanged             ,
    onBusGlobalEngineChanged                ,


-- ** globalShortcutKeyResponded #signal:globalShortcutKeyResponded#

    BusGlobalShortcutKeyRespondedCallback   ,
#if defined(ENABLE_OVERLOADING)
    BusGlobalShortcutKeyRespondedSignalInfo ,
#endif
    afterBusGlobalShortcutKeyResponded      ,
    onBusGlobalShortcutKeyResponded         ,


-- ** nameOwnerChanged #signal:nameOwnerChanged#

    BusNameOwnerChangedCallback             ,
#if defined(ENABLE_OVERLOADING)
    BusNameOwnerChangedSignalInfo           ,
#endif
    afterBusNameOwnerChanged                ,
    onBusNameOwnerChanged                   ,




    ) 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 Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT

-- Workaround for https://gitlab.haskell.org/ghc/ghc/-/issues/23392
#if MIN_VERSION_base(4,18,0)
import qualified GI.GLib.Structs.String as GLib.String
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Interfaces.AsyncInitable as Gio.AsyncInitable
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Interfaces.DBusInterface as Gio.DBusInterface
import qualified GI.Gio.Interfaces.Initable as Gio.Initable
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection
import qualified GI.Gio.Objects.DBusProxy as Gio.DBusProxy
import {-# SOURCE #-} qualified GI.IBus.Enums as IBus.Enums
import {-# SOURCE #-} qualified GI.IBus.Objects.AttrList as IBus.AttrList
import {-# SOURCE #-} qualified GI.IBus.Objects.Attribute as IBus.Attribute
import {-# SOURCE #-} qualified GI.IBus.Objects.Component as IBus.Component
import {-# SOURCE #-} qualified GI.IBus.Objects.Config as IBus.Config
import {-# SOURCE #-} qualified GI.IBus.Objects.EngineDesc as IBus.EngineDesc
import {-# SOURCE #-} qualified GI.IBus.Objects.InputContext as IBus.InputContext
import {-# SOURCE #-} qualified GI.IBus.Objects.LookupTable as IBus.LookupTable
import {-# SOURCE #-} qualified GI.IBus.Objects.Object as IBus.Object
import {-# SOURCE #-} qualified GI.IBus.Objects.ObservedPath as IBus.ObservedPath
import {-# SOURCE #-} qualified GI.IBus.Objects.PropList as IBus.PropList
import {-# SOURCE #-} qualified GI.IBus.Objects.Property as IBus.Property
import {-# SOURCE #-} qualified GI.IBus.Objects.Proxy as IBus.Proxy
import {-# SOURCE #-} qualified GI.IBus.Objects.Serializable as IBus.Serializable
import {-# SOURCE #-} qualified GI.IBus.Objects.Text as IBus.Text
import {-# SOURCE #-} qualified GI.IBus.Structs.ProcessKeyEventData as IBus.ProcessKeyEventData
import {-# SOURCE #-} qualified GI.IBus.Structs.XML as IBus.XML

#else
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection
import {-# SOURCE #-} qualified GI.IBus.Enums as IBus.Enums
import {-# SOURCE #-} qualified GI.IBus.Objects.Component as IBus.Component
import {-# SOURCE #-} qualified GI.IBus.Objects.Config as IBus.Config
import {-# SOURCE #-} qualified GI.IBus.Objects.EngineDesc as IBus.EngineDesc
import {-# SOURCE #-} qualified GI.IBus.Objects.InputContext as IBus.InputContext
import {-# SOURCE #-} qualified GI.IBus.Objects.Object as IBus.Object
import {-# SOURCE #-} qualified GI.IBus.Structs.ProcessKeyEventData as IBus.ProcessKeyEventData

#endif

-- | Memory-managed wrapper type.
newtype Bus = Bus (SP.ManagedPtr Bus)
    deriving (Bus -> Bus -> Bool
(Bus -> Bus -> Bool) -> (Bus -> Bus -> Bool) -> Eq Bus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Bus -> Bus -> Bool
== :: Bus -> Bus -> Bool
$c/= :: Bus -> Bus -> Bool
/= :: Bus -> Bus -> Bool
Eq)

instance SP.ManagedPtrNewtype Bus where
    toManagedPtr :: Bus -> ManagedPtr Bus
toManagedPtr (Bus ManagedPtr Bus
p) = ManagedPtr Bus
p

foreign import ccall "ibus_bus_get_type"
    c_ibus_bus_get_type :: IO B.Types.GType

instance B.Types.TypedObject Bus where
    glibType :: IO GType
glibType = IO GType
c_ibus_bus_get_type

instance B.Types.GObject Bus

-- | Type class for types which can be safely cast to `Bus`, for instance with `toBus`.
class (SP.GObject o, O.IsDescendantOf Bus o) => IsBus o
instance (SP.GObject o, O.IsDescendantOf Bus o) => IsBus o

instance O.HasParentTypes Bus
type instance O.ParentTypes Bus = '[IBus.Object.Object, GObject.Object.Object]

-- | Cast to `Bus`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toBus :: (MIO.MonadIO m, IsBus o) => o -> m Bus
toBus :: forall (m :: * -> *) o. (MonadIO m, IsBus o) => o -> m Bus
toBus = IO Bus -> m Bus
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bus -> m Bus) -> (o -> IO Bus) -> o -> m Bus
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Bus -> Bus) -> o -> IO Bus
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
 ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Bus -> Bus
Bus

-- | Convert 'Bus' to and from 'Data.GI.Base.GValue.GValue'. See 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
instance B.GValue.IsGValue (Maybe Bus) where
    gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ibus_bus_get_type
    gvalueSet_ :: Ptr GValue -> Maybe Bus -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Bus
P.Nothing = Ptr GValue -> Ptr Bus -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Bus
forall a. Ptr a
FP.nullPtr :: FP.Ptr Bus)
    gvalueSet_ Ptr GValue
gv (P.Just Bus
obj) = Bus -> (Ptr Bus -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Bus
obj (Ptr GValue -> Ptr Bus -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
    gvalueGet_ :: Ptr GValue -> IO (Maybe Bus)
gvalueGet_ Ptr GValue
gv = do
        Ptr Bus
ptr <- Ptr GValue -> IO (Ptr Bus)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Bus)
        if Ptr Bus
ptr Ptr Bus -> Ptr Bus -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Bus
forall a. Ptr a
FP.nullPtr
        then Bus -> Maybe Bus
forall a. a -> Maybe a
P.Just (Bus -> Maybe Bus) -> IO Bus -> IO (Maybe Bus)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Bus -> Bus) -> Ptr Bus -> IO Bus
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Bus -> Bus
Bus Ptr Bus
ptr
        else Maybe Bus -> IO (Maybe Bus)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Bus
forall a. Maybe a
P.Nothing
        
    

#if defined(ENABLE_OVERLOADING)
type family ResolveBusMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
    ResolveBusMethod "addMatch" o = BusAddMatchMethodInfo
    ResolveBusMethod "addMatchAsync" o = BusAddMatchAsyncMethodInfo
    ResolveBusMethod "addMatchAsyncFinish" o = BusAddMatchAsyncFinishMethodInfo
    ResolveBusMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveBusMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveBusMethod "createInputContext" o = BusCreateInputContextMethodInfo
    ResolveBusMethod "createInputContextAsync" o = BusCreateInputContextAsyncMethodInfo
    ResolveBusMethod "createInputContextAsyncFinish" o = BusCreateInputContextAsyncFinishMethodInfo
    ResolveBusMethod "currentInputContext" o = BusCurrentInputContextMethodInfo
    ResolveBusMethod "currentInputContextAsync" o = BusCurrentInputContextAsyncMethodInfo
    ResolveBusMethod "currentInputContextAsyncFinish" o = BusCurrentInputContextAsyncFinishMethodInfo
    ResolveBusMethod "destroy" o = IBus.Object.ObjectDestroyMethodInfo
    ResolveBusMethod "exit" o = BusExitMethodInfo
    ResolveBusMethod "exitAsync" o = BusExitAsyncMethodInfo
    ResolveBusMethod "exitAsyncFinish" o = BusExitAsyncFinishMethodInfo
    ResolveBusMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveBusMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveBusMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
    ResolveBusMethod "hello" o = BusHelloMethodInfo
    ResolveBusMethod "isConnected" o = BusIsConnectedMethodInfo
    ResolveBusMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveBusMethod "isGlobalEngineEnabled" o = BusIsGlobalEngineEnabledMethodInfo
    ResolveBusMethod "isGlobalEngineEnabledAsync" o = BusIsGlobalEngineEnabledAsyncMethodInfo
    ResolveBusMethod "isGlobalEngineEnabledAsyncFinish" o = BusIsGlobalEngineEnabledAsyncFinishMethodInfo
    ResolveBusMethod "listActiveEngines" o = BusListActiveEnginesMethodInfo
    ResolveBusMethod "listActiveEnginesAsync" o = BusListActiveEnginesAsyncMethodInfo
    ResolveBusMethod "listActiveEnginesAsyncFinish" o = BusListActiveEnginesAsyncFinishMethodInfo
    ResolveBusMethod "listEngines" o = BusListEnginesMethodInfo
    ResolveBusMethod "listEnginesAsync" o = BusListEnginesAsyncMethodInfo
    ResolveBusMethod "listEnginesAsyncFinish" o = BusListEnginesAsyncFinishMethodInfo
    ResolveBusMethod "listNames" o = BusListNamesMethodInfo
    ResolveBusMethod "listQueuedOwners" o = BusListQueuedOwnersMethodInfo
    ResolveBusMethod "nameHasOwner" o = BusNameHasOwnerMethodInfo
    ResolveBusMethod "nameHasOwnerAsync" o = BusNameHasOwnerAsyncMethodInfo
    ResolveBusMethod "nameHasOwnerAsyncFinish" o = BusNameHasOwnerAsyncFinishMethodInfo
    ResolveBusMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveBusMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveBusMethod "preloadEngines" o = BusPreloadEnginesMethodInfo
    ResolveBusMethod "preloadEnginesAsync" o = BusPreloadEnginesAsyncMethodInfo
    ResolveBusMethod "preloadEnginesAsyncFinish" o = BusPreloadEnginesAsyncFinishMethodInfo
    ResolveBusMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveBusMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveBusMethod "registerComponent" o = BusRegisterComponentMethodInfo
    ResolveBusMethod "registerComponentAsync" o = BusRegisterComponentAsyncMethodInfo
    ResolveBusMethod "registerComponentAsyncFinish" o = BusRegisterComponentAsyncFinishMethodInfo
    ResolveBusMethod "releaseName" o = BusReleaseNameMethodInfo
    ResolveBusMethod "releaseNameAsync" o = BusReleaseNameAsyncMethodInfo
    ResolveBusMethod "releaseNameAsyncFinish" o = BusReleaseNameAsyncFinishMethodInfo
    ResolveBusMethod "removeMatch" o = BusRemoveMatchMethodInfo
    ResolveBusMethod "removeMatchAsync" o = BusRemoveMatchAsyncMethodInfo
    ResolveBusMethod "removeMatchAsyncFinish" o = BusRemoveMatchAsyncFinishMethodInfo
    ResolveBusMethod "requestName" o = BusRequestNameMethodInfo
    ResolveBusMethod "requestNameAsync" o = BusRequestNameAsyncMethodInfo
    ResolveBusMethod "requestNameAsyncFinish" o = BusRequestNameAsyncFinishMethodInfo
    ResolveBusMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveBusMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveBusMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveBusMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveBusMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveBusMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveBusMethod "getConfig" o = BusGetConfigMethodInfo
    ResolveBusMethod "getConnection" o = BusGetConnectionMethodInfo
    ResolveBusMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveBusMethod "getEnginesByNames" o = BusGetEnginesByNamesMethodInfo
    ResolveBusMethod "getGlobalEngine" o = BusGetGlobalEngineMethodInfo
    ResolveBusMethod "getGlobalEngineAsync" o = BusGetGlobalEngineAsyncMethodInfo
    ResolveBusMethod "getGlobalEngineAsyncFinish" o = BusGetGlobalEngineAsyncFinishMethodInfo
    ResolveBusMethod "getIbusProperty" o = BusGetIbusPropertyMethodInfo
    ResolveBusMethod "getIbusPropertyAsync" o = BusGetIbusPropertyAsyncMethodInfo
    ResolveBusMethod "getIbusPropertyAsyncFinish" o = BusGetIbusPropertyAsyncFinishMethodInfo
    ResolveBusMethod "getNameOwner" o = BusGetNameOwnerMethodInfo
    ResolveBusMethod "getNameOwnerAsync" o = BusGetNameOwnerAsyncMethodInfo
    ResolveBusMethod "getNameOwnerAsyncFinish" o = BusGetNameOwnerAsyncFinishMethodInfo
    ResolveBusMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveBusMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveBusMethod "getServiceName" o = BusGetServiceNameMethodInfo
    ResolveBusMethod "getUseGlobalEngine" o = BusGetUseGlobalEngineMethodInfo
    ResolveBusMethod "getUseGlobalEngineAsync" o = BusGetUseGlobalEngineAsyncMethodInfo
    ResolveBusMethod "getUseGlobalEngineAsyncFinish" o = BusGetUseGlobalEngineAsyncFinishMethodInfo
    ResolveBusMethod "getUseSysLayout" o = BusGetUseSysLayoutMethodInfo
    ResolveBusMethod "getUseSysLayoutAsync" o = BusGetUseSysLayoutAsyncMethodInfo
    ResolveBusMethod "getUseSysLayoutAsyncFinish" o = BusGetUseSysLayoutAsyncFinishMethodInfo
    ResolveBusMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveBusMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
    ResolveBusMethod "setGlobalEngine" o = BusSetGlobalEngineMethodInfo
    ResolveBusMethod "setGlobalEngineAsync" o = BusSetGlobalEngineAsyncMethodInfo
    ResolveBusMethod "setGlobalEngineAsyncFinish" o = BusSetGlobalEngineAsyncFinishMethodInfo
    ResolveBusMethod "setGlobalShortcutKeys" o = BusSetGlobalShortcutKeysMethodInfo
    ResolveBusMethod "setGlobalShortcutKeysAsync" o = BusSetGlobalShortcutKeysAsyncMethodInfo
    ResolveBusMethod "setGlobalShortcutKeysAsyncFinish" o = BusSetGlobalShortcutKeysAsyncFinishMethodInfo
    ResolveBusMethod "setIbusProperty" o = BusSetIbusPropertyMethodInfo
    ResolveBusMethod "setIbusPropertyAsync" o = BusSetIbusPropertyAsyncMethodInfo
    ResolveBusMethod "setIbusPropertyAsyncFinish" o = BusSetIbusPropertyAsyncFinishMethodInfo
    ResolveBusMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveBusMethod "setWatchDbusSignal" o = BusSetWatchDbusSignalMethodInfo
    ResolveBusMethod "setWatchIbusSignal" o = BusSetWatchIbusSignalMethodInfo
    ResolveBusMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveBusMethod t Bus, O.OverloadedMethod info Bus p) => OL.IsLabel t (Bus -> 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 ~ ResolveBusMethod t Bus, O.OverloadedMethod info Bus p, R.HasField t Bus p) => R.HasField t Bus p where
    getField = O.overloadedMethod @info

#endif

instance (info ~ ResolveBusMethod t Bus, O.OverloadedMethodInfo info Bus) => OL.IsLabel t (O.MethodProxy info Bus) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.MethodProxy
#else
    fromLabel _ = O.MethodProxy
#endif

#endif

-- signal Bus::connected
-- | Emitted when t'GI.IBus.Objects.Bus.Bus' is connected to ibus-daemon.
type BusConnectedCallback =
    IO ()

type C_BusConnectedCallback =
    Ptr Bus ->                              -- object
    Ptr () ->                               -- user_data
    IO ()

-- | Generate a function pointer callable from C code, from a `C_BusConnectedCallback`.
foreign import ccall "wrapper"
    mk_BusConnectedCallback :: C_BusConnectedCallback -> IO (FunPtr C_BusConnectedCallback)

wrap_BusConnectedCallback :: 
    GObject a => (a -> BusConnectedCallback) ->
    C_BusConnectedCallback
wrap_BusConnectedCallback :: forall a. GObject a => (a -> IO ()) -> C_BusConnectedCallback
wrap_BusConnectedCallback a -> IO ()
gi'cb Ptr Bus
gi'selfPtr Ptr ()
_ = do
    Ptr Bus -> (Bus -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Bus
gi'selfPtr ((Bus -> IO ()) -> IO ()) -> (Bus -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Bus
gi'self -> a -> IO ()
gi'cb (Bus -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Bus
gi'self) 


-- | Connect a signal handler for the [connected](#signal:connected) signal, to be run before the default handler.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Signals.on' bus #connected callback
-- @
-- 
-- 
onBusConnected :: (IsBus a, MonadIO m) => a -> ((?self :: a) => BusConnectedCallback) -> m SignalHandlerId
onBusConnected :: forall a (m :: * -> *).
(IsBus a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onBusConnected a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
    let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
    let wrapped' :: C_BusConnectedCallback
wrapped' = (a -> IO ()) -> C_BusConnectedCallback
forall a. GObject a => (a -> IO ()) -> C_BusConnectedCallback
wrap_BusConnectedCallback a -> IO ()
wrapped
    FunPtr C_BusConnectedCallback
wrapped'' <- C_BusConnectedCallback -> IO (FunPtr C_BusConnectedCallback)
mk_BusConnectedCallback C_BusConnectedCallback
wrapped'
    a
-> Text
-> FunPtr C_BusConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"connected" FunPtr C_BusConnectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing

-- | Connect a signal handler for the [connected](#signal:connected) signal, to be run after the default handler.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Signals.after' bus #connected callback
-- @
-- 
-- 
-- 
-- By default the object invoking the signal is not passed to the callback.
-- If you need to access it, you can use the implit @?self@ parameter.
-- Note that this requires activating the @ImplicitParams@ GHC extension.
-- 
afterBusConnected :: (IsBus a, MonadIO m) => a -> ((?self :: a) => BusConnectedCallback) -> m SignalHandlerId
afterBusConnected :: forall a (m :: * -> *).
(IsBus a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterBusConnected a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
    let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
    let wrapped' :: C_BusConnectedCallback
wrapped' = (a -> IO ()) -> C_BusConnectedCallback
forall a. GObject a => (a -> IO ()) -> C_BusConnectedCallback
wrap_BusConnectedCallback a -> IO ()
wrapped
    FunPtr C_BusConnectedCallback
wrapped'' <- C_BusConnectedCallback -> IO (FunPtr C_BusConnectedCallback)
mk_BusConnectedCallback C_BusConnectedCallback
wrapped'
    a
-> Text
-> FunPtr C_BusConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"connected" FunPtr C_BusConnectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing


#if defined(ENABLE_OVERLOADING)
data BusConnectedSignalInfo
instance SignalInfo BusConnectedSignalInfo where
    type HaskellCallbackType BusConnectedSignalInfo = BusConnectedCallback
    connectSignal obj cb connectMode detail = do
        let cb' = wrap_BusConnectedCallback cb
        cb'' <- mk_BusConnectedCallback cb'
        connectSignalFunPtr obj "connected" cb'' connectMode detail
    dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus::connected"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#g:signal:connected"})

#endif

-- signal Bus::disconnected
-- | Emitted when t'GI.IBus.Objects.Bus.Bus' is disconnected from ibus-daemon.
type BusDisconnectedCallback =
    IO ()

type C_BusDisconnectedCallback =
    Ptr Bus ->                              -- object
    Ptr () ->                               -- user_data
    IO ()

-- | Generate a function pointer callable from C code, from a `C_BusDisconnectedCallback`.
foreign import ccall "wrapper"
    mk_BusDisconnectedCallback :: C_BusDisconnectedCallback -> IO (FunPtr C_BusDisconnectedCallback)

wrap_BusDisconnectedCallback :: 
    GObject a => (a -> BusDisconnectedCallback) ->
    C_BusDisconnectedCallback
wrap_BusDisconnectedCallback :: forall a. GObject a => (a -> IO ()) -> C_BusConnectedCallback
wrap_BusDisconnectedCallback a -> IO ()
gi'cb Ptr Bus
gi'selfPtr Ptr ()
_ = do
    Ptr Bus -> (Bus -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Bus
gi'selfPtr ((Bus -> IO ()) -> IO ()) -> (Bus -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Bus
gi'self -> a -> IO ()
gi'cb (Bus -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Bus
gi'self) 


-- | Connect a signal handler for the [disconnected](#signal:disconnected) signal, to be run before the default handler.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Signals.on' bus #disconnected callback
-- @
-- 
-- 
onBusDisconnected :: (IsBus a, MonadIO m) => a -> ((?self :: a) => BusDisconnectedCallback) -> m SignalHandlerId
onBusDisconnected :: forall a (m :: * -> *).
(IsBus a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onBusDisconnected a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
    let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
    let wrapped' :: C_BusConnectedCallback
wrapped' = (a -> IO ()) -> C_BusConnectedCallback
forall a. GObject a => (a -> IO ()) -> C_BusConnectedCallback
wrap_BusDisconnectedCallback a -> IO ()
wrapped
    FunPtr C_BusConnectedCallback
wrapped'' <- C_BusConnectedCallback -> IO (FunPtr C_BusConnectedCallback)
mk_BusDisconnectedCallback C_BusConnectedCallback
wrapped'
    a
-> Text
-> FunPtr C_BusConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"disconnected" FunPtr C_BusConnectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing

-- | Connect a signal handler for the [disconnected](#signal:disconnected) signal, to be run after the default handler.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Signals.after' bus #disconnected callback
-- @
-- 
-- 
-- 
-- By default the object invoking the signal is not passed to the callback.
-- If you need to access it, you can use the implit @?self@ parameter.
-- Note that this requires activating the @ImplicitParams@ GHC extension.
-- 
afterBusDisconnected :: (IsBus a, MonadIO m) => a -> ((?self :: a) => BusDisconnectedCallback) -> m SignalHandlerId
afterBusDisconnected :: forall a (m :: * -> *).
(IsBus a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterBusDisconnected a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
    let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
    let wrapped' :: C_BusConnectedCallback
wrapped' = (a -> IO ()) -> C_BusConnectedCallback
forall a. GObject a => (a -> IO ()) -> C_BusConnectedCallback
wrap_BusDisconnectedCallback a -> IO ()
wrapped
    FunPtr C_BusConnectedCallback
wrapped'' <- C_BusConnectedCallback -> IO (FunPtr C_BusConnectedCallback)
mk_BusDisconnectedCallback C_BusConnectedCallback
wrapped'
    a
-> Text
-> FunPtr C_BusConnectedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"disconnected" FunPtr C_BusConnectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing


#if defined(ENABLE_OVERLOADING)
data BusDisconnectedSignalInfo
instance SignalInfo BusDisconnectedSignalInfo where
    type HaskellCallbackType BusDisconnectedSignalInfo = BusDisconnectedCallback
    connectSignal obj cb connectMode detail = do
        let cb' = wrap_BusDisconnectedCallback cb
        cb'' <- mk_BusDisconnectedCallback cb'
        connectSignalFunPtr obj "disconnected" cb'' connectMode detail
    dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus::disconnected"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#g:signal:disconnected"})

#endif

-- signal Bus::global-engine-changed
-- | Emitted when global engine is changed.
type BusGlobalEngineChangedCallback =
    T.Text
    -- ^ /@name@/: The name of the new global engine.
    -> IO ()

type C_BusGlobalEngineChangedCallback =
    Ptr Bus ->                              -- object
    CString ->
    Ptr () ->                               -- user_data
    IO ()

-- | Generate a function pointer callable from C code, from a `C_BusGlobalEngineChangedCallback`.
foreign import ccall "wrapper"
    mk_BusGlobalEngineChangedCallback :: C_BusGlobalEngineChangedCallback -> IO (FunPtr C_BusGlobalEngineChangedCallback)

wrap_BusGlobalEngineChangedCallback :: 
    GObject a => (a -> BusGlobalEngineChangedCallback) ->
    C_BusGlobalEngineChangedCallback
wrap_BusGlobalEngineChangedCallback :: forall a.
GObject a =>
(a -> BusGlobalEngineChangedCallback)
-> C_BusGlobalEngineChangedCallback
wrap_BusGlobalEngineChangedCallback a -> BusGlobalEngineChangedCallback
gi'cb Ptr Bus
gi'selfPtr CString
name Ptr ()
_ = do
    Text
name' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
name
    Ptr Bus -> (Bus -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Bus
gi'selfPtr ((Bus -> IO ()) -> IO ()) -> (Bus -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Bus
gi'self -> a -> BusGlobalEngineChangedCallback
gi'cb (Bus -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Bus
gi'self)  Text
name'


-- | Connect a signal handler for the [globalEngineChanged](#signal:globalEngineChanged) signal, to be run before the default handler.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Signals.on' bus #globalEngineChanged callback
-- @
-- 
-- 
onBusGlobalEngineChanged :: (IsBus a, MonadIO m) => a -> ((?self :: a) => BusGlobalEngineChangedCallback) -> m SignalHandlerId
onBusGlobalEngineChanged :: forall a (m :: * -> *).
(IsBus a, MonadIO m) =>
a
-> ((?self::a) => BusGlobalEngineChangedCallback)
-> m SignalHandlerId
onBusGlobalEngineChanged a
obj (?self::a) => BusGlobalEngineChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
    let wrapped :: a -> BusGlobalEngineChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => BusGlobalEngineChangedCallback
BusGlobalEngineChangedCallback
cb
    let wrapped' :: C_BusGlobalEngineChangedCallback
wrapped' = (a -> BusGlobalEngineChangedCallback)
-> C_BusGlobalEngineChangedCallback
forall a.
GObject a =>
(a -> BusGlobalEngineChangedCallback)
-> C_BusGlobalEngineChangedCallback
wrap_BusGlobalEngineChangedCallback a -> BusGlobalEngineChangedCallback
wrapped
    FunPtr C_BusGlobalEngineChangedCallback
wrapped'' <- C_BusGlobalEngineChangedCallback
-> IO (FunPtr C_BusGlobalEngineChangedCallback)
mk_BusGlobalEngineChangedCallback C_BusGlobalEngineChangedCallback
wrapped'
    a
-> Text
-> FunPtr C_BusGlobalEngineChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"global-engine-changed" FunPtr C_BusGlobalEngineChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing

-- | Connect a signal handler for the [globalEngineChanged](#signal:globalEngineChanged) signal, to be run after the default handler.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Signals.after' bus #globalEngineChanged callback
-- @
-- 
-- 
-- 
-- By default the object invoking the signal is not passed to the callback.
-- If you need to access it, you can use the implit @?self@ parameter.
-- Note that this requires activating the @ImplicitParams@ GHC extension.
-- 
afterBusGlobalEngineChanged :: (IsBus a, MonadIO m) => a -> ((?self :: a) => BusGlobalEngineChangedCallback) -> m SignalHandlerId
afterBusGlobalEngineChanged :: forall a (m :: * -> *).
(IsBus a, MonadIO m) =>
a
-> ((?self::a) => BusGlobalEngineChangedCallback)
-> m SignalHandlerId
afterBusGlobalEngineChanged a
obj (?self::a) => BusGlobalEngineChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
    let wrapped :: a -> BusGlobalEngineChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => BusGlobalEngineChangedCallback
BusGlobalEngineChangedCallback
cb
    let wrapped' :: C_BusGlobalEngineChangedCallback
wrapped' = (a -> BusGlobalEngineChangedCallback)
-> C_BusGlobalEngineChangedCallback
forall a.
GObject a =>
(a -> BusGlobalEngineChangedCallback)
-> C_BusGlobalEngineChangedCallback
wrap_BusGlobalEngineChangedCallback a -> BusGlobalEngineChangedCallback
wrapped
    FunPtr C_BusGlobalEngineChangedCallback
wrapped'' <- C_BusGlobalEngineChangedCallback
-> IO (FunPtr C_BusGlobalEngineChangedCallback)
mk_BusGlobalEngineChangedCallback C_BusGlobalEngineChangedCallback
wrapped'
    a
-> Text
-> FunPtr C_BusGlobalEngineChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"global-engine-changed" FunPtr C_BusGlobalEngineChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing


#if defined(ENABLE_OVERLOADING)
data BusGlobalEngineChangedSignalInfo
instance SignalInfo BusGlobalEngineChangedSignalInfo where
    type HaskellCallbackType BusGlobalEngineChangedSignalInfo = BusGlobalEngineChangedCallback
    connectSignal obj cb connectMode detail = do
        let cb' = wrap_BusGlobalEngineChangedCallback cb
        cb'' <- mk_BusGlobalEngineChangedCallback cb'
        connectSignalFunPtr obj "global-engine-changed" cb'' connectMode detail
    dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus::global-engine-changed"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#g:signal:globalEngineChanged"})

#endif

-- signal Bus::global-shortcut-key-responded
-- | Emitted when global shortcut key is responded.
type BusGlobalShortcutKeyRespondedCallback =
    Word8
    -- ^ /@type@/: The type of the global shortcut key.
    -> Bool
    -- ^ /@isPressed@/: 'P.True' if the key is pressed.
    -> Bool
    -- ^ /@isBackward@/: 'P.True' if the backward key is pressed.
    -> IO ()

type C_BusGlobalShortcutKeyRespondedCallback =
    Ptr Bus ->                              -- object
    Word8 ->
    CInt ->
    CInt ->
    Ptr () ->                               -- user_data
    IO ()

-- | Generate a function pointer callable from C code, from a `C_BusGlobalShortcutKeyRespondedCallback`.
foreign import ccall "wrapper"
    mk_BusGlobalShortcutKeyRespondedCallback :: C_BusGlobalShortcutKeyRespondedCallback -> IO (FunPtr C_BusGlobalShortcutKeyRespondedCallback)

wrap_BusGlobalShortcutKeyRespondedCallback :: 
    GObject a => (a -> BusGlobalShortcutKeyRespondedCallback) ->
    C_BusGlobalShortcutKeyRespondedCallback
wrap_BusGlobalShortcutKeyRespondedCallback :: forall a.
GObject a =>
(a -> BusGlobalShortcutKeyRespondedCallback)
-> C_BusGlobalShortcutKeyRespondedCallback
wrap_BusGlobalShortcutKeyRespondedCallback a -> BusGlobalShortcutKeyRespondedCallback
gi'cb Ptr Bus
gi'selfPtr Word8
type_ CInt
isPressed CInt
isBackward Ptr ()
_ = do
    let isPressed' :: Bool
isPressed' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
isPressed
    let isBackward' :: Bool
isBackward' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
isBackward
    Ptr Bus -> (Bus -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Bus
gi'selfPtr ((Bus -> IO ()) -> IO ()) -> (Bus -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Bus
gi'self -> a -> BusGlobalShortcutKeyRespondedCallback
gi'cb (Bus -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Bus
gi'self)  Word8
type_ Bool
isPressed' Bool
isBackward'


-- | Connect a signal handler for the [globalShortcutKeyResponded](#signal:globalShortcutKeyResponded) signal, to be run before the default handler.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Signals.on' bus #globalShortcutKeyResponded callback
-- @
-- 
-- 
onBusGlobalShortcutKeyResponded :: (IsBus a, MonadIO m) => a -> ((?self :: a) => BusGlobalShortcutKeyRespondedCallback) -> m SignalHandlerId
onBusGlobalShortcutKeyResponded :: forall a (m :: * -> *).
(IsBus a, MonadIO m) =>
a
-> ((?self::a) => BusGlobalShortcutKeyRespondedCallback)
-> m SignalHandlerId
onBusGlobalShortcutKeyResponded a
obj (?self::a) => BusGlobalShortcutKeyRespondedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
    let wrapped :: a -> BusGlobalShortcutKeyRespondedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => BusGlobalShortcutKeyRespondedCallback
BusGlobalShortcutKeyRespondedCallback
cb
    let wrapped' :: C_BusGlobalShortcutKeyRespondedCallback
wrapped' = (a -> BusGlobalShortcutKeyRespondedCallback)
-> C_BusGlobalShortcutKeyRespondedCallback
forall a.
GObject a =>
(a -> BusGlobalShortcutKeyRespondedCallback)
-> C_BusGlobalShortcutKeyRespondedCallback
wrap_BusGlobalShortcutKeyRespondedCallback a -> BusGlobalShortcutKeyRespondedCallback
wrapped
    FunPtr C_BusGlobalShortcutKeyRespondedCallback
wrapped'' <- C_BusGlobalShortcutKeyRespondedCallback
-> IO (FunPtr C_BusGlobalShortcutKeyRespondedCallback)
mk_BusGlobalShortcutKeyRespondedCallback C_BusGlobalShortcutKeyRespondedCallback
wrapped'
    a
-> Text
-> FunPtr C_BusGlobalShortcutKeyRespondedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"global-shortcut-key-responded" FunPtr C_BusGlobalShortcutKeyRespondedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing

-- | Connect a signal handler for the [globalShortcutKeyResponded](#signal:globalShortcutKeyResponded) signal, to be run after the default handler.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Signals.after' bus #globalShortcutKeyResponded callback
-- @
-- 
-- 
-- 
-- By default the object invoking the signal is not passed to the callback.
-- If you need to access it, you can use the implit @?self@ parameter.
-- Note that this requires activating the @ImplicitParams@ GHC extension.
-- 
afterBusGlobalShortcutKeyResponded :: (IsBus a, MonadIO m) => a -> ((?self :: a) => BusGlobalShortcutKeyRespondedCallback) -> m SignalHandlerId
afterBusGlobalShortcutKeyResponded :: forall a (m :: * -> *).
(IsBus a, MonadIO m) =>
a
-> ((?self::a) => BusGlobalShortcutKeyRespondedCallback)
-> m SignalHandlerId
afterBusGlobalShortcutKeyResponded a
obj (?self::a) => BusGlobalShortcutKeyRespondedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
    let wrapped :: a -> BusGlobalShortcutKeyRespondedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => BusGlobalShortcutKeyRespondedCallback
BusGlobalShortcutKeyRespondedCallback
cb
    let wrapped' :: C_BusGlobalShortcutKeyRespondedCallback
wrapped' = (a -> BusGlobalShortcutKeyRespondedCallback)
-> C_BusGlobalShortcutKeyRespondedCallback
forall a.
GObject a =>
(a -> BusGlobalShortcutKeyRespondedCallback)
-> C_BusGlobalShortcutKeyRespondedCallback
wrap_BusGlobalShortcutKeyRespondedCallback a -> BusGlobalShortcutKeyRespondedCallback
wrapped
    FunPtr C_BusGlobalShortcutKeyRespondedCallback
wrapped'' <- C_BusGlobalShortcutKeyRespondedCallback
-> IO (FunPtr C_BusGlobalShortcutKeyRespondedCallback)
mk_BusGlobalShortcutKeyRespondedCallback C_BusGlobalShortcutKeyRespondedCallback
wrapped'
    a
-> Text
-> FunPtr C_BusGlobalShortcutKeyRespondedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"global-shortcut-key-responded" FunPtr C_BusGlobalShortcutKeyRespondedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing


#if defined(ENABLE_OVERLOADING)
data BusGlobalShortcutKeyRespondedSignalInfo
instance SignalInfo BusGlobalShortcutKeyRespondedSignalInfo where
    type HaskellCallbackType BusGlobalShortcutKeyRespondedSignalInfo = BusGlobalShortcutKeyRespondedCallback
    connectSignal obj cb connectMode detail = do
        let cb' = wrap_BusGlobalShortcutKeyRespondedCallback cb
        cb'' <- mk_BusGlobalShortcutKeyRespondedCallback cb'
        connectSignalFunPtr obj "global-shortcut-key-responded" cb'' connectMode detail
    dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus::global-shortcut-key-responded"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#g:signal:globalShortcutKeyResponded"})

#endif

-- signal Bus::name-owner-changed
-- | Emitted when D-Bus name owner is changed.
type BusNameOwnerChangedCallback =
    T.Text
    -- ^ /@name@/: The name which ower is changed.
    -> T.Text
    -- ^ /@oldOwner@/: The unique bus name of the old owner.
    -> T.Text
    -- ^ /@newOwner@/: The unique bus name of the new owner.
    -> IO ()

type C_BusNameOwnerChangedCallback =
    Ptr Bus ->                              -- object
    CString ->
    CString ->
    CString ->
    Ptr () ->                               -- user_data
    IO ()

-- | Generate a function pointer callable from C code, from a `C_BusNameOwnerChangedCallback`.
foreign import ccall "wrapper"
    mk_BusNameOwnerChangedCallback :: C_BusNameOwnerChangedCallback -> IO (FunPtr C_BusNameOwnerChangedCallback)

wrap_BusNameOwnerChangedCallback :: 
    GObject a => (a -> BusNameOwnerChangedCallback) ->
    C_BusNameOwnerChangedCallback
wrap_BusNameOwnerChangedCallback :: forall a.
GObject a =>
(a -> BusNameOwnerChangedCallback) -> C_BusNameOwnerChangedCallback
wrap_BusNameOwnerChangedCallback a -> BusNameOwnerChangedCallback
gi'cb Ptr Bus
gi'selfPtr CString
name CString
oldOwner CString
newOwner Ptr ()
_ = do
    Text
name' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
name
    Text
oldOwner' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
oldOwner
    Text
newOwner' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
newOwner
    Ptr Bus -> (Bus -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Bus
gi'selfPtr ((Bus -> IO ()) -> IO ()) -> (Bus -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Bus
gi'self -> a -> BusNameOwnerChangedCallback
gi'cb (Bus -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Bus
gi'self)  Text
name' Text
oldOwner' Text
newOwner'


-- | Connect a signal handler for the [nameOwnerChanged](#signal:nameOwnerChanged) signal, to be run before the default handler.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Signals.on' bus #nameOwnerChanged callback
-- @
-- 
-- 
onBusNameOwnerChanged :: (IsBus a, MonadIO m) => a -> ((?self :: a) => BusNameOwnerChangedCallback) -> m SignalHandlerId
onBusNameOwnerChanged :: forall a (m :: * -> *).
(IsBus a, MonadIO m) =>
a
-> ((?self::a) => BusNameOwnerChangedCallback) -> m SignalHandlerId
onBusNameOwnerChanged a
obj (?self::a) => BusNameOwnerChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
    let wrapped :: a -> BusNameOwnerChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => BusNameOwnerChangedCallback
BusNameOwnerChangedCallback
cb
    let wrapped' :: C_BusNameOwnerChangedCallback
wrapped' = (a -> BusNameOwnerChangedCallback) -> C_BusNameOwnerChangedCallback
forall a.
GObject a =>
(a -> BusNameOwnerChangedCallback) -> C_BusNameOwnerChangedCallback
wrap_BusNameOwnerChangedCallback a -> BusNameOwnerChangedCallback
wrapped
    FunPtr C_BusNameOwnerChangedCallback
wrapped'' <- C_BusNameOwnerChangedCallback
-> IO (FunPtr C_BusNameOwnerChangedCallback)
mk_BusNameOwnerChangedCallback C_BusNameOwnerChangedCallback
wrapped'
    a
-> Text
-> FunPtr C_BusNameOwnerChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"name-owner-changed" FunPtr C_BusNameOwnerChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing

-- | Connect a signal handler for the [nameOwnerChanged](#signal:nameOwnerChanged) signal, to be run after the default handler.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Signals.after' bus #nameOwnerChanged callback
-- @
-- 
-- 
-- 
-- By default the object invoking the signal is not passed to the callback.
-- If you need to access it, you can use the implit @?self@ parameter.
-- Note that this requires activating the @ImplicitParams@ GHC extension.
-- 
afterBusNameOwnerChanged :: (IsBus a, MonadIO m) => a -> ((?self :: a) => BusNameOwnerChangedCallback) -> m SignalHandlerId
afterBusNameOwnerChanged :: forall a (m :: * -> *).
(IsBus a, MonadIO m) =>
a
-> ((?self::a) => BusNameOwnerChangedCallback) -> m SignalHandlerId
afterBusNameOwnerChanged a
obj (?self::a) => BusNameOwnerChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
    let wrapped :: a -> BusNameOwnerChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => BusNameOwnerChangedCallback
BusNameOwnerChangedCallback
cb
    let wrapped' :: C_BusNameOwnerChangedCallback
wrapped' = (a -> BusNameOwnerChangedCallback) -> C_BusNameOwnerChangedCallback
forall a.
GObject a =>
(a -> BusNameOwnerChangedCallback) -> C_BusNameOwnerChangedCallback
wrap_BusNameOwnerChangedCallback a -> BusNameOwnerChangedCallback
wrapped
    FunPtr C_BusNameOwnerChangedCallback
wrapped'' <- C_BusNameOwnerChangedCallback
-> IO (FunPtr C_BusNameOwnerChangedCallback)
mk_BusNameOwnerChangedCallback C_BusNameOwnerChangedCallback
wrapped'
    a
-> Text
-> FunPtr C_BusNameOwnerChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"name-owner-changed" FunPtr C_BusNameOwnerChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing


#if defined(ENABLE_OVERLOADING)
data BusNameOwnerChangedSignalInfo
instance SignalInfo BusNameOwnerChangedSignalInfo where
    type HaskellCallbackType BusNameOwnerChangedSignalInfo = BusNameOwnerChangedCallback
    connectSignal obj cb connectMode detail = do
        let cb' = wrap_BusNameOwnerChangedCallback cb
        cb'' <- mk_BusNameOwnerChangedCallback cb'
        connectSignalFunPtr obj "name-owner-changed" cb'' connectMode detail
    dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus::name-owner-changed"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#g:signal:nameOwnerChanged"})

#endif

-- VVV Prop "client-only"
   -- Type: TBasicType TBoolean
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
   -- Nullable: (Nothing,Nothing)

-- | Get the value of the “@client-only@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' bus #clientOnly
-- @
getBusClientOnly :: (MonadIO m, IsBus o) => o -> m Bool
getBusClientOnly :: forall (m :: * -> *) o. (MonadIO m, IsBus o) => o -> m Bool
getBusClientOnly o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"client-only"

-- | Construct a `GValueConstruct` with valid value for the “@client-only@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
constructBusClientOnly :: (IsBus o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBusClientOnly :: forall o (m :: * -> *).
(IsBus o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBusClientOnly Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
    IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"client-only" Bool
val

#if defined(ENABLE_OVERLOADING)
data BusClientOnlyPropertyInfo
instance AttrInfo BusClientOnlyPropertyInfo where
    type AttrAllowedOps BusClientOnlyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint BusClientOnlyPropertyInfo = IsBus
    type AttrSetTypeConstraint BusClientOnlyPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint BusClientOnlyPropertyInfo = (~) Bool
    type AttrTransferType BusClientOnlyPropertyInfo = Bool
    type AttrGetType BusClientOnlyPropertyInfo = Bool
    type AttrLabel BusClientOnlyPropertyInfo = "client-only"
    type AttrOrigin BusClientOnlyPropertyInfo = Bus
    attrGet = getBusClientOnly
    attrSet = undefined
    attrTransfer _ v = do
        return v
    attrConstruct = constructBusClientOnly
    attrClear = undefined
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.clientOnly"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#g:attr:clientOnly"
        })
#endif

-- VVV Prop "connect-async"
   -- Type: TBasicType TBoolean
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
   -- Nullable: (Nothing,Nothing)

-- | Get the value of the “@connect-async@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' bus #connectAsync
-- @
getBusConnectAsync :: (MonadIO m, IsBus o) => o -> m Bool
getBusConnectAsync :: forall (m :: * -> *) o. (MonadIO m, IsBus o) => o -> m Bool
getBusConnectAsync o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"connect-async"

-- | Construct a `GValueConstruct` with valid value for the “@connect-async@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
constructBusConnectAsync :: (IsBus o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBusConnectAsync :: forall o (m :: * -> *).
(IsBus o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBusConnectAsync Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
    IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"connect-async" Bool
val

#if defined(ENABLE_OVERLOADING)
data BusConnectAsyncPropertyInfo
instance AttrInfo BusConnectAsyncPropertyInfo where
    type AttrAllowedOps BusConnectAsyncPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint BusConnectAsyncPropertyInfo = IsBus
    type AttrSetTypeConstraint BusConnectAsyncPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint BusConnectAsyncPropertyInfo = (~) Bool
    type AttrTransferType BusConnectAsyncPropertyInfo = Bool
    type AttrGetType BusConnectAsyncPropertyInfo = Bool
    type AttrLabel BusConnectAsyncPropertyInfo = "connect-async"
    type AttrOrigin BusConnectAsyncPropertyInfo = Bus
    attrGet = getBusConnectAsync
    attrSet = undefined
    attrTransfer _ v = do
        return v
    attrConstruct = constructBusConnectAsync
    attrClear = undefined
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.connectAsync"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#g:attr:connectAsync"
        })
#endif

#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Bus
type instance O.AttributeList Bus = BusAttributeList
type BusAttributeList = ('[ '("clientOnly", BusClientOnlyPropertyInfo), '("connectAsync", BusConnectAsyncPropertyInfo)] :: [(Symbol, DK.Type)])
#endif

#if defined(ENABLE_OVERLOADING)
busClientOnly :: AttrLabelProxy "clientOnly"
busClientOnly = AttrLabelProxy

busConnectAsync :: AttrLabelProxy "connectAsync"
busConnectAsync = AttrLabelProxy

#endif

#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Bus = BusSignalList
type BusSignalList = ('[ '("connected", BusConnectedSignalInfo), '("destroy", IBus.Object.ObjectDestroySignalInfo), '("disconnected", BusDisconnectedSignalInfo), '("globalEngineChanged", BusGlobalEngineChangedSignalInfo), '("globalShortcutKeyResponded", BusGlobalShortcutKeyRespondedSignalInfo), '("nameOwnerChanged", BusNameOwnerChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])

#endif

-- method Bus::new
-- method type : Constructor
-- Args: []
-- Lengths: []
-- returnType: Just (TInterface Name { namespace = "IBus" , name = "Bus" })
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_new" ibus_bus_new :: 
    IO (Ptr Bus)

-- | Creates a new t'GI.IBus.Objects.Bus.Bus' instance.
busNew ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    m Bus
    -- ^ __Returns:__ A newly allocated t'GI.IBus.Objects.Bus.Bus' instance, and the instance is not
    -- floating.
busNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Bus
busNew  = IO Bus -> m Bus
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bus -> m Bus) -> IO Bus -> m Bus
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
result <- IO (Ptr Bus)
ibus_bus_new
    Text -> Ptr Bus -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busNew" Ptr Bus
result
    Bus
result' <- ((ManagedPtr Bus -> Bus) -> Ptr Bus -> IO Bus
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Bus -> Bus
Bus) Ptr Bus
result
    Bus -> IO Bus
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bus
result'

#if defined(ENABLE_OVERLOADING)
#endif

-- method Bus::new_async
-- method type : Constructor
-- Args: []
-- Lengths: []
-- returnType: Just (TInterface Name { namespace = "IBus" , name = "Bus" })
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_new_async" ibus_bus_new_async :: 
    IO (Ptr Bus)

-- | Creates a new t'GI.IBus.Objects.Bus.Bus' instance. The instance will asynchronously connect
-- to the IBus daemon.
busNewAsync ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    m Bus
    -- ^ __Returns:__ A newly allocated t'GI.IBus.Objects.Bus.Bus' instance, and the instance is not
    -- floating.
busNewAsync :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Bus
busNewAsync  = IO Bus -> m Bus
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bus -> m Bus) -> IO Bus -> m Bus
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
result <- IO (Ptr Bus)
ibus_bus_new_async
    Text -> Ptr Bus -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busNewAsync" Ptr Bus
result
    Bus
result' <- ((ManagedPtr Bus -> Bus) -> Ptr Bus -> IO Bus
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Bus -> Bus
Bus) Ptr Bus
result
    Bus -> IO Bus
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bus
result'

#if defined(ENABLE_OVERLOADING)
#endif

-- method Bus::new_async_client
-- method type : Constructor
-- Args: []
-- Lengths: []
-- returnType: Just (TInterface Name { namespace = "IBus" , name = "Bus" })
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_new_async_client" ibus_bus_new_async_client :: 
    IO (Ptr Bus)

-- | Creates a new t'GI.IBus.Objects.Bus.Bus' instance for client use only. It will possibly
-- be limited in what it can do.
-- 
-- The instance will asynchronously connect to the IBus daemon.
busNewAsyncClient ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    m Bus
    -- ^ __Returns:__ A newly allocated t'GI.IBus.Objects.Bus.Bus' instance, and the instance is not
    -- floating.
busNewAsyncClient :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Bus
busNewAsyncClient  = IO Bus -> m Bus
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bus -> m Bus) -> IO Bus -> m Bus
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
result <- IO (Ptr Bus)
ibus_bus_new_async_client
    Text -> Ptr Bus -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busNewAsyncClient" Ptr Bus
result
    Bus
result' <- ((ManagedPtr Bus -> Bus) -> Ptr Bus -> IO Bus
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Bus -> Bus
Bus) Ptr Bus
result
    Bus -> IO Bus
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bus
result'

#if defined(ENABLE_OVERLOADING)
#endif

-- method Bus::add_match
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "rule"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Match rule." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_add_match" ibus_bus_add_match :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- rule : TBasicType TUTF8
    IO CInt

-- | Add a match rule to an t'GI.IBus.Objects.Bus.Bus' synchronously.
busAddMatch ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@rule@/: Match rule.
    -> m Bool
    -- ^ __Returns:__ 'P.True' if the rule is added. 'P.False' otherwise.
busAddMatch :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Text -> m Bool
busAddMatch a
bus Text
rule = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
rule' <- Text -> IO CString
textToCString Text
rule
    CInt
result <- Ptr Bus -> CString -> IO CInt
ibus_bus_add_match Ptr Bus
bus' CString
rule'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
rule'
    Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BusAddMatchMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsBus a) => O.OverloadedMethod BusAddMatchMethodInfo a signature where
    overloadedMethod = busAddMatch

instance O.OverloadedMethodInfo BusAddMatchMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busAddMatch",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busAddMatch"
        })


#endif

-- method Bus::add_match_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "rule"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Match rule." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 5
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_add_match_async" ibus_bus_add_match_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- rule : TBasicType TUTF8
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Add a match rule to an t'GI.IBus.Objects.Bus.Bus' asynchronously.
busAddMatchAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@rule@/: Match rule.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busAddMatchAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Text -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busAddMatchAsync a
bus Text
rule Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
rule' <- Text -> IO CString
textToCString Text
rule
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> CString
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_add_match_async Ptr Bus
bus' CString
rule' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
rule'
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusAddMatchAsyncMethodInfo
instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusAddMatchAsyncMethodInfo a signature where
    overloadedMethod = busAddMatchAsync

instance O.OverloadedMethodInfo BusAddMatchAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busAddMatchAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busAddMatchAsync"
        })


#endif

-- method Bus::add_match_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_add_match_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_add_match_async_finish" ibus_bus_add_match_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busAddMatchAsync'.
busAddMatchAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busAddMatchAsync'.
    -> m ()
    -- ^ /(Can throw 'Data.GI.Base.GError.GError')/
busAddMatchAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m ()
busAddMatchAsyncFinish a
bus b
res = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
        CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
ibus_bus_add_match_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusAddMatchAsyncFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusAddMatchAsyncFinishMethodInfo a signature where
    overloadedMethod = busAddMatchAsyncFinish

instance O.OverloadedMethodInfo BusAddMatchAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busAddMatchAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busAddMatchAsyncFinish"
        })


#endif

-- method Bus::create_input_context
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "client_name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Name of client." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface Name { namespace = "IBus" , name = "InputContext" })
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_create_input_context" ibus_bus_create_input_context :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- client_name : TBasicType TUTF8
    IO (Ptr IBus.InputContext.InputContext)

-- | Create an input context for client synchronously.
busCreateInputContext ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@clientName@/: Name of client.
    -> m IBus.InputContext.InputContext
    -- ^ __Returns:__ A newly allocated t'GI.IBus.Objects.InputContext.InputContext' if the
    --      \"CreateInputContext\" call is succeeded, 'P.Nothing' otherwise.
busCreateInputContext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Text -> m InputContext
busCreateInputContext a
bus Text
clientName = IO InputContext -> m InputContext
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InputContext -> m InputContext)
-> IO InputContext -> m InputContext
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
clientName' <- Text -> IO CString
textToCString Text
clientName
    Ptr InputContext
result <- Ptr Bus -> CString -> IO (Ptr InputContext)
ibus_bus_create_input_context Ptr Bus
bus' CString
clientName'
    Text -> Ptr InputContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busCreateInputContext" Ptr InputContext
result
    InputContext
result' <- ((ManagedPtr InputContext -> InputContext)
-> Ptr InputContext -> IO InputContext
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr InputContext -> InputContext
IBus.InputContext.InputContext) Ptr InputContext
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
clientName'
    InputContext -> IO InputContext
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return InputContext
result'

#if defined(ENABLE_OVERLOADING)
data BusCreateInputContextMethodInfo
instance (signature ~ (T.Text -> m IBus.InputContext.InputContext), MonadIO m, IsBus a) => O.OverloadedMethod BusCreateInputContextMethodInfo a signature where
    overloadedMethod = busCreateInputContext

instance O.OverloadedMethodInfo BusCreateInputContextMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busCreateInputContext",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busCreateInputContext"
        })


#endif

-- method Bus::create_input_context_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "client_name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Name of client." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied.\n     It should not be %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 5
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_create_input_context_async" ibus_bus_create_input_context_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- client_name : TBasicType TUTF8
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Create an input context for client asynchronously.
busCreateInputContextAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@clientName@/: Name of client.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied.
    --      It should not be 'P.Nothing'.
    -> m ()
busCreateInputContextAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Text -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busCreateInputContextAsync a
bus Text
clientName Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
clientName' <- Text -> IO CString
textToCString Text
clientName
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> CString
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_create_input_context_async Ptr Bus
bus' CString
clientName' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
clientName'
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusCreateInputContextAsyncMethodInfo
instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusCreateInputContextAsyncMethodInfo a signature where
    overloadedMethod = busCreateInputContextAsync

instance O.OverloadedMethodInfo BusCreateInputContextAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busCreateInputContextAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busCreateInputContextAsync"
        })


#endif

-- method Bus::create_input_context_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_create_input_context_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface Name { namespace = "IBus" , name = "InputContext" })
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_create_input_context_async_finish" ibus_bus_create_input_context_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO (Ptr IBus.InputContext.InputContext)

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busCreateInputContextAsync'.
busCreateInputContextAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busCreateInputContextAsync'.
    -> m IBus.InputContext.InputContext
    -- ^ __Returns:__ A newly allocated t'GI.IBus.Objects.InputContext.InputContext' if the
    --      \"CreateInputContext\" call is succeeded, 'P.Nothing' otherwise. /(Can throw 'Data.GI.Base.GError.GError')/
busCreateInputContextAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m InputContext
busCreateInputContextAsyncFinish a
bus b
res = IO InputContext -> m InputContext
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InputContext -> m InputContext)
-> IO InputContext -> m InputContext
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO InputContext -> IO () -> IO InputContext
forall a b. IO a -> IO b -> IO a
onException (do
        Ptr InputContext
result <- (Ptr (Ptr GError) -> IO (Ptr InputContext))
-> IO (Ptr InputContext)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr InputContext))
 -> IO (Ptr InputContext))
-> (Ptr (Ptr GError) -> IO (Ptr InputContext))
-> IO (Ptr InputContext)
forall a b. (a -> b) -> a -> b
$ Ptr Bus
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr InputContext)
ibus_bus_create_input_context_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        Text -> Ptr InputContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busCreateInputContextAsyncFinish" Ptr InputContext
result
        InputContext
result' <- ((ManagedPtr InputContext -> InputContext)
-> Ptr InputContext -> IO InputContext
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr InputContext -> InputContext
IBus.InputContext.InputContext) Ptr InputContext
result
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        InputContext -> IO InputContext
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return InputContext
result'
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusCreateInputContextAsyncFinishMethodInfo
instance (signature ~ (b -> m IBus.InputContext.InputContext), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusCreateInputContextAsyncFinishMethodInfo a signature where
    overloadedMethod = busCreateInputContextAsyncFinish

instance O.OverloadedMethodInfo BusCreateInputContextAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busCreateInputContextAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busCreateInputContextAsyncFinish"
        })


#endif

-- method Bus::current_input_context
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_current_input_context" ibus_bus_current_input_context :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO CString

-- | Get the current focused input context synchronously.
busCurrentInputContext ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m T.Text
    -- ^ __Returns:__ Name of the currently focused t'GI.IBus.Objects.InputContext.InputContext' if the
    --          \"CurrentInputContext\" call succeeded, 'P.Nothing' otherwise. The return
    --          value must be freed with 'GI.GLib.Functions.free'.
busCurrentInputContext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m Text
busCurrentInputContext a
bus = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
result <- Ptr Bus -> IO CString
ibus_bus_current_input_context Ptr Bus
bus'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busCurrentInputContext" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(ENABLE_OVERLOADING)
data BusCurrentInputContextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsBus a) => O.OverloadedMethod BusCurrentInputContextMethodInfo a signature where
    overloadedMethod = busCurrentInputContext

instance O.OverloadedMethodInfo BusCurrentInputContextMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busCurrentInputContext",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busCurrentInputContext"
        })


#endif

-- method Bus::current_input_context_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 4
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_current_input_context_async" ibus_bus_current_input_context_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Get the current focused input context asynchronously.
busCurrentInputContextAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busCurrentInputContextAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busCurrentInputContextAsync a
bus Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_current_input_context_async Ptr Bus
bus' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusCurrentInputContextAsyncMethodInfo
instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusCurrentInputContextAsyncMethodInfo a signature where
    overloadedMethod = busCurrentInputContextAsync

instance O.OverloadedMethodInfo BusCurrentInputContextAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busCurrentInputContextAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busCurrentInputContextAsync"
        })


#endif

-- method Bus::current_input_context_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_current_input_context_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUTF8)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_current_input_context_async_finish" ibus_bus_current_input_context_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CString

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busCurrentInputContextAsync'.
busCurrentInputContextAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busCurrentInputContextAsync'.
    -> m T.Text
    -- ^ __Returns:__ Name of the currently focused IBusInputContext if the
    --          \"CurrentInputContext\" call succeeded, 'P.Nothing' otherwise. The return
    --          value must be freed with 'GI.GLib.Functions.free'. /(Can throw 'Data.GI.Base.GError.GError')/
busCurrentInputContextAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m Text
busCurrentInputContextAsyncFinish a
bus b
res = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO Text -> IO () -> IO Text
forall a b. IO a -> IO b -> IO a
onException (do
        CString
result <- (Ptr (Ptr GError) -> IO CString) -> IO CString
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CString) -> IO CString)
-> (Ptr (Ptr GError) -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CString
ibus_bus_current_input_context_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busCurrentInputContextAsyncFinish" CString
result
        Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
        CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusCurrentInputContextAsyncFinishMethodInfo
instance (signature ~ (b -> m T.Text), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusCurrentInputContextAsyncFinishMethodInfo a signature where
    overloadedMethod = busCurrentInputContextAsyncFinish

instance O.OverloadedMethodInfo BusCurrentInputContextAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busCurrentInputContextAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busCurrentInputContextAsyncFinish"
        })


#endif

-- method Bus::exit
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "restart"
--           , argType = TBasicType TBoolean
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Whether restarting the ibus."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_exit" ibus_bus_exit :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CInt ->                                 -- restart : TBasicType TBoolean
    IO CInt

-- | Exit or restart ibus-daemon synchronously.
busExit ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> Bool
    -- ^ /@restart@/: Whether restarting the ibus.
    -> m Bool
    -- ^ __Returns:__ 'P.True' if the \"Exit\" call is successful, 'P.False' otherwise.
busExit :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Bool -> m Bool
busExit a
bus Bool
restart = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    let restart' :: CInt
restart' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
restart
    CInt
result <- Ptr Bus -> CInt -> IO CInt
ibus_bus_exit Ptr Bus
bus' CInt
restart'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BusExitMethodInfo
instance (signature ~ (Bool -> m Bool), MonadIO m, IsBus a) => O.OverloadedMethod BusExitMethodInfo a signature where
    overloadedMethod = busExit

instance O.OverloadedMethodInfo BusExitMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busExit",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busExit"
        })


#endif

-- method Bus::exit_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "restart"
--           , argType = TBasicType TBoolean
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Whether restarting the ibus."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 5
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_exit_async" ibus_bus_exit_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CInt ->                                 -- restart : TBasicType TBoolean
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Exit or restart ibus-daemon asynchronously.
busExitAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> Bool
    -- ^ /@restart@/: Whether restarting the ibus.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busExitAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Bool -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busExitAsync a
bus Bool
restart Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    let restart' :: CInt
restart' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
restart
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> CInt
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_exit_async Ptr Bus
bus' CInt
restart' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusExitAsyncMethodInfo
instance (signature ~ (Bool -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusExitAsyncMethodInfo a signature where
    overloadedMethod = busExitAsync

instance O.OverloadedMethodInfo BusExitAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busExitAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busExitAsync"
        })


#endif

-- method Bus::exit_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_exit_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_exit_async_finish" ibus_bus_exit_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busExitAsync'.
busExitAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busExitAsync'.
    -> m ()
    -- ^ /(Can throw 'Data.GI.Base.GError.GError')/
busExitAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m ()
busExitAsyncFinish a
bus b
res = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
        CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
ibus_bus_exit_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusExitAsyncFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusExitAsyncFinishMethodInfo a signature where
    overloadedMethod = busExitAsyncFinish

instance O.OverloadedMethodInfo BusExitAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busExitAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busExitAsyncFinish"
        })


#endif

-- method Bus::get_config
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TInterface Name { namespace = "IBus" , name = "Config" })
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_config" ibus_bus_get_config :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO (Ptr IBus.Config.Config)

-- | Get the config instance from t'GI.IBus.Objects.Bus.Bus'.
busGetConfig ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m IBus.Config.Config
    -- ^ __Returns:__ An t'GI.IBus.Objects.Config.Config' object which is configurable with
    -- /@bus@/.
busGetConfig :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m Config
busGetConfig a
bus = IO Config -> m Config
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Config -> m Config) -> IO Config -> m Config
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr Config
result <- Ptr Bus -> IO (Ptr Config)
ibus_bus_get_config Ptr Bus
bus'
    Text -> Ptr Config -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busGetConfig" Ptr Config
result
    Config
result' <- ((ManagedPtr Config -> Config) -> Ptr Config -> IO Config
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Config -> Config
IBus.Config.Config) Ptr Config
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Config -> IO Config
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Config
result'

#if defined(ENABLE_OVERLOADING)
data BusGetConfigMethodInfo
instance (signature ~ (m IBus.Config.Config), MonadIO m, IsBus a) => O.OverloadedMethod BusGetConfigMethodInfo a signature where
    overloadedMethod = busGetConfig

instance O.OverloadedMethodInfo BusGetConfigMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetConfig",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetConfig"
        })


#endif

-- method Bus::get_connection
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface Name { namespace = "Gio" , name = "DBusConnection" })
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_connection" ibus_bus_get_connection :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO (Ptr Gio.DBusConnection.DBusConnection)

-- | Gets a t'GI.Gio.Objects.DBusConnection.DBusConnection' of an t'GI.IBus.Objects.Bus.Bus' instance.
busGetConnection ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m Gio.DBusConnection.DBusConnection
    -- ^ __Returns:__ A t'GI.Gio.Objects.DBusConnection.DBusConnection' of an t'GI.IBus.Objects.Bus.Bus' instance.
busGetConnection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m DBusConnection
busGetConnection a
bus = IO DBusConnection -> m DBusConnection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DBusConnection -> m DBusConnection)
-> IO DBusConnection -> m DBusConnection
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr DBusConnection
result <- Ptr Bus -> IO (Ptr DBusConnection)
ibus_bus_get_connection Ptr Bus
bus'
    Text -> Ptr DBusConnection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busGetConnection" Ptr DBusConnection
result
    DBusConnection
result' <- ((ManagedPtr DBusConnection -> DBusConnection)
-> Ptr DBusConnection -> IO DBusConnection
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
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    DBusConnection -> IO DBusConnection
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DBusConnection
result'

#if defined(ENABLE_OVERLOADING)
data BusGetConnectionMethodInfo
instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsBus a) => O.OverloadedMethod BusGetConnectionMethodInfo a signature where
    overloadedMethod = busGetConnection

instance O.OverloadedMethodInfo BusGetConnectionMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetConnection",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetConnection"
        })


#endif

-- method Bus::get_engines_by_names
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "names"
--           , argType = TCArray True (-1) (-1) (TBasicType TUTF8)
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A %NULL-terminated array of names."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TCArray
--                  True
--                  (-1)
--                  (-1)
--                  (TInterface Name { namespace = "IBus" , name = "EngineDesc" }))
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_engines_by_names" ibus_bus_get_engines_by_names :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr CString ->                          -- names : TCArray True (-1) (-1) (TBasicType TUTF8)
    IO (Ptr (Ptr IBus.EngineDesc.EngineDesc))

-- | Get engines by given names synchronously. If some engine names do not exist,
-- this function will simply ignore them, and return rest of engines.
-- TODO(penghuang): add asynchronous version
busGetEnginesByNames ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> [T.Text]
    -- ^ /@names@/: A 'P.Nothing'-terminated array of names.
    -> m [IBus.EngineDesc.EngineDesc]
    -- ^ __Returns:__ 
    --         A 'P.Nothing'-terminated array of engines.
busGetEnginesByNames :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> [Text] -> m [EngineDesc]
busGetEnginesByNames a
bus [Text]
names = IO [EngineDesc] -> m [EngineDesc]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [EngineDesc] -> m [EngineDesc])
-> IO [EngineDesc] -> m [EngineDesc]
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr CString
names' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
names
    Ptr (Ptr EngineDesc)
result <- Ptr Bus -> Ptr CString -> IO (Ptr (Ptr EngineDesc))
ibus_bus_get_engines_by_names Ptr Bus
bus' Ptr CString
names'
    Text -> Ptr (Ptr EngineDesc) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busGetEnginesByNames" Ptr (Ptr EngineDesc)
result
    [Ptr EngineDesc]
result' <- Ptr (Ptr EngineDesc) -> IO [Ptr EngineDesc]
forall a. Ptr (Ptr a) -> IO [Ptr a]
unpackZeroTerminatedPtrArray Ptr (Ptr EngineDesc)
result
    [EngineDesc]
result'' <- (Ptr EngineDesc -> IO EngineDesc)
-> [Ptr EngineDesc] -> IO [EngineDesc]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr EngineDesc -> EngineDesc)
-> Ptr EngineDesc -> IO EngineDesc
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr EngineDesc -> EngineDesc
IBus.EngineDesc.EngineDesc) [Ptr EngineDesc]
result'
    Ptr (Ptr EngineDesc) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr EngineDesc)
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    (CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
names'
    Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
names'
    [EngineDesc] -> IO [EngineDesc]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [EngineDesc]
result''

#if defined(ENABLE_OVERLOADING)
data BusGetEnginesByNamesMethodInfo
instance (signature ~ ([T.Text] -> m [IBus.EngineDesc.EngineDesc]), MonadIO m, IsBus a) => O.OverloadedMethod BusGetEnginesByNamesMethodInfo a signature where
    overloadedMethod = busGetEnginesByNames

instance O.OverloadedMethodInfo BusGetEnginesByNamesMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetEnginesByNames",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetEnginesByNames"
        })


#endif

-- method Bus::get_global_engine
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TInterface Name { namespace = "IBus" , name = "EngineDesc" })
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_global_engine" ibus_bus_get_global_engine :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO (Ptr IBus.EngineDesc.EngineDesc)

-- | Get the description of current global engine synchronously.
busGetGlobalEngine ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m IBus.EngineDesc.EngineDesc
    -- ^ __Returns:__ The description of current global engine,
    -- or 'P.Nothing' if there is no global engine.
busGetGlobalEngine :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m EngineDesc
busGetGlobalEngine a
bus = IO EngineDesc -> m EngineDesc
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EngineDesc -> m EngineDesc) -> IO EngineDesc -> m EngineDesc
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr EngineDesc
result <- Ptr Bus -> IO (Ptr EngineDesc)
ibus_bus_get_global_engine Ptr Bus
bus'
    Text -> Ptr EngineDesc -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busGetGlobalEngine" Ptr EngineDesc
result
    EngineDesc
result' <- ((ManagedPtr EngineDesc -> EngineDesc)
-> Ptr EngineDesc -> IO EngineDesc
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr EngineDesc -> EngineDesc
IBus.EngineDesc.EngineDesc) Ptr EngineDesc
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    EngineDesc -> IO EngineDesc
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return EngineDesc
result'

#if defined(ENABLE_OVERLOADING)
data BusGetGlobalEngineMethodInfo
instance (signature ~ (m IBus.EngineDesc.EngineDesc), MonadIO m, IsBus a) => O.OverloadedMethod BusGetGlobalEngineMethodInfo a signature where
    overloadedMethod = busGetGlobalEngine

instance O.OverloadedMethodInfo BusGetGlobalEngineMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetGlobalEngine",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetGlobalEngine"
        })


#endif

-- method Bus::get_global_engine_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied or %NULL\n     if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 4
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_global_engine_async" ibus_bus_get_global_engine_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Get the description of current global engine asynchronously.
busGetGlobalEngineAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied or 'P.Nothing'
    --      if you don\'t care about the result of the method invocation.
    -> m ()
busGetGlobalEngineAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busGetGlobalEngineAsync a
bus Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_get_global_engine_async Ptr Bus
bus' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusGetGlobalEngineAsyncMethodInfo
instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusGetGlobalEngineAsyncMethodInfo a signature where
    overloadedMethod = busGetGlobalEngineAsync

instance O.OverloadedMethodInfo BusGetGlobalEngineAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetGlobalEngineAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetGlobalEngineAsync"
        })


#endif

-- method Bus::get_global_engine_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_get_global_engine_async_finish()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TInterface Name { namespace = "IBus" , name = "EngineDesc" })
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_get_global_engine_async_finish" ibus_bus_get_global_engine_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO (Ptr IBus.EngineDesc.EngineDesc)

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busGetGlobalEngineAsyncFinish'.
busGetGlobalEngineAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busGetGlobalEngineAsyncFinish'.
    -> m IBus.EngineDesc.EngineDesc
    -- ^ __Returns:__ The description of current global engine,
    -- or 'P.Nothing' if there is no global engine. /(Can throw 'Data.GI.Base.GError.GError')/
busGetGlobalEngineAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m EngineDesc
busGetGlobalEngineAsyncFinish a
bus b
res = IO EngineDesc -> m EngineDesc
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EngineDesc -> m EngineDesc) -> IO EngineDesc -> m EngineDesc
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO EngineDesc -> IO () -> IO EngineDesc
forall a b. IO a -> IO b -> IO a
onException (do
        Ptr EngineDesc
result <- (Ptr (Ptr GError) -> IO (Ptr EngineDesc)) -> IO (Ptr EngineDesc)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr EngineDesc)) -> IO (Ptr EngineDesc))
-> (Ptr (Ptr GError) -> IO (Ptr EngineDesc)) -> IO (Ptr EngineDesc)
forall a b. (a -> b) -> a -> b
$ Ptr Bus
-> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr EngineDesc)
ibus_bus_get_global_engine_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        Text -> Ptr EngineDesc -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busGetGlobalEngineAsyncFinish" Ptr EngineDesc
result
        EngineDesc
result' <- ((ManagedPtr EngineDesc -> EngineDesc)
-> Ptr EngineDesc -> IO EngineDesc
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr EngineDesc -> EngineDesc
IBus.EngineDesc.EngineDesc) Ptr EngineDesc
result
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        EngineDesc -> IO EngineDesc
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return EngineDesc
result'
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusGetGlobalEngineAsyncFinishMethodInfo
instance (signature ~ (b -> m IBus.EngineDesc.EngineDesc), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusGetGlobalEngineAsyncFinishMethodInfo a signature where
    overloadedMethod = busGetGlobalEngineAsyncFinish

instance O.OverloadedMethodInfo BusGetGlobalEngineAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetGlobalEngineAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetGlobalEngineAsyncFinish"
        })


#endif

-- method Bus::get_ibus_property
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "property_name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "property name in org.freedesktop.DBus.Properties.Get"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just TVariant
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_ibus_property" ibus_bus_get_ibus_property :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- property_name : TBasicType TUTF8
    IO (Ptr GVariant)

-- | Get org.freedesktop.DBus.Properties.
busGetIbusProperty ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@propertyName@/: property name in org.freedesktop.DBus.Properties.Get
    -> m GVariant
    -- ^ __Returns:__ The value in org.freedesktop.DBus.Properties.Get
    --           The returned value must be freed with 'GI.GLib.Structs.Variant.variantUnref'.
busGetIbusProperty :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Text -> m GVariant
busGetIbusProperty a
bus Text
propertyName = IO GVariant -> m GVariant
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m GVariant
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
    Ptr GVariant
result <- Ptr Bus -> CString -> IO (Ptr GVariant)
ibus_bus_get_ibus_property Ptr Bus
bus' CString
propertyName'
    Text -> Ptr GVariant -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busGetIbusProperty" Ptr GVariant
result
    GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
    GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'

#if defined(ENABLE_OVERLOADING)
data BusGetIbusPropertyMethodInfo
instance (signature ~ (T.Text -> m GVariant), MonadIO m, IsBus a) => O.OverloadedMethod BusGetIbusPropertyMethodInfo a signature where
    overloadedMethod = busGetIbusProperty

instance O.OverloadedMethodInfo BusGetIbusPropertyMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetIbusProperty",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetIbusProperty"
        })


#endif

-- method Bus::get_ibus_property_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "property_name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "property name in org.freedesktop.DBus.Properties.Get"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 5
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_ibus_property_async" ibus_bus_get_ibus_property_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- property_name : TBasicType TUTF8
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Get org.freedesktop.DBus.Properties asynchronously.
busGetIbusPropertyAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@propertyName@/: property name in org.freedesktop.DBus.Properties.Get
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busGetIbusPropertyAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Text -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busGetIbusPropertyAsync a
bus Text
propertyName Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> CString
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_get_ibus_property_async Ptr Bus
bus' CString
propertyName' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusGetIbusPropertyAsyncMethodInfo
instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusGetIbusPropertyAsyncMethodInfo a signature where
    overloadedMethod = busGetIbusPropertyAsync

instance O.OverloadedMethodInfo BusGetIbusPropertyAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetIbusPropertyAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetIbusPropertyAsync"
        })


#endif

-- method Bus::get_ibus_property_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_get_ibus_property_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just TVariant
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_get_ibus_property_async_finish" ibus_bus_get_ibus_property_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO (Ptr GVariant)

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busGetIbusPropertyAsync'.
busGetIbusPropertyAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busGetIbusPropertyAsync'.
    -> m GVariant
    -- ^ __Returns:__ The value in org.freedesktop.DBus.Properties.Get
    --           The returned value must be freed with 'GI.GLib.Structs.Variant.variantUnref'. /(Can throw 'Data.GI.Base.GError.GError')/
busGetIbusPropertyAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m GVariant
busGetIbusPropertyAsyncFinish a
bus b
res = IO GVariant -> m GVariant
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m GVariant
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO GVariant -> IO () -> IO GVariant
forall a b. IO a -> IO b -> IO a
onException (do
        Ptr GVariant
result <- (Ptr (Ptr GError) -> IO (Ptr GVariant)) -> IO (Ptr GVariant)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr GVariant)) -> IO (Ptr GVariant))
-> (Ptr (Ptr GError) -> IO (Ptr GVariant)) -> IO (Ptr GVariant)
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO (Ptr GVariant)
ibus_bus_get_ibus_property_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        Text -> Ptr GVariant -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busGetIbusPropertyAsyncFinish" Ptr GVariant
result
        GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusGetIbusPropertyAsyncFinishMethodInfo
instance (signature ~ (b -> m GVariant), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusGetIbusPropertyAsyncFinishMethodInfo a signature where
    overloadedMethod = busGetIbusPropertyAsyncFinish

instance O.OverloadedMethodInfo BusGetIbusPropertyAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetIbusPropertyAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetIbusPropertyAsyncFinish"
        })


#endif

-- method Bus::get_name_owner
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Name." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_name_owner" ibus_bus_get_name_owner :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- name : TBasicType TUTF8
    IO CString

-- | Return the name owner synchronously.
busGetNameOwner ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@name@/: Name.
    -> m T.Text
    -- ^ __Returns:__ Owner of the name. The returned value must be freed with 'GI.GLib.Functions.free'.
busGetNameOwner :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Text -> m Text
busGetNameOwner a
bus Text
name = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
name' <- Text -> IO CString
textToCString Text
name
    CString
result <- Ptr Bus -> CString -> IO CString
ibus_bus_get_name_owner Ptr Bus
bus' CString
name'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busGetNameOwner" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
    Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(ENABLE_OVERLOADING)
data BusGetNameOwnerMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsBus a) => O.OverloadedMethod BusGetNameOwnerMethodInfo a signature where
    overloadedMethod = busGetNameOwner

instance O.OverloadedMethodInfo BusGetNameOwnerMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetNameOwner",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetNameOwner"
        })


#endif

-- method Bus::get_name_owner_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Name." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 5
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_name_owner_async" ibus_bus_get_name_owner_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- name : TBasicType TUTF8
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Return the name owner asynchronously.
busGetNameOwnerAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@name@/: Name.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busGetNameOwnerAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Text -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busGetNameOwnerAsync a
bus Text
name Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
name' <- Text -> IO CString
textToCString Text
name
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> CString
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_get_name_owner_async Ptr Bus
bus' CString
name' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusGetNameOwnerAsyncMethodInfo
instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusGetNameOwnerAsyncMethodInfo a signature where
    overloadedMethod = busGetNameOwnerAsync

instance O.OverloadedMethodInfo BusGetNameOwnerAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetNameOwnerAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetNameOwnerAsync"
        })


#endif

-- method Bus::get_name_owner_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_get_name_owner_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUTF8)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_get_name_owner_async_finish" ibus_bus_get_name_owner_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CString

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busGetNameOwnerAsync'.
busGetNameOwnerAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busGetNameOwnerAsync'.
    -> m T.Text
    -- ^ __Returns:__ Owner of the name. The returned value must be freed with 'GI.GLib.Functions.free'. /(Can throw 'Data.GI.Base.GError.GError')/
busGetNameOwnerAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m Text
busGetNameOwnerAsyncFinish a
bus b
res = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO Text -> IO () -> IO Text
forall a b. IO a -> IO b -> IO a
onException (do
        CString
result <- (Ptr (Ptr GError) -> IO CString) -> IO CString
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CString) -> IO CString)
-> (Ptr (Ptr GError) -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CString
ibus_bus_get_name_owner_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busGetNameOwnerAsyncFinish" CString
result
        Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
        CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusGetNameOwnerAsyncFinishMethodInfo
instance (signature ~ (b -> m T.Text), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusGetNameOwnerAsyncFinishMethodInfo a signature where
    overloadedMethod = busGetNameOwnerAsyncFinish

instance O.OverloadedMethodInfo BusGetNameOwnerAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetNameOwnerAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetNameOwnerAsyncFinish"
        })


#endif

-- method Bus::get_service_name
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_service_name" ibus_bus_get_service_name :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO CString

-- | Return the main service name to use for calls on the ibus connection.
busGetServiceName ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m T.Text
    -- ^ __Returns:__ at dbus name.
busGetServiceName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m Text
busGetServiceName a
bus = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
result <- Ptr Bus -> IO CString
ibus_bus_get_service_name Ptr Bus
bus'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busGetServiceName" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(ENABLE_OVERLOADING)
data BusGetServiceNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsBus a) => O.OverloadedMethod BusGetServiceNameMethodInfo a signature where
    overloadedMethod = busGetServiceName

instance O.OverloadedMethodInfo BusGetServiceNameMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetServiceName",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetServiceName"
        })


#endif

-- method Bus::get_use_global_engine
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_use_global_engine" ibus_bus_get_use_global_engine :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO CInt

{-# DEPRECATED busGetUseGlobalEngine ["(Since version 1.5.3)","Currently global engine is always used."] #-}
-- | Check if the bus\'s \"use_global_engine\" option is enabled or not
-- synchronously.
busGetUseGlobalEngine ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m Bool
    -- ^ __Returns:__ TRUE if \"use_global_engine\" option is enabled.
busGetUseGlobalEngine :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m Bool
busGetUseGlobalEngine a
bus = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CInt
result <- Ptr Bus -> IO CInt
ibus_bus_get_use_global_engine Ptr Bus
bus'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BusGetUseGlobalEngineMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBus a) => O.OverloadedMethod BusGetUseGlobalEngineMethodInfo a signature where
    overloadedMethod = busGetUseGlobalEngine

instance O.OverloadedMethodInfo BusGetUseGlobalEngineMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetUseGlobalEngine",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetUseGlobalEngine"
        })


#endif

-- method Bus::get_use_global_engine_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 4
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_use_global_engine_async" ibus_bus_get_use_global_engine_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

{-# DEPRECATED busGetUseGlobalEngineAsync ["(Since version 1.5.3)","Currently global engine is always used."] #-}
-- | Check if the bus\'s \"use_global_engine\" option is enabled or not asynchronously.
busGetUseGlobalEngineAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busGetUseGlobalEngineAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busGetUseGlobalEngineAsync a
bus Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_get_use_global_engine_async Ptr Bus
bus' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusGetUseGlobalEngineAsyncMethodInfo
instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusGetUseGlobalEngineAsyncMethodInfo a signature where
    overloadedMethod = busGetUseGlobalEngineAsync

instance O.OverloadedMethodInfo BusGetUseGlobalEngineAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetUseGlobalEngineAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetUseGlobalEngineAsync"
        })


#endif

-- method Bus::get_use_global_engine_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_get_use_global_engine_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_get_use_global_engine_async_finish" ibus_bus_get_use_global_engine_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

{-# DEPRECATED busGetUseGlobalEngineAsyncFinish ["(Since version 1.5.3)","Currently global engine is always used."] #-}
-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busGetUseGlobalEngineAsync'.
busGetUseGlobalEngineAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busGetUseGlobalEngineAsync'.
    -> m ()
    -- ^ /(Can throw 'Data.GI.Base.GError.GError')/
busGetUseGlobalEngineAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m ()
busGetUseGlobalEngineAsyncFinish a
bus b
res = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
        CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
ibus_bus_get_use_global_engine_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusGetUseGlobalEngineAsyncFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusGetUseGlobalEngineAsyncFinishMethodInfo a signature where
    overloadedMethod = busGetUseGlobalEngineAsyncFinish

instance O.OverloadedMethodInfo BusGetUseGlobalEngineAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetUseGlobalEngineAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetUseGlobalEngineAsyncFinish"
        })


#endif

-- method Bus::get_use_sys_layout
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_use_sys_layout" ibus_bus_get_use_sys_layout :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO CInt

{-# DEPRECATED busGetUseSysLayout ["(Since version 1.5.3)","Read dconf value","\\/desktop\\/ibus\\/general\\/use_system_keyboard_layout instead."] #-}
-- | Check if the bus\'s \"use_sys_layout\" option is enabled or not synchronously.
busGetUseSysLayout ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m Bool
    -- ^ __Returns:__ 'P.True' if \"use_sys_layout\" option is enabled.
busGetUseSysLayout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m Bool
busGetUseSysLayout a
bus = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CInt
result <- Ptr Bus -> IO CInt
ibus_bus_get_use_sys_layout Ptr Bus
bus'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BusGetUseSysLayoutMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBus a) => O.OverloadedMethod BusGetUseSysLayoutMethodInfo a signature where
    overloadedMethod = busGetUseSysLayout

instance O.OverloadedMethodInfo BusGetUseSysLayoutMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetUseSysLayout",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetUseSysLayout"
        })


#endif

-- method Bus::get_use_sys_layout_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 4
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_get_use_sys_layout_async" ibus_bus_get_use_sys_layout_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

{-# DEPRECATED busGetUseSysLayoutAsync ["(Since version 1.5.3)","Read dconf value","\\/desktop\\/ibus\\/general\\/use_system_keyboard_layout instead."] #-}
-- | Check if the bus\'s \"use_sys_layout\" option is enabled or not asynchronously.
busGetUseSysLayoutAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busGetUseSysLayoutAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busGetUseSysLayoutAsync a
bus Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_get_use_sys_layout_async Ptr Bus
bus' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusGetUseSysLayoutAsyncMethodInfo
instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusGetUseSysLayoutAsyncMethodInfo a signature where
    overloadedMethod = busGetUseSysLayoutAsync

instance O.OverloadedMethodInfo BusGetUseSysLayoutAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetUseSysLayoutAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetUseSysLayoutAsync"
        })


#endif

-- method Bus::get_use_sys_layout_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_get_use_sys_layout_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_get_use_sys_layout_async_finish" ibus_bus_get_use_sys_layout_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

{-# DEPRECATED busGetUseSysLayoutAsyncFinish ["(Since version 1.5.3)","Read dconf value","\\/desktop\\/ibus\\/general\\/use_system_keyboard_layout instead."] #-}
-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busGetUseSysLayoutAsync'.
busGetUseSysLayoutAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busGetUseSysLayoutAsync'.
    -> m ()
    -- ^ /(Can throw 'Data.GI.Base.GError.GError')/
busGetUseSysLayoutAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m ()
busGetUseSysLayoutAsyncFinish a
bus b
res = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
        CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
ibus_bus_get_use_sys_layout_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusGetUseSysLayoutAsyncFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusGetUseSysLayoutAsyncFinishMethodInfo a signature where
    overloadedMethod = busGetUseSysLayoutAsyncFinish

instance O.OverloadedMethodInfo BusGetUseSysLayoutAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busGetUseSysLayoutAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busGetUseSysLayoutAsyncFinish"
        })


#endif

-- method Bus::hello
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_hello" ibus_bus_hello :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO CString

-- | This function sends a \"HELLO\" message to DBus daemon,
-- which replies the unique name of current IBus process.
busHello ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m T.Text
    -- ^ __Returns:__ The unique name of IBus process in DBus.
busHello :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m Text
busHello a
bus = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
result <- Ptr Bus -> IO CString
ibus_bus_hello Ptr Bus
bus'
    Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"busHello" CString
result
    Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'

#if defined(ENABLE_OVERLOADING)
data BusHelloMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsBus a) => O.OverloadedMethod BusHelloMethodInfo a signature where
    overloadedMethod = busHello

instance O.OverloadedMethodInfo BusHelloMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busHello",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busHello"
        })


#endif

-- method Bus::is_connected
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_is_connected" ibus_bus_is_connected :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO CInt

-- | Return 'P.True' if /@bus@/ is connected to IBus daemon.
busIsConnected ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m Bool
    -- ^ __Returns:__ 'P.True' if /@bus@/ is connected, 'P.False' otherwise.
busIsConnected :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m Bool
busIsConnected a
bus = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CInt
result <- Ptr Bus -> IO CInt
ibus_bus_is_connected Ptr Bus
bus'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BusIsConnectedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBus a) => O.OverloadedMethod BusIsConnectedMethodInfo a signature where
    overloadedMethod = busIsConnected

instance O.OverloadedMethodInfo BusIsConnectedMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busIsConnected",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busIsConnected"
        })


#endif

-- method Bus::is_global_engine_enabled
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_is_global_engine_enabled" ibus_bus_is_global_engine_enabled :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO CInt

{-# DEPRECATED busIsGlobalEngineEnabled ["(Since version 1.5.3)","Probably this would be used for Chrome OS only.","Currently global engine is always used and 'GI.IBus.Objects.Bus.busGetGlobalEngine'","returns NULL until the first global engine is assigned.","You can use 'GI.IBus.Functions.setLogHandler' to disable a warning when","'GI.IBus.Objects.Bus.busGetGlobalEngine' returns NULL."] #-}
-- | Check if the current global engine is enabled or not synchronously.
busIsGlobalEngineEnabled ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m Bool
    -- ^ __Returns:__ 'P.True' if the current global engine is enabled.
busIsGlobalEngineEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m Bool
busIsGlobalEngineEnabled a
bus = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CInt
result <- Ptr Bus -> IO CInt
ibus_bus_is_global_engine_enabled Ptr Bus
bus'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BusIsGlobalEngineEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBus a) => O.OverloadedMethod BusIsGlobalEngineEnabledMethodInfo a signature where
    overloadedMethod = busIsGlobalEngineEnabled

instance O.OverloadedMethodInfo BusIsGlobalEngineEnabledMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busIsGlobalEngineEnabled",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busIsGlobalEngineEnabled"
        })


#endif

-- method Bus::is_global_engine_enabled_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 4
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_is_global_engine_enabled_async" ibus_bus_is_global_engine_enabled_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

{-# DEPRECATED busIsGlobalEngineEnabledAsync ["(Since version 1.5.3)","Probably this would be used for Chrome OS only.","Currently global engine is always used and 'GI.IBus.Objects.Bus.busGetGlobalEngine'","returns NULL until the first global engine is assigned.","You can use 'GI.IBus.Functions.setLogHandler' to disable a warning when","'GI.IBus.Objects.Bus.busGetGlobalEngine' returns NULL."] #-}
-- | Check if the current global engine is enabled or not asynchronously.
busIsGlobalEngineEnabledAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busIsGlobalEngineEnabledAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busIsGlobalEngineEnabledAsync a
bus Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_is_global_engine_enabled_async Ptr Bus
bus' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusIsGlobalEngineEnabledAsyncMethodInfo
instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusIsGlobalEngineEnabledAsyncMethodInfo a signature where
    overloadedMethod = busIsGlobalEngineEnabledAsync

instance O.OverloadedMethodInfo BusIsGlobalEngineEnabledAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busIsGlobalEngineEnabledAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busIsGlobalEngineEnabledAsync"
        })


#endif

-- method Bus::is_global_engine_enabled_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_is_global_engine_enabled_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_is_global_engine_enabled_async_finish" ibus_bus_is_global_engine_enabled_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

{-# DEPRECATED busIsGlobalEngineEnabledAsyncFinish ["(Since version 1.5.3)","Probably this would be used for Chrome OS only.","Currently global engine is always used and 'GI.IBus.Objects.Bus.busGetGlobalEngine'","returns NULL until the first global engine is assigned.","You can use 'GI.IBus.Functions.setLogHandler' to disable a warning when","'GI.IBus.Objects.Bus.busGetGlobalEngine' returns NULL."] #-}
-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busIsGlobalEngineEnabledAsync'.
busIsGlobalEngineEnabledAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busIsGlobalEngineEnabledAsync'.
    -> m ()
    -- ^ /(Can throw 'Data.GI.Base.GError.GError')/
busIsGlobalEngineEnabledAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m ()
busIsGlobalEngineEnabledAsyncFinish a
bus b
res = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
        CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
ibus_bus_is_global_engine_enabled_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusIsGlobalEngineEnabledAsyncFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusIsGlobalEngineEnabledAsyncFinishMethodInfo a signature where
    overloadedMethod = busIsGlobalEngineEnabledAsyncFinish

instance O.OverloadedMethodInfo BusIsGlobalEngineEnabledAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busIsGlobalEngineEnabledAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busIsGlobalEngineEnabledAsyncFinish"
        })


#endif

-- method Bus::list_active_engines
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TGList
--                  (TInterface Name { namespace = "IBus" , name = "EngineDesc" }))
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_list_active_engines" ibus_bus_list_active_engines :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO (Ptr (GList (Ptr IBus.EngineDesc.EngineDesc)))

{-# DEPRECATED busListActiveEngines ["(Since version 1.5.3)","Read dconf value","\\/desktop\\/ibus\\/general\\/preload-engines instead."] #-}
-- | List active engines synchronously.
busListActiveEngines ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m [IBus.EngineDesc.EngineDesc]
    -- ^ __Returns:__ 
    --        A List of active engines.
busListActiveEngines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m [EngineDesc]
busListActiveEngines a
bus = IO [EngineDesc] -> m [EngineDesc]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [EngineDesc] -> m [EngineDesc])
-> IO [EngineDesc] -> m [EngineDesc]
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr (GList (Ptr EngineDesc))
result <- Ptr Bus -> IO (Ptr (GList (Ptr EngineDesc)))
ibus_bus_list_active_engines Ptr Bus
bus'
    [Ptr EngineDesc]
result' <- Ptr (GList (Ptr EngineDesc)) -> IO [Ptr EngineDesc]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr EngineDesc))
result
    [EngineDesc]
result'' <- (Ptr EngineDesc -> IO EngineDesc)
-> [Ptr EngineDesc] -> IO [EngineDesc]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr EngineDesc -> EngineDesc)
-> Ptr EngineDesc -> IO EngineDesc
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr EngineDesc -> EngineDesc
IBus.EngineDesc.EngineDesc) [Ptr EngineDesc]
result'
    Ptr (GList (Ptr EngineDesc)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr EngineDesc))
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    [EngineDesc] -> IO [EngineDesc]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [EngineDesc]
result''

#if defined(ENABLE_OVERLOADING)
data BusListActiveEnginesMethodInfo
instance (signature ~ (m [IBus.EngineDesc.EngineDesc]), MonadIO m, IsBus a) => O.OverloadedMethod BusListActiveEnginesMethodInfo a signature where
    overloadedMethod = busListActiveEngines

instance O.OverloadedMethodInfo BusListActiveEnginesMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busListActiveEngines",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busListActiveEngines"
        })


#endif

-- method Bus::list_active_engines_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied or %NULL\n     if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 4
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_list_active_engines_async" ibus_bus_list_active_engines_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

{-# DEPRECATED busListActiveEnginesAsync ["(Since version 1.5.3)","Read dconf value","\\/desktop\\/ibus\\/general\\/preload-engines instead."] #-}
-- | List active engines asynchronously.
busListActiveEnginesAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied or 'P.Nothing'
    --      if you don\'t care about the result of the method invocation.
    -> m ()
busListActiveEnginesAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busListActiveEnginesAsync a
bus Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_list_active_engines_async Ptr Bus
bus' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusListActiveEnginesAsyncMethodInfo
instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusListActiveEnginesAsyncMethodInfo a signature where
    overloadedMethod = busListActiveEnginesAsync

instance O.OverloadedMethodInfo BusListActiveEnginesAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busListActiveEnginesAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busListActiveEnginesAsync"
        })


#endif

-- method Bus::list_active_engines_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_list_active_engines_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TGList
--                  (TInterface Name { namespace = "IBus" , name = "EngineDesc" }))
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_list_active_engines_async_finish" ibus_bus_list_active_engines_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO (Ptr (GList (Ptr IBus.EngineDesc.EngineDesc)))

{-# DEPRECATED busListActiveEnginesAsyncFinish ["(Since version 1.5.3)","Read dconf value","\\/desktop\\/ibus\\/general\\/preload-engines instead."] #-}
-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busListActiveEnginesAsync'.
busListActiveEnginesAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busListActiveEnginesAsync'.
    -> m [IBus.EngineDesc.EngineDesc]
    -- ^ __Returns:__ 
    --         A List of active engines. /(Can throw 'Data.GI.Base.GError.GError')/
busListActiveEnginesAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m [EngineDesc]
busListActiveEnginesAsyncFinish a
bus b
res = IO [EngineDesc] -> m [EngineDesc]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [EngineDesc] -> m [EngineDesc])
-> IO [EngineDesc] -> m [EngineDesc]
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO [EngineDesc] -> IO () -> IO [EngineDesc]
forall a b. IO a -> IO b -> IO a
onException (do
        Ptr (GList (Ptr EngineDesc))
result <- (Ptr (Ptr GError) -> IO (Ptr (GList (Ptr EngineDesc))))
-> IO (Ptr (GList (Ptr EngineDesc)))
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr (GList (Ptr EngineDesc))))
 -> IO (Ptr (GList (Ptr EngineDesc))))
-> (Ptr (Ptr GError) -> IO (Ptr (GList (Ptr EngineDesc))))
-> IO (Ptr (GList (Ptr EngineDesc)))
forall a b. (a -> b) -> a -> b
$ Ptr Bus
-> Ptr AsyncResult
-> Ptr (Ptr GError)
-> IO (Ptr (GList (Ptr EngineDesc)))
ibus_bus_list_active_engines_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        [Ptr EngineDesc]
result' <- Ptr (GList (Ptr EngineDesc)) -> IO [Ptr EngineDesc]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr EngineDesc))
result
        [EngineDesc]
result'' <- (Ptr EngineDesc -> IO EngineDesc)
-> [Ptr EngineDesc] -> IO [EngineDesc]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr EngineDesc -> EngineDesc)
-> Ptr EngineDesc -> IO EngineDesc
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr EngineDesc -> EngineDesc
IBus.EngineDesc.EngineDesc) [Ptr EngineDesc]
result'
        Ptr (GList (Ptr EngineDesc)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr EngineDesc))
result
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        [EngineDesc] -> IO [EngineDesc]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [EngineDesc]
result''
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusListActiveEnginesAsyncFinishMethodInfo
instance (signature ~ (b -> m [IBus.EngineDesc.EngineDesc]), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusListActiveEnginesAsyncFinishMethodInfo a signature where
    overloadedMethod = busListActiveEnginesAsyncFinish

instance O.OverloadedMethodInfo BusListActiveEnginesAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busListActiveEnginesAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busListActiveEnginesAsyncFinish"
        })


#endif

-- method Bus::list_engines
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TGList
--                  (TInterface Name { namespace = "IBus" , name = "EngineDesc" }))
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_list_engines" ibus_bus_list_engines :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO (Ptr (GList (Ptr IBus.EngineDesc.EngineDesc)))

-- | List engines synchronously.
busListEngines ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m [IBus.EngineDesc.EngineDesc]
    -- ^ __Returns:__ 
    --         A List of engines.
busListEngines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m [EngineDesc]
busListEngines a
bus = IO [EngineDesc] -> m [EngineDesc]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [EngineDesc] -> m [EngineDesc])
-> IO [EngineDesc] -> m [EngineDesc]
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr (GList (Ptr EngineDesc))
result <- Ptr Bus -> IO (Ptr (GList (Ptr EngineDesc)))
ibus_bus_list_engines Ptr Bus
bus'
    [Ptr EngineDesc]
result' <- Ptr (GList (Ptr EngineDesc)) -> IO [Ptr EngineDesc]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr EngineDesc))
result
    [EngineDesc]
result'' <- (Ptr EngineDesc -> IO EngineDesc)
-> [Ptr EngineDesc] -> IO [EngineDesc]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr EngineDesc -> EngineDesc)
-> Ptr EngineDesc -> IO EngineDesc
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr EngineDesc -> EngineDesc
IBus.EngineDesc.EngineDesc) [Ptr EngineDesc]
result'
    Ptr (GList (Ptr EngineDesc)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr EngineDesc))
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    [EngineDesc] -> IO [EngineDesc]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [EngineDesc]
result''

#if defined(ENABLE_OVERLOADING)
data BusListEnginesMethodInfo
instance (signature ~ (m [IBus.EngineDesc.EngineDesc]), MonadIO m, IsBus a) => O.OverloadedMethod BusListEnginesMethodInfo a signature where
    overloadedMethod = busListEngines

instance O.OverloadedMethodInfo BusListEnginesMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busListEngines",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busListEngines"
        })


#endif

-- method Bus::list_engines_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied or %NULL\n     if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 4
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_list_engines_async" ibus_bus_list_engines_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | List engines asynchronously.
busListEnginesAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied or 'P.Nothing'
    --      if you don\'t care about the result of the method invocation.
    -> m ()
busListEnginesAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busListEnginesAsync a
bus Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_list_engines_async Ptr Bus
bus' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusListEnginesAsyncMethodInfo
instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusListEnginesAsyncMethodInfo a signature where
    overloadedMethod = busListEnginesAsync

instance O.OverloadedMethodInfo BusListEnginesAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busListEnginesAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busListEnginesAsync"
        })


#endif

-- method Bus::list_engines_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_list_engines_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TGList
--                  (TInterface Name { namespace = "IBus" , name = "EngineDesc" }))
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_list_engines_async_finish" ibus_bus_list_engines_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO (Ptr (GList (Ptr IBus.EngineDesc.EngineDesc)))

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busListEnginesAsync'.
busListEnginesAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busListEnginesAsync'.
    -> m [IBus.EngineDesc.EngineDesc]
    -- ^ __Returns:__ 
    --         A List of engines. /(Can throw 'Data.GI.Base.GError.GError')/
busListEnginesAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m [EngineDesc]
busListEnginesAsyncFinish a
bus b
res = IO [EngineDesc] -> m [EngineDesc]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [EngineDesc] -> m [EngineDesc])
-> IO [EngineDesc] -> m [EngineDesc]
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO [EngineDesc] -> IO () -> IO [EngineDesc]
forall a b. IO a -> IO b -> IO a
onException (do
        Ptr (GList (Ptr EngineDesc))
result <- (Ptr (Ptr GError) -> IO (Ptr (GList (Ptr EngineDesc))))
-> IO (Ptr (GList (Ptr EngineDesc)))
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr (GList (Ptr EngineDesc))))
 -> IO (Ptr (GList (Ptr EngineDesc))))
-> (Ptr (Ptr GError) -> IO (Ptr (GList (Ptr EngineDesc))))
-> IO (Ptr (GList (Ptr EngineDesc)))
forall a b. (a -> b) -> a -> b
$ Ptr Bus
-> Ptr AsyncResult
-> Ptr (Ptr GError)
-> IO (Ptr (GList (Ptr EngineDesc)))
ibus_bus_list_engines_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        [Ptr EngineDesc]
result' <- Ptr (GList (Ptr EngineDesc)) -> IO [Ptr EngineDesc]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr EngineDesc))
result
        [EngineDesc]
result'' <- (Ptr EngineDesc -> IO EngineDesc)
-> [Ptr EngineDesc] -> IO [EngineDesc]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr EngineDesc -> EngineDesc)
-> Ptr EngineDesc -> IO EngineDesc
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr EngineDesc -> EngineDesc
IBus.EngineDesc.EngineDesc) [Ptr EngineDesc]
result'
        Ptr (GList (Ptr EngineDesc)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr EngineDesc))
result
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        [EngineDesc] -> IO [EngineDesc]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [EngineDesc]
result''
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusListEnginesAsyncFinishMethodInfo
instance (signature ~ (b -> m [IBus.EngineDesc.EngineDesc]), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusListEnginesAsyncFinishMethodInfo a signature where
    overloadedMethod = busListEnginesAsyncFinish

instance O.OverloadedMethodInfo BusListEnginesAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busListEnginesAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busListEnginesAsyncFinish"
        })


#endif

-- method Bus::list_names
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TGList (TBasicType TUTF8))
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_list_names" ibus_bus_list_names :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    IO (Ptr (GList CString))

-- | Return lists that attached to /@bus@/.
-- \<note>\<para>[FixMe] Not implemented yet, only return 'P.Nothing'.\<\/para>\<\/note>
-- \<note>\<para>[FixMe] Add async version.\<\/para>\<\/note>
busListNames ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> m [T.Text]
    -- ^ __Returns:__ Lists that attached to /@bus@/.
busListNames :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> m [Text]
busListNames a
bus = IO [Text] -> m [Text]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Text] -> m [Text]) -> IO [Text] -> m [Text]
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr (GList CString)
result <- Ptr Bus -> IO (Ptr (GList CString))
ibus_bus_list_names Ptr Bus
bus'
    [CString]
result' <- Ptr (GList CString) -> IO [CString]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList CString)
result
    [Text]
result'' <- (CString -> IO Text) -> [CString] -> IO [Text]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText [CString]
result'
    (CString -> IO ()) -> Ptr (GList CString) -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (GList (Ptr a)) -> IO ()
mapGList CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (GList CString)
result
    Ptr (GList CString) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList CString)
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    [Text] -> IO [Text]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result''

#if defined(ENABLE_OVERLOADING)
data BusListNamesMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsBus a) => O.OverloadedMethod BusListNamesMethodInfo a signature where
    overloadedMethod = busListNames

instance O.OverloadedMethodInfo BusListNamesMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busListNames",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busListNames"
        })


#endif

-- method Bus::list_queued_owners
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Name to be queried."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TGList (TBasicType TUTF8))
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_list_queued_owners" ibus_bus_list_queued_owners :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- name : TBasicType TUTF8
    IO (Ptr (GList CString))

-- | Lists the unique bus names of connections currently queued for a bus name.
-- FIXME add an asynchronous version.
busListQueuedOwners ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An IBusBus.
    -> T.Text
    -- ^ /@name@/: Name to be queried.
    -> m [T.Text]
    -- ^ __Returns:__ 
    --           The unique bus names of connections currently queued for /@name@/.
busListQueuedOwners :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Text -> m [Text]
busListQueuedOwners a
bus Text
name = IO [Text] -> m [Text]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Text] -> m [Text]) -> IO [Text] -> m [Text]
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
name' <- Text -> IO CString
textToCString Text
name
    Ptr (GList CString)
result <- Ptr Bus -> CString -> IO (Ptr (GList CString))
ibus_bus_list_queued_owners Ptr Bus
bus' CString
name'
    [CString]
result' <- Ptr (GList CString) -> IO [CString]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList CString)
result
    [Text]
result'' <- (CString -> IO Text) -> [CString] -> IO [Text]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText [CString]
result'
    (CString -> IO ()) -> Ptr (GList CString) -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (GList (Ptr a)) -> IO ()
mapGList CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (GList CString)
result
    Ptr (GList CString) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList CString)
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
    [Text] -> IO [Text]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result''

#if defined(ENABLE_OVERLOADING)
data BusListQueuedOwnersMethodInfo
instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, IsBus a) => O.OverloadedMethod BusListQueuedOwnersMethodInfo a signature where
    overloadedMethod = busListQueuedOwners

instance O.OverloadedMethodInfo BusListQueuedOwnersMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busListQueuedOwners",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busListQueuedOwners"
        })


#endif

-- method Bus::name_has_owner
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Name to be checked."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_name_has_owner" ibus_bus_name_has_owner :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- name : TBasicType TUTF8
    IO CInt

-- | Checks whether the name has owner synchronously.
busNameHasOwner ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@name@/: Name to be checked.
    -> m Bool
    -- ^ __Returns:__ 'P.True' if the name has owner, 'P.False' otherwise.
busNameHasOwner :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Text -> m Bool
busNameHasOwner a
bus Text
name = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
name' <- Text -> IO CString
textToCString Text
name
    CInt
result <- Ptr Bus -> CString -> IO CInt
ibus_bus_name_has_owner Ptr Bus
bus' CString
name'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
    Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BusNameHasOwnerMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsBus a) => O.OverloadedMethod BusNameHasOwnerMethodInfo a signature where
    overloadedMethod = busNameHasOwner

instance O.OverloadedMethodInfo BusNameHasOwnerMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busNameHasOwner",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busNameHasOwner"
        })


#endif

-- method Bus::name_has_owner_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Name to be checked."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 5
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_name_has_owner_async" ibus_bus_name_has_owner_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- name : TBasicType TUTF8
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Checks whether the name has owner asynchronously.
busNameHasOwnerAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@name@/: Name to be checked.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busNameHasOwnerAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Text -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busNameHasOwnerAsync a
bus Text
name Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
name' <- Text -> IO CString
textToCString Text
name
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> CString
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_name_has_owner_async Ptr Bus
bus' CString
name' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusNameHasOwnerAsyncMethodInfo
instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusNameHasOwnerAsyncMethodInfo a signature where
    overloadedMethod = busNameHasOwnerAsync

instance O.OverloadedMethodInfo BusNameHasOwnerAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busNameHasOwnerAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busNameHasOwnerAsync"
        })


#endif

-- method Bus::name_has_owner_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_name_has_owner_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_name_has_owner_async_finish" ibus_bus_name_has_owner_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busNameHasOwnerAsync'.
busNameHasOwnerAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busNameHasOwnerAsync'.
    -> m ()
    -- ^ /(Can throw 'Data.GI.Base.GError.GError')/
busNameHasOwnerAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m ()
busNameHasOwnerAsyncFinish a
bus b
res = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
        CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
ibus_bus_name_has_owner_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusNameHasOwnerAsyncFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusNameHasOwnerAsyncFinishMethodInfo a signature where
    overloadedMethod = busNameHasOwnerAsyncFinish

instance O.OverloadedMethodInfo BusNameHasOwnerAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busNameHasOwnerAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busNameHasOwnerAsyncFinish"
        })


#endif

-- method Bus::preload_engines
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "names"
--           , argType = TCArray True (-1) (-1) (TBasicType TUTF8)
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A %NULL-terminated array of engine names."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_preload_engines" ibus_bus_preload_engines :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr CString ->                          -- names : TCArray True (-1) (-1) (TBasicType TUTF8)
    IO CInt

-- | Start bus components by engine names synchronously.
busPreloadEngines ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> [T.Text]
    -- ^ /@names@/: A 'P.Nothing'-terminated array of engine names.
    -> m Bool
    -- ^ __Returns:__ 'P.True' if components start. 'P.False' otherwise.
busPreloadEngines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> [Text] -> m Bool
busPreloadEngines a
bus [Text]
names = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr CString
names' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
names
    CInt
result <- Ptr Bus -> Ptr CString -> IO CInt
ibus_bus_preload_engines Ptr Bus
bus' Ptr CString
names'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    (CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
names'
    Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
names'
    Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BusPreloadEnginesMethodInfo
instance (signature ~ ([T.Text] -> m Bool), MonadIO m, IsBus a) => O.OverloadedMethod BusPreloadEnginesMethodInfo a signature where
    overloadedMethod = busPreloadEngines

instance O.OverloadedMethodInfo BusPreloadEnginesMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busPreloadEngines",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busPreloadEngines"
        })


#endif

-- method Bus::preload_engines_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "names"
--           , argType = TCArray True (-1) (-1) (TBasicType TUTF8)
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A %NULL-terminated array of engine names."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 5
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_preload_engines_async" ibus_bus_preload_engines_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr CString ->                          -- names : TCArray True (-1) (-1) (TBasicType TUTF8)
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Start bus components by engine names asynchronously.
busPreloadEnginesAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> [T.Text]
    -- ^ /@names@/: A 'P.Nothing'-terminated array of engine names.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busPreloadEnginesAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> [Text] -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busPreloadEnginesAsync a
bus [Text]
names Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr CString
names' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
names
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> Ptr CString
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_preload_engines_async Ptr Bus
bus' Ptr CString
names' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    (CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
names'
    Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
names'
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusPreloadEnginesAsyncMethodInfo
instance (signature ~ ([T.Text] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusPreloadEnginesAsyncMethodInfo a signature where
    overloadedMethod = busPreloadEnginesAsync

instance O.OverloadedMethodInfo BusPreloadEnginesAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busPreloadEnginesAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busPreloadEnginesAsync"
        })


#endif

-- method Bus::preload_engines_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_preload_engines_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_preload_engines_async_finish" ibus_bus_preload_engines_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busPreloadEnginesAsync'.
busPreloadEnginesAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busPreloadEnginesAsync'.
    -> m ()
    -- ^ /(Can throw 'Data.GI.Base.GError.GError')/
busPreloadEnginesAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m ()
busPreloadEnginesAsyncFinish a
bus b
res = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
        CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
ibus_bus_preload_engines_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusPreloadEnginesAsyncFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusPreloadEnginesAsyncFinishMethodInfo a signature where
    overloadedMethod = busPreloadEnginesAsyncFinish

instance O.OverloadedMethodInfo BusPreloadEnginesAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busPreloadEnginesAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busPreloadEnginesAsyncFinish"
        })


#endif

-- method Bus::register_component
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "component"
--           , argType =
--               TInterface Name { namespace = "IBus" , name = "Component" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A input engine component."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_register_component" ibus_bus_register_component :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr IBus.Component.Component ->         -- component : TInterface (Name {namespace = "IBus", name = "Component"})
    IO CInt

-- | Register a component to an t'GI.IBus.Objects.Bus.Bus' synchronously.
busRegisterComponent ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, IBus.Component.IsComponent b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@component@/: A input engine component.
    -> m Bool
    -- ^ __Returns:__ 'P.True' if the \"RegisterComponent\" call is successful, 'P.False' otherwise.
busRegisterComponent :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsComponent b) =>
a -> b -> m Bool
busRegisterComponent a
bus b
component = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr Component
component' <- b -> IO (Ptr Component)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
component
    CInt
result <- Ptr Bus -> Ptr Component -> IO CInt
ibus_bus_register_component Ptr Bus
bus' Ptr Component
component'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
component
    Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BusRegisterComponentMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsBus a, IBus.Component.IsComponent b) => O.OverloadedMethod BusRegisterComponentMethodInfo a signature where
    overloadedMethod = busRegisterComponent

instance O.OverloadedMethodInfo BusRegisterComponentMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busRegisterComponent",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busRegisterComponent"
        })


#endif

-- method Bus::register_component_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "component"
--           , argType =
--               TInterface Name { namespace = "IBus" , name = "Component" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A input engine component."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 5
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_register_component_async" ibus_bus_register_component_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr IBus.Component.Component ->         -- component : TInterface (Name {namespace = "IBus", name = "Component"})
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Register a component to an t'GI.IBus.Objects.Bus.Bus' asynchronously.
busRegisterComponentAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, IBus.Component.IsComponent b, Gio.Cancellable.IsCancellable c) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@component@/: A input engine component.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (c)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busRegisterComponentAsync :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsBus a, IsComponent b,
 IsCancellable c) =>
a -> b -> Int32 -> Maybe c -> Maybe AsyncReadyCallback -> m ()
busRegisterComponentAsync a
bus b
component Int32
timeoutMsec Maybe c
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr Component
component' <- b -> IO (Ptr Component)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
component
    Ptr Cancellable
maybeCancellable <- case Maybe c
cancellable of
        Maybe c
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just c
jCancellable -> do
            Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> Ptr Component
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_register_component_async Ptr Bus
bus' Ptr Component
component' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
component
    Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusRegisterComponentAsyncMethodInfo
instance (signature ~ (b -> Int32 -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, IBus.Component.IsComponent b, Gio.Cancellable.IsCancellable c) => O.OverloadedMethod BusRegisterComponentAsyncMethodInfo a signature where
    overloadedMethod = busRegisterComponentAsync

instance O.OverloadedMethodInfo BusRegisterComponentAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busRegisterComponentAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busRegisterComponentAsync"
        })


#endif

-- method Bus::register_component_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_register_component_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_register_component_async_finish" ibus_bus_register_component_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busRegisterComponentAsync'.
busRegisterComponentAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busRegisterComponentAsync'.
    -> m ()
    -- ^ /(Can throw 'Data.GI.Base.GError.GError')/
busRegisterComponentAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m ()
busRegisterComponentAsyncFinish a
bus b
res = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
        CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
ibus_bus_register_component_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusRegisterComponentAsyncFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusRegisterComponentAsyncFinishMethodInfo a signature where
    overloadedMethod = busRegisterComponentAsyncFinish

instance O.OverloadedMethodInfo BusRegisterComponentAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busRegisterComponentAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busRegisterComponentAsyncFinish"
        })


#endif

-- method Bus::release_name
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Name to be released."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUInt)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_release_name" ibus_bus_release_name :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- name : TBasicType TUTF8
    IO Word32

-- | Release a name to IBus daemon synchronously.
busReleaseName ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@name@/: Name to be released.
    -> m Word32
    -- ^ __Returns:__ 0 if failed; positive number otherwise.
busReleaseName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Text -> m Word32
busReleaseName a
bus Text
name = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
name' <- Text -> IO CString
textToCString Text
name
    Word32
result <- Ptr Bus -> CString -> IO Word32
ibus_bus_release_name Ptr Bus
bus' CString
name'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
    Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result

#if defined(ENABLE_OVERLOADING)
data BusReleaseNameMethodInfo
instance (signature ~ (T.Text -> m Word32), MonadIO m, IsBus a) => O.OverloadedMethod BusReleaseNameMethodInfo a signature where
    overloadedMethod = busReleaseName

instance O.OverloadedMethodInfo BusReleaseNameMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busReleaseName",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busReleaseName"
        })


#endif

-- method Bus::release_name_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Name to be released."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 5
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_release_name_async" ibus_bus_release_name_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- name : TBasicType TUTF8
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Release a name to IBus daemon asynchronously.
busReleaseNameAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@name@/: Name to be released.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busReleaseNameAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Text -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busReleaseNameAsync a
bus Text
name Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
name' <- Text -> IO CString
textToCString Text
name
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> CString
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_release_name_async Ptr Bus
bus' CString
name' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusReleaseNameAsyncMethodInfo
instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusReleaseNameAsyncMethodInfo a signature where
    overloadedMethod = busReleaseNameAsync

instance O.OverloadedMethodInfo BusReleaseNameAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busReleaseNameAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busReleaseNameAsync"
        })


#endif

-- method Bus::release_name_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_release_name_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUInt)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_release_name_async_finish" ibus_bus_release_name_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO Word32

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busReleaseNameAsync'.
busReleaseNameAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busReleaseNameAsync'.
    -> m Word32
    -- ^ __Returns:__ 0 if failed; positive number otherwise. /(Can throw 'Data.GI.Base.GError.GError')/
busReleaseNameAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m Word32
busReleaseNameAsyncFinish a
bus b
res = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO Word32 -> IO () -> IO Word32
forall a b. IO a -> IO b -> IO a
onException (do
        Word32
result <- (Ptr (Ptr GError) -> IO Word32) -> IO Word32
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO Word32) -> IO Word32)
-> (Ptr (Ptr GError) -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO Word32
ibus_bus_release_name_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusReleaseNameAsyncFinishMethodInfo
instance (signature ~ (b -> m Word32), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusReleaseNameAsyncFinishMethodInfo a signature where
    overloadedMethod = busReleaseNameAsyncFinish

instance O.OverloadedMethodInfo BusReleaseNameAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busReleaseNameAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busReleaseNameAsyncFinish"
        })


#endif

-- method Bus::remove_match
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "rule"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Match rule." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_remove_match" ibus_bus_remove_match :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- rule : TBasicType TUTF8
    IO CInt

-- | Remove a match rule to an t'GI.IBus.Objects.Bus.Bus' synchronously.
busRemoveMatch ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@rule@/: Match rule.
    -> m Bool
    -- ^ __Returns:__ 'P.True' if the rule is removed. 'P.False' otherwise.
busRemoveMatch :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Text -> m Bool
busRemoveMatch a
bus Text
rule = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
rule' <- Text -> IO CString
textToCString Text
rule
    CInt
result <- Ptr Bus -> CString -> IO CInt
ibus_bus_remove_match Ptr Bus
bus' CString
rule'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
rule'
    Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BusRemoveMatchMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsBus a) => O.OverloadedMethod BusRemoveMatchMethodInfo a signature where
    overloadedMethod = busRemoveMatch

instance O.OverloadedMethodInfo BusRemoveMatchMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busRemoveMatch",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busRemoveMatch"
        })


#endif

-- method Bus::remove_match_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "rule"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Match rule." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 5
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_remove_match_async" ibus_bus_remove_match_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- rule : TBasicType TUTF8
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Remove a match rule to an IBusBus asynchronously.
busRemoveMatchAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@rule@/: Match rule.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busRemoveMatchAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Text -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busRemoveMatchAsync a
bus Text
rule Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
rule' <- Text -> IO CString
textToCString Text
rule
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> CString
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_remove_match_async Ptr Bus
bus' CString
rule' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
rule'
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusRemoveMatchAsyncMethodInfo
instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusRemoveMatchAsyncMethodInfo a signature where
    overloadedMethod = busRemoveMatchAsync

instance O.OverloadedMethodInfo BusRemoveMatchAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busRemoveMatchAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busRemoveMatchAsync"
        })


#endif

-- method Bus::remove_match_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_remove_match_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_remove_match_async_finish" ibus_bus_remove_match_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busRemoveMatchAsync'.
busRemoveMatchAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busRemoveMatchAsync'.
    -> m ()
    -- ^ /(Can throw 'Data.GI.Base.GError.GError')/
busRemoveMatchAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m ()
busRemoveMatchAsyncFinish a
bus b
res = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
        CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
ibus_bus_remove_match_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusRemoveMatchAsyncFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusRemoveMatchAsyncFinishMethodInfo a signature where
    overloadedMethod = busRemoveMatchAsyncFinish

instance O.OverloadedMethodInfo BusRemoveMatchAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busRemoveMatchAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busRemoveMatchAsyncFinish"
        })


#endif

-- method Bus::request_name
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the IBusBus instance to be processed."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Name to be requested."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "flags"
--           , argType = TBasicType TUInt32
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "IBusBusNameFlag." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUInt32)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_request_name" ibus_bus_request_name :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- name : TBasicType TUTF8
    Word32 ->                               -- flags : TBasicType TUInt32
    IO Word32

-- | Request a name from IBus daemon synchronously.
busRequestName ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: the IBusBus instance to be processed.
    -> T.Text
    -- ^ /@name@/: Name to be requested.
    -> Word32
    -- ^ /@flags@/: IBusBusNameFlag.
    -> m Word32
    -- ^ __Returns:__ 0 if failed; IBusBusRequestNameReply otherwise.
busRequestName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Text -> Word32 -> m Word32
busRequestName a
bus Text
name Word32
flags = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
name' <- Text -> IO CString
textToCString Text
name
    Word32
result <- Ptr Bus -> CString -> Word32 -> IO Word32
ibus_bus_request_name Ptr Bus
bus' CString
name' Word32
flags
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
    Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result

#if defined(ENABLE_OVERLOADING)
data BusRequestNameMethodInfo
instance (signature ~ (T.Text -> Word32 -> m Word32), MonadIO m, IsBus a) => O.OverloadedMethod BusRequestNameMethodInfo a signature where
    overloadedMethod = busRequestName

instance O.OverloadedMethodInfo BusRequestNameMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busRequestName",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busRequestName"
        })


#endif

-- method Bus::request_name_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Name to be requested."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "flags"
--           , argType = TBasicType TUInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "Flags (FixMe)." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied or %NULL\n     if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 6
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_request_name_async" ibus_bus_request_name_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- name : TBasicType TUTF8
    Word32 ->                               -- flags : TBasicType TUInt
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Request a name from IBus daemon asynchronously.
busRequestNameAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@name@/: Name to be requested.
    -> Word32
    -- ^ /@flags@/: Flags (FixMe).
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied or 'P.Nothing'
    --      if you don\'t care about the result of the method invocation.
    -> m ()
busRequestNameAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a
-> Text
-> Word32
-> Int32
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
busRequestNameAsync a
bus Text
name Word32
flags Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
name' <- Text -> IO CString
textToCString Text
name
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> CString
-> Word32
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_request_name_async Ptr Bus
bus' CString
name' Word32
flags Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusRequestNameAsyncMethodInfo
instance (signature ~ (T.Text -> Word32 -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusRequestNameAsyncMethodInfo a signature where
    overloadedMethod = busRequestNameAsync

instance O.OverloadedMethodInfo BusRequestNameAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busRequestNameAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busRequestNameAsync"
        })


#endif

-- method Bus::request_name_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_request_name_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUInt)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_request_name_async_finish" ibus_bus_request_name_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO Word32

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busRequestNameAsync'.
busRequestNameAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busRequestNameAsync'.
    -> m Word32
    -- ^ __Returns:__ 0 if failed; positive number otherwise. /(Can throw 'Data.GI.Base.GError.GError')/
busRequestNameAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m Word32
busRequestNameAsyncFinish a
bus b
res = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO Word32 -> IO () -> IO Word32
forall a b. IO a -> IO b -> IO a
onException (do
        Word32
result <- (Ptr (Ptr GError) -> IO Word32) -> IO Word32
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO Word32) -> IO Word32)
-> (Ptr (Ptr GError) -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO Word32
ibus_bus_request_name_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusRequestNameAsyncFinishMethodInfo
instance (signature ~ (b -> m Word32), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusRequestNameAsyncFinishMethodInfo a signature where
    overloadedMethod = busRequestNameAsyncFinish

instance O.OverloadedMethodInfo BusRequestNameAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busRequestNameAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busRequestNameAsyncFinish"
        })


#endif

-- method Bus::set_global_engine
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "global_engine"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A new engine name." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_set_global_engine" ibus_bus_set_global_engine :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- global_engine : TBasicType TUTF8
    IO CInt

-- | Set current global engine synchronously.
busSetGlobalEngine ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@globalEngine@/: A new engine name.
    -> m Bool
    -- ^ __Returns:__ 'P.True' if the global engine was set successfully.
busSetGlobalEngine :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Text -> m Bool
busSetGlobalEngine a
bus Text
globalEngine = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
globalEngine' <- Text -> IO CString
textToCString Text
globalEngine
    CInt
result <- Ptr Bus -> CString -> IO CInt
ibus_bus_set_global_engine Ptr Bus
bus' CString
globalEngine'
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
globalEngine'
    Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BusSetGlobalEngineMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsBus a) => O.OverloadedMethod BusSetGlobalEngineMethodInfo a signature where
    overloadedMethod = busSetGlobalEngine

instance O.OverloadedMethodInfo BusSetGlobalEngineMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busSetGlobalEngine",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busSetGlobalEngine"
        })


#endif

-- method Bus::set_global_engine_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "global_engine"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A new engine name." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 5
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_set_global_engine_async" ibus_bus_set_global_engine_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- global_engine : TBasicType TUTF8
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Set current global engine asynchronously.
busSetGlobalEngineAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@globalEngine@/: A new engine name.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busSetGlobalEngineAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a -> Text -> Int32 -> Maybe b -> Maybe AsyncReadyCallback -> m ()
busSetGlobalEngineAsync a
bus Text
globalEngine Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
globalEngine' <- Text -> IO CString
textToCString Text
globalEngine
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> CString
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_set_global_engine_async Ptr Bus
bus' CString
globalEngine' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
globalEngine'
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusSetGlobalEngineAsyncMethodInfo
instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusSetGlobalEngineAsyncMethodInfo a signature where
    overloadedMethod = busSetGlobalEngineAsync

instance O.OverloadedMethodInfo BusSetGlobalEngineAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busSetGlobalEngineAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busSetGlobalEngineAsync"
        })


#endif

-- method Bus::set_global_engine_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_set_global_engine_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_set_global_engine_async_finish" ibus_bus_set_global_engine_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busSetGlobalEngineAsync'.
busSetGlobalEngineAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busSetGlobalEngineAsync'.
    -> m ()
    -- ^ /(Can throw 'Data.GI.Base.GError.GError')/
busSetGlobalEngineAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m ()
busSetGlobalEngineAsyncFinish a
bus b
res = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
        CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
ibus_bus_set_global_engine_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusSetGlobalEngineAsyncFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusSetGlobalEngineAsyncFinishMethodInfo a signature where
    overloadedMethod = busSetGlobalEngineAsyncFinish

instance O.OverloadedMethodInfo BusSetGlobalEngineAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busSetGlobalEngineAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busSetGlobalEngineAsyncFinish"
        })


#endif

-- method Bus::set_global_shortcut_keys
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "gtype"
--           , argType =
--               TInterface
--                 Name { namespace = "IBus" , name = "BusGlobalBindingType" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #IBusBusGlobalBindingType."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "keys"
--           , argType =
--               TCArray
--                 True
--                 (-1)
--                 (-1)
--                 (TInterface
--                    Name { namespace = "IBus" , name = "ProcessKeyEventData" })
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "\n       A %NULL-terminated array of #IBusProcessKeyEventData.\n       keycode is used for the selecting direction and the forward direction\n       in case of 0, otherwise the backward direction."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_set_global_shortcut_keys" ibus_bus_set_global_shortcut_keys :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CUInt ->                                -- gtype : TInterface (Name {namespace = "IBus", name = "BusGlobalBindingType"})
    Ptr (Ptr IBus.ProcessKeyEventData.ProcessKeyEventData) -> -- keys : TCArray True (-1) (-1) (TInterface (Name {namespace = "IBus", name = "ProcessKeyEventData"}))
    IO CInt

-- | Set global shorcut keys for the Wayland session.
-- 
-- /Since: 1.5.29/
busSetGlobalShortcutKeys ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> IBus.Enums.BusGlobalBindingType
    -- ^ /@gtype@/: A t'GI.IBus.Enums.BusGlobalBindingType'.
    -> [IBus.ProcessKeyEventData.ProcessKeyEventData]
    -- ^ /@keys@/: 
    --        A 'P.Nothing'-terminated array of t'GI.IBus.Structs.ProcessKeyEventData.ProcessKeyEventData'.
    --        keycode is used for the selecting direction and the forward direction
    --        in case of 0, otherwise the backward direction.
    -> m Bool
    -- ^ __Returns:__ 'P.True' if the global shortcut keys are set. 'P.False' otherwise.
busSetGlobalShortcutKeys :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> BusGlobalBindingType -> [ProcessKeyEventData] -> m Bool
busSetGlobalShortcutKeys a
bus BusGlobalBindingType
gtype [ProcessKeyEventData]
keys = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    let gtype' :: CUInt
gtype' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (BusGlobalBindingType -> Int) -> BusGlobalBindingType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. BusGlobalBindingType -> Int
forall a. Enum a => a -> Int
fromEnum) BusGlobalBindingType
gtype
    [Ptr ProcessKeyEventData]
keys' <- (ProcessKeyEventData -> IO (Ptr ProcessKeyEventData))
-> [ProcessKeyEventData] -> IO [Ptr ProcessKeyEventData]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ProcessKeyEventData -> IO (Ptr ProcessKeyEventData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [ProcessKeyEventData]
keys
    Ptr (Ptr ProcessKeyEventData)
keys'' <- [Ptr ProcessKeyEventData] -> IO (Ptr (Ptr ProcessKeyEventData))
forall a. [Ptr a] -> IO (Ptr (Ptr a))
packZeroTerminatedPtrArray [Ptr ProcessKeyEventData]
keys'
    CInt
result <- Ptr Bus -> CUInt -> Ptr (Ptr ProcessKeyEventData) -> IO CInt
ibus_bus_set_global_shortcut_keys Ptr Bus
bus' CUInt
gtype' Ptr (Ptr ProcessKeyEventData)
keys''
    let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    (ProcessKeyEventData -> IO ()) -> [ProcessKeyEventData] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ ProcessKeyEventData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [ProcessKeyEventData]
keys
    Ptr (Ptr ProcessKeyEventData) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr ProcessKeyEventData)
keys''
    Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BusSetGlobalShortcutKeysMethodInfo
instance (signature ~ (IBus.Enums.BusGlobalBindingType -> [IBus.ProcessKeyEventData.ProcessKeyEventData] -> m Bool), MonadIO m, IsBus a) => O.OverloadedMethod BusSetGlobalShortcutKeysMethodInfo a signature where
    overloadedMethod = busSetGlobalShortcutKeys

instance O.OverloadedMethodInfo BusSetGlobalShortcutKeysMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busSetGlobalShortcutKeys",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busSetGlobalShortcutKeys"
        })


#endif

-- method Bus::set_global_shortcut_keys_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "gtype"
--           , argType =
--               TInterface
--                 Name { namespace = "IBus" , name = "BusGlobalBindingType" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #IBusBusGlobalBindingType."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "keys"
--           , argType =
--               TCArray
--                 True
--                 (-1)
--                 (-1)
--                 (TInterface
--                    Name { namespace = "IBus" , name = "ProcessKeyEventData" })
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "\n       A %NULL-terminated array of #IBusProcessKeyEventData."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 6
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_set_global_shortcut_keys_async" ibus_bus_set_global_shortcut_keys_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CUInt ->                                -- gtype : TInterface (Name {namespace = "IBus", name = "BusGlobalBindingType"})
    Ptr (Ptr IBus.ProcessKeyEventData.ProcessKeyEventData) -> -- keys : TCArray True (-1) (-1) (TInterface (Name {namespace = "IBus", name = "ProcessKeyEventData"}))
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Sete global shorcut keys for the Wayland session asynchronously.
-- 
-- /Since: 1.5.29/
busSetGlobalShortcutKeysAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> IBus.Enums.BusGlobalBindingType
    -- ^ /@gtype@/: A t'GI.IBus.Enums.BusGlobalBindingType'.
    -> [IBus.ProcessKeyEventData.ProcessKeyEventData]
    -- ^ /@keys@/: 
    --        A 'P.Nothing'-terminated array of t'GI.IBus.Structs.ProcessKeyEventData.ProcessKeyEventData'.
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busSetGlobalShortcutKeysAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a
-> BusGlobalBindingType
-> [ProcessKeyEventData]
-> Int32
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
busSetGlobalShortcutKeysAsync a
bus BusGlobalBindingType
gtype [ProcessKeyEventData]
keys Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    let gtype' :: CUInt
gtype' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (BusGlobalBindingType -> Int) -> BusGlobalBindingType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. BusGlobalBindingType -> Int
forall a. Enum a => a -> Int
fromEnum) BusGlobalBindingType
gtype
    [Ptr ProcessKeyEventData]
keys' <- (ProcessKeyEventData -> IO (Ptr ProcessKeyEventData))
-> [ProcessKeyEventData] -> IO [Ptr ProcessKeyEventData]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ProcessKeyEventData -> IO (Ptr ProcessKeyEventData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [ProcessKeyEventData]
keys
    Ptr (Ptr ProcessKeyEventData)
keys'' <- [Ptr ProcessKeyEventData] -> IO (Ptr (Ptr ProcessKeyEventData))
forall a. [Ptr a] -> IO (Ptr (Ptr a))
packZeroTerminatedPtrArray [Ptr ProcessKeyEventData]
keys'
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> CUInt
-> Ptr (Ptr ProcessKeyEventData)
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_set_global_shortcut_keys_async Ptr Bus
bus' CUInt
gtype' Ptr (Ptr ProcessKeyEventData)
keys'' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    (ProcessKeyEventData -> IO ()) -> [ProcessKeyEventData] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ ProcessKeyEventData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [ProcessKeyEventData]
keys
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    Ptr (Ptr ProcessKeyEventData) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr ProcessKeyEventData)
keys''
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusSetGlobalShortcutKeysAsyncMethodInfo
instance (signature ~ (IBus.Enums.BusGlobalBindingType -> [IBus.ProcessKeyEventData.ProcessKeyEventData] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusSetGlobalShortcutKeysAsyncMethodInfo a signature where
    overloadedMethod = busSetGlobalShortcutKeysAsync

instance O.OverloadedMethodInfo BusSetGlobalShortcutKeysAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busSetGlobalShortcutKeysAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busSetGlobalShortcutKeysAsync"
        })


#endif

-- method Bus::set_global_shortcut_keys_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_set_global_shortcut_keys_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_set_global_shortcut_keys_async_finish" ibus_bus_set_global_shortcut_keys_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busSetGlobalShortcutKeysAsync'.
-- 
-- /Since: 1.5.29/
busSetGlobalShortcutKeysAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busSetGlobalShortcutKeysAsync'.
    -> m ()
    -- ^ /(Can throw 'Data.GI.Base.GError.GError')/
busSetGlobalShortcutKeysAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m ()
busSetGlobalShortcutKeysAsyncFinish a
bus b
res = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
        CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
ibus_bus_set_global_shortcut_keys_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusSetGlobalShortcutKeysAsyncFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusSetGlobalShortcutKeysAsyncFinishMethodInfo a signature where
    overloadedMethod = busSetGlobalShortcutKeysAsyncFinish

instance O.OverloadedMethodInfo BusSetGlobalShortcutKeysAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busSetGlobalShortcutKeysAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busSetGlobalShortcutKeysAsyncFinish"
        })


#endif

-- method Bus::set_ibus_property
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "property_name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "property name in org.freedesktop.DBus.Properties.Set"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "value"
--           , argType = TVariant
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "value in org.freedesktop.DBus.Properties.Set"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_set_ibus_property" ibus_bus_set_ibus_property :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- property_name : TBasicType TUTF8
    Ptr GVariant ->                         -- value : TVariant
    IO ()

-- | Set org.freedesktop.DBus.Properties.
busSetIbusProperty ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@propertyName@/: property name in org.freedesktop.DBus.Properties.Set
    -> GVariant
    -- ^ /@value@/: value in org.freedesktop.DBus.Properties.Set
    -> m ()
busSetIbusProperty :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Text -> GVariant -> m ()
busSetIbusProperty a
bus Text
propertyName GVariant
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
    Ptr GVariant
value' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
value
    Ptr Bus -> CString -> Ptr GVariant -> IO ()
ibus_bus_set_ibus_property Ptr Bus
bus' CString
propertyName' Ptr GVariant
value'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
value
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusSetIbusPropertyMethodInfo
instance (signature ~ (T.Text -> GVariant -> m ()), MonadIO m, IsBus a) => O.OverloadedMethod BusSetIbusPropertyMethodInfo a signature where
    overloadedMethod = busSetIbusProperty

instance O.OverloadedMethodInfo BusSetIbusPropertyMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busSetIbusProperty",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busSetIbusProperty"
        })


#endif

-- method Bus::set_ibus_property_async
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "property_name"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "property name in org.freedesktop.DBus.Properties.Set"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "value"
--           , argType = TVariant
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "value in org.freedesktop.DBus.Properties.Set"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "timeout_msec"
--           , argType = TBasicType TInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "The timeout in milliseconds or -1 to use the default timeout."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "cancellable"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "Cancellable" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #GCancellable or %NULL."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "callback"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncReadyCallback" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncReadyCallback to call when the request is satisfied\n     or %NULL if you don't care about the result of the method invocation."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeAsync
--           , argClosure = 6
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "user_data"
--           , argType = TBasicType TPtr
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "The data to pass to callback."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_set_ibus_property_async" ibus_bus_set_ibus_property_async :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CString ->                              -- property_name : TBasicType TUTF8
    Ptr GVariant ->                         -- value : TVariant
    Int32 ->                                -- timeout_msec : TBasicType TInt
    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})
    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})
    Ptr () ->                               -- user_data : TBasicType TPtr
    IO ()

-- | Set org.freedesktop.DBus.Properties asynchronously.
busSetIbusPropertyAsync ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> T.Text
    -- ^ /@propertyName@/: property name in org.freedesktop.DBus.Properties.Set
    -> GVariant
    -- ^ /@value@/: value in org.freedesktop.DBus.Properties.Set
    -> Int32
    -- ^ /@timeoutMsec@/: The timeout in milliseconds or -1 to use the default timeout.
    -> Maybe (b)
    -- ^ /@cancellable@/: A t'GI.Gio.Objects.Cancellable.Cancellable' or 'P.Nothing'.
    -> Maybe (Gio.Callbacks.AsyncReadyCallback)
    -- ^ /@callback@/: A t'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied
    --      or 'P.Nothing' if you don\'t care about the result of the method invocation.
    -> m ()
busSetIbusPropertyAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsCancellable b) =>
a
-> Text
-> GVariant
-> Int32
-> Maybe b
-> Maybe AsyncReadyCallback
-> m ()
busSetIbusPropertyAsync a
bus Text
propertyName GVariant
value Int32
timeoutMsec Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
    Ptr GVariant
value' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
value
    Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
        Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
        Just b
jCancellable -> do
            Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
            Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
    FunPtr C_AsyncReadyCallback
maybeCallback <- case Maybe AsyncReadyCallback
callback of
        Maybe AsyncReadyCallback
Nothing -> FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_AsyncReadyCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
        Just AsyncReadyCallback
jCallback -> do
            Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback <- IO (Ptr (FunPtr C_AsyncReadyCallback))
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_WithClosures -> C_AsyncReadyCallback
Gio.Callbacks.wrap_AsyncReadyCallback (Ptr (FunPtr C_AsyncReadyCallback)
-> Maybe (Ptr (FunPtr C_AsyncReadyCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback) (AsyncReadyCallback -> AsyncReadyCallback_WithClosures
Gio.Callbacks.drop_closures_AsyncReadyCallback AsyncReadyCallback
jCallback))
            Ptr (FunPtr C_AsyncReadyCallback)
-> FunPtr C_AsyncReadyCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_AsyncReadyCallback)
ptrcallback FunPtr C_AsyncReadyCallback
jCallback'
            FunPtr C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_AsyncReadyCallback
jCallback'
    let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
    Ptr Bus
-> CString
-> Ptr GVariant
-> Int32
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
ibus_bus_set_ibus_property_async Ptr Bus
bus' CString
propertyName' Ptr GVariant
value' Int32
timeoutMsec Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
value
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusSetIbusPropertyAsyncMethodInfo
instance (signature ~ (T.Text -> GVariant -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBus a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod BusSetIbusPropertyAsyncMethodInfo a signature where
    overloadedMethod = busSetIbusPropertyAsync

instance O.OverloadedMethodInfo BusSetIbusPropertyAsyncMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busSetIbusPropertyAsync",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busSetIbusPropertyAsync"
        })


#endif

-- method Bus::set_ibus_property_async_finish
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "res"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "AsyncResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n  ibus_bus_set_ibus_property_async()."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False

foreign import ccall "ibus_bus_set_ibus_property_async_finish" ibus_bus_set_ibus_property_async_finish :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})
    Ptr (Ptr GError) ->                     -- error
    IO CInt

-- | Finishes an operation started with 'GI.IBus.Objects.Bus.busSetIbusPropertyAsync'.
busSetIbusPropertyAsyncFinish ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> b
    -- ^ /@res@/: A t'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the t'GI.Gio.Callbacks.AsyncReadyCallback' passed to
    --   'GI.IBus.Objects.Bus.busSetIbusPropertyAsync'.
    -> m ()
    -- ^ /(Can throw 'Data.GI.Base.GError.GError')/
busSetIbusPropertyAsyncFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBus a, IsAsyncResult b) =>
a -> b -> m ()
busSetIbusPropertyAsyncFinish a
bus b
res = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    Ptr AsyncResult
res' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
res
    IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
        CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Bus -> Ptr AsyncResult -> Ptr (Ptr GError) -> IO CInt
ibus_bus_set_ibus_property_async_finish Ptr Bus
bus' Ptr AsyncResult
res'
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
res
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     ) (do
        () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data BusSetIbusPropertyAsyncFinishMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsBus a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod BusSetIbusPropertyAsyncFinishMethodInfo a signature where
    overloadedMethod = busSetIbusPropertyAsyncFinish

instance O.OverloadedMethodInfo BusSetIbusPropertyAsyncFinishMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busSetIbusPropertyAsyncFinish",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busSetIbusPropertyAsyncFinish"
        })


#endif

-- method Bus::set_watch_dbus_signal
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "watch"
--           , argType = TBasicType TBoolean
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "%TRUE if you want ibusbus to emit \"name-owner-changed\" signal when\nibus-daemon emits the NameOwnerChanged DBus signal."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_set_watch_dbus_signal" ibus_bus_set_watch_dbus_signal :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CInt ->                                 -- watch : TBasicType TBoolean
    IO ()

-- | Start or stop watching the NameOwnerChanged DBus signal.
busSetWatchDbusSignal ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> Bool
    -- ^ /@watch@/: 'P.True' if you want ibusbus to emit \"name-owner-changed\" signal when
    -- ibus-daemon emits the NameOwnerChanged DBus signal.
    -> m ()
busSetWatchDbusSignal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Bool -> m ()
busSetWatchDbusSignal a
bus Bool
watch = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    let watch' :: CInt
watch' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
watch
    Ptr Bus -> CInt -> IO ()
ibus_bus_set_watch_dbus_signal Ptr Bus
bus' CInt
watch'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusSetWatchDbusSignalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBus a) => O.OverloadedMethod BusSetWatchDbusSignalMethodInfo a signature where
    overloadedMethod = busSetWatchDbusSignal

instance O.OverloadedMethodInfo BusSetWatchDbusSignalMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busSetWatchDbusSignal",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busSetWatchDbusSignal"
        })


#endif

-- method Bus::set_watch_ibus_signal
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "bus"
--           , argType = TInterface Name { namespace = "IBus" , name = "Bus" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "An #IBusBus." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "watch"
--           , argType = TBasicType TBoolean
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "%TRUE if you want ibusbus to emit \"global-engine-changed\" signal when\nibus-daemon emits the GlobalEngineChanged IBus signal."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , argCallbackUserData = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ibus_bus_set_watch_ibus_signal" ibus_bus_set_watch_ibus_signal :: 
    Ptr Bus ->                              -- bus : TInterface (Name {namespace = "IBus", name = "Bus"})
    CInt ->                                 -- watch : TBasicType TBoolean
    IO ()

-- | Start or stop watching the GlobalEngineChanged IBus signal.
busSetWatchIbusSignal ::
    (B.CallStack.HasCallStack, MonadIO m, IsBus a) =>
    a
    -- ^ /@bus@/: An t'GI.IBus.Objects.Bus.Bus'.
    -> Bool
    -- ^ /@watch@/: 'P.True' if you want ibusbus to emit \"global-engine-changed\" signal when
    -- ibus-daemon emits the GlobalEngineChanged IBus signal.
    -> m ()
busSetWatchIbusSignal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBus a) =>
a -> Bool -> m ()
busSetWatchIbusSignal a
bus Bool
watch = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr Bus
bus' <- a -> IO (Ptr Bus)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bus
    let watch' :: CInt
watch' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
watch
    Ptr Bus -> CInt -> IO ()
ibus_bus_set_watch_ibus_signal Ptr Bus
bus' CInt
watch'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bus
    () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BusSetWatchIbusSignalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBus a) => O.OverloadedMethod BusSetWatchIbusSignalMethodInfo a signature where
    overloadedMethod = busSetWatchIbusSignal

instance O.OverloadedMethodInfo BusSetWatchIbusSignalMethodInfo a where
    overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.IBus.Objects.Bus.busSetWatchIbusSignal",
        O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ibus-1.5.8/docs/GI-IBus-Objects-Bus.html#v:busSetWatchIbusSignal"
        })


#endif