module GI.WebKit2.Objects.Plugin
(
Plugin(..) ,
IsPlugin ,
toPlugin ,
noPlugin ,
PluginGetDescriptionMethodInfo ,
pluginGetDescription ,
PluginGetMimeInfoListMethodInfo ,
pluginGetMimeInfoList ,
PluginGetNameMethodInfo ,
pluginGetName ,
PluginGetPathMethodInfo ,
pluginGetPath ,
) 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.WebKit2.Structs.MimeInfo as WebKit2.MimeInfo
newtype Plugin = Plugin (ManagedPtr Plugin)
foreign import ccall "webkit_plugin_get_type"
c_webkit_plugin_get_type :: IO GType
instance GObject Plugin where
gobjectType _ = c_webkit_plugin_get_type
class GObject o => IsPlugin o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError Plugin a) =>
IsPlugin a
#endif
instance IsPlugin Plugin
instance GObject.Object.IsObject Plugin
toPlugin :: IsPlugin o => o -> IO Plugin
toPlugin = unsafeCastTo Plugin
noPlugin :: Maybe Plugin
noPlugin = Nothing
type family ResolvePluginMethod (t :: Symbol) (o :: *) :: * where
ResolvePluginMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePluginMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePluginMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePluginMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePluginMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePluginMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePluginMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePluginMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePluginMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePluginMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolvePluginMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolvePluginMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePluginMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePluginMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePluginMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePluginMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePluginMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePluginMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePluginMethod "getDescription" o = PluginGetDescriptionMethodInfo
ResolvePluginMethod "getMimeInfoList" o = PluginGetMimeInfoListMethodInfo
ResolvePluginMethod "getName" o = PluginGetNameMethodInfo
ResolvePluginMethod "getPath" o = PluginGetPathMethodInfo
ResolvePluginMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePluginMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePluginMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePluginMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePluginMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePluginMethod t Plugin, O.MethodInfo info Plugin p) => O.IsLabelProxy t (Plugin -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolvePluginMethod t Plugin, O.MethodInfo info Plugin p) => O.IsLabel t (Plugin -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
instance O.HasAttributeList Plugin
type instance O.AttributeList Plugin = PluginAttributeList
type PluginAttributeList = ('[ ] :: [(Symbol, *)])
type instance O.SignalList Plugin = PluginSignalList
type PluginSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_plugin_get_description" webkit_plugin_get_description ::
Ptr Plugin ->
IO CString
pluginGetDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsPlugin a) =>
a
-> m T.Text
pluginGetDescription plugin = liftIO $ do
plugin' <- unsafeManagedPtrCastPtr plugin
result <- webkit_plugin_get_description plugin'
checkUnexpectedReturnNULL "pluginGetDescription" result
result' <- cstringToText result
touchManagedPtr plugin
return result'
data PluginGetDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsPlugin a) => O.MethodInfo PluginGetDescriptionMethodInfo a signature where
overloadedMethod _ = pluginGetDescription
foreign import ccall "webkit_plugin_get_mime_info_list" webkit_plugin_get_mime_info_list ::
Ptr Plugin ->
IO (Ptr (GList (Ptr WebKit2.MimeInfo.MimeInfo)))
pluginGetMimeInfoList ::
(B.CallStack.HasCallStack, MonadIO m, IsPlugin a) =>
a
-> m [WebKit2.MimeInfo.MimeInfo]
pluginGetMimeInfoList plugin = liftIO $ do
plugin' <- unsafeManagedPtrCastPtr plugin
result <- webkit_plugin_get_mime_info_list plugin'
result' <- unpackGList result
result'' <- mapM (newBoxed WebKit2.MimeInfo.MimeInfo) result'
touchManagedPtr plugin
return result''
data PluginGetMimeInfoListMethodInfo
instance (signature ~ (m [WebKit2.MimeInfo.MimeInfo]), MonadIO m, IsPlugin a) => O.MethodInfo PluginGetMimeInfoListMethodInfo a signature where
overloadedMethod _ = pluginGetMimeInfoList
foreign import ccall "webkit_plugin_get_name" webkit_plugin_get_name ::
Ptr Plugin ->
IO CString
pluginGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsPlugin a) =>
a
-> m T.Text
pluginGetName plugin = liftIO $ do
plugin' <- unsafeManagedPtrCastPtr plugin
result <- webkit_plugin_get_name plugin'
checkUnexpectedReturnNULL "pluginGetName" result
result' <- cstringToText result
touchManagedPtr plugin
return result'
data PluginGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsPlugin a) => O.MethodInfo PluginGetNameMethodInfo a signature where
overloadedMethod _ = pluginGetName
foreign import ccall "webkit_plugin_get_path" webkit_plugin_get_path ::
Ptr Plugin ->
IO CString
pluginGetPath ::
(B.CallStack.HasCallStack, MonadIO m, IsPlugin a) =>
a
-> m T.Text
pluginGetPath plugin = liftIO $ do
plugin' <- unsafeManagedPtrCastPtr plugin
result <- webkit_plugin_get_path plugin'
checkUnexpectedReturnNULL "pluginGetPath" result
result' <- cstringToText result
touchManagedPtr plugin
return result'
data PluginGetPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsPlugin a) => O.MethodInfo PluginGetPathMethodInfo a signature where
overloadedMethod _ = pluginGetPath