{-# 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.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.Coerce as Coerce
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 GHC.Records as R
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
$c== :: JavascriptResult -> JavascriptResult -> Bool
== :: JavascriptResult -> JavascriptResult -> Bool
$c/= :: JavascriptResult -> JavascriptResult -> Bool
/= :: 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 (Maybe JavascriptResult) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_javascript_result_get_type
gvalueSet_ :: Ptr GValue -> Maybe JavascriptResult -> IO ()
gvalueSet_ Ptr GValue
gv Maybe JavascriptResult
P.Nothing = Ptr GValue -> Ptr JavascriptResult -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr JavascriptResult
forall a. Ptr a
FP.nullPtr :: FP.Ptr JavascriptResult)
gvalueSet_ Ptr GValue
gv (P.Just JavascriptResult
obj) = JavascriptResult -> (Ptr JavascriptResult -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr JavascriptResult
obj (Ptr GValue -> Ptr JavascriptResult -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe JavascriptResult)
gvalueGet_ Ptr GValue
gv = do
Ptr JavascriptResult
ptr <- Ptr GValue -> IO (Ptr JavascriptResult)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr JavascriptResult)
if Ptr JavascriptResult
ptr Ptr JavascriptResult -> Ptr JavascriptResult -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr JavascriptResult
forall a. Ptr a
FP.nullPtr
then JavascriptResult -> Maybe JavascriptResult
forall a. a -> Maybe a
P.Just (JavascriptResult -> Maybe JavascriptResult)
-> IO JavascriptResult -> IO (Maybe JavascriptResult)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe JavascriptResult -> IO (Maybe JavascriptResult)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe JavascriptResult
forall a. Maybe a
P.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 :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
JavascriptResult -> m Value
javascriptResultGetJsValue JavascriptResult
jsResult = IO Value -> m Value
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod JavascriptResultGetJsValueMethodInfo JavascriptResult signature where
overloadedMethod = javascriptResultGetJsValue
instance O.OverloadedMethodInfo JavascriptResultGetJsValueMethodInfo JavascriptResult where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.JavascriptResult.javascriptResultGetJsValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Structs-JavascriptResult.html#v: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 :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
JavascriptResult -> m JavascriptResult
javascriptResultRef JavascriptResult
jsResult = IO JavascriptResult -> m JavascriptResult
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return JavascriptResult
result'
#if defined(ENABLE_OVERLOADING)
data JavascriptResultRefMethodInfo
instance (signature ~ (m JavascriptResult), MonadIO m) => O.OverloadedMethod JavascriptResultRefMethodInfo JavascriptResult signature where
overloadedMethod = javascriptResultRef
instance O.OverloadedMethodInfo JavascriptResultRefMethodInfo JavascriptResult where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.JavascriptResult.javascriptResultRef",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Structs-JavascriptResult.html#v: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 :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
JavascriptResult -> m ()
javascriptResultUnref JavascriptResult
jsResult = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data JavascriptResultUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod JavascriptResultUnrefMethodInfo JavascriptResult signature where
overloadedMethod = javascriptResultUnref
instance O.OverloadedMethodInfo JavascriptResultUnrefMethodInfo JavascriptResult where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.JavascriptResult.javascriptResultUnref",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Structs-JavascriptResult.html#v: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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, O.OverloadedMethod info JavascriptResult p, R.HasField t JavascriptResult p) => R.HasField t JavascriptResult p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveJavascriptResultMethod t JavascriptResult, O.OverloadedMethodInfo info JavascriptResult) => OL.IsLabel t (O.MethodProxy info JavascriptResult) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif