module GI.WebKit2.Structs.JavascriptResult
(
JavascriptResult(..) ,
noJavascriptResult ,
JavascriptResultGetGlobalContextMethodInfo,
javascriptResultGetGlobalContext ,
JavascriptResultGetValueMethodInfo ,
javascriptResultGetValue ,
JavascriptResultRefMethodInfo ,
javascriptResultRef ,
JavascriptResultUnrefMethodInfo ,
javascriptResultUnref ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.JavaScriptCore.Structs.GlobalContext as JavaScriptCore.GlobalContext
import qualified GI.JavaScriptCore.Structs.Value as JavaScriptCore.Value
newtype JavascriptResult = JavascriptResult (ManagedPtr JavascriptResult)
foreign import ccall "webkit_javascript_result_get_type" c_webkit_javascript_result_get_type ::
IO GType
instance BoxedObject JavascriptResult where
boxedType _ = c_webkit_javascript_result_get_type
noJavascriptResult :: Maybe JavascriptResult
noJavascriptResult = Nothing
instance O.HasAttributeList JavascriptResult
type instance O.AttributeList JavascriptResult = JavascriptResultAttributeList
type JavascriptResultAttributeList = ('[ ] :: [(Symbol, *)])
foreign import ccall "webkit_javascript_result_get_global_context" webkit_javascript_result_get_global_context ::
Ptr JavascriptResult ->
IO (Ptr JavaScriptCore.GlobalContext.GlobalContext)
javascriptResultGetGlobalContext ::
(B.CallStack.HasCallStack, MonadIO m) =>
JavascriptResult
-> m JavaScriptCore.GlobalContext.GlobalContext
javascriptResultGetGlobalContext jsResult = liftIO $ do
jsResult' <- unsafeManagedPtrGetPtr jsResult
result <- webkit_javascript_result_get_global_context jsResult'
checkUnexpectedReturnNULL "javascriptResultGetGlobalContext" result
result' <- (wrapPtr JavaScriptCore.GlobalContext.GlobalContext) result
touchManagedPtr jsResult
return result'
data JavascriptResultGetGlobalContextMethodInfo
instance (signature ~ (m JavaScriptCore.GlobalContext.GlobalContext), MonadIO m) => O.MethodInfo JavascriptResultGetGlobalContextMethodInfo JavascriptResult signature where
overloadedMethod _ = javascriptResultGetGlobalContext
foreign import ccall "webkit_javascript_result_get_value" webkit_javascript_result_get_value ::
Ptr JavascriptResult ->
IO (Ptr JavaScriptCore.Value.Value)
javascriptResultGetValue ::
(B.CallStack.HasCallStack, MonadIO m) =>
JavascriptResult
-> m JavaScriptCore.Value.Value
javascriptResultGetValue jsResult = liftIO $ do
jsResult' <- unsafeManagedPtrGetPtr jsResult
result <- webkit_javascript_result_get_value jsResult'
checkUnexpectedReturnNULL "javascriptResultGetValue" result
result' <- (wrapPtr JavaScriptCore.Value.Value) result
touchManagedPtr jsResult
return result'
data JavascriptResultGetValueMethodInfo
instance (signature ~ (m JavaScriptCore.Value.Value), MonadIO m) => O.MethodInfo JavascriptResultGetValueMethodInfo JavascriptResult signature where
overloadedMethod _ = javascriptResultGetValue
foreign import ccall "webkit_javascript_result_ref" webkit_javascript_result_ref ::
Ptr JavascriptResult ->
IO (Ptr JavascriptResult)
javascriptResultRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
JavascriptResult
-> m JavascriptResult
javascriptResultRef jsResult = liftIO $ do
jsResult' <- unsafeManagedPtrGetPtr jsResult
result <- webkit_javascript_result_ref jsResult'
checkUnexpectedReturnNULL "javascriptResultRef" result
result' <- (wrapBoxed JavascriptResult) result
touchManagedPtr jsResult
return result'
data JavascriptResultRefMethodInfo
instance (signature ~ (m JavascriptResult), MonadIO m) => O.MethodInfo JavascriptResultRefMethodInfo JavascriptResult signature where
overloadedMethod _ = javascriptResultRef
foreign import ccall "webkit_javascript_result_unref" webkit_javascript_result_unref ::
Ptr JavascriptResult ->
IO ()
javascriptResultUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
JavascriptResult
-> m ()
javascriptResultUnref jsResult = liftIO $ do
jsResult' <- unsafeManagedPtrGetPtr jsResult
webkit_javascript_result_unref jsResult'
touchManagedPtr jsResult
return ()
data JavascriptResultUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo JavascriptResultUnrefMethodInfo JavascriptResult signature where
overloadedMethod _ = javascriptResultUnref
type family ResolveJavascriptResultMethod (t :: Symbol) (o :: *) :: * where
ResolveJavascriptResultMethod "ref" o = JavascriptResultRefMethodInfo
ResolveJavascriptResultMethod "unref" o = JavascriptResultUnrefMethodInfo
ResolveJavascriptResultMethod "getGlobalContext" o = JavascriptResultGetGlobalContextMethodInfo
ResolveJavascriptResultMethod "getValue" o = JavascriptResultGetValueMethodInfo
ResolveJavascriptResultMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, O.MethodInfo info JavascriptResult p) => O.IsLabelProxy t (JavascriptResult -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, O.MethodInfo info JavascriptResult p) => O.IsLabel t (JavascriptResult -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif