{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- /No description available in the introspection data./

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

module GI.WebKit2.Structs.JavascriptResult
    ( 

-- * Exported types
    JavascriptResult(..)                    ,
    noJavascriptResult                      ,


 -- * Methods
-- ** Overloaded methods #method:Overloaded methods#

#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.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

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

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

-- | A convenience alias for `Nothing` :: `Maybe` `JavascriptResult`.
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

-- 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 :: 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

-- 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 :: 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

-- 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 :: 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