module JSDOM.Generated.XPathResult
(iterateNext, iterateNext_, iterateNextUnsafe,
iterateNextUnchecked, snapshotItem, snapshotItem_,
snapshotItemUnsafe, snapshotItemUnchecked, pattern ANY_TYPE,
pattern NUMBER_TYPE, pattern STRING_TYPE, pattern BOOLEAN_TYPE,
pattern UNORDERED_NODE_ITERATOR_TYPE,
pattern ORDERED_NODE_ITERATOR_TYPE,
pattern UNORDERED_NODE_SNAPSHOT_TYPE,
pattern ORDERED_NODE_SNAPSHOT_TYPE,
pattern ANY_UNORDERED_NODE_TYPE, pattern FIRST_ORDERED_NODE_TYPE,
getResultType, getNumberValue, getStringValue, getBooleanValue,
getSingleNodeValue, getSingleNodeValueUnsafe,
getSingleNodeValueUnchecked, getInvalidIteratorState,
getSnapshotLength, XPathResult(..), gTypeXPathResult)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
iterateNext :: (MonadDOM m) => XPathResult -> m (Maybe Node)
iterateNext self
= liftDOM ((self ^. jsf "iterateNext" ()) >>= fromJSVal)
iterateNext_ :: (MonadDOM m) => XPathResult -> m ()
iterateNext_ self = liftDOM (void (self ^. jsf "iterateNext" ()))
iterateNextUnsafe ::
(MonadDOM m, HasCallStack) => XPathResult -> m Node
iterateNextUnsafe self
= liftDOM
(((self ^. jsf "iterateNext" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
iterateNextUnchecked :: (MonadDOM m) => XPathResult -> m Node
iterateNextUnchecked self
= liftDOM ((self ^. jsf "iterateNext" ()) >>= fromJSValUnchecked)
snapshotItem ::
(MonadDOM m) => XPathResult -> Word -> m (Maybe Node)
snapshotItem self index
= liftDOM
((self ^. jsf "snapshotItem" [toJSVal index]) >>= fromJSVal)
snapshotItem_ :: (MonadDOM m) => XPathResult -> Word -> m ()
snapshotItem_ self index
= liftDOM (void (self ^. jsf "snapshotItem" [toJSVal index]))
snapshotItemUnsafe ::
(MonadDOM m, HasCallStack) => XPathResult -> Word -> m Node
snapshotItemUnsafe self index
= liftDOM
(((self ^. jsf "snapshotItem" [toJSVal index]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
snapshotItemUnchecked ::
(MonadDOM m) => XPathResult -> Word -> m Node
snapshotItemUnchecked self index
= liftDOM
((self ^. jsf "snapshotItem" [toJSVal index]) >>=
fromJSValUnchecked)
pattern ANY_TYPE = 0
pattern NUMBER_TYPE = 1
pattern STRING_TYPE = 2
pattern BOOLEAN_TYPE = 3
pattern UNORDERED_NODE_ITERATOR_TYPE = 4
pattern ORDERED_NODE_ITERATOR_TYPE = 5
pattern UNORDERED_NODE_SNAPSHOT_TYPE = 6
pattern ORDERED_NODE_SNAPSHOT_TYPE = 7
pattern ANY_UNORDERED_NODE_TYPE = 8
pattern FIRST_ORDERED_NODE_TYPE = 9
getResultType :: (MonadDOM m) => XPathResult -> m Word
getResultType self
= liftDOM (round <$> ((self ^. js "resultType") >>= valToNumber))
getNumberValue :: (MonadDOM m) => XPathResult -> m Double
getNumberValue self
= liftDOM ((self ^. js "numberValue") >>= valToNumber)
getStringValue ::
(MonadDOM m, FromJSString result) => XPathResult -> m result
getStringValue self
= liftDOM ((self ^. js "stringValue") >>= fromJSValUnchecked)
getBooleanValue :: (MonadDOM m) => XPathResult -> m Bool
getBooleanValue self
= liftDOM ((self ^. js "booleanValue") >>= valToBool)
getSingleNodeValue :: (MonadDOM m) => XPathResult -> m (Maybe Node)
getSingleNodeValue self
= liftDOM ((self ^. js "singleNodeValue") >>= fromJSVal)
getSingleNodeValueUnsafe ::
(MonadDOM m, HasCallStack) => XPathResult -> m Node
getSingleNodeValueUnsafe self
= liftDOM
(((self ^. js "singleNodeValue") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getSingleNodeValueUnchecked ::
(MonadDOM m) => XPathResult -> m Node
getSingleNodeValueUnchecked self
= liftDOM ((self ^. js "singleNodeValue") >>= fromJSValUnchecked)
getInvalidIteratorState :: (MonadDOM m) => XPathResult -> m Bool
getInvalidIteratorState self
= liftDOM ((self ^. js "invalidIteratorState") >>= valToBool)
getSnapshotLength :: (MonadDOM m) => XPathResult -> m Word
getSnapshotLength self
= liftDOM
(round <$> ((self ^. js "snapshotLength") >>= valToNumber))