module GI.WebKit2WebExtension.Objects.DOMDOMImplementation
(
DOMDOMImplementation(..) ,
IsDOMDOMImplementation ,
toDOMDOMImplementation ,
noDOMDOMImplementation ,
DOMDOMImplementationCreateCssStyleSheetMethodInfo,
dOMDOMImplementationCreateCssStyleSheet ,
DOMDOMImplementationCreateDocumentMethodInfo,
dOMDOMImplementationCreateDocument ,
DOMDOMImplementationCreateDocumentTypeMethodInfo,
dOMDOMImplementationCreateDocumentType ,
DOMDOMImplementationCreateHtmlDocumentMethodInfo,
dOMDOMImplementationCreateHtmlDocument ,
DOMDOMImplementationHasFeatureMethodInfo,
dOMDOMImplementationHasFeature ,
) 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.WebKit2WebExtension.Objects.DOMCSSStyleSheet as WebKit2WebExtension.DOMCSSStyleSheet
import qualified GI.WebKit2WebExtension.Objects.DOMDocument as WebKit2WebExtension.DOMDocument
import qualified GI.WebKit2WebExtension.Objects.DOMDocumentType as WebKit2WebExtension.DOMDocumentType
import qualified GI.WebKit2WebExtension.Objects.DOMHTMLDocument as WebKit2WebExtension.DOMHTMLDocument
import qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMDOMImplementation = DOMDOMImplementation (ManagedPtr DOMDOMImplementation)
foreign import ccall "webkit_dom_dom_implementation_get_type"
c_webkit_dom_dom_implementation_get_type :: IO GType
instance GObject DOMDOMImplementation where
gobjectType _ = c_webkit_dom_dom_implementation_get_type
class GObject o => IsDOMDOMImplementation o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DOMDOMImplementation a) =>
IsDOMDOMImplementation a
#endif
instance IsDOMDOMImplementation DOMDOMImplementation
instance WebKit2WebExtension.DOMObject.IsDOMObject DOMDOMImplementation
instance GObject.Object.IsObject DOMDOMImplementation
toDOMDOMImplementation :: IsDOMDOMImplementation o => o -> IO DOMDOMImplementation
toDOMDOMImplementation = unsafeCastTo DOMDOMImplementation
noDOMDOMImplementation :: Maybe DOMDOMImplementation
noDOMDOMImplementation = Nothing
type family ResolveDOMDOMImplementationMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMDOMImplementationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMDOMImplementationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMDOMImplementationMethod "createCssStyleSheet" o = DOMDOMImplementationCreateCssStyleSheetMethodInfo
ResolveDOMDOMImplementationMethod "createDocument" o = DOMDOMImplementationCreateDocumentMethodInfo
ResolveDOMDOMImplementationMethod "createDocumentType" o = DOMDOMImplementationCreateDocumentTypeMethodInfo
ResolveDOMDOMImplementationMethod "createHtmlDocument" o = DOMDOMImplementationCreateHtmlDocumentMethodInfo
ResolveDOMDOMImplementationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMDOMImplementationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMDOMImplementationMethod "hasFeature" o = DOMDOMImplementationHasFeatureMethodInfo
ResolveDOMDOMImplementationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMDOMImplementationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMDOMImplementationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMDOMImplementationMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMDOMImplementationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMDOMImplementationMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDOMDOMImplementationMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveDOMDOMImplementationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMDOMImplementationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMDOMImplementationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMDOMImplementationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMDOMImplementationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMDOMImplementationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMDOMImplementationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMDOMImplementationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMDOMImplementationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMDOMImplementationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMDOMImplementationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMDOMImplementationMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMDOMImplementationMethod t DOMDOMImplementation, O.MethodInfo info DOMDOMImplementation p) => O.IsLabelProxy t (DOMDOMImplementation -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMDOMImplementationMethod t DOMDOMImplementation, O.MethodInfo info DOMDOMImplementation p) => O.IsLabel t (DOMDOMImplementation -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
instance O.HasAttributeList DOMDOMImplementation
type instance O.AttributeList DOMDOMImplementation = DOMDOMImplementationAttributeList
type DOMDOMImplementationAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)])
type instance O.SignalList DOMDOMImplementation = DOMDOMImplementationSignalList
type DOMDOMImplementationSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_dom_implementation_create_css_style_sheet" webkit_dom_dom_implementation_create_css_style_sheet ::
Ptr DOMDOMImplementation ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMCSSStyleSheet.DOMCSSStyleSheet)
dOMDOMImplementationCreateCssStyleSheet ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMImplementation a) =>
a
-> T.Text
-> T.Text
-> m WebKit2WebExtension.DOMCSSStyleSheet.DOMCSSStyleSheet
dOMDOMImplementationCreateCssStyleSheet self title media = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
title' <- textToCString title
media' <- textToCString media
onException (do
result <- propagateGError $ webkit_dom_dom_implementation_create_css_style_sheet self' title' media'
checkUnexpectedReturnNULL "dOMDOMImplementationCreateCssStyleSheet" result
result' <- (wrapObject WebKit2WebExtension.DOMCSSStyleSheet.DOMCSSStyleSheet) result
touchManagedPtr self
freeMem title'
freeMem media'
return result'
) (do
freeMem title'
freeMem media'
)
data DOMDOMImplementationCreateCssStyleSheetMethodInfo
instance (signature ~ (T.Text -> T.Text -> m WebKit2WebExtension.DOMCSSStyleSheet.DOMCSSStyleSheet), MonadIO m, IsDOMDOMImplementation a) => O.MethodInfo DOMDOMImplementationCreateCssStyleSheetMethodInfo a signature where
overloadedMethod _ = dOMDOMImplementationCreateCssStyleSheet
foreign import ccall "webkit_dom_dom_implementation_create_document" webkit_dom_dom_implementation_create_document ::
Ptr DOMDOMImplementation ->
CString ->
CString ->
Ptr WebKit2WebExtension.DOMDocumentType.DOMDocumentType ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMDocument.DOMDocument)
dOMDOMImplementationCreateDocument ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMImplementation a, WebKit2WebExtension.DOMDocumentType.IsDOMDocumentType b) =>
a
-> Maybe (T.Text)
-> T.Text
-> Maybe (b)
-> m WebKit2WebExtension.DOMDocument.DOMDocument
dOMDOMImplementationCreateDocument self namespaceURI qualifiedName doctype = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
maybeNamespaceURI <- case namespaceURI of
Nothing -> return nullPtr
Just jNamespaceURI -> do
jNamespaceURI' <- textToCString jNamespaceURI
return jNamespaceURI'
qualifiedName' <- textToCString qualifiedName
maybeDoctype <- case doctype of
Nothing -> return nullPtr
Just jDoctype -> do
jDoctype' <- unsafeManagedPtrCastPtr jDoctype
return jDoctype'
onException (do
result <- propagateGError $ webkit_dom_dom_implementation_create_document self' maybeNamespaceURI qualifiedName' maybeDoctype
checkUnexpectedReturnNULL "dOMDOMImplementationCreateDocument" result
result' <- (newObject WebKit2WebExtension.DOMDocument.DOMDocument) result
touchManagedPtr self
whenJust doctype touchManagedPtr
freeMem maybeNamespaceURI
freeMem qualifiedName'
return result'
) (do
freeMem maybeNamespaceURI
freeMem qualifiedName'
)
data DOMDOMImplementationCreateDocumentMethodInfo
instance (signature ~ (Maybe (T.Text) -> T.Text -> Maybe (b) -> m WebKit2WebExtension.DOMDocument.DOMDocument), MonadIO m, IsDOMDOMImplementation a, WebKit2WebExtension.DOMDocumentType.IsDOMDocumentType b) => O.MethodInfo DOMDOMImplementationCreateDocumentMethodInfo a signature where
overloadedMethod _ = dOMDOMImplementationCreateDocument
foreign import ccall "webkit_dom_dom_implementation_create_document_type" webkit_dom_dom_implementation_create_document_type ::
Ptr DOMDOMImplementation ->
CString ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMDocumentType.DOMDocumentType)
dOMDOMImplementationCreateDocumentType ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMImplementation a) =>
a
-> T.Text
-> T.Text
-> T.Text
-> m WebKit2WebExtension.DOMDocumentType.DOMDocumentType
dOMDOMImplementationCreateDocumentType self qualifiedName publicId systemId = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
qualifiedName' <- textToCString qualifiedName
publicId' <- textToCString publicId
systemId' <- textToCString systemId
onException (do
result <- propagateGError $ webkit_dom_dom_implementation_create_document_type self' qualifiedName' publicId' systemId'
checkUnexpectedReturnNULL "dOMDOMImplementationCreateDocumentType" result
result' <- (newObject WebKit2WebExtension.DOMDocumentType.DOMDocumentType) result
touchManagedPtr self
freeMem qualifiedName'
freeMem publicId'
freeMem systemId'
return result'
) (do
freeMem qualifiedName'
freeMem publicId'
freeMem systemId'
)
data DOMDOMImplementationCreateDocumentTypeMethodInfo
instance (signature ~ (T.Text -> T.Text -> T.Text -> m WebKit2WebExtension.DOMDocumentType.DOMDocumentType), MonadIO m, IsDOMDOMImplementation a) => O.MethodInfo DOMDOMImplementationCreateDocumentTypeMethodInfo a signature where
overloadedMethod _ = dOMDOMImplementationCreateDocumentType
foreign import ccall "webkit_dom_dom_implementation_create_html_document" webkit_dom_dom_implementation_create_html_document ::
Ptr DOMDOMImplementation ->
CString ->
IO (Ptr WebKit2WebExtension.DOMHTMLDocument.DOMHTMLDocument)
dOMDOMImplementationCreateHtmlDocument ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMImplementation a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMHTMLDocument.DOMHTMLDocument
dOMDOMImplementationCreateHtmlDocument self title = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
title' <- textToCString title
result <- webkit_dom_dom_implementation_create_html_document self' title'
checkUnexpectedReturnNULL "dOMDOMImplementationCreateHtmlDocument" result
result' <- (newObject WebKit2WebExtension.DOMHTMLDocument.DOMHTMLDocument) result
touchManagedPtr self
freeMem title'
return result'
data DOMDOMImplementationCreateHtmlDocumentMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMHTMLDocument.DOMHTMLDocument), MonadIO m, IsDOMDOMImplementation a) => O.MethodInfo DOMDOMImplementationCreateHtmlDocumentMethodInfo a signature where
overloadedMethod _ = dOMDOMImplementationCreateHtmlDocument
foreign import ccall "webkit_dom_dom_implementation_has_feature" webkit_dom_dom_implementation_has_feature ::
Ptr DOMDOMImplementation ->
CString ->
CString ->
IO CInt
dOMDOMImplementationHasFeature ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMImplementation a) =>
a
-> T.Text
-> T.Text
-> m Bool
dOMDOMImplementationHasFeature self feature version = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
feature' <- textToCString feature
version' <- textToCString version
result <- webkit_dom_dom_implementation_has_feature self' feature' version'
let result' = (/= 0) result
touchManagedPtr self
freeMem feature'
freeMem version'
return result'
data DOMDOMImplementationHasFeatureMethodInfo
instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, IsDOMDOMImplementation a) => O.MethodInfo DOMDOMImplementationHasFeatureMethodInfo a signature where
overloadedMethod _ = dOMDOMImplementationHasFeature