{-# 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 ,
noDOMNode ,
#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.ManagedPtr as B.ManagedPtr
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 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 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 (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)
foreign import ccall "webkit_dom_node_get_type"
c_webkit_dom_node_get_type :: IO GType
instance GObject DOMNode where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_dom_node_get_type
instance B.GValue.IsGValue DOMNode where
toGValue :: DOMNode -> IO GValue
toGValue o :: DOMNode
o = do
GType
gtype <- IO GType
c_webkit_dom_node_get_type
DOMNode -> (Ptr DOMNode -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMNode
o (GType
-> (GValue -> Ptr DOMNode -> IO ()) -> Ptr DOMNode -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DOMNode -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO DOMNode
fromGValue gv :: GValue
gv = do
Ptr DOMNode
ptr <- GValue -> IO (Ptr DOMNode)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DOMNode)
(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
class (GObject o, O.IsDescendantOf DOMNode o) => IsDOMNode o
instance (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 :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
toDOMNode :: o -> m DOMNode
toDOMNode = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DOMNode -> DOMNode
DOMNode
noDOMNode :: Maybe DOMNode
noDOMNode :: Maybe DOMNode
noDOMNode = Maybe DOMNode
forall a. Maybe a
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.MethodInfo 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
#endif
getDOMNodeBaseUri :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeBaseUri :: o -> m (Maybe Text)
getDOMNodeBaseUri obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "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
#endif
getDOMNodeChildNodes :: (MonadIO m, IsDOMNode o) => o -> m (Maybe WebKit2WebExtension.DOMNodeList.DOMNodeList)
getDOMNodeChildNodes :: o -> m (Maybe DOMNodeList)
getDOMNodeChildNodes obj :: o
obj = IO (Maybe DOMNodeList) -> m (Maybe DOMNodeList)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "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
#endif
getDOMNodeFirstChild :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeFirstChild :: o -> m DOMNode
getDOMNodeFirstChild obj :: o
obj = 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
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "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 "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
#endif
getDOMNodeLastChild :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeLastChild :: o -> m DOMNode
getDOMNodeLastChild obj :: o
obj = 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
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "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 "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
#endif
getDOMNodeNextSibling :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeNextSibling :: o -> m DOMNode
getDOMNodeNextSibling obj :: o
obj = 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
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "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 "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
#endif
getDOMNodeNodeName :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeNodeName :: o -> m (Maybe Text)
getDOMNodeNodeName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "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
#endif
getDOMNodeNodeType :: (MonadIO m, IsDOMNode o) => o -> m Word32
getDOMNodeNodeType :: o -> m Word32
getDOMNodeNodeType obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "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
#endif
getDOMNodeNodeValue :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeNodeValue :: o -> m (Maybe Text)
getDOMNodeNodeValue obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "node-value"
setDOMNodeNodeValue :: (MonadIO m, IsDOMNode o) => o -> T.Text -> m ()
setDOMNodeNodeValue :: o -> Text -> m ()
setDOMNodeNodeValue obj :: o
obj val :: Text
val = 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 "node-value" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMNodeNodeValue :: (IsDOMNode o) => T.Text -> IO (GValueConstruct o)
constructDOMNodeNodeValue :: Text -> IO (GValueConstruct o)
constructDOMNodeNodeValue val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "node-value" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearDOMNodeNodeValue :: (MonadIO m, IsDOMNode o) => o -> m ()
clearDOMNodeNodeValue :: o -> m ()
clearDOMNodeNodeValue obj :: 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 "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
#endif
getDOMNodeOwnerDocument :: (MonadIO m, IsDOMNode o) => o -> m WebKit2WebExtension.DOMDocument.DOMDocument
getDOMNodeOwnerDocument :: o -> m DOMDocument
getDOMNodeOwnerDocument obj :: o
obj = 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
$ Text -> IO (Maybe DOMDocument) -> IO DOMDocument
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "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 "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
#endif
getDOMNodeParentElement :: (MonadIO m, IsDOMNode o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMNodeParentElement :: o -> m DOMElement
getDOMNodeParentElement obj :: o
obj = 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
$ Text -> IO (Maybe DOMElement) -> IO DOMElement
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "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 "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
#endif
getDOMNodeParentNode :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeParentNode :: o -> m DOMNode
getDOMNodeParentNode obj :: o
obj = 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
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "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 "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
#endif
getDOMNodePreviousSibling :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodePreviousSibling :: o -> m DOMNode
getDOMNodePreviousSibling obj :: o
obj = 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
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "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 "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
#endif
getDOMNodeTextContent :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeTextContent :: o -> m (Maybe Text)
getDOMNodeTextContent obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "text-content"
setDOMNodeTextContent :: (MonadIO m, IsDOMNode o) => o -> T.Text -> m ()
setDOMNodeTextContent :: o -> Text -> m ()
setDOMNodeTextContent obj :: o
obj val :: Text
val = 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 "text-content" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMNodeTextContent :: (IsDOMNode o) => T.Text -> IO (GValueConstruct o)
constructDOMNodeTextContent :: Text -> IO (GValueConstruct o)
constructDOMNodeTextContent val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "text-content" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearDOMNodeTextContent :: (MonadIO m, IsDOMNode o) => o -> m ()
clearDOMNodeTextContent :: o -> m ()
clearDOMNodeTextContent obj :: 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 "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
#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 :: a -> b -> m DOMNode
dOMNodeAppendChild self :: a
self newChild :: 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 "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.MethodInfo DOMNodeAppendChildMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m DOMNode
dOMNodeCloneNodeWithError self :: a
self deep :: 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 "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.MethodInfo DOMNodeCloneNodeWithErrorMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m Word16
dOMNodeCompareDocumentPosition self :: a
self other :: 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.MethodInfo DOMNodeCompareDocumentPositionMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m Bool
dOMNodeContains self :: a
self other :: 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
/= 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.MethodInfo DOMNodeContainsMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
dOMNodeGetBaseUri self :: 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 "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.MethodInfo DOMNodeGetBaseUriMethodInfo a signature where
overloadedMethod = 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 :: a -> m DOMNodeList
dOMNodeGetChildNodes self :: 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 "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.MethodInfo DOMNodeGetChildNodesMethodInfo a signature where
overloadedMethod = 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 :: a -> m DOMNode
dOMNodeGetFirstChild self :: 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 "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.MethodInfo DOMNodeGetFirstChildMethodInfo a signature where
overloadedMethod = 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 :: a -> m DOMNode
dOMNodeGetLastChild self :: 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 "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.MethodInfo DOMNodeGetLastChildMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
dOMNodeGetLocalName self :: 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 "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.MethodInfo DOMNodeGetLocalNameMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
dOMNodeGetNamespaceUri self :: 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 "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.MethodInfo DOMNodeGetNamespaceUriMethodInfo a signature where
overloadedMethod = 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 :: a -> m DOMNode
dOMNodeGetNextSibling self :: 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 "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.MethodInfo DOMNodeGetNextSiblingMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
dOMNodeGetNodeName self :: 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 "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.MethodInfo DOMNodeGetNodeNameMethodInfo a signature where
overloadedMethod = 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 :: a -> m Word16
dOMNodeGetNodeType self :: 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.MethodInfo DOMNodeGetNodeTypeMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
dOMNodeGetNodeValue self :: 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 "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.MethodInfo DOMNodeGetNodeValueMethodInfo a signature where
overloadedMethod = 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 :: a -> m DOMDocument
dOMNodeGetOwnerDocument self :: 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 "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.MethodInfo DOMNodeGetOwnerDocumentMethodInfo a signature where
overloadedMethod = 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 :: a -> m DOMElement
dOMNodeGetParentElement self :: 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 "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.MethodInfo DOMNodeGetParentElementMethodInfo a signature where
overloadedMethod = 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 :: a -> m DOMNode
dOMNodeGetParentNode self :: 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 "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.MethodInfo DOMNodeGetParentNodeMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
dOMNodeGetPrefix self :: 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 "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.MethodInfo DOMNodeGetPrefixMethodInfo a signature where
overloadedMethod = 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 :: a -> m DOMNode
dOMNodeGetPreviousSibling self :: 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 "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.MethodInfo DOMNodeGetPreviousSiblingMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
dOMNodeGetTextContent self :: 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 "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.MethodInfo DOMNodeGetTextContentMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
dOMNodeHasChildNodes self :: 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
/= 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.MethodInfo DOMNodeHasChildNodesMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> Maybe c -> m DOMNode
dOMNodeInsertBefore self :: a
self newChild :: b
newChild refChild :: 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
Nothing -> Ptr DOMNode -> IO (Ptr DOMNode)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DOMNode
forall a. Ptr a
nullPtr
Just jRefChild :: 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 "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.MethodInfo DOMNodeInsertBeforeMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m Bool
dOMNodeIsDefaultNamespace self :: a
self namespaceURI :: 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
/= 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.MethodInfo DOMNodeIsDefaultNamespaceMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m Bool
dOMNodeIsEqualNode self :: a
self other :: 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
/= 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.MethodInfo DOMNodeIsEqualNodeMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m Bool
dOMNodeIsSameNode self :: a
self other :: 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
/= 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.MethodInfo DOMNodeIsSameNodeMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> Text -> m Bool
dOMNodeIsSupported self :: a
self feature :: Text
feature version :: 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
/= 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.MethodInfo DOMNodeIsSupportedMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m Text
dOMNodeLookupNamespaceUri self :: a
self prefix :: 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 "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.MethodInfo DOMNodeLookupNamespaceUriMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m Text
dOMNodeLookupPrefix self :: a
self namespaceURI :: 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 "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.MethodInfo DOMNodeLookupPrefixMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
dOMNodeNormalize self :: 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.MethodInfo DOMNodeNormalizeMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m DOMNode
dOMNodeRemoveChild self :: a
self oldChild :: 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 "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.MethodInfo DOMNodeRemoveChildMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> c -> m DOMNode
dOMNodeReplaceChild self :: a
self newChild :: b
newChild oldChild :: 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 "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.MethodInfo DOMNodeReplaceChildMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m ()
dOMNodeSetNodeValue self :: a
self value :: 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.MethodInfo DOMNodeSetNodeValueMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m ()
dOMNodeSetPrefix self :: a
self value :: 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.MethodInfo DOMNodeSetPrefixMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m ()
dOMNodeSetTextContent self :: a
self value :: 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.MethodInfo DOMNodeSetTextContentMethodInfo a signature where
overloadedMethod = 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 :: a -> m DOMNode
dOMNodeForJsValue value :: 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 "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