#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
#endif
module Language.Javascript.JSaddle.Evaluate (
evaluateScript
, eval
) where
import Control.Monad.Trans.Reader (ask)
import Control.Monad.IO.Class (MonadIO(..))
import Language.Javascript.JSaddle.Types
(JSStringRef, JSValueRef, JSObjectRef,
JSValueRefRef)
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
import GHCJS.Types (nullRef)
#else
import Graphics.UI.Gtk.WebKit.JavaScriptCore.JSBase
(jsevaluatescript)
import Foreign (nullPtr)
#endif
import Language.Javascript.JSaddle.Exception (rethrow)
import Language.Javascript.JSaddle.Value ()
import Language.Javascript.JSaddle.Object ()
import Language.Javascript.JSaddle.Classes
(MakeObjectRef(..), MakeStringRef(..))
import Language.Javascript.JSaddle.Monad (JSM)
evaluateScript :: (MakeStringRef script, MakeObjectRef this, MakeStringRef url)
=> script
-> this
-> url
-> Int
-> JSM JSValueRef
#if defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)
evaluateScript script this url line = liftIO $ js_eval (makeStringRef script)
foreign import javascript unsafe "$r = eval($1);"
js_eval :: JSStringRef -> IO JSValueRef
#elif defined(USE_WEBKIT)
evaluateScript script this url line = do
gctxt <- ask
thisr <- makeObjectRef this
rethrow $ liftIO . jsevaluatescript gctxt (makeStringRef script) thisr (makeStringRef url) line
#else
evaluateScript = undefined
#endif
eval :: MakeStringRef script
=> script
-> JSM JSValueRef
#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
eval script = evaluateScript script (nullRef::JSObjectRef) (nullRef::JSStringRef) 1
#else
eval script = evaluateScript script (nullPtr::JSObjectRef) (nullPtr::JSStringRef) 1
#endif