{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstPbutils.Structs.InstallPluginsContext
(
InstallPluginsContext(..) ,
noInstallPluginsContext ,
#if defined(ENABLE_OVERLOADING)
ResolveInstallPluginsContextMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
InstallPluginsContextCopyMethodInfo ,
#endif
installPluginsContextCopy ,
#if defined(ENABLE_OVERLOADING)
InstallPluginsContextFreeMethodInfo ,
#endif
installPluginsContextFree ,
installPluginsContextNew ,
#if defined(ENABLE_OVERLOADING)
InstallPluginsContextSetConfirmSearchMethodInfo,
#endif
installPluginsContextSetConfirmSearch ,
#if defined(ENABLE_OVERLOADING)
InstallPluginsContextSetDesktopIdMethodInfo,
#endif
installPluginsContextSetDesktopId ,
#if defined(ENABLE_OVERLOADING)
InstallPluginsContextSetStartupNotificationIdMethodInfo,
#endif
installPluginsContextSetStartupNotificationId,
#if defined(ENABLE_OVERLOADING)
InstallPluginsContextSetXidMethodInfo ,
#endif
installPluginsContextSetXid ,
) 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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
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 GHC.OverloadedLabels as OL
newtype InstallPluginsContext = InstallPluginsContext (ManagedPtr InstallPluginsContext)
deriving (InstallPluginsContext -> InstallPluginsContext -> Bool
(InstallPluginsContext -> InstallPluginsContext -> Bool)
-> (InstallPluginsContext -> InstallPluginsContext -> Bool)
-> Eq InstallPluginsContext
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: InstallPluginsContext -> InstallPluginsContext -> Bool
$c/= :: InstallPluginsContext -> InstallPluginsContext -> Bool
== :: InstallPluginsContext -> InstallPluginsContext -> Bool
$c== :: InstallPluginsContext -> InstallPluginsContext -> Bool
Eq)
foreign import ccall "gst_install_plugins_context_get_type" c_gst_install_plugins_context_get_type ::
IO GType
instance BoxedObject InstallPluginsContext where
boxedType :: InstallPluginsContext -> IO GType
boxedType _ = IO GType
c_gst_install_plugins_context_get_type
instance B.GValue.IsGValue InstallPluginsContext where
toGValue :: InstallPluginsContext -> IO GValue
toGValue o :: InstallPluginsContext
o = do
GType
gtype <- IO GType
c_gst_install_plugins_context_get_type
InstallPluginsContext
-> (Ptr InstallPluginsContext -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr InstallPluginsContext
o (GType
-> (GValue -> Ptr InstallPluginsContext -> IO ())
-> Ptr InstallPluginsContext
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr InstallPluginsContext -> IO ()
forall a. GValue -> Ptr a -> IO ()
B.GValue.set_boxed)
fromGValue :: GValue -> IO InstallPluginsContext
fromGValue gv :: GValue
gv = do
Ptr InstallPluginsContext
ptr <- GValue -> IO (Ptr InstallPluginsContext)
forall b. GValue -> IO (Ptr b)
B.GValue.get_boxed GValue
gv :: IO (Ptr InstallPluginsContext)
(ManagedPtr InstallPluginsContext -> InstallPluginsContext)
-> Ptr InstallPluginsContext -> IO InstallPluginsContext
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr InstallPluginsContext -> InstallPluginsContext
InstallPluginsContext Ptr InstallPluginsContext
ptr
noInstallPluginsContext :: Maybe InstallPluginsContext
noInstallPluginsContext :: Maybe InstallPluginsContext
noInstallPluginsContext = Maybe InstallPluginsContext
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList InstallPluginsContext
type instance O.AttributeList InstallPluginsContext = InstallPluginsContextAttributeList
type InstallPluginsContextAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "gst_install_plugins_context_new" gst_install_plugins_context_new ::
IO (Ptr InstallPluginsContext)
installPluginsContextNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m InstallPluginsContext
installPluginsContextNew :: m InstallPluginsContext
installPluginsContextNew = IO InstallPluginsContext -> m InstallPluginsContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InstallPluginsContext -> m InstallPluginsContext)
-> IO InstallPluginsContext -> m InstallPluginsContext
forall a b. (a -> b) -> a -> b
$ do
Ptr InstallPluginsContext
result <- IO (Ptr InstallPluginsContext)
gst_install_plugins_context_new
Text -> Ptr InstallPluginsContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "installPluginsContextNew" Ptr InstallPluginsContext
result
InstallPluginsContext
result' <- ((ManagedPtr InstallPluginsContext -> InstallPluginsContext)
-> Ptr InstallPluginsContext -> IO InstallPluginsContext
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr InstallPluginsContext -> InstallPluginsContext
InstallPluginsContext) Ptr InstallPluginsContext
result
InstallPluginsContext -> IO InstallPluginsContext
forall (m :: * -> *) a. Monad m => a -> m a
return InstallPluginsContext
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gst_install_plugins_context_copy" gst_install_plugins_context_copy ::
Ptr InstallPluginsContext ->
IO (Ptr InstallPluginsContext)
installPluginsContextCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
InstallPluginsContext
-> m InstallPluginsContext
installPluginsContextCopy :: InstallPluginsContext -> m InstallPluginsContext
installPluginsContextCopy ctx :: InstallPluginsContext
ctx = IO InstallPluginsContext -> m InstallPluginsContext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InstallPluginsContext -> m InstallPluginsContext)
-> IO InstallPluginsContext -> m InstallPluginsContext
forall a b. (a -> b) -> a -> b
$ do
Ptr InstallPluginsContext
ctx' <- InstallPluginsContext -> IO (Ptr InstallPluginsContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr InstallPluginsContext
ctx
Ptr InstallPluginsContext
result <- Ptr InstallPluginsContext -> IO (Ptr InstallPluginsContext)
gst_install_plugins_context_copy Ptr InstallPluginsContext
ctx'
Text -> Ptr InstallPluginsContext -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "installPluginsContextCopy" Ptr InstallPluginsContext
result
InstallPluginsContext
result' <- ((ManagedPtr InstallPluginsContext -> InstallPluginsContext)
-> Ptr InstallPluginsContext -> IO InstallPluginsContext
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr InstallPluginsContext -> InstallPluginsContext
InstallPluginsContext) Ptr InstallPluginsContext
result
InstallPluginsContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr InstallPluginsContext
ctx
InstallPluginsContext -> IO InstallPluginsContext
forall (m :: * -> *) a. Monad m => a -> m a
return InstallPluginsContext
result'
#if defined(ENABLE_OVERLOADING)
data InstallPluginsContextCopyMethodInfo
instance (signature ~ (m InstallPluginsContext), MonadIO m) => O.MethodInfo InstallPluginsContextCopyMethodInfo InstallPluginsContext signature where
overloadedMethod = installPluginsContextCopy
#endif
foreign import ccall "gst_install_plugins_context_free" gst_install_plugins_context_free ::
Ptr InstallPluginsContext ->
IO ()
installPluginsContextFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
InstallPluginsContext
-> m ()
installPluginsContextFree :: InstallPluginsContext -> m ()
installPluginsContextFree ctx :: InstallPluginsContext
ctx = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr InstallPluginsContext
ctx' <- InstallPluginsContext -> IO (Ptr InstallPluginsContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr InstallPluginsContext
ctx
Ptr InstallPluginsContext -> IO ()
gst_install_plugins_context_free Ptr InstallPluginsContext
ctx'
InstallPluginsContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr InstallPluginsContext
ctx
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data InstallPluginsContextFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo InstallPluginsContextFreeMethodInfo InstallPluginsContext signature where
overloadedMethod = installPluginsContextFree
#endif
foreign import ccall "gst_install_plugins_context_set_confirm_search" gst_install_plugins_context_set_confirm_search ::
Ptr InstallPluginsContext ->
CInt ->
IO ()
installPluginsContextSetConfirmSearch ::
(B.CallStack.HasCallStack, MonadIO m) =>
InstallPluginsContext
-> Bool
-> m ()
installPluginsContextSetConfirmSearch :: InstallPluginsContext -> Bool -> m ()
installPluginsContextSetConfirmSearch ctx :: InstallPluginsContext
ctx confirmSearch :: Bool
confirmSearch = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr InstallPluginsContext
ctx' <- InstallPluginsContext -> IO (Ptr InstallPluginsContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr InstallPluginsContext
ctx
let confirmSearch' :: CInt
confirmSearch' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
confirmSearch
Ptr InstallPluginsContext -> CInt -> IO ()
gst_install_plugins_context_set_confirm_search Ptr InstallPluginsContext
ctx' CInt
confirmSearch'
InstallPluginsContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr InstallPluginsContext
ctx
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data InstallPluginsContextSetConfirmSearchMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m) => O.MethodInfo InstallPluginsContextSetConfirmSearchMethodInfo InstallPluginsContext signature where
overloadedMethod = installPluginsContextSetConfirmSearch
#endif
foreign import ccall "gst_install_plugins_context_set_desktop_id" gst_install_plugins_context_set_desktop_id ::
Ptr InstallPluginsContext ->
CString ->
IO ()
installPluginsContextSetDesktopId ::
(B.CallStack.HasCallStack, MonadIO m) =>
InstallPluginsContext
-> T.Text
-> m ()
installPluginsContextSetDesktopId :: InstallPluginsContext -> Text -> m ()
installPluginsContextSetDesktopId ctx :: InstallPluginsContext
ctx desktopId :: Text
desktopId = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr InstallPluginsContext
ctx' <- InstallPluginsContext -> IO (Ptr InstallPluginsContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr InstallPluginsContext
ctx
CString
desktopId' <- Text -> IO CString
textToCString Text
desktopId
Ptr InstallPluginsContext -> CString -> IO ()
gst_install_plugins_context_set_desktop_id Ptr InstallPluginsContext
ctx' CString
desktopId'
InstallPluginsContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr InstallPluginsContext
ctx
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
desktopId'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data InstallPluginsContextSetDesktopIdMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo InstallPluginsContextSetDesktopIdMethodInfo InstallPluginsContext signature where
overloadedMethod = installPluginsContextSetDesktopId
#endif
foreign import ccall "gst_install_plugins_context_set_startup_notification_id" gst_install_plugins_context_set_startup_notification_id ::
Ptr InstallPluginsContext ->
CString ->
IO ()
installPluginsContextSetStartupNotificationId ::
(B.CallStack.HasCallStack, MonadIO m) =>
InstallPluginsContext
-> T.Text
-> m ()
installPluginsContextSetStartupNotificationId :: InstallPluginsContext -> Text -> m ()
installPluginsContextSetStartupNotificationId ctx :: InstallPluginsContext
ctx startupId :: Text
startupId = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr InstallPluginsContext
ctx' <- InstallPluginsContext -> IO (Ptr InstallPluginsContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr InstallPluginsContext
ctx
CString
startupId' <- Text -> IO CString
textToCString Text
startupId
Ptr InstallPluginsContext -> CString -> IO ()
gst_install_plugins_context_set_startup_notification_id Ptr InstallPluginsContext
ctx' CString
startupId'
InstallPluginsContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr InstallPluginsContext
ctx
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
startupId'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data InstallPluginsContextSetStartupNotificationIdMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo InstallPluginsContextSetStartupNotificationIdMethodInfo InstallPluginsContext signature where
overloadedMethod = installPluginsContextSetStartupNotificationId
#endif
foreign import ccall "gst_install_plugins_context_set_xid" gst_install_plugins_context_set_xid ::
Ptr InstallPluginsContext ->
Word32 ->
IO ()
installPluginsContextSetXid ::
(B.CallStack.HasCallStack, MonadIO m) =>
InstallPluginsContext
-> Word32
-> m ()
installPluginsContextSetXid :: InstallPluginsContext -> Word32 -> m ()
installPluginsContextSetXid ctx :: InstallPluginsContext
ctx xid :: Word32
xid = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr InstallPluginsContext
ctx' <- InstallPluginsContext -> IO (Ptr InstallPluginsContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr InstallPluginsContext
ctx
Ptr InstallPluginsContext -> Word32 -> IO ()
gst_install_plugins_context_set_xid Ptr InstallPluginsContext
ctx' Word32
xid
InstallPluginsContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr InstallPluginsContext
ctx
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data InstallPluginsContextSetXidMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m) => O.MethodInfo InstallPluginsContextSetXidMethodInfo InstallPluginsContext signature where
overloadedMethod = installPluginsContextSetXid
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveInstallPluginsContextMethod (t :: Symbol) (o :: *) :: * where
ResolveInstallPluginsContextMethod "copy" o = InstallPluginsContextCopyMethodInfo
ResolveInstallPluginsContextMethod "free" o = InstallPluginsContextFreeMethodInfo
ResolveInstallPluginsContextMethod "setConfirmSearch" o = InstallPluginsContextSetConfirmSearchMethodInfo
ResolveInstallPluginsContextMethod "setDesktopId" o = InstallPluginsContextSetDesktopIdMethodInfo
ResolveInstallPluginsContextMethod "setStartupNotificationId" o = InstallPluginsContextSetStartupNotificationIdMethodInfo
ResolveInstallPluginsContextMethod "setXid" o = InstallPluginsContextSetXidMethodInfo
ResolveInstallPluginsContextMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveInstallPluginsContextMethod t InstallPluginsContext, O.MethodInfo info InstallPluginsContext p) => OL.IsLabel t (InstallPluginsContext -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif