module Graphics.UI.Gtk.WebKit.JavaScriptCore.JSBase where
import Foreign.Ptr
import Foreign.C.Types
import Debug.Trace
getBool :: CUChar -> Bool
getBool n | n == 1 = True
| otherwise = False
setBool :: Bool -> CUChar
setBool True = 1
setBool False = 0
data OpaqueJSContextGroup
type JSContextGroupRef = Ptr (OpaqueJSContextGroup)
data OpaqueJSContext
type JSContextRef = Ptr (OpaqueJSContext)
type JSGlobalContextRef = Ptr (OpaqueJSContext)
data OpaqueJSString
type JSStringRef = Ptr (OpaqueJSString)
data OpaqueJSClass
type JSClassRef = Ptr (OpaqueJSClass)
data OpaqueJSPropertyNameArray
type JSPropertyNameArrayRef = Ptr (OpaqueJSPropertyNameArray)
data OpaqueJSPropertyNameAccumulator
type JSPropertyNameAccumulatorRef = Ptr (OpaqueJSPropertyNameAccumulator)
data OpaqueJSValue
type JSValueRef = Ptr (OpaqueJSValue)
type JSObjectRef = Ptr (OpaqueJSValue)
type JSValueRefRef = Ptr (JSValueRef)
type JSStringRefRef = Ptr (JSStringRef)
jsevaluatescript :: JSContextRef -> JSStringRef -> JSObjectRef -> JSStringRef -> Int -> JSValueRefRef -> IO (JSValueRef)
jsevaluatescript a1 a2 a3 a4 a5 a6 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = id a4} in
let {a5' = fromIntegral a5} in
let {a6' = id a6} in
jsevaluatescript'_ a1' a2' a3' a4' a5' a6' >>= \res ->
let {res' = id res} in
return (res')
jscheckscriptsyntax :: JSContextRef -> JSStringRef -> JSStringRef -> Int -> JSValueRefRef -> IO (Bool)
jscheckscriptsyntax a1 a2 a3 a4 a5 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = fromIntegral a4} in
let {a5' = id a5} in
jscheckscriptsyntax'_ a1' a2' a3' a4' a5' >>= \res ->
let {res' = getBool res} in
return (res')
jsgarbagecollect :: JSContextRef -> IO ()
jsgarbagecollect a1 =
let {a1' = id a1} in
jsgarbagecollect'_ a1' >>= \res ->
return ()
foreign import ccall safe "JSEvaluateScript"
jsevaluatescript'_ :: ((Ptr OpaqueJSContext) -> ((Ptr OpaqueJSString) -> ((Ptr OpaqueJSValue) -> ((Ptr OpaqueJSString) -> (CInt -> ((Ptr JSValueRef) -> (IO (Ptr OpaqueJSValue))))))))
foreign import ccall safe "JSCheckScriptSyntax"
jscheckscriptsyntax'_ :: ((Ptr OpaqueJSContext) -> ((Ptr OpaqueJSString) -> ((Ptr OpaqueJSString) -> (CInt -> ((Ptr JSValueRef) -> (IO CUChar))))))
foreign import ccall safe "JSGarbageCollect"
jsgarbagecollect'_ :: ((Ptr OpaqueJSContext) -> (IO ()))