{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMNamedNodeMap
(
DOMNamedNodeMap(..) ,
IsDOMNamedNodeMap ,
toDOMNamedNodeMap ,
noDOMNamedNodeMap ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMNamedNodeMapMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMNamedNodeMapGetLengthMethodInfo ,
#endif
dOMNamedNodeMapGetLength ,
#if defined(ENABLE_OVERLOADING)
DOMNamedNodeMapGetNamedItemMethodInfo ,
#endif
dOMNamedNodeMapGetNamedItem ,
#if defined(ENABLE_OVERLOADING)
DOMNamedNodeMapGetNamedItemNsMethodInfo ,
#endif
dOMNamedNodeMapGetNamedItemNs ,
#if defined(ENABLE_OVERLOADING)
DOMNamedNodeMapItemMethodInfo ,
#endif
dOMNamedNodeMapItem ,
#if defined(ENABLE_OVERLOADING)
DOMNamedNodeMapRemoveNamedItemMethodInfo,
#endif
dOMNamedNodeMapRemoveNamedItem ,
#if defined(ENABLE_OVERLOADING)
DOMNamedNodeMapRemoveNamedItemNsMethodInfo,
#endif
dOMNamedNodeMapRemoveNamedItemNs ,
#if defined(ENABLE_OVERLOADING)
DOMNamedNodeMapSetNamedItemMethodInfo ,
#endif
dOMNamedNodeMapSetNamedItem ,
#if defined(ENABLE_OVERLOADING)
DOMNamedNodeMapSetNamedItemNsMethodInfo ,
#endif
dOMNamedNodeMapSetNamedItemNs ,
#if defined(ENABLE_OVERLOADING)
DOMNamedNodeMapLengthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMNamedNodeMapLength ,
#endif
getDOMNamedNodeMapLength ,
) 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.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMNamedNodeMap = DOMNamedNodeMap (ManagedPtr DOMNamedNodeMap)
deriving (DOMNamedNodeMap -> DOMNamedNodeMap -> Bool
(DOMNamedNodeMap -> DOMNamedNodeMap -> Bool)
-> (DOMNamedNodeMap -> DOMNamedNodeMap -> Bool)
-> Eq DOMNamedNodeMap
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMNamedNodeMap -> DOMNamedNodeMap -> Bool
$c/= :: DOMNamedNodeMap -> DOMNamedNodeMap -> Bool
== :: DOMNamedNodeMap -> DOMNamedNodeMap -> Bool
$c== :: DOMNamedNodeMap -> DOMNamedNodeMap -> Bool
Eq)
foreign import ccall "webkit_dom_named_node_map_get_type"
c_webkit_dom_named_node_map_get_type :: IO GType
instance GObject DOMNamedNodeMap where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_dom_named_node_map_get_type
instance B.GValue.IsGValue DOMNamedNodeMap where
toGValue :: DOMNamedNodeMap -> IO GValue
toGValue o :: DOMNamedNodeMap
o = do
GType
gtype <- IO GType
c_webkit_dom_named_node_map_get_type
DOMNamedNodeMap -> (Ptr DOMNamedNodeMap -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMNamedNodeMap
o (GType
-> (GValue -> Ptr DOMNamedNodeMap -> IO ())
-> Ptr DOMNamedNodeMap
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DOMNamedNodeMap -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO DOMNamedNodeMap
fromGValue gv :: GValue
gv = do
Ptr DOMNamedNodeMap
ptr <- GValue -> IO (Ptr DOMNamedNodeMap)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DOMNamedNodeMap)
(ManagedPtr DOMNamedNodeMap -> DOMNamedNodeMap)
-> Ptr DOMNamedNodeMap -> IO DOMNamedNodeMap
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMNamedNodeMap -> DOMNamedNodeMap
DOMNamedNodeMap Ptr DOMNamedNodeMap
ptr
class (GObject o, O.IsDescendantOf DOMNamedNodeMap o) => IsDOMNamedNodeMap o
instance (GObject o, O.IsDescendantOf DOMNamedNodeMap o) => IsDOMNamedNodeMap o
instance O.HasParentTypes DOMNamedNodeMap
type instance O.ParentTypes DOMNamedNodeMap = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMNamedNodeMap :: (MonadIO m, IsDOMNamedNodeMap o) => o -> m DOMNamedNodeMap
toDOMNamedNodeMap :: o -> m DOMNamedNodeMap
toDOMNamedNodeMap = IO DOMNamedNodeMap -> m DOMNamedNodeMap
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNamedNodeMap -> m DOMNamedNodeMap)
-> (o -> IO DOMNamedNodeMap) -> o -> m DOMNamedNodeMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMNamedNodeMap -> DOMNamedNodeMap)
-> o -> IO DOMNamedNodeMap
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DOMNamedNodeMap -> DOMNamedNodeMap
DOMNamedNodeMap
noDOMNamedNodeMap :: Maybe DOMNamedNodeMap
noDOMNamedNodeMap :: Maybe DOMNamedNodeMap
noDOMNamedNodeMap = Maybe DOMNamedNodeMap
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMNamedNodeMapMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMNamedNodeMapMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMNamedNodeMapMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMNamedNodeMapMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMNamedNodeMapMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMNamedNodeMapMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMNamedNodeMapMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMNamedNodeMapMethod "item" o = DOMNamedNodeMapItemMethodInfo
ResolveDOMNamedNodeMapMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMNamedNodeMapMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMNamedNodeMapMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMNamedNodeMapMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMNamedNodeMapMethod "removeNamedItem" o = DOMNamedNodeMapRemoveNamedItemMethodInfo
ResolveDOMNamedNodeMapMethod "removeNamedItemNs" o = DOMNamedNodeMapRemoveNamedItemNsMethodInfo
ResolveDOMNamedNodeMapMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMNamedNodeMapMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMNamedNodeMapMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMNamedNodeMapMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMNamedNodeMapMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMNamedNodeMapMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMNamedNodeMapMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMNamedNodeMapMethod "getLength" o = DOMNamedNodeMapGetLengthMethodInfo
ResolveDOMNamedNodeMapMethod "getNamedItem" o = DOMNamedNodeMapGetNamedItemMethodInfo
ResolveDOMNamedNodeMapMethod "getNamedItemNs" o = DOMNamedNodeMapGetNamedItemNsMethodInfo
ResolveDOMNamedNodeMapMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMNamedNodeMapMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMNamedNodeMapMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMNamedNodeMapMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMNamedNodeMapMethod "setNamedItem" o = DOMNamedNodeMapSetNamedItemMethodInfo
ResolveDOMNamedNodeMapMethod "setNamedItemNs" o = DOMNamedNodeMapSetNamedItemNsMethodInfo
ResolveDOMNamedNodeMapMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMNamedNodeMapMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMNamedNodeMapMethod t DOMNamedNodeMap, O.MethodInfo info DOMNamedNodeMap p) => OL.IsLabel t (DOMNamedNodeMap -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getDOMNamedNodeMapLength :: (MonadIO m, IsDOMNamedNodeMap o) => o -> m CULong
getDOMNamedNodeMapLength :: o -> m CULong
getDOMNamedNodeMapLength 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 DOMNamedNodeMapLengthPropertyInfo
instance AttrInfo DOMNamedNodeMapLengthPropertyInfo where
type AttrAllowedOps DOMNamedNodeMapLengthPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMNamedNodeMapLengthPropertyInfo = IsDOMNamedNodeMap
type AttrSetTypeConstraint DOMNamedNodeMapLengthPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMNamedNodeMapLengthPropertyInfo = (~) ()
type AttrTransferType DOMNamedNodeMapLengthPropertyInfo = ()
type AttrGetType DOMNamedNodeMapLengthPropertyInfo = CULong
type AttrLabel DOMNamedNodeMapLengthPropertyInfo = "length"
type AttrOrigin DOMNamedNodeMapLengthPropertyInfo = DOMNamedNodeMap
attrGet = getDOMNamedNodeMapLength
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMNamedNodeMap
type instance O.AttributeList DOMNamedNodeMap = DOMNamedNodeMapAttributeList
type DOMNamedNodeMapAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("length", DOMNamedNodeMapLengthPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMNamedNodeMapLength :: AttrLabelProxy "length"
dOMNamedNodeMapLength = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMNamedNodeMap = DOMNamedNodeMapSignalList
type DOMNamedNodeMapSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_named_node_map_get_length" webkit_dom_named_node_map_get_length ::
Ptr DOMNamedNodeMap ->
IO CULong
{-# DEPRECATED dOMNamedNodeMapGetLength ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNamedNodeMapGetLength ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNamedNodeMap a) =>
a
-> m CULong
dOMNamedNodeMapGetLength :: a -> m CULong
dOMNamedNodeMapGetLength 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 DOMNamedNodeMap
self' <- a -> IO (Ptr DOMNamedNodeMap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CULong
result <- Ptr DOMNamedNodeMap -> IO CULong
webkit_dom_named_node_map_get_length Ptr DOMNamedNodeMap
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 DOMNamedNodeMapGetLengthMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMNamedNodeMap a) => O.MethodInfo DOMNamedNodeMapGetLengthMethodInfo a signature where
overloadedMethod = dOMNamedNodeMapGetLength
#endif
foreign import ccall "webkit_dom_named_node_map_get_named_item" webkit_dom_named_node_map_get_named_item ::
Ptr DOMNamedNodeMap ->
CString ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMNamedNodeMapGetNamedItem ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNamedNodeMapGetNamedItem ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNamedNodeMap a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMNamedNodeMapGetNamedItem :: a -> Text -> m DOMNode
dOMNamedNodeMapGetNamedItem self :: a
self name :: Text
name = 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 DOMNamedNodeMap
self' <- a -> IO (Ptr DOMNamedNodeMap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr DOMNode
result <- Ptr DOMNamedNodeMap -> CString -> IO (Ptr DOMNode)
webkit_dom_named_node_map_get_named_item Ptr DOMNamedNodeMap
self' CString
name'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMNamedNodeMapGetNamedItem" 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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMNamedNodeMapGetNamedItemMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMNamedNodeMap a) => O.MethodInfo DOMNamedNodeMapGetNamedItemMethodInfo a signature where
overloadedMethod = dOMNamedNodeMapGetNamedItem
#endif
foreign import ccall "webkit_dom_named_node_map_get_named_item_ns" webkit_dom_named_node_map_get_named_item_ns ::
Ptr DOMNamedNodeMap ->
CString ->
CString ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMNamedNodeMapGetNamedItemNs ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNamedNodeMapGetNamedItemNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNamedNodeMap a) =>
a
-> T.Text
-> T.Text
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMNamedNodeMapGetNamedItemNs :: a -> Text -> Text -> m DOMNode
dOMNamedNodeMapGetNamedItemNs self :: a
self namespaceURI :: Text
namespaceURI localName :: Text
localName = 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 DOMNamedNodeMap
self' <- a -> IO (Ptr DOMNamedNodeMap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
namespaceURI' <- Text -> IO CString
textToCString Text
namespaceURI
CString
localName' <- Text -> IO CString
textToCString Text
localName
Ptr DOMNode
result <- Ptr DOMNamedNodeMap -> CString -> CString -> IO (Ptr DOMNode)
webkit_dom_named_node_map_get_named_item_ns Ptr DOMNamedNodeMap
self' CString
namespaceURI' CString
localName'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMNamedNodeMapGetNamedItemNs" 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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
namespaceURI'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
localName'
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMNamedNodeMapGetNamedItemNsMethodInfo
instance (signature ~ (T.Text -> T.Text -> m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMNamedNodeMap a) => O.MethodInfo DOMNamedNodeMapGetNamedItemNsMethodInfo a signature where
overloadedMethod = dOMNamedNodeMapGetNamedItemNs
#endif
foreign import ccall "webkit_dom_named_node_map_item" webkit_dom_named_node_map_item ::
Ptr DOMNamedNodeMap ->
CULong ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMNamedNodeMapItem ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNamedNodeMapItem ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNamedNodeMap a) =>
a
-> CULong
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMNamedNodeMapItem :: a -> CULong -> m DOMNode
dOMNamedNodeMapItem self :: a
self index :: CULong
index = 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 DOMNamedNodeMap
self' <- a -> IO (Ptr DOMNamedNodeMap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMNamedNodeMap -> CULong -> IO (Ptr DOMNode)
webkit_dom_named_node_map_item Ptr DOMNamedNodeMap
self' CULong
index
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMNamedNodeMapItem" 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'
#if defined(ENABLE_OVERLOADING)
data DOMNamedNodeMapItemMethodInfo
instance (signature ~ (CULong -> m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMNamedNodeMap a) => O.MethodInfo DOMNamedNodeMapItemMethodInfo a signature where
overloadedMethod = dOMNamedNodeMapItem
#endif
foreign import ccall "webkit_dom_named_node_map_remove_named_item" webkit_dom_named_node_map_remove_named_item ::
Ptr DOMNamedNodeMap ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMNamedNodeMapRemoveNamedItem ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNamedNodeMapRemoveNamedItem ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNamedNodeMap a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMNamedNodeMapRemoveNamedItem :: a -> Text -> m DOMNode
dOMNamedNodeMapRemoveNamedItem self :: a
self name :: Text
name = 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 DOMNamedNodeMap
self' <- a -> IO (Ptr DOMNamedNodeMap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
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 DOMNamedNodeMap
-> CString -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_named_node_map_remove_named_item Ptr DOMNamedNodeMap
self' CString
name'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMNamedNodeMapRemoveNamedItem" 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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
)
#if defined(ENABLE_OVERLOADING)
data DOMNamedNodeMapRemoveNamedItemMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMNamedNodeMap a) => O.MethodInfo DOMNamedNodeMapRemoveNamedItemMethodInfo a signature where
overloadedMethod = dOMNamedNodeMapRemoveNamedItem
#endif
foreign import ccall "webkit_dom_named_node_map_remove_named_item_ns" webkit_dom_named_node_map_remove_named_item_ns ::
Ptr DOMNamedNodeMap ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMNamedNodeMapRemoveNamedItemNs ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNamedNodeMapRemoveNamedItemNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNamedNodeMap a) =>
a
-> T.Text
-> T.Text
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMNamedNodeMapRemoveNamedItemNs :: a -> Text -> Text -> m DOMNode
dOMNamedNodeMapRemoveNamedItemNs self :: a
self namespaceURI :: Text
namespaceURI localName :: Text
localName = 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 DOMNamedNodeMap
self' <- a -> IO (Ptr DOMNamedNodeMap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
namespaceURI' <- Text -> IO CString
textToCString Text
namespaceURI
CString
localName' <- Text -> IO CString
textToCString Text
localName
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 DOMNamedNodeMap
-> CString -> CString -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_named_node_map_remove_named_item_ns Ptr DOMNamedNodeMap
self' CString
namespaceURI' CString
localName'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMNamedNodeMapRemoveNamedItemNs" 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
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
namespaceURI'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
localName'
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
namespaceURI'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
localName'
)
#if defined(ENABLE_OVERLOADING)
data DOMNamedNodeMapRemoveNamedItemNsMethodInfo
instance (signature ~ (T.Text -> T.Text -> m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMNamedNodeMap a) => O.MethodInfo DOMNamedNodeMapRemoveNamedItemNsMethodInfo a signature where
overloadedMethod = dOMNamedNodeMapRemoveNamedItemNs
#endif
foreign import ccall "webkit_dom_named_node_map_set_named_item" webkit_dom_named_node_map_set_named_item ::
Ptr DOMNamedNodeMap ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMNamedNodeMapSetNamedItem ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNamedNodeMapSetNamedItem ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNamedNodeMap a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMNamedNodeMapSetNamedItem :: a -> b -> m DOMNode
dOMNamedNodeMapSetNamedItem self :: a
self node :: b
node = 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 DOMNamedNodeMap
self' <- a -> IO (Ptr DOMNamedNodeMap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
node' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
node
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 DOMNamedNodeMap
-> Ptr DOMNode -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_named_node_map_set_named_item Ptr DOMNamedNodeMap
self' Ptr DOMNode
node'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMNamedNodeMapSetNamedItem" 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
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
node
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 DOMNamedNodeMapSetNamedItemMethodInfo
instance (signature ~ (b -> m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMNamedNodeMap a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMNamedNodeMapSetNamedItemMethodInfo a signature where
overloadedMethod = dOMNamedNodeMapSetNamedItem
#endif
foreign import ccall "webkit_dom_named_node_map_set_named_item_ns" webkit_dom_named_node_map_set_named_item_ns ::
Ptr DOMNamedNodeMap ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMNamedNodeMapSetNamedItemNs ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNamedNodeMapSetNamedItemNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNamedNodeMap a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMNamedNodeMapSetNamedItemNs :: a -> b -> m DOMNode
dOMNamedNodeMapSetNamedItemNs self :: a
self node :: b
node = 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 DOMNamedNodeMap
self' <- a -> IO (Ptr DOMNamedNodeMap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
node' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
node
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 DOMNamedNodeMap
-> Ptr DOMNode -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_named_node_map_set_named_item_ns Ptr DOMNamedNodeMap
self' Ptr DOMNode
node'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMNamedNodeMapSetNamedItemNs" 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
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
node
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 DOMNamedNodeMapSetNamedItemNsMethodInfo
instance (signature ~ (b -> m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMNamedNodeMap a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMNamedNodeMapSetNamedItemNsMethodInfo a signature where
overloadedMethod = dOMNamedNodeMapSetNamedItemNs
#endif