{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMRange
(
DOMRange(..) ,
IsDOMRange ,
toDOMRange ,
noDOMRange ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMRangeMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMRangeCloneContentsMethodInfo ,
#endif
dOMRangeCloneContents ,
#if defined(ENABLE_OVERLOADING)
DOMRangeCloneRangeMethodInfo ,
#endif
dOMRangeCloneRange ,
#if defined(ENABLE_OVERLOADING)
DOMRangeCollapseMethodInfo ,
#endif
dOMRangeCollapse ,
#if defined(ENABLE_OVERLOADING)
DOMRangeCompareBoundaryPointsMethodInfo ,
#endif
dOMRangeCompareBoundaryPoints ,
#if defined(ENABLE_OVERLOADING)
DOMRangeCompareNodeMethodInfo ,
#endif
dOMRangeCompareNode ,
#if defined(ENABLE_OVERLOADING)
DOMRangeComparePointMethodInfo ,
#endif
dOMRangeComparePoint ,
#if defined(ENABLE_OVERLOADING)
DOMRangeCreateContextualFragmentMethodInfo,
#endif
dOMRangeCreateContextualFragment ,
#if defined(ENABLE_OVERLOADING)
DOMRangeDeleteContentsMethodInfo ,
#endif
dOMRangeDeleteContents ,
#if defined(ENABLE_OVERLOADING)
DOMRangeDetachMethodInfo ,
#endif
dOMRangeDetach ,
#if defined(ENABLE_OVERLOADING)
DOMRangeExpandMethodInfo ,
#endif
dOMRangeExpand ,
#if defined(ENABLE_OVERLOADING)
DOMRangeExtractContentsMethodInfo ,
#endif
dOMRangeExtractContents ,
#if defined(ENABLE_OVERLOADING)
DOMRangeGetCollapsedMethodInfo ,
#endif
dOMRangeGetCollapsed ,
#if defined(ENABLE_OVERLOADING)
DOMRangeGetCommonAncestorContainerMethodInfo,
#endif
dOMRangeGetCommonAncestorContainer ,
#if defined(ENABLE_OVERLOADING)
DOMRangeGetEndContainerMethodInfo ,
#endif
dOMRangeGetEndContainer ,
#if defined(ENABLE_OVERLOADING)
DOMRangeGetEndOffsetMethodInfo ,
#endif
dOMRangeGetEndOffset ,
#if defined(ENABLE_OVERLOADING)
DOMRangeGetStartContainerMethodInfo ,
#endif
dOMRangeGetStartContainer ,
#if defined(ENABLE_OVERLOADING)
DOMRangeGetStartOffsetMethodInfo ,
#endif
dOMRangeGetStartOffset ,
#if defined(ENABLE_OVERLOADING)
DOMRangeGetTextMethodInfo ,
#endif
dOMRangeGetText ,
#if defined(ENABLE_OVERLOADING)
DOMRangeInsertNodeMethodInfo ,
#endif
dOMRangeInsertNode ,
#if defined(ENABLE_OVERLOADING)
DOMRangeIntersectsNodeMethodInfo ,
#endif
dOMRangeIntersectsNode ,
#if defined(ENABLE_OVERLOADING)
DOMRangeIsPointInRangeMethodInfo ,
#endif
dOMRangeIsPointInRange ,
#if defined(ENABLE_OVERLOADING)
DOMRangeSelectNodeMethodInfo ,
#endif
dOMRangeSelectNode ,
#if defined(ENABLE_OVERLOADING)
DOMRangeSelectNodeContentsMethodInfo ,
#endif
dOMRangeSelectNodeContents ,
#if defined(ENABLE_OVERLOADING)
DOMRangeSetEndMethodInfo ,
#endif
dOMRangeSetEnd ,
#if defined(ENABLE_OVERLOADING)
DOMRangeSetEndAfterMethodInfo ,
#endif
dOMRangeSetEndAfter ,
#if defined(ENABLE_OVERLOADING)
DOMRangeSetEndBeforeMethodInfo ,
#endif
dOMRangeSetEndBefore ,
#if defined(ENABLE_OVERLOADING)
DOMRangeSetStartMethodInfo ,
#endif
dOMRangeSetStart ,
#if defined(ENABLE_OVERLOADING)
DOMRangeSetStartAfterMethodInfo ,
#endif
dOMRangeSetStartAfter ,
#if defined(ENABLE_OVERLOADING)
DOMRangeSetStartBeforeMethodInfo ,
#endif
dOMRangeSetStartBefore ,
#if defined(ENABLE_OVERLOADING)
DOMRangeSurroundContentsMethodInfo ,
#endif
dOMRangeSurroundContents ,
#if defined(ENABLE_OVERLOADING)
DOMRangeToStringMethodInfo ,
#endif
dOMRangeToString ,
#if defined(ENABLE_OVERLOADING)
DOMRangeCollapsedPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMRangeCollapsed ,
#endif
getDOMRangeCollapsed ,
#if defined(ENABLE_OVERLOADING)
DOMRangeCommonAncestorContainerPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMRangeCommonAncestorContainer ,
#endif
getDOMRangeCommonAncestorContainer ,
#if defined(ENABLE_OVERLOADING)
DOMRangeEndContainerPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMRangeEndContainer ,
#endif
getDOMRangeEndContainer ,
#if defined(ENABLE_OVERLOADING)
DOMRangeEndOffsetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMRangeEndOffset ,
#endif
getDOMRangeEndOffset ,
#if defined(ENABLE_OVERLOADING)
DOMRangeStartContainerPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMRangeStartContainer ,
#endif
getDOMRangeStartContainer ,
#if defined(ENABLE_OVERLOADING)
DOMRangeStartOffsetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMRangeStartOffset ,
#endif
getDOMRangeStartOffset ,
#if defined(ENABLE_OVERLOADING)
DOMRangeTextPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMRangeText ,
#endif
getDOMRangeText ,
) 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.DOMDocumentFragment as WebKit2WebExtension.DOMDocumentFragment
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMRange = DOMRange (ManagedPtr DOMRange)
deriving (DOMRange -> DOMRange -> Bool
(DOMRange -> DOMRange -> Bool)
-> (DOMRange -> DOMRange -> Bool) -> Eq DOMRange
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMRange -> DOMRange -> Bool
$c/= :: DOMRange -> DOMRange -> Bool
== :: DOMRange -> DOMRange -> Bool
$c== :: DOMRange -> DOMRange -> Bool
Eq)
foreign import ccall "webkit_dom_range_get_type"
c_webkit_dom_range_get_type :: IO GType
instance GObject DOMRange where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_dom_range_get_type
instance B.GValue.IsGValue DOMRange where
toGValue :: DOMRange -> IO GValue
toGValue o :: DOMRange
o = do
GType
gtype <- IO GType
c_webkit_dom_range_get_type
DOMRange -> (Ptr DOMRange -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMRange
o (GType
-> (GValue -> Ptr DOMRange -> IO ()) -> Ptr DOMRange -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DOMRange -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO DOMRange
fromGValue gv :: GValue
gv = do
Ptr DOMRange
ptr <- GValue -> IO (Ptr DOMRange)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DOMRange)
(ManagedPtr DOMRange -> DOMRange) -> Ptr DOMRange -> IO DOMRange
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMRange -> DOMRange
DOMRange Ptr DOMRange
ptr
class (GObject o, O.IsDescendantOf DOMRange o) => IsDOMRange o
instance (GObject o, O.IsDescendantOf DOMRange o) => IsDOMRange o
instance O.HasParentTypes DOMRange
type instance O.ParentTypes DOMRange = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMRange :: (MonadIO m, IsDOMRange o) => o -> m DOMRange
toDOMRange :: o -> m DOMRange
toDOMRange = IO DOMRange -> m DOMRange
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMRange -> m DOMRange)
-> (o -> IO DOMRange) -> o -> m DOMRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMRange -> DOMRange) -> o -> IO DOMRange
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DOMRange -> DOMRange
DOMRange
noDOMRange :: Maybe DOMRange
noDOMRange :: Maybe DOMRange
noDOMRange = Maybe DOMRange
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMRangeMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMRangeMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMRangeMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMRangeMethod "cloneContents" o = DOMRangeCloneContentsMethodInfo
ResolveDOMRangeMethod "cloneRange" o = DOMRangeCloneRangeMethodInfo
ResolveDOMRangeMethod "collapse" o = DOMRangeCollapseMethodInfo
ResolveDOMRangeMethod "compareBoundaryPoints" o = DOMRangeCompareBoundaryPointsMethodInfo
ResolveDOMRangeMethod "compareNode" o = DOMRangeCompareNodeMethodInfo
ResolveDOMRangeMethod "comparePoint" o = DOMRangeComparePointMethodInfo
ResolveDOMRangeMethod "createContextualFragment" o = DOMRangeCreateContextualFragmentMethodInfo
ResolveDOMRangeMethod "deleteContents" o = DOMRangeDeleteContentsMethodInfo
ResolveDOMRangeMethod "detach" o = DOMRangeDetachMethodInfo
ResolveDOMRangeMethod "expand" o = DOMRangeExpandMethodInfo
ResolveDOMRangeMethod "extractContents" o = DOMRangeExtractContentsMethodInfo
ResolveDOMRangeMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMRangeMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMRangeMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMRangeMethod "insertNode" o = DOMRangeInsertNodeMethodInfo
ResolveDOMRangeMethod "intersectsNode" o = DOMRangeIntersectsNodeMethodInfo
ResolveDOMRangeMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMRangeMethod "isPointInRange" o = DOMRangeIsPointInRangeMethodInfo
ResolveDOMRangeMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMRangeMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMRangeMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMRangeMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMRangeMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMRangeMethod "selectNode" o = DOMRangeSelectNodeMethodInfo
ResolveDOMRangeMethod "selectNodeContents" o = DOMRangeSelectNodeContentsMethodInfo
ResolveDOMRangeMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMRangeMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMRangeMethod "surroundContents" o = DOMRangeSurroundContentsMethodInfo
ResolveDOMRangeMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMRangeMethod "toString" o = DOMRangeToStringMethodInfo
ResolveDOMRangeMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMRangeMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMRangeMethod "getCollapsed" o = DOMRangeGetCollapsedMethodInfo
ResolveDOMRangeMethod "getCommonAncestorContainer" o = DOMRangeGetCommonAncestorContainerMethodInfo
ResolveDOMRangeMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMRangeMethod "getEndContainer" o = DOMRangeGetEndContainerMethodInfo
ResolveDOMRangeMethod "getEndOffset" o = DOMRangeGetEndOffsetMethodInfo
ResolveDOMRangeMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMRangeMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMRangeMethod "getStartContainer" o = DOMRangeGetStartContainerMethodInfo
ResolveDOMRangeMethod "getStartOffset" o = DOMRangeGetStartOffsetMethodInfo
ResolveDOMRangeMethod "getText" o = DOMRangeGetTextMethodInfo
ResolveDOMRangeMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMRangeMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMRangeMethod "setEnd" o = DOMRangeSetEndMethodInfo
ResolveDOMRangeMethod "setEndAfter" o = DOMRangeSetEndAfterMethodInfo
ResolveDOMRangeMethod "setEndBefore" o = DOMRangeSetEndBeforeMethodInfo
ResolveDOMRangeMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMRangeMethod "setStart" o = DOMRangeSetStartMethodInfo
ResolveDOMRangeMethod "setStartAfter" o = DOMRangeSetStartAfterMethodInfo
ResolveDOMRangeMethod "setStartBefore" o = DOMRangeSetStartBeforeMethodInfo
ResolveDOMRangeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMRangeMethod t DOMRange, O.MethodInfo info DOMRange p) => OL.IsLabel t (DOMRange -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getDOMRangeCollapsed :: (MonadIO m, IsDOMRange o) => o -> m Bool
getDOMRangeCollapsed :: o -> m Bool
getDOMRangeCollapsed obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "collapsed"
#if defined(ENABLE_OVERLOADING)
data DOMRangeCollapsedPropertyInfo
instance AttrInfo DOMRangeCollapsedPropertyInfo where
type AttrAllowedOps DOMRangeCollapsedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMRangeCollapsedPropertyInfo = IsDOMRange
type AttrSetTypeConstraint DOMRangeCollapsedPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMRangeCollapsedPropertyInfo = (~) ()
type AttrTransferType DOMRangeCollapsedPropertyInfo = ()
type AttrGetType DOMRangeCollapsedPropertyInfo = Bool
type AttrLabel DOMRangeCollapsedPropertyInfo = "collapsed"
type AttrOrigin DOMRangeCollapsedPropertyInfo = DOMRange
attrGet = getDOMRangeCollapsed
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMRangeCommonAncestorContainer :: (MonadIO m, IsDOMRange o) => o -> m (Maybe WebKit2WebExtension.DOMNode.DOMNode)
getDOMRangeCommonAncestorContainer :: o -> m (Maybe DOMNode)
getDOMRangeCommonAncestorContainer obj :: o
obj = IO (Maybe DOMNode) -> m (Maybe DOMNode)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMNode) -> m (Maybe DOMNode))
-> IO (Maybe DOMNode) -> m (Maybe DOMNode)
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr DOMNode -> DOMNode) -> IO (Maybe DOMNode)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "common-ancestor-container" ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMRangeCommonAncestorContainerPropertyInfo
instance AttrInfo DOMRangeCommonAncestorContainerPropertyInfo where
type AttrAllowedOps DOMRangeCommonAncestorContainerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = IsDOMRange
type AttrSetTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = (~) ()
type AttrTransferType DOMRangeCommonAncestorContainerPropertyInfo = ()
type AttrGetType DOMRangeCommonAncestorContainerPropertyInfo = (Maybe WebKit2WebExtension.DOMNode.DOMNode)
type AttrLabel DOMRangeCommonAncestorContainerPropertyInfo = "common-ancestor-container"
type AttrOrigin DOMRangeCommonAncestorContainerPropertyInfo = DOMRange
attrGet = getDOMRangeCommonAncestorContainer
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMRangeEndContainer :: (MonadIO m, IsDOMRange o) => o -> m (Maybe WebKit2WebExtension.DOMNode.DOMNode)
getDOMRangeEndContainer :: o -> m (Maybe DOMNode)
getDOMRangeEndContainer obj :: o
obj = IO (Maybe DOMNode) -> m (Maybe DOMNode)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMNode) -> m (Maybe DOMNode))
-> IO (Maybe DOMNode) -> m (Maybe DOMNode)
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr DOMNode -> DOMNode) -> IO (Maybe DOMNode)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "end-container" ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMRangeEndContainerPropertyInfo
instance AttrInfo DOMRangeEndContainerPropertyInfo where
type AttrAllowedOps DOMRangeEndContainerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMRangeEndContainerPropertyInfo = IsDOMRange
type AttrSetTypeConstraint DOMRangeEndContainerPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMRangeEndContainerPropertyInfo = (~) ()
type AttrTransferType DOMRangeEndContainerPropertyInfo = ()
type AttrGetType DOMRangeEndContainerPropertyInfo = (Maybe WebKit2WebExtension.DOMNode.DOMNode)
type AttrLabel DOMRangeEndContainerPropertyInfo = "end-container"
type AttrOrigin DOMRangeEndContainerPropertyInfo = DOMRange
attrGet = getDOMRangeEndContainer
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMRangeEndOffset :: (MonadIO m, IsDOMRange o) => o -> m CLong
getDOMRangeEndOffset :: o -> m CLong
getDOMRangeEndOffset obj :: o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj "end-offset"
#if defined(ENABLE_OVERLOADING)
data DOMRangeEndOffsetPropertyInfo
instance AttrInfo DOMRangeEndOffsetPropertyInfo where
type AttrAllowedOps DOMRangeEndOffsetPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMRangeEndOffsetPropertyInfo = IsDOMRange
type AttrSetTypeConstraint DOMRangeEndOffsetPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMRangeEndOffsetPropertyInfo = (~) ()
type AttrTransferType DOMRangeEndOffsetPropertyInfo = ()
type AttrGetType DOMRangeEndOffsetPropertyInfo = CLong
type AttrLabel DOMRangeEndOffsetPropertyInfo = "end-offset"
type AttrOrigin DOMRangeEndOffsetPropertyInfo = DOMRange
attrGet = getDOMRangeEndOffset
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMRangeStartContainer :: (MonadIO m, IsDOMRange o) => o -> m (Maybe WebKit2WebExtension.DOMNode.DOMNode)
getDOMRangeStartContainer :: o -> m (Maybe DOMNode)
getDOMRangeStartContainer obj :: o
obj = IO (Maybe DOMNode) -> m (Maybe DOMNode)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMNode) -> m (Maybe DOMNode))
-> IO (Maybe DOMNode) -> m (Maybe DOMNode)
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr DOMNode -> DOMNode) -> IO (Maybe DOMNode)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "start-container" ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMRangeStartContainerPropertyInfo
instance AttrInfo DOMRangeStartContainerPropertyInfo where
type AttrAllowedOps DOMRangeStartContainerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMRangeStartContainerPropertyInfo = IsDOMRange
type AttrSetTypeConstraint DOMRangeStartContainerPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMRangeStartContainerPropertyInfo = (~) ()
type AttrTransferType DOMRangeStartContainerPropertyInfo = ()
type AttrGetType DOMRangeStartContainerPropertyInfo = (Maybe WebKit2WebExtension.DOMNode.DOMNode)
type AttrLabel DOMRangeStartContainerPropertyInfo = "start-container"
type AttrOrigin DOMRangeStartContainerPropertyInfo = DOMRange
attrGet = getDOMRangeStartContainer
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMRangeStartOffset :: (MonadIO m, IsDOMRange o) => o -> m CLong
getDOMRangeStartOffset :: o -> m CLong
getDOMRangeStartOffset obj :: o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj "start-offset"
#if defined(ENABLE_OVERLOADING)
data DOMRangeStartOffsetPropertyInfo
instance AttrInfo DOMRangeStartOffsetPropertyInfo where
type AttrAllowedOps DOMRangeStartOffsetPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMRangeStartOffsetPropertyInfo = IsDOMRange
type AttrSetTypeConstraint DOMRangeStartOffsetPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMRangeStartOffsetPropertyInfo = (~) ()
type AttrTransferType DOMRangeStartOffsetPropertyInfo = ()
type AttrGetType DOMRangeStartOffsetPropertyInfo = CLong
type AttrLabel DOMRangeStartOffsetPropertyInfo = "start-offset"
type AttrOrigin DOMRangeStartOffsetPropertyInfo = DOMRange
attrGet = getDOMRangeStartOffset
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMRangeText :: (MonadIO m, IsDOMRange o) => o -> m (Maybe T.Text)
getDOMRangeText :: o -> m (Maybe Text)
getDOMRangeText obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "text"
#if defined(ENABLE_OVERLOADING)
data DOMRangeTextPropertyInfo
instance AttrInfo DOMRangeTextPropertyInfo where
type AttrAllowedOps DOMRangeTextPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMRangeTextPropertyInfo = IsDOMRange
type AttrSetTypeConstraint DOMRangeTextPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMRangeTextPropertyInfo = (~) ()
type AttrTransferType DOMRangeTextPropertyInfo = ()
type AttrGetType DOMRangeTextPropertyInfo = (Maybe T.Text)
type AttrLabel DOMRangeTextPropertyInfo = "text"
type AttrOrigin DOMRangeTextPropertyInfo = DOMRange
attrGet = getDOMRangeText
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMRange
type instance O.AttributeList DOMRange = DOMRangeAttributeList
type DOMRangeAttributeList = ('[ '("collapsed", DOMRangeCollapsedPropertyInfo), '("commonAncestorContainer", DOMRangeCommonAncestorContainerPropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("endContainer", DOMRangeEndContainerPropertyInfo), '("endOffset", DOMRangeEndOffsetPropertyInfo), '("startContainer", DOMRangeStartContainerPropertyInfo), '("startOffset", DOMRangeStartOffsetPropertyInfo), '("text", DOMRangeTextPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMRangeCollapsed :: AttrLabelProxy "collapsed"
dOMRangeCollapsed = AttrLabelProxy
dOMRangeCommonAncestorContainer :: AttrLabelProxy "commonAncestorContainer"
dOMRangeCommonAncestorContainer = AttrLabelProxy
dOMRangeEndContainer :: AttrLabelProxy "endContainer"
dOMRangeEndContainer = AttrLabelProxy
dOMRangeEndOffset :: AttrLabelProxy "endOffset"
dOMRangeEndOffset = AttrLabelProxy
dOMRangeStartContainer :: AttrLabelProxy "startContainer"
dOMRangeStartContainer = AttrLabelProxy
dOMRangeStartOffset :: AttrLabelProxy "startOffset"
dOMRangeStartOffset = AttrLabelProxy
dOMRangeText :: AttrLabelProxy "text"
dOMRangeText = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMRange = DOMRangeSignalList
type DOMRangeSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_range_clone_contents" webkit_dom_range_clone_contents ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment)
{-# DEPRECATED dOMRangeCloneContents ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeCloneContents ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment
dOMRangeCloneContents :: a -> m DOMDocumentFragment
dOMRangeCloneContents self :: a
self = IO DOMDocumentFragment -> m DOMDocumentFragment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMDocumentFragment -> m DOMDocumentFragment)
-> IO DOMDocumentFragment -> m DOMDocumentFragment
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO DOMDocumentFragment -> IO () -> IO DOMDocumentFragment
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMDocumentFragment
result <- (Ptr (Ptr GError) -> IO (Ptr DOMDocumentFragment))
-> IO (Ptr DOMDocumentFragment)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMDocumentFragment))
-> IO (Ptr DOMDocumentFragment))
-> (Ptr (Ptr GError) -> IO (Ptr DOMDocumentFragment))
-> IO (Ptr DOMDocumentFragment)
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr (Ptr GError) -> IO (Ptr DOMDocumentFragment)
webkit_dom_range_clone_contents Ptr DOMRange
self'
Text -> Ptr DOMDocumentFragment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMRangeCloneContents" Ptr DOMDocumentFragment
result
DOMDocumentFragment
result' <- ((ManagedPtr DOMDocumentFragment -> DOMDocumentFragment)
-> Ptr DOMDocumentFragment -> IO DOMDocumentFragment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMDocumentFragment -> DOMDocumentFragment
WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment) Ptr DOMDocumentFragment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMDocumentFragment -> IO DOMDocumentFragment
forall (m :: * -> *) a. Monad m => a -> m a
return DOMDocumentFragment
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeCloneContentsMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeCloneContentsMethodInfo a signature where
overloadedMethod = dOMRangeCloneContents
#endif
foreign import ccall "webkit_dom_range_clone_range" webkit_dom_range_clone_range ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO (Ptr DOMRange)
{-# DEPRECATED dOMRangeCloneRange ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeCloneRange ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m DOMRange
dOMRangeCloneRange :: a -> m DOMRange
dOMRangeCloneRange self :: a
self = IO DOMRange -> m DOMRange
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMRange -> m DOMRange) -> IO DOMRange -> m DOMRange
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO DOMRange -> IO () -> IO DOMRange
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMRange
result <- (Ptr (Ptr GError) -> IO (Ptr DOMRange)) -> IO (Ptr DOMRange)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMRange)) -> IO (Ptr DOMRange))
-> (Ptr (Ptr GError) -> IO (Ptr DOMRange)) -> IO (Ptr DOMRange)
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr (Ptr GError) -> IO (Ptr DOMRange)
webkit_dom_range_clone_range Ptr DOMRange
self'
Text -> Ptr DOMRange -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMRangeCloneRange" Ptr DOMRange
result
DOMRange
result' <- ((ManagedPtr DOMRange -> DOMRange) -> Ptr DOMRange -> IO DOMRange
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMRange -> DOMRange
DOMRange) Ptr DOMRange
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMRange -> IO DOMRange
forall (m :: * -> *) a. Monad m => a -> m a
return DOMRange
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeCloneRangeMethodInfo
instance (signature ~ (m DOMRange), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeCloneRangeMethodInfo a signature where
overloadedMethod = dOMRangeCloneRange
#endif
foreign import ccall "webkit_dom_range_collapse" webkit_dom_range_collapse ::
Ptr DOMRange ->
CInt ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeCollapse ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeCollapse ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> Bool
-> m ()
dOMRangeCollapse :: a -> Bool -> m ()
dOMRangeCollapse self :: a
self toStart :: Bool
toStart = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let toStart' :: CInt
toStart' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
toStart
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> CInt -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_collapse Ptr DOMRange
self' CInt
toStart'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeCollapseMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeCollapseMethodInfo a signature where
overloadedMethod = dOMRangeCollapse
#endif
foreign import ccall "webkit_dom_range_compare_boundary_points" webkit_dom_range_compare_boundary_points ::
Ptr DOMRange ->
Word16 ->
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO Int16
{-# DEPRECATED dOMRangeCompareBoundaryPoints ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeCompareBoundaryPoints ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, IsDOMRange b) =>
a
-> Word16
-> b
-> m Int16
dOMRangeCompareBoundaryPoints :: a -> Word16 -> b -> m Int16
dOMRangeCompareBoundaryPoints self :: a
self how :: Word16
how sourceRange :: b
sourceRange = IO Int16 -> m Int16
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int16 -> m Int16) -> IO Int16 -> m Int16
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMRange
sourceRange' <- b -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
sourceRange
IO Int16 -> IO () -> IO Int16
forall a b. IO a -> IO b -> IO a
onException (do
Int16
result <- (Ptr (Ptr GError) -> IO Int16) -> IO Int16
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO Int16) -> IO Int16)
-> (Ptr (Ptr GError) -> IO Int16) -> IO Int16
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange
-> Word16 -> Ptr DOMRange -> Ptr (Ptr GError) -> IO Int16
webkit_dom_range_compare_boundary_points Ptr DOMRange
self' Word16
how Ptr DOMRange
sourceRange'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
sourceRange
Int16 -> IO Int16
forall (m :: * -> *) a. Monad m => a -> m a
return Int16
result
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeCompareBoundaryPointsMethodInfo
instance (signature ~ (Word16 -> b -> m Int16), MonadIO m, IsDOMRange a, IsDOMRange b) => O.MethodInfo DOMRangeCompareBoundaryPointsMethodInfo a signature where
overloadedMethod = dOMRangeCompareBoundaryPoints
#endif
foreign import ccall "webkit_dom_range_compare_node" webkit_dom_range_compare_node ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO Int16
{-# DEPRECATED dOMRangeCompareNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeCompareNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m Int16
dOMRangeCompareNode :: a -> b -> m Int16
dOMRangeCompareNode self :: a
self refNode :: b
refNode = IO Int16 -> m Int16
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int16 -> m Int16) -> IO Int16 -> m Int16
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
refNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
refNode
IO Int16 -> IO () -> IO Int16
forall a b. IO a -> IO b -> IO a
onException (do
Int16
result <- (Ptr (Ptr GError) -> IO Int16) -> IO Int16
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO Int16) -> IO Int16)
-> (Ptr (Ptr GError) -> IO Int16) -> IO Int16
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> Ptr (Ptr GError) -> IO Int16
webkit_dom_range_compare_node Ptr DOMRange
self' Ptr DOMNode
refNode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
refNode
Int16 -> IO Int16
forall (m :: * -> *) a. Monad m => a -> m a
return Int16
result
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeCompareNodeMethodInfo
instance (signature ~ (b -> m Int16), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeCompareNodeMethodInfo a signature where
overloadedMethod = dOMRangeCompareNode
#endif
foreign import ccall "webkit_dom_range_compare_point" webkit_dom_range_compare_point ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CLong ->
Ptr (Ptr GError) ->
IO Int16
{-# DEPRECATED dOMRangeComparePoint ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeComparePoint ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> CLong
-> m Int16
dOMRangeComparePoint :: a -> b -> CLong -> m Int16
dOMRangeComparePoint self :: a
self refNode :: b
refNode offset :: CLong
offset = IO Int16 -> m Int16
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int16 -> m Int16) -> IO Int16 -> m Int16
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
refNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
refNode
IO Int16 -> IO () -> IO Int16
forall a b. IO a -> IO b -> IO a
onException (do
Int16
result <- (Ptr (Ptr GError) -> IO Int16) -> IO Int16
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO Int16) -> IO Int16)
-> (Ptr (Ptr GError) -> IO Int16) -> IO Int16
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange
-> Ptr DOMNode -> CLong -> Ptr (Ptr GError) -> IO Int16
webkit_dom_range_compare_point Ptr DOMRange
self' Ptr DOMNode
refNode' CLong
offset
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
refNode
Int16 -> IO Int16
forall (m :: * -> *) a. Monad m => a -> m a
return Int16
result
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeComparePointMethodInfo
instance (signature ~ (b -> CLong -> m Int16), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeComparePointMethodInfo a signature where
overloadedMethod = dOMRangeComparePoint
#endif
foreign import ccall "webkit_dom_range_create_contextual_fragment" webkit_dom_range_create_contextual_fragment ::
Ptr DOMRange ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment)
{-# DEPRECATED dOMRangeCreateContextualFragment ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeCreateContextualFragment ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment
dOMRangeCreateContextualFragment :: a -> Text -> m DOMDocumentFragment
dOMRangeCreateContextualFragment self :: a
self html :: Text
html = IO DOMDocumentFragment -> m DOMDocumentFragment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMDocumentFragment -> m DOMDocumentFragment)
-> IO DOMDocumentFragment -> m DOMDocumentFragment
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
html' <- Text -> IO CString
textToCString Text
html
IO DOMDocumentFragment -> IO () -> IO DOMDocumentFragment
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMDocumentFragment
result <- (Ptr (Ptr GError) -> IO (Ptr DOMDocumentFragment))
-> IO (Ptr DOMDocumentFragment)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMDocumentFragment))
-> IO (Ptr DOMDocumentFragment))
-> (Ptr (Ptr GError) -> IO (Ptr DOMDocumentFragment))
-> IO (Ptr DOMDocumentFragment)
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange
-> CString -> Ptr (Ptr GError) -> IO (Ptr DOMDocumentFragment)
webkit_dom_range_create_contextual_fragment Ptr DOMRange
self' CString
html'
Text -> Ptr DOMDocumentFragment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMRangeCreateContextualFragment" Ptr DOMDocumentFragment
result
DOMDocumentFragment
result' <- ((ManagedPtr DOMDocumentFragment -> DOMDocumentFragment)
-> Ptr DOMDocumentFragment -> IO DOMDocumentFragment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMDocumentFragment -> DOMDocumentFragment
WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment) Ptr DOMDocumentFragment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
html'
DOMDocumentFragment -> IO DOMDocumentFragment
forall (m :: * -> *) a. Monad m => a -> m a
return DOMDocumentFragment
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
html'
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeCreateContextualFragmentMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeCreateContextualFragmentMethodInfo a signature where
overloadedMethod = dOMRangeCreateContextualFragment
#endif
foreign import ccall "webkit_dom_range_delete_contents" webkit_dom_range_delete_contents ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeDeleteContents ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeDeleteContents ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m ()
dOMRangeDeleteContents :: a -> m ()
dOMRangeDeleteContents self :: a
self = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_delete_contents Ptr DOMRange
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeDeleteContentsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeDeleteContentsMethodInfo a signature where
overloadedMethod = dOMRangeDeleteContents
#endif
foreign import ccall "webkit_dom_range_detach" webkit_dom_range_detach ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeDetach ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeDetach ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m ()
dOMRangeDetach :: a -> m ()
dOMRangeDetach self :: a
self = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_detach Ptr DOMRange
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeDetachMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeDetachMethodInfo a signature where
overloadedMethod = dOMRangeDetach
#endif
foreign import ccall "webkit_dom_range_expand" webkit_dom_range_expand ::
Ptr DOMRange ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeExpand ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> T.Text
-> m ()
dOMRangeExpand :: a -> Text -> m ()
dOMRangeExpand self :: a
self unit :: Text
unit = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
unit' <- Text -> IO CString
textToCString Text
unit
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_expand Ptr DOMRange
self' CString
unit'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
unit'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
unit'
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeExpandMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeExpandMethodInfo a signature where
overloadedMethod = dOMRangeExpand
#endif
foreign import ccall "webkit_dom_range_extract_contents" ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment)
{-# DEPRECATED dOMRangeExtractContents ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeExtractContents ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment
self :: a
self = IO DOMDocumentFragment -> m DOMDocumentFragment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMDocumentFragment -> m DOMDocumentFragment)
-> IO DOMDocumentFragment -> m DOMDocumentFragment
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO DOMDocumentFragment -> IO () -> IO DOMDocumentFragment
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMDocumentFragment
result <- (Ptr (Ptr GError) -> IO (Ptr DOMDocumentFragment))
-> IO (Ptr DOMDocumentFragment)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMDocumentFragment))
-> IO (Ptr DOMDocumentFragment))
-> (Ptr (Ptr GError) -> IO (Ptr DOMDocumentFragment))
-> IO (Ptr DOMDocumentFragment)
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr (Ptr GError) -> IO (Ptr DOMDocumentFragment)
webkit_dom_range_extract_contents Ptr DOMRange
self'
Text -> Ptr DOMDocumentFragment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMRangeExtractContents" Ptr DOMDocumentFragment
result
DOMDocumentFragment
result' <- ((ManagedPtr DOMDocumentFragment -> DOMDocumentFragment)
-> Ptr DOMDocumentFragment -> IO DOMDocumentFragment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMDocumentFragment -> DOMDocumentFragment
WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment) Ptr DOMDocumentFragment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMDocumentFragment -> IO DOMDocumentFragment
forall (m :: * -> *) a. Monad m => a -> m a
return DOMDocumentFragment
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeExtractContentsMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeExtractContentsMethodInfo a signature where
overloadedMethod = dOMRangeExtractContents
#endif
foreign import ccall "webkit_dom_range_get_collapsed" webkit_dom_range_get_collapsed ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED dOMRangeGetCollapsed ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetCollapsed ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m ()
dOMRangeGetCollapsed :: a -> m ()
dOMRangeGetCollapsed self :: a
self = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr (Ptr GError) -> IO CInt
webkit_dom_range_get_collapsed Ptr DOMRange
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeGetCollapsedMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetCollapsedMethodInfo a signature where
overloadedMethod = dOMRangeGetCollapsed
#endif
foreign import ccall "webkit_dom_range_get_common_ancestor_container" webkit_dom_range_get_common_ancestor_container ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMRangeGetCommonAncestorContainer ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetCommonAncestorContainer ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMRangeGetCommonAncestorContainer :: a -> m DOMNode
dOMRangeGetCommonAncestorContainer self :: a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO DOMNode -> IO () -> IO DOMNode
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMNode
result <- (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode))
-> (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_range_get_common_ancestor_container Ptr DOMRange
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMRangeGetCommonAncestorContainer" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeGetCommonAncestorContainerMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetCommonAncestorContainerMethodInfo a signature where
overloadedMethod = dOMRangeGetCommonAncestorContainer
#endif
foreign import ccall "webkit_dom_range_get_end_container" webkit_dom_range_get_end_container ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMRangeGetEndContainer ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetEndContainer ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMRangeGetEndContainer :: a -> m DOMNode
dOMRangeGetEndContainer self :: a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO DOMNode -> IO () -> IO DOMNode
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMNode
result <- (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode))
-> (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_range_get_end_container Ptr DOMRange
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMRangeGetEndContainer" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeGetEndContainerMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetEndContainerMethodInfo a signature where
overloadedMethod = dOMRangeGetEndContainer
#endif
foreign import ccall "webkit_dom_range_get_end_offset" webkit_dom_range_get_end_offset ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO CLong
{-# DEPRECATED dOMRangeGetEndOffset ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetEndOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m CLong
dOMRangeGetEndOffset :: a -> m CLong
dOMRangeGetEndOffset self :: a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO CLong -> IO () -> IO CLong
forall a b. IO a -> IO b -> IO a
onException (do
CLong
result <- (Ptr (Ptr GError) -> IO CLong) -> IO CLong
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CLong) -> IO CLong)
-> (Ptr (Ptr GError) -> IO CLong) -> IO CLong
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr (Ptr GError) -> IO CLong
webkit_dom_range_get_end_offset Ptr DOMRange
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeGetEndOffsetMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetEndOffsetMethodInfo a signature where
overloadedMethod = dOMRangeGetEndOffset
#endif
foreign import ccall "webkit_dom_range_get_start_container" webkit_dom_range_get_start_container ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMRangeGetStartContainer ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetStartContainer ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMRangeGetStartContainer :: a -> m DOMNode
dOMRangeGetStartContainer self :: a
self = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO DOMNode -> IO () -> IO DOMNode
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMNode
result <- (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode))
-> (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_range_get_start_container Ptr DOMRange
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMRangeGetStartContainer" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeGetStartContainerMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetStartContainerMethodInfo a signature where
overloadedMethod = dOMRangeGetStartContainer
#endif
foreign import ccall "webkit_dom_range_get_start_offset" webkit_dom_range_get_start_offset ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO CLong
{-# DEPRECATED dOMRangeGetStartOffset ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetStartOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m CLong
dOMRangeGetStartOffset :: a -> m CLong
dOMRangeGetStartOffset self :: a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO CLong -> IO () -> IO CLong
forall a b. IO a -> IO b -> IO a
onException (do
CLong
result <- (Ptr (Ptr GError) -> IO CLong) -> IO CLong
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CLong) -> IO CLong)
-> (Ptr (Ptr GError) -> IO CLong) -> IO CLong
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr (Ptr GError) -> IO CLong
webkit_dom_range_get_start_offset Ptr DOMRange
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeGetStartOffsetMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetStartOffsetMethodInfo a signature where
overloadedMethod = dOMRangeGetStartOffset
#endif
foreign import ccall "webkit_dom_range_get_text" webkit_dom_range_get_text ::
Ptr DOMRange ->
IO CString
{-# DEPRECATED dOMRangeGetText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m T.Text
dOMRangeGetText :: a -> m Text
dOMRangeGetText self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMRange -> IO CString
webkit_dom_range_get_text Ptr DOMRange
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMRangeGetText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMRangeGetTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetTextMethodInfo a signature where
overloadedMethod = dOMRangeGetText
#endif
foreign import ccall "webkit_dom_range_insert_node" webkit_dom_range_insert_node ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeInsertNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeInsertNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeInsertNode :: a -> b -> m ()
dOMRangeInsertNode self :: a
self newNode :: b
newNode = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
newNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
newNode
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_insert_node Ptr DOMRange
self' Ptr DOMNode
newNode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
newNode
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeInsertNodeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeInsertNodeMethodInfo a signature where
overloadedMethod = dOMRangeInsertNode
#endif
foreign import ccall "webkit_dom_range_intersects_node" webkit_dom_range_intersects_node ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED dOMRangeIntersectsNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeIntersectsNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeIntersectsNode :: a -> b -> m ()
dOMRangeIntersectsNode self :: a
self refNode :: b
refNode = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
refNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
refNode
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> Ptr (Ptr GError) -> IO CInt
webkit_dom_range_intersects_node Ptr DOMRange
self' Ptr DOMNode
refNode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
refNode
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeIntersectsNodeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeIntersectsNodeMethodInfo a signature where
overloadedMethod = dOMRangeIntersectsNode
#endif
foreign import ccall "webkit_dom_range_is_point_in_range" webkit_dom_range_is_point_in_range ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CLong ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED dOMRangeIsPointInRange ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeIsPointInRange ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> CLong
-> m ()
dOMRangeIsPointInRange :: a -> b -> CLong -> m ()
dOMRangeIsPointInRange self :: a
self refNode :: b
refNode offset :: CLong
offset = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
refNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
refNode
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> CLong -> Ptr (Ptr GError) -> IO CInt
webkit_dom_range_is_point_in_range Ptr DOMRange
self' Ptr DOMNode
refNode' CLong
offset
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
refNode
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeIsPointInRangeMethodInfo
instance (signature ~ (b -> CLong -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeIsPointInRangeMethodInfo a signature where
overloadedMethod = dOMRangeIsPointInRange
#endif
foreign import ccall "webkit_dom_range_select_node" webkit_dom_range_select_node ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSelectNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSelectNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSelectNode :: a -> b -> m ()
dOMRangeSelectNode self :: a
self refNode :: b
refNode = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
refNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
refNode
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_select_node Ptr DOMRange
self' Ptr DOMNode
refNode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
refNode
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeSelectNodeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSelectNodeMethodInfo a signature where
overloadedMethod = dOMRangeSelectNode
#endif
foreign import ccall "webkit_dom_range_select_node_contents" webkit_dom_range_select_node_contents ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSelectNodeContents ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSelectNodeContents ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSelectNodeContents :: a -> b -> m ()
dOMRangeSelectNodeContents self :: a
self refNode :: b
refNode = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
refNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
refNode
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_select_node_contents Ptr DOMRange
self' Ptr DOMNode
refNode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
refNode
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeSelectNodeContentsMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSelectNodeContentsMethodInfo a signature where
overloadedMethod = dOMRangeSelectNodeContents
#endif
foreign import ccall "webkit_dom_range_set_end" webkit_dom_range_set_end ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CLong ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSetEnd ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSetEnd ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> CLong
-> m ()
dOMRangeSetEnd :: a -> b -> CLong -> m ()
dOMRangeSetEnd self :: a
self refNode :: b
refNode offset :: CLong
offset = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
refNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
refNode
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> CLong -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_set_end Ptr DOMRange
self' Ptr DOMNode
refNode' CLong
offset
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
refNode
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeSetEndMethodInfo
instance (signature ~ (b -> CLong -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSetEndMethodInfo a signature where
overloadedMethod = dOMRangeSetEnd
#endif
foreign import ccall "webkit_dom_range_set_end_after" webkit_dom_range_set_end_after ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSetEndAfter ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSetEndAfter ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSetEndAfter :: a -> b -> m ()
dOMRangeSetEndAfter self :: a
self refNode :: b
refNode = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
refNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
refNode
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_set_end_after Ptr DOMRange
self' Ptr DOMNode
refNode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
refNode
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeSetEndAfterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSetEndAfterMethodInfo a signature where
overloadedMethod = dOMRangeSetEndAfter
#endif
foreign import ccall "webkit_dom_range_set_end_before" webkit_dom_range_set_end_before ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSetEndBefore ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSetEndBefore ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSetEndBefore :: a -> b -> m ()
dOMRangeSetEndBefore self :: a
self refNode :: b
refNode = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
refNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
refNode
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_set_end_before Ptr DOMRange
self' Ptr DOMNode
refNode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
refNode
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeSetEndBeforeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSetEndBeforeMethodInfo a signature where
overloadedMethod = dOMRangeSetEndBefore
#endif
foreign import ccall "webkit_dom_range_set_start" webkit_dom_range_set_start ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CLong ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSetStart ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSetStart ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> CLong
-> m ()
dOMRangeSetStart :: a -> b -> CLong -> m ()
dOMRangeSetStart self :: a
self refNode :: b
refNode offset :: CLong
offset = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
refNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
refNode
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> CLong -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_set_start Ptr DOMRange
self' Ptr DOMNode
refNode' CLong
offset
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
refNode
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeSetStartMethodInfo
instance (signature ~ (b -> CLong -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSetStartMethodInfo a signature where
overloadedMethod = dOMRangeSetStart
#endif
foreign import ccall "webkit_dom_range_set_start_after" webkit_dom_range_set_start_after ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSetStartAfter ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSetStartAfter ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSetStartAfter :: a -> b -> m ()
dOMRangeSetStartAfter self :: a
self refNode :: b
refNode = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
refNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
refNode
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_set_start_after Ptr DOMRange
self' Ptr DOMNode
refNode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
refNode
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeSetStartAfterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSetStartAfterMethodInfo a signature where
overloadedMethod = dOMRangeSetStartAfter
#endif
foreign import ccall "webkit_dom_range_set_start_before" webkit_dom_range_set_start_before ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSetStartBefore ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSetStartBefore ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSetStartBefore :: a -> b -> m ()
dOMRangeSetStartBefore self :: a
self refNode :: b
refNode = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
refNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
refNode
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_set_start_before Ptr DOMRange
self' Ptr DOMNode
refNode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
refNode
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeSetStartBeforeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSetStartBeforeMethodInfo a signature where
overloadedMethod = dOMRangeSetStartBefore
#endif
foreign import ccall "webkit_dom_range_surround_contents" webkit_dom_range_surround_contents ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSurroundContents ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSurroundContents ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSurroundContents :: a -> b -> m ()
dOMRangeSurroundContents self :: a
self newParent :: b
newParent = 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 DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
newParent' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
newParent
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr DOMNode -> Ptr (Ptr GError) -> IO ()
webkit_dom_range_surround_contents Ptr DOMRange
self' Ptr DOMNode
newParent'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
newParent
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeSurroundContentsMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSurroundContentsMethodInfo a signature where
overloadedMethod = dOMRangeSurroundContents
#endif
foreign import ccall "webkit_dom_range_to_string" webkit_dom_range_to_string ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO CString
{-# DEPRECATED dOMRangeToString ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeToString ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m T.Text
dOMRangeToString :: a -> m Text
dOMRangeToString self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMRange
self' <- a -> IO (Ptr DOMRange)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO Text -> IO () -> IO Text
forall a b. IO a -> IO b -> IO a
onException (do
CString
result <- (Ptr (Ptr GError) -> IO CString) -> IO CString
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CString) -> IO CString)
-> (Ptr (Ptr GError) -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ Ptr DOMRange -> Ptr (Ptr GError) -> IO CString
webkit_dom_range_to_string Ptr DOMRange
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMRangeToString" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMRangeToStringMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeToStringMethodInfo a signature where
overloadedMethod = dOMRangeToString
#endif