{-# 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 ,
#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.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 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 (SP.ManagedPtr DOMTreeWalker)
deriving (DOMTreeWalker -> DOMTreeWalker -> Bool
(DOMTreeWalker -> DOMTreeWalker -> Bool)
-> (DOMTreeWalker -> DOMTreeWalker -> Bool) -> Eq DOMTreeWalker
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DOMTreeWalker -> DOMTreeWalker -> Bool
== :: DOMTreeWalker -> DOMTreeWalker -> Bool
$c/= :: DOMTreeWalker -> DOMTreeWalker -> Bool
/= :: DOMTreeWalker -> DOMTreeWalker -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMTreeWalker where
toManagedPtr :: DOMTreeWalker -> ManagedPtr DOMTreeWalker
toManagedPtr (DOMTreeWalker ManagedPtr DOMTreeWalker
p) = ManagedPtr DOMTreeWalker
p
foreign import ccall "webkit_dom_tree_walker_get_type"
c_webkit_dom_tree_walker_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMTreeWalker where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_tree_walker_get_type
instance B.Types.GObject DOMTreeWalker
class (SP.GObject o, O.IsDescendantOf DOMTreeWalker o) => IsDOMTreeWalker o
instance (SP.GObject o, O.IsDescendantOf DOMTreeWalker o) => IsDOMTreeWalker o
instance O.HasParentTypes DOMTreeWalker
type instance O.ParentTypes DOMTreeWalker = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMTreeWalker :: (MIO.MonadIO m, IsDOMTreeWalker o) => o -> m DOMTreeWalker
toDOMTreeWalker :: forall (m :: * -> *) o.
(MonadIO m, IsDOMTreeWalker o) =>
o -> m DOMTreeWalker
toDOMTreeWalker = IO DOMTreeWalker -> m DOMTreeWalker
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMTreeWalker -> DOMTreeWalker
DOMTreeWalker
instance B.GValue.IsGValue (Maybe DOMTreeWalker) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_tree_walker_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMTreeWalker -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMTreeWalker
P.Nothing = Ptr GValue -> Ptr DOMTreeWalker -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMTreeWalker
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMTreeWalker)
gvalueSet_ Ptr GValue
gv (P.Just DOMTreeWalker
obj) = DOMTreeWalker -> (Ptr DOMTreeWalker -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMTreeWalker
obj (Ptr GValue -> Ptr DOMTreeWalker -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMTreeWalker)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMTreeWalker
ptr <- Ptr GValue -> IO (Ptr DOMTreeWalker)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMTreeWalker)
if Ptr DOMTreeWalker
ptr Ptr DOMTreeWalker -> Ptr DOMTreeWalker -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMTreeWalker
forall a. Ptr a
FP.nullPtr
then DOMTreeWalker -> Maybe DOMTreeWalker
forall a. a -> Maybe a
P.Just (DOMTreeWalker -> Maybe DOMTreeWalker)
-> IO DOMTreeWalker -> IO (Maybe DOMTreeWalker)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe DOMTreeWalker -> IO (Maybe DOMTreeWalker)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMTreeWalker
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMTreeWalkerMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveDOMTreeWalkerMethod t DOMTreeWalker, O.OverloadedMethod info DOMTreeWalker p, R.HasField t DOMTreeWalker p) => R.HasField t DOMTreeWalker p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMTreeWalkerMethod t DOMTreeWalker, O.OverloadedMethodInfo info DOMTreeWalker) => OL.IsLabel t (O.MethodProxy info DOMTreeWalker) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMTreeWalkerCurrentNode :: (MonadIO m, IsDOMTreeWalker o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMTreeWalkerCurrentNode :: forall (m :: * -> *) o.
(MonadIO m, IsDOMTreeWalker o) =>
o -> m DOMNode
getDOMTreeWalkerCurrentNode 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
"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 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.currentNode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#g:attr:currentNode"
})
#endif
getDOMTreeWalkerFilter :: (MonadIO m, IsDOMTreeWalker o) => o -> m (Maybe WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter)
getDOMTreeWalkerFilter :: forall (m :: * -> *) o.
(MonadIO m, IsDOMTreeWalker o) =>
o -> m (Maybe DOMNodeFilter)
getDOMTreeWalkerFilter 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 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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.filter"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#g:attr:filter"
})
#endif
getDOMTreeWalkerRoot :: (MonadIO m, IsDOMTreeWalker o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMTreeWalkerRoot :: forall (m :: * -> *) o.
(MonadIO m, IsDOMTreeWalker o) =>
o -> m DOMNode
getDOMTreeWalkerRoot 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
"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 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.root"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#g:attr:root"
})
#endif
getDOMTreeWalkerWhatToShow :: (MonadIO m, IsDOMTreeWalker o) => o -> m CULong
getDOMTreeWalkerWhatToShow :: forall (m :: * -> *) o.
(MonadIO m, IsDOMTreeWalker o) =>
o -> m CULong
getDOMTreeWalkerWhatToShow 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 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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.whatToShow"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#g:attr:whatToShow"
})
#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, DK.Type)])
#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, DK.Type)])
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a -> m DOMNode
dOMTreeWalkerFirstChild 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 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 Text
"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 a. a -> IO a
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.OverloadedMethod DOMTreeWalkerFirstChildMethodInfo a signature where
overloadedMethod = dOMTreeWalkerFirstChild
instance O.OverloadedMethodInfo DOMTreeWalkerFirstChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerFirstChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a -> m DOMNode
dOMTreeWalkerGetCurrentNode 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 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 Text
"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 a. a -> IO a
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.OverloadedMethod DOMTreeWalkerGetCurrentNodeMethodInfo a signature where
overloadedMethod = dOMTreeWalkerGetCurrentNode
instance O.OverloadedMethodInfo DOMTreeWalkerGetCurrentNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerGetCurrentNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a -> m Bool
dOMTreeWalkerGetExpandEntityReferences 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 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
/= 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 DOMTreeWalkerGetExpandEntityReferencesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMTreeWalker a) => O.OverloadedMethod DOMTreeWalkerGetExpandEntityReferencesMethodInfo a signature where
overloadedMethod = dOMTreeWalkerGetExpandEntityReferences
instance O.OverloadedMethodInfo DOMTreeWalkerGetExpandEntityReferencesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerGetExpandEntityReferences",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a -> m DOMNodeFilter
dOMTreeWalkerGetFilter 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 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 Text
"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 a. a -> IO a
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.OverloadedMethod DOMTreeWalkerGetFilterMethodInfo a signature where
overloadedMethod = dOMTreeWalkerGetFilter
instance O.OverloadedMethodInfo DOMTreeWalkerGetFilterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerGetFilter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a -> m DOMNode
dOMTreeWalkerGetRoot 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 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 Text
"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 a. a -> IO a
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.OverloadedMethod DOMTreeWalkerGetRootMethodInfo a signature where
overloadedMethod = dOMTreeWalkerGetRoot
instance O.OverloadedMethodInfo DOMTreeWalkerGetRootMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerGetRoot",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a -> m CULong
dOMTreeWalkerGetWhatToShow 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 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 a. a -> IO a
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.OverloadedMethod DOMTreeWalkerGetWhatToShowMethodInfo a signature where
overloadedMethod = dOMTreeWalkerGetWhatToShow
instance O.OverloadedMethodInfo DOMTreeWalkerGetWhatToShowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerGetWhatToShow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a -> m DOMNode
dOMTreeWalkerLastChild 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 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 Text
"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 a. a -> IO a
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.OverloadedMethod DOMTreeWalkerLastChildMethodInfo a signature where
overloadedMethod = dOMTreeWalkerLastChild
instance O.OverloadedMethodInfo DOMTreeWalkerLastChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerLastChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a -> m DOMNode
dOMTreeWalkerNextNode 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 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 Text
"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 a. a -> IO a
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.OverloadedMethod DOMTreeWalkerNextNodeMethodInfo a signature where
overloadedMethod = dOMTreeWalkerNextNode
instance O.OverloadedMethodInfo DOMTreeWalkerNextNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerNextNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a -> m DOMNode
dOMTreeWalkerNextSibling 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 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 Text
"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 a. a -> IO a
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.OverloadedMethod DOMTreeWalkerNextSiblingMethodInfo a signature where
overloadedMethod = dOMTreeWalkerNextSibling
instance O.OverloadedMethodInfo DOMTreeWalkerNextSiblingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerNextSibling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a -> m DOMNode
dOMTreeWalkerParentNode 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 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 Text
"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 a. a -> IO a
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.OverloadedMethod DOMTreeWalkerParentNodeMethodInfo a signature where
overloadedMethod = dOMTreeWalkerParentNode
instance O.OverloadedMethodInfo DOMTreeWalkerParentNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerParentNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a -> m DOMNode
dOMTreeWalkerPreviousNode 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 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 Text
"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 a. a -> IO a
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.OverloadedMethod DOMTreeWalkerPreviousNodeMethodInfo a signature where
overloadedMethod = dOMTreeWalkerPreviousNode
instance O.OverloadedMethodInfo DOMTreeWalkerPreviousNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerPreviousNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMTreeWalker a) =>
a -> m DOMNode
dOMTreeWalkerPreviousSibling 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 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 Text
"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 a. a -> IO a
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.OverloadedMethod DOMTreeWalkerPreviousSiblingMethodInfo a signature where
overloadedMethod = dOMTreeWalkerPreviousSibling
instance O.OverloadedMethodInfo DOMTreeWalkerPreviousSiblingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerPreviousSibling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMTreeWalker a, IsDOMNode b) =>
a -> b -> m ()
dOMTreeWalkerSetCurrentNode a
self b
value = 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 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
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.OverloadedMethod DOMTreeWalkerSetCurrentNodeMethodInfo a signature where
overloadedMethod = dOMTreeWalkerSetCurrentNode
instance O.OverloadedMethodInfo DOMTreeWalkerSetCurrentNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMTreeWalker.dOMTreeWalkerSetCurrentNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMTreeWalker.html#v:dOMTreeWalkerSetCurrentNode"
})
#endif