{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMXPathExpression
(
DOMXPathExpression(..) ,
IsDOMXPathExpression ,
toDOMXPathExpression ,
noDOMXPathExpression ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMXPathExpressionMethod ,
#endif
#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
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
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
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]
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
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
foreign import ccall "webkit_dom_xpath_expression_evaluate" webkit_dom_xpath_expression_evaluate ::
Ptr DOMXPathExpression ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Word16 ->
Ptr WebKit2WebExtension.DOMXPathResult.DOMXPathResult ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMXPathResult.DOMXPathResult)
{-# DEPRECATED dOMXPathExpressionEvaluate ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMXPathExpressionEvaluate ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMXPathExpression a, WebKit2WebExtension.DOMNode.IsDOMNode b, WebKit2WebExtension.DOMXPathResult.IsDOMXPathResult c) =>
a
-> b
-> Word16
-> c
-> m WebKit2WebExtension.DOMXPathResult.DOMXPathResult
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