gi-gtksource-0.3.18.14: GI/GtkSource/Objects/SearchContext.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.GtkSource.Objects.SearchContext
(
-- * Exported types
SearchContext(..) ,
SearchContextK ,
toSearchContext ,
noSearchContext ,
-- * Methods
-- ** searchContextBackward
SearchContextBackwardMethodInfo ,
searchContextBackward ,
-- ** searchContextBackwardAsync
SearchContextBackwardAsyncMethodInfo ,
searchContextBackwardAsync ,
-- ** searchContextBackwardFinish
SearchContextBackwardFinishMethodInfo ,
searchContextBackwardFinish ,
-- ** searchContextForward
SearchContextForwardMethodInfo ,
searchContextForward ,
-- ** searchContextForwardAsync
SearchContextForwardAsyncMethodInfo ,
searchContextForwardAsync ,
-- ** searchContextForwardFinish
SearchContextForwardFinishMethodInfo ,
searchContextForwardFinish ,
-- ** searchContextGetBuffer
SearchContextGetBufferMethodInfo ,
searchContextGetBuffer ,
-- ** searchContextGetHighlight
SearchContextGetHighlightMethodInfo ,
searchContextGetHighlight ,
-- ** searchContextGetMatchStyle
SearchContextGetMatchStyleMethodInfo ,
searchContextGetMatchStyle ,
-- ** searchContextGetOccurrencePosition
SearchContextGetOccurrencePositionMethodInfo,
searchContextGetOccurrencePosition ,
-- ** searchContextGetOccurrencesCount
SearchContextGetOccurrencesCountMethodInfo,
searchContextGetOccurrencesCount ,
-- ** searchContextGetRegexError
SearchContextGetRegexErrorMethodInfo ,
searchContextGetRegexError ,
-- ** searchContextGetSettings
SearchContextGetSettingsMethodInfo ,
searchContextGetSettings ,
-- ** searchContextNew
searchContextNew ,
-- ** searchContextReplace
SearchContextReplaceMethodInfo ,
searchContextReplace ,
-- ** searchContextReplaceAll
SearchContextReplaceAllMethodInfo ,
searchContextReplaceAll ,
-- ** searchContextSetHighlight
SearchContextSetHighlightMethodInfo ,
searchContextSetHighlight ,
-- ** searchContextSetMatchStyle
SearchContextSetMatchStyleMethodInfo ,
searchContextSetMatchStyle ,
-- ** searchContextSetSettings
SearchContextSetSettingsMethodInfo ,
searchContextSetSettings ,
-- * Properties
-- ** Buffer
SearchContextBufferPropertyInfo ,
constructSearchContextBuffer ,
getSearchContextBuffer ,
searchContextBuffer ,
-- ** Highlight
SearchContextHighlightPropertyInfo ,
constructSearchContextHighlight ,
getSearchContextHighlight ,
searchContextHighlight ,
setSearchContextHighlight ,
-- ** MatchStyle
SearchContextMatchStylePropertyInfo ,
clearSearchContextMatchStyle ,
constructSearchContextMatchStyle ,
getSearchContextMatchStyle ,
searchContextMatchStyle ,
setSearchContextMatchStyle ,
-- ** OccurrencesCount
SearchContextOccurrencesCountPropertyInfo,
getSearchContextOccurrencesCount ,
searchContextOccurrencesCount ,
-- ** RegexError
SearchContextRegexErrorPropertyInfo ,
getSearchContextRegexError ,
searchContextRegexError ,
-- ** Settings
SearchContextSettingsPropertyInfo ,
clearSearchContextSettings ,
constructSearchContextSettings ,
getSearchContextSettings ,
searchContextSettings ,
setSearchContextSettings ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.GtkSource.Types
import GI.GtkSource.Callbacks
import qualified GI.GObject as GObject
import qualified GI.Gio as Gio
import qualified GI.Gtk as Gtk
newtype SearchContext = SearchContext (ForeignPtr SearchContext)
foreign import ccall "gtk_source_search_context_get_type"
c_gtk_source_search_context_get_type :: IO GType
type instance ParentTypes SearchContext = SearchContextParentTypes
type SearchContextParentTypes = '[GObject.Object]
instance GObject SearchContext where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_source_search_context_get_type
class GObject o => SearchContextK o
instance (GObject o, IsDescendantOf SearchContext o) => SearchContextK o
toSearchContext :: SearchContextK o => o -> IO SearchContext
toSearchContext = unsafeCastTo SearchContext
noSearchContext :: Maybe SearchContext
noSearchContext = Nothing
type family ResolveSearchContextMethod (t :: Symbol) (o :: *) :: * where
ResolveSearchContextMethod "backward" o = SearchContextBackwardMethodInfo
ResolveSearchContextMethod "backwardAsync" o = SearchContextBackwardAsyncMethodInfo
ResolveSearchContextMethod "backwardFinish" o = SearchContextBackwardFinishMethodInfo
ResolveSearchContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveSearchContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveSearchContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveSearchContextMethod "forward" o = SearchContextForwardMethodInfo
ResolveSearchContextMethod "forwardAsync" o = SearchContextForwardAsyncMethodInfo
ResolveSearchContextMethod "forwardFinish" o = SearchContextForwardFinishMethodInfo
ResolveSearchContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveSearchContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveSearchContextMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveSearchContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveSearchContextMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveSearchContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveSearchContextMethod "replace" o = SearchContextReplaceMethodInfo
ResolveSearchContextMethod "replaceAll" o = SearchContextReplaceAllMethodInfo
ResolveSearchContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveSearchContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveSearchContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveSearchContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveSearchContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveSearchContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveSearchContextMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveSearchContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveSearchContextMethod "getBuffer" o = SearchContextGetBufferMethodInfo
ResolveSearchContextMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveSearchContextMethod "getHighlight" o = SearchContextGetHighlightMethodInfo
ResolveSearchContextMethod "getMatchStyle" o = SearchContextGetMatchStyleMethodInfo
ResolveSearchContextMethod "getOccurrencePosition" o = SearchContextGetOccurrencePositionMethodInfo
ResolveSearchContextMethod "getOccurrencesCount" o = SearchContextGetOccurrencesCountMethodInfo
ResolveSearchContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveSearchContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveSearchContextMethod "getRegexError" o = SearchContextGetRegexErrorMethodInfo
ResolveSearchContextMethod "getSettings" o = SearchContextGetSettingsMethodInfo
ResolveSearchContextMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveSearchContextMethod "setHighlight" o = SearchContextSetHighlightMethodInfo
ResolveSearchContextMethod "setMatchStyle" o = SearchContextSetMatchStyleMethodInfo
ResolveSearchContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveSearchContextMethod "setSettings" o = SearchContextSetSettingsMethodInfo
ResolveSearchContextMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveSearchContextMethod t SearchContext, MethodInfo info SearchContext p) => IsLabelProxy t (SearchContext -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveSearchContextMethod t SearchContext, MethodInfo info SearchContext p) => IsLabel t (SearchContext -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- VVV Prop "buffer"
-- Type: TInterface "GtkSource" "Buffer"
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
-- Nullable: (Just False,Nothing)
getSearchContextBuffer :: (MonadIO m, SearchContextK o) => o -> m Buffer
getSearchContextBuffer obj = liftIO $ checkUnexpectedNothing "getSearchContextBuffer" $ getObjectPropertyObject obj "buffer" Buffer
constructSearchContextBuffer :: (BufferK a) => a -> IO ([Char], GValue)
constructSearchContextBuffer val = constructObjectPropertyObject "buffer" (Just val)
data SearchContextBufferPropertyInfo
instance AttrInfo SearchContextBufferPropertyInfo where
type AttrAllowedOps SearchContextBufferPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SearchContextBufferPropertyInfo = BufferK
type AttrBaseTypeConstraint SearchContextBufferPropertyInfo = SearchContextK
type AttrGetType SearchContextBufferPropertyInfo = Buffer
type AttrLabel SearchContextBufferPropertyInfo = "buffer"
attrGet _ = getSearchContextBuffer
attrSet _ = undefined
attrConstruct _ = constructSearchContextBuffer
attrClear _ = undefined
-- VVV Prop "highlight"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
-- Nullable: (Just False,Just False)
getSearchContextHighlight :: (MonadIO m, SearchContextK o) => o -> m Bool
getSearchContextHighlight obj = liftIO $ getObjectPropertyBool obj "highlight"
setSearchContextHighlight :: (MonadIO m, SearchContextK o) => o -> Bool -> m ()
setSearchContextHighlight obj val = liftIO $ setObjectPropertyBool obj "highlight" val
constructSearchContextHighlight :: Bool -> IO ([Char], GValue)
constructSearchContextHighlight val = constructObjectPropertyBool "highlight" val
data SearchContextHighlightPropertyInfo
instance AttrInfo SearchContextHighlightPropertyInfo where
type AttrAllowedOps SearchContextHighlightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SearchContextHighlightPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SearchContextHighlightPropertyInfo = SearchContextK
type AttrGetType SearchContextHighlightPropertyInfo = Bool
type AttrLabel SearchContextHighlightPropertyInfo = "highlight"
attrGet _ = getSearchContextHighlight
attrSet _ = setSearchContextHighlight
attrConstruct _ = constructSearchContextHighlight
attrClear _ = undefined
-- VVV Prop "match-style"
-- Type: TInterface "GtkSource" "Style"
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
-- Nullable: (Just False,Just True)
getSearchContextMatchStyle :: (MonadIO m, SearchContextK o) => o -> m Style
getSearchContextMatchStyle obj = liftIO $ checkUnexpectedNothing "getSearchContextMatchStyle" $ getObjectPropertyObject obj "match-style" Style
setSearchContextMatchStyle :: (MonadIO m, SearchContextK o, StyleK a) => o -> a -> m ()
setSearchContextMatchStyle obj val = liftIO $ setObjectPropertyObject obj "match-style" (Just val)
constructSearchContextMatchStyle :: (StyleK a) => a -> IO ([Char], GValue)
constructSearchContextMatchStyle val = constructObjectPropertyObject "match-style" (Just val)
clearSearchContextMatchStyle :: (MonadIO m, SearchContextK o) => o -> m ()
clearSearchContextMatchStyle obj = liftIO $ setObjectPropertyObject obj "match-style" (Nothing :: Maybe Style)
data SearchContextMatchStylePropertyInfo
instance AttrInfo SearchContextMatchStylePropertyInfo where
type AttrAllowedOps SearchContextMatchStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SearchContextMatchStylePropertyInfo = StyleK
type AttrBaseTypeConstraint SearchContextMatchStylePropertyInfo = SearchContextK
type AttrGetType SearchContextMatchStylePropertyInfo = Style
type AttrLabel SearchContextMatchStylePropertyInfo = "match-style"
attrGet _ = getSearchContextMatchStyle
attrSet _ = setSearchContextMatchStyle
attrConstruct _ = constructSearchContextMatchStyle
attrClear _ = clearSearchContextMatchStyle
-- VVV Prop "occurrences-count"
-- Type: TBasicType TInt
-- Flags: [PropertyReadable]
-- Nullable: (Just False,Nothing)
getSearchContextOccurrencesCount :: (MonadIO m, SearchContextK o) => o -> m Int32
getSearchContextOccurrencesCount obj = liftIO $ getObjectPropertyInt32 obj "occurrences-count"
data SearchContextOccurrencesCountPropertyInfo
instance AttrInfo SearchContextOccurrencesCountPropertyInfo where
type AttrAllowedOps SearchContextOccurrencesCountPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint SearchContextOccurrencesCountPropertyInfo = (~) ()
type AttrBaseTypeConstraint SearchContextOccurrencesCountPropertyInfo = SearchContextK
type AttrGetType SearchContextOccurrencesCountPropertyInfo = Int32
type AttrLabel SearchContextOccurrencesCountPropertyInfo = "occurrences-count"
attrGet _ = getSearchContextOccurrencesCount
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
-- VVV Prop "regex-error"
-- Type: TBasicType TPtr
-- Flags: [PropertyReadable]
-- Nullable: (Nothing,Nothing)
getSearchContextRegexError :: (MonadIO m, SearchContextK o) => o -> m (Ptr ())
getSearchContextRegexError obj = liftIO $ getObjectPropertyPtr obj "regex-error"
data SearchContextRegexErrorPropertyInfo
instance AttrInfo SearchContextRegexErrorPropertyInfo where
type AttrAllowedOps SearchContextRegexErrorPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint SearchContextRegexErrorPropertyInfo = (~) ()
type AttrBaseTypeConstraint SearchContextRegexErrorPropertyInfo = SearchContextK
type AttrGetType SearchContextRegexErrorPropertyInfo = (Ptr ())
type AttrLabel SearchContextRegexErrorPropertyInfo = "regex-error"
attrGet _ = getSearchContextRegexError
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
-- VVV Prop "settings"
-- Type: TInterface "GtkSource" "SearchSettings"
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]
-- Nullable: (Just False,Just True)
getSearchContextSettings :: (MonadIO m, SearchContextK o) => o -> m SearchSettings
getSearchContextSettings obj = liftIO $ checkUnexpectedNothing "getSearchContextSettings" $ getObjectPropertyObject obj "settings" SearchSettings
setSearchContextSettings :: (MonadIO m, SearchContextK o, SearchSettingsK a) => o -> a -> m ()
setSearchContextSettings obj val = liftIO $ setObjectPropertyObject obj "settings" (Just val)
constructSearchContextSettings :: (SearchSettingsK a) => a -> IO ([Char], GValue)
constructSearchContextSettings val = constructObjectPropertyObject "settings" (Just val)
clearSearchContextSettings :: (MonadIO m, SearchContextK o) => o -> m ()
clearSearchContextSettings obj = liftIO $ setObjectPropertyObject obj "settings" (Nothing :: Maybe SearchSettings)
data SearchContextSettingsPropertyInfo
instance AttrInfo SearchContextSettingsPropertyInfo where
type AttrAllowedOps SearchContextSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SearchContextSettingsPropertyInfo = SearchSettingsK
type AttrBaseTypeConstraint SearchContextSettingsPropertyInfo = SearchContextK
type AttrGetType SearchContextSettingsPropertyInfo = SearchSettings
type AttrLabel SearchContextSettingsPropertyInfo = "settings"
attrGet _ = getSearchContextSettings
attrSet _ = setSearchContextSettings
attrConstruct _ = constructSearchContextSettings
attrClear _ = clearSearchContextSettings
type instance AttributeList SearchContext = SearchContextAttributeList
type SearchContextAttributeList = ('[ '("buffer", SearchContextBufferPropertyInfo), '("highlight", SearchContextHighlightPropertyInfo), '("matchStyle", SearchContextMatchStylePropertyInfo), '("occurrencesCount", SearchContextOccurrencesCountPropertyInfo), '("regexError", SearchContextRegexErrorPropertyInfo), '("settings", SearchContextSettingsPropertyInfo)] :: [(Symbol, *)])
searchContextBuffer :: AttrLabelProxy "buffer"
searchContextBuffer = AttrLabelProxy
searchContextHighlight :: AttrLabelProxy "highlight"
searchContextHighlight = AttrLabelProxy
searchContextMatchStyle :: AttrLabelProxy "matchStyle"
searchContextMatchStyle = AttrLabelProxy
searchContextOccurrencesCount :: AttrLabelProxy "occurrencesCount"
searchContextOccurrencesCount = AttrLabelProxy
searchContextRegexError :: AttrLabelProxy "regexError"
searchContextRegexError = AttrLabelProxy
searchContextSettings :: AttrLabelProxy "settings"
searchContextSettings = AttrLabelProxy
type instance SignalList SearchContext = SearchContextSignalList
type SearchContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method SearchContext::new
-- method type : Constructor
-- Args : [Arg {argCName = "buffer", argType = TInterface "GtkSource" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "GtkSource" "SearchSettings", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "GtkSource" "SearchContext")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_new" gtk_source_search_context_new ::
Ptr Buffer -> -- buffer : TInterface "GtkSource" "Buffer"
Ptr SearchSettings -> -- settings : TInterface "GtkSource" "SearchSettings"
IO (Ptr SearchContext)
searchContextNew ::
(MonadIO m, BufferK a, SearchSettingsK b) =>
a -- buffer
-> Maybe (b) -- settings
-> m SearchContext -- result
searchContextNew buffer settings = liftIO $ do
let buffer' = unsafeManagedPtrCastPtr buffer
maybeSettings <- case settings of
Nothing -> return nullPtr
Just jSettings -> do
let jSettings' = unsafeManagedPtrCastPtr jSettings
return jSettings'
result <- gtk_source_search_context_new buffer' maybeSettings
checkUnexpectedReturnNULL "gtk_source_search_context_new" result
result' <- (wrapObject SearchContext) result
touchManagedPtr buffer
whenJust settings touchManagedPtr
return result'
-- method SearchContext::backward
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_backward" gtk_source_search_context_backward ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
Ptr Gtk.TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr Gtk.TextIter -> -- match_start : TInterface "Gtk" "TextIter"
Ptr Gtk.TextIter -> -- match_end : TInterface "Gtk" "TextIter"
IO CInt
searchContextBackward ::
(MonadIO m, SearchContextK a) =>
a -- _obj
-> Gtk.TextIter -- iter
-> m (Bool,Gtk.TextIter,Gtk.TextIter) -- result
searchContextBackward _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
matchStart <- callocBoxedBytes 80 :: IO (Ptr Gtk.TextIter)
matchEnd <- callocBoxedBytes 80 :: IO (Ptr Gtk.TextIter)
result <- gtk_source_search_context_backward _obj' iter' matchStart matchEnd
let result' = (/= 0) result
matchStart' <- (wrapBoxed Gtk.TextIter) matchStart
matchEnd' <- (wrapBoxed Gtk.TextIter) matchEnd
touchManagedPtr _obj
touchManagedPtr iter
return (result', matchStart', matchEnd')
data SearchContextBackwardMethodInfo
instance (signature ~ (Gtk.TextIter -> m (Bool,Gtk.TextIter,Gtk.TextIter)), MonadIO m, SearchContextK a) => MethodInfo SearchContextBackwardMethodInfo a signature where
overloadedMethod _ = searchContextBackward
-- method SearchContext::backward_async
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_backward_async" gtk_source_search_context_backward_async ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
Ptr Gtk.TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TPtr
IO ()
searchContextBackwardAsync ::
(MonadIO m, SearchContextK a, Gio.CancellableK b) =>
a -- _obj
-> Gtk.TextIter -- iter
-> Maybe (b) -- cancellable
-> Maybe (Gio.AsyncReadyCallback) -- callback
-> m () -- result
searchContextBackwardAsync _obj iter cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
gtk_source_search_context_backward_async _obj' iter' maybeCancellable maybeCallback userData
touchManagedPtr _obj
touchManagedPtr iter
whenJust cancellable touchManagedPtr
return ()
data SearchContextBackwardAsyncMethodInfo
instance (signature ~ (Gtk.TextIter -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, SearchContextK a, Gio.CancellableK b) => MethodInfo SearchContextBackwardAsyncMethodInfo a signature where
overloadedMethod _ = searchContextBackwardAsync
-- method SearchContext::backward_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False
foreign import ccall "gtk_source_search_context_backward_finish" gtk_source_search_context_backward_finish ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult"
Ptr Gtk.TextIter -> -- match_start : TInterface "Gtk" "TextIter"
Ptr Gtk.TextIter -> -- match_end : TInterface "Gtk" "TextIter"
Ptr (Ptr GError) -> -- error
IO CInt
searchContextBackwardFinish ::
(MonadIO m, SearchContextK a, Gio.AsyncResultK b) =>
a -- _obj
-> b -- result_
-> m (Gtk.TextIter,Gtk.TextIter) -- result
searchContextBackwardFinish _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let result_' = unsafeManagedPtrCastPtr result_
matchStart <- callocBoxedBytes 80 :: IO (Ptr Gtk.TextIter)
matchEnd <- callocBoxedBytes 80 :: IO (Ptr Gtk.TextIter)
onException (do
_ <- propagateGError $ gtk_source_search_context_backward_finish _obj' result_' matchStart matchEnd
matchStart' <- (wrapBoxed Gtk.TextIter) matchStart
matchEnd' <- (wrapBoxed Gtk.TextIter) matchEnd
touchManagedPtr _obj
touchManagedPtr result_
return (matchStart', matchEnd')
) (do
freeMem matchStart
freeMem matchEnd
)
data SearchContextBackwardFinishMethodInfo
instance (signature ~ (b -> m (Gtk.TextIter,Gtk.TextIter)), MonadIO m, SearchContextK a, Gio.AsyncResultK b) => MethodInfo SearchContextBackwardFinishMethodInfo a signature where
overloadedMethod _ = searchContextBackwardFinish
-- method SearchContext::forward
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_forward" gtk_source_search_context_forward ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
Ptr Gtk.TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr Gtk.TextIter -> -- match_start : TInterface "Gtk" "TextIter"
Ptr Gtk.TextIter -> -- match_end : TInterface "Gtk" "TextIter"
IO CInt
searchContextForward ::
(MonadIO m, SearchContextK a) =>
a -- _obj
-> Gtk.TextIter -- iter
-> m (Bool,Gtk.TextIter,Gtk.TextIter) -- result
searchContextForward _obj iter = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
matchStart <- callocBoxedBytes 80 :: IO (Ptr Gtk.TextIter)
matchEnd <- callocBoxedBytes 80 :: IO (Ptr Gtk.TextIter)
result <- gtk_source_search_context_forward _obj' iter' matchStart matchEnd
let result' = (/= 0) result
matchStart' <- (wrapBoxed Gtk.TextIter) matchStart
matchEnd' <- (wrapBoxed Gtk.TextIter) matchEnd
touchManagedPtr _obj
touchManagedPtr iter
return (result', matchStart', matchEnd')
data SearchContextForwardMethodInfo
instance (signature ~ (Gtk.TextIter -> m (Bool,Gtk.TextIter,Gtk.TextIter)), MonadIO m, SearchContextK a) => MethodInfo SearchContextForwardMethodInfo a signature where
overloadedMethod _ = searchContextForward
-- method SearchContext::forward_async
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_forward_async" gtk_source_search_context_forward_async ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
Ptr Gtk.TextIter -> -- iter : TInterface "Gtk" "TextIter"
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TPtr
IO ()
searchContextForwardAsync ::
(MonadIO m, SearchContextK a, Gio.CancellableK b) =>
a -- _obj
-> Gtk.TextIter -- iter
-> Maybe (b) -- cancellable
-> Maybe (Gio.AsyncReadyCallback) -- callback
-> m () -- result
searchContextForwardAsync _obj iter cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let iter' = unsafeManagedPtrGetPtr iter
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
gtk_source_search_context_forward_async _obj' iter' maybeCancellable maybeCallback userData
touchManagedPtr _obj
touchManagedPtr iter
whenJust cancellable touchManagedPtr
return ()
data SearchContextForwardAsyncMethodInfo
instance (signature ~ (Gtk.TextIter -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, SearchContextK a, Gio.CancellableK b) => MethodInfo SearchContextForwardAsyncMethodInfo a signature where
overloadedMethod _ = searchContextForwardAsync
-- method SearchContext::forward_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False
foreign import ccall "gtk_source_search_context_forward_finish" gtk_source_search_context_forward_finish ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult"
Ptr Gtk.TextIter -> -- match_start : TInterface "Gtk" "TextIter"
Ptr Gtk.TextIter -> -- match_end : TInterface "Gtk" "TextIter"
Ptr (Ptr GError) -> -- error
IO CInt
searchContextForwardFinish ::
(MonadIO m, SearchContextK a, Gio.AsyncResultK b) =>
a -- _obj
-> b -- result_
-> m (Gtk.TextIter,Gtk.TextIter) -- result
searchContextForwardFinish _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let result_' = unsafeManagedPtrCastPtr result_
matchStart <- callocBoxedBytes 80 :: IO (Ptr Gtk.TextIter)
matchEnd <- callocBoxedBytes 80 :: IO (Ptr Gtk.TextIter)
onException (do
_ <- propagateGError $ gtk_source_search_context_forward_finish _obj' result_' matchStart matchEnd
matchStart' <- (wrapBoxed Gtk.TextIter) matchStart
matchEnd' <- (wrapBoxed Gtk.TextIter) matchEnd
touchManagedPtr _obj
touchManagedPtr result_
return (matchStart', matchEnd')
) (do
freeMem matchStart
freeMem matchEnd
)
data SearchContextForwardFinishMethodInfo
instance (signature ~ (b -> m (Gtk.TextIter,Gtk.TextIter)), MonadIO m, SearchContextK a, Gio.AsyncResultK b) => MethodInfo SearchContextForwardFinishMethodInfo a signature where
overloadedMethod _ = searchContextForwardFinish
-- method SearchContext::get_buffer
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "GtkSource" "Buffer")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_get_buffer" gtk_source_search_context_get_buffer ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
IO (Ptr Buffer)
searchContextGetBuffer ::
(MonadIO m, SearchContextK a) =>
a -- _obj
-> m Buffer -- result
searchContextGetBuffer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_source_search_context_get_buffer _obj'
checkUnexpectedReturnNULL "gtk_source_search_context_get_buffer" result
result' <- (newObject Buffer) result
touchManagedPtr _obj
return result'
data SearchContextGetBufferMethodInfo
instance (signature ~ (m Buffer), MonadIO m, SearchContextK a) => MethodInfo SearchContextGetBufferMethodInfo a signature where
overloadedMethod _ = searchContextGetBuffer
-- method SearchContext::get_highlight
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_get_highlight" gtk_source_search_context_get_highlight ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
IO CInt
searchContextGetHighlight ::
(MonadIO m, SearchContextK a) =>
a -- _obj
-> m Bool -- result
searchContextGetHighlight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_source_search_context_get_highlight _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data SearchContextGetHighlightMethodInfo
instance (signature ~ (m Bool), MonadIO m, SearchContextK a) => MethodInfo SearchContextGetHighlightMethodInfo a signature where
overloadedMethod _ = searchContextGetHighlight
-- method SearchContext::get_match_style
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "GtkSource" "Style")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_get_match_style" gtk_source_search_context_get_match_style ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
IO (Ptr Style)
searchContextGetMatchStyle ::
(MonadIO m, SearchContextK a) =>
a -- _obj
-> m Style -- result
searchContextGetMatchStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_source_search_context_get_match_style _obj'
checkUnexpectedReturnNULL "gtk_source_search_context_get_match_style" result
result' <- (newObject Style) result
touchManagedPtr _obj
return result'
data SearchContextGetMatchStyleMethodInfo
instance (signature ~ (m Style), MonadIO m, SearchContextK a) => MethodInfo SearchContextGetMatchStyleMethodInfo a signature where
overloadedMethod _ = searchContextGetMatchStyle
-- method SearchContext::get_occurrence_position
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TInt)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_get_occurrence_position" gtk_source_search_context_get_occurrence_position ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
Ptr Gtk.TextIter -> -- match_start : TInterface "Gtk" "TextIter"
Ptr Gtk.TextIter -> -- match_end : TInterface "Gtk" "TextIter"
IO Int32
searchContextGetOccurrencePosition ::
(MonadIO m, SearchContextK a) =>
a -- _obj
-> Gtk.TextIter -- matchStart
-> Gtk.TextIter -- matchEnd
-> m Int32 -- result
searchContextGetOccurrencePosition _obj matchStart matchEnd = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let matchStart' = unsafeManagedPtrGetPtr matchStart
let matchEnd' = unsafeManagedPtrGetPtr matchEnd
result <- gtk_source_search_context_get_occurrence_position _obj' matchStart' matchEnd'
touchManagedPtr _obj
touchManagedPtr matchStart
touchManagedPtr matchEnd
return result
data SearchContextGetOccurrencePositionMethodInfo
instance (signature ~ (Gtk.TextIter -> Gtk.TextIter -> m Int32), MonadIO m, SearchContextK a) => MethodInfo SearchContextGetOccurrencePositionMethodInfo a signature where
overloadedMethod _ = searchContextGetOccurrencePosition
-- method SearchContext::get_occurrences_count
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TInt)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_get_occurrences_count" gtk_source_search_context_get_occurrences_count ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
IO Int32
searchContextGetOccurrencesCount ::
(MonadIO m, SearchContextK a) =>
a -- _obj
-> m Int32 -- result
searchContextGetOccurrencesCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_source_search_context_get_occurrences_count _obj'
touchManagedPtr _obj
return result
data SearchContextGetOccurrencesCountMethodInfo
instance (signature ~ (m Int32), MonadIO m, SearchContextK a) => MethodInfo SearchContextGetOccurrencesCountMethodInfo a signature where
overloadedMethod _ = searchContextGetOccurrencesCount
-- method SearchContext::get_regex_error
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just TError
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_get_regex_error" gtk_source_search_context_get_regex_error ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
IO (Ptr GError)
searchContextGetRegexError ::
(MonadIO m, SearchContextK a) =>
a -- _obj
-> m (Maybe GError) -- result
searchContextGetRegexError _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_source_search_context_get_regex_error _obj'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapBoxed GError) result'
return result''
touchManagedPtr _obj
return maybeResult
data SearchContextGetRegexErrorMethodInfo
instance (signature ~ (m (Maybe GError)), MonadIO m, SearchContextK a) => MethodInfo SearchContextGetRegexErrorMethodInfo a signature where
overloadedMethod _ = searchContextGetRegexError
-- method SearchContext::get_settings
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "GtkSource" "SearchSettings")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_get_settings" gtk_source_search_context_get_settings ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
IO (Ptr SearchSettings)
searchContextGetSettings ::
(MonadIO m, SearchContextK a) =>
a -- _obj
-> m SearchSettings -- result
searchContextGetSettings _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_source_search_context_get_settings _obj'
checkUnexpectedReturnNULL "gtk_source_search_context_get_settings" result
result' <- (newObject SearchSettings) result
touchManagedPtr _obj
return result'
data SearchContextGetSettingsMethodInfo
instance (signature ~ (m SearchSettings), MonadIO m, SearchContextK a) => MethodInfo SearchContextGetSettingsMethodInfo a signature where
overloadedMethod _ = searchContextGetSettings
-- method SearchContext::replace
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace_length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False
foreign import ccall "gtk_source_search_context_replace" gtk_source_search_context_replace ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
Ptr Gtk.TextIter -> -- match_start : TInterface "Gtk" "TextIter"
Ptr Gtk.TextIter -> -- match_end : TInterface "Gtk" "TextIter"
CString -> -- replace : TBasicType TUTF8
Int32 -> -- replace_length : TBasicType TInt
Ptr (Ptr GError) -> -- error
IO CInt
searchContextReplace ::
(MonadIO m, SearchContextK a) =>
a -- _obj
-> Gtk.TextIter -- matchStart
-> Gtk.TextIter -- matchEnd
-> T.Text -- replace
-> Int32 -- replaceLength
-> m () -- result
searchContextReplace _obj matchStart matchEnd replace replaceLength = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let matchStart' = unsafeManagedPtrGetPtr matchStart
let matchEnd' = unsafeManagedPtrGetPtr matchEnd
replace' <- textToCString replace
onException (do
_ <- propagateGError $ gtk_source_search_context_replace _obj' matchStart' matchEnd' replace' replaceLength
touchManagedPtr _obj
touchManagedPtr matchStart
touchManagedPtr matchEnd
freeMem replace'
return ()
) (do
freeMem replace'
)
data SearchContextReplaceMethodInfo
instance (signature ~ (Gtk.TextIter -> Gtk.TextIter -> T.Text -> Int32 -> m ()), MonadIO m, SearchContextK a) => MethodInfo SearchContextReplaceMethodInfo a signature where
overloadedMethod _ = searchContextReplace
-- method SearchContext::replace_all
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace_length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TUInt)
-- throws : True
-- Skip return : False
foreign import ccall "gtk_source_search_context_replace_all" gtk_source_search_context_replace_all ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
CString -> -- replace : TBasicType TUTF8
Int32 -> -- replace_length : TBasicType TInt
Ptr (Ptr GError) -> -- error
IO Word32
searchContextReplaceAll ::
(MonadIO m, SearchContextK a) =>
a -- _obj
-> T.Text -- replace
-> Int32 -- replaceLength
-> m Word32 -- result
searchContextReplaceAll _obj replace replaceLength = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
replace' <- textToCString replace
onException (do
result <- propagateGError $ gtk_source_search_context_replace_all _obj' replace' replaceLength
touchManagedPtr _obj
freeMem replace'
return result
) (do
freeMem replace'
)
data SearchContextReplaceAllMethodInfo
instance (signature ~ (T.Text -> Int32 -> m Word32), MonadIO m, SearchContextK a) => MethodInfo SearchContextReplaceAllMethodInfo a signature where
overloadedMethod _ = searchContextReplaceAll
-- method SearchContext::set_highlight
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "highlight", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_set_highlight" gtk_source_search_context_set_highlight ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
CInt -> -- highlight : TBasicType TBoolean
IO ()
searchContextSetHighlight ::
(MonadIO m, SearchContextK a) =>
a -- _obj
-> Bool -- highlight
-> m () -- result
searchContextSetHighlight _obj highlight = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let highlight' = (fromIntegral . fromEnum) highlight
gtk_source_search_context_set_highlight _obj' highlight'
touchManagedPtr _obj
return ()
data SearchContextSetHighlightMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, SearchContextK a) => MethodInfo SearchContextSetHighlightMethodInfo a signature where
overloadedMethod _ = searchContextSetHighlight
-- method SearchContext::set_match_style
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_style", argType = TInterface "GtkSource" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_set_match_style" gtk_source_search_context_set_match_style ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
Ptr Style -> -- match_style : TInterface "GtkSource" "Style"
IO ()
searchContextSetMatchStyle ::
(MonadIO m, SearchContextK a, StyleK b) =>
a -- _obj
-> Maybe (b) -- matchStyle
-> m () -- result
searchContextSetMatchStyle _obj matchStyle = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeMatchStyle <- case matchStyle of
Nothing -> return nullPtr
Just jMatchStyle -> do
let jMatchStyle' = unsafeManagedPtrCastPtr jMatchStyle
return jMatchStyle'
gtk_source_search_context_set_match_style _obj' maybeMatchStyle
touchManagedPtr _obj
whenJust matchStyle touchManagedPtr
return ()
data SearchContextSetMatchStyleMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, SearchContextK a, StyleK b) => MethodInfo SearchContextSetMatchStyleMethodInfo a signature where
overloadedMethod _ = searchContextSetMatchStyle
-- method SearchContext::set_settings
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "GtkSource" "SearchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "GtkSource" "SearchSettings", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False
foreign import ccall "gtk_source_search_context_set_settings" gtk_source_search_context_set_settings ::
Ptr SearchContext -> -- _obj : TInterface "GtkSource" "SearchContext"
Ptr SearchSettings -> -- settings : TInterface "GtkSource" "SearchSettings"
IO ()
searchContextSetSettings ::
(MonadIO m, SearchContextK a, SearchSettingsK b) =>
a -- _obj
-> Maybe (b) -- settings
-> m () -- result
searchContextSetSettings _obj settings = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeSettings <- case settings of
Nothing -> return nullPtr
Just jSettings -> do
let jSettings' = unsafeManagedPtrCastPtr jSettings
return jSettings'
gtk_source_search_context_set_settings _obj' maybeSettings
touchManagedPtr _obj
whenJust settings touchManagedPtr
return ()
data SearchContextSetSettingsMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, SearchContextK a, SearchSettingsK b) => MethodInfo SearchContextSetSettingsMethodInfo a signature where
overloadedMethod _ = searchContextSetSettings