{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Structs.JavascriptResult
(
JavascriptResult(..) ,
#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.BasicTypes as B.Types
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 Control.Monad.IO.Class as MIO
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 (SP.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)
instance SP.ManagedPtrNewtype JavascriptResult where
toManagedPtr :: JavascriptResult -> ManagedPtr JavascriptResult
toManagedPtr (JavascriptResult ManagedPtr JavascriptResult
p) = ManagedPtr JavascriptResult
p
foreign import ccall "webkit_javascript_result_get_type" c_webkit_javascript_result_get_type ::
IO GType
type instance O.ParentTypes JavascriptResult = '[]
instance O.HasParentTypes JavascriptResult
instance B.Types.TypedObject JavascriptResult where
glibType :: IO GType
glibType = IO GType
c_webkit_javascript_result_get_type
instance B.Types.GBoxed JavascriptResult
instance B.GValue.IsGValue JavascriptResult where
toGValue :: JavascriptResult -> IO GValue
toGValue 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 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, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr JavascriptResult -> JavascriptResult
JavascriptResult Ptr JavascriptResult
ptr
#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 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 Text
"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 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 Text
"javascriptResultRef" Ptr JavascriptResult
result
JavascriptResult
result' <- ((ManagedPtr JavascriptResult -> JavascriptResult)
-> Ptr JavascriptResult -> IO JavascriptResult
forall a.
(HasCallStack, GBoxed 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 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