#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
#endif
module Language.Javascript.JSC.Evaluate (
evaluateScript
, eval
) where
import Control.Monad.Trans.Reader (ask)
import Control.Monad.IO.Class (MonadIO(..))
import Language.Javascript.JSC.Types
(JSStringRef, JSValueRef, JSObjectRef,
JSValueRefRef)
#if (defined(__GHCJS__) && 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.JSC.Exception (rethrow)
import Language.Javascript.JSC.Value ()
import Language.Javascript.JSC.Object ()
import Language.Javascript.JSC.Classes
(MakeObjectRef(..), MakeStringRef(..))
import Language.Javascript.JSC.Monad (JSC)
evaluateScript :: (MakeStringRef script, MakeObjectRef this, MakeStringRef url)
=> script
-> this
-> url
-> Int
-> JSC JSValueRef
#if defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)
evaluateScript script this url line = liftIO $ js_eval (makeStringRef script)
foreign import javascript unsafe "$r = eval(s);"
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
-> JSC JSValueRef
#if (defined(__GHCJS__) && 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