{-# 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.WebKit2WebExtension.Objects.DOMXPathExpression
    ( 

-- * Exported types
    DOMXPathExpression(..)                  ,
    IsDOMXPathExpression                    ,
    toDOMXPathExpression                    ,
    noDOMXPathExpression                    ,


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

#if defined(ENABLE_OVERLOADING)
    ResolveDOMXPathExpressionMethod         ,
#endif


-- ** evaluate #method:evaluate#

#if defined(ENABLE_OVERLOADING)
    DOMXPathExpressionEvaluateMethodInfo    ,
#endif
    dOMXPathExpressionEvaluate              ,




    ) 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.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMXPathResult as WebKit2WebExtension.DOMXPathResult

-- | Memory-managed wrapper type.
newtype DOMXPathExpression = DOMXPathExpression (ManagedPtr DOMXPathExpression)
    deriving (DOMXPathExpression -> DOMXPathExpression -> Bool
(DOMXPathExpression -> DOMXPathExpression -> Bool)
-> (DOMXPathExpression -> DOMXPathExpression -> Bool)
-> Eq DOMXPathExpression
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMXPathExpression -> DOMXPathExpression -> Bool
$c/= :: DOMXPathExpression -> DOMXPathExpression -> Bool
== :: DOMXPathExpression -> DOMXPathExpression -> Bool
$c== :: DOMXPathExpression -> DOMXPathExpression -> Bool
Eq)
foreign import ccall "webkit_dom_xpath_expression_get_type"
    c_webkit_dom_xpath_expression_get_type :: IO GType

instance GObject DOMXPathExpression where
    gobjectType :: IO GType
gobjectType = IO GType
c_webkit_dom_xpath_expression_get_type
    

-- | Convert 'DOMXPathExpression' to and from 'Data.GI.Base.GValue.GValue' with 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
instance B.GValue.IsGValue DOMXPathExpression where
    toGValue :: DOMXPathExpression -> IO GValue
toGValue o :: DOMXPathExpression
o = do
        GType
gtype <- IO GType
c_webkit_dom_xpath_expression_get_type
        DOMXPathExpression
-> (Ptr DOMXPathExpression -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMXPathExpression
o (GType
-> (GValue -> Ptr DOMXPathExpression -> IO ())
-> Ptr DOMXPathExpression
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DOMXPathExpression -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
        
    fromGValue :: GValue -> IO DOMXPathExpression
fromGValue gv :: GValue
gv = do
        Ptr DOMXPathExpression
ptr <- GValue -> IO (Ptr DOMXPathExpression)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DOMXPathExpression)
        (ManagedPtr DOMXPathExpression -> DOMXPathExpression)
-> Ptr DOMXPathExpression -> IO DOMXPathExpression
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMXPathExpression -> DOMXPathExpression
DOMXPathExpression Ptr DOMXPathExpression
ptr
        
    

-- | Type class for types which can be safely cast to `DOMXPathExpression`, for instance with `toDOMXPathExpression`.
class (GObject o, O.IsDescendantOf DOMXPathExpression o) => IsDOMXPathExpression o
instance (GObject o, O.IsDescendantOf DOMXPathExpression o) => IsDOMXPathExpression o

instance O.HasParentTypes DOMXPathExpression
type instance O.ParentTypes DOMXPathExpression = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]

-- | Cast to `DOMXPathExpression`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toDOMXPathExpression :: (MonadIO m, IsDOMXPathExpression o) => o -> m DOMXPathExpression
toDOMXPathExpression :: o -> m DOMXPathExpression
toDOMXPathExpression = IO DOMXPathExpression -> m DOMXPathExpression
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMXPathExpression -> m DOMXPathExpression)
-> (o -> IO DOMXPathExpression) -> o -> m DOMXPathExpression
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMXPathExpression -> DOMXPathExpression)
-> o -> IO DOMXPathExpression
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DOMXPathExpression -> DOMXPathExpression
DOMXPathExpression

