{-# 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# 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
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
/= :: DOMNodeIterator -> DOMNodeIterator -> Bool
$c/= :: DOMNodeIterator -> DOMNodeIterator -> Bool
== :: DOMNodeIterator -> DOMNodeIterator -> Bool
$c== :: 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 (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 (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 :: *) :: * 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 (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
#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 (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
#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 (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
#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 (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
#endif
getDOMNodeIteratorWhatToShow :: (MonadIO m, IsDOMNodeIterator o) => o -> m CULong
getDOMNodeIteratorWhatToShow :: forall (m :: * -> *) o.
(MonadIO m, IsDOMNodeIterator o) =>
o -> m CULong
getDOMNodeIteratorWhatToShow o
obj = IO CULong -> m CULong
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 = CULong
type AttrLabel DOMNodeIteratorWhatToShowPropertyInfo = "what-to-show"
type AttrOrigin DOMNodeIteratorWhatToShowPropertyInfo = DOMNodeIterator
attrGet = getDOMNodeIteratorWhatToShow
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#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, *)])
#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, *)])
#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 (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorDetach",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/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 (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorGetExpandEntityReferences",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/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 (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorGetFilter",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/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 (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorGetPointerBeforeReferenceNode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/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 (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorGetReferenceNode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/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 (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 (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 = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorGetRoot",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/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 CULong
{-# DEPRECATED dOMNodeIteratorGetWhatToShow ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIteratorGetWhatToShow ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a
-> m CULong
dOMNodeIteratorGetWhatToShow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMNodeIterator a) =>
a -> m CULong
dOMNodeIteratorGetWhatToShow a
self = IO CULong -> m CULong
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 (m :: * -> *) a. Monad m => a -> m a
return CULong
result
#if defined(ENABLE_OVERLOADING)
data DOMNodeIteratorGetWhatToShowMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMNodeIterator a) => O.OverloadedMethod DOMNodeIteratorGetWhatToShowMethodInfo a signature where
overloadedMethod = dOMNodeIteratorGetWhatToShow
instance O.OverloadedMethodInfo DOMNodeIteratorGetWhatToShowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorGetWhatToShow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/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 (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 (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data 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 = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorNextNode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/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 (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 (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data 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 = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMNodeIterator.dOMNodeIteratorPreviousNode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMNodeIterator.html#v:dOMNodeIteratorPreviousNode"
}
#endif