module GI.WebKit.Objects.WebPluginDatabase
(
WebPluginDatabase(..) ,
WebPluginDatabaseK ,
toWebPluginDatabase ,
noWebPluginDatabase ,
webPluginDatabaseGetPluginForMimetype ,
webPluginDatabaseGetPlugins ,
webPluginDatabasePluginsListFree ,
webPluginDatabaseRefresh ,
) 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 WebPluginDatabase = WebPluginDatabase (ForeignPtr WebPluginDatabase)
foreign import ccall "webkit_web_plugin_database_get_type"
c_webkit_web_plugin_database_get_type :: IO GType
type instance ParentTypes WebPluginDatabase = WebPluginDatabaseParentTypes
type WebPluginDatabaseParentTypes = '[GObject.Object]
instance GObject WebPluginDatabase where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_plugin_database_get_type
class GObject o => WebPluginDatabaseK o
instance (GObject o, IsDescendantOf WebPluginDatabase o) => WebPluginDatabaseK o
toWebPluginDatabase :: WebPluginDatabaseK o => o -> IO WebPluginDatabase
toWebPluginDatabase = unsafeCastTo WebPluginDatabase
noWebPluginDatabase :: Maybe WebPluginDatabase
noWebPluginDatabase = Nothing
type instance AttributeList WebPluginDatabase = WebPluginDatabaseAttributeList
type WebPluginDatabaseAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList WebPluginDatabase = WebPluginDatabaseSignalList
type WebPluginDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_web_plugin_database_get_plugin_for_mimetype" webkit_web_plugin_database_get_plugin_for_mimetype ::
Ptr WebPluginDatabase ->
CString ->
IO (Ptr WebPlugin)
webPluginDatabaseGetPluginForMimetype ::
(MonadIO m, WebPluginDatabaseK a) =>
a ->
T.Text ->
m WebPlugin
webPluginDatabaseGetPluginForMimetype _obj mime_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
mime_type' <- textToCString mime_type
result <- webkit_web_plugin_database_get_plugin_for_mimetype _obj' mime_type'
checkUnexpectedReturnNULL "webkit_web_plugin_database_get_plugin_for_mimetype" result
result' <- (wrapObject WebPlugin) result
touchManagedPtr _obj
freeMem mime_type'
return result'
foreign import ccall "webkit_web_plugin_database_get_plugins" webkit_web_plugin_database_get_plugins ::
Ptr WebPluginDatabase ->
IO (Ptr (GSList (Ptr WebPlugin)))
webPluginDatabaseGetPlugins ::
(MonadIO m, WebPluginDatabaseK a) =>
a ->
m [WebPlugin]
webPluginDatabaseGetPlugins _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_plugin_database_get_plugins _obj'
checkUnexpectedReturnNULL "webkit_web_plugin_database_get_plugins" result
result' <- unpackGSList result
result'' <- mapM (wrapObject WebPlugin) result'
g_slist_free result
touchManagedPtr _obj
return result''
foreign import ccall "webkit_web_plugin_database_refresh" webkit_web_plugin_database_refresh ::
Ptr WebPluginDatabase ->
IO ()
webPluginDatabaseRefresh ::
(MonadIO m, WebPluginDatabaseK a) =>
a ->
m ()
webPluginDatabaseRefresh _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_plugin_database_refresh _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_web_plugin_database_plugins_list_free" webkit_web_plugin_database_plugins_list_free ::
Ptr (GSList (Ptr WebPlugin)) ->
IO ()
webPluginDatabasePluginsListFree ::
(MonadIO m, WebPluginK a) =>
[a] ->
m ()
webPluginDatabasePluginsListFree list = liftIO $ do
let list' = map unsafeManagedPtrCastPtr list
list'' <- packGSList list'
webkit_web_plugin_database_plugins_list_free list''
mapM_ touchManagedPtr list
g_slist_free list''
return ()