{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMCharacterData
(
DOMCharacterData(..) ,
IsDOMCharacterData ,
toDOMCharacterData ,
noDOMCharacterData ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMCharacterDataMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMCharacterDataAppendDataMethodInfo ,
#endif
dOMCharacterDataAppendData ,
#if defined(ENABLE_OVERLOADING)
DOMCharacterDataDeleteDataMethodInfo ,
#endif
dOMCharacterDataDeleteData ,
#if defined(ENABLE_OVERLOADING)
DOMCharacterDataGetDataMethodInfo ,
#endif
dOMCharacterDataGetData ,
#if defined(ENABLE_OVERLOADING)
DOMCharacterDataGetLengthMethodInfo ,
#endif
dOMCharacterDataGetLength ,
#if defined(ENABLE_OVERLOADING)
DOMCharacterDataInsertDataMethodInfo ,
#endif
dOMCharacterDataInsertData ,
#if defined(ENABLE_OVERLOADING)
DOMCharacterDataReplaceDataMethodInfo ,
#endif
dOMCharacterDataReplaceData ,
#if defined(ENABLE_OVERLOADING)
DOMCharacterDataSetDataMethodInfo ,
#endif
dOMCharacterDataSetData ,
#if defined(ENABLE_OVERLOADING)
DOMCharacterDataSubstringDataMethodInfo ,
#endif
dOMCharacterDataSubstringData ,
#if defined(ENABLE_OVERLOADING)
DOMCharacterDataDataPropertyInfo ,
#endif
clearDOMCharacterDataData ,
constructDOMCharacterDataData ,
#if defined(ENABLE_OVERLOADING)
dOMCharacterDataData ,
#endif
getDOMCharacterDataData ,
setDOMCharacterDataData ,
#if defined(ENABLE_OVERLOADING)
DOMCharacterDataLengthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMCharacterDataLength ,
#endif
getDOMCharacterDataLength ,
) 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.Interfaces.DOMEventTarget as WebKit2WebExtension.DOMEventTarget
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMCharacterData = DOMCharacterData (ManagedPtr DOMCharacterData)
deriving (DOMCharacterData -> DOMCharacterData -> Bool
(DOMCharacterData -> DOMCharacterData -> Bool)
-> (DOMCharacterData -> DOMCharacterData -> Bool)
-> Eq DOMCharacterData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMCharacterData -> DOMCharacterData -> Bool
$c/= :: DOMCharacterData -> DOMCharacterData -> Bool
== :: DOMCharacterData -> DOMCharacterData -> Bool
$c== :: DOMCharacterData -> DOMCharacterData -> Bool
Eq)
foreign import ccall "webkit_dom_character_data_get_type"
c_webkit_dom_character_data_get_type :: IO GType
instance GObject DOMCharacterData where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_dom_character_data_get_type
instance B.GValue.IsGValue DOMCharacterData where
toGValue :: DOMCharacterData -> IO GValue
toGValue o :: DOMCharacterData
o = do
GType
gtype <- IO GType
c_webkit_dom_character_data_get_type
DOMCharacterData
-> (Ptr DOMCharacterData -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMCharacterData
o (GType
-> (GValue -> Ptr DOMCharacterData -> IO ())
-> Ptr DOMCharacterData
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DOMCharacterData -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO DOMCharacterData
fromGValue gv :: GValue
gv = do
Ptr DOMCharacterData
ptr <- GValue -> IO (Ptr DOMCharacterData)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DOMCharacterData)
(ManagedPtr DOMCharacterData -> DOMCharacterData)
-> Ptr DOMCharacterData -> IO DOMCharacterData
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMCharacterData -> DOMCharacterData
DOMCharacterData Ptr DOMCharacterData
ptr
class (GObject o, O.IsDescendantOf DOMCharacterData o) => IsDOMCharacterData o
instance (GObject o, O.IsDescendantOf DOMCharacterData o) => IsDOMCharacterData o
instance O.HasParentTypes DOMCharacterData
type instance O.ParentTypes DOMCharacterData = '[WebKit2WebExtension.DOMNode.DOMNode, WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object, WebKit2WebExtension.DOMEventTarget.DOMEventTarget]
toDOMCharacterData :: (MonadIO m, IsDOMCharacterData o) => o -> m DOMCharacterData
toDOMCharacterData :: o -> m DOMCharacterData
toDOMCharacterData = IO DOMCharacterData -> m DOMCharacterData
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMCharacterData -> m DOMCharacterData)
-> (o -> IO DOMCharacterData) -> o -> m DOMCharacterData
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMCharacterData -> DOMCharacterData)
-> o -> IO DOMCharacterData
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DOMCharacterData -> DOMCharacterData
DOMCharacterData
noDOMCharacterData :: Maybe DOMCharacterData
noDOMCharacterData :: Maybe DOMCharacterData
noDOMCharacterData = Maybe DOMCharacterData
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMCharacterDataMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMCharacterDataMethod "addEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetAddEventListenerMethodInfo
ResolveDOMCharacterDataMethod "appendChild" o = WebKit2WebExtension.DOMNode.DOMNodeAppendChildMethodInfo
ResolveDOMCharacterDataMethod "appendData" o = DOMCharacterDataAppendDataMethodInfo
ResolveDOMCharacterDataMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMCharacterDataMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMCharacterDataMethod "cloneNodeWithError" o = WebKit2WebExtension.DOMNode.DOMNodeCloneNodeWithErrorMethodInfo
ResolveDOMCharacterDataMethod "compareDocumentPosition" o = WebKit2WebExtension.DOMNode.DOMNodeCompareDocumentPositionMethodInfo
ResolveDOMCharacterDataMethod "contains" o = WebKit2WebExtension.DOMNode.DOMNodeContainsMethodInfo
ResolveDOMCharacterDataMethod "deleteData" o = DOMCharacterDataDeleteDataMethodInfo
ResolveDOMCharacterDataMethod "dispatchEvent" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetDispatchEventMethodInfo
ResolveDOMCharacterDataMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMCharacterDataMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMCharacterDataMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMCharacterDataMethod "hasChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeHasChildNodesMethodInfo
ResolveDOMCharacterDataMethod "insertBefore" o = WebKit2WebExtension.DOMNode.DOMNodeInsertBeforeMethodInfo
ResolveDOMCharacterDataMethod "insertData" o = DOMCharacterDataInsertDataMethodInfo
ResolveDOMCharacterDataMethod "isDefaultNamespace" o = WebKit2WebExtension.DOMNode.DOMNodeIsDefaultNamespaceMethodInfo
ResolveDOMCharacterDataMethod "isEqualNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsEqualNodeMethodInfo
ResolveDOMCharacterDataMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMCharacterDataMethod "isSameNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsSameNodeMethodInfo
ResolveDOMCharacterDataMethod "isSupported" o = WebKit2WebExtension.DOMNode.DOMNodeIsSupportedMethodInfo
ResolveDOMCharacterDataMethod "lookupNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeLookupNamespaceUriMethodInfo
ResolveDOMCharacterDataMethod "lookupPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeLookupPrefixMethodInfo
ResolveDOMCharacterDataMethod "normalize" o = WebKit2WebExtension.DOMNode.DOMNodeNormalizeMethodInfo
ResolveDOMCharacterDataMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMCharacterDataMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMCharacterDataMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMCharacterDataMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMCharacterDataMethod "removeChild" o = WebKit2WebExtension.DOMNode.DOMNodeRemoveChildMethodInfo
ResolveDOMCharacterDataMethod "removeEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMCharacterDataMethod "replaceChild" o = WebKit2WebExtension.DOMNode.DOMNodeReplaceChildMethodInfo
ResolveDOMCharacterDataMethod "replaceData" o = DOMCharacterDataReplaceDataMethodInfo
ResolveDOMCharacterDataMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMCharacterDataMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMCharacterDataMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMCharacterDataMethod "substringData" o = DOMCharacterDataSubstringDataMethodInfo
ResolveDOMCharacterDataMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMCharacterDataMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMCharacterDataMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMCharacterDataMethod "getBaseUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetBaseUriMethodInfo
ResolveDOMCharacterDataMethod "getChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeGetChildNodesMethodInfo
ResolveDOMCharacterDataMethod "getData" o = DOMCharacterDataGetDataMethodInfo
ResolveDOMCharacterDataMethod "getFirstChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetFirstChildMethodInfo
ResolveDOMCharacterDataMethod "getLastChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetLastChildMethodInfo
ResolveDOMCharacterDataMethod "getLength" o = DOMCharacterDataGetLengthMethodInfo
ResolveDOMCharacterDataMethod "getLocalName" o = WebKit2WebExtension.DOMNode.DOMNodeGetLocalNameMethodInfo
ResolveDOMCharacterDataMethod "getNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetNamespaceUriMethodInfo
ResolveDOMCharacterDataMethod "getNextSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetNextSiblingMethodInfo
ResolveDOMCharacterDataMethod "getNodeName" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeNameMethodInfo
ResolveDOMCharacterDataMethod "getNodeType" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeTypeMethodInfo
ResolveDOMCharacterDataMethod "getNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeValueMethodInfo
ResolveDOMCharacterDataMethod "getOwnerDocument" o = WebKit2WebExtension.DOMNode.DOMNodeGetOwnerDocumentMethodInfo
ResolveDOMCharacterDataMethod "getParentElement" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentElementMethodInfo
ResolveDOMCharacterDataMethod "getParentNode" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentNodeMethodInfo
ResolveDOMCharacterDataMethod "getPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeGetPrefixMethodInfo
ResolveDOMCharacterDataMethod "getPreviousSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetPreviousSiblingMethodInfo
ResolveDOMCharacterDataMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMCharacterDataMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMCharacterDataMethod "getTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeGetTextContentMethodInfo
ResolveDOMCharacterDataMethod "setData" o = DOMCharacterDataSetDataMethodInfo
ResolveDOMCharacterDataMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMCharacterDataMethod "setNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeSetNodeValueMethodInfo
ResolveDOMCharacterDataMethod "setPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeSetPrefixMethodInfo
ResolveDOMCharacterDataMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMCharacterDataMethod "setTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeSetTextContentMethodInfo
ResolveDOMCharacterDataMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMCharacterDataMethod t DOMCharacterData, O.MethodInfo info DOMCharacterData p) => OL.IsLabel t (DOMCharacterData -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getDOMCharacterDataData :: (MonadIO m, IsDOMCharacterData o) => o -> m (Maybe T.Text)
getDOMCharacterDataData :: o -> m (Maybe Text)
getDOMCharacterDataData 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 "data"
setDOMCharacterDataData :: (MonadIO m, IsDOMCharacterData o) => o -> T.Text -> m ()
setDOMCharacterDataData :: o -> Text -> m ()
setDOMCharacterDataData obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "data" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMCharacterDataData :: (IsDOMCharacterData o) => T.Text -> IO (GValueConstruct o)
constructDOMCharacterDataData :: Text -> IO (GValueConstruct o)
constructDOMCharacterDataData val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "data" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearDOMCharacterDataData :: (MonadIO m, IsDOMCharacterData o) => o -> m ()
clearDOMCharacterDataData :: o -> m ()
clearDOMCharacterDataData obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "data" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DOMCharacterDataDataPropertyInfo
instance AttrInfo DOMCharacterDataDataPropertyInfo where
type AttrAllowedOps DOMCharacterDataDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMCharacterDataDataPropertyInfo = IsDOMCharacterData
type AttrSetTypeConstraint DOMCharacterDataDataPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMCharacterDataDataPropertyInfo = (~) T.Text
type AttrTransferType DOMCharacterDataDataPropertyInfo = T.Text
type AttrGetType DOMCharacterDataDataPropertyInfo = (Maybe T.Text)
type AttrLabel DOMCharacterDataDataPropertyInfo = "data"
type AttrOrigin DOMCharacterDataDataPropertyInfo = DOMCharacterData
attrGet = getDOMCharacterDataData
attrSet = setDOMCharacterDataData
attrTransfer _ v = do
return v
attrConstruct = constructDOMCharacterDataData
attrClear = clearDOMCharacterDataData
#endif
getDOMCharacterDataLength :: (MonadIO m, IsDOMCharacterData o) => o -> m CULong
getDOMCharacterDataLength :: o -> m CULong
getDOMCharacterDataLength obj :: o
obj = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CULong
forall a. GObject a => a -> String -> IO CULong
B.Properties.getObjectPropertyULong o
obj "length"
#if defined(ENABLE_OVERLOADING)
data DOMCharacterDataLengthPropertyInfo
instance AttrInfo DOMCharacterDataLengthPropertyInfo where
type AttrAllowedOps DOMCharacterDataLengthPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMCharacterDataLengthPropertyInfo = IsDOMCharacterData
type AttrSetTypeConstraint DOMCharacterDataLengthPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMCharacterDataLengthPropertyInfo = (~) ()
type AttrTransferType DOMCharacterDataLengthPropertyInfo = ()
type AttrGetType DOMCharacterDataLengthPropertyInfo = CULong
type AttrLabel DOMCharacterDataLengthPropertyInfo = "length"
type AttrOrigin DOMCharacterDataLengthPropertyInfo = DOMCharacterData
attrGet = getDOMCharacterDataLength
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMCharacterData
type instance O.AttributeList DOMCharacterData = DOMCharacterDataAttributeList
type DOMCharacterDataAttributeList = ('[ '("baseUri", WebKit2WebExtension.DOMNode.DOMNodeBaseUriPropertyInfo), '("childNodes", WebKit2WebExtension.DOMNode.DOMNodeChildNodesPropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", WebKit2WebExtension.DOMNode.DOMNodeFirstChildPropertyInfo), '("lastChild", WebKit2WebExtension.DOMNode.DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("nextSibling", WebKit2WebExtension.DOMNode.DOMNodeNextSiblingPropertyInfo), '("nodeName", WebKit2WebExtension.DOMNode.DOMNodeNodeNamePropertyInfo), '("nodeType", WebKit2WebExtension.DOMNode.DOMNodeNodeTypePropertyInfo), '("nodeValue", WebKit2WebExtension.DOMNode.DOMNodeNodeValuePropertyInfo), '("ownerDocument", WebKit2WebExtension.DOMNode.DOMNodeOwnerDocumentPropertyInfo), '("parentElement", WebKit2WebExtension.DOMNode.DOMNodeParentElementPropertyInfo), '("parentNode", WebKit2WebExtension.DOMNode.DOMNodeParentNodePropertyInfo), '("previousSibling", WebKit2WebExtension.DOMNode.DOMNodePreviousSiblingPropertyInfo), '("textContent", WebKit2WebExtension.DOMNode.DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMCharacterDataData :: AttrLabelProxy "data"
dOMCharacterDataData = AttrLabelProxy
dOMCharacterDataLength :: AttrLabelProxy "length"
dOMCharacterDataLength = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMCharacterData = DOMCharacterDataSignalList
type DOMCharacterDataSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_character_data_append_data" webkit_dom_character_data_append_data ::
Ptr DOMCharacterData ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMCharacterDataAppendData ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCharacterDataAppendData ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCharacterData a) =>
a
-> T.Text
-> m ()
dOMCharacterDataAppendData :: a -> Text -> m ()
dOMCharacterDataAppendData self :: a
self data_ :: Text
data_ = 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 DOMCharacterData
self' <- a -> IO (Ptr DOMCharacterData)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
data_' <- Text -> IO CString
textToCString Text
data_
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 DOMCharacterData -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_character_data_append_data Ptr DOMCharacterData
self' CString
data_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
data_'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
data_'
)
#if defined(ENABLE_OVERLOADING)
data DOMCharacterDataAppendDataMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMCharacterData a) => O.MethodInfo DOMCharacterDataAppendDataMethodInfo a signature where
overloadedMethod = dOMCharacterDataAppendData
#endif
foreign import ccall "webkit_dom_character_data_delete_data" webkit_dom_character_data_delete_data ::
Ptr DOMCharacterData ->
CULong ->
CULong ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMCharacterDataDeleteData ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCharacterDataDeleteData ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCharacterData a) =>
a
-> CULong
-> CULong
-> m ()
dOMCharacterDataDeleteData :: a -> CULong -> CULong -> m ()
dOMCharacterDataDeleteData self :: a
self offset :: CULong
offset length_ :: CULong
length_ = 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 DOMCharacterData
self' <- a -> IO (Ptr DOMCharacterData)
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 DOMCharacterData
-> CULong -> CULong -> Ptr (Ptr GError) -> IO ()
webkit_dom_character_data_delete_data Ptr DOMCharacterData
self' CULong
offset CULong
length_
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 DOMCharacterDataDeleteDataMethodInfo
instance (signature ~ (CULong -> CULong -> m ()), MonadIO m, IsDOMCharacterData a) => O.MethodInfo DOMCharacterDataDeleteDataMethodInfo a signature where
overloadedMethod = dOMCharacterDataDeleteData
#endif
foreign import ccall "webkit_dom_character_data_get_data" webkit_dom_character_data_get_data ::
Ptr DOMCharacterData ->
IO CString
{-# DEPRECATED dOMCharacterDataGetData ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCharacterDataGetData ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCharacterData a) =>
a
-> m T.Text
dOMCharacterDataGetData :: a -> m Text
dOMCharacterDataGetData 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 DOMCharacterData
self' <- a -> IO (Ptr DOMCharacterData)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMCharacterData -> IO CString
webkit_dom_character_data_get_data Ptr DOMCharacterData
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMCharacterDataGetData" 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 DOMCharacterDataGetDataMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMCharacterData a) => O.MethodInfo DOMCharacterDataGetDataMethodInfo a signature where
overloadedMethod = dOMCharacterDataGetData
#endif
foreign import ccall "webkit_dom_character_data_get_length" webkit_dom_character_data_get_length ::
Ptr DOMCharacterData ->
IO CULong
{-# DEPRECATED dOMCharacterDataGetLength ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCharacterDataGetLength ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCharacterData a) =>
a
-> m CULong
dOMCharacterDataGetLength :: a -> m CULong
dOMCharacterDataGetLength self :: a
self = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMCharacterData
self' <- a -> IO (Ptr DOMCharacterData)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CULong
result <- Ptr DOMCharacterData -> IO CULong
webkit_dom_character_data_get_length Ptr DOMCharacterData
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
#if defined(ENABLE_OVERLOADING)
data DOMCharacterDataGetLengthMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMCharacterData a) => O.MethodInfo DOMCharacterDataGetLengthMethodInfo a signature where
overloadedMethod = dOMCharacterDataGetLength
#endif
foreign import ccall "webkit_dom_character_data_insert_data" webkit_dom_character_data_insert_data ::
Ptr DOMCharacterData ->
CULong ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMCharacterDataInsertData ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCharacterDataInsertData ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCharacterData a) =>
a
-> CULong
-> T.Text
-> m ()
dOMCharacterDataInsertData :: a -> CULong -> Text -> m ()
dOMCharacterDataInsertData self :: a
self offset :: CULong
offset data_ :: Text
data_ = 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 DOMCharacterData
self' <- a -> IO (Ptr DOMCharacterData)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
data_' <- Text -> IO CString
textToCString Text
data_
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 DOMCharacterData
-> CULong -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_character_data_insert_data Ptr DOMCharacterData
self' CULong
offset CString
data_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
data_'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
data_'
)
#if defined(ENABLE_OVERLOADING)
data DOMCharacterDataInsertDataMethodInfo
instance (signature ~ (CULong -> T.Text -> m ()), MonadIO m, IsDOMCharacterData a) => O.MethodInfo DOMCharacterDataInsertDataMethodInfo a signature where
overloadedMethod = dOMCharacterDataInsertData
#endif
foreign import ccall "webkit_dom_character_data_replace_data" webkit_dom_character_data_replace_data ::
Ptr DOMCharacterData ->
CULong ->
CULong ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMCharacterDataReplaceData ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCharacterDataReplaceData ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCharacterData a) =>
a
-> CULong
-> CULong
-> T.Text
-> m ()
dOMCharacterDataReplaceData :: a -> CULong -> CULong -> Text -> m ()
dOMCharacterDataReplaceData self :: a
self offset :: CULong
offset length_ :: CULong
length_ data_ :: Text
data_ = 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 DOMCharacterData
self' <- a -> IO (Ptr DOMCharacterData)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
data_' <- Text -> IO CString
textToCString Text
data_
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 DOMCharacterData
-> CULong -> CULong -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_character_data_replace_data Ptr DOMCharacterData
self' CULong
offset CULong
length_ CString
data_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
data_'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
data_'
)
#if defined(ENABLE_OVERLOADING)
data DOMCharacterDataReplaceDataMethodInfo
instance (signature ~ (CULong -> CULong -> T.Text -> m ()), MonadIO m, IsDOMCharacterData a) => O.MethodInfo DOMCharacterDataReplaceDataMethodInfo a signature where
overloadedMethod = dOMCharacterDataReplaceData
#endif
foreign import ccall "webkit_dom_character_data_set_data" webkit_dom_character_data_set_data ::
Ptr DOMCharacterData ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMCharacterDataSetData ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCharacterDataSetData ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCharacterData a) =>
a
-> T.Text
-> m ()
dOMCharacterDataSetData :: a -> Text -> m ()
dOMCharacterDataSetData self :: a
self value :: Text
value = 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 DOMCharacterData
self' <- a -> IO (Ptr DOMCharacterData)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
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 DOMCharacterData -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_character_data_set_data Ptr DOMCharacterData
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
)
#if defined(ENABLE_OVERLOADING)
data DOMCharacterDataSetDataMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMCharacterData a) => O.MethodInfo DOMCharacterDataSetDataMethodInfo a signature where
overloadedMethod = dOMCharacterDataSetData
#endif
foreign import ccall "webkit_dom_character_data_substring_data" webkit_dom_character_data_substring_data ::
Ptr DOMCharacterData ->
CULong ->
CULong ->
Ptr (Ptr GError) ->
IO CString
{-# DEPRECATED dOMCharacterDataSubstringData ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCharacterDataSubstringData ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCharacterData a) =>
a
-> CULong
-> CULong
-> m T.Text
dOMCharacterDataSubstringData :: a -> CULong -> CULong -> m Text
dOMCharacterDataSubstringData self :: a
self offset :: CULong
offset length_ :: CULong
length_ = 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 DOMCharacterData
self' <- a -> IO (Ptr DOMCharacterData)
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 DOMCharacterData
-> CULong -> CULong -> Ptr (Ptr GError) -> IO CString
webkit_dom_character_data_substring_data Ptr DOMCharacterData
self' CULong
offset CULong
length_
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMCharacterDataSubstringData" 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 DOMCharacterDataSubstringDataMethodInfo
instance (signature ~ (CULong -> CULong -> m T.Text), MonadIO m, IsDOMCharacterData a) => O.MethodInfo DOMCharacterDataSubstringDataMethodInfo a signature where
overloadedMethod = dOMCharacterDataSubstringData
#endif