{-# LANGUAGE CPP #-}
#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
module GHCJS.DOM.XPathExpression
       (ghcjs_dom_xpath_expression_evaluate, xPathExpressionEvaluate)
       where
import GHCJS.Types
import GHCJS.Foreign
import Data.Word
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventM
import GHCJS.Types
import GHCJS.Foreign
import Data.Word
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventM



#ifdef __GHCJS__ 
foreign import javascript unsafe "$1[\"evaluate\"]($2, $3, $4)"
        ghcjs_dom_xpath_expression_evaluate ::
        JSRef XPathExpression ->
          JSRef Node -> Word -> JSRef XPathResult -> IO (JSRef XPathResult)
#else 
ghcjs_dom_xpath_expression_evaluate ::
                                      JSRef XPathExpression ->
                                        JSRef Node ->
                                          Word -> JSRef XPathResult -> IO (JSRef XPathResult)
ghcjs_dom_xpath_expression_evaluate = undefined
#endif
 
xPathExpressionEvaluate ::
                        (IsXPathExpression self, IsNode contextNode,
                         IsXPathResult inResult) =>
                          self ->
                            Maybe contextNode ->
                              Word -> Maybe inResult -> IO (Maybe XPathResult)
xPathExpressionEvaluate self contextNode type' inResult
  = fmap XPathResult . maybeJSNull <$>
      (ghcjs_dom_xpath_expression_evaluate
         (unXPathExpression (toXPathExpression self))
         (maybe jsNull (unNode . toNode) contextNode)
         type'
         (maybe jsNull (unXPathResult . toXPathResult) inResult))
#else
module GHCJS.DOM.XPathExpression (
  module Graphics.UI.Gtk.WebKit.DOM.XPathExpression
  ) where
import Graphics.UI.Gtk.WebKit.DOM.XPathExpression
#endif