{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstVideo.Structs.VideoGLTextureUploadMeta
(
VideoGLTextureUploadMeta(..) ,
newZeroVideoGLTextureUploadMeta ,
noVideoGLTextureUploadMeta ,
#if defined(ENABLE_OVERLOADING)
ResolveVideoGLTextureUploadMetaMethod ,
#endif
videoGLTextureUploadMetaGetInfo ,
#if defined(ENABLE_OVERLOADING)
VideoGLTextureUploadMetaUploadMethodInfo,
#endif
videoGLTextureUploadMetaUpload ,
getVideoGLTextureUploadMetaMeta ,
#if defined(ENABLE_OVERLOADING)
videoGLTextureUploadMeta_meta ,
#endif
getVideoGLTextureUploadMetaNTextures ,
setVideoGLTextureUploadMetaNTextures ,
#if defined(ENABLE_OVERLOADING)
videoGLTextureUploadMeta_nTextures ,
#endif
getVideoGLTextureUploadMetaTextureOrientation,
setVideoGLTextureUploadMetaTextureOrientation,
#if defined(ENABLE_OVERLOADING)
videoGLTextureUploadMeta_textureOrientation,
#endif
) 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
import qualified GI.Gst.Structs.Meta as Gst.Meta
import qualified GI.Gst.Structs.MetaInfo as Gst.MetaInfo
import {-# SOURCE #-} qualified GI.GstVideo.Enums as GstVideo.Enums
newtype VideoGLTextureUploadMeta = VideoGLTextureUploadMeta (ManagedPtr VideoGLTextureUploadMeta)
deriving (VideoGLTextureUploadMeta -> VideoGLTextureUploadMeta -> Bool
(VideoGLTextureUploadMeta -> VideoGLTextureUploadMeta -> Bool)
-> (VideoGLTextureUploadMeta -> VideoGLTextureUploadMeta -> Bool)
-> Eq VideoGLTextureUploadMeta
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VideoGLTextureUploadMeta -> VideoGLTextureUploadMeta -> Bool
$c/= :: VideoGLTextureUploadMeta -> VideoGLTextureUploadMeta -> Bool
== :: VideoGLTextureUploadMeta -> VideoGLTextureUploadMeta -> Bool
$c== :: VideoGLTextureUploadMeta -> VideoGLTextureUploadMeta -> Bool
Eq)
instance WrappedPtr VideoGLTextureUploadMeta where
wrappedPtrCalloc :: IO (Ptr VideoGLTextureUploadMeta)
wrappedPtrCalloc = Int -> IO (Ptr VideoGLTextureUploadMeta)
forall a. Int -> IO (Ptr a)
callocBytes 80
wrappedPtrCopy :: VideoGLTextureUploadMeta -> IO VideoGLTextureUploadMeta
wrappedPtrCopy = \p :: VideoGLTextureUploadMeta
p -> VideoGLTextureUploadMeta
-> (Ptr VideoGLTextureUploadMeta -> IO VideoGLTextureUploadMeta)
-> IO VideoGLTextureUploadMeta
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoGLTextureUploadMeta
p (Int
-> Ptr VideoGLTextureUploadMeta
-> IO (Ptr VideoGLTextureUploadMeta)
forall a. WrappedPtr a => Int -> Ptr a -> IO (Ptr a)
copyBytes 80 (Ptr VideoGLTextureUploadMeta -> IO (Ptr VideoGLTextureUploadMeta))
-> (Ptr VideoGLTextureUploadMeta -> IO VideoGLTextureUploadMeta)
-> Ptr VideoGLTextureUploadMeta
-> IO VideoGLTextureUploadMeta
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr VideoGLTextureUploadMeta -> VideoGLTextureUploadMeta)
-> Ptr VideoGLTextureUploadMeta -> IO VideoGLTextureUploadMeta
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr VideoGLTextureUploadMeta -> VideoGLTextureUploadMeta
VideoGLTextureUploadMeta)
wrappedPtrFree :: Maybe (GDestroyNotify VideoGLTextureUploadMeta)
wrappedPtrFree = GDestroyNotify VideoGLTextureUploadMeta
-> Maybe (GDestroyNotify VideoGLTextureUploadMeta)
forall a. a -> Maybe a
Just GDestroyNotify VideoGLTextureUploadMeta
forall a. FunPtr (Ptr a -> IO ())
ptr_to_g_free
newZeroVideoGLTextureUploadMeta :: MonadIO m => m VideoGLTextureUploadMeta
newZeroVideoGLTextureUploadMeta :: m VideoGLTextureUploadMeta
newZeroVideoGLTextureUploadMeta = IO VideoGLTextureUploadMeta -> m VideoGLTextureUploadMeta
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoGLTextureUploadMeta -> m VideoGLTextureUploadMeta)
-> IO VideoGLTextureUploadMeta -> m VideoGLTextureUploadMeta
forall a b. (a -> b) -> a -> b
$ IO (Ptr VideoGLTextureUploadMeta)
forall a. WrappedPtr a => IO (Ptr a)
wrappedPtrCalloc IO (Ptr VideoGLTextureUploadMeta)
-> (Ptr VideoGLTextureUploadMeta -> IO VideoGLTextureUploadMeta)
-> IO VideoGLTextureUploadMeta
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr VideoGLTextureUploadMeta -> VideoGLTextureUploadMeta)
-> Ptr VideoGLTextureUploadMeta -> IO VideoGLTextureUploadMeta
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr VideoGLTextureUploadMeta -> VideoGLTextureUploadMeta
VideoGLTextureUploadMeta
instance tag ~ 'AttrSet => Constructible VideoGLTextureUploadMeta tag where
new :: (ManagedPtr VideoGLTextureUploadMeta -> VideoGLTextureUploadMeta)
-> [AttrOp VideoGLTextureUploadMeta tag]
-> m VideoGLTextureUploadMeta
new _ attrs :: [AttrOp VideoGLTextureUploadMeta tag]
attrs = do
VideoGLTextureUploadMeta
o <- m VideoGLTextureUploadMeta
forall (m :: * -> *). MonadIO m => m VideoGLTextureUploadMeta
newZeroVideoGLTextureUploadMeta
VideoGLTextureUploadMeta
-> [AttrOp VideoGLTextureUploadMeta 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set VideoGLTextureUploadMeta
o [AttrOp VideoGLTextureUploadMeta tag]
[AttrOp VideoGLTextureUploadMeta 'AttrSet]
attrs
VideoGLTextureUploadMeta -> m VideoGLTextureUploadMeta
forall (m :: * -> *) a. Monad m => a -> m a
return VideoGLTextureUploadMeta
o
noVideoGLTextureUploadMeta :: Maybe VideoGLTextureUploadMeta
noVideoGLTextureUploadMeta :: Maybe VideoGLTextureUploadMeta
noVideoGLTextureUploadMeta = Maybe VideoGLTextureUploadMeta
forall a. Maybe a
Nothing
getVideoGLTextureUploadMetaMeta :: MonadIO m => VideoGLTextureUploadMeta -> m Gst.Meta.Meta
getVideoGLTextureUploadMetaMeta :: VideoGLTextureUploadMeta -> m Meta
getVideoGLTextureUploadMetaMeta s :: VideoGLTextureUploadMeta
s = IO Meta -> m Meta
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Meta -> m Meta) -> IO Meta -> m Meta
forall a b. (a -> b) -> a -> b
$ VideoGLTextureUploadMeta
-> (Ptr VideoGLTextureUploadMeta -> IO Meta) -> IO Meta
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoGLTextureUploadMeta
s ((Ptr VideoGLTextureUploadMeta -> IO Meta) -> IO Meta)
-> (Ptr VideoGLTextureUploadMeta -> IO Meta) -> IO Meta
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoGLTextureUploadMeta
ptr -> do
let val :: Ptr Meta
val = Ptr VideoGLTextureUploadMeta
ptr Ptr VideoGLTextureUploadMeta -> Int -> Ptr Meta
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0 :: (Ptr Gst.Meta.Meta)
Meta
val' <- ((ManagedPtr Meta -> Meta) -> Ptr Meta -> IO Meta
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Meta -> Meta
Gst.Meta.Meta) Ptr Meta
val
Meta -> IO Meta
forall (m :: * -> *) a. Monad m => a -> m a
return Meta
val'
#if defined(ENABLE_OVERLOADING)
data VideoGLTextureUploadMetaMetaFieldInfo
instance AttrInfo VideoGLTextureUploadMetaMetaFieldInfo where
type AttrBaseTypeConstraint VideoGLTextureUploadMetaMetaFieldInfo = (~) VideoGLTextureUploadMeta
type AttrAllowedOps VideoGLTextureUploadMetaMetaFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint VideoGLTextureUploadMetaMetaFieldInfo = (~) (Ptr Gst.Meta.Meta)
type AttrTransferTypeConstraint VideoGLTextureUploadMetaMetaFieldInfo = (~)(Ptr Gst.Meta.Meta)
type AttrTransferType VideoGLTextureUploadMetaMetaFieldInfo = (Ptr Gst.Meta.Meta)
type AttrGetType VideoGLTextureUploadMetaMetaFieldInfo = Gst.Meta.Meta
type AttrLabel VideoGLTextureUploadMetaMetaFieldInfo = "meta"
type AttrOrigin VideoGLTextureUploadMetaMetaFieldInfo = VideoGLTextureUploadMeta
attrGet = getVideoGLTextureUploadMetaMeta
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
videoGLTextureUploadMeta_meta :: AttrLabelProxy "meta"
videoGLTextureUploadMeta_meta = AttrLabelProxy
#endif
getVideoGLTextureUploadMetaTextureOrientation :: MonadIO m => VideoGLTextureUploadMeta -> m GstVideo.Enums.VideoGLTextureOrientation
getVideoGLTextureUploadMetaTextureOrientation :: VideoGLTextureUploadMeta -> m VideoGLTextureOrientation
getVideoGLTextureUploadMetaTextureOrientation s :: VideoGLTextureUploadMeta
s = IO VideoGLTextureOrientation -> m VideoGLTextureOrientation
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoGLTextureOrientation -> m VideoGLTextureOrientation)
-> IO VideoGLTextureOrientation -> m VideoGLTextureOrientation
forall a b. (a -> b) -> a -> b
$ VideoGLTextureUploadMeta
-> (Ptr VideoGLTextureUploadMeta -> IO VideoGLTextureOrientation)
-> IO VideoGLTextureOrientation
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoGLTextureUploadMeta
s ((Ptr VideoGLTextureUploadMeta -> IO VideoGLTextureOrientation)
-> IO VideoGLTextureOrientation)
-> (Ptr VideoGLTextureUploadMeta -> IO VideoGLTextureOrientation)
-> IO VideoGLTextureOrientation
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoGLTextureUploadMeta
ptr -> do
CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoGLTextureUploadMeta
ptr Ptr VideoGLTextureUploadMeta -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) :: IO CUInt
let val' :: VideoGLTextureOrientation
val' = (Int -> VideoGLTextureOrientation
forall a. Enum a => Int -> a
toEnum (Int -> VideoGLTextureOrientation)
-> (CUInt -> Int) -> CUInt -> VideoGLTextureOrientation
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
VideoGLTextureOrientation -> IO VideoGLTextureOrientation
forall (m :: * -> *) a. Monad m => a -> m a
return VideoGLTextureOrientation
val'
setVideoGLTextureUploadMetaTextureOrientation :: MonadIO m => VideoGLTextureUploadMeta -> GstVideo.Enums.VideoGLTextureOrientation -> m ()
setVideoGLTextureUploadMetaTextureOrientation :: VideoGLTextureUploadMeta -> VideoGLTextureOrientation -> m ()
setVideoGLTextureUploadMetaTextureOrientation s :: VideoGLTextureUploadMeta
s val :: VideoGLTextureOrientation
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoGLTextureUploadMeta
-> (Ptr VideoGLTextureUploadMeta -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoGLTextureUploadMeta
s ((Ptr VideoGLTextureUploadMeta -> IO ()) -> IO ())
-> (Ptr VideoGLTextureUploadMeta -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoGLTextureUploadMeta
ptr -> do
let val' :: CUInt
val' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (VideoGLTextureOrientation -> Int)
-> VideoGLTextureOrientation
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VideoGLTextureOrientation -> Int
forall a. Enum a => a -> Int
fromEnum) VideoGLTextureOrientation
val
Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoGLTextureUploadMeta
ptr Ptr VideoGLTextureUploadMeta -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data VideoGLTextureUploadMetaTextureOrientationFieldInfo
instance AttrInfo VideoGLTextureUploadMetaTextureOrientationFieldInfo where
type AttrBaseTypeConstraint VideoGLTextureUploadMetaTextureOrientationFieldInfo = (~) VideoGLTextureUploadMeta
type AttrAllowedOps VideoGLTextureUploadMetaTextureOrientationFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoGLTextureUploadMetaTextureOrientationFieldInfo = (~) GstVideo.Enums.VideoGLTextureOrientation
type AttrTransferTypeConstraint VideoGLTextureUploadMetaTextureOrientationFieldInfo = (~)GstVideo.Enums.VideoGLTextureOrientation
type AttrTransferType VideoGLTextureUploadMetaTextureOrientationFieldInfo = GstVideo.Enums.VideoGLTextureOrientation
type AttrGetType VideoGLTextureUploadMetaTextureOrientationFieldInfo = GstVideo.Enums.VideoGLTextureOrientation
type AttrLabel VideoGLTextureUploadMetaTextureOrientationFieldInfo = "texture_orientation"
type AttrOrigin VideoGLTextureUploadMetaTextureOrientationFieldInfo = VideoGLTextureUploadMeta
attrGet = getVideoGLTextureUploadMetaTextureOrientation
attrSet = setVideoGLTextureUploadMetaTextureOrientation
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoGLTextureUploadMeta_textureOrientation :: AttrLabelProxy "textureOrientation"
videoGLTextureUploadMeta_textureOrientation = AttrLabelProxy
#endif
getVideoGLTextureUploadMetaNTextures :: MonadIO m => VideoGLTextureUploadMeta -> m Word32
getVideoGLTextureUploadMetaNTextures :: VideoGLTextureUploadMeta -> m Word32
getVideoGLTextureUploadMetaNTextures s :: VideoGLTextureUploadMeta
s = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ VideoGLTextureUploadMeta
-> (Ptr VideoGLTextureUploadMeta -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoGLTextureUploadMeta
s ((Ptr VideoGLTextureUploadMeta -> IO Word32) -> IO Word32)
-> (Ptr VideoGLTextureUploadMeta -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoGLTextureUploadMeta
ptr -> do
Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoGLTextureUploadMeta
ptr Ptr VideoGLTextureUploadMeta -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 20) :: IO Word32
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setVideoGLTextureUploadMetaNTextures :: MonadIO m => VideoGLTextureUploadMeta -> Word32 -> m ()
setVideoGLTextureUploadMetaNTextures :: VideoGLTextureUploadMeta -> Word32 -> m ()
setVideoGLTextureUploadMetaNTextures s :: VideoGLTextureUploadMeta
s val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoGLTextureUploadMeta
-> (Ptr VideoGLTextureUploadMeta -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoGLTextureUploadMeta
s ((Ptr VideoGLTextureUploadMeta -> IO ()) -> IO ())
-> (Ptr VideoGLTextureUploadMeta -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoGLTextureUploadMeta
ptr -> do
Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoGLTextureUploadMeta
ptr Ptr VideoGLTextureUploadMeta -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 20) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data VideoGLTextureUploadMetaNTexturesFieldInfo
instance AttrInfo VideoGLTextureUploadMetaNTexturesFieldInfo where
type AttrBaseTypeConstraint VideoGLTextureUploadMetaNTexturesFieldInfo = (~) VideoGLTextureUploadMeta
type AttrAllowedOps VideoGLTextureUploadMetaNTexturesFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoGLTextureUploadMetaNTexturesFieldInfo = (~) Word32
type AttrTransferTypeConstraint VideoGLTextureUploadMetaNTexturesFieldInfo = (~)Word32
type AttrTransferType VideoGLTextureUploadMetaNTexturesFieldInfo = Word32
type AttrGetType VideoGLTextureUploadMetaNTexturesFieldInfo = Word32
type AttrLabel VideoGLTextureUploadMetaNTexturesFieldInfo = "n_textures"
type AttrOrigin VideoGLTextureUploadMetaNTexturesFieldInfo = VideoGLTextureUploadMeta
attrGet = getVideoGLTextureUploadMetaNTextures
attrSet = setVideoGLTextureUploadMetaNTextures
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoGLTextureUploadMeta_nTextures :: AttrLabelProxy "nTextures"
videoGLTextureUploadMeta_nTextures = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList VideoGLTextureUploadMeta
type instance O.AttributeList VideoGLTextureUploadMeta = VideoGLTextureUploadMetaAttributeList
type VideoGLTextureUploadMetaAttributeList = ('[ '("meta", VideoGLTextureUploadMetaMetaFieldInfo), '("textureOrientation", VideoGLTextureUploadMetaTextureOrientationFieldInfo), '("nTextures", VideoGLTextureUploadMetaNTexturesFieldInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_video_gl_texture_upload_meta_upload" gst_video_gl_texture_upload_meta_upload ::
Ptr VideoGLTextureUploadMeta ->
Word32 ->
IO CInt
videoGLTextureUploadMetaUpload ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoGLTextureUploadMeta
-> Word32
-> m Bool
videoGLTextureUploadMetaUpload :: VideoGLTextureUploadMeta -> Word32 -> m Bool
videoGLTextureUploadMetaUpload meta :: VideoGLTextureUploadMeta
meta textureId :: Word32
textureId = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoGLTextureUploadMeta
meta' <- VideoGLTextureUploadMeta -> IO (Ptr VideoGLTextureUploadMeta)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoGLTextureUploadMeta
meta
CInt
result <- Ptr VideoGLTextureUploadMeta -> Word32 -> IO CInt
gst_video_gl_texture_upload_meta_upload Ptr VideoGLTextureUploadMeta
meta' Word32
textureId
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
VideoGLTextureUploadMeta -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoGLTextureUploadMeta
meta
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data VideoGLTextureUploadMetaUploadMethodInfo
instance (signature ~ (Word32 -> m Bool), MonadIO m) => O.MethodInfo VideoGLTextureUploadMetaUploadMethodInfo VideoGLTextureUploadMeta signature where
overloadedMethod = videoGLTextureUploadMetaUpload
#endif
foreign import ccall "gst_video_gl_texture_upload_meta_get_info" gst_video_gl_texture_upload_meta_get_info ::
IO (Ptr Gst.MetaInfo.MetaInfo)
videoGLTextureUploadMetaGetInfo ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Gst.MetaInfo.MetaInfo
videoGLTextureUploadMetaGetInfo :: m MetaInfo
videoGLTextureUploadMetaGetInfo = IO MetaInfo -> m MetaInfo
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MetaInfo -> m MetaInfo) -> IO MetaInfo -> m MetaInfo
forall a b. (a -> b) -> a -> b
$ do
Ptr MetaInfo
result <- IO (Ptr MetaInfo)
gst_video_gl_texture_upload_meta_get_info
Text -> Ptr MetaInfo -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "videoGLTextureUploadMetaGetInfo" Ptr MetaInfo
result
MetaInfo
result' <- ((ManagedPtr MetaInfo -> MetaInfo) -> Ptr MetaInfo -> IO MetaInfo
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr MetaInfo -> MetaInfo
Gst.MetaInfo.MetaInfo) Ptr MetaInfo
result
MetaInfo -> IO MetaInfo
forall (m :: * -> *) a. Monad m => a -> m a
return MetaInfo
result'
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveVideoGLTextureUploadMetaMethod (t :: Symbol) (o :: *) :: * where
ResolveVideoGLTextureUploadMetaMethod "upload" o = VideoGLTextureUploadMetaUploadMethodInfo
ResolveVideoGLTextureUploadMetaMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveVideoGLTextureUploadMetaMethod t VideoGLTextureUploadMeta, O.MethodInfo info VideoGLTextureUploadMeta p) => OL.IsLabel t (VideoGLTextureUploadMeta -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif