{- |
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.WebKit.Objects.DOMNodeFilter
    ( 

-- * Exported types
    DOMNodeFilter(..)                       ,
    IsDOMNodeFilter                         ,
    toDOMNodeFilter                         ,
    noDOMNodeFilter                         ,


 -- * Methods
-- ** acceptNode #method:acceptNode#
    DOMNodeFilterAcceptNodeMethodInfo       ,
    dOMNodeFilterAcceptNode                 ,




    ) 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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit.Objects.DOMNode as WebKit.DOMNode
import {-# SOURCE #-} qualified GI.WebKit.Objects.DOMObject as WebKit.DOMObject

newtype DOMNodeFilter = DOMNodeFilter (ManagedPtr DOMNodeFilter)
foreign import ccall "webkit_dom_node_filter_get_type"
    c_webkit_dom_node_filter_get_type :: IO GType

instance GObject DOMNodeFilter where
    gobjectType _ = c_webkit_dom_node_filter_get_type
    

class GObject o => IsDOMNodeFilter o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError DOMNodeFilter a) =>
    IsDOMNodeFilter a
#endif
instance IsDOMNodeFilter DOMNodeFilter
instance WebKit.DOMObject.IsDOMObject DOMNodeFilter
instance GObject.Object.IsObject DOMNodeFilter

toDOMNodeFilter :: IsDOMNodeFilter o => o -> IO DOMNodeFilter
toDOMNodeFilter = unsafeCastTo DOMNodeFilter

noDOMNodeFilter :: Maybe DOMNodeFilter
noDOMNodeFilter = Nothing

type family ResolveDOMNodeFilterMethod (t :: Symbol) (o :: *) :: * where
    ResolveDOMNodeFilterMethod "acceptNode" o = DOMNodeFilterAcceptNodeMethodInfo
    ResolveDOMNodeFilterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveDOMNodeFilterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveDOMNodeFilterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveDOMNodeFilterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveDOMNodeFilterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveDOMNodeFilterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveDOMNodeFilterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveDOMNodeFilterMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveDOMNodeFilterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveDOMNodeFilterMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
    ResolveDOMNodeFilterMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
    ResolveDOMNodeFilterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveDOMNodeFilterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveDOMNodeFilterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveDOMNodeFilterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveDOMNodeFilterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveDOMNodeFilterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveDOMNodeFilterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveDOMNodeFilterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveDOMNodeFilterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveDOMNodeFilterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveDOMNodeFilterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveDOMNodeFilterMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveDOMNodeFilterMethod t DOMNodeFilter, O.MethodInfo info DOMNodeFilter p) => O.IsLabelProxy t (DOMNodeFilter -> p) where
    fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)

#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMNodeFilterMethod t DOMNodeFilter, O.MethodInfo info DOMNodeFilter p) => O.IsLabel t (DOMNodeFilter -> p) where
    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif

instance O.HasAttributeList DOMNodeFilter
type instance O.AttributeList DOMNodeFilter = DOMNodeFilterAttributeList
type DOMNodeFilterAttributeList = ('[ '("coreObject", WebKit.DOMObject.DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)])

type instance O.SignalList DOMNodeFilter = DOMNodeFilterSignalList
type DOMNodeFilterSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

-- method DOMNodeFilter::accept_node
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "WebKit", name = "DOMNodeFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitDOMNodeFilter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TInterface (Name {namespace = "WebKit", name = "DOMNode"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitDOMNode", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TInt16)
-- throws : False
-- Skip return : False

foreign import ccall "webkit_dom_node_filter_accept_node" webkit_dom_node_filter_accept_node :: 
    Ptr DOMNodeFilter ->                    -- self : TInterface (Name {namespace = "WebKit", name = "DOMNodeFilter"})
    Ptr WebKit.DOMNode.DOMNode ->           -- n : TInterface (Name {namespace = "WebKit", name = "DOMNode"})
    IO Int16

{- |
/No description available in the introspection data./
-}
dOMNodeFilterAcceptNode ::
    (B.CallStack.HasCallStack, MonadIO m, IsDOMNodeFilter a, WebKit.DOMNode.IsDOMNode b) =>
    a
    {- ^ /@self@/: A 'GI.WebKit.Objects.DOMNodeFilter.DOMNodeFilter' -}
    -> b
    {- ^ /@n@/: A 'GI.WebKit.Objects.DOMNode.DOMNode' -}
    -> m Int16
    {- ^ __Returns:__ A @/gshort/@ -}
dOMNodeFilterAcceptNode self n = liftIO $ do
    self' <- unsafeManagedPtrCastPtr self
    n' <- unsafeManagedPtrCastPtr n
    result <- webkit_dom_node_filter_accept_node self' n'
    touchManagedPtr self
    touchManagedPtr n
    return result

data DOMNodeFilterAcceptNodeMethodInfo
instance (signature ~ (b -> m Int16), MonadIO m, IsDOMNodeFilter a, WebKit.DOMNode.IsDOMNode b) => O.MethodInfo DOMNodeFilterAcceptNodeMethodInfo a signature where
    overloadedMethod _ = dOMNodeFilterAcceptNode