module GI.WebKit2WebExtension.Objects.DOMNode
(
DOMNode(..) ,
IsDOMNode ,
toDOMNode ,
noDOMNode ,
DOMNodeAppendChildMethodInfo ,
dOMNodeAppendChild ,
DOMNodeCloneNodeWithErrorMethodInfo ,
dOMNodeCloneNodeWithError ,
DOMNodeCompareDocumentPositionMethodInfo,
dOMNodeCompareDocumentPosition ,
DOMNodeContainsMethodInfo ,
dOMNodeContains ,
DOMNodeGetBaseUriMethodInfo ,
dOMNodeGetBaseUri ,
DOMNodeGetChildNodesMethodInfo ,
dOMNodeGetChildNodes ,
DOMNodeGetFirstChildMethodInfo ,
dOMNodeGetFirstChild ,
DOMNodeGetLastChildMethodInfo ,
dOMNodeGetLastChild ,
DOMNodeGetLocalNameMethodInfo ,
dOMNodeGetLocalName ,
DOMNodeGetNamespaceUriMethodInfo ,
dOMNodeGetNamespaceUri ,
DOMNodeGetNextSiblingMethodInfo ,
dOMNodeGetNextSibling ,
DOMNodeGetNodeNameMethodInfo ,
dOMNodeGetNodeName ,
DOMNodeGetNodeTypeMethodInfo ,
dOMNodeGetNodeType ,
DOMNodeGetNodeValueMethodInfo ,
dOMNodeGetNodeValue ,
DOMNodeGetOwnerDocumentMethodInfo ,
dOMNodeGetOwnerDocument ,
DOMNodeGetParentElementMethodInfo ,
dOMNodeGetParentElement ,
DOMNodeGetParentNodeMethodInfo ,
dOMNodeGetParentNode ,
DOMNodeGetPrefixMethodInfo ,
dOMNodeGetPrefix ,
DOMNodeGetPreviousSiblingMethodInfo ,
dOMNodeGetPreviousSibling ,
DOMNodeGetTextContentMethodInfo ,
dOMNodeGetTextContent ,
DOMNodeHasChildNodesMethodInfo ,
dOMNodeHasChildNodes ,
DOMNodeInsertBeforeMethodInfo ,
dOMNodeInsertBefore ,
DOMNodeIsDefaultNamespaceMethodInfo ,
dOMNodeIsDefaultNamespace ,
DOMNodeIsEqualNodeMethodInfo ,
dOMNodeIsEqualNode ,
DOMNodeIsSameNodeMethodInfo ,
dOMNodeIsSameNode ,
DOMNodeIsSupportedMethodInfo ,
dOMNodeIsSupported ,
DOMNodeLookupNamespaceUriMethodInfo ,
dOMNodeLookupNamespaceUri ,
DOMNodeLookupPrefixMethodInfo ,
dOMNodeLookupPrefix ,
DOMNodeNormalizeMethodInfo ,
dOMNodeNormalize ,
DOMNodeRemoveChildMethodInfo ,
dOMNodeRemoveChild ,
DOMNodeReplaceChildMethodInfo ,
dOMNodeReplaceChild ,
DOMNodeSetNodeValueMethodInfo ,
dOMNodeSetNodeValue ,
DOMNodeSetPrefixMethodInfo ,
dOMNodeSetPrefix ,
DOMNodeSetTextContentMethodInfo ,
dOMNodeSetTextContent ,
DOMNodeBaseUriPropertyInfo ,
dOMNodeBaseUri ,
getDOMNodeBaseUri ,
DOMNodeChildNodesPropertyInfo ,
dOMNodeChildNodes ,
getDOMNodeChildNodes ,
DOMNodeFirstChildPropertyInfo ,
dOMNodeFirstChild ,
getDOMNodeFirstChild ,
DOMNodeLastChildPropertyInfo ,
dOMNodeLastChild ,
getDOMNodeLastChild ,
DOMNodeNextSiblingPropertyInfo ,
dOMNodeNextSibling ,
getDOMNodeNextSibling ,
DOMNodeNodeNamePropertyInfo ,
dOMNodeNodeName ,
getDOMNodeNodeName ,
DOMNodeNodeTypePropertyInfo ,
dOMNodeNodeType ,
getDOMNodeNodeType ,
DOMNodeNodeValuePropertyInfo ,
clearDOMNodeNodeValue ,
constructDOMNodeNodeValue ,
dOMNodeNodeValue ,
getDOMNodeNodeValue ,
setDOMNodeNodeValue ,
DOMNodeOwnerDocumentPropertyInfo ,
dOMNodeOwnerDocument ,
getDOMNodeOwnerDocument ,
DOMNodeParentElementPropertyInfo ,
dOMNodeParentElement ,
getDOMNodeParentElement ,
DOMNodeParentNodePropertyInfo ,
dOMNodeParentNode ,
getDOMNodeParentNode ,
DOMNodePreviousSiblingPropertyInfo ,
dOMNodePreviousSibling ,
getDOMNodePreviousSibling ,
DOMNodeTextContentPropertyInfo ,
clearDOMNodeTextContent ,
constructDOMNodeTextContent ,
dOMNodeTextContent ,
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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.WebKit2WebExtension.Interfaces.DOMEventTarget as WebKit2WebExtension.DOMEventTarget
import qualified GI.WebKit2WebExtension.Objects.DOMDocument as WebKit2WebExtension.DOMDocument
import qualified GI.WebKit2WebExtension.Objects.DOMElement as WebKit2WebExtension.DOMElement
import qualified GI.WebKit2WebExtension.Objects.DOMNodeList as WebKit2WebExtension.DOMNodeList
import qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMNode = DOMNode (ManagedPtr DOMNode)
foreign import ccall "webkit_dom_node_get_type"
c_webkit_dom_node_get_type :: IO GType
instance GObject DOMNode where
gobjectType _ = c_webkit_dom_node_get_type
class GObject o => IsDOMNode o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DOMNode a) =>
IsDOMNode a
#endif
instance IsDOMNode DOMNode
instance WebKit2WebExtension.DOMObject.IsDOMObject DOMNode
instance GObject.Object.IsObject DOMNode
instance WebKit2WebExtension.DOMEventTarget.IsDOMEventTarget DOMNode
toDOMNode :: IsDOMNode o => o -> IO DOMNode
toDOMNode = unsafeCastTo DOMNode
noDOMNode :: Maybe DOMNode
noDOMNode = Nothing
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 "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 "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDOMNodeMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
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 "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) => O.IsLabelProxy t (DOMNode -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMNodeMethod t DOMNode, O.MethodInfo info DOMNode p) => O.IsLabel t (DOMNode -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getDOMNodeBaseUri :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeBaseUri obj = liftIO $ getObjectPropertyString obj "base-uri"
data DOMNodeBaseUriPropertyInfo
instance AttrInfo DOMNodeBaseUriPropertyInfo where
type AttrAllowedOps DOMNodeBaseUriPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeBaseUriPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeBaseUriPropertyInfo = IsDOMNode
type AttrGetType DOMNodeBaseUriPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNodeBaseUriPropertyInfo = "base-uri"
type AttrOrigin DOMNodeBaseUriPropertyInfo = DOMNode
attrGet _ = getDOMNodeBaseUri
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNodeChildNodes :: (MonadIO m, IsDOMNode o) => o -> m (Maybe WebKit2WebExtension.DOMNodeList.DOMNodeList)
getDOMNodeChildNodes obj = liftIO $ getObjectPropertyObject obj "child-nodes" WebKit2WebExtension.DOMNodeList.DOMNodeList
data DOMNodeChildNodesPropertyInfo
instance AttrInfo DOMNodeChildNodesPropertyInfo where
type AttrAllowedOps DOMNodeChildNodesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeChildNodesPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeChildNodesPropertyInfo = IsDOMNode
type AttrGetType DOMNodeChildNodesPropertyInfo = (Maybe WebKit2WebExtension.DOMNodeList.DOMNodeList)
type AttrLabel DOMNodeChildNodesPropertyInfo = "child-nodes"
type AttrOrigin DOMNodeChildNodesPropertyInfo = DOMNode
attrGet _ = getDOMNodeChildNodes
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNodeFirstChild :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeFirstChild obj = liftIO $ checkUnexpectedNothing "getDOMNodeFirstChild" $ getObjectPropertyObject obj "first-child" DOMNode
data DOMNodeFirstChildPropertyInfo
instance AttrInfo DOMNodeFirstChildPropertyInfo where
type AttrAllowedOps DOMNodeFirstChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeFirstChildPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeFirstChildPropertyInfo = IsDOMNode
type AttrGetType DOMNodeFirstChildPropertyInfo = DOMNode
type AttrLabel DOMNodeFirstChildPropertyInfo = "first-child"
type AttrOrigin DOMNodeFirstChildPropertyInfo = DOMNode
attrGet _ = getDOMNodeFirstChild
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNodeLastChild :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeLastChild obj = liftIO $ checkUnexpectedNothing "getDOMNodeLastChild" $ getObjectPropertyObject obj "last-child" DOMNode
data DOMNodeLastChildPropertyInfo
instance AttrInfo DOMNodeLastChildPropertyInfo where
type AttrAllowedOps DOMNodeLastChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeLastChildPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeLastChildPropertyInfo = IsDOMNode
type AttrGetType DOMNodeLastChildPropertyInfo = DOMNode
type AttrLabel DOMNodeLastChildPropertyInfo = "last-child"
type AttrOrigin DOMNodeLastChildPropertyInfo = DOMNode
attrGet _ = getDOMNodeLastChild
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNodeNextSibling :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeNextSibling obj = liftIO $ checkUnexpectedNothing "getDOMNodeNextSibling" $ getObjectPropertyObject obj "next-sibling" DOMNode
data DOMNodeNextSiblingPropertyInfo
instance AttrInfo DOMNodeNextSiblingPropertyInfo where
type AttrAllowedOps DOMNodeNextSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeNextSiblingPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeNextSiblingPropertyInfo = IsDOMNode
type AttrGetType DOMNodeNextSiblingPropertyInfo = DOMNode
type AttrLabel DOMNodeNextSiblingPropertyInfo = "next-sibling"
type AttrOrigin DOMNodeNextSiblingPropertyInfo = DOMNode
attrGet _ = getDOMNodeNextSibling
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNodeNodeName :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeNodeName obj = liftIO $ getObjectPropertyString obj "node-name"
data DOMNodeNodeNamePropertyInfo
instance AttrInfo DOMNodeNodeNamePropertyInfo where
type AttrAllowedOps DOMNodeNodeNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeNodeNamePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeNodeNamePropertyInfo = IsDOMNode
type AttrGetType DOMNodeNodeNamePropertyInfo = (Maybe T.Text)
type AttrLabel DOMNodeNodeNamePropertyInfo = "node-name"
type AttrOrigin DOMNodeNodeNamePropertyInfo = DOMNode
attrGet _ = getDOMNodeNodeName
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNodeNodeType :: (MonadIO m, IsDOMNode o) => o -> m Word32
getDOMNodeNodeType obj = liftIO $ getObjectPropertyUInt32 obj "node-type"
data DOMNodeNodeTypePropertyInfo
instance AttrInfo DOMNodeNodeTypePropertyInfo where
type AttrAllowedOps DOMNodeNodeTypePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMNodeNodeTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeNodeTypePropertyInfo = IsDOMNode
type AttrGetType DOMNodeNodeTypePropertyInfo = Word32
type AttrLabel DOMNodeNodeTypePropertyInfo = "node-type"
type AttrOrigin DOMNodeNodeTypePropertyInfo = DOMNode
attrGet _ = getDOMNodeNodeType
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNodeNodeValue :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeNodeValue obj = liftIO $ getObjectPropertyString obj "node-value"
setDOMNodeNodeValue :: (MonadIO m, IsDOMNode o) => o -> T.Text -> m ()
setDOMNodeNodeValue obj val = liftIO $ setObjectPropertyString obj "node-value" (Just val)
constructDOMNodeNodeValue :: (IsDOMNode o) => T.Text -> IO (GValueConstruct o)
constructDOMNodeNodeValue val = constructObjectPropertyString "node-value" (Just val)
clearDOMNodeNodeValue :: (MonadIO m, IsDOMNode o) => o -> m ()
clearDOMNodeNodeValue obj = liftIO $ setObjectPropertyString obj "node-value" (Nothing :: Maybe T.Text)
data DOMNodeNodeValuePropertyInfo
instance AttrInfo DOMNodeNodeValuePropertyInfo where
type AttrAllowedOps DOMNodeNodeValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeNodeValuePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMNodeNodeValuePropertyInfo = IsDOMNode
type AttrGetType DOMNodeNodeValuePropertyInfo = (Maybe T.Text)
type AttrLabel DOMNodeNodeValuePropertyInfo = "node-value"
type AttrOrigin DOMNodeNodeValuePropertyInfo = DOMNode
attrGet _ = getDOMNodeNodeValue
attrSet _ = setDOMNodeNodeValue
attrConstruct _ = constructDOMNodeNodeValue
attrClear _ = clearDOMNodeNodeValue
getDOMNodeOwnerDocument :: (MonadIO m, IsDOMNode o) => o -> m WebKit2WebExtension.DOMDocument.DOMDocument
getDOMNodeOwnerDocument obj = liftIO $ checkUnexpectedNothing "getDOMNodeOwnerDocument" $ getObjectPropertyObject obj "owner-document" WebKit2WebExtension.DOMDocument.DOMDocument
data DOMNodeOwnerDocumentPropertyInfo
instance AttrInfo DOMNodeOwnerDocumentPropertyInfo where
type AttrAllowedOps DOMNodeOwnerDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeOwnerDocumentPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeOwnerDocumentPropertyInfo = IsDOMNode
type AttrGetType DOMNodeOwnerDocumentPropertyInfo = WebKit2WebExtension.DOMDocument.DOMDocument
type AttrLabel DOMNodeOwnerDocumentPropertyInfo = "owner-document"
type AttrOrigin DOMNodeOwnerDocumentPropertyInfo = DOMNode
attrGet _ = getDOMNodeOwnerDocument
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNodeParentElement :: (MonadIO m, IsDOMNode o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMNodeParentElement obj = liftIO $ checkUnexpectedNothing "getDOMNodeParentElement" $ getObjectPropertyObject obj "parent-element" WebKit2WebExtension.DOMElement.DOMElement
data DOMNodeParentElementPropertyInfo
instance AttrInfo DOMNodeParentElementPropertyInfo where
type AttrAllowedOps DOMNodeParentElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeParentElementPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeParentElementPropertyInfo = IsDOMNode
type AttrGetType DOMNodeParentElementPropertyInfo = WebKit2WebExtension.DOMElement.DOMElement
type AttrLabel DOMNodeParentElementPropertyInfo = "parent-element"
type AttrOrigin DOMNodeParentElementPropertyInfo = DOMNode
attrGet _ = getDOMNodeParentElement
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNodeParentNode :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeParentNode obj = liftIO $ checkUnexpectedNothing "getDOMNodeParentNode" $ getObjectPropertyObject obj "parent-node" DOMNode
data DOMNodeParentNodePropertyInfo
instance AttrInfo DOMNodeParentNodePropertyInfo where
type AttrAllowedOps DOMNodeParentNodePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeParentNodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeParentNodePropertyInfo = IsDOMNode
type AttrGetType DOMNodeParentNodePropertyInfo = DOMNode
type AttrLabel DOMNodeParentNodePropertyInfo = "parent-node"
type AttrOrigin DOMNodeParentNodePropertyInfo = DOMNode
attrGet _ = getDOMNodeParentNode
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNodePreviousSibling :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodePreviousSibling obj = liftIO $ checkUnexpectedNothing "getDOMNodePreviousSibling" $ getObjectPropertyObject obj "previous-sibling" DOMNode
data DOMNodePreviousSiblingPropertyInfo
instance AttrInfo DOMNodePreviousSiblingPropertyInfo where
type AttrAllowedOps DOMNodePreviousSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodePreviousSiblingPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodePreviousSiblingPropertyInfo = IsDOMNode
type AttrGetType DOMNodePreviousSiblingPropertyInfo = DOMNode
type AttrLabel DOMNodePreviousSiblingPropertyInfo = "previous-sibling"
type AttrOrigin DOMNodePreviousSiblingPropertyInfo = DOMNode
attrGet _ = getDOMNodePreviousSibling
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMNodeTextContent :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeTextContent obj = liftIO $ getObjectPropertyString obj "text-content"
setDOMNodeTextContent :: (MonadIO m, IsDOMNode o) => o -> T.Text -> m ()
setDOMNodeTextContent obj val = liftIO $ setObjectPropertyString obj "text-content" (Just val)
constructDOMNodeTextContent :: (IsDOMNode o) => T.Text -> IO (GValueConstruct o)
constructDOMNodeTextContent val = constructObjectPropertyString "text-content" (Just val)
clearDOMNodeTextContent :: (MonadIO m, IsDOMNode o) => o -> m ()
clearDOMNodeTextContent obj = liftIO $ setObjectPropertyString obj "text-content" (Nothing :: Maybe T.Text)
data DOMNodeTextContentPropertyInfo
instance AttrInfo DOMNodeTextContentPropertyInfo where
type AttrAllowedOps DOMNodeTextContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeTextContentPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMNodeTextContentPropertyInfo = IsDOMNode
type AttrGetType DOMNodeTextContentPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNodeTextContentPropertyInfo = "text-content"
type AttrOrigin DOMNodeTextContentPropertyInfo = DOMNode
attrGet _ = getDOMNodeTextContent
attrSet _ = setDOMNodeTextContent
attrConstruct _ = constructDOMNodeTextContent
attrClear _ = clearDOMNodeTextContent
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, *)])
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
type instance O.SignalList DOMNode = DOMNodeSignalList
type DOMNodeSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_node_append_child" webkit_dom_node_append_child ::
Ptr DOMNode ->
Ptr DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
dOMNodeAppendChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m DOMNode
dOMNodeAppendChild self newChild = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
newChild' <- unsafeManagedPtrCastPtr newChild
onException (do
result <- propagateGError $ webkit_dom_node_append_child self' newChild'
checkUnexpectedReturnNULL "dOMNodeAppendChild" result
result' <- (newObject DOMNode) result
touchManagedPtr self
touchManagedPtr newChild
return result'
) (do
return ()
)
data DOMNodeAppendChildMethodInfo
instance (signature ~ (b -> m DOMNode), MonadIO m, IsDOMNode a, IsDOMNode b) => O.MethodInfo DOMNodeAppendChildMethodInfo a signature where
overloadedMethod _ = dOMNodeAppendChild
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)
dOMNodeCloneNodeWithError ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> Bool
-> m DOMNode
dOMNodeCloneNodeWithError self deep = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
let deep' = (fromIntegral . fromEnum) deep
onException (do
result <- propagateGError $ webkit_dom_node_clone_node_with_error self' deep'
checkUnexpectedReturnNULL "dOMNodeCloneNodeWithError" result
result' <- (newObject DOMNode) result
touchManagedPtr self
return result'
) (do
return ()
)
data DOMNodeCloneNodeWithErrorMethodInfo
instance (signature ~ (Bool -> m DOMNode), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeCloneNodeWithErrorMethodInfo a signature where
overloadedMethod _ = dOMNodeCloneNodeWithError
foreign import ccall "webkit_dom_node_compare_document_position" webkit_dom_node_compare_document_position ::
Ptr DOMNode ->
Ptr DOMNode ->
IO Word16
dOMNodeCompareDocumentPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m Word16
dOMNodeCompareDocumentPosition self other = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
other' <- unsafeManagedPtrCastPtr other
result <- webkit_dom_node_compare_document_position self' other'
touchManagedPtr self
touchManagedPtr other
return result
data DOMNodeCompareDocumentPositionMethodInfo
instance (signature ~ (b -> m Word16), MonadIO m, IsDOMNode a, IsDOMNode b) => O.MethodInfo DOMNodeCompareDocumentPositionMethodInfo a signature where
overloadedMethod _ = dOMNodeCompareDocumentPosition
foreign import ccall "webkit_dom_node_contains" webkit_dom_node_contains ::
Ptr DOMNode ->
Ptr DOMNode ->
IO CInt
dOMNodeContains ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m Bool
dOMNodeContains self other = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
other' <- unsafeManagedPtrCastPtr other
result <- webkit_dom_node_contains self' other'
let result' = (/= 0) result
touchManagedPtr self
touchManagedPtr other
return result'
data DOMNodeContainsMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsDOMNode a, IsDOMNode b) => O.MethodInfo DOMNodeContainsMethodInfo a signature where
overloadedMethod _ = dOMNodeContains
foreign import ccall "webkit_dom_node_get_base_uri" webkit_dom_node_get_base_uri ::
Ptr DOMNode ->
IO CString
dOMNodeGetBaseUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetBaseUri self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_base_uri self'
checkUnexpectedReturnNULL "dOMNodeGetBaseUri" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNodeGetBaseUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetBaseUriMethodInfo a signature where
overloadedMethod _ = dOMNodeGetBaseUri
foreign import ccall "webkit_dom_node_get_child_nodes" webkit_dom_node_get_child_nodes ::
Ptr DOMNode ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
dOMNodeGetChildNodes ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMNodeGetChildNodes self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_child_nodes self'
checkUnexpectedReturnNULL "dOMNodeGetChildNodes" result
result' <- (wrapObject WebKit2WebExtension.DOMNodeList.DOMNodeList) result
touchManagedPtr self
return result'
data DOMNodeGetChildNodesMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetChildNodesMethodInfo a signature where
overloadedMethod _ = dOMNodeGetChildNodes
foreign import ccall "webkit_dom_node_get_first_child" webkit_dom_node_get_first_child ::
Ptr DOMNode ->
IO (Ptr DOMNode)
dOMNodeGetFirstChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetFirstChild self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_first_child self'
checkUnexpectedReturnNULL "dOMNodeGetFirstChild" result
result' <- (newObject DOMNode) result
touchManagedPtr self
return result'
data DOMNodeGetFirstChildMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetFirstChildMethodInfo a signature where
overloadedMethod _ = dOMNodeGetFirstChild
foreign import ccall "webkit_dom_node_get_last_child" webkit_dom_node_get_last_child ::
Ptr DOMNode ->
IO (Ptr DOMNode)
dOMNodeGetLastChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetLastChild self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_last_child self'
checkUnexpectedReturnNULL "dOMNodeGetLastChild" result
result' <- (newObject DOMNode) result
touchManagedPtr self
return result'
data DOMNodeGetLastChildMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetLastChildMethodInfo a signature where
overloadedMethod _ = dOMNodeGetLastChild
foreign import ccall "webkit_dom_node_get_local_name" webkit_dom_node_get_local_name ::
Ptr DOMNode ->
IO CString
dOMNodeGetLocalName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetLocalName self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_local_name self'
checkUnexpectedReturnNULL "dOMNodeGetLocalName" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNodeGetLocalNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetLocalNameMethodInfo a signature where
overloadedMethod _ = dOMNodeGetLocalName
foreign import ccall "webkit_dom_node_get_namespace_uri" webkit_dom_node_get_namespace_uri ::
Ptr DOMNode ->
IO CString
dOMNodeGetNamespaceUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetNamespaceUri self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_namespace_uri self'
checkUnexpectedReturnNULL "dOMNodeGetNamespaceUri" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNodeGetNamespaceUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetNamespaceUriMethodInfo a signature where
overloadedMethod _ = dOMNodeGetNamespaceUri
foreign import ccall "webkit_dom_node_get_next_sibling" webkit_dom_node_get_next_sibling ::
Ptr DOMNode ->
IO (Ptr DOMNode)
dOMNodeGetNextSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetNextSibling self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_next_sibling self'
checkUnexpectedReturnNULL "dOMNodeGetNextSibling" result
result' <- (newObject DOMNode) result
touchManagedPtr self
return result'
data DOMNodeGetNextSiblingMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetNextSiblingMethodInfo a signature where
overloadedMethod _ = dOMNodeGetNextSibling
foreign import ccall "webkit_dom_node_get_node_name" webkit_dom_node_get_node_name ::
Ptr DOMNode ->
IO CString
dOMNodeGetNodeName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetNodeName self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_node_name self'
checkUnexpectedReturnNULL "dOMNodeGetNodeName" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNodeGetNodeNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetNodeNameMethodInfo a signature where
overloadedMethod _ = dOMNodeGetNodeName
foreign import ccall "webkit_dom_node_get_node_type" webkit_dom_node_get_node_type ::
Ptr DOMNode ->
IO Word16
dOMNodeGetNodeType ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m Word16
dOMNodeGetNodeType self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_node_type self'
touchManagedPtr self
return result
data DOMNodeGetNodeTypeMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetNodeTypeMethodInfo a signature where
overloadedMethod _ = dOMNodeGetNodeType
foreign import ccall "webkit_dom_node_get_node_value" webkit_dom_node_get_node_value ::
Ptr DOMNode ->
IO CString
dOMNodeGetNodeValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetNodeValue self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_node_value self'
checkUnexpectedReturnNULL "dOMNodeGetNodeValue" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNodeGetNodeValueMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetNodeValueMethodInfo a signature where
overloadedMethod _ = dOMNodeGetNodeValue
foreign import ccall "webkit_dom_node_get_owner_document" webkit_dom_node_get_owner_document ::
Ptr DOMNode ->
IO (Ptr WebKit2WebExtension.DOMDocument.DOMDocument)
dOMNodeGetOwnerDocument ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m WebKit2WebExtension.DOMDocument.DOMDocument
dOMNodeGetOwnerDocument self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_owner_document self'
checkUnexpectedReturnNULL "dOMNodeGetOwnerDocument" result
result' <- (newObject WebKit2WebExtension.DOMDocument.DOMDocument) result
touchManagedPtr self
return result'
data DOMNodeGetOwnerDocumentMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDocument.DOMDocument), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetOwnerDocumentMethodInfo a signature where
overloadedMethod _ = dOMNodeGetOwnerDocument
foreign import ccall "webkit_dom_node_get_parent_element" webkit_dom_node_get_parent_element ::
Ptr DOMNode ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
dOMNodeGetParentElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMNodeGetParentElement self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_parent_element self'
checkUnexpectedReturnNULL "dOMNodeGetParentElement" result
result' <- (newObject WebKit2WebExtension.DOMElement.DOMElement) result
touchManagedPtr self
return result'
data DOMNodeGetParentElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetParentElementMethodInfo a signature where
overloadedMethod _ = dOMNodeGetParentElement
foreign import ccall "webkit_dom_node_get_parent_node" webkit_dom_node_get_parent_node ::
Ptr DOMNode ->
IO (Ptr DOMNode)
dOMNodeGetParentNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetParentNode self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_parent_node self'
checkUnexpectedReturnNULL "dOMNodeGetParentNode" result
result' <- (newObject DOMNode) result
touchManagedPtr self
return result'
data DOMNodeGetParentNodeMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetParentNodeMethodInfo a signature where
overloadedMethod _ = dOMNodeGetParentNode
foreign import ccall "webkit_dom_node_get_prefix" webkit_dom_node_get_prefix ::
Ptr DOMNode ->
IO CString
dOMNodeGetPrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetPrefix self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_prefix self'
checkUnexpectedReturnNULL "dOMNodeGetPrefix" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNodeGetPrefixMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetPrefixMethodInfo a signature where
overloadedMethod _ = dOMNodeGetPrefix
foreign import ccall "webkit_dom_node_get_previous_sibling" webkit_dom_node_get_previous_sibling ::
Ptr DOMNode ->
IO (Ptr DOMNode)
dOMNodeGetPreviousSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetPreviousSibling self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_previous_sibling self'
checkUnexpectedReturnNULL "dOMNodeGetPreviousSibling" result
result' <- (newObject DOMNode) result
touchManagedPtr self
return result'
data DOMNodeGetPreviousSiblingMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetPreviousSiblingMethodInfo a signature where
overloadedMethod _ = dOMNodeGetPreviousSibling
foreign import ccall "webkit_dom_node_get_text_content" webkit_dom_node_get_text_content ::
Ptr DOMNode ->
IO CString
dOMNodeGetTextContent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetTextContent self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_text_content self'
checkUnexpectedReturnNULL "dOMNodeGetTextContent" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMNodeGetTextContentMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetTextContentMethodInfo a signature where
overloadedMethod _ = dOMNodeGetTextContent
foreign import ccall "webkit_dom_node_has_child_nodes" webkit_dom_node_has_child_nodes ::
Ptr DOMNode ->
IO CInt
dOMNodeHasChildNodes ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m Bool
dOMNodeHasChildNodes self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_has_child_nodes self'
let result' = (/= 0) result
touchManagedPtr self
return result'
data DOMNodeHasChildNodesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeHasChildNodesMethodInfo a signature where
overloadedMethod _ = dOMNodeHasChildNodes
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)
dOMNodeInsertBefore ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) =>
a
-> b
-> Maybe (c)
-> m DOMNode
dOMNodeInsertBefore self newChild refChild = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
newChild' <- unsafeManagedPtrCastPtr newChild
maybeRefChild <- case refChild of
Nothing -> return nullPtr
Just jRefChild -> do
jRefChild' <- unsafeManagedPtrCastPtr jRefChild
return jRefChild'
onException (do
result <- propagateGError $ webkit_dom_node_insert_before self' newChild' maybeRefChild
checkUnexpectedReturnNULL "dOMNodeInsertBefore" result
result' <- (newObject DOMNode) result
touchManagedPtr self
touchManagedPtr newChild
whenJust refChild touchManagedPtr
return result'
) (do
return ()
)
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
foreign import ccall "webkit_dom_node_is_default_namespace" webkit_dom_node_is_default_namespace ::
Ptr DOMNode ->
CString ->
IO CInt
dOMNodeIsDefaultNamespace ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m Bool
dOMNodeIsDefaultNamespace self namespaceURI = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
namespaceURI' <- textToCString namespaceURI
result <- webkit_dom_node_is_default_namespace self' namespaceURI'
let result' = (/= 0) result
touchManagedPtr self
freeMem namespaceURI'
return result'
data DOMNodeIsDefaultNamespaceMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeIsDefaultNamespaceMethodInfo a signature where
overloadedMethod _ = dOMNodeIsDefaultNamespace
foreign import ccall "webkit_dom_node_is_equal_node" webkit_dom_node_is_equal_node ::
Ptr DOMNode ->
Ptr DOMNode ->
IO CInt
dOMNodeIsEqualNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m Bool
dOMNodeIsEqualNode self other = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
other' <- unsafeManagedPtrCastPtr other
result <- webkit_dom_node_is_equal_node self' other'
let result' = (/= 0) result
touchManagedPtr self
touchManagedPtr other
return result'
data DOMNodeIsEqualNodeMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsDOMNode a, IsDOMNode b) => O.MethodInfo DOMNodeIsEqualNodeMethodInfo a signature where
overloadedMethod _ = dOMNodeIsEqualNode
foreign import ccall "webkit_dom_node_is_same_node" webkit_dom_node_is_same_node ::
Ptr DOMNode ->
Ptr DOMNode ->
IO CInt
dOMNodeIsSameNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m Bool
dOMNodeIsSameNode self other = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
other' <- unsafeManagedPtrCastPtr other
result <- webkit_dom_node_is_same_node self' other'
let result' = (/= 0) result
touchManagedPtr self
touchManagedPtr other
return result'
data DOMNodeIsSameNodeMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsDOMNode a, IsDOMNode b) => O.MethodInfo DOMNodeIsSameNodeMethodInfo a signature where
overloadedMethod _ = dOMNodeIsSameNode
foreign import ccall "webkit_dom_node_is_supported" webkit_dom_node_is_supported ::
Ptr DOMNode ->
CString ->
CString ->
IO CInt
dOMNodeIsSupported ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> T.Text
-> m Bool
dOMNodeIsSupported self feature version = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
feature' <- textToCString feature
version' <- textToCString version
result <- webkit_dom_node_is_supported self' feature' version'
let result' = (/= 0) result
touchManagedPtr self
freeMem feature'
freeMem version'
return result'
data DOMNodeIsSupportedMethodInfo
instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeIsSupportedMethodInfo a signature where
overloadedMethod _ = dOMNodeIsSupported
foreign import ccall "webkit_dom_node_lookup_namespace_uri" webkit_dom_node_lookup_namespace_uri ::
Ptr DOMNode ->
CString ->
IO CString
dOMNodeLookupNamespaceUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m T.Text
dOMNodeLookupNamespaceUri self prefix = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
prefix' <- textToCString prefix
result <- webkit_dom_node_lookup_namespace_uri self' prefix'
checkUnexpectedReturnNULL "dOMNodeLookupNamespaceUri" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
freeMem prefix'
return result'
data DOMNodeLookupNamespaceUriMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeLookupNamespaceUriMethodInfo a signature where
overloadedMethod _ = dOMNodeLookupNamespaceUri
foreign import ccall "webkit_dom_node_lookup_prefix" webkit_dom_node_lookup_prefix ::
Ptr DOMNode ->
CString ->
IO CString
dOMNodeLookupPrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m T.Text
dOMNodeLookupPrefix self namespaceURI = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
namespaceURI' <- textToCString namespaceURI
result <- webkit_dom_node_lookup_prefix self' namespaceURI'
checkUnexpectedReturnNULL "dOMNodeLookupPrefix" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
freeMem namespaceURI'
return result'
data DOMNodeLookupPrefixMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeLookupPrefixMethodInfo a signature where
overloadedMethod _ = dOMNodeLookupPrefix
foreign import ccall "webkit_dom_node_normalize" webkit_dom_node_normalize ::
Ptr DOMNode ->
IO ()
dOMNodeNormalize ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m ()
dOMNodeNormalize self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
webkit_dom_node_normalize self'
touchManagedPtr self
return ()
data DOMNodeNormalizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeNormalizeMethodInfo a signature where
overloadedMethod _ = dOMNodeNormalize
foreign import ccall "webkit_dom_node_remove_child" webkit_dom_node_remove_child ::
Ptr DOMNode ->
Ptr DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
dOMNodeRemoveChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m DOMNode
dOMNodeRemoveChild self oldChild = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
oldChild' <- unsafeManagedPtrCastPtr oldChild
onException (do
result <- propagateGError $ webkit_dom_node_remove_child self' oldChild'
checkUnexpectedReturnNULL "dOMNodeRemoveChild" result
result' <- (newObject DOMNode) result
touchManagedPtr self
touchManagedPtr oldChild
return result'
) (do
return ()
)
data DOMNodeRemoveChildMethodInfo
instance (signature ~ (b -> m DOMNode), MonadIO m, IsDOMNode a, IsDOMNode b) => O.MethodInfo DOMNodeRemoveChildMethodInfo a signature where
overloadedMethod _ = dOMNodeRemoveChild
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)
dOMNodeReplaceChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) =>
a
-> b
-> c
-> m DOMNode
dOMNodeReplaceChild self newChild oldChild = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
newChild' <- unsafeManagedPtrCastPtr newChild
oldChild' <- unsafeManagedPtrCastPtr oldChild
onException (do
result <- propagateGError $ webkit_dom_node_replace_child self' newChild' oldChild'
checkUnexpectedReturnNULL "dOMNodeReplaceChild" result
result' <- (newObject DOMNode) result
touchManagedPtr self
touchManagedPtr newChild
touchManagedPtr oldChild
return result'
) (do
return ()
)
data DOMNodeReplaceChildMethodInfo
instance (signature ~ (b -> c -> m DOMNode), MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) => O.MethodInfo DOMNodeReplaceChildMethodInfo a signature where
overloadedMethod _ = dOMNodeReplaceChild
foreign import ccall "webkit_dom_node_set_node_value" webkit_dom_node_set_node_value ::
Ptr DOMNode ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMNodeSetNodeValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m ()
dOMNodeSetNodeValue self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_node_set_node_value self' value'
touchManagedPtr self
freeMem value'
return ()
) (do
freeMem value'
)
data DOMNodeSetNodeValueMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeSetNodeValueMethodInfo a signature where
overloadedMethod _ = dOMNodeSetNodeValue
foreign import ccall "webkit_dom_node_set_prefix" webkit_dom_node_set_prefix ::
Ptr DOMNode ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMNodeSetPrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m ()
dOMNodeSetPrefix self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_node_set_prefix self' value'
touchManagedPtr self
freeMem value'
return ()
) (do
freeMem value'
)
data DOMNodeSetPrefixMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeSetPrefixMethodInfo a signature where
overloadedMethod _ = dOMNodeSetPrefix
foreign import ccall "webkit_dom_node_set_text_content" webkit_dom_node_set_text_content ::
Ptr DOMNode ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMNodeSetTextContent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m ()
dOMNodeSetTextContent self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_node_set_text_content self' value'
touchManagedPtr self
freeMem value'
return ()
) (do
freeMem value'
)
data DOMNodeSetTextContentMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeSetTextContentMethodInfo a signature where
overloadedMethod _ = dOMNodeSetTextContent