{-# 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 Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.JavaScriptCore.Objects.Value as JavaScriptCore.Value
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMEventTarget as WebKit2WebExtension.DOMEventTarget
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMNodeFilter as WebKit2WebExtension.DOMNodeFilter
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMXPathNSResolver as WebKit2WebExtension.DOMXPathNSResolver
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMAttr as WebKit2WebExtension.DOMAttr
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCDATASection as WebKit2WebExtension.DOMCDATASection
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCSSRule as WebKit2WebExtension.DOMCSSRule
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCSSRuleList as WebKit2WebExtension.DOMCSSRuleList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration as WebKit2WebExtension.DOMCSSStyleDeclaration
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet as WebKit2WebExtension.DOMCSSStyleSheet
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCharacterData as WebKit2WebExtension.DOMCharacterData
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMClientRect as WebKit2WebExtension.DOMClientRect
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMClientRectList as WebKit2WebExtension.DOMClientRectList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMComment as WebKit2WebExtension.DOMComment
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDOMImplementation as WebKit2WebExtension.DOMDOMImplementation
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDOMSelection as WebKit2WebExtension.DOMDOMSelection
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDOMTokenList as WebKit2WebExtension.DOMDOMTokenList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDOMWindow as WebKit2WebExtension.DOMDOMWindow
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDocument as WebKit2WebExtension.DOMDocument
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDocumentFragment as WebKit2WebExtension.DOMDocumentFragment
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDocumentType as WebKit2WebExtension.DOMDocumentType
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMElement as WebKit2WebExtension.DOMElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMEntityReference as WebKit2WebExtension.DOMEntityReference
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMEvent as WebKit2WebExtension.DOMEvent
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLCollection as WebKit2WebExtension.DOMHTMLCollection
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLDocument as WebKit2WebExtension.DOMHTMLDocument
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLElement as WebKit2WebExtension.DOMHTMLElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLHeadElement as WebKit2WebExtension.DOMHTMLHeadElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLScriptElement as WebKit2WebExtension.DOMHTMLScriptElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMMediaList as WebKit2WebExtension.DOMMediaList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNamedNodeMap as WebKit2WebExtension.DOMNamedNodeMap
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNodeIterator as WebKit2WebExtension.DOMNodeIterator
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNodeList as WebKit2WebExtension.DOMNodeList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMProcessingInstruction as WebKit2WebExtension.DOMProcessingInstruction
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMRange as WebKit2WebExtension.DOMRange
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMStyleSheet as WebKit2WebExtension.DOMStyleSheet
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMStyleSheetList as WebKit2WebExtension.DOMStyleSheetList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMTreeWalker as WebKit2WebExtension.DOMTreeWalker
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMXPathExpression as WebKit2WebExtension.DOMXPathExpression
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMXPathResult as WebKit2WebExtension.DOMXPathResult
#else
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
#endif
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.31/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.31/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.31/docs/GI-WebKit2WebExtension-Objects-DOMText.html#v:dOMTextReplaceWholeText"
})
#endif
foreign import ccall "webkit_dom_text_split_text" webkit_dom_text_split_text ::
Ptr DOMText ->
FCT.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
-> FCT.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 ~ (FCT.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.31/docs/GI-WebKit2WebExtension-Objects-DOMText.html#v:dOMTextSplitText"
})
#endif