module GI.WebKit.Objects.SecurityOrigin
(
SecurityOrigin(..) ,
SecurityOriginK ,
toSecurityOrigin ,
noSecurityOrigin ,
securityOriginGetAllWebDatabases ,
securityOriginGetHost ,
securityOriginGetPort ,
securityOriginGetProtocol ,
securityOriginGetWebDatabaseQuota ,
securityOriginGetWebDatabaseUsage ,
securityOriginSetWebDatabaseQuota ,
SecurityOriginHostPropertyInfo ,
getSecurityOriginHost ,
SecurityOriginPortPropertyInfo ,
getSecurityOriginPort ,
SecurityOriginProtocolPropertyInfo ,
getSecurityOriginProtocol ,
SecurityOriginWebDatabaseQuotaPropertyInfo,
constructSecurityOriginWebDatabaseQuota ,
getSecurityOriginWebDatabaseQuota ,
setSecurityOriginWebDatabaseQuota ,
SecurityOriginWebDatabaseUsagePropertyInfo,
getSecurityOriginWebDatabaseUsage ,
) 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 SecurityOrigin = SecurityOrigin (ForeignPtr SecurityOrigin)
foreign import ccall "webkit_security_origin_get_type"
c_webkit_security_origin_get_type :: IO GType
type instance ParentTypes SecurityOrigin = SecurityOriginParentTypes
type SecurityOriginParentTypes = '[GObject.Object]
instance GObject SecurityOrigin where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_security_origin_get_type
class GObject o => SecurityOriginK o
instance (GObject o, IsDescendantOf SecurityOrigin o) => SecurityOriginK o
toSecurityOrigin :: SecurityOriginK o => o -> IO SecurityOrigin
toSecurityOrigin = unsafeCastTo SecurityOrigin
noSecurityOrigin :: Maybe SecurityOrigin
noSecurityOrigin = Nothing
getSecurityOriginHost :: (MonadIO m, SecurityOriginK o) => o -> m T.Text
getSecurityOriginHost obj = liftIO $ getObjectPropertyString obj "host"
data SecurityOriginHostPropertyInfo
instance AttrInfo SecurityOriginHostPropertyInfo where
type AttrAllowedOps SecurityOriginHostPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint SecurityOriginHostPropertyInfo = (~) ()
type AttrBaseTypeConstraint SecurityOriginHostPropertyInfo = SecurityOriginK
type AttrGetType SecurityOriginHostPropertyInfo = T.Text
type AttrLabel SecurityOriginHostPropertyInfo = "SecurityOrigin::host"
attrGet _ = getSecurityOriginHost
attrSet _ = undefined
attrConstruct _ = undefined
getSecurityOriginPort :: (MonadIO m, SecurityOriginK o) => o -> m Word32
getSecurityOriginPort obj = liftIO $ getObjectPropertyCUInt obj "port"
data SecurityOriginPortPropertyInfo
instance AttrInfo SecurityOriginPortPropertyInfo where
type AttrAllowedOps SecurityOriginPortPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint SecurityOriginPortPropertyInfo = (~) ()
type AttrBaseTypeConstraint SecurityOriginPortPropertyInfo = SecurityOriginK
type AttrGetType SecurityOriginPortPropertyInfo = Word32
type AttrLabel SecurityOriginPortPropertyInfo = "SecurityOrigin::port"
attrGet _ = getSecurityOriginPort
attrSet _ = undefined
attrConstruct _ = undefined
getSecurityOriginProtocol :: (MonadIO m, SecurityOriginK o) => o -> m T.Text
getSecurityOriginProtocol obj = liftIO $ getObjectPropertyString obj "protocol"
data SecurityOriginProtocolPropertyInfo
instance AttrInfo SecurityOriginProtocolPropertyInfo where
type AttrAllowedOps SecurityOriginProtocolPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint SecurityOriginProtocolPropertyInfo = (~) ()
type AttrBaseTypeConstraint SecurityOriginProtocolPropertyInfo = SecurityOriginK
type AttrGetType SecurityOriginProtocolPropertyInfo = T.Text
type AttrLabel SecurityOriginProtocolPropertyInfo = "SecurityOrigin::protocol"
attrGet _ = getSecurityOriginProtocol
attrSet _ = undefined
attrConstruct _ = undefined
getSecurityOriginWebDatabaseQuota :: (MonadIO m, SecurityOriginK o) => o -> m Word64
getSecurityOriginWebDatabaseQuota obj = liftIO $ getObjectPropertyUInt64 obj "web-database-quota"
setSecurityOriginWebDatabaseQuota :: (MonadIO m, SecurityOriginK o) => o -> Word64 -> m ()
setSecurityOriginWebDatabaseQuota obj val = liftIO $ setObjectPropertyUInt64 obj "web-database-quota" val
constructSecurityOriginWebDatabaseQuota :: Word64 -> IO ([Char], GValue)
constructSecurityOriginWebDatabaseQuota val = constructObjectPropertyUInt64 "web-database-quota" val
data SecurityOriginWebDatabaseQuotaPropertyInfo
instance AttrInfo SecurityOriginWebDatabaseQuotaPropertyInfo where
type AttrAllowedOps SecurityOriginWebDatabaseQuotaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SecurityOriginWebDatabaseQuotaPropertyInfo = (~) Word64
type AttrBaseTypeConstraint SecurityOriginWebDatabaseQuotaPropertyInfo = SecurityOriginK
type AttrGetType SecurityOriginWebDatabaseQuotaPropertyInfo = Word64
type AttrLabel SecurityOriginWebDatabaseQuotaPropertyInfo = "SecurityOrigin::web-database-quota"
attrGet _ = getSecurityOriginWebDatabaseQuota
attrSet _ = setSecurityOriginWebDatabaseQuota
attrConstruct _ = constructSecurityOriginWebDatabaseQuota
getSecurityOriginWebDatabaseUsage :: (MonadIO m, SecurityOriginK o) => o -> m Word64
getSecurityOriginWebDatabaseUsage obj = liftIO $ getObjectPropertyUInt64 obj "web-database-usage"
data SecurityOriginWebDatabaseUsagePropertyInfo
instance AttrInfo SecurityOriginWebDatabaseUsagePropertyInfo where
type AttrAllowedOps SecurityOriginWebDatabaseUsagePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint SecurityOriginWebDatabaseUsagePropertyInfo = (~) ()
type AttrBaseTypeConstraint SecurityOriginWebDatabaseUsagePropertyInfo = SecurityOriginK
type AttrGetType SecurityOriginWebDatabaseUsagePropertyInfo = Word64
type AttrLabel SecurityOriginWebDatabaseUsagePropertyInfo = "SecurityOrigin::web-database-usage"
attrGet _ = getSecurityOriginWebDatabaseUsage
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList SecurityOrigin = SecurityOriginAttributeList
type SecurityOriginAttributeList = ('[ '("host", SecurityOriginHostPropertyInfo), '("port", SecurityOriginPortPropertyInfo), '("protocol", SecurityOriginProtocolPropertyInfo), '("web-database-quota", SecurityOriginWebDatabaseQuotaPropertyInfo), '("web-database-usage", SecurityOriginWebDatabaseUsagePropertyInfo)] :: [(Symbol, *)])
type instance SignalList SecurityOrigin = SecurityOriginSignalList
type SecurityOriginSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_security_origin_get_all_web_databases" webkit_security_origin_get_all_web_databases ::
Ptr SecurityOrigin ->
IO (Ptr (GList (Ptr WebDatabase)))
securityOriginGetAllWebDatabases ::
(MonadIO m, SecurityOriginK a) =>
a ->
m [WebDatabase]
securityOriginGetAllWebDatabases _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_security_origin_get_all_web_databases _obj'
checkUnexpectedReturnNULL "webkit_security_origin_get_all_web_databases" result
result' <- unpackGList result
result'' <- mapM (newObject WebDatabase) result'
g_list_free result
touchManagedPtr _obj
return result''
foreign import ccall "webkit_security_origin_get_host" webkit_security_origin_get_host ::
Ptr SecurityOrigin ->
IO CString
securityOriginGetHost ::
(MonadIO m, SecurityOriginK a) =>
a ->
m T.Text
securityOriginGetHost _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_security_origin_get_host _obj'
checkUnexpectedReturnNULL "webkit_security_origin_get_host" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_security_origin_get_port" webkit_security_origin_get_port ::
Ptr SecurityOrigin ->
IO Word32
securityOriginGetPort ::
(MonadIO m, SecurityOriginK a) =>
a ->
m Word32
securityOriginGetPort _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_security_origin_get_port _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_security_origin_get_protocol" webkit_security_origin_get_protocol ::
Ptr SecurityOrigin ->
IO CString
securityOriginGetProtocol ::
(MonadIO m, SecurityOriginK a) =>
a ->
m T.Text
securityOriginGetProtocol _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_security_origin_get_protocol _obj'
checkUnexpectedReturnNULL "webkit_security_origin_get_protocol" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_security_origin_get_web_database_quota" webkit_security_origin_get_web_database_quota ::
Ptr SecurityOrigin ->
IO Word64
securityOriginGetWebDatabaseQuota ::
(MonadIO m, SecurityOriginK a) =>
a ->
m Word64
securityOriginGetWebDatabaseQuota _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_security_origin_get_web_database_quota _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_security_origin_get_web_database_usage" webkit_security_origin_get_web_database_usage ::
Ptr SecurityOrigin ->
IO Word64
securityOriginGetWebDatabaseUsage ::
(MonadIO m, SecurityOriginK a) =>
a ->
m Word64
securityOriginGetWebDatabaseUsage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_security_origin_get_web_database_usage _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_security_origin_set_web_database_quota" webkit_security_origin_set_web_database_quota ::
Ptr SecurityOrigin ->
Word64 ->
IO ()
securityOriginSetWebDatabaseQuota ::
(MonadIO m, SecurityOriginK a) =>
a ->
Word64 ->
m ()
securityOriginSetWebDatabaseQuota _obj quota = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_security_origin_set_web_database_quota _obj' quota
touchManagedPtr _obj
return ()