module GI.WebKit.Objects.DOMDocumentType
(
DOMDocumentType(..) ,
DOMDocumentTypeK ,
toDOMDocumentType ,
noDOMDocumentType ,
dOMDocumentTypeGetEntities ,
dOMDocumentTypeGetInternalSubset ,
dOMDocumentTypeGetName ,
dOMDocumentTypeGetNotations ,
dOMDocumentTypeGetPublicId ,
dOMDocumentTypeGetSystemId ,
dOMDocumentTypeRemove ,
DOMDocumentTypeEntitiesPropertyInfo ,
getDOMDocumentTypeEntities ,
DOMDocumentTypeInternalSubsetPropertyInfo,
getDOMDocumentTypeInternalSubset ,
DOMDocumentTypeNamePropertyInfo ,
getDOMDocumentTypeName ,
DOMDocumentTypeNotationsPropertyInfo ,
getDOMDocumentTypeNotations ,
DOMDocumentTypePublicIdPropertyInfo ,
getDOMDocumentTypePublicId ,
DOMDocumentTypeSystemIdPropertyInfo ,
getDOMDocumentTypeSystemId ,
) 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.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype DOMDocumentType = DOMDocumentType (ForeignPtr DOMDocumentType)
foreign import ccall "webkit_dom_document_type_get_type"
c_webkit_dom_document_type_get_type :: IO GType
type instance ParentTypes DOMDocumentType = DOMDocumentTypeParentTypes
type DOMDocumentTypeParentTypes = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMDocumentType where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_document_type_get_type
class GObject o => DOMDocumentTypeK o
instance (GObject o, IsDescendantOf DOMDocumentType o) => DOMDocumentTypeK o
toDOMDocumentType :: DOMDocumentTypeK o => o -> IO DOMDocumentType
toDOMDocumentType = unsafeCastTo DOMDocumentType
noDOMDocumentType :: Maybe DOMDocumentType
noDOMDocumentType = Nothing
getDOMDocumentTypeEntities :: (MonadIO m, DOMDocumentTypeK o) => o -> m DOMNamedNodeMap
getDOMDocumentTypeEntities obj = liftIO $ getObjectPropertyObject obj "entities" DOMNamedNodeMap
data DOMDocumentTypeEntitiesPropertyInfo
instance AttrInfo DOMDocumentTypeEntitiesPropertyInfo where
type AttrAllowedOps DOMDocumentTypeEntitiesPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = DOMDocumentTypeK
type AttrGetType DOMDocumentTypeEntitiesPropertyInfo = DOMNamedNodeMap
type AttrLabel DOMDocumentTypeEntitiesPropertyInfo = "DOMDocumentType::entities"
attrGet _ = getDOMDocumentTypeEntities
attrSet _ = undefined
attrConstruct _ = undefined
getDOMDocumentTypeInternalSubset :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text
getDOMDocumentTypeInternalSubset obj = liftIO $ getObjectPropertyString obj "internal-subset"
data DOMDocumentTypeInternalSubsetPropertyInfo
instance AttrInfo DOMDocumentTypeInternalSubsetPropertyInfo where
type AttrAllowedOps DOMDocumentTypeInternalSubsetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = DOMDocumentTypeK
type AttrGetType DOMDocumentTypeInternalSubsetPropertyInfo = T.Text
type AttrLabel DOMDocumentTypeInternalSubsetPropertyInfo = "DOMDocumentType::internal-subset"
attrGet _ = getDOMDocumentTypeInternalSubset
attrSet _ = undefined
attrConstruct _ = undefined
getDOMDocumentTypeName :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text
getDOMDocumentTypeName obj = liftIO $ getObjectPropertyString obj "name"
data DOMDocumentTypeNamePropertyInfo
instance AttrInfo DOMDocumentTypeNamePropertyInfo where
type AttrAllowedOps DOMDocumentTypeNamePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDocumentTypeNamePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDocumentTypeNamePropertyInfo = DOMDocumentTypeK
type AttrGetType DOMDocumentTypeNamePropertyInfo = T.Text
type AttrLabel DOMDocumentTypeNamePropertyInfo = "DOMDocumentType::name"
attrGet _ = getDOMDocumentTypeName
attrSet _ = undefined
attrConstruct _ = undefined
getDOMDocumentTypeNotations :: (MonadIO m, DOMDocumentTypeK o) => o -> m DOMNamedNodeMap
getDOMDocumentTypeNotations obj = liftIO $ getObjectPropertyObject obj "notations" DOMNamedNodeMap
data DOMDocumentTypeNotationsPropertyInfo
instance AttrInfo DOMDocumentTypeNotationsPropertyInfo where
type AttrAllowedOps DOMDocumentTypeNotationsPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDocumentTypeNotationsPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDocumentTypeNotationsPropertyInfo = DOMDocumentTypeK
type AttrGetType DOMDocumentTypeNotationsPropertyInfo = DOMNamedNodeMap
type AttrLabel DOMDocumentTypeNotationsPropertyInfo = "DOMDocumentType::notations"
attrGet _ = getDOMDocumentTypeNotations
attrSet _ = undefined
attrConstruct _ = undefined
getDOMDocumentTypePublicId :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text
getDOMDocumentTypePublicId obj = liftIO $ getObjectPropertyString obj "public-id"
data DOMDocumentTypePublicIdPropertyInfo
instance AttrInfo DOMDocumentTypePublicIdPropertyInfo where
type AttrAllowedOps DOMDocumentTypePublicIdPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDocumentTypePublicIdPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDocumentTypePublicIdPropertyInfo = DOMDocumentTypeK
type AttrGetType DOMDocumentTypePublicIdPropertyInfo = T.Text
type AttrLabel DOMDocumentTypePublicIdPropertyInfo = "DOMDocumentType::public-id"
attrGet _ = getDOMDocumentTypePublicId
attrSet _ = undefined
attrConstruct _ = undefined
getDOMDocumentTypeSystemId :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text
getDOMDocumentTypeSystemId obj = liftIO $ getObjectPropertyString obj "system-id"
data DOMDocumentTypeSystemIdPropertyInfo
instance AttrInfo DOMDocumentTypeSystemIdPropertyInfo where
type AttrAllowedOps DOMDocumentTypeSystemIdPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = DOMDocumentTypeK
type AttrGetType DOMDocumentTypeSystemIdPropertyInfo = T.Text
type AttrLabel DOMDocumentTypeSystemIdPropertyInfo = "DOMDocumentType::system-id"
attrGet _ = getDOMDocumentTypeSystemId
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMDocumentType = DOMDocumentTypeAttributeList
type DOMDocumentTypeAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("entities", DOMDocumentTypeEntitiesPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("internal-subset", DOMDocumentTypeInternalSubsetPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMDocumentTypeNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("notations", DOMDocumentTypeNotationsPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("public-id", DOMDocumentTypePublicIdPropertyInfo), '("system-id", DOMDocumentTypeSystemIdPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMDocumentType = DOMDocumentTypeSignalList
type DOMDocumentTypeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_document_type_get_entities" webkit_dom_document_type_get_entities ::
Ptr DOMDocumentType ->
IO (Ptr DOMNamedNodeMap)
dOMDocumentTypeGetEntities ::
(MonadIO m, DOMDocumentTypeK a) =>
a ->
m DOMNamedNodeMap
dOMDocumentTypeGetEntities _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_type_get_entities _obj'
checkUnexpectedReturnNULL "webkit_dom_document_type_get_entities" result
result' <- (wrapObject DOMNamedNodeMap) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_document_type_get_internal_subset" webkit_dom_document_type_get_internal_subset ::
Ptr DOMDocumentType ->
IO CString
dOMDocumentTypeGetInternalSubset ::
(MonadIO m, DOMDocumentTypeK a) =>
a ->
m T.Text
dOMDocumentTypeGetInternalSubset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_type_get_internal_subset _obj'
checkUnexpectedReturnNULL "webkit_dom_document_type_get_internal_subset" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_document_type_get_name" webkit_dom_document_type_get_name ::
Ptr DOMDocumentType ->
IO CString
dOMDocumentTypeGetName ::
(MonadIO m, DOMDocumentTypeK a) =>
a ->
m T.Text
dOMDocumentTypeGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_type_get_name _obj'
checkUnexpectedReturnNULL "webkit_dom_document_type_get_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_document_type_get_notations" webkit_dom_document_type_get_notations ::
Ptr DOMDocumentType ->
IO (Ptr DOMNamedNodeMap)
dOMDocumentTypeGetNotations ::
(MonadIO m, DOMDocumentTypeK a) =>
a ->
m DOMNamedNodeMap
dOMDocumentTypeGetNotations _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_type_get_notations _obj'
checkUnexpectedReturnNULL "webkit_dom_document_type_get_notations" result
result' <- (wrapObject DOMNamedNodeMap) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_document_type_get_public_id" webkit_dom_document_type_get_public_id ::
Ptr DOMDocumentType ->
IO CString
dOMDocumentTypeGetPublicId ::
(MonadIO m, DOMDocumentTypeK a) =>
a ->
m T.Text
dOMDocumentTypeGetPublicId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_type_get_public_id _obj'
checkUnexpectedReturnNULL "webkit_dom_document_type_get_public_id" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_document_type_get_system_id" webkit_dom_document_type_get_system_id ::
Ptr DOMDocumentType ->
IO CString
dOMDocumentTypeGetSystemId ::
(MonadIO m, DOMDocumentTypeK a) =>
a ->
m T.Text
dOMDocumentTypeGetSystemId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_type_get_system_id _obj'
checkUnexpectedReturnNULL "webkit_dom_document_type_get_system_id" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_document_type_remove" webkit_dom_document_type_remove ::
Ptr DOMDocumentType ->
Ptr (Ptr GError) ->
IO ()
dOMDocumentTypeRemove ::
(MonadIO m, DOMDocumentTypeK a) =>
a ->
m ()
dOMDocumentTypeRemove _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_document_type_remove _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)