{- | 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.DOMText ( -- * Exported types DOMText(..) , DOMTextK , toDOMText , noDOMText , -- * Methods -- ** dOMTextGetWholeText DOMTextGetWholeTextMethodInfo , dOMTextGetWholeText , -- ** dOMTextReplaceWholeText DOMTextReplaceWholeTextMethodInfo , dOMTextReplaceWholeText , -- ** dOMTextSplitText DOMTextSplitTextMethodInfo , dOMTextSplitText , -- * Properties -- ** WholeText DOMTextWholeTextPropertyInfo , getDOMTextWholeText , ) 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 DOMText = DOMText (ForeignPtr DOMText) foreign import ccall "webkit_dom_text_get_type" c_webkit_dom_text_get_type :: IO GType type instance ParentTypes DOMText = DOMTextParentTypes type DOMTextParentTypes = '[DOMCharacterData, DOMNode, DOMObject, GObject.Object, DOMEventTarget] instance GObject DOMText where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_webkit_dom_text_get_type class GObject o => DOMTextK o instance (GObject o, IsDescendantOf DOMText o) => DOMTextK o toDOMText :: DOMTextK o => o -> IO DOMText toDOMText = unsafeCastTo DOMText noDOMText :: Maybe DOMText noDOMText = Nothing type family ResolveDOMTextMethod (t :: Symbol) (o :: *) :: * where ResolveDOMTextMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo ResolveDOMTextMethod "appendChild" o = DOMNodeAppendChildMethodInfo ResolveDOMTextMethod "appendData" o = DOMCharacterDataAppendDataMethodInfo ResolveDOMTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo ResolveDOMTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo ResolveDOMTextMethod "cloneNode" o = DOMNodeCloneNodeMethodInfo ResolveDOMTextMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo ResolveDOMTextMethod "contains" o = DOMNodeContainsMethodInfo ResolveDOMTextMethod "deleteData" o = DOMCharacterDataDeleteDataMethodInfo ResolveDOMTextMethod "dispatchEvent" o = DOMEventTargetDispatchEventMethodInfo ResolveDOMTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo ResolveDOMTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo ResolveDOMTextMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo ResolveDOMTextMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo ResolveDOMTextMethod "insertData" o = DOMCharacterDataInsertDataMethodInfo ResolveDOMTextMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo ResolveDOMTextMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo ResolveDOMTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo ResolveDOMTextMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo ResolveDOMTextMethod "isSupported" o = DOMNodeIsSupportedMethodInfo ResolveDOMTextMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo ResolveDOMTextMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo ResolveDOMTextMethod "normalize" o = DOMNodeNormalizeMethodInfo ResolveDOMTextMethod "notify" o = GObject.ObjectNotifyMethodInfo ResolveDOMTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo ResolveDOMTextMethod "ref" o = GObject.ObjectRefMethodInfo ResolveDOMTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo ResolveDOMTextMethod "removeChild" o = DOMNodeRemoveChildMethodInfo ResolveDOMTextMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo ResolveDOMTextMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo ResolveDOMTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo ResolveDOMTextMethod "replaceWholeText" o = DOMTextReplaceWholeTextMethodInfo ResolveDOMTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo ResolveDOMTextMethod "splitText" o = DOMTextSplitTextMethodInfo ResolveDOMTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo ResolveDOMTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo ResolveDOMTextMethod "substringData" o = DOMCharacterDataSubstringDataMethodInfo ResolveDOMTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo ResolveDOMTextMethod "unref" o = GObject.ObjectUnrefMethodInfo ResolveDOMTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo ResolveDOMTextMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo ResolveDOMTextMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo ResolveDOMTextMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo ResolveDOMTextMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo ResolveDOMTextMethod "getLength" o = DOMCharacterDataGetLengthMethodInfo ResolveDOMTextMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo ResolveDOMTextMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo ResolveDOMTextMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo ResolveDOMTextMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo ResolveDOMTextMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo ResolveDOMTextMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo ResolveDOMTextMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo ResolveDOMTextMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo ResolveDOMTextMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo ResolveDOMTextMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo ResolveDOMTextMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo ResolveDOMTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo ResolveDOMTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo ResolveDOMTextMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo ResolveDOMTextMethod "getWholeText" o = DOMTextGetWholeTextMethodInfo ResolveDOMTextMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo ResolveDOMTextMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo ResolveDOMTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo ResolveDOMTextMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo ResolveDOMTextMethod l o = MethodResolutionFailed l o instance (info ~ ResolveDOMTextMethod t DOMText, MethodInfo info DOMText p) => IsLabelProxy t (DOMText -> p) where fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) #if MIN_VERSION_base(4,9,0) instance (info ~ ResolveDOMTextMethod t DOMText, MethodInfo info DOMText p) => IsLabel t (DOMText -> p) where fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) #endif -- VVV Prop "whole-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] getDOMTextWholeText :: (MonadIO m, DOMTextK o) => o -> m T.Text getDOMTextWholeText obj = liftIO $ getObjectPropertyString obj "whole-text" data DOMTextWholeTextPropertyInfo instance AttrInfo DOMTextWholeTextPropertyInfo where type AttrAllowedOps DOMTextWholeTextPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTextWholeTextPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTextWholeTextPropertyInfo = DOMTextK type AttrGetType DOMTextWholeTextPropertyInfo = T.Text type AttrLabel DOMTextWholeTextPropertyInfo = "whole-text" attrGet _ = getDOMTextWholeText attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList DOMText = DOMTextAttributeList type DOMTextAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("localName", DOMNodeLocalNamePropertyInfo), '("namespaceUri", DOMNodeNamespaceUriPropertyInfo), '("nextElementSibling", DOMCharacterDataNextElementSiblingPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previousElementSibling", DOMCharacterDataPreviousElementSiblingPropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo), '("wholeText", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)]) type instance SignalList DOMText = DOMTextSignalList type DOMTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMText::get_whole_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_text_get_whole_text" webkit_dom_text_get_whole_text :: Ptr DOMText -> -- _obj : TInterface "WebKit2WebExtension" "DOMText" IO CString dOMTextGetWholeText :: (MonadIO m, DOMTextK a) => a -- _obj -> m T.Text -- result dOMTextGetWholeText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_text_get_whole_text _obj' checkUnexpectedReturnNULL "webkit_dom_text_get_whole_text" result result' <- cstringToText result freeMem result touchManagedPtr _obj return result' data DOMTextGetWholeTextMethodInfo instance (signature ~ (m T.Text), MonadIO m, DOMTextK a) => MethodInfo DOMTextGetWholeTextMethodInfo a signature where overloadedMethod _ = dOMTextGetWholeText -- method DOMText::replace_whole_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "WebKit2WebExtension" "DOMText" -- throws : True -- Skip return : False foreign import ccall "webkit_dom_text_replace_whole_text" webkit_dom_text_replace_whole_text :: Ptr DOMText -> -- _obj : TInterface "WebKit2WebExtension" "DOMText" CString -> -- content : TBasicType TUTF8 Ptr (Ptr GError) -> -- error IO (Ptr DOMText) dOMTextReplaceWholeText :: (MonadIO m, DOMTextK a) => a -- _obj -> T.Text -- content -> m DOMText -- result dOMTextReplaceWholeText _obj content = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj content' <- textToCString content onException (do result <- propagateGError $ webkit_dom_text_replace_whole_text _obj' content' checkUnexpectedReturnNULL "webkit_dom_text_replace_whole_text" result result' <- (newObject DOMText) result touchManagedPtr _obj freeMem content' return result' ) (do freeMem content' ) data DOMTextReplaceWholeTextMethodInfo instance (signature ~ (T.Text -> m DOMText), MonadIO m, DOMTextK a) => MethodInfo DOMTextReplaceWholeTextMethodInfo a signature where overloadedMethod _ = dOMTextReplaceWholeText -- method DOMText::split_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : TInterface "WebKit2WebExtension" "DOMText" -- throws : True -- Skip return : False foreign import ccall "webkit_dom_text_split_text" webkit_dom_text_split_text :: Ptr DOMText -> -- _obj : TInterface "WebKit2WebExtension" "DOMText" Word64 -> -- offset : TBasicType TUInt64 Ptr (Ptr GError) -> -- error IO (Ptr DOMText) dOMTextSplitText :: (MonadIO m, DOMTextK a) => a -- _obj -> Word64 -- offset -> m DOMText -- result dOMTextSplitText _obj offset = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do result <- propagateGError $ webkit_dom_text_split_text _obj' offset checkUnexpectedReturnNULL "webkit_dom_text_split_text" result result' <- (newObject DOMText) result touchManagedPtr _obj return result' ) (do return () ) data DOMTextSplitTextMethodInfo instance (signature ~ (Word64 -> m DOMText), MonadIO m, DOMTextK a) => MethodInfo DOMTextSplitTextMethodInfo a signature where overloadedMethod _ = dOMTextSplitText