{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMText
(
DOMText(..) ,
IsDOMText ,
toDOMText ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMTextMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMTextGetWholeTextMethodInfo ,
#endif
dOMTextGetWholeText ,
#if defined(ENABLE_OVERLOADING)
DOMTextReplaceWholeTextMethodInfo ,
#endif
dOMTextReplaceWholeText ,
#if defined(ENABLE_OVERLOADING)
DOMTextSplitTextMethodInfo ,
#endif
dOMTextSplitText ,
#if defined(ENABLE_OVERLOADING)
DOMTextWholeTextPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMTextWholeText ,
#endif
getDOMTextWholeText ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMEventTarget as WebKit2WebExtension.DOMEventTarget
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCharacterData as WebKit2WebExtension.DOMCharacterData
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMText = DOMText (SP.ManagedPtr DOMText)
deriving (DOMText -> DOMText -> Bool
(DOMText -> DOMText -> Bool)
-> (DOMText -> DOMText -> Bool) -> Eq DOMText
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DOMText -> DOMText -> Bool
== :: DOMText -> DOMText -> Bool
$c/= :: DOMText -> DOMText -> Bool
/= :: DOMText -> DOMText -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMText where
toManagedPtr :: DOMText -> ManagedPtr DOMText
toManagedPtr (DOMText ManagedPtr DOMText
p) = ManagedPtr DOMText
p
foreign import ccall "webkit_dom_text_get_type"
c_webkit_dom_text_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMText where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_text_get_type
instance B.Types.GObject DOMText
class (SP.GObject o, O.IsDescendantOf DOMText o) => IsDOMText o
instance (SP.GObject o, O.IsDescendantOf DOMText o) => IsDOMText o
instance O.HasParentTypes DOMText
type instance O.ParentTypes DOMText = '[WebKit2WebExtension.DOMCharacterData.DOMCharacterData, WebKit2WebExtension.DOMNode.DOMNode, WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object, WebKit2WebExtension.DOMEventTarget.DOMEventTarget]
toDOMText :: (MIO.MonadIO m, IsDOMText o) => o -> m DOMText
toDOMText :: forall (m :: * -> *) o. (MonadIO m, IsDOMText o) => o -> m DOMText
toDOMText = IO DOMText -> m DOMText
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMText -> m DOMText) -> (o -> IO DOMText) -> o -> m DOMText
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMText -> DOMText) -> o -> IO DOMText
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMText -> DOMText
DOMText
instance B.GValue.IsGValue (Maybe DOMText) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_text_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMText -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMText
P.Nothing = Ptr GValue -> Ptr DOMText -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMText
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMText)
gvalueSet_ Ptr GValue
gv (P.Just DOMText
obj) = DOMText -> (Ptr DOMText -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMText
obj (Ptr GValue -> Ptr DOMText -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMText)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMText
ptr <- Ptr GValue -> IO (Ptr DOMText)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMText)
if Ptr DOMText
ptr Ptr DOMText -> Ptr DOMText -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMText
forall a. Ptr a
FP.nullPtr
then DOMText -> Maybe DOMText
forall a. a -> Maybe a
P.Just (DOMText -> Maybe DOMText) -> IO DOMText -> IO (Maybe DOMText)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DOMText -> DOMText) -> Ptr DOMText -> IO DOMText
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMText -> DOMText
DOMText Ptr DOMText
ptr
else Maybe DOMText -> IO (Maybe DOMText)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMText
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMTextMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveDOMTextMethod "addEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetAddEventListenerMethodInfo
ResolveDOMTextMethod "appendChild" o = WebKit2WebExtension.DOMNode.DOMNodeAppendChildMethodInfo
ResolveDOMTextMethod "appendData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataAppendDataMethodInfo
ResolveDOMTextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMTextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMTextMethod "cloneNodeWithError" o = WebKit2WebExtension.DOMNode.DOMNodeCloneNodeWithErrorMethodInfo
ResolveDOMTextMethod "compareDocumentPosition" o = WebKit2WebExtension.DOMNode.DOMNodeCompareDocumentPositionMethodInfo
ResolveDOMTextMethod "contains" o = WebKit2WebExtension.DOMNode.DOMNodeContainsMethodInfo
ResolveDOMTextMethod "deleteData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataDeleteDataMethodInfo
ResolveDOMTextMethod "dispatchEvent" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetDispatchEventMethodInfo
ResolveDOMTextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMTextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMTextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMTextMethod "hasChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeHasChildNodesMethodInfo
ResolveDOMTextMethod "insertBefore" o = WebKit2WebExtension.DOMNode.DOMNodeInsertBeforeMethodInfo
ResolveDOMTextMethod "insertData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataInsertDataMethodInfo
ResolveDOMTextMethod "isDefaultNamespace" o = WebKit2WebExtension.DOMNode.DOMNodeIsDefaultNamespaceMethodInfo
ResolveDOMTextMethod "isEqualNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsEqualNodeMethodInfo
ResolveDOMTextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMTextMethod "isSameNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsSameNodeMethodInfo
ResolveDOMTextMethod "isSupported" o = WebKit2WebExtension.DOMNode.DOMNodeIsSupportedMethodInfo
ResolveDOMTextMethod "lookupNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeLookupNamespaceUriMethodInfo
ResolveDOMTextMethod "lookupPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeLookupPrefixMethodInfo
ResolveDOMTextMethod "normalize" o = WebKit2WebExtension.DOMNode.DOMNodeNormalizeMethodInfo
ResolveDOMTextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMTextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMTextMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMTextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMTextMethod "removeChild" o = WebKit2WebExtension.DOMNode.DOMNodeRemoveChildMethodInfo
ResolveDOMTextMethod "removeEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMTextMethod "replaceChild" o = WebKit2WebExtension.DOMNode.DOMNodeReplaceChildMethodInfo
ResolveDOMTextMethod "replaceData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataReplaceDataMethodInfo
ResolveDOMTextMethod "replaceWholeText" o = DOMTextReplaceWholeTextMethodInfo
ResolveDOMTextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMTextMethod "splitText" o = DOMTextSplitTextMethodInfo
ResolveDOMTextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMTextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMTextMethod "substringData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataSubstringDataMethodInfo
ResolveDOMTextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMTextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMTextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMTextMethod "getBaseUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetBaseUriMethodInfo
ResolveDOMTextMethod "getChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeGetChildNodesMethodInfo
ResolveDOMTextMethod "getData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataGetDataMethodInfo
ResolveDOMTextMethod "getFirstChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetFirstChildMethodInfo
ResolveDOMTextMethod "getLastChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetLastChildMethodInfo
ResolveDOMTextMethod "getLength" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataGetLengthMethodInfo
ResolveDOMTextMethod "getLocalName" o = WebKit2WebExtension.DOMNode.DOMNodeGetLocalNameMethodInfo
ResolveDOMTextMethod "getNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetNamespaceUriMethodInfo
ResolveDOMTextMethod "getNextSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetNextSiblingMethodInfo
ResolveDOMTextMethod "getNodeName" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeNameMethodInfo
ResolveDOMTextMethod "getNodeType" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeTypeMethodInfo
ResolveDOMTextMethod "getNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeValueMethodInfo
ResolveDOMTextMethod "getOwnerDocument" o = WebKit2WebExtension.DOMNode.DOMNodeGetOwnerDocumentMethodInfo
ResolveDOMTextMethod "getParentElement" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentElementMethodInfo
ResolveDOMTextMethod "getParentNode" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentNodeMethodInfo
ResolveDOMTextMethod "getPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeGetPrefixMethodInfo
ResolveDOMTextMethod "getPreviousSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetPreviousSiblingMethodInfo
ResolveDOMTextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMTextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMTextMethod "getTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeGetTextContentMethodInfo
ResolveDOMTextMethod "getWholeText" o = DOMTextGetWholeTextMethodInfo
ResolveDOMTextMethod "setData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataSetDataMethodInfo
ResolveDOMTextMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMTextMethod "setNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeSetNodeValueMethodInfo
ResolveDOMTextMethod "setPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeSetPrefixMethodInfo
ResolveDOMTextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMTextMethod "setTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeSetTextContentMethodInfo
ResolveDOMTextMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMTextMethod t DOMText, O.OverloadedMethod info DOMText p) => OL.IsLabel t (DOMText -> 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 ~ ResolveDOMTextMethod t DOMText, O.OverloadedMethod info DOMText p, R.HasField t DOMText p) => R.HasField t DOMText p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMTextMethod t DOMText, O.OverloadedMethodInfo info DOMText) => OL.IsLabel t (O.MethodProxy info DOMText) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMTextWholeText :: (MonadIO m, IsDOMText o) => o -> m (Maybe T.Text)
getDOMTextWholeText :: forall (m :: * -> *) o.
(MonadIO m, IsDOMText o) =>
o -> m (Maybe Text)
getDOMTextWholeText o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"whole-text"
#if defined(ENABLE_OVERLOADING)
data DOMTextWholeTextPropertyInfo
instance AttrInfo DOMTextWholeTextPropertyInfo where
type AttrAllowedOps DOMTextWholeTextPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMTextWholeTextPropertyInfo = IsDOMText
type AttrSetTypeConstraint DOMTextWholeTextPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMTextWholeTextPropertyInfo = (~) ()
type AttrTransferType DOMTextWholeTextPropertyInfo = ()
type AttrGetType DOMTextWholeTextPropertyInfo = (Maybe T.Text)
type AttrLabel DOMTextWholeTextPropertyInfo = "whole-text"
type AttrOrigin DOMTextWholeTextPropertyInfo = DOMText
attrGet = getDOMTextWholeText
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMText.wholeText"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMText.html#g:attr:wholeText"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMText
type instance O.AttributeList DOMText = DOMTextAttributeList
type DOMTextAttributeList = ('[ '("baseUri", WebKit2WebExtension.DOMNode.DOMNodeBaseUriPropertyInfo), '("childNodes", WebKit2WebExtension.DOMNode.DOMNodeChildNodesPropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("data", WebKit2WebExtension.DOMCharacterData.DOMCharacterDataDataPropertyInfo), '("firstChild", WebKit2WebExtension.DOMNode.DOMNodeFirstChildPropertyInfo), '("lastChild", WebKit2WebExtension.DOMNode.DOMNodeLastChildPropertyInfo), '("length", WebKit2WebExtension.DOMCharacterData.DOMCharacterDataLengthPropertyInfo), '("nextSibling", WebKit2WebExtension.DOMNode.DOMNodeNextSiblingPropertyInfo), '("nodeName", WebKit2WebExtension.DOMNode.DOMNodeNodeNamePropertyInfo), '("nodeType", WebKit2WebExtension.DOMNode.DOMNodeNodeTypePropertyInfo), '("nodeValue", WebKit2WebExtension.DOMNode.DOMNodeNodeValuePropertyInfo), '("ownerDocument", WebKit2WebExtension.DOMNode.DOMNodeOwnerDocumentPropertyInfo), '("parentElement", WebKit2WebExtension.DOMNode.DOMNodeParentElementPropertyInfo), '("parentNode", WebKit2WebExtension.DOMNode.DOMNodeParentNodePropertyInfo), '("previousSibling", WebKit2WebExtension.DOMNode.DOMNodePreviousSiblingPropertyInfo), '("textContent", WebKit2WebExtension.DOMNode.DOMNodeTextContentPropertyInfo), '("wholeText", DOMTextWholeTextPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMTextWholeText :: AttrLabelProxy "wholeText"
dOMTextWholeText = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMText = DOMTextSignalList
type DOMTextSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "webkit_dom_text_get_whole_text" webkit_dom_text_get_whole_text ::
Ptr DOMText ->
IO CString
{-# DEPRECATED dOMTextGetWholeText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTextGetWholeText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMText a) =>
a
-> m T.Text
dOMTextGetWholeText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMText a) =>
a -> m Text
dOMTextGetWholeText a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMText
self' <- a -> IO (Ptr DOMText)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMText -> IO CString
webkit_dom_text_get_whole_text Ptr DOMText
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMTextGetWholeText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMTextGetWholeTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMText a) => O.OverloadedMethod DOMTextGetWholeTextMethodInfo a signature where
overloadedMethod = dOMTextGetWholeText
instance O.OverloadedMethodInfo DOMTextGetWholeTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMText.dOMTextGetWholeText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMText.html#v:dOMTextGetWholeText"
})
#endif
foreign import ccall "webkit_dom_text_replace_whole_text" webkit_dom_text_replace_whole_text ::
Ptr DOMText ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr DOMText)
{-# DEPRECATED dOMTextReplaceWholeText ["(Since version 2.14)"] #-}
dOMTextReplaceWholeText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMText a) =>
a
-> T.Text
-> m DOMText
dOMTextReplaceWholeText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMText a) =>
a -> Text -> m DOMText
dOMTextReplaceWholeText a
self Text
content = IO DOMText -> m DOMText
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMText -> m DOMText) -> IO DOMText -> m DOMText
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMText
self' <- a -> IO (Ptr DOMText)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
content' <- Text -> IO CString
textToCString Text
content
IO DOMText -> IO () -> IO DOMText
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMText
result <- (Ptr (Ptr GError) -> IO (Ptr DOMText)) -> IO (Ptr DOMText)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMText)) -> IO (Ptr DOMText))
-> (Ptr (Ptr GError) -> IO (Ptr DOMText)) -> IO (Ptr DOMText)
forall a b. (a -> b) -> a -> b
$ Ptr DOMText -> CString -> Ptr (Ptr GError) -> IO (Ptr DOMText)
webkit_dom_text_replace_whole_text Ptr DOMText
self' CString
content'
Text -> Ptr DOMText -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMTextReplaceWholeText" Ptr DOMText
result
DOMText
result' <- ((ManagedPtr DOMText -> DOMText) -> Ptr DOMText -> IO DOMText
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMText -> DOMText
DOMText) Ptr DOMText
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
content'
DOMText -> IO DOMText
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMText
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
content'
)
#if defined(ENABLE_OVERLOADING)
data DOMTextReplaceWholeTextMethodInfo
instance (signature ~ (T.Text -> m DOMText), MonadIO m, IsDOMText a) => O.OverloadedMethod DOMTextReplaceWholeTextMethodInfo a signature where
overloadedMethod = dOMTextReplaceWholeText
instance O.OverloadedMethodInfo DOMTextReplaceWholeTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMText.dOMTextReplaceWholeText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMText.html#v:dOMTextReplaceWholeText"
})
#endif
foreign import ccall "webkit_dom_text_split_text" webkit_dom_text_split_text ::
Ptr DOMText ->
CULong ->
Ptr (Ptr GError) ->
IO (Ptr DOMText)
{-# DEPRECATED dOMTextSplitText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTextSplitText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMText a) =>
a
-> CULong
-> m DOMText
dOMTextSplitText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMText a) =>
a -> CULong -> m DOMText
dOMTextSplitText a
self CULong
offset = IO DOMText -> m DOMText
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMText -> m DOMText) -> IO DOMText -> m DOMText
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMText
self' <- a -> IO (Ptr DOMText)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO DOMText -> IO () -> IO DOMText
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMText
result <- (Ptr (Ptr GError) -> IO (Ptr DOMText)) -> IO (Ptr DOMText)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMText)) -> IO (Ptr DOMText))
-> (Ptr (Ptr GError) -> IO (Ptr DOMText)) -> IO (Ptr DOMText)
forall a b. (a -> b) -> a -> b
$ Ptr DOMText -> CULong -> Ptr (Ptr GError) -> IO (Ptr DOMText)
webkit_dom_text_split_text Ptr DOMText
self' CULong
offset
Text -> Ptr DOMText -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMTextSplitText" Ptr DOMText
result
DOMText
result' <- ((ManagedPtr DOMText -> DOMText) -> Ptr DOMText -> IO DOMText
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMText -> DOMText
DOMText) Ptr DOMText
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMText -> IO DOMText
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMText
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMTextSplitTextMethodInfo
instance (signature ~ (CULong -> m DOMText), MonadIO m, IsDOMText a) => O.OverloadedMethod DOMTextSplitTextMethodInfo a signature where
overloadedMethod = dOMTextSplitText
instance O.OverloadedMethodInfo DOMTextSplitTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMText.dOMTextSplitText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMText.html#v:dOMTextSplitText"
})
#endif