module GI.WebKit2WebExtension.Objects.DOMXPathExpression
(
DOMXPathExpression(..) ,
DOMXPathExpressionK ,
toDOMXPathExpression ,
noDOMXPathExpression ,
dOMXPathExpressionEvaluate ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit2WebExtension.Types
import GI.WebKit2WebExtension.Callbacks
import qualified GI.GObject as GObject
newtype DOMXPathExpression = DOMXPathExpression (ForeignPtr DOMXPathExpression)
foreign import ccall "webkit_dom_xpath_expression_get_type"
c_webkit_dom_xpath_expression_get_type :: IO GType
type instance ParentTypes DOMXPathExpression = DOMXPathExpressionParentTypes
type DOMXPathExpressionParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMXPathExpression where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_xpath_expression_get_type
class GObject o => DOMXPathExpressionK o
instance (GObject o, IsDescendantOf DOMXPathExpression o) => DOMXPathExpressionK o
toDOMXPathExpression :: DOMXPathExpressionK o => o -> IO DOMXPathExpression
toDOMXPathExpression = unsafeCastTo DOMXPathExpression
noDOMXPathExpression :: Maybe DOMXPathExpression
noDOMXPathExpression = Nothing
type instance AttributeList DOMXPathExpression = DOMXPathExpressionAttributeList
type DOMXPathExpressionAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMXPathExpression = DOMXPathExpressionSignalList
type DOMXPathExpressionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_xpath_expression_evaluate" webkit_dom_xpath_expression_evaluate ::
Ptr DOMXPathExpression ->
Ptr DOMNode ->
Word16 ->
Ptr DOMXPathResult ->
Ptr (Ptr GError) ->
IO (Ptr DOMXPathResult)
dOMXPathExpressionEvaluate ::
(MonadIO m, DOMXPathExpressionK a, DOMNodeK b, DOMXPathResultK c) =>
a ->
b ->
Word16 ->
c ->
m DOMXPathResult
dOMXPathExpressionEvaluate _obj contextNode type_ inResult = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let contextNode' = unsafeManagedPtrCastPtr contextNode
let inResult' = unsafeManagedPtrCastPtr inResult
onException (do
result <- propagateGError $ webkit_dom_xpath_expression_evaluate _obj' contextNode' type_ inResult'
checkUnexpectedReturnNULL "webkit_dom_xpath_expression_evaluate" result
result' <- (wrapObject DOMXPathResult) result
touchManagedPtr _obj
touchManagedPtr contextNode
touchManagedPtr inResult
return result'
) (do
return ()
)