-- | A convenience alias for `Nothing` :: `Maybe` `DOMXPathExpression`.
noDOMXPathExpression :: Maybe DOMXPathExpression
noDOMXPathExpression :: Maybe DOMXPathExpression
noDOMXPathExpression = Maybe DOMXPathExpression
forall a. Maybe a
Nothing

#if defined(ENABLE_OVERLOADING)
type family ResolveDOMXPathExpressionMethod (t :: Symbol) (o :: *) :: * where
    ResolveDOMXPathExpressionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveDOMXPathExpressionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveDOMXPathExpressionMethod "evaluate" o = DOMXPathExpressionEvaluateMethodInfo
    ResolveDOMXPathExpressionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveDOMXPathExpressionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveDOMXPathExpressionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
    ResolveDOMXPathExpressionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveDOMXPathExpressionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveDOMXPathExpressionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveDOMXPathExpressionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveDOMXPathExpressionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveDOMXPathExpressionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveDOMXPathExpressionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveDOMXPathExpressionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveDOMXPathExpressionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveDOMXPathExpressionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveDOMXPathExpressionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveDOMXPathExpressionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveDOMXPathExpressionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveDOMXPathExpressionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveDOMXPathExpressionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveDOMXPathExpressionMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
    ResolveDOMXPathExpressionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveDOMXPathExpressionMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveDOMXPathExpressionMethod t DOMXPathExpression, O.MethodInfo info DOMXPathExpression p) => OL.IsLabel t (DOMXPathExpression -> p) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.overloadedMethod @info
#else
    fromLabel _ = O.overloadedMethod @info
#endif

#endif

#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMXPathExpression
type instance O.AttributeList DOMXPathExpression = DOMXPathExpressionAttributeList
type DOMXPathExpressionAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)])
#endif

#if defined(ENABLE_OVERLOADING)
#endif

#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMXPathExpression = DOMXPathExpressionSignalList
type DOMXPathExpressionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

#endif

