module GI.WebKit.Objects.WebDatabase
(
WebDatabase(..) ,
IsWebDatabase ,
toWebDatabase ,
noWebDatabase ,
WebDatabaseGetDisplayNameMethodInfo ,
webDatabaseGetDisplayName ,
WebDatabaseGetExpectedSizeMethodInfo ,
webDatabaseGetExpectedSize ,
WebDatabaseGetFilenameMethodInfo ,
webDatabaseGetFilename ,
WebDatabaseGetNameMethodInfo ,
webDatabaseGetName ,
WebDatabaseGetSecurityOriginMethodInfo ,
webDatabaseGetSecurityOrigin ,
WebDatabaseGetSizeMethodInfo ,
webDatabaseGetSize ,
WebDatabaseRemoveMethodInfo ,
webDatabaseRemove ,
WebDatabaseDisplayNamePropertyInfo ,
getWebDatabaseDisplayName ,
webDatabaseDisplayName ,
WebDatabaseExpectedSizePropertyInfo ,
getWebDatabaseExpectedSize ,
webDatabaseExpectedSize ,
WebDatabaseFilenamePropertyInfo ,
getWebDatabaseFilename ,
webDatabaseFilename ,
WebDatabaseNamePropertyInfo ,
constructWebDatabaseName ,
getWebDatabaseName ,
webDatabaseName ,
WebDatabaseSecurityOriginPropertyInfo ,
constructWebDatabaseSecurityOrigin ,
getWebDatabaseSecurityOrigin ,
webDatabaseSecurityOrigin ,
WebDatabaseSizePropertyInfo ,
getWebDatabaseSize ,
webDatabaseSize ,
) 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.SecurityOrigin as WebKit.SecurityOrigin
newtype WebDatabase = WebDatabase (ManagedPtr WebDatabase)
foreign import ccall "webkit_web_database_get_type"
c_webkit_web_database_get_type :: IO GType
instance GObject WebDatabase where
gobjectType _ = c_webkit_web_database_get_type
class GObject o => IsWebDatabase o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError WebDatabase a) =>
IsWebDatabase a
#endif
instance IsWebDatabase WebDatabase
instance GObject.Object.IsObject WebDatabase
toWebDatabase :: IsWebDatabase o => o -> IO WebDatabase
toWebDatabase = unsafeCastTo WebDatabase
noWebDatabase :: Maybe WebDatabase
noWebDatabase = Nothing
type family ResolveWebDatabaseMethod (t :: Symbol) (o :: *) :: * where
ResolveWebDatabaseMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWebDatabaseMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWebDatabaseMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWebDatabaseMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWebDatabaseMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWebDatabaseMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWebDatabaseMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWebDatabaseMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWebDatabaseMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWebDatabaseMethod "remove" o = WebDatabaseRemoveMethodInfo
ResolveWebDatabaseMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveWebDatabaseMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveWebDatabaseMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWebDatabaseMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWebDatabaseMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWebDatabaseMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWebDatabaseMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWebDatabaseMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWebDatabaseMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWebDatabaseMethod "getDisplayName" o = WebDatabaseGetDisplayNameMethodInfo
ResolveWebDatabaseMethod "getExpectedSize" o = WebDatabaseGetExpectedSizeMethodInfo
ResolveWebDatabaseMethod "getFilename" o = WebDatabaseGetFilenameMethodInfo
ResolveWebDatabaseMethod "getName" o = WebDatabaseGetNameMethodInfo
ResolveWebDatabaseMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWebDatabaseMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWebDatabaseMethod "getSecurityOrigin" o = WebDatabaseGetSecurityOriginMethodInfo
ResolveWebDatabaseMethod "getSize" o = WebDatabaseGetSizeMethodInfo
ResolveWebDatabaseMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWebDatabaseMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWebDatabaseMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWebDatabaseMethod t WebDatabase, O.MethodInfo info WebDatabase p) => O.IsLabelProxy t (WebDatabase -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveWebDatabaseMethod t WebDatabase, O.MethodInfo info WebDatabase p) => O.IsLabel t (WebDatabase -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getWebDatabaseDisplayName :: (MonadIO m, IsWebDatabase o) => o -> m T.Text
getWebDatabaseDisplayName obj = liftIO $ checkUnexpectedNothing "getWebDatabaseDisplayName" $ getObjectPropertyString obj "display-name"
data WebDatabaseDisplayNamePropertyInfo
instance AttrInfo WebDatabaseDisplayNamePropertyInfo where
type AttrAllowedOps WebDatabaseDisplayNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebDatabaseDisplayNamePropertyInfo = (~) ()
type AttrBaseTypeConstraint WebDatabaseDisplayNamePropertyInfo = IsWebDatabase
type AttrGetType WebDatabaseDisplayNamePropertyInfo = T.Text
type AttrLabel WebDatabaseDisplayNamePropertyInfo = "display-name"
type AttrOrigin WebDatabaseDisplayNamePropertyInfo = WebDatabase
attrGet _ = getWebDatabaseDisplayName
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getWebDatabaseExpectedSize :: (MonadIO m, IsWebDatabase o) => o -> m Word64
getWebDatabaseExpectedSize obj = liftIO $ getObjectPropertyUInt64 obj "expected-size"
data WebDatabaseExpectedSizePropertyInfo
instance AttrInfo WebDatabaseExpectedSizePropertyInfo where
type AttrAllowedOps WebDatabaseExpectedSizePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebDatabaseExpectedSizePropertyInfo = (~) ()
type AttrBaseTypeConstraint WebDatabaseExpectedSizePropertyInfo = IsWebDatabase
type AttrGetType WebDatabaseExpectedSizePropertyInfo = Word64
type AttrLabel WebDatabaseExpectedSizePropertyInfo = "expected-size"
type AttrOrigin WebDatabaseExpectedSizePropertyInfo = WebDatabase
attrGet _ = getWebDatabaseExpectedSize
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getWebDatabaseFilename :: (MonadIO m, IsWebDatabase o) => o -> m T.Text
getWebDatabaseFilename obj = liftIO $ checkUnexpectedNothing "getWebDatabaseFilename" $ getObjectPropertyString obj "filename"
data WebDatabaseFilenamePropertyInfo
instance AttrInfo WebDatabaseFilenamePropertyInfo where
type AttrAllowedOps WebDatabaseFilenamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebDatabaseFilenamePropertyInfo = (~) ()
type AttrBaseTypeConstraint WebDatabaseFilenamePropertyInfo = IsWebDatabase
type AttrGetType WebDatabaseFilenamePropertyInfo = T.Text
type AttrLabel WebDatabaseFilenamePropertyInfo = "filename"
type AttrOrigin WebDatabaseFilenamePropertyInfo = WebDatabase
attrGet _ = getWebDatabaseFilename
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getWebDatabaseName :: (MonadIO m, IsWebDatabase o) => o -> m T.Text
getWebDatabaseName obj = liftIO $ checkUnexpectedNothing "getWebDatabaseName" $ getObjectPropertyString obj "name"
constructWebDatabaseName :: (IsWebDatabase o) => T.Text -> IO (GValueConstruct o)
constructWebDatabaseName val = constructObjectPropertyString "name" (Just val)
data WebDatabaseNamePropertyInfo
instance AttrInfo WebDatabaseNamePropertyInfo where
type AttrAllowedOps WebDatabaseNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebDatabaseNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebDatabaseNamePropertyInfo = IsWebDatabase
type AttrGetType WebDatabaseNamePropertyInfo = T.Text
type AttrLabel WebDatabaseNamePropertyInfo = "name"
type AttrOrigin WebDatabaseNamePropertyInfo = WebDatabase
attrGet _ = getWebDatabaseName
attrSet _ = undefined
attrConstruct _ = constructWebDatabaseName
attrClear _ = undefined
getWebDatabaseSecurityOrigin :: (MonadIO m, IsWebDatabase o) => o -> m WebKit.SecurityOrigin.SecurityOrigin
getWebDatabaseSecurityOrigin obj = liftIO $ checkUnexpectedNothing "getWebDatabaseSecurityOrigin" $ getObjectPropertyObject obj "security-origin" WebKit.SecurityOrigin.SecurityOrigin
constructWebDatabaseSecurityOrigin :: (IsWebDatabase o, WebKit.SecurityOrigin.IsSecurityOrigin a) => a -> IO (GValueConstruct o)
constructWebDatabaseSecurityOrigin val = constructObjectPropertyObject "security-origin" (Just val)
data WebDatabaseSecurityOriginPropertyInfo
instance AttrInfo WebDatabaseSecurityOriginPropertyInfo where
type AttrAllowedOps WebDatabaseSecurityOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint WebDatabaseSecurityOriginPropertyInfo = WebKit.SecurityOrigin.IsSecurityOrigin
type AttrBaseTypeConstraint WebDatabaseSecurityOriginPropertyInfo = IsWebDatabase
type AttrGetType WebDatabaseSecurityOriginPropertyInfo = WebKit.SecurityOrigin.SecurityOrigin
type AttrLabel WebDatabaseSecurityOriginPropertyInfo = "security-origin"
type AttrOrigin WebDatabaseSecurityOriginPropertyInfo = WebDatabase
attrGet _ = getWebDatabaseSecurityOrigin
attrSet _ = undefined
attrConstruct _ = constructWebDatabaseSecurityOrigin
attrClear _ = undefined
getWebDatabaseSize :: (MonadIO m, IsWebDatabase o) => o -> m Word64
getWebDatabaseSize obj = liftIO $ getObjectPropertyUInt64 obj "size"
data WebDatabaseSizePropertyInfo
instance AttrInfo WebDatabaseSizePropertyInfo where
type AttrAllowedOps WebDatabaseSizePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebDatabaseSizePropertyInfo = (~) ()
type AttrBaseTypeConstraint WebDatabaseSizePropertyInfo = IsWebDatabase
type AttrGetType WebDatabaseSizePropertyInfo = Word64
type AttrLabel WebDatabaseSizePropertyInfo = "size"
type AttrOrigin WebDatabaseSizePropertyInfo = WebDatabase
attrGet _ = getWebDatabaseSize
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
instance O.HasAttributeList WebDatabase
type instance O.AttributeList WebDatabase = WebDatabaseAttributeList
type WebDatabaseAttributeList = ('[ '("displayName", WebDatabaseDisplayNamePropertyInfo), '("expectedSize", WebDatabaseExpectedSizePropertyInfo), '("filename", WebDatabaseFilenamePropertyInfo), '("name", WebDatabaseNamePropertyInfo), '("securityOrigin", WebDatabaseSecurityOriginPropertyInfo), '("size", WebDatabaseSizePropertyInfo)] :: [(Symbol, *)])
webDatabaseDisplayName :: AttrLabelProxy "displayName"
webDatabaseDisplayName = AttrLabelProxy
webDatabaseExpectedSize :: AttrLabelProxy "expectedSize"
webDatabaseExpectedSize = AttrLabelProxy
webDatabaseFilename :: AttrLabelProxy "filename"
webDatabaseFilename = AttrLabelProxy
webDatabaseName :: AttrLabelProxy "name"
webDatabaseName = AttrLabelProxy
webDatabaseSecurityOrigin :: AttrLabelProxy "securityOrigin"
webDatabaseSecurityOrigin = AttrLabelProxy
webDatabaseSize :: AttrLabelProxy "size"
webDatabaseSize = AttrLabelProxy
type instance O.SignalList WebDatabase = WebDatabaseSignalList
type WebDatabaseSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_web_database_get_display_name" webkit_web_database_get_display_name ::
Ptr WebDatabase ->
IO CString
webDatabaseGetDisplayName ::
(B.CallStack.HasCallStack, MonadIO m, IsWebDatabase a) =>
a
-> m T.Text
webDatabaseGetDisplayName webDatabase = liftIO $ do
webDatabase' <- unsafeManagedPtrCastPtr webDatabase
result <- webkit_web_database_get_display_name webDatabase'
checkUnexpectedReturnNULL "webDatabaseGetDisplayName" result
result' <- cstringToText result
touchManagedPtr webDatabase
return result'
data WebDatabaseGetDisplayNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWebDatabase a) => O.MethodInfo WebDatabaseGetDisplayNameMethodInfo a signature where
overloadedMethod _ = webDatabaseGetDisplayName
foreign import ccall "webkit_web_database_get_expected_size" webkit_web_database_get_expected_size ::
Ptr WebDatabase ->
IO Word64
webDatabaseGetExpectedSize ::
(B.CallStack.HasCallStack, MonadIO m, IsWebDatabase a) =>
a
-> m Word64
webDatabaseGetExpectedSize webDatabase = liftIO $ do
webDatabase' <- unsafeManagedPtrCastPtr webDatabase
result <- webkit_web_database_get_expected_size webDatabase'
touchManagedPtr webDatabase
return result
data WebDatabaseGetExpectedSizeMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsWebDatabase a) => O.MethodInfo WebDatabaseGetExpectedSizeMethodInfo a signature where
overloadedMethod _ = webDatabaseGetExpectedSize
foreign import ccall "webkit_web_database_get_filename" webkit_web_database_get_filename ::
Ptr WebDatabase ->
IO CString
webDatabaseGetFilename ::
(B.CallStack.HasCallStack, MonadIO m, IsWebDatabase a) =>
a
-> m T.Text
webDatabaseGetFilename webDatabase = liftIO $ do
webDatabase' <- unsafeManagedPtrCastPtr webDatabase
result <- webkit_web_database_get_filename webDatabase'
checkUnexpectedReturnNULL "webDatabaseGetFilename" result
result' <- cstringToText result
touchManagedPtr webDatabase
return result'
data WebDatabaseGetFilenameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWebDatabase a) => O.MethodInfo WebDatabaseGetFilenameMethodInfo a signature where
overloadedMethod _ = webDatabaseGetFilename
foreign import ccall "webkit_web_database_get_name" webkit_web_database_get_name ::
Ptr WebDatabase ->
IO CString
webDatabaseGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsWebDatabase a) =>
a
-> m T.Text
webDatabaseGetName webDatabase = liftIO $ do
webDatabase' <- unsafeManagedPtrCastPtr webDatabase
result <- webkit_web_database_get_name webDatabase'
checkUnexpectedReturnNULL "webDatabaseGetName" result
result' <- cstringToText result
touchManagedPtr webDatabase
return result'
data WebDatabaseGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsWebDatabase a) => O.MethodInfo WebDatabaseGetNameMethodInfo a signature where
overloadedMethod _ = webDatabaseGetName
foreign import ccall "webkit_web_database_get_security_origin" webkit_web_database_get_security_origin ::
Ptr WebDatabase ->
IO (Ptr WebKit.SecurityOrigin.SecurityOrigin)
webDatabaseGetSecurityOrigin ::
(B.CallStack.HasCallStack, MonadIO m, IsWebDatabase a) =>
a
-> m WebKit.SecurityOrigin.SecurityOrigin
webDatabaseGetSecurityOrigin webDatabase = liftIO $ do
webDatabase' <- unsafeManagedPtrCastPtr webDatabase
result <- webkit_web_database_get_security_origin webDatabase'
checkUnexpectedReturnNULL "webDatabaseGetSecurityOrigin" result
result' <- (newObject WebKit.SecurityOrigin.SecurityOrigin) result
touchManagedPtr webDatabase
return result'
data WebDatabaseGetSecurityOriginMethodInfo
instance (signature ~ (m WebKit.SecurityOrigin.SecurityOrigin), MonadIO m, IsWebDatabase a) => O.MethodInfo WebDatabaseGetSecurityOriginMethodInfo a signature where
overloadedMethod _ = webDatabaseGetSecurityOrigin
foreign import ccall "webkit_web_database_get_size" webkit_web_database_get_size ::
Ptr WebDatabase ->
IO Word64
webDatabaseGetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsWebDatabase a) =>
a
-> m Word64
webDatabaseGetSize webDatabase = liftIO $ do
webDatabase' <- unsafeManagedPtrCastPtr webDatabase
result <- webkit_web_database_get_size webDatabase'
touchManagedPtr webDatabase
return result
data WebDatabaseGetSizeMethodInfo
instance (signature ~ (m Word64), MonadIO m, IsWebDatabase a) => O.MethodInfo WebDatabaseGetSizeMethodInfo a signature where
overloadedMethod _ = webDatabaseGetSize
foreign import ccall "webkit_web_database_remove" webkit_web_database_remove ::
Ptr WebDatabase ->
IO ()
webDatabaseRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsWebDatabase a) =>
a
-> m ()
webDatabaseRemove webDatabase = liftIO $ do
webDatabase' <- unsafeManagedPtrCastPtr webDatabase
webkit_web_database_remove webDatabase'
touchManagedPtr webDatabase
return ()
data WebDatabaseRemoveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsWebDatabase a) => O.MethodInfo WebDatabaseRemoveMethodInfo a signature where
overloadedMethod _ = webDatabaseRemove