{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.TreeWalker (js_parentNode, parentNode, js_firstChild, firstChild, js_lastChild, lastChild, js_previousSibling, previousSibling, js_nextSibling, nextSibling, js_previousNode, previousNode, js_nextNode, nextNode, js_getRoot, getRoot, js_getWhatToShow, getWhatToShow, js_getFilter, getFilter, js_getExpandEntityReferences, getExpandEntityReferences, js_setCurrentNode, setCurrentNode, js_getCurrentNode, getCurrentNode, TreeWalker, castToTreeWalker, gTypeTreeWalker) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"parentNode\"]()" js_parentNode :: JSRef TreeWalker -> IO (JSRef Node) -- | parentNode :: (MonadIO m) => TreeWalker -> m (Maybe Node) parentNode self = liftIO ((js_parentNode (unTreeWalker self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"firstChild\"]()" js_firstChild :: JSRef TreeWalker -> IO (JSRef Node) -- | firstChild :: (MonadIO m) => TreeWalker -> m (Maybe Node) firstChild self = liftIO ((js_firstChild (unTreeWalker self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"lastChild\"]()" js_lastChild :: JSRef TreeWalker -> IO (JSRef Node) -- | lastChild :: (MonadIO m) => TreeWalker -> m (Maybe Node) lastChild self = liftIO ((js_lastChild (unTreeWalker self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"previousSibling\"]()" js_previousSibling :: JSRef TreeWalker -> IO (JSRef Node) -- | previousSibling :: (MonadIO m) => TreeWalker -> m (Maybe Node) previousSibling self = liftIO ((js_previousSibling (unTreeWalker self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"nextSibling\"]()" js_nextSibling :: JSRef TreeWalker -> IO (JSRef Node) -- | nextSibling :: (MonadIO m) => TreeWalker -> m (Maybe Node) nextSibling self = liftIO ((js_nextSibling (unTreeWalker self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"previousNode\"]()" js_previousNode :: JSRef TreeWalker -> IO (JSRef Node) -- | previousNode :: (MonadIO m) => TreeWalker -> m (Maybe Node) previousNode self = liftIO ((js_previousNode (unTreeWalker self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"nextNode\"]()" js_nextNode :: JSRef TreeWalker -> IO (JSRef Node) -- | nextNode :: (MonadIO m) => TreeWalker -> m (Maybe Node) nextNode self = liftIO ((js_nextNode (unTreeWalker self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"root\"]" js_getRoot :: JSRef TreeWalker -> IO (JSRef Node) -- | getRoot :: (MonadIO m) => TreeWalker -> m (Maybe Node) getRoot self = liftIO ((js_getRoot (unTreeWalker self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"whatToShow\"]" js_getWhatToShow :: JSRef TreeWalker -> IO Word -- | getWhatToShow :: (MonadIO m) => TreeWalker -> m Word getWhatToShow self = liftIO (js_getWhatToShow (unTreeWalker self)) foreign import javascript unsafe "$1[\"filter\"]" js_getFilter :: JSRef TreeWalker -> IO (JSRef NodeFilter) -- | getFilter :: (MonadIO m) => TreeWalker -> m (Maybe NodeFilter) getFilter self = liftIO ((js_getFilter (unTreeWalker self)) >>= fromJSRef) foreign import javascript unsafe "($1[\"expandEntityReferences\"] ? 1 : 0)" js_getExpandEntityReferences :: JSRef TreeWalker -> IO Bool -- | getExpandEntityReferences :: (MonadIO m) => TreeWalker -> m Bool getExpandEntityReferences self = liftIO (js_getExpandEntityReferences (unTreeWalker self)) foreign import javascript unsafe "$1[\"currentNode\"] = $2;" js_setCurrentNode :: JSRef TreeWalker -> JSRef Node -> IO () -- | setCurrentNode :: (MonadIO m, IsNode val) => TreeWalker -> Maybe val -> m () setCurrentNode self val = liftIO (js_setCurrentNode (unTreeWalker self) (maybe jsNull (unNode . toNode) val)) foreign import javascript unsafe "$1[\"currentNode\"]" js_getCurrentNode :: JSRef TreeWalker -> IO (JSRef Node) -- | getCurrentNode :: (MonadIO m) => TreeWalker -> m (Maybe Node) getCurrentNode self = liftIO ((js_getCurrentNode (unTreeWalker self)) >>= fromJSRef)