{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Structs.JavascriptResult
(
JavascriptResult(..) ,
noJavascriptResult ,
#if defined(ENABLE_OVERLOADING)
ResolveJavascriptResultMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
JavascriptResultGetJsValueMethodInfo ,
#endif
javascriptResultGetJsValue ,
#if defined(ENABLE_OVERLOADING)
JavascriptResultRefMethodInfo ,
#endif
javascriptResultRef ,
#if defined(ENABLE_OVERLOADING)
JavascriptResultUnrefMethodInfo ,
#endif
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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
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 GHC.OverloadedLabels as OL
import qualified GI.JavaScriptCore.Objects.Value as JavaScriptCore.Value
newtype JavascriptResult = JavascriptResult (ManagedPtr JavascriptResult)
deriving (JavascriptResult -> JavascriptResult -> Bool
(JavascriptResult -> JavascriptResult -> Bool)
-> (JavascriptResult -> JavascriptResult -> Bool)
-> Eq JavascriptResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: JavascriptResult -> JavascriptResult -> Bool
$c/= :: JavascriptResult -> JavascriptResult -> Bool
== :: JavascriptResult -> JavascriptResult -> Bool
$c== :: JavascriptResult -> JavascriptResult -> Bool
Eq)
foreign import ccall "webkit_javascript_result_get_type" c_webkit_javascript_result_get_type ::
IO GType
instance BoxedObject JavascriptResult where
boxedType :: JavascriptResult -> IO GType
boxedType _ = IO GType
c_webkit_javascript_result_get_type
instance B.GValue.IsGValue JavascriptResult where
toGValue :: JavascriptResult -> IO GValue
toGValue o :: JavascriptResult
o = do
GType
gtype <- IO GType
c_webkit_javascript_result_get_type
JavascriptResult
-> (Ptr JavascriptResult -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr JavascriptResult
o (GType
-> (GValue -> Ptr JavascriptResult -> IO ())
-> Ptr JavascriptResult
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr JavascriptResult -> IO ()
forall a. GValue -> Ptr a -> IO ()
B.GValue.set_boxed)
fromGValue :: GValue -> IO JavascriptResult
fromGValue gv :: GValue
gv = do
Ptr JavascriptResult
ptr <- GValue -> IO (Ptr JavascriptResult)
forall b. GValue -> IO (Ptr b)
B.GValue.get_boxed GValue
gv :: IO (Ptr JavascriptResult)
(ManagedPtr JavascriptResult -> JavascriptResult)
-> Ptr JavascriptResult -> IO JavascriptResult
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr JavascriptResult -> JavascriptResult
JavascriptResult Ptr JavascriptResult
ptr
noJavascriptResult :: Maybe JavascriptResult
noJavascriptResult :: Maybe JavascriptResult
noJavascriptResult = Maybe JavascriptResult
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList JavascriptResult
type instance O.AttributeList JavascriptResult = JavascriptResultAttributeList
type JavascriptResultAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_javascript_result_get_js_value" webkit_javascript_result_get_js_value ::
Ptr JavascriptResult ->
IO (Ptr JavaScriptCore.Value.Value)
javascriptResultGetJsValue ::
(B.CallStack.HasCallStack, MonadIO m) =>
JavascriptResult
-> m JavaScriptCore.Value.Value
javascriptResultGetJsValue :: JavascriptResult -> m Value
javascriptResultGetJsValue jsResult :: JavascriptResult
jsResult = IO Value -> m Value
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Value -> m Value) -> IO Value -> m Value
forall a b. (a -> b) -> a -> b
$ do
Ptr JavascriptResult
jsResult' <- JavascriptResult -> IO (Ptr JavascriptResult)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr JavascriptResult
jsResult
Ptr Value
result <- Ptr JavascriptResult -> IO (Ptr Value)
webkit_javascript_result_get_js_value Ptr JavascriptResult
jsResult'
Text -> Ptr Value -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "javascriptResultGetJsValue" Ptr Value
result
Value
result' <- ((ManagedPtr Value -> Value) -> Ptr Value -> IO Value
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Value -> Value
JavaScriptCore.Value.Value) Ptr Value
result
JavascriptResult -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr JavascriptResult
jsResult
Value -> IO Value
forall (m :: * -> *) a. Monad m => a -> m a
return Value
result'
#if defined(ENABLE_OVERLOADING)
data JavascriptResultGetJsValueMethodInfo
instance (signature ~ (m JavaScriptCore.Value.Value), MonadIO m) => O.MethodInfo JavascriptResultGetJsValueMethodInfo JavascriptResult signature where
overloadedMethod = javascriptResultGetJsValue
#endif
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 :: JavascriptResult -> m JavascriptResult
javascriptResultRef jsResult :: JavascriptResult
jsResult = IO JavascriptResult -> m JavascriptResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO JavascriptResult -> m JavascriptResult)
-> IO JavascriptResult -> m JavascriptResult
forall a b. (a -> b) -> a -> b
$ do
Ptr JavascriptResult
jsResult' <- JavascriptResult -> IO (Ptr JavascriptResult)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr JavascriptResult
jsResult
Ptr JavascriptResult
result <- Ptr JavascriptResult -> IO (Ptr JavascriptResult)
webkit_javascript_result_ref Ptr JavascriptResult
jsResult'
Text -> Ptr JavascriptResult -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "javascriptResultRef" Ptr JavascriptResult
result
JavascriptResult
result' <- ((ManagedPtr JavascriptResult -> JavascriptResult)
-> Ptr JavascriptResult -> IO JavascriptResult
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr JavascriptResult -> JavascriptResult
JavascriptResult) Ptr JavascriptResult
result
JavascriptResult -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr JavascriptResult
jsResult
JavascriptResult -> IO JavascriptResult
forall (m :: * -> *) a. Monad m => a -> m a
return JavascriptResult
result'
#if defined(ENABLE_OVERLOADING)
data JavascriptResultRefMethodInfo
instance (signature ~ (m JavascriptResult), MonadIO m) => O.MethodInfo JavascriptResultRefMethodInfo JavascriptResult signature where
overloadedMethod = javascriptResultRef
#endif
foreign import ccall "webkit_javascript_result_unref" webkit_javascript_result_unref ::
Ptr JavascriptResult ->
IO ()
javascriptResultUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
JavascriptResult
-> m ()
javascriptResultUnref :: JavascriptResult -> m ()
javascriptResultUnref jsResult :: JavascriptResult
jsResult = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr JavascriptResult
jsResult' <- JavascriptResult -> IO (Ptr JavascriptResult)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr JavascriptResult
jsResult
Ptr JavascriptResult -> IO ()
webkit_javascript_result_unref Ptr JavascriptResult
jsResult'
JavascriptResult -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr JavascriptResult
jsResult
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data JavascriptResultUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo JavascriptResultUnrefMethodInfo JavascriptResult signature where
overloadedMethod = javascriptResultUnref
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveJavascriptResultMethod (t :: Symbol) (o :: *) :: * where
ResolveJavascriptResultMethod "ref" o = JavascriptResultRefMethodInfo
ResolveJavascriptResultMethod "unref" o = JavascriptResultUnrefMethodInfo
ResolveJavascriptResultMethod "getJsValue" o = JavascriptResultGetJsValueMethodInfo
ResolveJavascriptResultMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, O.MethodInfo info JavascriptResult p) => OL.IsLabel t (JavascriptResult -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif