{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkSource.Objects.SearchContext
(
SearchContext(..) ,
IsSearchContext ,
toSearchContext ,
#if defined(ENABLE_OVERLOADING)
ResolveSearchContextMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SearchContextBackwardMethodInfo ,
#endif
searchContextBackward ,
#if defined(ENABLE_OVERLOADING)
SearchContextBackward2MethodInfo ,
#endif
searchContextBackward2 ,
#if defined(ENABLE_OVERLOADING)
SearchContextBackwardAsyncMethodInfo ,
#endif
searchContextBackwardAsync ,
#if defined(ENABLE_OVERLOADING)
SearchContextBackwardFinishMethodInfo ,
#endif
searchContextBackwardFinish ,
#if defined(ENABLE_OVERLOADING)
SearchContextBackwardFinish2MethodInfo ,
#endif
searchContextBackwardFinish2 ,
#if defined(ENABLE_OVERLOADING)
SearchContextForwardMethodInfo ,
#endif
searchContextForward ,
#if defined(ENABLE_OVERLOADING)
SearchContextForward2MethodInfo ,
#endif
searchContextForward2 ,
#if defined(ENABLE_OVERLOADING)
SearchContextForwardAsyncMethodInfo ,
#endif
searchContextForwardAsync ,
#if defined(ENABLE_OVERLOADING)
SearchContextForwardFinishMethodInfo ,
#endif
searchContextForwardFinish ,
#if defined(ENABLE_OVERLOADING)
SearchContextForwardFinish2MethodInfo ,
#endif
searchContextForwardFinish2 ,
#if defined(ENABLE_OVERLOADING)
SearchContextGetBufferMethodInfo ,
#endif
searchContextGetBuffer ,
#if defined(ENABLE_OVERLOADING)
SearchContextGetHighlightMethodInfo ,
#endif
searchContextGetHighlight ,
#if defined(ENABLE_OVERLOADING)
SearchContextGetMatchStyleMethodInfo ,
#endif
searchContextGetMatchStyle ,
#if defined(ENABLE_OVERLOADING)
SearchContextGetOccurrencePositionMethodInfo,
#endif
searchContextGetOccurrencePosition ,
#if defined(ENABLE_OVERLOADING)
SearchContextGetOccurrencesCountMethodInfo,
#endif
searchContextGetOccurrencesCount ,
#if defined(ENABLE_OVERLOADING)
SearchContextGetRegexErrorMethodInfo ,
#endif
searchContextGetRegexError ,
#if defined(ENABLE_OVERLOADING)
SearchContextGetSettingsMethodInfo ,
#endif
searchContextGetSettings ,
searchContextNew ,
#if defined(ENABLE_OVERLOADING)
SearchContextReplaceMethodInfo ,
#endif
searchContextReplace ,
#if defined(ENABLE_OVERLOADING)
SearchContextReplace2MethodInfo ,
#endif
searchContextReplace2 ,
#if defined(ENABLE_OVERLOADING)
SearchContextReplaceAllMethodInfo ,
#endif
searchContextReplaceAll ,
#if defined(ENABLE_OVERLOADING)
SearchContextSetHighlightMethodInfo ,
#endif
searchContextSetHighlight ,
#if defined(ENABLE_OVERLOADING)
SearchContextSetMatchStyleMethodInfo ,
#endif
searchContextSetMatchStyle ,
#if defined(ENABLE_OVERLOADING)
SearchContextSetSettingsMethodInfo ,
#endif
searchContextSetSettings ,
#if defined(ENABLE_OVERLOADING)
SearchContextBufferPropertyInfo ,
#endif
constructSearchContextBuffer ,
getSearchContextBuffer ,
#if defined(ENABLE_OVERLOADING)
searchContextBuffer ,
#endif
#if defined(ENABLE_OVERLOADING)
SearchContextHighlightPropertyInfo ,
#endif
constructSearchContextHighlight ,
getSearchContextHighlight ,
#if defined(ENABLE_OVERLOADING)
searchContextHighlight ,
#endif
setSearchContextHighlight ,
#if defined(ENABLE_OVERLOADING)
SearchContextMatchStylePropertyInfo ,
#endif
clearSearchContextMatchStyle ,
constructSearchContextMatchStyle ,
getSearchContextMatchStyle ,
#if defined(ENABLE_OVERLOADING)
searchContextMatchStyle ,
#endif
setSearchContextMatchStyle ,
#if defined(ENABLE_OVERLOADING)
SearchContextOccurrencesCountPropertyInfo,
#endif
getSearchContextOccurrencesCount ,
#if defined(ENABLE_OVERLOADING)
searchContextOccurrencesCount ,
#endif
#if defined(ENABLE_OVERLOADING)
SearchContextRegexErrorPropertyInfo ,
#endif
getSearchContextRegexError ,
#if defined(ENABLE_OVERLOADING)
searchContextRegexError ,
#endif
#if defined(ENABLE_OVERLOADING)
SearchContextSettingsPropertyInfo ,
#endif
clearSearchContextSettings ,
constructSearchContextSettings ,
getSearchContextSettings ,
#if defined(ENABLE_OVERLOADING)
searchContextSettings ,
#endif
setSearchContextSettings ,
) 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.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.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 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.Gtk.Structs.TextIter as Gtk.TextIter
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Buffer as GtkSource.Buffer
import {-# SOURCE #-} qualified GI.GtkSource.Objects.SearchSettings as GtkSource.SearchSettings
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Style as GtkSource.Style
newtype SearchContext = SearchContext (SP.ManagedPtr SearchContext)
deriving (SearchContext -> SearchContext -> Bool
(SearchContext -> SearchContext -> Bool)
-> (SearchContext -> SearchContext -> Bool) -> Eq SearchContext
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SearchContext -> SearchContext -> Bool
$c/= :: SearchContext -> SearchContext -> Bool
== :: SearchContext -> SearchContext -> Bool
$c== :: SearchContext -> SearchContext -> Bool
Eq)
instance SP.ManagedPtrNewtype SearchContext where
toManagedPtr :: SearchContext -> ManagedPtr SearchContext
toManagedPtr (SearchContext ManagedPtr SearchContext
p) = ManagedPtr SearchContext
p
foreign import ccall "gtk_source_search_context_get_type"
c_gtk_source_search_context_get_type :: IO B.Types.GType
instance B.Types.TypedObject SearchContext where
glibType :: IO GType
glibType = IO GType
c_gtk_source_search_context_get_type
instance B.Types.GObject SearchContext
class (SP.GObject o, O.IsDescendantOf SearchContext o) => IsSearchContext o
instance (SP.GObject o, O.IsDescendantOf SearchContext o) => IsSearchContext o
instance O.HasParentTypes SearchContext
type instance O.ParentTypes SearchContext = '[GObject.Object.Object]
toSearchContext :: (MIO.MonadIO m, IsSearchContext o) => o -> m SearchContext
toSearchContext :: forall (m :: * -> *) o.
(MonadIO m, IsSearchContext o) =>
o -> m SearchContext
toSearchContext = IO SearchContext -> m SearchContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SearchContext -> m SearchContext)
-> (o -> IO SearchContext) -> o -> m SearchContext
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SearchContext -> SearchContext)
-> o -> IO SearchContext
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SearchContext -> SearchContext
SearchContext
instance B.GValue.IsGValue (Maybe SearchContext) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_source_search_context_get_type
gvalueSet_ :: Ptr GValue -> Maybe SearchContext -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SearchContext
P.Nothing = Ptr GValue -> Ptr SearchContext -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SearchContext
forall a. Ptr a
FP.nullPtr :: FP.Ptr SearchContext)
gvalueSet_ Ptr GValue
gv (P.Just SearchContext
obj) = SearchContext -> (Ptr SearchContext -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SearchContext
obj (Ptr GValue -> Ptr SearchContext -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SearchContext)
gvalueGet_ Ptr GValue
gv = do
Ptr SearchContext
ptr <- Ptr GValue -> IO (Ptr SearchContext)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SearchContext)
if Ptr SearchContext
ptr Ptr SearchContext -> Ptr SearchContext -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SearchContext
forall a. Ptr a
FP.nullPtr
then SearchContext -> Maybe SearchContext
forall a. a -> Maybe a
P.Just (SearchContext -> Maybe SearchContext)
-> IO SearchContext -> IO (Maybe SearchContext)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SearchContext -> SearchContext)
-> Ptr SearchContext -> IO SearchContext
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SearchContext -> SearchContext
SearchContext Ptr SearchContext
ptr
else Maybe SearchContext -> IO (Maybe SearchContext)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SearchContext
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSearchContextMethod (t :: Symbol) (o :: *) :: * where
ResolveSearchContextMethod "backward" o = SearchContextBackwardMethodInfo
ResolveSearchContextMethod "backward2" o = SearchContextBackward2MethodInfo
ResolveSearchContextMethod "backwardAsync" o = SearchContextBackwardAsyncMethodInfo
ResolveSearchContextMethod "backwardFinish" o = SearchContextBackwardFinishMethodInfo
ResolveSearchContextMethod "backwardFinish2" o = SearchContextBackwardFinish2MethodInfo
ResolveSearchContextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSearchContextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSearchContextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSearchContextMethod "forward" o = SearchContextForwardMethodInfo
ResolveSearchContextMethod "forward2" o = SearchContextForward2MethodInfo
ResolveSearchContextMethod "forwardAsync" o = SearchContextForwardAsyncMethodInfo
ResolveSearchContextMethod "forwardFinish" o = SearchContextForwardFinishMethodInfo
ResolveSearchContextMethod "forwardFinish2" o = SearchContextForwardFinish2MethodInfo
ResolveSearchContextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSearchContextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveSearchContextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSearchContextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSearchContextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSearchContextMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSearchContextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSearchContextMethod "replace" o = SearchContextReplaceMethodInfo
ResolveSearchContextMethod "replace2" o = SearchContextReplace2MethodInfo
ResolveSearchContextMethod "replaceAll" o = SearchContextReplaceAllMethodInfo
ResolveSearchContextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSearchContextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSearchContextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSearchContextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSearchContextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSearchContextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSearchContextMethod "getBuffer" o = SearchContextGetBufferMethodInfo
ResolveSearchContextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSearchContextMethod "getHighlight" o = SearchContextGetHighlightMethodInfo
ResolveSearchContextMethod "getMatchStyle" o = SearchContextGetMatchStyleMethodInfo
ResolveSearchContextMethod "getOccurrencePosition" o = SearchContextGetOccurrencePositionMethodInfo
ResolveSearchContextMethod "getOccurrencesCount" o = SearchContextGetOccurrencesCountMethodInfo
ResolveSearchContextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSearchContextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSearchContextMethod "getRegexError" o = SearchContextGetRegexErrorMethodInfo
ResolveSearchContextMethod "getSettings" o = SearchContextGetSettingsMethodInfo
ResolveSearchContextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSearchContextMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSearchContextMethod "setHighlight" o = SearchContextSetHighlightMethodInfo
ResolveSearchContextMethod "setMatchStyle" o = SearchContextSetMatchStyleMethodInfo
ResolveSearchContextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSearchContextMethod "setSettings" o = SearchContextSetSettingsMethodInfo
ResolveSearchContextMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSearchContextMethod t SearchContext, O.OverloadedMethod info SearchContext p) => OL.IsLabel t (SearchContext -> 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 ~ ResolveSearchContextMethod t SearchContext, O.OverloadedMethod info SearchContext p, R.HasField t SearchContext p) => R.HasField t SearchContext p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSearchContextMethod t SearchContext, O.OverloadedMethodInfo info SearchContext) => OL.IsLabel t (O.MethodProxy info SearchContext) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSearchContextBuffer :: (MonadIO m, IsSearchContext o) => o -> m GtkSource.Buffer.Buffer
getSearchContextBuffer :: forall (m :: * -> *) o.
(MonadIO m, IsSearchContext o) =>
o -> m Buffer
getSearchContextBuffer o
obj = IO Buffer -> m Buffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Buffer -> m Buffer) -> IO Buffer -> m Buffer
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Buffer) -> IO Buffer
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getSearchContextBuffer" (IO (Maybe Buffer) -> IO Buffer) -> IO (Maybe Buffer) -> IO Buffer
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Buffer -> Buffer) -> IO (Maybe Buffer)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"buffer" ManagedPtr Buffer -> Buffer
GtkSource.Buffer.Buffer
constructSearchContextBuffer :: (IsSearchContext o, MIO.MonadIO m, GtkSource.Buffer.IsBuffer a) => a -> m (GValueConstruct o)
constructSearchContextBuffer :: forall o (m :: * -> *) a.
(IsSearchContext o, MonadIO m, IsBuffer a) =>
a -> m (GValueConstruct o)
constructSearchContextBuffer a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"buffer" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data SearchContextBufferPropertyInfo
instance AttrInfo SearchContextBufferPropertyInfo where
type AttrAllowedOps SearchContextBufferPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SearchContextBufferPropertyInfo = IsSearchContext
type AttrSetTypeConstraint SearchContextBufferPropertyInfo = GtkSource.Buffer.IsBuffer
type AttrTransferTypeConstraint SearchContextBufferPropertyInfo = GtkSource.Buffer.IsBuffer
type AttrTransferType SearchContextBufferPropertyInfo = GtkSource.Buffer.Buffer
type AttrGetType SearchContextBufferPropertyInfo = GtkSource.Buffer.Buffer
type AttrLabel SearchContextBufferPropertyInfo = "buffer"
type AttrOrigin SearchContextBufferPropertyInfo = SearchContext
attrGet = getSearchContextBuffer
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo GtkSource.Buffer.Buffer v
attrConstruct = constructSearchContextBuffer
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.buffer"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#g:attr:buffer"
})
#endif
getSearchContextHighlight :: (MonadIO m, IsSearchContext o) => o -> m Bool
getSearchContextHighlight :: forall (m :: * -> *) o.
(MonadIO m, IsSearchContext o) =>
o -> m Bool
getSearchContextHighlight o
obj = IO Bool -> m Bool
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
"highlight"
setSearchContextHighlight :: (MonadIO m, IsSearchContext o) => o -> Bool -> m ()
setSearchContextHighlight :: forall (m :: * -> *) o.
(MonadIO m, IsSearchContext o) =>
o -> Bool -> m ()
setSearchContextHighlight o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"highlight" Bool
val
constructSearchContextHighlight :: (IsSearchContext o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructSearchContextHighlight :: forall o (m :: * -> *).
(IsSearchContext o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructSearchContextHighlight Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"highlight" Bool
val
#if defined(ENABLE_OVERLOADING)
data SearchContextHighlightPropertyInfo
instance AttrInfo SearchContextHighlightPropertyInfo where
type AttrAllowedOps SearchContextHighlightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint SearchContextHighlightPropertyInfo = IsSearchContext
type AttrSetTypeConstraint SearchContextHighlightPropertyInfo = (~) Bool
type AttrTransferTypeConstraint SearchContextHighlightPropertyInfo = (~) Bool
type AttrTransferType SearchContextHighlightPropertyInfo = Bool
type AttrGetType SearchContextHighlightPropertyInfo = Bool
type AttrLabel SearchContextHighlightPropertyInfo = "highlight"
type AttrOrigin SearchContextHighlightPropertyInfo = SearchContext
attrGet = getSearchContextHighlight
attrSet = setSearchContextHighlight
attrTransfer _ v = do
return v
attrConstruct = constructSearchContextHighlight
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.highlight"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#g:attr:highlight"
})
#endif
getSearchContextMatchStyle :: (MonadIO m, IsSearchContext o) => o -> m GtkSource.Style.Style
getSearchContextMatchStyle :: forall (m :: * -> *) o.
(MonadIO m, IsSearchContext o) =>
o -> m Style
getSearchContextMatchStyle o
obj = IO Style -> m Style
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Style -> m Style) -> IO Style -> m Style
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Style) -> IO Style
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getSearchContextMatchStyle" (IO (Maybe Style) -> IO Style) -> IO (Maybe Style) -> IO Style
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Style -> Style) -> IO (Maybe Style)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"match-style" ManagedPtr Style -> Style
GtkSource.Style.Style
setSearchContextMatchStyle :: (MonadIO m, IsSearchContext o, GtkSource.Style.IsStyle a) => o -> a -> m ()
setSearchContextMatchStyle :: forall (m :: * -> *) o a.
(MonadIO m, IsSearchContext o, IsStyle a) =>
o -> a -> m ()
setSearchContextMatchStyle o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"match-style" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructSearchContextMatchStyle :: (IsSearchContext o, MIO.MonadIO m, GtkSource.Style.IsStyle a) => a -> m (GValueConstruct o)
constructSearchContextMatchStyle :: forall o (m :: * -> *) a.
(IsSearchContext o, MonadIO m, IsStyle a) =>
a -> m (GValueConstruct o)
constructSearchContextMatchStyle a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"match-style" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearSearchContextMatchStyle :: (MonadIO m, IsSearchContext o) => o -> m ()
clearSearchContextMatchStyle :: forall (m :: * -> *) o. (MonadIO m, IsSearchContext o) => o -> m ()
clearSearchContextMatchStyle o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Style -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"match-style" (Maybe Style
forall a. Maybe a
Nothing :: Maybe GtkSource.Style.Style)
#if defined(ENABLE_OVERLOADING)
data SearchContextMatchStylePropertyInfo
instance AttrInfo SearchContextMatchStylePropertyInfo where
type AttrAllowedOps SearchContextMatchStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SearchContextMatchStylePropertyInfo = IsSearchContext
type AttrSetTypeConstraint SearchContextMatchStylePropertyInfo = GtkSource.Style.IsStyle
type AttrTransferTypeConstraint SearchContextMatchStylePropertyInfo = GtkSource.Style.IsStyle
type AttrTransferType SearchContextMatchStylePropertyInfo = GtkSource.Style.Style
type AttrGetType SearchContextMatchStylePropertyInfo = GtkSource.Style.Style
type AttrLabel SearchContextMatchStylePropertyInfo = "match-style"
type AttrOrigin SearchContextMatchStylePropertyInfo = SearchContext
attrGet = getSearchContextMatchStyle
attrSet = setSearchContextMatchStyle
attrTransfer _ v = do
unsafeCastTo GtkSource.Style.Style v
attrConstruct = constructSearchContextMatchStyle
attrClear = clearSearchContextMatchStyle
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.matchStyle"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#g:attr:matchStyle"
})
#endif
getSearchContextOccurrencesCount :: (MonadIO m, IsSearchContext o) => o -> m Int32
getSearchContextOccurrencesCount :: forall (m :: * -> *) o.
(MonadIO m, IsSearchContext o) =>
o -> m Int32
getSearchContextOccurrencesCount o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"occurrences-count"
#if defined(ENABLE_OVERLOADING)
data SearchContextOccurrencesCountPropertyInfo
instance AttrInfo SearchContextOccurrencesCountPropertyInfo where
type AttrAllowedOps SearchContextOccurrencesCountPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint SearchContextOccurrencesCountPropertyInfo = IsSearchContext
type AttrSetTypeConstraint SearchContextOccurrencesCountPropertyInfo = (~) ()
type AttrTransferTypeConstraint SearchContextOccurrencesCountPropertyInfo = (~) ()
type AttrTransferType SearchContextOccurrencesCountPropertyInfo = ()
type AttrGetType SearchContextOccurrencesCountPropertyInfo = Int32
type AttrLabel SearchContextOccurrencesCountPropertyInfo = "occurrences-count"
type AttrOrigin SearchContextOccurrencesCountPropertyInfo = SearchContext
attrGet = getSearchContextOccurrencesCount
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.occurrencesCount"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#g:attr:occurrencesCount"
})
#endif
getSearchContextRegexError :: (MonadIO m, IsSearchContext o) => o -> m (Ptr ())
getSearchContextRegexError :: forall (m :: * -> *) o.
(MonadIO m, IsSearchContext o) =>
o -> m (Ptr ())
getSearchContextRegexError o
obj = IO (Ptr ()) -> m (Ptr ())
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Ptr ())
forall a b. GObject a => a -> String -> IO (Ptr b)
B.Properties.getObjectPropertyPtr o
obj String
"regex-error"
#if defined(ENABLE_OVERLOADING)
data SearchContextRegexErrorPropertyInfo
instance AttrInfo SearchContextRegexErrorPropertyInfo where
type AttrAllowedOps SearchContextRegexErrorPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint SearchContextRegexErrorPropertyInfo = IsSearchContext
type AttrSetTypeConstraint SearchContextRegexErrorPropertyInfo = (~) ()
type AttrTransferTypeConstraint SearchContextRegexErrorPropertyInfo = (~) ()
type AttrTransferType SearchContextRegexErrorPropertyInfo = ()
type AttrGetType SearchContextRegexErrorPropertyInfo = (Ptr ())
type AttrLabel SearchContextRegexErrorPropertyInfo = "regex-error"
type AttrOrigin SearchContextRegexErrorPropertyInfo = SearchContext
attrGet = getSearchContextRegexError
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.regexError"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#g:attr:regexError"
})
#endif
getSearchContextSettings :: (MonadIO m, IsSearchContext o) => o -> m GtkSource.SearchSettings.SearchSettings
getSearchContextSettings :: forall (m :: * -> *) o.
(MonadIO m, IsSearchContext o) =>
o -> m SearchSettings
getSearchContextSettings o
obj = IO SearchSettings -> m SearchSettings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SearchSettings -> m SearchSettings)
-> IO SearchSettings -> m SearchSettings
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe SearchSettings) -> IO SearchSettings
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getSearchContextSettings" (IO (Maybe SearchSettings) -> IO SearchSettings)
-> IO (Maybe SearchSettings) -> IO SearchSettings
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr SearchSettings -> SearchSettings)
-> IO (Maybe SearchSettings)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"settings" ManagedPtr SearchSettings -> SearchSettings
GtkSource.SearchSettings.SearchSettings
setSearchContextSettings :: (MonadIO m, IsSearchContext o, GtkSource.SearchSettings.IsSearchSettings a) => o -> a -> m ()
setSearchContextSettings :: forall (m :: * -> *) o a.
(MonadIO m, IsSearchContext o, IsSearchSettings a) =>
o -> a -> m ()
setSearchContextSettings o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"settings" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructSearchContextSettings :: (IsSearchContext o, MIO.MonadIO m, GtkSource.SearchSettings.IsSearchSettings a) => a -> m (GValueConstruct o)
constructSearchContextSettings :: forall o (m :: * -> *) a.
(IsSearchContext o, MonadIO m, IsSearchSettings a) =>
a -> m (GValueConstruct o)
constructSearchContextSettings a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"settings" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearSearchContextSettings :: (MonadIO m, IsSearchContext o) => o -> m ()
clearSearchContextSettings :: forall (m :: * -> *) o. (MonadIO m, IsSearchContext o) => o -> m ()
clearSearchContextSettings o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe SearchSettings -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"settings" (Maybe SearchSettings
forall a. Maybe a
Nothing :: Maybe GtkSource.SearchSettings.SearchSettings)
#if defined(ENABLE_OVERLOADING)
data SearchContextSettingsPropertyInfo
instance AttrInfo SearchContextSettingsPropertyInfo where
type AttrAllowedOps SearchContextSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SearchContextSettingsPropertyInfo = IsSearchContext
type AttrSetTypeConstraint SearchContextSettingsPropertyInfo = GtkSource.SearchSettings.IsSearchSettings
type AttrTransferTypeConstraint SearchContextSettingsPropertyInfo = GtkSource.SearchSettings.IsSearchSettings
type AttrTransferType SearchContextSettingsPropertyInfo = GtkSource.SearchSettings.SearchSettings
type AttrGetType SearchContextSettingsPropertyInfo = GtkSource.SearchSettings.SearchSettings
type AttrLabel SearchContextSettingsPropertyInfo = "settings"
type AttrOrigin SearchContextSettingsPropertyInfo = SearchContext
attrGet = getSearchContextSettings
attrSet = setSearchContextSettings
attrTransfer _ v = do
unsafeCastTo GtkSource.SearchSettings.SearchSettings v
attrConstruct = constructSearchContextSettings
attrClear = clearSearchContextSettings
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.settings"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#g:attr:settings"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SearchContext
type instance O.AttributeList SearchContext = SearchContextAttributeList
type SearchContextAttributeList = ('[ '("buffer", SearchContextBufferPropertyInfo), '("highlight", SearchContextHighlightPropertyInfo), '("matchStyle", SearchContextMatchStylePropertyInfo), '("occurrencesCount", SearchContextOccurrencesCountPropertyInfo), '("regexError", SearchContextRegexErrorPropertyInfo), '("settings", SearchContextSettingsPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
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
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SearchContext = SearchContextSignalList
type SearchContextSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_search_context_new" gtk_source_search_context_new ::
Ptr GtkSource.Buffer.Buffer ->
Ptr GtkSource.SearchSettings.SearchSettings ->
IO (Ptr SearchContext)
searchContextNew ::
(B.CallStack.HasCallStack, MonadIO m, GtkSource.Buffer.IsBuffer a, GtkSource.SearchSettings.IsSearchSettings b) =>
a
-> Maybe (b)
-> m SearchContext
searchContextNew :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBuffer a, IsSearchSettings b) =>
a -> Maybe b -> m SearchContext
searchContextNew a
buffer Maybe b
settings = IO SearchContext -> m SearchContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SearchContext -> m SearchContext)
-> IO SearchContext -> m SearchContext
forall a b. (a -> b) -> a -> b
$ do
Ptr Buffer
buffer' <- a -> IO (Ptr Buffer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
Ptr SearchSettings
maybeSettings <- case Maybe b
settings of
Maybe b
Nothing -> Ptr SearchSettings -> IO (Ptr SearchSettings)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SearchSettings
forall a. Ptr a
nullPtr
Just b
jSettings -> do
Ptr SearchSettings
jSettings' <- b -> IO (Ptr SearchSettings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jSettings
Ptr SearchSettings -> IO (Ptr SearchSettings)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SearchSettings
jSettings'
Ptr SearchContext
result <- Ptr Buffer -> Ptr SearchSettings -> IO (Ptr SearchContext)
gtk_source_search_context_new Ptr Buffer
buffer' Ptr SearchSettings
maybeSettings
Text -> Ptr SearchContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"searchContextNew" Ptr SearchContext
result
SearchContext
result' <- ((ManagedPtr SearchContext -> SearchContext)
-> Ptr SearchContext -> IO SearchContext
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SearchContext -> SearchContext
SearchContext) Ptr SearchContext
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
settings b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
SearchContext -> IO SearchContext
forall (m :: * -> *) a. Monad m => a -> m a
return SearchContext
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_source_search_context_backward" gtk_source_search_context_backward ::
Ptr SearchContext ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO CInt
{-# DEPRECATED searchContextBackward ["(Since version 3.22)","Use 'GI.GtkSource.Objects.SearchContext.searchContextBackward2' instead."] #-}
searchContextBackward ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> Gtk.TextIter.TextIter
-> m ((Bool, Gtk.TextIter.TextIter, Gtk.TextIter.TextIter))
searchContextBackward :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> TextIter -> m (Bool, TextIter, TextIter)
searchContextBackward a
search TextIter
iter = IO (Bool, TextIter, TextIter) -> m (Bool, TextIter, TextIter)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TextIter, TextIter) -> m (Bool, TextIter, TextIter))
-> IO (Bool, TextIter, TextIter) -> m (Bool, TextIter, TextIter)
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter
matchStart <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextIter
matchEnd <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
CInt
result <- Ptr SearchContext
-> Ptr TextIter -> Ptr TextIter -> Ptr TextIter -> IO CInt
gtk_source_search_context_backward Ptr SearchContext
search' Ptr TextIter
iter' Ptr TextIter
matchStart Ptr TextIter
matchEnd
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter
matchStart' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchStart
TextIter
matchEnd' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchEnd
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
(Bool, TextIter, TextIter) -> IO (Bool, TextIter, TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TextIter
matchStart', TextIter
matchEnd')
#if defined(ENABLE_OVERLOADING)
data SearchContextBackwardMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> m ((Bool, Gtk.TextIter.TextIter, Gtk.TextIter.TextIter))), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextBackwardMethodInfo a signature where
overloadedMethod = searchContextBackward
instance O.OverloadedMethodInfo SearchContextBackwardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextBackward",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextBackward"
})
#endif
foreign import ccall "gtk_source_search_context_backward2" gtk_source_search_context_backward2 ::
Ptr SearchContext ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr CInt ->
IO CInt
searchContextBackward2 ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> Gtk.TextIter.TextIter
-> m ((Bool, Gtk.TextIter.TextIter, Gtk.TextIter.TextIter, Bool))
searchContextBackward2 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> TextIter -> m (Bool, TextIter, TextIter, Bool)
searchContextBackward2 a
search TextIter
iter = IO (Bool, TextIter, TextIter, Bool)
-> m (Bool, TextIter, TextIter, Bool)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TextIter, TextIter, Bool)
-> m (Bool, TextIter, TextIter, Bool))
-> IO (Bool, TextIter, TextIter, Bool)
-> m (Bool, TextIter, TextIter, Bool)
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter
matchStart <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextIter
matchEnd <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr CInt
hasWrappedAround <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
CInt
result <- Ptr SearchContext
-> Ptr TextIter
-> Ptr TextIter
-> Ptr TextIter
-> Ptr CInt
-> IO CInt
gtk_source_search_context_backward2 Ptr SearchContext
search' Ptr TextIter
iter' Ptr TextIter
matchStart Ptr TextIter
matchEnd Ptr CInt
hasWrappedAround
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter
matchStart' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchStart
TextIter
matchEnd' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchEnd
CInt
hasWrappedAround' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
hasWrappedAround
let hasWrappedAround'' :: Bool
hasWrappedAround'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
hasWrappedAround'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
hasWrappedAround
(Bool, TextIter, TextIter, Bool)
-> IO (Bool, TextIter, TextIter, Bool)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TextIter
matchStart', TextIter
matchEnd', Bool
hasWrappedAround'')
#if defined(ENABLE_OVERLOADING)
data SearchContextBackward2MethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> m ((Bool, Gtk.TextIter.TextIter, Gtk.TextIter.TextIter, Bool))), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextBackward2MethodInfo a signature where
overloadedMethod = searchContextBackward2
instance O.OverloadedMethodInfo SearchContextBackward2MethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextBackward2",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextBackward2"
})
#endif
foreign import ccall "gtk_source_search_context_backward_async" gtk_source_search_context_backward_async ::
Ptr SearchContext ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
searchContextBackwardAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a, Gio.Cancellable.IsCancellable b) =>
a
-> Gtk.TextIter.TextIter
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
searchContextBackwardAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSearchContext a, IsCancellable b) =>
a -> TextIter -> Maybe b -> Maybe AsyncReadyCallback -> m ()
searchContextBackwardAsync a
search TextIter
iter Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
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 (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 (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 (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 SearchContext
-> Ptr TextIter
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
gtk_source_search_context_backward_async Ptr SearchContext
search' Ptr TextIter
iter' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchContextBackwardAsyncMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSearchContext a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod SearchContextBackwardAsyncMethodInfo a signature where
overloadedMethod = searchContextBackwardAsync
instance O.OverloadedMethodInfo SearchContextBackwardAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextBackwardAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextBackwardAsync"
})
#endif
foreign import ccall "gtk_source_search_context_backward_finish" gtk_source_search_context_backward_finish ::
Ptr SearchContext ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED searchContextBackwardFinish ["(Since version 3.22)","Use 'GI.GtkSource.Objects.SearchContext.searchContextBackwardFinish2' instead."] #-}
searchContextBackwardFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ((Gtk.TextIter.TextIter, Gtk.TextIter.TextIter))
searchContextBackwardFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSearchContext a, IsAsyncResult b) =>
a -> b -> m (TextIter, TextIter)
searchContextBackwardFinish a
search b
result_ = IO (TextIter, TextIter) -> m (TextIter, TextIter)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (TextIter, TextIter) -> m (TextIter, TextIter))
-> IO (TextIter, TextIter) -> m (TextIter, TextIter)
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
Ptr TextIter
matchStart <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextIter
matchEnd <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
IO (TextIter, TextIter) -> IO () -> IO (TextIter, TextIter)
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 SearchContext
-> Ptr AsyncResult
-> Ptr TextIter
-> Ptr TextIter
-> Ptr (Ptr GError)
-> IO CInt
gtk_source_search_context_backward_finish Ptr SearchContext
search' Ptr AsyncResult
result_' Ptr TextIter
matchStart Ptr TextIter
matchEnd
TextIter
matchStart' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchStart
TextIter
matchEnd' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchEnd
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
(TextIter, TextIter) -> IO (TextIter, TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return (TextIter
matchStart', TextIter
matchEnd')
) (do
Ptr TextIter -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr TextIter
matchStart
Ptr TextIter -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr TextIter
matchEnd
)
#if defined(ENABLE_OVERLOADING)
data SearchContextBackwardFinishMethodInfo
instance (signature ~ (b -> m ((Gtk.TextIter.TextIter, Gtk.TextIter.TextIter))), MonadIO m, IsSearchContext a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod SearchContextBackwardFinishMethodInfo a signature where
overloadedMethod = searchContextBackwardFinish
instance O.OverloadedMethodInfo SearchContextBackwardFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextBackwardFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextBackwardFinish"
})
#endif
foreign import ccall "gtk_source_search_context_backward_finish2" gtk_source_search_context_backward_finish2 ::
Ptr SearchContext ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr CInt ->
Ptr (Ptr GError) ->
IO CInt
searchContextBackwardFinish2 ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ((Gtk.TextIter.TextIter, Gtk.TextIter.TextIter, Bool))
searchContextBackwardFinish2 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSearchContext a, IsAsyncResult b) =>
a -> b -> m (TextIter, TextIter, Bool)
searchContextBackwardFinish2 a
search b
result_ = IO (TextIter, TextIter, Bool) -> m (TextIter, TextIter, Bool)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (TextIter, TextIter, Bool) -> m (TextIter, TextIter, Bool))
-> IO (TextIter, TextIter, Bool) -> m (TextIter, TextIter, Bool)
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
Ptr TextIter
matchStart <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextIter
matchEnd <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr CInt
hasWrappedAround <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
IO (TextIter, TextIter, Bool)
-> IO () -> IO (TextIter, TextIter, Bool)
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 SearchContext
-> Ptr AsyncResult
-> Ptr TextIter
-> Ptr TextIter
-> Ptr CInt
-> Ptr (Ptr GError)
-> IO CInt
gtk_source_search_context_backward_finish2 Ptr SearchContext
search' Ptr AsyncResult
result_' Ptr TextIter
matchStart Ptr TextIter
matchEnd Ptr CInt
hasWrappedAround
TextIter
matchStart' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchStart
TextIter
matchEnd' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchEnd
CInt
hasWrappedAround' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
hasWrappedAround
let hasWrappedAround'' :: Bool
hasWrappedAround'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
hasWrappedAround'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
hasWrappedAround
(TextIter, TextIter, Bool) -> IO (TextIter, TextIter, Bool)
forall (m :: * -> *) a. Monad m => a -> m a
return (TextIter
matchStart', TextIter
matchEnd', Bool
hasWrappedAround'')
) (do
Ptr TextIter -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr TextIter
matchStart
Ptr TextIter -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr TextIter
matchEnd
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
hasWrappedAround
)
#if defined(ENABLE_OVERLOADING)
data SearchContextBackwardFinish2MethodInfo
instance (signature ~ (b -> m ((Gtk.TextIter.TextIter, Gtk.TextIter.TextIter, Bool))), MonadIO m, IsSearchContext a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod SearchContextBackwardFinish2MethodInfo a signature where
overloadedMethod = searchContextBackwardFinish2
instance O.OverloadedMethodInfo SearchContextBackwardFinish2MethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextBackwardFinish2",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextBackwardFinish2"
})
#endif
foreign import ccall "gtk_source_search_context_forward" gtk_source_search_context_forward ::
Ptr SearchContext ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO CInt
{-# DEPRECATED searchContextForward ["(Since version 3.22)","Use 'GI.GtkSource.Objects.SearchContext.searchContextForward2' instead."] #-}
searchContextForward ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> Gtk.TextIter.TextIter
-> m ((Bool, Gtk.TextIter.TextIter, Gtk.TextIter.TextIter))
searchContextForward :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> TextIter -> m (Bool, TextIter, TextIter)
searchContextForward a
search TextIter
iter = IO (Bool, TextIter, TextIter) -> m (Bool, TextIter, TextIter)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TextIter, TextIter) -> m (Bool, TextIter, TextIter))
-> IO (Bool, TextIter, TextIter) -> m (Bool, TextIter, TextIter)
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter
matchStart <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextIter
matchEnd <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
CInt
result <- Ptr SearchContext
-> Ptr TextIter -> Ptr TextIter -> Ptr TextIter -> IO CInt
gtk_source_search_context_forward Ptr SearchContext
search' Ptr TextIter
iter' Ptr TextIter
matchStart Ptr TextIter
matchEnd
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter
matchStart' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchStart
TextIter
matchEnd' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchEnd
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
(Bool, TextIter, TextIter) -> IO (Bool, TextIter, TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TextIter
matchStart', TextIter
matchEnd')
#if defined(ENABLE_OVERLOADING)
data SearchContextForwardMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> m ((Bool, Gtk.TextIter.TextIter, Gtk.TextIter.TextIter))), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextForwardMethodInfo a signature where
overloadedMethod = searchContextForward
instance O.OverloadedMethodInfo SearchContextForwardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextForward",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextForward"
})
#endif
foreign import ccall "gtk_source_search_context_forward2" gtk_source_search_context_forward2 ::
Ptr SearchContext ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr CInt ->
IO CInt
searchContextForward2 ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> Gtk.TextIter.TextIter
-> m ((Bool, Gtk.TextIter.TextIter, Gtk.TextIter.TextIter, Bool))
searchContextForward2 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> TextIter -> m (Bool, TextIter, TextIter, Bool)
searchContextForward2 a
search TextIter
iter = IO (Bool, TextIter, TextIter, Bool)
-> m (Bool, TextIter, TextIter, Bool)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TextIter, TextIter, Bool)
-> m (Bool, TextIter, TextIter, Bool))
-> IO (Bool, TextIter, TextIter, Bool)
-> m (Bool, TextIter, TextIter, Bool)
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr TextIter
matchStart <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextIter
matchEnd <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr CInt
hasWrappedAround <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
CInt
result <- Ptr SearchContext
-> Ptr TextIter
-> Ptr TextIter
-> Ptr TextIter
-> Ptr CInt
-> IO CInt
gtk_source_search_context_forward2 Ptr SearchContext
search' Ptr TextIter
iter' Ptr TextIter
matchStart Ptr TextIter
matchEnd Ptr CInt
hasWrappedAround
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
TextIter
matchStart' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchStart
TextIter
matchEnd' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchEnd
CInt
hasWrappedAround' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
hasWrappedAround
let hasWrappedAround'' :: Bool
hasWrappedAround'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
hasWrappedAround'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
hasWrappedAround
(Bool, TextIter, TextIter, Bool)
-> IO (Bool, TextIter, TextIter, Bool)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TextIter
matchStart', TextIter
matchEnd', Bool
hasWrappedAround'')
#if defined(ENABLE_OVERLOADING)
data SearchContextForward2MethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> m ((Bool, Gtk.TextIter.TextIter, Gtk.TextIter.TextIter, Bool))), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextForward2MethodInfo a signature where
overloadedMethod = searchContextForward2
instance O.OverloadedMethodInfo SearchContextForward2MethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextForward2",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextForward2"
})
#endif
foreign import ccall "gtk_source_search_context_forward_async" gtk_source_search_context_forward_async ::
Ptr SearchContext ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
searchContextForwardAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a, Gio.Cancellable.IsCancellable b) =>
a
-> Gtk.TextIter.TextIter
-> Maybe (b)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
searchContextForwardAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSearchContext a, IsCancellable b) =>
a -> TextIter -> Maybe b -> Maybe AsyncReadyCallback -> m ()
searchContextForwardAsync a
search TextIter
iter Maybe b
cancellable Maybe AsyncReadyCallback
callback = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr TextIter
iter' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
iter
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
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 (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 (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 (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 SearchContext
-> Ptr TextIter
-> Ptr Cancellable
-> FunPtr C_AsyncReadyCallback
-> Ptr ()
-> IO ()
gtk_source_search_context_forward_async Ptr SearchContext
search' Ptr TextIter
iter' Ptr Cancellable
maybeCancellable FunPtr C_AsyncReadyCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
iter
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchContextForwardAsyncMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSearchContext a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod SearchContextForwardAsyncMethodInfo a signature where
overloadedMethod = searchContextForwardAsync
instance O.OverloadedMethodInfo SearchContextForwardAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextForwardAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextForwardAsync"
})
#endif
foreign import ccall "gtk_source_search_context_forward_finish" gtk_source_search_context_forward_finish ::
Ptr SearchContext ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED searchContextForwardFinish ["(Since version 3.22)","Use 'GI.GtkSource.Objects.SearchContext.searchContextForwardFinish2' instead."] #-}
searchContextForwardFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ((Gtk.TextIter.TextIter, Gtk.TextIter.TextIter))
searchContextForwardFinish :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSearchContext a, IsAsyncResult b) =>
a -> b -> m (TextIter, TextIter)
searchContextForwardFinish a
search b
result_ = IO (TextIter, TextIter) -> m (TextIter, TextIter)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (TextIter, TextIter) -> m (TextIter, TextIter))
-> IO (TextIter, TextIter) -> m (TextIter, TextIter)
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
Ptr TextIter
matchStart <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextIter
matchEnd <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
IO (TextIter, TextIter) -> IO () -> IO (TextIter, TextIter)
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 SearchContext
-> Ptr AsyncResult
-> Ptr TextIter
-> Ptr TextIter
-> Ptr (Ptr GError)
-> IO CInt
gtk_source_search_context_forward_finish Ptr SearchContext
search' Ptr AsyncResult
result_' Ptr TextIter
matchStart Ptr TextIter
matchEnd
TextIter
matchStart' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchStart
TextIter
matchEnd' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchEnd
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
(TextIter, TextIter) -> IO (TextIter, TextIter)
forall (m :: * -> *) a. Monad m => a -> m a
return (TextIter
matchStart', TextIter
matchEnd')
) (do
Ptr TextIter -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr TextIter
matchStart
Ptr TextIter -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr TextIter
matchEnd
)
#if defined(ENABLE_OVERLOADING)
data SearchContextForwardFinishMethodInfo
instance (signature ~ (b -> m ((Gtk.TextIter.TextIter, Gtk.TextIter.TextIter))), MonadIO m, IsSearchContext a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod SearchContextForwardFinishMethodInfo a signature where
overloadedMethod = searchContextForwardFinish
instance O.OverloadedMethodInfo SearchContextForwardFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextForwardFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextForwardFinish"
})
#endif
foreign import ccall "gtk_source_search_context_forward_finish2" gtk_source_search_context_forward_finish2 ::
Ptr SearchContext ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
Ptr CInt ->
Ptr (Ptr GError) ->
IO CInt
searchContextForwardFinish2 ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m ((Gtk.TextIter.TextIter, Gtk.TextIter.TextIter, Bool))
searchContextForwardFinish2 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSearchContext a, IsAsyncResult b) =>
a -> b -> m (TextIter, TextIter, Bool)
searchContextForwardFinish2 a
search b
result_ = IO (TextIter, TextIter, Bool) -> m (TextIter, TextIter, Bool)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (TextIter, TextIter, Bool) -> m (TextIter, TextIter, Bool))
-> IO (TextIter, TextIter, Bool) -> m (TextIter, TextIter, Bool)
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr AsyncResult
result_' <- b -> IO (Ptr AsyncResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
result_
Ptr TextIter
matchStart <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr TextIter
matchEnd <- Int -> IO (Ptr TextIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
80 :: IO (Ptr Gtk.TextIter.TextIter)
Ptr CInt
hasWrappedAround <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
IO (TextIter, TextIter, Bool)
-> IO () -> IO (TextIter, TextIter, Bool)
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 SearchContext
-> Ptr AsyncResult
-> Ptr TextIter
-> Ptr TextIter
-> Ptr CInt
-> Ptr (Ptr GError)
-> IO CInt
gtk_source_search_context_forward_finish2 Ptr SearchContext
search' Ptr AsyncResult
result_' Ptr TextIter
matchStart Ptr TextIter
matchEnd Ptr CInt
hasWrappedAround
TextIter
matchStart' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchStart
TextIter
matchEnd' <- ((ManagedPtr TextIter -> TextIter) -> Ptr TextIter -> IO TextIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextIter -> TextIter
Gtk.TextIter.TextIter) Ptr TextIter
matchEnd
CInt
hasWrappedAround' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
hasWrappedAround
let hasWrappedAround'' :: Bool
hasWrappedAround'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
hasWrappedAround'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
result_
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
hasWrappedAround
(TextIter, TextIter, Bool) -> IO (TextIter, TextIter, Bool)
forall (m :: * -> *) a. Monad m => a -> m a
return (TextIter
matchStart', TextIter
matchEnd', Bool
hasWrappedAround'')
) (do
Ptr TextIter -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr TextIter
matchStart
Ptr TextIter -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr TextIter
matchEnd
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
hasWrappedAround
)
#if defined(ENABLE_OVERLOADING)
data SearchContextForwardFinish2MethodInfo
instance (signature ~ (b -> m ((Gtk.TextIter.TextIter, Gtk.TextIter.TextIter, Bool))), MonadIO m, IsSearchContext a, Gio.AsyncResult.IsAsyncResult b) => O.OverloadedMethod SearchContextForwardFinish2MethodInfo a signature where
overloadedMethod = searchContextForwardFinish2
instance O.OverloadedMethodInfo SearchContextForwardFinish2MethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextForwardFinish2",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextForwardFinish2"
})
#endif
foreign import ccall "gtk_source_search_context_get_buffer" gtk_source_search_context_get_buffer ::
Ptr SearchContext ->
IO (Ptr GtkSource.Buffer.Buffer)
searchContextGetBuffer ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> m GtkSource.Buffer.Buffer
searchContextGetBuffer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> m Buffer
searchContextGetBuffer a
search = IO Buffer -> m Buffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Buffer -> m Buffer) -> IO Buffer -> m Buffer
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr Buffer
result <- Ptr SearchContext -> IO (Ptr Buffer)
gtk_source_search_context_get_buffer Ptr SearchContext
search'
Text -> Ptr Buffer -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"searchContextGetBuffer" Ptr Buffer
result
Buffer
result' <- ((ManagedPtr Buffer -> Buffer) -> Ptr Buffer -> IO Buffer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Buffer -> Buffer
GtkSource.Buffer.Buffer) Ptr Buffer
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
Buffer -> IO Buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Buffer
result'
#if defined(ENABLE_OVERLOADING)
data SearchContextGetBufferMethodInfo
instance (signature ~ (m GtkSource.Buffer.Buffer), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextGetBufferMethodInfo a signature where
overloadedMethod = searchContextGetBuffer
instance O.OverloadedMethodInfo SearchContextGetBufferMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextGetBuffer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextGetBuffer"
})
#endif
foreign import ccall "gtk_source_search_context_get_highlight" gtk_source_search_context_get_highlight ::
Ptr SearchContext ->
IO CInt
searchContextGetHighlight ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> m Bool
searchContextGetHighlight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> m Bool
searchContextGetHighlight a
search = IO Bool -> m Bool
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 SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
CInt
result <- Ptr SearchContext -> IO CInt
gtk_source_search_context_get_highlight Ptr SearchContext
search'
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
search
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SearchContextGetHighlightMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextGetHighlightMethodInfo a signature where
overloadedMethod = searchContextGetHighlight
instance O.OverloadedMethodInfo SearchContextGetHighlightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextGetHighlight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextGetHighlight"
})
#endif
foreign import ccall "gtk_source_search_context_get_match_style" gtk_source_search_context_get_match_style ::
Ptr SearchContext ->
IO (Ptr GtkSource.Style.Style)
searchContextGetMatchStyle ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> m GtkSource.Style.Style
searchContextGetMatchStyle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> m Style
searchContextGetMatchStyle a
search = IO Style -> m Style
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Style -> m Style) -> IO Style -> m Style
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr Style
result <- Ptr SearchContext -> IO (Ptr Style)
gtk_source_search_context_get_match_style Ptr SearchContext
search'
Text -> Ptr Style -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"searchContextGetMatchStyle" Ptr Style
result
Style
result' <- ((ManagedPtr Style -> Style) -> Ptr Style -> IO Style
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Style -> Style
GtkSource.Style.Style) Ptr Style
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
Style -> IO Style
forall (m :: * -> *) a. Monad m => a -> m a
return Style
result'
#if defined(ENABLE_OVERLOADING)
data SearchContextGetMatchStyleMethodInfo
instance (signature ~ (m GtkSource.Style.Style), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextGetMatchStyleMethodInfo a signature where
overloadedMethod = searchContextGetMatchStyle
instance O.OverloadedMethodInfo SearchContextGetMatchStyleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextGetMatchStyle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextGetMatchStyle"
})
#endif
foreign import ccall "gtk_source_search_context_get_occurrence_position" gtk_source_search_context_get_occurrence_position ::
Ptr SearchContext ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
IO Int32
searchContextGetOccurrencePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> m Int32
searchContextGetOccurrencePosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> TextIter -> TextIter -> m Int32
searchContextGetOccurrencePosition a
search TextIter
matchStart TextIter
matchEnd = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr TextIter
matchStart' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
matchStart
Ptr TextIter
matchEnd' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
matchEnd
Int32
result <- Ptr SearchContext -> Ptr TextIter -> Ptr TextIter -> IO Int32
gtk_source_search_context_get_occurrence_position Ptr SearchContext
search' Ptr TextIter
matchStart' Ptr TextIter
matchEnd'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
matchStart
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
matchEnd
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data SearchContextGetOccurrencePositionMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> m Int32), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextGetOccurrencePositionMethodInfo a signature where
overloadedMethod = searchContextGetOccurrencePosition
instance O.OverloadedMethodInfo SearchContextGetOccurrencePositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextGetOccurrencePosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextGetOccurrencePosition"
})
#endif
foreign import ccall "gtk_source_search_context_get_occurrences_count" gtk_source_search_context_get_occurrences_count ::
Ptr SearchContext ->
IO Int32
searchContextGetOccurrencesCount ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> m Int32
searchContextGetOccurrencesCount :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> m Int32
searchContextGetOccurrencesCount a
search = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Int32
result <- Ptr SearchContext -> IO Int32
gtk_source_search_context_get_occurrences_count Ptr SearchContext
search'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data SearchContextGetOccurrencesCountMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextGetOccurrencesCountMethodInfo a signature where
overloadedMethod = searchContextGetOccurrencesCount
instance O.OverloadedMethodInfo SearchContextGetOccurrencesCountMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextGetOccurrencesCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextGetOccurrencesCount"
})
#endif
foreign import ccall "gtk_source_search_context_get_regex_error" gtk_source_search_context_get_regex_error ::
Ptr SearchContext ->
IO (Ptr GError)
searchContextGetRegexError ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> m (Maybe GError)
searchContextGetRegexError :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> m (Maybe GError)
searchContextGetRegexError a
search = IO (Maybe GError) -> m (Maybe GError)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe GError) -> m (Maybe GError))
-> IO (Maybe GError) -> m (Maybe GError)
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr GError
result <- Ptr SearchContext -> IO (Ptr GError)
gtk_source_search_context_get_regex_error Ptr SearchContext
search'
Maybe GError
maybeResult <- Ptr GError -> (Ptr GError -> IO GError) -> IO (Maybe GError)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr GError
result ((Ptr GError -> IO GError) -> IO (Maybe GError))
-> (Ptr GError -> IO GError) -> IO (Maybe GError)
forall a b. (a -> b) -> a -> b
$ \Ptr GError
result' -> do
GError
result'' <- ((ManagedPtr GError -> GError) -> Ptr GError -> IO GError
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr GError -> GError
GError) Ptr GError
result'
GError -> IO GError
forall (m :: * -> *) a. Monad m => a -> m a
return GError
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
Maybe GError -> IO (Maybe GError)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GError
maybeResult
#if defined(ENABLE_OVERLOADING)
data SearchContextGetRegexErrorMethodInfo
instance (signature ~ (m (Maybe GError)), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextGetRegexErrorMethodInfo a signature where
overloadedMethod = searchContextGetRegexError
instance O.OverloadedMethodInfo SearchContextGetRegexErrorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextGetRegexError",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextGetRegexError"
})
#endif
foreign import ccall "gtk_source_search_context_get_settings" gtk_source_search_context_get_settings ::
Ptr SearchContext ->
IO (Ptr GtkSource.SearchSettings.SearchSettings)
searchContextGetSettings ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> m GtkSource.SearchSettings.SearchSettings
searchContextGetSettings :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> m SearchSettings
searchContextGetSettings a
search = IO SearchSettings -> m SearchSettings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SearchSettings -> m SearchSettings)
-> IO SearchSettings -> m SearchSettings
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr SearchSettings
result <- Ptr SearchContext -> IO (Ptr SearchSettings)
gtk_source_search_context_get_settings Ptr SearchContext
search'
Text -> Ptr SearchSettings -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"searchContextGetSettings" Ptr SearchSettings
result
SearchSettings
result' <- ((ManagedPtr SearchSettings -> SearchSettings)
-> Ptr SearchSettings -> IO SearchSettings
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr SearchSettings -> SearchSettings
GtkSource.SearchSettings.SearchSettings) Ptr SearchSettings
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
SearchSettings -> IO SearchSettings
forall (m :: * -> *) a. Monad m => a -> m a
return SearchSettings
result'
#if defined(ENABLE_OVERLOADING)
data SearchContextGetSettingsMethodInfo
instance (signature ~ (m GtkSource.SearchSettings.SearchSettings), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextGetSettingsMethodInfo a signature where
overloadedMethod = searchContextGetSettings
instance O.OverloadedMethodInfo SearchContextGetSettingsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextGetSettings",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextGetSettings"
})
#endif
foreign import ccall "gtk_source_search_context_replace" gtk_source_search_context_replace ::
Ptr SearchContext ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CString ->
Int32 ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED searchContextReplace ["(Since version 3.22)","Use 'GI.GtkSource.Objects.SearchContext.searchContextReplace2' instead."] #-}
searchContextReplace ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> T.Text
-> Int32
-> m ()
searchContextReplace :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> TextIter -> TextIter -> Text -> Int32 -> m ()
searchContextReplace a
search TextIter
matchStart TextIter
matchEnd Text
replace Int32
replaceLength = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr TextIter
matchStart' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
matchStart
Ptr TextIter
matchEnd' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
matchEnd
CString
replace' <- Text -> IO CString
textToCString Text
replace
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 SearchContext
-> Ptr TextIter
-> Ptr TextIter
-> CString
-> Int32
-> Ptr (Ptr GError)
-> IO CInt
gtk_source_search_context_replace Ptr SearchContext
search' Ptr TextIter
matchStart' Ptr TextIter
matchEnd' CString
replace' Int32
replaceLength
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
matchStart
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
matchEnd
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
replace'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
replace'
)
#if defined(ENABLE_OVERLOADING)
data SearchContextReplaceMethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> T.Text -> Int32 -> m ()), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextReplaceMethodInfo a signature where
overloadedMethod = searchContextReplace
instance O.OverloadedMethodInfo SearchContextReplaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextReplace",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextReplace"
})
#endif
foreign import ccall "gtk_source_search_context_replace2" gtk_source_search_context_replace2 ::
Ptr SearchContext ->
Ptr Gtk.TextIter.TextIter ->
Ptr Gtk.TextIter.TextIter ->
CString ->
Int32 ->
Ptr (Ptr GError) ->
IO CInt
searchContextReplace2 ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> Gtk.TextIter.TextIter
-> Gtk.TextIter.TextIter
-> T.Text
-> Int32
-> m ()
searchContextReplace2 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> TextIter -> TextIter -> Text -> Int32 -> m ()
searchContextReplace2 a
search TextIter
matchStart TextIter
matchEnd Text
replace Int32
replaceLength = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr TextIter
matchStart' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
matchStart
Ptr TextIter
matchEnd' <- TextIter -> IO (Ptr TextIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TextIter
matchEnd
CString
replace' <- Text -> IO CString
textToCString Text
replace
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 SearchContext
-> Ptr TextIter
-> Ptr TextIter
-> CString
-> Int32
-> Ptr (Ptr GError)
-> IO CInt
gtk_source_search_context_replace2 Ptr SearchContext
search' Ptr TextIter
matchStart' Ptr TextIter
matchEnd' CString
replace' Int32
replaceLength
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
matchStart
TextIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TextIter
matchEnd
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
replace'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
replace'
)
#if defined(ENABLE_OVERLOADING)
data SearchContextReplace2MethodInfo
instance (signature ~ (Gtk.TextIter.TextIter -> Gtk.TextIter.TextIter -> T.Text -> Int32 -> m ()), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextReplace2MethodInfo a signature where
overloadedMethod = searchContextReplace2
instance O.OverloadedMethodInfo SearchContextReplace2MethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextReplace2",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextReplace2"
})
#endif
foreign import ccall "gtk_source_search_context_replace_all" gtk_source_search_context_replace_all ::
Ptr SearchContext ->
CString ->
Int32 ->
Ptr (Ptr GError) ->
IO Word32
searchContextReplaceAll ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> T.Text
-> Int32
-> m Word32
searchContextReplaceAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> Text -> Int32 -> m Word32
searchContextReplaceAll a
search Text
replace Int32
replaceLength = IO Word32 -> m Word32
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 SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
CString
replace' <- Text -> IO CString
textToCString Text
replace
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 SearchContext
-> CString -> Int32 -> Ptr (Ptr GError) -> IO Word32
gtk_source_search_context_replace_all Ptr SearchContext
search' CString
replace' Int32
replaceLength
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
replace'
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
replace'
)
#if defined(ENABLE_OVERLOADING)
data SearchContextReplaceAllMethodInfo
instance (signature ~ (T.Text -> Int32 -> m Word32), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextReplaceAllMethodInfo a signature where
overloadedMethod = searchContextReplaceAll
instance O.OverloadedMethodInfo SearchContextReplaceAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextReplaceAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextReplaceAll"
})
#endif
foreign import ccall "gtk_source_search_context_set_highlight" gtk_source_search_context_set_highlight ::
Ptr SearchContext ->
CInt ->
IO ()
searchContextSetHighlight ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a) =>
a
-> Bool
-> m ()
searchContextSetHighlight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSearchContext a) =>
a -> Bool -> m ()
searchContextSetHighlight a
search Bool
highlight = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
let highlight' :: CInt
highlight' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
highlight
Ptr SearchContext -> CInt -> IO ()
gtk_source_search_context_set_highlight Ptr SearchContext
search' CInt
highlight'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchContextSetHighlightMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsSearchContext a) => O.OverloadedMethod SearchContextSetHighlightMethodInfo a signature where
overloadedMethod = searchContextSetHighlight
instance O.OverloadedMethodInfo SearchContextSetHighlightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextSetHighlight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextSetHighlight"
})
#endif
foreign import ccall "gtk_source_search_context_set_match_style" gtk_source_search_context_set_match_style ::
Ptr SearchContext ->
Ptr GtkSource.Style.Style ->
IO ()
searchContextSetMatchStyle ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a, GtkSource.Style.IsStyle b) =>
a
-> Maybe (b)
-> m ()
searchContextSetMatchStyle :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSearchContext a, IsStyle b) =>
a -> Maybe b -> m ()
searchContextSetMatchStyle a
search Maybe b
matchStyle = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr Style
maybeMatchStyle <- case Maybe b
matchStyle of
Maybe b
Nothing -> Ptr Style -> IO (Ptr Style)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Style
forall a. Ptr a
nullPtr
Just b
jMatchStyle -> do
Ptr Style
jMatchStyle' <- b -> IO (Ptr Style)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jMatchStyle
Ptr Style -> IO (Ptr Style)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Style
jMatchStyle'
Ptr SearchContext -> Ptr Style -> IO ()
gtk_source_search_context_set_match_style Ptr SearchContext
search' Ptr Style
maybeMatchStyle
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
matchStyle b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchContextSetMatchStyleMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSearchContext a, GtkSource.Style.IsStyle b) => O.OverloadedMethod SearchContextSetMatchStyleMethodInfo a signature where
overloadedMethod = searchContextSetMatchStyle
instance O.OverloadedMethodInfo SearchContextSetMatchStyleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextSetMatchStyle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextSetMatchStyle"
})
#endif
foreign import ccall "gtk_source_search_context_set_settings" gtk_source_search_context_set_settings ::
Ptr SearchContext ->
Ptr GtkSource.SearchSettings.SearchSettings ->
IO ()
{-# DEPRECATED searchContextSetSettings ["(Since version 3.24)","The t'GI.GtkSource.Objects.SearchContext.SearchContext':@/settings/@ property will become a","construct-only property in a future version. Create a new","t'GI.GtkSource.Objects.SearchContext.SearchContext' instead, or change the t'GI.GtkSource.Objects.SearchSettings.SearchSettings'","properties. When the t'GI.GtkSource.Objects.SearchContext.SearchContext':@/settings/@ property will become","construct-only, it will be possible to simplify some code that needed to","listen to the notify[settings](#g:signal:settings) signal."] #-}
searchContextSetSettings ::
(B.CallStack.HasCallStack, MonadIO m, IsSearchContext a, GtkSource.SearchSettings.IsSearchSettings b) =>
a
-> Maybe (b)
-> m ()
searchContextSetSettings :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSearchContext a, IsSearchSettings b) =>
a -> Maybe b -> m ()
searchContextSetSettings a
search Maybe b
settings = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SearchContext
search' <- a -> IO (Ptr SearchContext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
search
Ptr SearchSettings
maybeSettings <- case Maybe b
settings of
Maybe b
Nothing -> Ptr SearchSettings -> IO (Ptr SearchSettings)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SearchSettings
forall a. Ptr a
nullPtr
Just b
jSettings -> do
Ptr SearchSettings
jSettings' <- b -> IO (Ptr SearchSettings)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jSettings
Ptr SearchSettings -> IO (Ptr SearchSettings)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SearchSettings
jSettings'
Ptr SearchContext -> Ptr SearchSettings -> IO ()
gtk_source_search_context_set_settings Ptr SearchContext
search' Ptr SearchSettings
maybeSettings
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
search
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
settings b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SearchContextSetSettingsMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSearchContext a, GtkSource.SearchSettings.IsSearchSettings b) => O.OverloadedMethod SearchContextSetSettingsMethodInfo a signature where
overloadedMethod = searchContextSetSettings
instance O.OverloadedMethodInfo SearchContextSetSettingsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GtkSource.Objects.SearchContext.searchContextSetSettings",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtksource-3.0.25/docs/GI-GtkSource-Objects-SearchContext.html#v:searchContextSetSettings"
})
#endif