{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMTreeWalker
(
DOMTreeWalker(..) ,
IsDOMTreeWalker ,
toDOMTreeWalker ,
noDOMTreeWalker ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMTreeWalkerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerFirstChildMethodInfo ,
#endif
dOMTreeWalkerFirstChild ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerGetCurrentNodeMethodInfo ,
#endif
dOMTreeWalkerGetCurrentNode ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerGetExpandEntityReferencesMethodInfo,
#endif
dOMTreeWalkerGetExpandEntityReferences ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerGetFilterMethodInfo ,
#endif
dOMTreeWalkerGetFilter ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerGetRootMethodInfo ,
#endif
dOMTreeWalkerGetRoot ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerGetWhatToShowMethodInfo ,
#endif
dOMTreeWalkerGetWhatToShow ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerLastChildMethodInfo ,
#endif
dOMTreeWalkerLastChild ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerNextNodeMethodInfo ,
#endif
dOMTreeWalkerNextNode ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerNextSiblingMethodInfo ,
#endif
dOMTreeWalkerNextSibling ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerParentNodeMethodInfo ,
#endif
dOMTreeWalkerParentNode ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerPreviousNodeMethodInfo ,
#endif
dOMTreeWalkerPreviousNode ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerPreviousSiblingMethodInfo ,
#endif
dOMTreeWalkerPreviousSibling ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerSetCurrentNodeMethodInfo ,
#endif
dOMTreeWalkerSetCurrentNode ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerCurrentNodePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMTreeWalkerCurrentNode ,
#endif
getDOMTreeWalkerCurrentNode ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerFilterPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMTreeWalkerFilter ,
#endif
getDOMTreeWalkerFilter ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerRootPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMTreeWalkerRoot ,
#endif
getDOMTreeWalkerRoot ,
#if defined(ENABLE_OVERLOADING)
DOMTreeWalkerWhatToShowPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMTreeWalkerWhatToShow ,
#endif
getDOMTreeWalkerWhatToShow ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# 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 DOMTreeWalker = DOMTreeWalker (ManagedPtr DOMTreeWalker)
deriving (DOMTreeWalker -> DOMTreeWalker -> Bool
(DOMTreeWalker -> DOMTreeWalker -> Bool)
-> (DOMTreeWalker -> DOMTreeWalker -> Bool) -> Eq DOMTreeWalker
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMTreeWalker -> DOMTreeWalker -> Bool
$c/= :: DOMTreeWalker -> DOMTreeWalker -> Bool
== :: DOMTreeWalker -> DOMTreeWalker -> Bool
$c== :: DOMTreeWalker -> DOMTreeWalker -> Bool
Eq)
foreign import ccall "webkit_dom_tree_walker_get_type"
c_webkit_dom_tree_walker_get_type :: IO GType
instance GObject DOMTreeWalker where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_dom_tree_walker_get_type
instance B.GValue.IsGValue DOMTreeWalker where
toGValue :: DOMTreeWalker -> IO GValue
toGValue o :: DOMTreeWalker
o = do
GType
gtype <- IO GType
c_webkit_dom_tree_walker_get_type
DOMTreeWalker -> (Ptr DOMTreeWalker -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMTreeWalker
o (GType
-> (GValue -> Ptr DOMTreeWalker -> IO ())
-> Ptr DOMTreeWalker
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DOMTreeWalker -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO DOMTreeWalker
fromGValue gv :: GValue
gv = do
Ptr DOMTreeWalker
ptr <- GValue -> IO (Ptr DOMTreeWalker)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DOMTreeWalker)
(ManagedPtr DOMTreeWalker -> DOMTreeWalker)
-> Ptr DOMTreeWalker -> IO DOMTreeWalker
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMTreeWalker -> DOMTreeWalker
DOMTreeWalker Ptr DOMTreeWalker
ptr
class (GObject o, O.IsDescendantOf DOMTreeWalker o) => IsDOMTreeWalker o
instance (GObject o, O.IsDescendantOf DOMTreeWalker o) => IsDOMTreeWalker o
instance O.HasParentTypes DOMTreeWalker
type instance O.ParentTypes DOMTreeWalker = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMTreeWalker :: (MonadIO m, IsDOMTreeWalker o) => o -> m DOMTreeWalker
toDOMTreeWalker :: o -> m DOMTreeWalker
toDOMTreeWalker = IO DOMTreeWalker -> m DOMTreeWalker
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMTreeWalker -> m DOMTreeWalker)
-> (o -> IO DOMTreeWalker) -> o -> m DOMTreeWalker
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMTreeWalker -> DOMTreeWalker)
-> o -> IO DOMTreeWalker
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DOMTreeWalker -> DOMTreeWalker
DOMTreeWalker
noDOMTreeWalker :: Maybe DOMTreeWalker
noDOMTreeWalker :: Maybe DOMTreeWalker
noDOMTreeWalker = Maybe DOMTreeWalker
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMTreeWalkerMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMTreeWalkerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMTreeWalkerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMTreeWalkerMethod "firstChild" o = DOMTreeWalkerFirstChildMethodInfo
ResolveDOMTreeWalkerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMTreeWalkerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMTreeWalkerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMTreeWalkerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMTreeWalkerMethod "lastChild" o = DOMTreeWalkerLastChildMethodInfo
ResolveDOMTreeWalkerMethod "nextNode" o = DOMTreeWalkerNextNodeMethodInfo
ResolveDOMTreeWalkerMethod "nextSibling" o = DOMTreeWalkerNextSiblingMethodInfo
ResolveDOMTreeWalkerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMTreeWalkerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMTreeWalkerMethod "parentNode" o = DOMTreeWalkerParentNodeMethodInfo
ResolveDOMTreeWalkerMethod "previousNode" o = DOMTreeWalkerPreviousNodeMethodInfo
ResolveDOMTreeWalkerMethod "previousSibling" o = DOMTreeWalkerPreviousSiblingMethodInfo
ResolveDOMTreeWalkerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMTreeWalkerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMTreeWalkerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMTreeWalkerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMTreeWalkerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMTreeWalkerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMTreeWalkerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMTreeWalkerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMTreeWalkerMethod "getCurrentNode" o = DOMTreeWalkerGetCurrentNodeMethodInfo
ResolveDOMTreeWalkerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMTreeWalkerMethod "getExpandEntityReferences" o = DOMTreeWalkerGetExpandEntityReferencesMethodInfo
ResolveDOMTreeWalkerMethod "getFilter" o = DOMTreeWalkerGetFilterMethodInfo
ResolveDOMTreeWalkerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMTreeWalkerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMTreeWalkerMethod "getRoot" o = DOMTreeWalkerGetRootMethodInfo
ResolveDOMTreeWalkerMethod "getWhatToShow" o = DOMTreeWalkerGetWhatToShowMethodInfo
ResolveDOMTreeWalkerMethod "setCurrentNode" o = DOMTreeWalkerSetCurrentNodeMethodInfo
ResolveDOMTreeWalkerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMTreeWalkerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMTreeWalkerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMTreeWalkerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMTreeWalkerMethod t DOMTreeWalker, O.MethodInfo info DOMTreeWalker p) => OL.IsLabel t (DOMTreeWalker -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getDOMTreeWalkerCurrentNode :: (MonadIO m, IsDOMTreeWalker o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMTreeWalkerCurrentNode :: o -> m DOMNode
getDOMTreeWalkerCurrentNode obj :: o
obj = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getDOMTreeWalkerCurrentNode" (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 "current-node" ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMTreeWalkerCurrentNodePropertyInfo
instance AttrInfo DOMTreeWalkerCurrentNodePropertyInfo where
type AttrAllowedOps DOMTreeWalkerCurrentNodePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = IsDOMTreeWalker
type AttrSetTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = (~) ()
type AttrTransferType DOMTreeWalkerCurrentNodePropertyInfo = ()
type AttrGetType DOMTreeWalkerCurrentNodePropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMTreeWalkerCurrentNodePropertyInfo = "current-node"
type AttrOrigin DOMTreeWalkerCurrentNodePropertyInfo = DOMTreeWalker
attrGet = getDOMTreeWalkerCurrentNode
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMTreeWalkerFilter :: (MonadIO m, IsDOMTreeWalker o) => o -> m (Maybe WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter)
getDOMTreeWalkerFilter :: o -> m (Maybe DOMNodeFilter)
getDOMTreeWalkerFilter obj :: o
obj = IO (Maybe DOMNodeFilter) -> m (Maybe DOMNodeFilter)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "filter" ManagedPtr DOMNodeFilter -> DOMNodeFilter
WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter
#if defined(ENABLE_OVERLOADING)
data DOMTreeWalkerFilterPropertyInfo
instance AttrInfo DOMTreeWalkerFilterPropertyInfo where
type AttrAllowedOps DOMTreeWalkerFilterPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMTreeWalkerFilterPropertyInfo = IsDOMTreeWalker
type AttrSetTypeConstraint DOMTreeWalkerFilterPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMTreeWalkerFilterPropertyInfo = (~) ()
type AttrTransferType DOMTreeWalkerFilterPropertyInfo = ()
type AttrGetType DOMTreeWalkerFilterPropertyInfo = (Maybe WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter)
type AttrLabel DOMTreeWalkerFilterPropertyInfo = "filter"
type AttrOrigin DOMTreeWalkerFilterPropertyInfo = DOMTreeWalker
attrGet = getDOMTreeWalkerFilter
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMTreeWalkerRoot :: (MonadIO m, IsDOMTreeWalker o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMTreeWalkerRoot :: o -> m DOMNode
getDOMTreeWalkerRoot obj :: o
obj = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getDOMTreeWalkerRoot" (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 "root" ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMTreeWalkerRootPropertyInfo
instance AttrInfo DOMTreeWalkerRootPropertyInfo where
type AttrAllowedOps DOMTreeWalkerRootPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMTreeWalkerRootPropertyInfo = IsDOMTreeWalker
type AttrSetTypeConstraint DOMTreeWalkerRootPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMTreeWalkerRootPropertyInfo = (~) ()
type AttrTransferType DOMTreeWalkerRootPropertyInfo = ()
type AttrGetType DOMTreeWalkerRootPropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMTreeWalkerRootPropertyInfo = "root"
type AttrOrigin DOMTreeWalkerRootPropertyInfo = DOMTreeWalker
attrGet = getDOMTreeWalkerRoot
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMTreeWalkerWhatToShow :: (MonadIO m, IsDOMTreeWalker o) => o -> m CULong
getDOMTreeWalkerWhatToShow :: o -> m CULong
getDOMTreeWalkerWhatToShow obj :: o
obj = 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
$ o -> String -> IO CULong
forall a. GObject a => a -> String -> IO CULong
B.Properties.getObjectPropertyULong o
obj "what-to-show"
#if defined(ENABLE_OVERLOADING)
data DOMTreeWalkerWhatToShowPropertyInfo
instance AttrInfo DOMTreeWalkerWhatToShowPropertyInfo where
type AttrAllowedOps DOMTreeWalkerWhatToShowPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = IsDOMTreeWalker
type AttrSetTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = (~) ()
type AttrTransferType DOMTreeWalkerWhatToShowPropertyInfo = ()
type AttrGetType DOMTreeWalkerWhatToShowPropertyInfo = CULong
type AttrLabel DOMTreeWalkerWhatToShowPropertyInfo = "what-to-show"
type AttrOrigin DOMTreeWalkerWhatToShowPropertyInfo = DOMTreeWalker
attrGet = getDOMTreeWalkerWhatToShow
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMTreeWalker
type instance O.AttributeList DOMTreeWalker = DOMTreeWalkerAttributeList
type DOMTreeWalkerAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("currentNode", DOMTreeWalkerCurrentNodePropertyInfo), '("filter", DOMTreeWalkerFilterPropertyInfo), '("root", DOMTreeWalkerRootPropertyInfo), '("whatToShow", DOMTreeWalkerWhatToShowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMTreeWalkerCurrentNode :: AttrLabelProxy "currentNode"
dOMTreeWalkerCurrentNode = AttrLabelProxy
dOMTreeWalkerFilter :: AttrLabelProxy "filter"
dOMTreeWalkerFilter = AttrLabelProxy
dOMTreeWalkerRoot :: AttrLabelProxy "root"
dOMTreeWalkerRoot = AttrLabelProxy
dOMTreeWalkerWhatToShow :: AttrLabelProxy "whatToShow"
dOMTreeWalkerWhatToShow = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMTreeWalker = DOMTreeWalkerSignalList
type DOMTreeWalkerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_tree_walker_first_child" webkit_dom_tree_walker_first_child ::
Ptr DOMTreeWalker ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMTreeWalkerFirstChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTreeWalkerFirstChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMTreeWalkerFirstChild :: a -> m DOMNode
dOMTreeWalkerFirstChild self :: a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMTreeWalker -> IO (Ptr DOMNode)
webkit_dom_tree_walker_first_child Ptr DOMTreeWalker
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTreeWalkerFirstChild" 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 DOMTreeWalkerFirstChildMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMTreeWalker a) => O.MethodInfo DOMTreeWalkerFirstChildMethodInfo a signature where
overloadedMethod = dOMTreeWalkerFirstChild
#endif
foreign import ccall "webkit_dom_tree_walker_get_current_node" webkit_dom_tree_walker_get_current_node ::
Ptr DOMTreeWalker ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMTreeWalkerGetCurrentNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTreeWalkerGetCurrentNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMTreeWalkerGetCurrentNode :: a -> m DOMNode
dOMTreeWalkerGetCurrentNode self :: a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMTreeWalker -> IO (Ptr DOMNode)
webkit_dom_tree_walker_get_current_node Ptr DOMTreeWalker
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTreeWalkerGetCurrentNode" 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 DOMTreeWalkerGetCurrentNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMTreeWalker a) => O.MethodInfo DOMTreeWalkerGetCurrentNodeMethodInfo a signature where
overloadedMethod = dOMTreeWalkerGetCurrentNode
#endif
foreign import ccall "webkit_dom_tree_walker_get_expand_entity_references" webkit_dom_tree_walker_get_expand_entity_references ::
Ptr DOMTreeWalker ->
IO CInt
{-# DEPRECATED dOMTreeWalkerGetExpandEntityReferences ["(Since version 2.12)"] #-}
dOMTreeWalkerGetExpandEntityReferences ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a
-> m Bool
dOMTreeWalkerGetExpandEntityReferences :: a -> m Bool
dOMTreeWalkerGetExpandEntityReferences self :: a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMTreeWalker -> IO CInt
webkit_dom_tree_walker_get_expand_entity_references Ptr DOMTreeWalker
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMTreeWalkerGetExpandEntityReferencesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMTreeWalker a) => O.MethodInfo DOMTreeWalkerGetExpandEntityReferencesMethodInfo a signature where
overloadedMethod = dOMTreeWalkerGetExpandEntityReferences
#endif
foreign import ccall "webkit_dom_tree_walker_get_filter" webkit_dom_tree_walker_get_filter ::
Ptr DOMTreeWalker ->
IO (Ptr WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter)
{-# DEPRECATED dOMTreeWalkerGetFilter ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTreeWalkerGetFilter ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a
-> m WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter
dOMTreeWalkerGetFilter :: a -> m DOMNodeFilter
dOMTreeWalkerGetFilter self :: 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 DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNodeFilter
result <- Ptr DOMTreeWalker -> IO (Ptr DOMNodeFilter)
webkit_dom_tree_walker_get_filter Ptr DOMTreeWalker
self'
Text -> Ptr DOMNodeFilter -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTreeWalkerGetFilter" 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 DOMTreeWalkerGetFilterMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter), MonadIO m, IsDOMTreeWalker a) => O.MethodInfo DOMTreeWalkerGetFilterMethodInfo a signature where
overloadedMethod = dOMTreeWalkerGetFilter
#endif
foreign import ccall "webkit_dom_tree_walker_get_root" webkit_dom_tree_walker_get_root ::
Ptr DOMTreeWalker ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMTreeWalkerGetRoot ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTreeWalkerGetRoot ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMTreeWalkerGetRoot :: a -> m DOMNode
dOMTreeWalkerGetRoot self :: a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMTreeWalker -> IO (Ptr DOMNode)
webkit_dom_tree_walker_get_root Ptr DOMTreeWalker
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTreeWalkerGetRoot" 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 DOMTreeWalkerGetRootMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMTreeWalker a) => O.MethodInfo DOMTreeWalkerGetRootMethodInfo a signature where
overloadedMethod = dOMTreeWalkerGetRoot
#endif
foreign import ccall "webkit_dom_tree_walker_get_what_to_show" webkit_dom_tree_walker_get_what_to_show ::
Ptr DOMTreeWalker ->
IO CULong
{-# DEPRECATED dOMTreeWalkerGetWhatToShow ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTreeWalkerGetWhatToShow ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a
-> m CULong
dOMTreeWalkerGetWhatToShow :: a -> m CULong
dOMTreeWalkerGetWhatToShow self :: 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 DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CULong
result <- Ptr DOMTreeWalker -> IO CULong
webkit_dom_tree_walker_get_what_to_show Ptr DOMTreeWalker
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 DOMTreeWalkerGetWhatToShowMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMTreeWalker a) => O.MethodInfo DOMTreeWalkerGetWhatToShowMethodInfo a signature where
overloadedMethod = dOMTreeWalkerGetWhatToShow
#endif
foreign import ccall "webkit_dom_tree_walker_last_child" webkit_dom_tree_walker_last_child ::
Ptr DOMTreeWalker ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMTreeWalkerLastChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTreeWalkerLastChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMTreeWalkerLastChild :: a -> m DOMNode
dOMTreeWalkerLastChild self :: a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMTreeWalker -> IO (Ptr DOMNode)
webkit_dom_tree_walker_last_child Ptr DOMTreeWalker
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTreeWalkerLastChild" 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 DOMTreeWalkerLastChildMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMTreeWalker a) => O.MethodInfo DOMTreeWalkerLastChildMethodInfo a signature where
overloadedMethod = dOMTreeWalkerLastChild
#endif
foreign import ccall "webkit_dom_tree_walker_next_node" webkit_dom_tree_walker_next_node ::
Ptr DOMTreeWalker ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMTreeWalkerNextNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTreeWalkerNextNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMTreeWalkerNextNode :: a -> m DOMNode
dOMTreeWalkerNextNode self :: a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMTreeWalker -> IO (Ptr DOMNode)
webkit_dom_tree_walker_next_node Ptr DOMTreeWalker
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTreeWalkerNextNode" 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 DOMTreeWalkerNextNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMTreeWalker a) => O.MethodInfo DOMTreeWalkerNextNodeMethodInfo a signature where
overloadedMethod = dOMTreeWalkerNextNode
#endif
foreign import ccall "webkit_dom_tree_walker_next_sibling" webkit_dom_tree_walker_next_sibling ::
Ptr DOMTreeWalker ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMTreeWalkerNextSibling ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTreeWalkerNextSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMTreeWalkerNextSibling :: a -> m DOMNode
dOMTreeWalkerNextSibling self :: a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMTreeWalker -> IO (Ptr DOMNode)
webkit_dom_tree_walker_next_sibling Ptr DOMTreeWalker
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTreeWalkerNextSibling" 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 DOMTreeWalkerNextSiblingMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMTreeWalker a) => O.MethodInfo DOMTreeWalkerNextSiblingMethodInfo a signature where
overloadedMethod = dOMTreeWalkerNextSibling
#endif
foreign import ccall "webkit_dom_tree_walker_parent_node" webkit_dom_tree_walker_parent_node ::
Ptr DOMTreeWalker ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMTreeWalkerParentNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTreeWalkerParentNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMTreeWalkerParentNode :: a -> m DOMNode
dOMTreeWalkerParentNode self :: a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMTreeWalker -> IO (Ptr DOMNode)
webkit_dom_tree_walker_parent_node Ptr DOMTreeWalker
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTreeWalkerParentNode" 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 DOMTreeWalkerParentNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMTreeWalker a) => O.MethodInfo DOMTreeWalkerParentNodeMethodInfo a signature where
overloadedMethod = dOMTreeWalkerParentNode
#endif
foreign import ccall "webkit_dom_tree_walker_previous_node" webkit_dom_tree_walker_previous_node ::
Ptr DOMTreeWalker ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMTreeWalkerPreviousNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTreeWalkerPreviousNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMTreeWalkerPreviousNode :: a -> m DOMNode
dOMTreeWalkerPreviousNode self :: a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMTreeWalker -> IO (Ptr DOMNode)
webkit_dom_tree_walker_previous_node Ptr DOMTreeWalker
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTreeWalkerPreviousNode" 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 DOMTreeWalkerPreviousNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMTreeWalker a) => O.MethodInfo DOMTreeWalkerPreviousNodeMethodInfo a signature where
overloadedMethod = dOMTreeWalkerPreviousNode
#endif
foreign import ccall "webkit_dom_tree_walker_previous_sibling" webkit_dom_tree_walker_previous_sibling ::
Ptr DOMTreeWalker ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMTreeWalkerPreviousSibling ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTreeWalkerPreviousSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMTreeWalkerPreviousSibling :: a -> m DOMNode
dOMTreeWalkerPreviousSibling self :: a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMTreeWalker -> IO (Ptr DOMNode)
webkit_dom_tree_walker_previous_sibling Ptr DOMTreeWalker
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTreeWalkerPreviousSibling" 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 DOMTreeWalkerPreviousSiblingMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMTreeWalker a) => O.MethodInfo DOMTreeWalkerPreviousSiblingMethodInfo a signature where
overloadedMethod = dOMTreeWalkerPreviousSibling
#endif
foreign import ccall "webkit_dom_tree_walker_set_current_node" webkit_dom_tree_walker_set_current_node ::
Ptr DOMTreeWalker ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMTreeWalkerSetCurrentNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTreeWalkerSetCurrentNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTreeWalker a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMTreeWalkerSetCurrentNode :: a -> b -> m ()
dOMTreeWalkerSetCurrentNode self :: a
self value :: b
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMTreeWalker
self' <- a -> IO (Ptr DOMTreeWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
value' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
value
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMTreeWalker -> Ptr DOMNode -> Ptr (Ptr GError) -> IO ()
webkit_dom_tree_walker_set_current_node Ptr DOMTreeWalker
self' Ptr DOMNode
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
value
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMTreeWalkerSetCurrentNodeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMTreeWalker a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMTreeWalkerSetCurrentNodeMethodInfo a signature where
overloadedMethod = dOMTreeWalkerSetCurrentNode
#endif