{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMNodeIterator
(
DOMNodeIterator(..) ,
IsDOMNodeIterator ,
toDOMNodeIterator ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMNodeIteratorMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorDetachMethodInfo ,
#endif
dOMNodeIteratorDetach ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorGetExpandEntityReferencesMethodInfo,
#endif
dOMNodeIteratorGetExpandEntityReferences,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorGetFilterMethodInfo ,
#endif
dOMNodeIteratorGetFilter ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorGetPointerBeforeReferenceNodeMethodInfo,
#endif
dOMNodeIteratorGetPointerBeforeReferenceNode,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorGetReferenceNodeMethodInfo,
#endif
dOMNodeIteratorGetReferenceNode ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorGetRootMethodInfo ,
#endif
dOMNodeIteratorGetRoot ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorGetWhatToShowMethodInfo ,
#endif
dOMNodeIteratorGetWhatToShow ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorNextNodeMethodInfo ,
#endif
dOMNodeIteratorNextNode ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorPreviousNodeMethodInfo ,
#endif
dOMNodeIteratorPreviousNode ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorFilterPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeIteratorFilter ,
#endif
getDOMNodeIteratorFilter ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeIteratorPointerBeforeReferenceNode,
#endif
getDOMNodeIteratorPointerBeforeReferenceNode,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorReferenceNodePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeIteratorReferenceNode ,
#endif
getDOMNodeIteratorReferenceNode ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorRootPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeIteratorRoot ,
#endif
getDOMNodeIteratorRoot ,
#if defined(ENABLE_OVERLOADING)
DOMNodeIteratorWhatToShowPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeIteratorWhatToShow ,
#endif
getDOMNodeIteratorWhatToShow ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.JavaScriptCore.Objects.Value as JavaScriptCore.Value
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMEventTarget as WebKit2WebExtension.DOMEventTarget
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMNodeFilter as WebKit2WebExtension.DOMNodeFilter
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMXPathNSResolver as WebKit2WebExtension.DOMXPathNSResolver
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMAttr as WebKit2WebExtension.DOMAttr
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCDATASection as WebKit2WebExtension.DOMCDATASection
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCSSRule as WebKit2WebExtension.DOMCSSRule
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCSSRuleList as WebKit2WebExtension.DOMCSSRuleList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration as WebKit2WebExtension.DOMCSSStyleDeclaration
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet as WebKit2WebExtension.DOMCSSStyleSheet
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCharacterData as WebKit2WebExtension.DOMCharacterData
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMClientRect as WebKit2WebExtension.DOMClientRect
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMClientRectList as WebKit2WebExtension.DOMClientRectList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMComment as WebKit2WebExtension.DOMComment
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDOMImplementation as WebKit2WebExtension.DOMDOMImplementation
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDOMSelection as WebKit2WebExtension.DOMDOMSelection
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDOMTokenList as WebKit2WebExtension.DOMDOMTokenList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDOMWindow as WebKit2WebExtension.DOMDOMWindow
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDocument as WebKit2WebExtension.DOMDocument
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDocumentFragment as WebKit2WebExtension.DOMDocumentFragment
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDocumentType as WebKit2WebExtension.DOMDocumentType
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMElement as WebKit2WebExtension.DOMElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMEntityReference as WebKit2WebExtension.DOMEntityReference
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMEvent as WebKit2WebExtension.DOMEvent
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLCollection as WebKit2WebExtension.DOMHTMLCollection
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLDocument as WebKit2WebExtension.DOMHTMLDocument
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLElement as WebKit2WebExtension.DOMHTMLElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLHeadElement as WebKit2WebExtension.DOMHTMLHeadElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLScriptElement as WebKit2WebExtension.DOMHTMLScriptElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMMediaList as WebKit2WebExtension.DOMMediaList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNamedNodeMap as WebKit2WebExtension.DOMNamedNodeMap
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNodeList as WebKit2WebExtension.DOMNodeList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMProcessingInstruction as WebKit2WebExtension.DOMProcessingInstruction
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMRange as WebKit2WebExtension.DOMRange
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMStyleSheet as WebKit2WebExtension.DOMStyleSheet
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMStyleSheetList as WebKit2WebExtension.DOMStyleSheetList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMText as WebKit2WebExtension.DOMText
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMTreeWalker as WebKit2WebExtension.DOMTreeWalker
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMXPathExpression as WebKit2WebExtension.DOMXPathExpression
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMXPathResult as WebKit2WebExtension.DOMXPathResult
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMNodeFilter as WebKit2WebExtension.DOMNodeFilter
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
#endif
newtype DOMNodeIterator = DOMNodeIterator (SP.ManagedPtr DOMNodeIterator)
deriving (DOMNodeIterator -> DOMNodeIterator -> Bool
(DOMNodeIterator -> DOMNodeIterator -> Bool)
-> (DOMNodeIterator -> DOMNodeIterator -> Bool)
-> Eq DOMNodeIterator
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DOMNodeIterator -> DOMNodeIterator -> Bool
== :: DOMNodeIterator -> DOMNodeIterator -> Bool
$c/= :: DOMNodeIterator -> DOMNodeIterator -> Bool
/= :: DOMNodeIterator -> DOMNodeIterator -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMNodeIterator where
toManagedPtr :: DOMNodeIterator -> ManagedPtr DOMNodeIterator
toManagedPtr (DOMNodeIterator ManagedPtr DOMNodeIterator
p) = ManagedPtr DOMNodeIterator
p
foreign import ccall "webkit_dom_node_iterator_get_type"
c_webkit_dom_node_iterator_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMNodeIterator where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_node_iterator_get_type
instance B.Types.GObject DOMNodeIterator
class (SP.GObject o, O.IsDescendantOf DOMNodeIterator o) => IsDOMNodeIterator o
instance (SP.GObject o, O.IsDescendantOf DOMNodeIterator o) => IsDOMNodeIterator o
instance O.HasParentTypes DOMNodeIterator
type instance O.ParentTypes DOMNodeIterator = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMNodeIterator :: (MIO.MonadIO m, IsDOMNodeIterator o) => o -> m DOMNodeIterator
toDOMNodeIterator :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNodeIterator o) =>
o -> m DOMNodeIterator
toDOMNodeIterator = IO DOMNodeIterator -> m DOMNodeIterator
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMNodeIterator -> m DOMNodeIterator)
-> (o -> IO DOMNodeIterator) -> o -> m DOMNodeIterator
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMNodeIterator -> DOMNodeIterator)
-> o -> IO DOMNodeIterator
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMNodeIterator -> DOMNodeIterator
DOMNodeIterator
instance B.GValue.IsGValue (Maybe DOMNodeIterator) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_node_iterator_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMNodeIterator -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMNodeIterator
P.Nothing = Ptr GValue -> Ptr DOMNodeIterator -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMNodeIterator
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMNodeIterator)
gvalueSet_ Ptr GValue
gv (P.Just DOMNodeIterator
obj) = DOMNodeIterator -> (Ptr DOMNodeIterator -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMNodeIterator
obj (Ptr GValue -> Ptr DOMNodeIterator -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMNodeIterator)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMNodeIterator
ptr <- Ptr GValue -> IO (Ptr DOMNodeIterator)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMNodeIterator)
if Ptr DOMNodeIterator
ptr Ptr DOMNodeIterator -> Ptr DOMNodeIterator -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMNodeIterator
forall a. Ptr a
FP.nullPtr
then DOMNodeIterator -> Maybe DOMNodeIterator
forall a. a -> Maybe a
P.Just (DOMNodeIterator -> Maybe DOMNodeIterator)
-> IO DOMNodeIterator -> IO (Maybe DOMNodeIterator)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DOMNodeIterator -> DOMNodeIterator)
-> Ptr DOMNodeIterator -> IO DOMNodeIterator
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMNodeIterator -> DOMNodeIterator
DOMNodeIterator Ptr DOMNodeIterator
ptr
else Maybe DOMNodeIterator -> IO (Maybe DOMNodeIterator)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMNodeIterator
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMNodeIteratorMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveDOMNodeIteratorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMNodeIteratorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMNodeIteratorMethod "detach" o = DOMNodeIteratorDetachMethodInfo
ResolveDOMNodeIteratorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMNodeIteratorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMNodeIteratorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMNodeIteratorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMNodeIteratorMethod "nextNode" o = DOMNodeIteratorNextNodeMethodInfo
ResolveDOMNodeIteratorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMNodeIteratorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMNodeIteratorMethod "previousNode" o = DOMNodeIteratorPreviousNodeMethodInfo
ResolveDOMNodeIteratorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMNodeIteratorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMNodeIteratorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMNodeIteratorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMNodeIteratorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMNodeIteratorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMNodeIteratorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMNodeIteratorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMNodeIteratorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMNodeIteratorMethod "getExpandEntityReferences" o = DOMNodeIteratorGetExpandEntityReferencesMethodInfo
ResolveDOMNodeIteratorMethod "getFilter" o = DOMNodeIteratorGetFilterMethodInfo
ResolveDOMNodeIteratorMethod "getPointerBeforeReferenceNode" o = DOMNodeIteratorGetPointerBeforeReferenceNodeMethodInfo
ResolveDOMNodeIteratorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMNodeIteratorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMNodeIteratorMethod "getReferenceNode" o = DOMNodeIteratorGetReferenceNodeMethodInfo
ResolveDOMNodeIteratorMethod "getRoot" o = DOMNodeIteratorGetRootMethodInfo
ResolveDOMNodeIteratorMethod "getWhatToShow" o = DOMNodeIteratorGetWhatToShowMethodInfo
ResolveDOMNodeIteratorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMNodeIteratorMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMNodeIteratorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMNodeIteratorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMNodeIteratorMethod t DOMNodeIterator, O.OverloadedMethod info DOMNodeIterator p) => OL.IsLabel t (DOMNodeIterator -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveDOMNodeIteratorMethod t DOMNodeIterator, O.OverloadedMethod info DOMNodeIterator p, R.HasField t DOMNodeIterator p) => R.HasField t DOMNodeIterator p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMNodeIteratorMethod t DOMNodeIterator, O.OverloadedMethodInfo info DOMNodeIterator) => OL.IsLabel t (O.MethodProxy info DOMNodeIterator) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMNodeIteratorFilter :: (MonadIO m, IsDOMNodeIterator o) => o -> m (Maybe WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter)
getDOMNodeIteratorFilter :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNodeIterator o) =>
o -> m (Maybe DOMNodeFilter)
getDOMNodeIteratorFilter o
obj = IO (Maybe DOMNodeFilter) -> m (Maybe DOMNodeFilter)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe DOMNodeFilter) -> m (Maybe DOMNodeFilter))
-> IO (Maybe DOMNodeFilter) -> m (Maybe DOMNodeFilter)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMNodeFilter -> DOMNodeFilter)
-> IO (Maybe DOMNodeFilter)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"filter" ManagedPtr DOMNodeFilter -> DOMNodeFilter
WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorFilterPropertyInfo
instance AttrInfo DOMNodeIteratorFilterPropertyInfo where
type AttrAllowedOps DOMNodeIteratorFilterPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeIteratorFilterPropertyInfo = IsDOMNodeIterator
type AttrSetTypeConstraint DOMNodeIteratorFilterPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeIteratorFilterPropertyInfo = (~) ()
type AttrTransferType DOMNodeIteratorFilterPropertyInfo = ()
type AttrGetType DOMNodeIteratorFilterPropertyInfo = (Maybe WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter)
type AttrLabel DOMNodeIteratorFilterPropertyInfo = "filter"
type AttrOrigin DOMNodeIteratorFilterPropertyInfo = DOMNodeIterator
attrGet = getDOMNodeIteratorFilter
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.filter"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#g:attr:filter"
})
#endif
getDOMNodeIteratorPointerBeforeReferenceNode :: (MonadIO m, IsDOMNodeIterator o) => o -> m Bool
getDOMNodeIteratorPointerBeforeReferenceNode :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNodeIterator o) =>
o -> m Bool
getDOMNodeIteratorPointerBeforeReferenceNode o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"pointer-before-reference-node"
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo
instance AttrInfo DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo where
type AttrAllowedOps DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = IsDOMNodeIterator
type AttrSetTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = (~) ()
type AttrTransferType DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = ()
type AttrGetType DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = Bool
type AttrLabel DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = "pointer-before-reference-node"
type AttrOrigin DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = DOMNodeIterator
attrGet = getDOMNodeIteratorPointerBeforeReferenceNode
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.pointerBeforeReferenceNode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#g:attr:pointerBeforeReferenceNode"
})
#endif
getDOMNodeIteratorReferenceNode :: (MonadIO m, IsDOMNodeIterator o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMNodeIteratorReferenceNode :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNodeIterator o) =>
o -> m DOMNode
getDOMNodeIteratorReferenceNode o
obj = IO DOMNode -> m DOMNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMNodeIteratorReferenceNode" (IO (Maybe DOMNode) -> IO DOMNode)
-> IO (Maybe DOMNode) -> IO DOMNode
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr DOMNode -> DOMNode) -> IO (Maybe DOMNode)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"reference-node" ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorReferenceNodePropertyInfo
instance AttrInfo DOMNodeIteratorReferenceNodePropertyInfo where
type AttrAllowedOps DOMNodeIteratorReferenceNodePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = IsDOMNodeIterator
type AttrSetTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = (~) ()
type AttrTransferType DOMNodeIteratorReferenceNodePropertyInfo = ()
type AttrGetType DOMNodeIteratorReferenceNodePropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMNodeIteratorReferenceNodePropertyInfo = "reference-node"
type AttrOrigin DOMNodeIteratorReferenceNodePropertyInfo = DOMNodeIterator
attrGet = getDOMNodeIteratorReferenceNode
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.referenceNode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#g:attr:referenceNode"
})
#endif
getDOMNodeIteratorRoot :: (MonadIO m, IsDOMNodeIterator o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMNodeIteratorRoot :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNodeIterator o) =>
o -> m DOMNode
getDOMNodeIteratorRoot o
obj = IO DOMNode -> m DOMNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMNodeIteratorRoot" (IO (Maybe DOMNode) -> IO DOMNode)
-> IO (Maybe DOMNode) -> IO DOMNode
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr DOMNode -> DOMNode) -> IO (Maybe DOMNode)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"root" ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorRootPropertyInfo
instance AttrInfo DOMNodeIteratorRootPropertyInfo where
type AttrAllowedOps DOMNodeIteratorRootPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMNodeIteratorRootPropertyInfo = IsDOMNodeIterator
type AttrSetTypeConstraint DOMNodeIteratorRootPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeIteratorRootPropertyInfo = (~) ()
type AttrTransferType DOMNodeIteratorRootPropertyInfo = ()
type AttrGetType DOMNodeIteratorRootPropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMNodeIteratorRootPropertyInfo = "root"
type AttrOrigin DOMNodeIteratorRootPropertyInfo = DOMNodeIterator
attrGet = getDOMNodeIteratorRoot
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.root"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#g:attr:root"
})
#endif
getDOMNodeIteratorWhatToShow :: (MonadIO m, IsDOMNodeIterator o) => o -> m FCT.CULong
getDOMNodeIteratorWhatToShow :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNodeIterator o) =>
o -> m CULong
getDOMNodeIteratorWhatToShow o
obj = IO CULong -> m CULong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CULong
forall a. GObject a => a -> String -> IO CULong
B.Properties.getObjectPropertyULong o
obj String
"what-to-show"
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorWhatToShowPropertyInfo
instance AttrInfo DOMNodeIteratorWhatToShowPropertyInfo where
type AttrAllowedOps DOMNodeIteratorWhatToShowPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = IsDOMNodeIterator
type AttrSetTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = (~) ()
type AttrTransferType DOMNodeIteratorWhatToShowPropertyInfo = ()
type AttrGetType DOMNodeIteratorWhatToShowPropertyInfo = FCT.CULong
type AttrLabel DOMNodeIteratorWhatToShowPropertyInfo = "what-to-show"
type AttrOrigin DOMNodeIteratorWhatToShowPropertyInfo = DOMNodeIterator
attrGet = getDOMNodeIteratorWhatToShow
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.whatToShow"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#g:attr:whatToShow"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMNodeIterator
type instance O.AttributeList DOMNodeIterator = DOMNodeIteratorAttributeList
type DOMNodeIteratorAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("filter", DOMNodeIteratorFilterPropertyInfo), '("pointerBeforeReferenceNode", DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo), '("referenceNode", DOMNodeIteratorReferenceNodePropertyInfo), '("root", DOMNodeIteratorRootPropertyInfo), '("whatToShow", DOMNodeIteratorWhatToShowPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMNodeIteratorFilter :: AttrLabelProxy "filter"
dOMNodeIteratorFilter = AttrLabelProxy
dOMNodeIteratorPointerBeforeReferenceNode :: AttrLabelProxy "pointerBeforeReferenceNode"
dOMNodeIteratorPointerBeforeReferenceNode = AttrLabelProxy
dOMNodeIteratorReferenceNode :: AttrLabelProxy "referenceNode"
dOMNodeIteratorReferenceNode = AttrLabelProxy
dOMNodeIteratorRoot :: AttrLabelProxy "root"
dOMNodeIteratorRoot = AttrLabelProxy
dOMNodeIteratorWhatToShow :: AttrLabelProxy "whatToShow"
dOMNodeIteratorWhatToShow = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMNodeIterator = DOMNodeIteratorSignalList
type DOMNodeIteratorSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "webkit_dom_node_iterator_detach" webkit_dom_node_iterator_detach ::
Ptr DOMNodeIterator ->
IO ()
{-# DEPRECATED dOMNodeIteratorDetach ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIteratorDetach ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a
-> m ()
dOMNodeIteratorDetach :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a -> m ()
dOMNodeIteratorDetach a
self = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNodeIterator
self' <- a -> IO (Ptr DOMNodeIterator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNodeIterator -> IO ()
webkit_dom_node_iterator_detach Ptr DOMNodeIterator
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorDetachMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMNodeIterator a) => O.OverloadedMethod DOMNodeIteratorDetachMethodInfo a signature where
overloadedMethod = dOMNodeIteratorDetach
instance O.OverloadedMethodInfo DOMNodeIteratorDetachMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorDetach",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#v:dOMNodeIteratorDetach"
})
#endif
foreign import ccall "webkit_dom_node_iterator_get_expand_entity_references" webkit_dom_node_iterator_get_expand_entity_references ::
Ptr DOMNodeIterator ->
IO CInt
{-# DEPRECATED dOMNodeIteratorGetExpandEntityReferences ["(Since version 2.12)"] #-}
dOMNodeIteratorGetExpandEntityReferences ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a
-> m Bool
dOMNodeIteratorGetExpandEntityReferences :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a -> m Bool
dOMNodeIteratorGetExpandEntityReferences a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 DOMNodeIterator
self' <- a -> IO (Ptr DOMNodeIterator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMNodeIterator -> IO CInt
webkit_dom_node_iterator_get_expand_entity_references Ptr DOMNodeIterator
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorGetExpandEntityReferencesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMNodeIterator a) => O.OverloadedMethod DOMNodeIteratorGetExpandEntityReferencesMethodInfo a signature where
overloadedMethod = dOMNodeIteratorGetExpandEntityReferences
instance O.OverloadedMethodInfo DOMNodeIteratorGetExpandEntityReferencesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorGetExpandEntityReferences",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#v:dOMNodeIteratorGetExpandEntityReferences"
})
#endif
foreign import ccall "webkit_dom_node_iterator_get_filter" webkit_dom_node_iterator_get_filter ::
Ptr DOMNodeIterator ->
IO (Ptr WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter)
{-# DEPRECATED dOMNodeIteratorGetFilter ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIteratorGetFilter ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a
-> m WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter
dOMNodeIteratorGetFilter :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a -> m DOMNodeFilter
dOMNodeIteratorGetFilter a
self = IO DOMNodeFilter -> m DOMNodeFilter
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNodeFilter -> m DOMNodeFilter)
-> IO DOMNodeFilter -> m DOMNodeFilter
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNodeIterator
self' <- a -> IO (Ptr DOMNodeIterator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNodeFilter
result <- Ptr DOMNodeIterator -> IO (Ptr DOMNodeFilter)
webkit_dom_node_iterator_get_filter Ptr DOMNodeIterator
self'
Text -> Ptr DOMNodeFilter -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeIteratorGetFilter" Ptr DOMNodeFilter
result
DOMNodeFilter
result' <- ((ManagedPtr DOMNodeFilter -> DOMNodeFilter)
-> Ptr DOMNodeFilter -> IO DOMNodeFilter
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMNodeFilter -> DOMNodeFilter
WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter) Ptr DOMNodeFilter
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNodeFilter -> IO DOMNodeFilter
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNodeFilter
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorGetFilterMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter), MonadIO m, IsDOMNodeIterator a) => O.OverloadedMethod DOMNodeIteratorGetFilterMethodInfo a signature where
overloadedMethod = dOMNodeIteratorGetFilter
instance O.OverloadedMethodInfo DOMNodeIteratorGetFilterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorGetFilter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#v:dOMNodeIteratorGetFilter"
})
#endif
foreign import ccall "webkit_dom_node_iterator_get_pointer_before_reference_node" webkit_dom_node_iterator_get_pointer_before_reference_node ::
Ptr DOMNodeIterator ->
IO CInt
{-# DEPRECATED dOMNodeIteratorGetPointerBeforeReferenceNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIteratorGetPointerBeforeReferenceNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a
-> m Bool
dOMNodeIteratorGetPointerBeforeReferenceNode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a -> m Bool
dOMNodeIteratorGetPointerBeforeReferenceNode a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 DOMNodeIterator
self' <- a -> IO (Ptr DOMNodeIterator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMNodeIterator -> IO CInt
webkit_dom_node_iterator_get_pointer_before_reference_node Ptr DOMNodeIterator
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorGetPointerBeforeReferenceNodeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMNodeIterator a) => O.OverloadedMethod DOMNodeIteratorGetPointerBeforeReferenceNodeMethodInfo a signature where
overloadedMethod = dOMNodeIteratorGetPointerBeforeReferenceNode
instance O.OverloadedMethodInfo DOMNodeIteratorGetPointerBeforeReferenceNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorGetPointerBeforeReferenceNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#v:dOMNodeIteratorGetPointerBeforeReferenceNode"
})
#endif
foreign import ccall "webkit_dom_node_iterator_get_reference_node" webkit_dom_node_iterator_get_reference_node ::
Ptr DOMNodeIterator ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMNodeIteratorGetReferenceNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIteratorGetReferenceNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMNodeIteratorGetReferenceNode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a -> m DOMNode
dOMNodeIteratorGetReferenceNode a
self = IO DOMNode -> m DOMNode
forall a. IO a -> m a
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 DOMNodeIterator
self' <- a -> IO (Ptr DOMNodeIterator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMNodeIterator -> IO (Ptr DOMNode)
webkit_dom_node_iterator_get_reference_node Ptr DOMNodeIterator
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeIteratorGetReferenceNode" 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
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorGetReferenceNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMNodeIterator a) => O.OverloadedMethod DOMNodeIteratorGetReferenceNodeMethodInfo a signature where
overloadedMethod = dOMNodeIteratorGetReferenceNode
instance O.OverloadedMethodInfo DOMNodeIteratorGetReferenceNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorGetReferenceNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#v:dOMNodeIteratorGetReferenceNode"
})
#endif
foreign import ccall "webkit_dom_node_iterator_get_root" webkit_dom_node_iterator_get_root ::
Ptr DOMNodeIterator ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMNodeIteratorGetRoot ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIteratorGetRoot ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMNodeIteratorGetRoot :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a -> m DOMNode
dOMNodeIteratorGetRoot a
self = IO DOMNode -> m DOMNode
forall a. IO a -> m a
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 DOMNodeIterator
self' <- a -> IO (Ptr DOMNodeIterator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMNodeIterator -> IO (Ptr DOMNode)
webkit_dom_node_iterator_get_root Ptr DOMNodeIterator
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeIteratorGetRoot" 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
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorGetRootMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMNodeIterator a) => O.OverloadedMethod DOMNodeIteratorGetRootMethodInfo a signature where
overloadedMethod = dOMNodeIteratorGetRoot
instance O.OverloadedMethodInfo DOMNodeIteratorGetRootMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorGetRoot",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#v:dOMNodeIteratorGetRoot"
})
#endif
foreign import ccall "webkit_dom_node_iterator_get_what_to_show" webkit_dom_node_iterator_get_what_to_show ::
Ptr DOMNodeIterator ->
IO FCT.CULong
{-# DEPRECATED dOMNodeIteratorGetWhatToShow ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIteratorGetWhatToShow ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a
-> m FCT.CULong
dOMNodeIteratorGetWhatToShow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a -> m CULong
dOMNodeIteratorGetWhatToShow a
self = IO CULong -> m CULong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMNodeIterator
self' <- a -> IO (Ptr DOMNodeIterator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CULong
result <- Ptr DOMNodeIterator -> IO CULong
webkit_dom_node_iterator_get_what_to_show Ptr DOMNodeIterator
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CULong -> IO CULong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorGetWhatToShowMethodInfo
instance (signature ~ (m FCT.CULong), MonadIO m, IsDOMNodeIterator a) => O.OverloadedMethod DOMNodeIteratorGetWhatToShowMethodInfo a signature where
overloadedMethod = dOMNodeIteratorGetWhatToShow
instance O.OverloadedMethodInfo DOMNodeIteratorGetWhatToShowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorGetWhatToShow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#v:dOMNodeIteratorGetWhatToShow"
})
#endif
foreign import ccall "webkit_dom_node_iterator_next_node" webkit_dom_node_iterator_next_node ::
Ptr DOMNodeIterator ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMNodeIteratorNextNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIteratorNextNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMNodeIteratorNextNode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a -> m DOMNode
dOMNodeIteratorNextNode a
self = IO DOMNode -> m DOMNode
forall a. IO a -> m a
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 DOMNodeIterator
self' <- a -> IO (Ptr DOMNodeIterator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
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 DOMNodeIterator -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_node_iterator_next_node Ptr DOMNodeIterator
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeIteratorNextNode" 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
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorNextNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMNodeIterator a) => O.OverloadedMethod DOMNodeIteratorNextNodeMethodInfo a signature where
overloadedMethod = dOMNodeIteratorNextNode
instance O.OverloadedMethodInfo DOMNodeIteratorNextNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorNextNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#v:dOMNodeIteratorNextNode"
})
#endif
foreign import ccall "webkit_dom_node_iterator_previous_node" webkit_dom_node_iterator_previous_node ::
Ptr DOMNodeIterator ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMNodeIteratorPreviousNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIteratorPreviousNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMNodeIteratorPreviousNode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a -> m DOMNode
dOMNodeIteratorPreviousNode a
self = IO DOMNode -> m DOMNode
forall a. IO a -> m a
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 DOMNodeIterator
self' <- a -> IO (Ptr DOMNodeIterator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
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 DOMNodeIterator -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_node_iterator_previous_node Ptr DOMNodeIterator
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMNodeIteratorPreviousNode" 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
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorPreviousNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMNodeIterator a) => O.OverloadedMethod DOMNodeIteratorPreviousNodeMethodInfo a signature where
overloadedMethod = dOMNodeIteratorPreviousNode
instance O.OverloadedMethodInfo DOMNodeIteratorPreviousNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorPreviousNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.31/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#v:dOMNodeIteratorPreviousNode"
})
#endif