{-# 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 ,
#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.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.Kind as DK
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.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 (SP.ManagedPtr DOMXPathExpression)
deriving (DOMXPathExpression -> DOMXPathExpression -> Bool
(DOMXPathExpression -> DOMXPathExpression -> Bool)
-> (DOMXPathExpression -> DOMXPathExpression -> Bool)
-> Eq DOMXPathExpression
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DOMXPathExpression -> DOMXPathExpression -> Bool
== :: DOMXPathExpression -> DOMXPathExpression -> Bool
$c/= :: DOMXPathExpression -> DOMXPathExpression -> Bool
/= :: DOMXPathExpression -> DOMXPathExpression -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMXPathExpression where
toManagedPtr :: DOMXPathExpression -> ManagedPtr DOMXPathExpression
toManagedPtr (DOMXPathExpression ManagedPtr DOMXPathExpression
p) = ManagedPtr DOMXPathExpression
p
foreign import ccall "webkit_dom_xpath_expression_get_type"
c_webkit_dom_xpath_expression_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMXPathExpression where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_xpath_expression_get_type
instance B.Types.GObject DOMXPathExpression
class (SP.GObject o, O.IsDescendantOf DOMXPathExpression o) => IsDOMXPathExpression o
instance (SP.GObject o, O.IsDescendantOf DOMXPathExpression o) => IsDOMXPathExpression o
instance O.HasParentTypes DOMXPathExpression
type instance O.ParentTypes DOMXPathExpression = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMXPathExpression :: (MIO.MonadIO m, IsDOMXPathExpression o) => o -> m DOMXPathExpression
toDOMXPathExpression :: forall (m :: * -> *) o.
(MonadIO m, IsDOMXPathExpression o) =>
o -> m DOMXPathExpression
toDOMXPathExpression = IO DOMXPathExpression -> m DOMXPathExpression
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMXPathExpression -> DOMXPathExpression
DOMXPathExpression
instance B.GValue.IsGValue (Maybe DOMXPathExpression) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_xpath_expression_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMXPathExpression -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMXPathExpression
P.Nothing = Ptr GValue -> Ptr DOMXPathExpression -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMXPathExpression
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMXPathExpression)
gvalueSet_ Ptr GValue
gv (P.Just DOMXPathExpression
obj) = DOMXPathExpression -> (Ptr DOMXPathExpression -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMXPathExpression
obj (Ptr GValue -> Ptr DOMXPathExpression -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMXPathExpression)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMXPathExpression
ptr <- Ptr GValue -> IO (Ptr DOMXPathExpression)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMXPathExpression)
if Ptr DOMXPathExpression
ptr Ptr DOMXPathExpression -> Ptr DOMXPathExpression -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMXPathExpression
forall a. Ptr a
FP.nullPtr
then DOMXPathExpression -> Maybe DOMXPathExpression
forall a. a -> Maybe a
P.Just (DOMXPathExpression -> Maybe DOMXPathExpression)
-> IO DOMXPathExpression -> IO (Maybe DOMXPathExpression)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe DOMXPathExpression -> IO (Maybe DOMXPathExpression)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMXPathExpression
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMXPathExpressionMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveDOMXPathExpressionMethod t DOMXPathExpression, O.OverloadedMethod info DOMXPathExpression p, R.HasField t DOMXPathExpression p) => R.HasField t DOMXPathExpression p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMXPathExpressionMethod t DOMXPathExpression, O.OverloadedMethodInfo info DOMXPathExpression) => OL.IsLabel t (O.MethodProxy info DOMXPathExpression) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMXPathExpression
type instance O.AttributeList DOMXPathExpression = DOMXPathExpressionAttributeList
type DOMXPathExpressionAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMXPathExpression = DOMXPathExpressionSignalList
type DOMXPathExpressionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#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 :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsDOMXPathExpression a, IsDOMNode b,
IsDOMXPathResult c) =>
a -> b -> Word16 -> c -> m DOMXPathResult
dOMXPathExpressionEvaluate a
self b
contextNode Word16
type_ c
inResult = IO DOMXPathResult -> m DOMXPathResult
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMXPathResult
result'
) (do
() -> IO ()
forall a. a -> IO a
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.OverloadedMethod DOMXPathExpressionEvaluateMethodInfo a signature where
overloadedMethod = dOMXPathExpressionEvaluate
instance O.OverloadedMethodInfo DOMXPathExpressionEvaluateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMXPathExpression.dOMXPathExpressionEvaluate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMXPathExpression.html#v:dOMXPathExpressionEvaluate"
})
#endif