module GI.WebKit.Objects.DOMNodeIterator
(
DOMNodeIterator(..) ,
DOMNodeIteratorK ,
toDOMNodeIterator ,
noDOMNodeIterator ,
dOMNodeIteratorDetach ,
dOMNodeIteratorGetExpandEntityReferences,
dOMNodeIteratorGetFilter ,
dOMNodeIteratorGetPointerBeforeReferenceNode,
dOMNodeIteratorGetReferenceNode ,
dOMNodeIteratorGetRoot ,
dOMNodeIteratorGetWhatToShow ,
dOMNodeIteratorNextNode ,
dOMNodeIteratorPreviousNode ,
DOMNodeIteratorExpandEntityReferencesPropertyInfo,
getDOMNodeIteratorExpandEntityReferences,
DOMNodeIteratorFilterPropertyInfo ,
getDOMNodeIteratorFilter ,
DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo,
getDOMNodeIteratorPointerBeforeReferenceNode,
DOMNodeIteratorReferenceNodePropertyInfo,
getDOMNodeIteratorReferenceNode ,
DOMNodeIteratorRootPropertyInfo ,
getDOMNodeIteratorRoot ,
DOMNodeIteratorWhatToShowPropertyInfo ,
getDOMNodeIteratorWhatToShow ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype DOMNodeIterator = DOMNodeIterator (ForeignPtr DOMNodeIterator)
foreign import ccall "webkit_dom_node_iterator_get_type"
c_webkit_dom_node_iterator_get_type :: IO GType
type instance ParentTypes DOMNodeIterator = DOMNodeIteratorParentTypes
type DOMNodeIteratorParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMNodeIterator where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_node_iterator_get_type
class GObject o => DOMNodeIteratorK o
instance (GObject o, IsDescendantOf DOMNodeIterator o) => DOMNodeIteratorK o
toDOMNodeIterator :: DOMNodeIteratorK o => o -> IO DOMNodeIterator
toDOMNodeIterator = unsafeCastTo DOMNodeIterator
noDOMNodeIterator :: Maybe DOMNodeIterator
noDOMNodeIterator = Nothing
getDOMNodeIteratorExpandEntityReferences :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool
getDOMNodeIteratorExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references"
data DOMNodeIteratorExpandEntityReferencesPropertyInfo
instance AttrInfo DOMNodeIteratorExpandEntityReferencesPropertyInfo where
type AttrAllowedOps DOMNodeIteratorExpandEntityReferencesPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMNodeIteratorExpandEntityReferencesPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeIteratorExpandEntityReferencesPropertyInfo = DOMNodeIteratorK
type AttrGetType DOMNodeIteratorExpandEntityReferencesPropertyInfo = Bool
type AttrLabel DOMNodeIteratorExpandEntityReferencesPropertyInfo = "DOMNodeIterator::expand-entity-references"
attrGet _ = getDOMNodeIteratorExpandEntityReferences
attrSet _ = undefined
attrConstruct _ = undefined
getDOMNodeIteratorFilter :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNodeFilter
getDOMNodeIteratorFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter
data DOMNodeIteratorFilterPropertyInfo
instance AttrInfo DOMNodeIteratorFilterPropertyInfo where
type AttrAllowedOps DOMNodeIteratorFilterPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMNodeIteratorFilterPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeIteratorFilterPropertyInfo = DOMNodeIteratorK
type AttrGetType DOMNodeIteratorFilterPropertyInfo = DOMNodeFilter
type AttrLabel DOMNodeIteratorFilterPropertyInfo = "DOMNodeIterator::filter"
attrGet _ = getDOMNodeIteratorFilter
attrSet _ = undefined
attrConstruct _ = undefined
getDOMNodeIteratorPointerBeforeReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool
getDOMNodeIteratorPointerBeforeReferenceNode obj = liftIO $ getObjectPropertyBool obj "pointer-before-reference-node"
data DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo
instance AttrInfo DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo where
type AttrAllowedOps DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = DOMNodeIteratorK
type AttrGetType DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = Bool
type AttrLabel DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = "DOMNodeIterator::pointer-before-reference-node"
attrGet _ = getDOMNodeIteratorPointerBeforeReferenceNode
attrSet _ = undefined
attrConstruct _ = undefined
getDOMNodeIteratorReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode
getDOMNodeIteratorReferenceNode obj = liftIO $ getObjectPropertyObject obj "reference-node" DOMNode
data DOMNodeIteratorReferenceNodePropertyInfo
instance AttrInfo DOMNodeIteratorReferenceNodePropertyInfo where
type AttrAllowedOps DOMNodeIteratorReferenceNodePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = DOMNodeIteratorK
type AttrGetType DOMNodeIteratorReferenceNodePropertyInfo = DOMNode
type AttrLabel DOMNodeIteratorReferenceNodePropertyInfo = "DOMNodeIterator::reference-node"
attrGet _ = getDOMNodeIteratorReferenceNode
attrSet _ = undefined
attrConstruct _ = undefined
getDOMNodeIteratorRoot :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode
getDOMNodeIteratorRoot obj = liftIO $ getObjectPropertyObject obj "root" DOMNode
data DOMNodeIteratorRootPropertyInfo
instance AttrInfo DOMNodeIteratorRootPropertyInfo where
type AttrAllowedOps DOMNodeIteratorRootPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMNodeIteratorRootPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeIteratorRootPropertyInfo = DOMNodeIteratorK
type AttrGetType DOMNodeIteratorRootPropertyInfo = DOMNode
type AttrLabel DOMNodeIteratorRootPropertyInfo = "DOMNodeIterator::root"
attrGet _ = getDOMNodeIteratorRoot
attrSet _ = undefined
attrConstruct _ = undefined
getDOMNodeIteratorWhatToShow :: (MonadIO m, DOMNodeIteratorK o) => o -> m Word64
getDOMNodeIteratorWhatToShow obj = liftIO $ getObjectPropertyUInt64 obj "what-to-show"
data DOMNodeIteratorWhatToShowPropertyInfo
instance AttrInfo DOMNodeIteratorWhatToShowPropertyInfo where
type AttrAllowedOps DOMNodeIteratorWhatToShowPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = DOMNodeIteratorK
type AttrGetType DOMNodeIteratorWhatToShowPropertyInfo = Word64
type AttrLabel DOMNodeIteratorWhatToShowPropertyInfo = "DOMNodeIterator::what-to-show"
attrGet _ = getDOMNodeIteratorWhatToShow
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMNodeIterator = DOMNodeIteratorAttributeList
type DOMNodeIteratorAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("expand-entity-references", DOMNodeIteratorExpandEntityReferencesPropertyInfo), '("filter", DOMNodeIteratorFilterPropertyInfo), '("pointer-before-reference-node", DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo), '("reference-node", DOMNodeIteratorReferenceNodePropertyInfo), '("root", DOMNodeIteratorRootPropertyInfo), '("what-to-show", DOMNodeIteratorWhatToShowPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMNodeIterator = DOMNodeIteratorSignalList
type DOMNodeIteratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_node_iterator_detach" webkit_dom_node_iterator_detach ::
Ptr DOMNodeIterator ->
IO ()
dOMNodeIteratorDetach ::
(MonadIO m, DOMNodeIteratorK a) =>
a ->
m ()
dOMNodeIteratorDetach _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_node_iterator_detach _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_node_iterator_get_expand_entity_references" webkit_dom_node_iterator_get_expand_entity_references ::
Ptr DOMNodeIterator ->
IO CInt
dOMNodeIteratorGetExpandEntityReferences ::
(MonadIO m, DOMNodeIteratorK a) =>
a ->
m Bool
dOMNodeIteratorGetExpandEntityReferences _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_iterator_get_expand_entity_references _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_node_iterator_get_filter" webkit_dom_node_iterator_get_filter ::
Ptr DOMNodeIterator ->
IO (Ptr DOMNodeFilter)
dOMNodeIteratorGetFilter ::
(MonadIO m, DOMNodeIteratorK a) =>
a ->
m DOMNodeFilter
dOMNodeIteratorGetFilter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_iterator_get_filter _obj'
checkUnexpectedReturnNULL "webkit_dom_node_iterator_get_filter" result
result' <- (wrapObject DOMNodeFilter) result
touchManagedPtr _obj
return result'
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
dOMNodeIteratorGetPointerBeforeReferenceNode ::
(MonadIO m, DOMNodeIteratorK a) =>
a ->
m Bool
dOMNodeIteratorGetPointerBeforeReferenceNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_iterator_get_pointer_before_reference_node _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_node_iterator_get_reference_node" webkit_dom_node_iterator_get_reference_node ::
Ptr DOMNodeIterator ->
IO (Ptr DOMNode)
dOMNodeIteratorGetReferenceNode ::
(MonadIO m, DOMNodeIteratorK a) =>
a ->
m DOMNode
dOMNodeIteratorGetReferenceNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_iterator_get_reference_node _obj'
checkUnexpectedReturnNULL "webkit_dom_node_iterator_get_reference_node" result
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_node_iterator_get_root" webkit_dom_node_iterator_get_root ::
Ptr DOMNodeIterator ->
IO (Ptr DOMNode)
dOMNodeIteratorGetRoot ::
(MonadIO m, DOMNodeIteratorK a) =>
a ->
m DOMNode
dOMNodeIteratorGetRoot _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_iterator_get_root _obj'
checkUnexpectedReturnNULL "webkit_dom_node_iterator_get_root" result
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_node_iterator_get_what_to_show" webkit_dom_node_iterator_get_what_to_show ::
Ptr DOMNodeIterator ->
IO Word64
dOMNodeIteratorGetWhatToShow ::
(MonadIO m, DOMNodeIteratorK a) =>
a ->
m Word64
dOMNodeIteratorGetWhatToShow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_iterator_get_what_to_show _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_node_iterator_next_node" webkit_dom_node_iterator_next_node ::
Ptr DOMNodeIterator ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
dOMNodeIteratorNextNode ::
(MonadIO m, DOMNodeIteratorK a) =>
a ->
m DOMNode
dOMNodeIteratorNextNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_node_iterator_next_node _obj'
checkUnexpectedReturnNULL "webkit_dom_node_iterator_next_node" result
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
) (do
return ()
)
foreign import ccall "webkit_dom_node_iterator_previous_node" webkit_dom_node_iterator_previous_node ::
Ptr DOMNodeIterator ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
dOMNodeIteratorPreviousNode ::
(MonadIO m, DOMNodeIteratorK a) =>
a ->
m DOMNode
dOMNodeIteratorPreviousNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_node_iterator_previous_node _obj'
checkUnexpectedReturnNULL "webkit_dom_node_iterator_previous_node" result
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
) (do
return ()
)