{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMNode
(
DOMNode(..) ,
IsDOMNode ,
toDOMNode ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMNodeMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMNodeAppendChildMethodInfo ,
#endif
dOMNodeAppendChild ,
#if defined(ENABLE_OVERLOADING)
DOMNodeCloneNodeWithErrorMethodInfo ,
#endif
dOMNodeCloneNodeWithError ,
#if defined(ENABLE_OVERLOADING)
DOMNodeCompareDocumentPositionMethodInfo,
#endif
dOMNodeCompareDocumentPosition ,
#if defined(ENABLE_OVERLOADING)
DOMNodeContainsMethodInfo ,
#endif
dOMNodeContains ,
dOMNodeForJsValue ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetBaseUriMethodInfo ,
#endif
dOMNodeGetBaseUri ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetChildNodesMethodInfo ,
#endif
dOMNodeGetChildNodes ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetFirstChildMethodInfo ,
#endif
dOMNodeGetFirstChild ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetLastChildMethodInfo ,
#endif
dOMNodeGetLastChild ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetLocalNameMethodInfo ,
#endif
dOMNodeGetLocalName ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetNamespaceUriMethodInfo ,
#endif
dOMNodeGetNamespaceUri ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetNextSiblingMethodInfo ,
#endif
dOMNodeGetNextSibling ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetNodeNameMethodInfo ,
#endif
dOMNodeGetNodeName ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetNodeTypeMethodInfo ,
#endif
dOMNodeGetNodeType ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetNodeValueMethodInfo ,
#endif
dOMNodeGetNodeValue ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetOwnerDocumentMethodInfo ,
#endif
dOMNodeGetOwnerDocument ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetParentElementMethodInfo ,
#endif
dOMNodeGetParentElement ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetParentNodeMethodInfo ,
#endif
dOMNodeGetParentNode ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetPrefixMethodInfo ,
#endif
dOMNodeGetPrefix ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetPreviousSiblingMethodInfo ,
#endif
dOMNodeGetPreviousSibling ,
#if defined(ENABLE_OVERLOADING)
DOMNodeGetTextContentMethodInfo ,
#endif
dOMNodeGetTextContent ,
#if defined(ENABLE_OVERLOADING)
DOMNodeHasChildNodesMethodInfo ,
#endif
dOMNodeHasChildNodes ,
#if defined(ENABLE_OVERLOADING)
DOMNodeInsertBeforeMethodInfo ,
#endif
dOMNodeInsertBefore ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIsDefaultNamespaceMethodInfo ,
#endif
dOMNodeIsDefaultNamespace ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIsEqualNodeMethodInfo ,
#endif
dOMNodeIsEqualNode ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIsSameNodeMethodInfo ,
#endif
dOMNodeIsSameNode ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIsSupportedMethodInfo ,
#endif
dOMNodeIsSupported ,
#if defined(ENABLE_OVERLOADING)
DOMNodeLookupNamespaceUriMethodInfo ,
#endif
dOMNodeLookupNamespaceUri ,
#if defined(ENABLE_OVERLOADING)
DOMNodeLookupPrefixMethodInfo ,
#endif
dOMNodeLookupPrefix ,
#if defined(ENABLE_OVERLOADING)
DOMNodeNormalizeMethodInfo ,
#endif
dOMNodeNormalize ,
#if defined(ENABLE_OVERLOADING)
DOMNodeRemoveChildMethodInfo ,
#endif
dOMNodeRemoveChild ,
#if defined(ENABLE_OVERLOADING)
DOMNodeReplaceChildMethodInfo ,
#endif
dOMNodeReplaceChild ,
#if defined(ENABLE_OVERLOADING)
DOMNodeSetNodeValueMethodInfo ,
#endif
dOMNodeSetNodeValue ,
#if defined(ENABLE_OVERLOADING)
DOMNodeSetPrefixMethodInfo ,
#endif
dOMNodeSetPrefix ,
#if defined(ENABLE_OVERLOADING)
DOMNodeSetTextContentMethodInfo ,
#endif
dOMNodeSetTextContent ,
#if defined(ENABLE_OVERLOADING)
DOMNodeBaseUriPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeBaseUri ,
#endif
getDOMNodeBaseUri ,
#if defined(ENABLE_OVERLOADING)
DOMNodeChildNodesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeChildNodes ,
#endif
getDOMNodeChildNodes ,
#if defined(ENABLE_OVERLOADING)
DOMNodeFirstChildPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeFirstChild ,
#endif
getDOMNodeFirstChild ,
#if defined(ENABLE_OVERLOADING)
DOMNodeLastChildPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeLastChild ,
#endif
getDOMNodeLastChild ,
#if defined(ENABLE_OVERLOADING)
DOMNodeNextSiblingPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeNextSibling ,
#endif
getDOMNodeNextSibling ,
#if defined(ENABLE_OVERLOADING)
DOMNodeNodeNamePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeNodeName ,
#endif
getDOMNodeNodeName ,
#if defined(ENABLE_OVERLOADING)
DOMNodeNodeTypePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeNodeType ,
#endif
getDOMNodeNodeType ,
#if defined(ENABLE_OVERLOADING)
DOMNodeNodeValuePropertyInfo ,
#endif
clearDOMNodeNodeValue ,
constructDOMNodeNodeValue ,
#if defined(ENABLE_OVERLOADING)
dOMNodeNodeValue ,
#endif
getDOMNodeNodeValue ,
setDOMNodeNodeValue ,
#if defined(ENABLE_OVERLOADING)
DOMNodeOwnerDocumentPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeOwnerDocument ,
#endif
getDOMNodeOwnerDocument ,
#if defined(ENABLE_OVERLOADING)
DOMNodeParentElementPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeParentElement ,
#endif
getDOMNodeParentElement ,
#if defined(ENABLE_OVERLOADING)
DOMNodeParentNodePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeParentNode ,
#endif
getDOMNodeParentNode ,
#if defined(ENABLE_OVERLOADING)
DOMNodePreviousSiblingPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodePreviousSibling ,
#endif
getDOMNodePreviousSibling ,
#if defined(ENABLE_OVERLOADING)
DOMNodeTextContentPropertyInfo ,
#endif
clearDOMNodeTextContent ,
constructDOMNodeTextContent ,
#if defined(ENABLE_OVERLOADING)
dOMNodeTextContent ,
#endif
getDOMNodeTextContent ,
setDOMNodeTextContent ,
) 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.JavaScriptCore.Objects.Value as JavaScriptCore.Value
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMEventTarget as WebKit2WebExtension.DOMEventTarget
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDocument as WebKit2WebExtension.DOMDocument
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMElement as WebKit2WebExtension.DOMElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNodeList as WebKit2WebExtension.DOMNodeList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMNode = DOMNode (SP.ManagedPtr DOMNode)
deriving (DOMNode -> DOMNode -> Bool
(DOMNode -> DOMNode -> Bool)
-> (DOMNode -> DOMNode -> Bool) -> Eq DOMNode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMNode -> DOMNode -> Bool
$c/= :: DOMNode -> DOMNode -> Bool
== :: DOMNode -> DOMNode -> Bool
$c== :: DOMNode -> DOMNode -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMNode where
toManagedPtr :: DOMNode -> ManagedPtr DOMNode
toManagedPtr (DOMNode ManagedPtr DOMNode
p) = ManagedPtr DOMNode
p
foreign import ccall "webkit_dom_node_get_type"
c_webkit_dom_node_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMNode where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_node_get_type
instance B.Types.GObject DOMNode
class (SP.GObject o, O.IsDescendantOf DOMNode o) => IsDOMNode o
instance (SP.GObject o, O.IsDescendantOf DOMNode o) => IsDOMNode o
instance O.HasParentTypes DOMNode
type instance O.ParentTypes DOMNode = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object, WebKit2WebExtension.DOMEventTarget.DOMEventTarget]
toDOMNode :: (MIO.MonadIO m, IsDOMNode o) => o -> m DOMNode
toDOMNode :: forall (m :: * -> *) o. (MonadIO m, IsDOMNode o) => o -> m DOMNode
toDOMNode = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMNode -> m DOMNode) -> (o -> IO DOMNode) -> o -> m DOMNode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMNode -> DOMNode) -> o -> IO DOMNode
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMNode -> DOMNode
DOMNode
instance B.GValue.IsGValue (Maybe DOMNode) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_node_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMNode -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMNode
P.Nothing = Ptr GValue -> Ptr DOMNode -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMNode
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMNode)
gvalueSet_ Ptr GValue
gv (P.Just DOMNode
obj) = DOMNode -> (Ptr DOMNode -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMNode
obj (Ptr GValue -> Ptr DOMNode -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMNode)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMNode
ptr <- Ptr GValue -> IO (Ptr DOMNode)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMNode)
if Ptr DOMNode
ptr Ptr DOMNode -> Ptr DOMNode -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMNode
forall a. Ptr a
FP.nullPtr
then DOMNode -> Maybe DOMNode
forall a. a -> Maybe a
P.Just (DOMNode -> Maybe DOMNode) -> IO DOMNode -> IO (Maybe DOMNode)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMNode -> DOMNode
DOMNode Ptr DOMNode
ptr
else Maybe DOMNode -> IO (Maybe DOMNode)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMNode
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMNodeMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMNodeMethod "addEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetAddEventListenerMethodInfo
ResolveDOMNodeMethod "appendChild" o = DOMNodeAppendChildMethodInfo
ResolveDOMNodeMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMNodeMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMNodeMethod "cloneNodeWithError" o = DOMNodeCloneNodeWithErrorMethodInfo
ResolveDOMNodeMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo
ResolveDOMNodeMethod "contains" o = DOMNodeContainsMethodInfo
ResolveDOMNodeMethod "dispatchEvent" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetDispatchEventMethodInfo
ResolveDOMNodeMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMNodeMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMNodeMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMNodeMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo
ResolveDOMNodeMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo
ResolveDOMNodeMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo
ResolveDOMNodeMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo
ResolveDOMNodeMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMNodeMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo
ResolveDOMNodeMethod "isSupported" o = DOMNodeIsSupportedMethodInfo
ResolveDOMNodeMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo
ResolveDOMNodeMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo
ResolveDOMNodeMethod "normalize" o = DOMNodeNormalizeMethodInfo
ResolveDOMNodeMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMNodeMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMNodeMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMNodeMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMNodeMethod "removeChild" o = DOMNodeRemoveChildMethodInfo
ResolveDOMNodeMethod "removeEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMNodeMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo
ResolveDOMNodeMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMNodeMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMNodeMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMNodeMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMNodeMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMNodeMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMNodeMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo
ResolveDOMNodeMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo
ResolveDOMNodeMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMNodeMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo
ResolveDOMNodeMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo
ResolveDOMNodeMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo
ResolveDOMNodeMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo
ResolveDOMNodeMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo
ResolveDOMNodeMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo
ResolveDOMNodeMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo
ResolveDOMNodeMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo
ResolveDOMNodeMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo
ResolveDOMNodeMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo
ResolveDOMNodeMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo
ResolveDOMNodeMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo
ResolveDOMNodeMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo
ResolveDOMNodeMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMNodeMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMNodeMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo
ResolveDOMNodeMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMNodeMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMNodeMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo
ResolveDOMNodeMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo
ResolveDOMNodeMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMNodeMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo
ResolveDOMNodeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMNodeMethod t DOMNode, O.OverloadedMethod info DOMNode p) => OL.IsLabel t (DOMNode -> 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 ~ ResolveDOMNodeMethod t DOMNode, O.OverloadedMethod info DOMNode p, R.HasField t DOMNode p) => R.HasField t DOMNode p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMNodeMethod t DOMNode, O.OverloadedMethodInfo info DOMNode) => OL.IsLabel t (O.MethodProxy info DOMNode) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMNodeBaseUri :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeBaseUri :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNode o) =>
o -> m (Maybe Text)
getDOMNodeBaseUri o
obj = IO (Maybe Text) -> m (Maybe Text)
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
"base-uri"
#if defined(ENABLE_OVERLOADING)
data DOMNodeBaseUriPropertyInfo
instance AttrInfo DOMNodeBaseUriPropertyInfo where
type AttrAllowedOps DOMNodeBaseUriPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeBaseUriPropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodeBaseUriPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeBaseUriPropertyInfo = (~) ()
type AttrTransferType DOMNodeBaseUriPropertyInfo = ()
type AttrGetType DOMNodeBaseUriPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNodeBaseUriPropertyInfo = "base-uri"
type AttrOrigin DOMNodeBaseUriPropertyInfo = DOMNode
attrGet = getDOMNodeBaseUri
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.baseUri"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:baseUri"
})
#endif
getDOMNodeChildNodes :: (MonadIO m, IsDOMNode o) => o -> m (Maybe WebKit2WebExtension.DOMNodeList.DOMNodeList)
getDOMNodeChildNodes :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNode o) =>
o -> m (Maybe DOMNodeList)
getDOMNodeChildNodes o
obj = IO (Maybe DOMNodeList) -> m (Maybe DOMNodeList)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe DOMNodeList) -> m (Maybe DOMNodeList))
-> IO (Maybe DOMNodeList) -> m (Maybe DOMNodeList)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMNodeList -> DOMNodeList)
-> IO (Maybe DOMNodeList)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"child-nodes" ManagedPtr DOMNodeList -> DOMNodeList
WebKit2WebExtension.DOMNodeList.DOMNodeList
#if defined(ENABLE_OVERLOADING)
data DOMNodeChildNodesPropertyInfo
instance AttrInfo DOMNodeChildNodesPropertyInfo where
type AttrAllowedOps DOMNodeChildNodesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeChildNodesPropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodeChildNodesPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeChildNodesPropertyInfo = (~) ()
type AttrTransferType DOMNodeChildNodesPropertyInfo = ()
type AttrGetType DOMNodeChildNodesPropertyInfo = (Maybe WebKit2WebExtension.DOMNodeList.DOMNodeList)
type AttrLabel DOMNodeChildNodesPropertyInfo = "child-nodes"
type AttrOrigin DOMNodeChildNodesPropertyInfo = DOMNode
attrGet = getDOMNodeChildNodes
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.childNodes"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:childNodes"
})
#endif
getDOMNodeFirstChild :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeFirstChild :: forall (m :: * -> *) o. (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeFirstChild o
obj = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMNodeFirstChild" (IO (Maybe DOMNode) -> IO DOMNode)
-> IO (Maybe DOMNode) -> IO DOMNode
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr DOMNode -> DOMNode) -> IO (Maybe DOMNode)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"first-child" ManagedPtr DOMNode -> DOMNode
DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMNodeFirstChildPropertyInfo
instance AttrInfo DOMNodeFirstChildPropertyInfo where
type AttrAllowedOps DOMNodeFirstChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeFirstChildPropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodeFirstChildPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeFirstChildPropertyInfo = (~) ()
type AttrTransferType DOMNodeFirstChildPropertyInfo = ()
type AttrGetType DOMNodeFirstChildPropertyInfo = DOMNode
type AttrLabel DOMNodeFirstChildPropertyInfo = "first-child"
type AttrOrigin DOMNodeFirstChildPropertyInfo = DOMNode
attrGet = getDOMNodeFirstChild
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.firstChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:firstChild"
})
#endif
getDOMNodeLastChild :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeLastChild :: forall (m :: * -> *) o. (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeLastChild o
obj = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMNodeLastChild" (IO (Maybe DOMNode) -> IO DOMNode)
-> IO (Maybe DOMNode) -> IO DOMNode
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr DOMNode -> DOMNode) -> IO (Maybe DOMNode)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"last-child" ManagedPtr DOMNode -> DOMNode
DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMNodeLastChildPropertyInfo
instance AttrInfo DOMNodeLastChildPropertyInfo where
type AttrAllowedOps DOMNodeLastChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeLastChildPropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodeLastChildPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeLastChildPropertyInfo = (~) ()
type AttrTransferType DOMNodeLastChildPropertyInfo = ()
type AttrGetType DOMNodeLastChildPropertyInfo = DOMNode
type AttrLabel DOMNodeLastChildPropertyInfo = "last-child"
type AttrOrigin DOMNodeLastChildPropertyInfo = DOMNode
attrGet = getDOMNodeLastChild
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.lastChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:lastChild"
})
#endif
getDOMNodeNextSibling :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeNextSibling :: forall (m :: * -> *) o. (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeNextSibling o
obj = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMNodeNextSibling" (IO (Maybe DOMNode) -> IO DOMNode)
-> IO (Maybe DOMNode) -> IO DOMNode
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr DOMNode -> DOMNode) -> IO (Maybe DOMNode)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"next-sibling" ManagedPtr DOMNode -> DOMNode
DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMNodeNextSiblingPropertyInfo
instance AttrInfo DOMNodeNextSiblingPropertyInfo where
type AttrAllowedOps DOMNodeNextSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeNextSiblingPropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodeNextSiblingPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeNextSiblingPropertyInfo = (~) ()
type AttrTransferType DOMNodeNextSiblingPropertyInfo = ()
type AttrGetType DOMNodeNextSiblingPropertyInfo = DOMNode
type AttrLabel DOMNodeNextSiblingPropertyInfo = "next-sibling"
type AttrOrigin DOMNodeNextSiblingPropertyInfo = DOMNode
attrGet = getDOMNodeNextSibling
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.nextSibling"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:nextSibling"
})
#endif
getDOMNodeNodeName :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeNodeName :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNode o) =>
o -> m (Maybe Text)
getDOMNodeNodeName o
obj = IO (Maybe Text) -> m (Maybe Text)
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
"node-name"
#if defined(ENABLE_OVERLOADING)
data DOMNodeNodeNamePropertyInfo
instance AttrInfo DOMNodeNodeNamePropertyInfo where
type AttrAllowedOps DOMNodeNodeNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeNodeNamePropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodeNodeNamePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeNodeNamePropertyInfo = (~) ()
type AttrTransferType DOMNodeNodeNamePropertyInfo = ()
type AttrGetType DOMNodeNodeNamePropertyInfo = (Maybe T.Text)
type AttrLabel DOMNodeNodeNamePropertyInfo = "node-name"
type AttrOrigin DOMNodeNodeNamePropertyInfo = DOMNode
attrGet = getDOMNodeNodeName
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.nodeName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:nodeName"
})
#endif
getDOMNodeNodeType :: (MonadIO m, IsDOMNode o) => o -> m Word32
getDOMNodeNodeType :: forall (m :: * -> *) o. (MonadIO m, IsDOMNode o) => o -> m Word32
getDOMNodeNodeType o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"node-type"
#if defined(ENABLE_OVERLOADING)
data DOMNodeNodeTypePropertyInfo
instance AttrInfo DOMNodeNodeTypePropertyInfo where
type AttrAllowedOps DOMNodeNodeTypePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMNodeNodeTypePropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodeNodeTypePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeNodeTypePropertyInfo = (~) ()
type AttrTransferType DOMNodeNodeTypePropertyInfo = ()
type AttrGetType DOMNodeNodeTypePropertyInfo = Word32
type AttrLabel DOMNodeNodeTypePropertyInfo = "node-type"
type AttrOrigin DOMNodeNodeTypePropertyInfo = DOMNode
attrGet = getDOMNodeNodeType
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.nodeType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:nodeType"
})
#endif
getDOMNodeNodeValue :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeNodeValue :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNode o) =>
o -> m (Maybe Text)
getDOMNodeNodeValue o
obj = IO (Maybe Text) -> m (Maybe Text)
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
"node-value"
setDOMNodeNodeValue :: (MonadIO m, IsDOMNode o) => o -> T.Text -> m ()
setDOMNodeNodeValue :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNode o) =>
o -> Text -> m ()
setDOMNodeNodeValue o
obj Text
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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"node-value" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMNodeNodeValue :: (IsDOMNode o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMNodeNodeValue :: forall o (m :: * -> *).
(IsDOMNode o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMNodeNodeValue Text
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 Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"node-value" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearDOMNodeNodeValue :: (MonadIO m, IsDOMNode o) => o -> m ()
clearDOMNodeNodeValue :: forall (m :: * -> *) o. (MonadIO m, IsDOMNode o) => o -> m ()
clearDOMNodeNodeValue 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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"node-value" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DOMNodeNodeValuePropertyInfo
instance AttrInfo DOMNodeNodeValuePropertyInfo where
type AttrAllowedOps DOMNodeNodeValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeNodeValuePropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodeNodeValuePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMNodeNodeValuePropertyInfo = (~) T.Text
type AttrTransferType DOMNodeNodeValuePropertyInfo = T.Text
type AttrGetType DOMNodeNodeValuePropertyInfo = (Maybe T.Text)
type AttrLabel DOMNodeNodeValuePropertyInfo = "node-value"
type AttrOrigin DOMNodeNodeValuePropertyInfo = DOMNode
attrGet = getDOMNodeNodeValue
attrSet = setDOMNodeNodeValue
attrTransfer _ v = do
return v
attrConstruct = constructDOMNodeNodeValue
attrClear = clearDOMNodeNodeValue
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.nodeValue"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:nodeValue"
})
#endif
getDOMNodeOwnerDocument :: (MonadIO m, IsDOMNode o) => o -> m WebKit2WebExtension.DOMDocument.DOMDocument
getDOMNodeOwnerDocument :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNode o) =>
o -> m DOMDocument
getDOMNodeOwnerDocument o
obj = IO DOMDocument -> m DOMDocument
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMDocument -> m DOMDocument)
-> IO DOMDocument -> m DOMDocument
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMDocument) -> IO DOMDocument
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMNodeOwnerDocument" (IO (Maybe DOMDocument) -> IO DOMDocument)
-> IO (Maybe DOMDocument) -> IO DOMDocument
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMDocument -> DOMDocument)
-> IO (Maybe DOMDocument)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"owner-document" ManagedPtr DOMDocument -> DOMDocument
WebKit2WebExtension.DOMDocument.DOMDocument
#if defined(ENABLE_OVERLOADING)
data DOMNodeOwnerDocumentPropertyInfo
instance AttrInfo DOMNodeOwnerDocumentPropertyInfo where
type AttrAllowedOps DOMNodeOwnerDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeOwnerDocumentPropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodeOwnerDocumentPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeOwnerDocumentPropertyInfo = (~) ()
type AttrTransferType DOMNodeOwnerDocumentPropertyInfo = ()
type AttrGetType DOMNodeOwnerDocumentPropertyInfo = WebKit2WebExtension.DOMDocument.DOMDocument
type AttrLabel DOMNodeOwnerDocumentPropertyInfo = "owner-document"
type AttrOrigin DOMNodeOwnerDocumentPropertyInfo = DOMNode
attrGet = getDOMNodeOwnerDocument
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.ownerDocument"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:ownerDocument"
})
#endif
getDOMNodeParentElement :: (MonadIO m, IsDOMNode o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMNodeParentElement :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNode o) =>
o -> m DOMElement
getDOMNodeParentElement o
obj = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMElement) -> IO DOMElement
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMNodeParentElement" (IO (Maybe DOMElement) -> IO DOMElement)
-> IO (Maybe DOMElement) -> IO DOMElement
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMElement -> DOMElement)
-> IO (Maybe DOMElement)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"parent-element" ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMNodeParentElementPropertyInfo
instance AttrInfo DOMNodeParentElementPropertyInfo where
type AttrAllowedOps DOMNodeParentElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeParentElementPropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodeParentElementPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeParentElementPropertyInfo = (~) ()
type AttrTransferType DOMNodeParentElementPropertyInfo = ()
type AttrGetType DOMNodeParentElementPropertyInfo = WebKit2WebExtension.DOMElement.DOMElement
type AttrLabel DOMNodeParentElementPropertyInfo = "parent-element"
type AttrOrigin DOMNodeParentElementPropertyInfo = DOMNode
attrGet = getDOMNodeParentElement
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.parentElement"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:parentElement"
})
#endif
getDOMNodeParentNode :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeParentNode :: forall (m :: * -> *) o. (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeParentNode o
obj = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMNodeParentNode" (IO (Maybe DOMNode) -> IO DOMNode)
-> IO (Maybe DOMNode) -> IO DOMNode
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr DOMNode -> DOMNode) -> IO (Maybe DOMNode)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"parent-node" ManagedPtr DOMNode -> DOMNode
DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMNodeParentNodePropertyInfo
instance AttrInfo DOMNodeParentNodePropertyInfo where
type AttrAllowedOps DOMNodeParentNodePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeParentNodePropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodeParentNodePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeParentNodePropertyInfo = (~) ()
type AttrTransferType DOMNodeParentNodePropertyInfo = ()
type AttrGetType DOMNodeParentNodePropertyInfo = DOMNode
type AttrLabel DOMNodeParentNodePropertyInfo = "parent-node"
type AttrOrigin DOMNodeParentNodePropertyInfo = DOMNode
attrGet = getDOMNodeParentNode
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.parentNode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:parentNode"
})
#endif
getDOMNodePreviousSibling :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodePreviousSibling :: forall (m :: * -> *) o. (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodePreviousSibling o
obj = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMNodePreviousSibling" (IO (Maybe DOMNode) -> IO DOMNode)
-> IO (Maybe DOMNode) -> IO DOMNode
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr DOMNode -> DOMNode) -> IO (Maybe DOMNode)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"previous-sibling" ManagedPtr DOMNode -> DOMNode
DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMNodePreviousSiblingPropertyInfo
instance AttrInfo DOMNodePreviousSiblingPropertyInfo where
type AttrAllowedOps DOMNodePreviousSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodePreviousSiblingPropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodePreviousSiblingPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodePreviousSiblingPropertyInfo = (~) ()
type AttrTransferType DOMNodePreviousSiblingPropertyInfo = ()
type AttrGetType DOMNodePreviousSiblingPropertyInfo = DOMNode
type AttrLabel DOMNodePreviousSiblingPropertyInfo = "previous-sibling"
type AttrOrigin DOMNodePreviousSiblingPropertyInfo = DOMNode
attrGet = getDOMNodePreviousSibling
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.previousSibling"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:previousSibling"
})
#endif
getDOMNodeTextContent :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeTextContent :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNode o) =>
o -> m (Maybe Text)
getDOMNodeTextContent o
obj = IO (Maybe Text) -> m (Maybe Text)
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
"text-content"
setDOMNodeTextContent :: (MonadIO m, IsDOMNode o) => o -> T.Text -> m ()
setDOMNodeTextContent :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNode o) =>
o -> Text -> m ()
setDOMNodeTextContent o
obj Text
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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"text-content" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMNodeTextContent :: (IsDOMNode o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMNodeTextContent :: forall o (m :: * -> *).
(IsDOMNode o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMNodeTextContent Text
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 Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"text-content" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearDOMNodeTextContent :: (MonadIO m, IsDOMNode o) => o -> m ()
clearDOMNodeTextContent :: forall (m :: * -> *) o. (MonadIO m, IsDOMNode o) => o -> m ()
clearDOMNodeTextContent 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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"text-content" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DOMNodeTextContentPropertyInfo
instance AttrInfo DOMNodeTextContentPropertyInfo where
type AttrAllowedOps DOMNodeTextContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeTextContentPropertyInfo = IsDOMNode
type AttrSetTypeConstraint DOMNodeTextContentPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMNodeTextContentPropertyInfo = (~) T.Text
type AttrTransferType DOMNodeTextContentPropertyInfo = T.Text
type AttrGetType DOMNodeTextContentPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNodeTextContentPropertyInfo = "text-content"
type AttrOrigin DOMNodeTextContentPropertyInfo = DOMNode
attrGet = getDOMNodeTextContent
attrSet = setDOMNodeTextContent
attrTransfer _ v = do
return v
attrConstruct = constructDOMNodeTextContent
attrClear = clearDOMNodeTextContent
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.textContent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#g:attr:textContent"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMNode
type instance O.AttributeList DOMNode = DOMNodeAttributeList
type DOMNodeAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeBaseUri :: AttrLabelProxy "baseUri"
dOMNodeBaseUri = AttrLabelProxy
dOMNodeChildNodes :: AttrLabelProxy "childNodes"
dOMNodeChildNodes = AttrLabelProxy
dOMNodeFirstChild :: AttrLabelProxy "firstChild"
dOMNodeFirstChild = AttrLabelProxy
dOMNodeLastChild :: AttrLabelProxy "lastChild"
dOMNodeLastChild = AttrLabelProxy
dOMNodeNextSibling :: AttrLabelProxy "nextSibling"
dOMNodeNextSibling = AttrLabelProxy
dOMNodeNodeName :: AttrLabelProxy "nodeName"
dOMNodeNodeName = AttrLabelProxy
dOMNodeNodeType :: AttrLabelProxy "nodeType"
dOMNodeNodeType = AttrLabelProxy
dOMNodeNodeValue :: AttrLabelProxy "nodeValue"
dOMNodeNodeValue = AttrLabelProxy
dOMNodeOwnerDocument :: AttrLabelProxy "ownerDocument"
dOMNodeOwnerDocument = AttrLabelProxy
dOMNodeParentElement :: AttrLabelProxy "parentElement"
dOMNodeParentElement = AttrLabelProxy
dOMNodeParentNode :: AttrLabelProxy "parentNode"
dOMNodeParentNode = AttrLabelProxy
dOMNodePreviousSibling :: AttrLabelProxy "previousSibling"
dOMNodePreviousSibling = AttrLabelProxy
dOMNodeTextContent :: AttrLabelProxy "textContent"
dOMNodeTextContent = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMNode = DOMNodeSignalList
type DOMNodeSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_node_append_child" webkit_dom_node_append_child ::
Ptr DOMNode ->
Ptr DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeAppendChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeAppendChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m DOMNode
dOMNodeAppendChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a -> b -> m DOMNode
dOMNodeAppendChild a
self b
newChild = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
newChild' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
newChild
IO DOMNode -> IO () -> IO DOMNode
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMNode
result <- (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode))
-> (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a b. (a -> b) -> a -> b
$ Ptr DOMNode -> Ptr DOMNode -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_node_append_child Ptr DOMNode
self' Ptr DOMNode
newChild'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeAppendChild" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
newChild
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMNodeAppendChildMethodInfo
instance (signature ~ (b -> m DOMNode), MonadIO m, IsDOMNode a, IsDOMNode b) => O.OverloadedMethod DOMNodeAppendChildMethodInfo a signature where
overloadedMethod = dOMNodeAppendChild
instance O.OverloadedMethodInfo DOMNodeAppendChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeAppendChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeAppendChild"
})
#endif
foreign import ccall "webkit_dom_node_clone_node_with_error" webkit_dom_node_clone_node_with_error ::
Ptr DOMNode ->
CInt ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeCloneNodeWithError ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeCloneNodeWithError ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> Bool
-> m DOMNode
dOMNodeCloneNodeWithError :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> Bool -> m DOMNode
dOMNodeCloneNodeWithError a
self Bool
deep = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let deep' :: CInt
deep' = (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
deep
IO DOMNode -> IO () -> IO DOMNode
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMNode
result <- (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode))
-> (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a b. (a -> b) -> a -> b
$ Ptr DOMNode -> CInt -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_node_clone_node_with_error Ptr DOMNode
self' CInt
deep'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeCloneNodeWithError" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMNodeCloneNodeWithErrorMethodInfo
instance (signature ~ (Bool -> m DOMNode), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeCloneNodeWithErrorMethodInfo a signature where
overloadedMethod = dOMNodeCloneNodeWithError
instance O.OverloadedMethodInfo DOMNodeCloneNodeWithErrorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeCloneNodeWithError",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeCloneNodeWithError"
})
#endif
foreign import ccall "webkit_dom_node_compare_document_position" webkit_dom_node_compare_document_position ::
Ptr DOMNode ->
Ptr DOMNode ->
IO Word16
{-# DEPRECATED dOMNodeCompareDocumentPosition ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeCompareDocumentPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m Word16
dOMNodeCompareDocumentPosition :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a -> b -> m Word16
dOMNodeCompareDocumentPosition a
self b
other = IO Word16 -> m Word16
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word16 -> m Word16) -> IO Word16 -> m Word16
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
other' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
other
Word16
result <- Ptr DOMNode -> Ptr DOMNode -> IO Word16
webkit_dom_node_compare_document_position Ptr DOMNode
self' Ptr DOMNode
other'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
other
Word16 -> IO Word16
forall (m :: * -> *) a. Monad m => a -> m a
return Word16
result
#if defined(ENABLE_OVERLOADING)
data DOMNodeCompareDocumentPositionMethodInfo
instance (signature ~ (b -> m Word16), MonadIO m, IsDOMNode a, IsDOMNode b) => O.OverloadedMethod DOMNodeCompareDocumentPositionMethodInfo a signature where
overloadedMethod = dOMNodeCompareDocumentPosition
instance O.OverloadedMethodInfo DOMNodeCompareDocumentPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeCompareDocumentPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeCompareDocumentPosition"
})
#endif
foreign import ccall "webkit_dom_node_contains" webkit_dom_node_contains ::
Ptr DOMNode ->
Ptr DOMNode ->
IO CInt
{-# DEPRECATED dOMNodeContains ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeContains ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m Bool
dOMNodeContains :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a -> b -> m Bool
dOMNodeContains a
self b
other = 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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
other' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
other
CInt
result <- Ptr DOMNode -> Ptr DOMNode -> IO CInt
webkit_dom_node_contains Ptr DOMNode
self' Ptr DOMNode
other'
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
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
other
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeContainsMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsDOMNode a, IsDOMNode b) => O.OverloadedMethod DOMNodeContainsMethodInfo a signature where
overloadedMethod = dOMNodeContains
instance O.OverloadedMethodInfo DOMNodeContainsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeContains",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeContains"
})
#endif
foreign import ccall "webkit_dom_node_get_base_uri" webkit_dom_node_get_base_uri ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetBaseUri ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetBaseUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetBaseUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m Text
dOMNodeGetBaseUri a
self = IO Text -> m Text
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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMNode -> IO CString
webkit_dom_node_get_base_uri Ptr DOMNode
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetBaseUri" 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 (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetBaseUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetBaseUriMethodInfo a signature where
overloadedMethod = dOMNodeGetBaseUri
instance O.OverloadedMethodInfo DOMNodeGetBaseUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetBaseUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetBaseUri"
})
#endif
foreign import ccall "webkit_dom_node_get_child_nodes" webkit_dom_node_get_child_nodes ::
Ptr DOMNode ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
{-# DEPRECATED dOMNodeGetChildNodes ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetChildNodes ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMNodeGetChildNodes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m DOMNodeList
dOMNodeGetChildNodes a
self = IO DOMNodeList -> m DOMNodeList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNodeList -> m DOMNodeList)
-> IO DOMNodeList -> m DOMNodeList
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNodeList
result <- Ptr DOMNode -> IO (Ptr DOMNodeList)
webkit_dom_node_get_child_nodes Ptr DOMNode
self'
Text -> Ptr DOMNodeList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetChildNodes" Ptr DOMNodeList
result
DOMNodeList
result' <- ((ManagedPtr DOMNodeList -> DOMNodeList)
-> Ptr DOMNodeList -> IO DOMNodeList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMNodeList -> DOMNodeList
WebKit2WebExtension.DOMNodeList.DOMNodeList) Ptr DOMNodeList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNodeList -> IO DOMNodeList
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNodeList
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetChildNodesMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetChildNodesMethodInfo a signature where
overloadedMethod = dOMNodeGetChildNodes
instance O.OverloadedMethodInfo DOMNodeGetChildNodesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetChildNodes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetChildNodes"
})
#endif
foreign import ccall "webkit_dom_node_get_first_child" webkit_dom_node_get_first_child ::
Ptr DOMNode ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeGetFirstChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetFirstChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetFirstChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m DOMNode
dOMNodeGetFirstChild a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMNode -> IO (Ptr DOMNode)
webkit_dom_node_get_first_child Ptr DOMNode
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetFirstChild" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetFirstChildMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetFirstChildMethodInfo a signature where
overloadedMethod = dOMNodeGetFirstChild
instance O.OverloadedMethodInfo DOMNodeGetFirstChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetFirstChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetFirstChild"
})
#endif
foreign import ccall "webkit_dom_node_get_last_child" webkit_dom_node_get_last_child ::
Ptr DOMNode ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeGetLastChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetLastChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetLastChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m DOMNode
dOMNodeGetLastChild a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMNode -> IO (Ptr DOMNode)
webkit_dom_node_get_last_child Ptr DOMNode
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetLastChild" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetLastChildMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetLastChildMethodInfo a signature where
overloadedMethod = dOMNodeGetLastChild
instance O.OverloadedMethodInfo DOMNodeGetLastChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetLastChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetLastChild"
})
#endif
foreign import ccall "webkit_dom_node_get_local_name" webkit_dom_node_get_local_name ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetLocalName ["(Since version 2.14)","Use 'GI.WebKit2WebExtension.Objects.DOMAttr.dOMAttrGetLocalName' or 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementGetLocalName' instead."] #-}
dOMNodeGetLocalName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetLocalName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m Text
dOMNodeGetLocalName a
self = IO Text -> m Text
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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMNode -> IO CString
webkit_dom_node_get_local_name Ptr DOMNode
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetLocalName" 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 (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetLocalNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetLocalNameMethodInfo a signature where
overloadedMethod = dOMNodeGetLocalName
instance O.OverloadedMethodInfo DOMNodeGetLocalNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetLocalName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetLocalName"
})
#endif
foreign import ccall "webkit_dom_node_get_namespace_uri" webkit_dom_node_get_namespace_uri ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetNamespaceUri ["(Since version 2.14)","Use 'GI.WebKit2WebExtension.Objects.DOMAttr.dOMAttrGetNamespaceUri' or 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementGetNamespaceUri' instead."] #-}
dOMNodeGetNamespaceUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetNamespaceUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m Text
dOMNodeGetNamespaceUri a
self = IO Text -> m Text
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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMNode -> IO CString
webkit_dom_node_get_namespace_uri Ptr DOMNode
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetNamespaceUri" 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 (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetNamespaceUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetNamespaceUriMethodInfo a signature where
overloadedMethod = dOMNodeGetNamespaceUri
instance O.OverloadedMethodInfo DOMNodeGetNamespaceUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetNamespaceUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetNamespaceUri"
})
#endif
foreign import ccall "webkit_dom_node_get_next_sibling" webkit_dom_node_get_next_sibling ::
Ptr DOMNode ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeGetNextSibling ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetNextSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetNextSibling :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m DOMNode
dOMNodeGetNextSibling a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMNode -> IO (Ptr DOMNode)
webkit_dom_node_get_next_sibling Ptr DOMNode
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetNextSibling" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetNextSiblingMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetNextSiblingMethodInfo a signature where
overloadedMethod = dOMNodeGetNextSibling
instance O.OverloadedMethodInfo DOMNodeGetNextSiblingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetNextSibling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetNextSibling"
})
#endif
foreign import ccall "webkit_dom_node_get_node_name" webkit_dom_node_get_node_name ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetNodeName ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetNodeName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetNodeName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m Text
dOMNodeGetNodeName a
self = IO Text -> m Text
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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMNode -> IO CString
webkit_dom_node_get_node_name Ptr DOMNode
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetNodeName" 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 (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetNodeNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetNodeNameMethodInfo a signature where
overloadedMethod = dOMNodeGetNodeName
instance O.OverloadedMethodInfo DOMNodeGetNodeNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetNodeName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetNodeName"
})
#endif
foreign import ccall "webkit_dom_node_get_node_type" webkit_dom_node_get_node_type ::
Ptr DOMNode ->
IO Word16
{-# DEPRECATED dOMNodeGetNodeType ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetNodeType ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m Word16
dOMNodeGetNodeType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m Word16
dOMNodeGetNodeType a
self = IO Word16 -> m Word16
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word16 -> m Word16) -> IO Word16 -> m Word16
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word16
result <- Ptr DOMNode -> IO Word16
webkit_dom_node_get_node_type Ptr DOMNode
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word16 -> IO Word16
forall (m :: * -> *) a. Monad m => a -> m a
return Word16
result
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetNodeTypeMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetNodeTypeMethodInfo a signature where
overloadedMethod = dOMNodeGetNodeType
instance O.OverloadedMethodInfo DOMNodeGetNodeTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetNodeType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetNodeType"
})
#endif
foreign import ccall "webkit_dom_node_get_node_value" webkit_dom_node_get_node_value ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetNodeValue ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetNodeValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetNodeValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m Text
dOMNodeGetNodeValue a
self = IO Text -> m Text
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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMNode -> IO CString
webkit_dom_node_get_node_value Ptr DOMNode
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetNodeValue" 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 (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetNodeValueMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetNodeValueMethodInfo a signature where
overloadedMethod = dOMNodeGetNodeValue
instance O.OverloadedMethodInfo DOMNodeGetNodeValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetNodeValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetNodeValue"
})
#endif
foreign import ccall "webkit_dom_node_get_owner_document" webkit_dom_node_get_owner_document ::
Ptr DOMNode ->
IO (Ptr WebKit2WebExtension.DOMDocument.DOMDocument)
{-# DEPRECATED dOMNodeGetOwnerDocument ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetOwnerDocument ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m WebKit2WebExtension.DOMDocument.DOMDocument
dOMNodeGetOwnerDocument :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m DOMDocument
dOMNodeGetOwnerDocument a
self = IO DOMDocument -> m DOMDocument
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMDocument -> m DOMDocument)
-> IO DOMDocument -> m DOMDocument
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMDocument
result <- Ptr DOMNode -> IO (Ptr DOMDocument)
webkit_dom_node_get_owner_document Ptr DOMNode
self'
Text -> Ptr DOMDocument -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetOwnerDocument" Ptr DOMDocument
result
DOMDocument
result' <- ((ManagedPtr DOMDocument -> DOMDocument)
-> Ptr DOMDocument -> IO DOMDocument
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMDocument -> DOMDocument
WebKit2WebExtension.DOMDocument.DOMDocument) Ptr DOMDocument
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMDocument -> IO DOMDocument
forall (m :: * -> *) a. Monad m => a -> m a
return DOMDocument
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetOwnerDocumentMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDocument.DOMDocument), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetOwnerDocumentMethodInfo a signature where
overloadedMethod = dOMNodeGetOwnerDocument
instance O.OverloadedMethodInfo DOMNodeGetOwnerDocumentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetOwnerDocument",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetOwnerDocument"
})
#endif
foreign import ccall "webkit_dom_node_get_parent_element" webkit_dom_node_get_parent_element ::
Ptr DOMNode ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMNodeGetParentElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetParentElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMNodeGetParentElement :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m DOMElement
dOMNodeGetParentElement a
self = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMNode -> IO (Ptr DOMElement)
webkit_dom_node_get_parent_element Ptr DOMNode
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetParentElement" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetParentElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetParentElementMethodInfo a signature where
overloadedMethod = dOMNodeGetParentElement
instance O.OverloadedMethodInfo DOMNodeGetParentElementMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetParentElement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetParentElement"
})
#endif
foreign import ccall "webkit_dom_node_get_parent_node" webkit_dom_node_get_parent_node ::
Ptr DOMNode ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeGetParentNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetParentNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetParentNode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m DOMNode
dOMNodeGetParentNode a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMNode -> IO (Ptr DOMNode)
webkit_dom_node_get_parent_node Ptr DOMNode
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetParentNode" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetParentNodeMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetParentNodeMethodInfo a signature where
overloadedMethod = dOMNodeGetParentNode
instance O.OverloadedMethodInfo DOMNodeGetParentNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetParentNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetParentNode"
})
#endif
foreign import ccall "webkit_dom_node_get_prefix" webkit_dom_node_get_prefix ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetPrefix ["(Since version 2.14)","Use 'GI.WebKit2WebExtension.Objects.DOMAttr.dOMAttrGetPrefix' or 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementGetPrefix' instead."] #-}
dOMNodeGetPrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetPrefix :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m Text
dOMNodeGetPrefix a
self = IO Text -> m Text
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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMNode -> IO CString
webkit_dom_node_get_prefix Ptr DOMNode
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetPrefix" 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 (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetPrefixMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetPrefixMethodInfo a signature where
overloadedMethod = dOMNodeGetPrefix
instance O.OverloadedMethodInfo DOMNodeGetPrefixMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetPrefix",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetPrefix"
})
#endif
foreign import ccall "webkit_dom_node_get_previous_sibling" webkit_dom_node_get_previous_sibling ::
Ptr DOMNode ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeGetPreviousSibling ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetPreviousSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetPreviousSibling :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m DOMNode
dOMNodeGetPreviousSibling a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMNode -> IO (Ptr DOMNode)
webkit_dom_node_get_previous_sibling Ptr DOMNode
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetPreviousSibling" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetPreviousSiblingMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetPreviousSiblingMethodInfo a signature where
overloadedMethod = dOMNodeGetPreviousSibling
instance O.OverloadedMethodInfo DOMNodeGetPreviousSiblingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetPreviousSibling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetPreviousSibling"
})
#endif
foreign import ccall "webkit_dom_node_get_text_content" webkit_dom_node_get_text_content ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetTextContent ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetTextContent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetTextContent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m Text
dOMNodeGetTextContent a
self = IO Text -> m Text
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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMNode -> IO CString
webkit_dom_node_get_text_content Ptr DOMNode
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeGetTextContent" 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 (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeGetTextContentMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeGetTextContentMethodInfo a signature where
overloadedMethod = dOMNodeGetTextContent
instance O.OverloadedMethodInfo DOMNodeGetTextContentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeGetTextContent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeGetTextContent"
})
#endif
foreign import ccall "webkit_dom_node_has_child_nodes" webkit_dom_node_has_child_nodes ::
Ptr DOMNode ->
IO CInt
{-# DEPRECATED dOMNodeHasChildNodes ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeHasChildNodes ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m Bool
dOMNodeHasChildNodes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m Bool
dOMNodeHasChildNodes a
self = 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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMNode -> IO CInt
webkit_dom_node_has_child_nodes Ptr DOMNode
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeHasChildNodesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeHasChildNodesMethodInfo a signature where
overloadedMethod = dOMNodeHasChildNodes
instance O.OverloadedMethodInfo DOMNodeHasChildNodesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeHasChildNodes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeHasChildNodes"
})
#endif
foreign import ccall "webkit_dom_node_insert_before" webkit_dom_node_insert_before ::
Ptr DOMNode ->
Ptr DOMNode ->
Ptr DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeInsertBefore ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeInsertBefore ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) =>
a
-> b
-> Maybe (c)
-> m DOMNode
dOMNodeInsertBefore :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) =>
a -> b -> Maybe c -> m DOMNode
dOMNodeInsertBefore a
self b
newChild Maybe c
refChild = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
newChild' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
newChild
Ptr DOMNode
maybeRefChild <- case Maybe c
refChild of
Maybe c
Nothing -> Ptr DOMNode -> IO (Ptr DOMNode)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DOMNode
forall a. Ptr a
nullPtr
Just c
jRefChild -> do
Ptr DOMNode
jRefChild' <- c -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jRefChild
Ptr DOMNode -> IO (Ptr DOMNode)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DOMNode
jRefChild'
IO DOMNode -> IO () -> IO DOMNode
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMNode
result <- (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode))
-> (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a b. (a -> b) -> a -> b
$ Ptr DOMNode
-> Ptr DOMNode
-> Ptr DOMNode
-> Ptr (Ptr GError)
-> IO (Ptr DOMNode)
webkit_dom_node_insert_before Ptr DOMNode
self' Ptr DOMNode
newChild' Ptr DOMNode
maybeRefChild
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeInsertBefore" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
newChild
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
refChild c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMNodeInsertBeforeMethodInfo
instance (signature ~ (b -> Maybe (c) -> m DOMNode), MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) => O.OverloadedMethod DOMNodeInsertBeforeMethodInfo a signature where
overloadedMethod = dOMNodeInsertBefore
instance O.OverloadedMethodInfo DOMNodeInsertBeforeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeInsertBefore",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeInsertBefore"
})
#endif
foreign import ccall "webkit_dom_node_is_default_namespace" webkit_dom_node_is_default_namespace ::
Ptr DOMNode ->
CString ->
IO CInt
{-# DEPRECATED dOMNodeIsDefaultNamespace ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIsDefaultNamespace ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m Bool
dOMNodeIsDefaultNamespace :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> Text -> m Bool
dOMNodeIsDefaultNamespace a
self Text
namespaceURI = 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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
namespaceURI' <- Text -> IO CString
textToCString Text
namespaceURI
CInt
result <- Ptr DOMNode -> CString -> IO CInt
webkit_dom_node_is_default_namespace Ptr DOMNode
self' CString
namespaceURI'
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
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
namespaceURI'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeIsDefaultNamespaceMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeIsDefaultNamespaceMethodInfo a signature where
overloadedMethod = dOMNodeIsDefaultNamespace
instance O.OverloadedMethodInfo DOMNodeIsDefaultNamespaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeIsDefaultNamespace",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeIsDefaultNamespace"
})
#endif
foreign import ccall "webkit_dom_node_is_equal_node" webkit_dom_node_is_equal_node ::
Ptr DOMNode ->
Ptr DOMNode ->
IO CInt
{-# DEPRECATED dOMNodeIsEqualNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIsEqualNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m Bool
dOMNodeIsEqualNode :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a -> b -> m Bool
dOMNodeIsEqualNode a
self b
other = 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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
other' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
other
CInt
result <- Ptr DOMNode -> Ptr DOMNode -> IO CInt
webkit_dom_node_is_equal_node Ptr DOMNode
self' Ptr DOMNode
other'
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
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
other
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeIsEqualNodeMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsDOMNode a, IsDOMNode b) => O.OverloadedMethod DOMNodeIsEqualNodeMethodInfo a signature where
overloadedMethod = dOMNodeIsEqualNode
instance O.OverloadedMethodInfo DOMNodeIsEqualNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeIsEqualNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeIsEqualNode"
})
#endif
foreign import ccall "webkit_dom_node_is_same_node" webkit_dom_node_is_same_node ::
Ptr DOMNode ->
Ptr DOMNode ->
IO CInt
{-# DEPRECATED dOMNodeIsSameNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIsSameNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m Bool
dOMNodeIsSameNode :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a -> b -> m Bool
dOMNodeIsSameNode a
self b
other = 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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
other' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
other
CInt
result <- Ptr DOMNode -> Ptr DOMNode -> IO CInt
webkit_dom_node_is_same_node Ptr DOMNode
self' Ptr DOMNode
other'
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
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
other
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeIsSameNodeMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsDOMNode a, IsDOMNode b) => O.OverloadedMethod DOMNodeIsSameNodeMethodInfo a signature where
overloadedMethod = dOMNodeIsSameNode
instance O.OverloadedMethodInfo DOMNodeIsSameNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeIsSameNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeIsSameNode"
})
#endif
foreign import ccall "webkit_dom_node_is_supported" webkit_dom_node_is_supported ::
Ptr DOMNode ->
CString ->
CString ->
IO CInt
{-# DEPRECATED dOMNodeIsSupported ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIsSupported ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> T.Text
-> m Bool
dOMNodeIsSupported :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> Text -> Text -> m Bool
dOMNodeIsSupported a
self Text
feature Text
version = 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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
feature' <- Text -> IO CString
textToCString Text
feature
CString
version' <- Text -> IO CString
textToCString Text
version
CInt
result <- Ptr DOMNode -> CString -> CString -> IO CInt
webkit_dom_node_is_supported Ptr DOMNode
self' CString
feature' CString
version'
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
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
feature'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
version'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeIsSupportedMethodInfo
instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeIsSupportedMethodInfo a signature where
overloadedMethod = dOMNodeIsSupported
instance O.OverloadedMethodInfo DOMNodeIsSupportedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeIsSupported",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeIsSupported"
})
#endif
foreign import ccall "webkit_dom_node_lookup_namespace_uri" webkit_dom_node_lookup_namespace_uri ::
Ptr DOMNode ->
CString ->
IO CString
{-# DEPRECATED dOMNodeLookupNamespaceUri ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeLookupNamespaceUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m T.Text
dOMNodeLookupNamespaceUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> Text -> m Text
dOMNodeLookupNamespaceUri a
self Text
prefix = IO Text -> m Text
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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
prefix' <- Text -> IO CString
textToCString Text
prefix
CString
result <- Ptr DOMNode -> CString -> IO CString
webkit_dom_node_lookup_namespace_uri Ptr DOMNode
self' CString
prefix'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeLookupNamespaceUri" 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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prefix'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeLookupNamespaceUriMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeLookupNamespaceUriMethodInfo a signature where
overloadedMethod = dOMNodeLookupNamespaceUri
instance O.OverloadedMethodInfo DOMNodeLookupNamespaceUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeLookupNamespaceUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeLookupNamespaceUri"
})
#endif
foreign import ccall "webkit_dom_node_lookup_prefix" webkit_dom_node_lookup_prefix ::
Ptr DOMNode ->
CString ->
IO CString
{-# DEPRECATED dOMNodeLookupPrefix ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeLookupPrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m T.Text
dOMNodeLookupPrefix :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> Text -> m Text
dOMNodeLookupPrefix a
self Text
namespaceURI = IO Text -> m Text
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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
namespaceURI' <- Text -> IO CString
textToCString Text
namespaceURI
CString
result <- Ptr DOMNode -> CString -> IO CString
webkit_dom_node_lookup_prefix Ptr DOMNode
self' CString
namespaceURI'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeLookupPrefix" 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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
namespaceURI'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeLookupPrefixMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeLookupPrefixMethodInfo a signature where
overloadedMethod = dOMNodeLookupPrefix
instance O.OverloadedMethodInfo DOMNodeLookupPrefixMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeLookupPrefix",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeLookupPrefix"
})
#endif
foreign import ccall "webkit_dom_node_normalize" webkit_dom_node_normalize ::
Ptr DOMNode ->
IO ()
{-# DEPRECATED dOMNodeNormalize ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeNormalize ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m ()
dOMNodeNormalize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> m ()
dOMNodeNormalize a
self = 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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode -> IO ()
webkit_dom_node_normalize Ptr DOMNode
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMNodeNormalizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeNormalizeMethodInfo a signature where
overloadedMethod = dOMNodeNormalize
instance O.OverloadedMethodInfo DOMNodeNormalizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeNormalize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeNormalize"
})
#endif
foreign import ccall "webkit_dom_node_remove_child" webkit_dom_node_remove_child ::
Ptr DOMNode ->
Ptr DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeRemoveChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeRemoveChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m DOMNode
dOMNodeRemoveChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a -> b -> m DOMNode
dOMNodeRemoveChild a
self b
oldChild = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
oldChild' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
oldChild
IO DOMNode -> IO () -> IO DOMNode
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMNode
result <- (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode))
-> (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a b. (a -> b) -> a -> b
$ Ptr DOMNode -> Ptr DOMNode -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_node_remove_child Ptr DOMNode
self' Ptr DOMNode
oldChild'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeRemoveChild" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
oldChild
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMNodeRemoveChildMethodInfo
instance (signature ~ (b -> m DOMNode), MonadIO m, IsDOMNode a, IsDOMNode b) => O.OverloadedMethod DOMNodeRemoveChildMethodInfo a signature where
overloadedMethod = dOMNodeRemoveChild
instance O.OverloadedMethodInfo DOMNodeRemoveChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeRemoveChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeRemoveChild"
})
#endif
foreign import ccall "webkit_dom_node_replace_child" webkit_dom_node_replace_child ::
Ptr DOMNode ->
Ptr DOMNode ->
Ptr DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeReplaceChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeReplaceChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) =>
a
-> b
-> c
-> m DOMNode
dOMNodeReplaceChild :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) =>
a -> b -> c -> m DOMNode
dOMNodeReplaceChild a
self b
newChild c
oldChild = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
newChild' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
newChild
Ptr DOMNode
oldChild' <- c -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
oldChild
IO DOMNode -> IO () -> IO DOMNode
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMNode
result <- (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode))
-> (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a b. (a -> b) -> a -> b
$ Ptr DOMNode
-> Ptr DOMNode
-> Ptr DOMNode
-> Ptr (Ptr GError)
-> IO (Ptr DOMNode)
webkit_dom_node_replace_child Ptr DOMNode
self' Ptr DOMNode
newChild' Ptr DOMNode
oldChild'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeReplaceChild" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
newChild
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
oldChild
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMNodeReplaceChildMethodInfo
instance (signature ~ (b -> c -> m DOMNode), MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) => O.OverloadedMethod DOMNodeReplaceChildMethodInfo a signature where
overloadedMethod = dOMNodeReplaceChild
instance O.OverloadedMethodInfo DOMNodeReplaceChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeReplaceChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeReplaceChild"
})
#endif
foreign import ccall "webkit_dom_node_set_node_value" webkit_dom_node_set_node_value ::
Ptr DOMNode ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMNodeSetNodeValue ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeSetNodeValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m ()
dOMNodeSetNodeValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> Text -> m ()
dOMNodeSetNodeValue a
self Text
value = 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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMNode -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_node_set_node_value Ptr DOMNode
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
)
#if defined(ENABLE_OVERLOADING)
data DOMNodeSetNodeValueMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeSetNodeValueMethodInfo a signature where
overloadedMethod = dOMNodeSetNodeValue
instance O.OverloadedMethodInfo DOMNodeSetNodeValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeSetNodeValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeSetNodeValue"
})
#endif
foreign import ccall "webkit_dom_node_set_prefix" webkit_dom_node_set_prefix ::
Ptr DOMNode ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMNodeSetPrefix ["(Since version 2.14)"] #-}
dOMNodeSetPrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m ()
dOMNodeSetPrefix :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> Text -> m ()
dOMNodeSetPrefix a
self Text
value = 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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMNode -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_node_set_prefix Ptr DOMNode
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
)
#if defined(ENABLE_OVERLOADING)
data DOMNodeSetPrefixMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeSetPrefixMethodInfo a signature where
overloadedMethod = dOMNodeSetPrefix
instance O.OverloadedMethodInfo DOMNodeSetPrefixMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeSetPrefix",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeSetPrefix"
})
#endif
foreign import ccall "webkit_dom_node_set_text_content" webkit_dom_node_set_text_content ::
Ptr DOMNode ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMNodeSetTextContent ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeSetTextContent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m ()
dOMNodeSetTextContent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNode a) =>
a -> Text -> m ()
dOMNodeSetTextContent a
self Text
value = 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 DOMNode
self' <- a -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMNode -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_node_set_text_content Ptr DOMNode
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
)
#if defined(ENABLE_OVERLOADING)
data DOMNodeSetTextContentMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMNode a) => O.OverloadedMethod DOMNodeSetTextContentMethodInfo a signature where
overloadedMethod = dOMNodeSetTextContent
instance O.OverloadedMethodInfo DOMNodeSetTextContentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNode.dOMNodeSetTextContent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMNode.html#v:dOMNodeSetTextContent"
})
#endif
foreign import ccall "webkit_dom_node_for_js_value" webkit_dom_node_for_js_value ::
Ptr JavaScriptCore.Value.Value ->
IO (Ptr DOMNode)
dOMNodeForJsValue ::
(B.CallStack.HasCallStack, MonadIO m, JavaScriptCore.Value.IsValue a) =>
a
-> m DOMNode
dOMNodeForJsValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsValue a) =>
a -> m DOMNode
dOMNodeForJsValue a
value = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr Value
value' <- a -> IO (Ptr Value)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
value
Ptr DOMNode
result <- Ptr Value -> IO (Ptr DOMNode)
webkit_dom_node_for_js_value Ptr Value
value'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeForJsValue" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
value
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
#endif