-- method DOMXPathExpression::evaluate
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "self"
--           , argType =
--               TInterface
--                 Name
--                   { namespace = "WebKit2WebExtension" , name = "DOMXPathExpression" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #WebKitDOMXPathExpression"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "contextNode"
--           , argType =
--               TInterface
--                 Name { namespace = "WebKit2WebExtension" , name = "DOMNode" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #WebKitDOMNode" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "type"
--           , argType = TBasicType TUInt16
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #gushort" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "inResult"
--           , argType =
--               TInterface
--                 Name
--                   { namespace = "WebKit2WebExtension" , name = "DOMXPathResult" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "A #WebKitDOMXPathResult"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface
--                  Name
--                    { namespace = "WebKit2WebExtension" , name = "DOMXPathResult" })
-- throws : True
-- Skip return : False

foreign import ccall "webkit_dom_xpath_expression_evaluate" webkit_dom_xpath_expression_evaluate :: 
    Ptr DOMXPathExpression ->               -- self : TInterface (Name {namespace = "WebKit2WebExtension", name = "DOMXPathExpression"})
    Ptr WebKit2WebExtension.DOMNode.DOMNode -> -- contextNode : TInterface (Name {namespace = "WebKit2WebExtension", name = "DOMNode"})
    Word16 ->                               -- type : TBasicType TUInt16
    Ptr WebKit2WebExtension.DOMXPathResult.DOMXPathResult -> -- inResult : TInterface (Name {namespace = "WebKit2WebExtension", name = "DOMXPathResult"})
    Ptr (Ptr GError) ->                     -- error
    IO (Ptr WebKit2WebExtension.DOMXPathResult.DOMXPathResult)

{-# DEPRECATED dOMXPathExpressionEvaluate ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
-- | /No description available in the introspection data./
dOMXPathExpressionEvaluate ::
    (B.CallStack.HasCallStack, MonadIO m, IsDOMXPathExpression a, WebKit2WebExtension.DOMNode.IsDOMNode b, WebKit2WebExtension.DOMXPathResult.IsDOMXPathResult c) =>
    a
    -- ^ /@self@/: A t'GI.WebKit2WebExtension.Objects.DOMXPathExpression.DOMXPathExpression'
    -> b
    -- ^ /@contextNode@/: A t'GI.WebKit2WebExtension.Objects.DOMNode.DOMNode'
    -> Word16
    -- ^ /@type@/: A @/gushort/@
    -> c
    -- ^ /@inResult@/: A t'GI.WebKit2WebExtension.Objects.DOMXPathResult.DOMXPathResult'
    -> m WebKit2WebExtension.DOMXPathResult.DOMXPathResult
    -- ^ __Returns:__ A t'GI.WebKit2WebExtension.Objects.DOMXPathResult.DOMXPathResult' /(Can throw 'Data.GI.Base.GError.GError')/
dOMXPathExpressionEvaluate :: a -> b -> Word16 -> c -> m DOMXPathResult
dOMXPathExpressionEvaluate self :: a
self contextNode :: b
contextNode type_ :: Word16
type_ inResult :: c
inResult = IO DOMXPathResult -> m DOMXPathResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMXPathResult -> m DOMXPathResult)
-> IO DOMXPathResult -> m DOMXPathResult
forall a b. (a -> b) -> a -> b
$ do
    Ptr DOMXPathExpression
self' <- a -> IO (Ptr DOMXPathExpression)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
    Ptr DOMNode
contextNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
contextNode
    Ptr DOMXPathResult
inResult' <- c -> IO (Ptr DOMXPathResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
inResult
    IO DOMXPathResult -> IO () -> IO DOMXPathResult
forall a b. IO a -> IO b -> IO a
onException (do
        Ptr DOMXPathResult
result <- (Ptr (Ptr GError) -> IO (Ptr DOMXPathResult))
-> IO (Ptr DOMXPathResult)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMXPathResult))
 -> IO (Ptr DOMXPathResult))
-> (Ptr (Ptr GError) -> IO (Ptr DOMXPathResult))
-> IO (Ptr DOMXPathResult)
forall a b. (a -> b) -> a -> b
$ Ptr DOMXPathExpression
-> Ptr DOMNode
-> Word16
-> Ptr DOMXPathResult
-> Ptr (Ptr GError)
-> IO (Ptr DOMXPathResult)
webkit_dom_xpath_expression_evaluate Ptr DOMXPathExpression
self' Ptr DOMNode
contextNode' Word16
type_ Ptr DOMXPathResult
inResult'
        Text -> Ptr DOMXPathResult -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMXPathExpressionEvaluate" Ptr DOMXPathResult
result
        DOMXPathResult
result' <- ((ManagedPtr DOMXPathResult -> DOMXPathResult)
-> Ptr DOMXPathResult -> IO DOMXPathResult
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMXPathResult -> DOMXPathResult
WebKit2WebExtension.DOMXPathResult.DOMXPathResult) Ptr DOMXPathResult
result
        a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
        b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
contextNode
        c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
inResult
        DOMXPathResult -> IO DOMXPathResult
forall (m :: * -> *) a. Monad m => a -> m a
return DOMXPathResult
result'
     ) (do
        () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
     )

#if defined(ENABLE_OVERLOADING)
data DOMXPathExpressionEvaluateMethodInfo
instance (signature ~ (b -> Word16 -> c -> m WebKit2WebExtension.DOMXPathResult.DOMXPathResult), MonadIO m, IsDOMXPathExpression a, WebKit2WebExtension.DOMNode.IsDOMNode b, WebKit2WebExtension.DOMXPathResult.IsDOMXPathResult c) => O.MethodInfo DOMXPathExpressionEvaluateMethodInfo a signature where
    overloadedMethod = dOMXPathExpressionEvaluate

#endif