module GI.WebKit.Objects.DOMDOMStringList
(
DOMDOMStringList(..) ,
IsDOMDOMStringList ,
toDOMDOMStringList ,
noDOMDOMStringList ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMDOMStringListContainsMethodInfo ,
#endif
dOMDOMStringListContains ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMDOMStringListGetLengthMethodInfo ,
#endif
dOMDOMStringListGetLength ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMDOMStringListItemMethodInfo ,
#endif
dOMDOMStringListItem ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMDOMStringListLengthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
dOMDOMStringListLength ,
#endif
getDOMDOMStringListLength ,
) 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 qualified GI.WebKit.Objects.DOMObject as WebKit.DOMObject
newtype DOMDOMStringList = DOMDOMStringList (ManagedPtr DOMDOMStringList)
foreign import ccall "webkit_dom_dom_string_list_get_type"
c_webkit_dom_dom_string_list_get_type :: IO GType
instance GObject DOMDOMStringList where
gobjectType _ = c_webkit_dom_dom_string_list_get_type
class GObject o => IsDOMDOMStringList o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DOMDOMStringList a) =>
IsDOMDOMStringList a
#endif
instance IsDOMDOMStringList DOMDOMStringList
instance WebKit.DOMObject.IsDOMObject DOMDOMStringList
instance GObject.Object.IsObject DOMDOMStringList
toDOMDOMStringList :: (MonadIO m, IsDOMDOMStringList o) => o -> m DOMDOMStringList
toDOMDOMStringList = liftIO . unsafeCastTo DOMDOMStringList
noDOMDOMStringList :: Maybe DOMDOMStringList
noDOMDOMStringList = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type family ResolveDOMDOMStringListMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMDOMStringListMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMDOMStringListMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMDOMStringListMethod "contains" o = DOMDOMStringListContainsMethodInfo
ResolveDOMDOMStringListMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMDOMStringListMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMDOMStringListMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMDOMStringListMethod "item" o = DOMDOMStringListItemMethodInfo
ResolveDOMDOMStringListMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMDOMStringListMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMDOMStringListMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMDOMStringListMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMDOMStringListMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDOMDOMStringListMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveDOMDOMStringListMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMDOMStringListMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMDOMStringListMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMDOMStringListMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMDOMStringListMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMDOMStringListMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMDOMStringListMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMDOMStringListMethod "getLength" o = DOMDOMStringListGetLengthMethodInfo
ResolveDOMDOMStringListMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMDOMStringListMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMDOMStringListMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMDOMStringListMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMDOMStringListMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMDOMStringListMethod t DOMDOMStringList, O.MethodInfo info DOMDOMStringList p) => O.IsLabelProxy t (DOMDOMStringList -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMDOMStringListMethod t DOMDOMStringList, O.MethodInfo info DOMDOMStringList p) => O.IsLabel t (DOMDOMStringList -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
getDOMDOMStringListLength :: (MonadIO m, IsDOMDOMStringList o) => o -> m CULong
getDOMDOMStringListLength obj = liftIO $ getObjectPropertyULong obj "length"
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMDOMStringListLengthPropertyInfo
instance AttrInfo DOMDOMStringListLengthPropertyInfo where
type AttrAllowedOps DOMDOMStringListLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDOMStringListLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMStringListLengthPropertyInfo = IsDOMDOMStringList
type AttrGetType DOMDOMStringListLengthPropertyInfo = CULong
type AttrLabel DOMDOMStringListLengthPropertyInfo = "length"
type AttrOrigin DOMDOMStringListLengthPropertyInfo = DOMDOMStringList
attrGet _ = getDOMDOMStringListLength
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
instance O.HasAttributeList DOMDOMStringList
type instance O.AttributeList DOMDOMStringList = DOMDOMStringListAttributeList
type DOMDOMStringListAttributeList = ('[ '("coreObject", WebKit.DOMObject.DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMStringListLengthPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
dOMDOMStringListLength :: AttrLabelProxy "length"
dOMDOMStringListLength = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type instance O.SignalList DOMDOMStringList = DOMDOMStringListSignalList
type DOMDOMStringListSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_dom_string_list_contains" webkit_dom_dom_string_list_contains ::
Ptr DOMDOMStringList ->
CString ->
IO CInt
dOMDOMStringListContains ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMStringList a) =>
a
-> T.Text
-> m Bool
dOMDOMStringListContains self string = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
string' <- textToCString string
result <- webkit_dom_dom_string_list_contains self' string'
let result' = (/= 0) result
touchManagedPtr self
freeMem string'
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMDOMStringListContainsMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDOMDOMStringList a) => O.MethodInfo DOMDOMStringListContainsMethodInfo a signature where
overloadedMethod _ = dOMDOMStringListContains
#endif
foreign import ccall "webkit_dom_dom_string_list_get_length" webkit_dom_dom_string_list_get_length ::
Ptr DOMDOMStringList ->
IO CULong
dOMDOMStringListGetLength ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMStringList a) =>
a
-> m CULong
dOMDOMStringListGetLength self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_string_list_get_length self'
touchManagedPtr self
return result
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMDOMStringListGetLengthMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMDOMStringList a) => O.MethodInfo DOMDOMStringListGetLengthMethodInfo a signature where
overloadedMethod _ = dOMDOMStringListGetLength
#endif
foreign import ccall "webkit_dom_dom_string_list_item" webkit_dom_dom_string_list_item ::
Ptr DOMDOMStringList ->
CULong ->
IO CString
dOMDOMStringListItem ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMStringList a) =>
a
-> CULong
-> m T.Text
dOMDOMStringListItem self index = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_string_list_item self' index
checkUnexpectedReturnNULL "dOMDOMStringListItem" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMDOMStringListItemMethodInfo
instance (signature ~ (CULong -> m T.Text), MonadIO m, IsDOMDOMStringList a) => O.MethodInfo DOMDOMStringListItemMethodInfo a signature where
overloadedMethod _ = dOMDOMStringListItem
#endif