{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson and Iñaki García Etxebarria
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- Result of JavaScript evaluation in a web view.

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.WebKit2.Structs.JavascriptResult
    ( 

-- * Exported types
    JavascriptResult(..)                    ,


 -- * Methods
-- | 
-- 
--  === __Click to display all available methods, including inherited ones__
-- ==== Methods
-- [ref]("GI.WebKit2.Structs.JavascriptResult#g:method:ref"), [unref]("GI.WebKit2.Structs.JavascriptResult#g:method:unref").
-- 
-- ==== Getters
-- [getJsValue]("GI.WebKit2.Structs.JavascriptResult#g:method:getJsValue").
-- 
-- ==== Setters
-- /None/.

#if defined(ENABLE_OVERLOADING)
    ResolveJavascriptResultMethod           ,
#endif

-- ** getJsValue #method:getJsValue#

#if defined(ENABLE_OVERLOADING)
    JavascriptResultGetJsValueMethodInfo    ,
#endif
    javascriptResultGetJsValue              ,


-- ** ref #method:ref#

#if defined(ENABLE_OVERLOADING)
    JavascriptResultRefMethodInfo           ,
#endif
    javascriptResultRef                     ,


-- ** unref #method:unref#

#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

-- | Memory-managed wrapper type.
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

-- | Convert 'JavascriptResult' to and from 'Data.GI.Base.GValue.GValue'. See 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
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

-- method JavascriptResult::get_js_value
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "js_result"
--           , argType =
--               TInterface
--                 Name { namespace = "WebKit2" , name = "JavascriptResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #WebKitJavascriptResult"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface Name { namespace = "JavaScriptCore" , name = "Value" })
-- throws : False
-- Skip return : False

foreign import ccall "webkit_javascript_result_get_js_value" webkit_javascript_result_get_js_value :: 
    Ptr JavascriptResult ->                 -- js_result : TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"})
    IO (Ptr JavaScriptCore.Value.Value)

-- | Get the t'GI.JavaScriptCore.Objects.Value.Value' of /@jsResult@/.
-- 
-- /Since: 2.22/
javascriptResultGetJsValue ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    JavascriptResult
    -- ^ /@jsResult@/: a t'GI.WebKit2.Structs.JavascriptResult.JavascriptResult'
    -> m JavaScriptCore.Value.Value
    -- ^ __Returns:__ the t'GI.JavaScriptCore.Objects.Value.Value' of the t'GI.WebKit2.Structs.JavascriptResult.JavascriptResult'
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

-- method JavascriptResult::ref
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "js_result"
--           , argType =
--               TInterface
--                 Name { namespace = "WebKit2" , name = "JavascriptResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #WebKitJavascriptResult"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface
--                  Name { namespace = "WebKit2" , name = "JavascriptResult" })
-- throws : False
-- Skip return : False

foreign import ccall "webkit_javascript_result_ref" webkit_javascript_result_ref :: 
    Ptr JavascriptResult ->                 -- js_result : TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"})
    IO (Ptr JavascriptResult)

-- | Atomically increments the reference count of /@jsResult@/ by one.
-- 
-- This function is MT-safe and may be called from any thread.
javascriptResultRef ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    JavascriptResult
    -- ^ /@jsResult@/: a t'GI.WebKit2.Structs.JavascriptResult.JavascriptResult'
    -> m JavascriptResult
    -- ^ __Returns:__ The passed in t'GI.WebKit2.Structs.JavascriptResult.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

-- method JavascriptResult::unref
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "js_result"
--           , argType =
--               TInterface
--                 Name { namespace = "WebKit2" , name = "JavascriptResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #WebKitJavascriptResult"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "webkit_javascript_result_unref" webkit_javascript_result_unref :: 
    Ptr JavascriptResult ->                 -- js_result : TInterface (Name {namespace = "WebKit2", name = "JavascriptResult"})
    IO ()

-- | Atomically decrements the reference count of /@jsResult@/ by one.
-- 
-- If the reference count drops to 0,
-- all memory allocated by the t'GI.WebKit2.Structs.JavascriptResult.JavascriptResult' is
-- released. This function is MT-safe and may be called from any
-- thread.
javascriptResultUnref ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    JavascriptResult
    -- ^ /@jsResult@/: a t'GI.WebKit2.Structs.JavascriptResult.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