gi-webkit2webextension-0.2.10.12: GI/WebKit2WebExtension/Objects/DOMCharacterData.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.WebKit2WebExtension.Objects.DOMCharacterData
(
-- * Exported types
DOMCharacterData(..) ,
DOMCharacterDataK ,
toDOMCharacterData ,
noDOMCharacterData ,
-- * Methods
-- ** dOMCharacterDataAppendData
dOMCharacterDataAppendData ,
-- ** dOMCharacterDataDeleteData
dOMCharacterDataDeleteData ,
-- ** dOMCharacterDataGetData
dOMCharacterDataGetData ,
-- ** dOMCharacterDataGetLength
dOMCharacterDataGetLength ,
-- ** dOMCharacterDataInsertData
dOMCharacterDataInsertData ,
-- ** dOMCharacterDataReplaceData
dOMCharacterDataReplaceData ,
-- ** dOMCharacterDataSetData
dOMCharacterDataSetData ,
-- ** dOMCharacterDataSubstringData
dOMCharacterDataSubstringData ,
-- * Properties
-- ** Data
DOMCharacterDataDataPropertyInfo ,
constructDOMCharacterDataData ,
getDOMCharacterDataData ,
setDOMCharacterDataData ,
-- ** Length
DOMCharacterDataLengthPropertyInfo ,
getDOMCharacterDataLength ,
-- ** NextElementSibling
DOMCharacterDataNextElementSiblingPropertyInfo,
getDOMCharacterDataNextElementSibling ,
-- ** PreviousElementSibling
DOMCharacterDataPreviousElementSiblingPropertyInfo,
getDOMCharacterDataPreviousElementSibling,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit2WebExtension.Types
import GI.WebKit2WebExtension.Callbacks
import qualified GI.GObject as GObject
newtype DOMCharacterData = DOMCharacterData (ForeignPtr DOMCharacterData)
foreign import ccall "webkit_dom_character_data_get_type"
c_webkit_dom_character_data_get_type :: IO GType
type instance ParentTypes DOMCharacterData = DOMCharacterDataParentTypes
type DOMCharacterDataParentTypes = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMCharacterData where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_character_data_get_type
class GObject o => DOMCharacterDataK o
instance (GObject o, IsDescendantOf DOMCharacterData o) => DOMCharacterDataK o
toDOMCharacterData :: DOMCharacterDataK o => o -> IO DOMCharacterData
toDOMCharacterData = unsafeCastTo DOMCharacterData
noDOMCharacterData :: Maybe DOMCharacterData
noDOMCharacterData = Nothing
-- VVV Prop "data"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> m T.Text
getDOMCharacterDataData obj = liftIO $ getObjectPropertyString obj "data"
setDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> T.Text -> m ()
setDOMCharacterDataData obj val = liftIO $ setObjectPropertyString obj "data" val
constructDOMCharacterDataData :: T.Text -> IO ([Char], GValue)
constructDOMCharacterDataData val = constructObjectPropertyString "data" val
data DOMCharacterDataDataPropertyInfo
instance AttrInfo DOMCharacterDataDataPropertyInfo where
type AttrAllowedOps DOMCharacterDataDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMCharacterDataDataPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMCharacterDataDataPropertyInfo = DOMCharacterDataK
type AttrGetType DOMCharacterDataDataPropertyInfo = T.Text
type AttrLabel DOMCharacterDataDataPropertyInfo = "DOMCharacterData::data"
attrGet _ = getDOMCharacterDataData
attrSet _ = setDOMCharacterDataData
attrConstruct _ = constructDOMCharacterDataData
-- VVV Prop "length"
-- Type: TBasicType TUInt64
-- Flags: [PropertyReadable]
getDOMCharacterDataLength :: (MonadIO m, DOMCharacterDataK o) => o -> m Word64
getDOMCharacterDataLength obj = liftIO $ getObjectPropertyUInt64 obj "length"
data DOMCharacterDataLengthPropertyInfo
instance AttrInfo DOMCharacterDataLengthPropertyInfo where
type AttrAllowedOps DOMCharacterDataLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMCharacterDataLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMCharacterDataLengthPropertyInfo = DOMCharacterDataK
type AttrGetType DOMCharacterDataLengthPropertyInfo = Word64
type AttrLabel DOMCharacterDataLengthPropertyInfo = "DOMCharacterData::length"
attrGet _ = getDOMCharacterDataLength
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "next-element-sibling"
-- Type: TInterface "WebKit2WebExtension" "DOMElement"
-- Flags: [PropertyReadable]
getDOMCharacterDataNextElementSibling :: (MonadIO m, DOMCharacterDataK o) => o -> m DOMElement
getDOMCharacterDataNextElementSibling obj = liftIO $ getObjectPropertyObject obj "next-element-sibling" DOMElement
data DOMCharacterDataNextElementSiblingPropertyInfo
instance AttrInfo DOMCharacterDataNextElementSiblingPropertyInfo where
type AttrAllowedOps DOMCharacterDataNextElementSiblingPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMCharacterDataNextElementSiblingPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMCharacterDataNextElementSiblingPropertyInfo = DOMCharacterDataK
type AttrGetType DOMCharacterDataNextElementSiblingPropertyInfo = DOMElement
type AttrLabel DOMCharacterDataNextElementSiblingPropertyInfo = "DOMCharacterData::next-element-sibling"
attrGet _ = getDOMCharacterDataNextElementSibling
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "previous-element-sibling"
-- Type: TInterface "WebKit2WebExtension" "DOMElement"
-- Flags: [PropertyReadable]
getDOMCharacterDataPreviousElementSibling :: (MonadIO m, DOMCharacterDataK o) => o -> m DOMElement
getDOMCharacterDataPreviousElementSibling obj = liftIO $ getObjectPropertyObject obj "previous-element-sibling" DOMElement
data DOMCharacterDataPreviousElementSiblingPropertyInfo
instance AttrInfo DOMCharacterDataPreviousElementSiblingPropertyInfo where
type AttrAllowedOps DOMCharacterDataPreviousElementSiblingPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMCharacterDataPreviousElementSiblingPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMCharacterDataPreviousElementSiblingPropertyInfo = DOMCharacterDataK
type AttrGetType DOMCharacterDataPreviousElementSiblingPropertyInfo = DOMElement
type AttrLabel DOMCharacterDataPreviousElementSiblingPropertyInfo = "DOMCharacterData::previous-element-sibling"
attrGet _ = getDOMCharacterDataPreviousElementSibling
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMCharacterData = DOMCharacterDataAttributeList
type DOMCharacterDataAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMCharacterData = DOMCharacterDataSignalList
type DOMCharacterDataSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method DOMCharacterData::append_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_character_data_append_data" webkit_dom_character_data_append_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit2WebExtension" "DOMCharacterData"
CString -> -- data : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMCharacterDataAppendData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
T.Text -> -- data
m ()
dOMCharacterDataAppendData _obj data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
data_' <- textToCString data_
onException (do
propagateGError $ webkit_dom_character_data_append_data _obj' data_'
touchManagedPtr _obj
freeMem data_'
return ()
) (do
freeMem data_'
)
-- method DOMCharacterData::delete_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_character_data_delete_data" webkit_dom_character_data_delete_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit2WebExtension" "DOMCharacterData"
Word64 -> -- offset : TBasicType TUInt64
Word64 -> -- length : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMCharacterDataDeleteData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
Word64 -> -- offset
Word64 -> -- length
m ()
dOMCharacterDataDeleteData _obj offset length_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_character_data_delete_data _obj' offset length_
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMCharacterData::get_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_character_data_get_data" webkit_dom_character_data_get_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit2WebExtension" "DOMCharacterData"
IO CString
dOMCharacterDataGetData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
m T.Text
dOMCharacterDataGetData _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_character_data_get_data _obj'
checkUnexpectedReturnNULL "webkit_dom_character_data_get_data" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMCharacterData::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_character_data_get_length" webkit_dom_character_data_get_length ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit2WebExtension" "DOMCharacterData"
IO Word64
dOMCharacterDataGetLength ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
m Word64
dOMCharacterDataGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_character_data_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMCharacterData::insert_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_character_data_insert_data" webkit_dom_character_data_insert_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit2WebExtension" "DOMCharacterData"
Word64 -> -- offset : TBasicType TUInt64
CString -> -- data : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMCharacterDataInsertData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
Word64 -> -- offset
T.Text -> -- data
m ()
dOMCharacterDataInsertData _obj offset data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
data_' <- textToCString data_
onException (do
propagateGError $ webkit_dom_character_data_insert_data _obj' offset data_'
touchManagedPtr _obj
freeMem data_'
return ()
) (do
freeMem data_'
)
-- method DOMCharacterData::replace_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_character_data_replace_data" webkit_dom_character_data_replace_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit2WebExtension" "DOMCharacterData"
Word64 -> -- offset : TBasicType TUInt64
Word64 -> -- length : TBasicType TUInt64
CString -> -- data : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMCharacterDataReplaceData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
Word64 -> -- offset
Word64 -> -- length
T.Text -> -- data
m ()
dOMCharacterDataReplaceData _obj offset length_ data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
data_' <- textToCString data_
onException (do
propagateGError $ webkit_dom_character_data_replace_data _obj' offset length_ data_'
touchManagedPtr _obj
freeMem data_'
return ()
) (do
freeMem data_'
)
-- method DOMCharacterData::set_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_character_data_set_data" webkit_dom_character_data_set_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit2WebExtension" "DOMCharacterData"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMCharacterDataSetData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMCharacterDataSetData _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_character_data_set_data _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMCharacterData::substring_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_character_data_substring_data" webkit_dom_character_data_substring_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit2WebExtension" "DOMCharacterData"
Word64 -> -- offset : TBasicType TUInt64
Word64 -> -- length : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO CString
dOMCharacterDataSubstringData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
Word64 -> -- offset
Word64 -> -- length
m T.Text
dOMCharacterDataSubstringData _obj offset length_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_character_data_substring_data _obj' offset length_
checkUnexpectedReturnNULL "webkit_dom_character_data_substring_data" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
) (do
return ()
)