{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NodeIterator (js_nextNode, nextNode, nextNode_, nextNodeUnsafe, nextNodeUnchecked, js_previousNode, previousNode, previousNode_, previousNodeUnsafe, previousNodeUnchecked, js_detach, detach, js_getRoot, getRoot, getRootUnsafe, getRootUnchecked, js_getWhatToShow, getWhatToShow, js_getFilter, getFilter, getFilterUnsafe, getFilterUnchecked, js_getExpandEntityReferences, getExpandEntityReferences, js_getReferenceNode, getReferenceNode, getReferenceNodeUnsafe, getReferenceNodeUnchecked, js_getPointerBeforeReferenceNode, getPointerBeforeReferenceNode, NodeIterator(..), gTypeNodeIterator) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"nextNode\"]()" js_nextNode :: NodeIterator -> IO (Nullable Node) -- | nextNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) nextNode self = liftIO (nullableToMaybe <$> (js_nextNode (self))) -- | nextNode_ :: (MonadIO m) => NodeIterator -> m () nextNode_ self = liftIO (void (js_nextNode (self))) -- | nextNodeUnsafe :: (MonadIO m, HasCallStack) => NodeIterator -> m Node nextNodeUnsafe self = liftIO ((nullableToMaybe <$> (js_nextNode (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | nextNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node nextNodeUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_nextNode (self))) foreign import javascript unsafe "$1[\"previousNode\"]()" js_previousNode :: NodeIterator -> IO (Nullable Node) -- | previousNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) previousNode self = liftIO (nullableToMaybe <$> (js_previousNode (self))) -- | previousNode_ :: (MonadIO m) => NodeIterator -> m () previousNode_ self = liftIO (void (js_previousNode (self))) -- | previousNodeUnsafe :: (MonadIO m, HasCallStack) => NodeIterator -> m Node previousNodeUnsafe self = liftIO ((nullableToMaybe <$> (js_previousNode (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | previousNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node previousNodeUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_previousNode (self))) foreign import javascript unsafe "$1[\"detach\"]()" js_detach :: NodeIterator -> IO () -- | detach :: (MonadIO m) => NodeIterator -> m () detach self = liftIO (js_detach (self)) foreign import javascript unsafe "$1[\"root\"]" js_getRoot :: NodeIterator -> IO (Nullable Node) -- | getRoot :: (MonadIO m) => NodeIterator -> m (Maybe Node) getRoot self = liftIO (nullableToMaybe <$> (js_getRoot (self))) -- | getRootUnsafe :: (MonadIO m, HasCallStack) => NodeIterator -> m Node getRootUnsafe self = liftIO ((nullableToMaybe <$> (js_getRoot (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getRootUnchecked :: (MonadIO m) => NodeIterator -> m Node getRootUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getRoot (self))) foreign import javascript unsafe "$1[\"whatToShow\"]" js_getWhatToShow :: NodeIterator -> IO Word -- | getWhatToShow :: (MonadIO m) => NodeIterator -> m Word getWhatToShow self = liftIO (js_getWhatToShow (self)) foreign import javascript unsafe "$1[\"filter\"]" js_getFilter :: NodeIterator -> IO (Nullable NodeFilter) -- | getFilter :: (MonadIO m) => NodeIterator -> m (Maybe NodeFilter) getFilter self = liftIO (nullableToMaybe <$> (js_getFilter (self))) -- | getFilterUnsafe :: (MonadIO m, HasCallStack) => NodeIterator -> m NodeFilter getFilterUnsafe self = liftIO ((nullableToMaybe <$> (js_getFilter (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getFilterUnchecked :: (MonadIO m) => NodeIterator -> m NodeFilter getFilterUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getFilter (self))) foreign import javascript unsafe "($1[\"expandEntityReferences\"] ? 1 : 0)" js_getExpandEntityReferences :: NodeIterator -> IO Bool -- | getExpandEntityReferences :: (MonadIO m) => NodeIterator -> m Bool getExpandEntityReferences self = liftIO (js_getExpandEntityReferences (self)) foreign import javascript unsafe "$1[\"referenceNode\"]" js_getReferenceNode :: NodeIterator -> IO (Nullable Node) -- | getReferenceNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) getReferenceNode self = liftIO (nullableToMaybe <$> (js_getReferenceNode (self))) -- | getReferenceNodeUnsafe :: (MonadIO m, HasCallStack) => NodeIterator -> m Node getReferenceNodeUnsafe self = liftIO ((nullableToMaybe <$> (js_getReferenceNode (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getReferenceNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node getReferenceNodeUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getReferenceNode (self))) foreign import javascript unsafe "($1[\"pointerBeforeReferenceNode\"] ? 1 : 0)" js_getPointerBeforeReferenceNode :: NodeIterator -> IO Bool -- | getPointerBeforeReferenceNode :: (MonadIO m) => NodeIterator -> m Bool getPointerBeforeReferenceNode self = liftIO (js_getPointerBeforeReferenceNode (self))