{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstVideo.Structs.VideoFormatInfo
(
VideoFormatInfo(..) ,
newZeroVideoFormatInfo ,
noVideoFormatInfo ,
#if defined(ENABLE_OVERLOADING)
ResolveVideoFormatInfoMethod ,
#endif
getVideoFormatInfoBits ,
setVideoFormatInfoBits ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_bits ,
#endif
clearVideoFormatInfoDescription ,
getVideoFormatInfoDescription ,
setVideoFormatInfoDescription ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_description ,
#endif
getVideoFormatInfoFlags ,
setVideoFormatInfoFlags ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_flags ,
#endif
getVideoFormatInfoFormat ,
setVideoFormatInfoFormat ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_format ,
#endif
getVideoFormatInfoNComponents ,
setVideoFormatInfoNComponents ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_nComponents ,
#endif
getVideoFormatInfoNPlanes ,
setVideoFormatInfoNPlanes ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_nPlanes ,
#endif
clearVideoFormatInfoName ,
getVideoFormatInfoName ,
setVideoFormatInfoName ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_name ,
#endif
clearVideoFormatInfoPackFunc ,
getVideoFormatInfoPackFunc ,
setVideoFormatInfoPackFunc ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_packFunc ,
#endif
getVideoFormatInfoPackLines ,
setVideoFormatInfoPackLines ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_packLines ,
#endif
getVideoFormatInfoTileHs ,
setVideoFormatInfoTileHs ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_tileHs ,
#endif
getVideoFormatInfoTileMode ,
setVideoFormatInfoTileMode ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_tileMode ,
#endif
getVideoFormatInfoTileWs ,
setVideoFormatInfoTileWs ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_tileWs ,
#endif
getVideoFormatInfoUnpackFormat ,
setVideoFormatInfoUnpackFormat ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_unpackFormat ,
#endif
clearVideoFormatInfoUnpackFunc ,
getVideoFormatInfoUnpackFunc ,
setVideoFormatInfoUnpackFunc ,
#if defined(ENABLE_OVERLOADING)
videoFormatInfo_unpackFunc ,
#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.GstVideo.Callbacks as GstVideo.Callbacks
import {-# SOURCE #-} qualified GI.GstVideo.Enums as GstVideo.Enums
import {-# SOURCE #-} qualified GI.GstVideo.Flags as GstVideo.Flags
newtype VideoFormatInfo = VideoFormatInfo (ManagedPtr VideoFormatInfo)
deriving (VideoFormatInfo -> VideoFormatInfo -> Bool
(VideoFormatInfo -> VideoFormatInfo -> Bool)
-> (VideoFormatInfo -> VideoFormatInfo -> Bool)
-> Eq VideoFormatInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VideoFormatInfo -> VideoFormatInfo -> Bool
$c/= :: VideoFormatInfo -> VideoFormatInfo -> Bool
== :: VideoFormatInfo -> VideoFormatInfo -> Bool
$c== :: VideoFormatInfo -> VideoFormatInfo -> Bool
Eq)
instance WrappedPtr VideoFormatInfo where
wrappedPtrCalloc :: IO (Ptr VideoFormatInfo)
wrappedPtrCalloc = Int -> IO (Ptr VideoFormatInfo)
forall a. Int -> IO (Ptr a)
callocBytes 232
wrappedPtrCopy :: VideoFormatInfo -> IO VideoFormatInfo
wrappedPtrCopy = \p :: VideoFormatInfo
p -> VideoFormatInfo
-> (Ptr VideoFormatInfo -> IO VideoFormatInfo)
-> IO VideoFormatInfo
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
p (Int -> Ptr VideoFormatInfo -> IO (Ptr VideoFormatInfo)
forall a. WrappedPtr a => Int -> Ptr a -> IO (Ptr a)
copyBytes 232 (Ptr VideoFormatInfo -> IO (Ptr VideoFormatInfo))
-> (Ptr VideoFormatInfo -> IO VideoFormatInfo)
-> Ptr VideoFormatInfo
-> IO VideoFormatInfo
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr VideoFormatInfo -> VideoFormatInfo)
-> Ptr VideoFormatInfo -> IO VideoFormatInfo
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr VideoFormatInfo -> VideoFormatInfo
VideoFormatInfo)
wrappedPtrFree :: Maybe (GDestroyNotify VideoFormatInfo)
wrappedPtrFree = GDestroyNotify VideoFormatInfo
-> Maybe (GDestroyNotify VideoFormatInfo)
forall a. a -> Maybe a
Just GDestroyNotify VideoFormatInfo
forall a. FunPtr (Ptr a -> IO ())
ptr_to_g_free
newZeroVideoFormatInfo :: MonadIO m => m VideoFormatInfo
newZeroVideoFormatInfo :: m VideoFormatInfo
newZeroVideoFormatInfo = IO VideoFormatInfo -> m VideoFormatInfo
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoFormatInfo -> m VideoFormatInfo)
-> IO VideoFormatInfo -> m VideoFormatInfo
forall a b. (a -> b) -> a -> b
$ IO (Ptr VideoFormatInfo)
forall a. WrappedPtr a => IO (Ptr a)
wrappedPtrCalloc IO (Ptr VideoFormatInfo)
-> (Ptr VideoFormatInfo -> IO VideoFormatInfo)
-> IO VideoFormatInfo
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr VideoFormatInfo -> VideoFormatInfo)
-> Ptr VideoFormatInfo -> IO VideoFormatInfo
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr VideoFormatInfo -> VideoFormatInfo
VideoFormatInfo
instance tag ~ 'AttrSet => Constructible VideoFormatInfo tag where
new :: (ManagedPtr VideoFormatInfo -> VideoFormatInfo)
-> [AttrOp VideoFormatInfo tag] -> m VideoFormatInfo
new _ attrs :: [AttrOp VideoFormatInfo tag]
attrs = do
VideoFormatInfo
o <- m VideoFormatInfo
forall (m :: * -> *). MonadIO m => m VideoFormatInfo
newZeroVideoFormatInfo
VideoFormatInfo -> [AttrOp VideoFormatInfo 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set VideoFormatInfo
o [AttrOp VideoFormatInfo tag]
[AttrOp VideoFormatInfo 'AttrSet]
attrs
VideoFormatInfo -> m VideoFormatInfo
forall (m :: * -> *) a. Monad m => a -> m a
return VideoFormatInfo
o
noVideoFormatInfo :: Maybe VideoFormatInfo
noVideoFormatInfo :: Maybe VideoFormatInfo
noVideoFormatInfo = Maybe VideoFormatInfo
forall a. Maybe a
Nothing
getVideoFormatInfoFormat :: MonadIO m => VideoFormatInfo -> m GstVideo.Enums.VideoFormat
getVideoFormatInfoFormat :: VideoFormatInfo -> m VideoFormat
getVideoFormatInfoFormat s :: VideoFormatInfo
s = IO VideoFormat -> m VideoFormat
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoFormat -> m VideoFormat)
-> IO VideoFormat -> m VideoFormat
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo
-> (Ptr VideoFormatInfo -> IO VideoFormat) -> IO VideoFormat
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO VideoFormat) -> IO VideoFormat)
-> (Ptr VideoFormatInfo -> IO VideoFormat) -> IO VideoFormat
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO CUInt
let val' :: VideoFormat
val' = (Int -> VideoFormat
forall a. Enum a => Int -> a
toEnum (Int -> VideoFormat) -> (CUInt -> Int) -> CUInt -> VideoFormat
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
VideoFormat -> IO VideoFormat
forall (m :: * -> *) a. Monad m => a -> m a
return VideoFormat
val'
setVideoFormatInfoFormat :: MonadIO m => VideoFormatInfo -> GstVideo.Enums.VideoFormat -> m ()
setVideoFormatInfoFormat :: VideoFormatInfo -> VideoFormat -> m ()
setVideoFormatInfoFormat s :: VideoFormatInfo
s val :: VideoFormat
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
let val' :: CUInt
val' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (VideoFormat -> Int) -> VideoFormat -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VideoFormat -> Int
forall a. Enum a => a -> Int
fromEnum) VideoFormat
val
Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoFormatFieldInfo
instance AttrInfo VideoFormatInfoFormatFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoFormatFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoFormatFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoFormatInfoFormatFieldInfo = (~) GstVideo.Enums.VideoFormat
type AttrTransferTypeConstraint VideoFormatInfoFormatFieldInfo = (~)GstVideo.Enums.VideoFormat
type AttrTransferType VideoFormatInfoFormatFieldInfo = GstVideo.Enums.VideoFormat
type AttrGetType VideoFormatInfoFormatFieldInfo = GstVideo.Enums.VideoFormat
type AttrLabel VideoFormatInfoFormatFieldInfo = "format"
type AttrOrigin VideoFormatInfoFormatFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoFormat
attrSet = setVideoFormatInfoFormat
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoFormatInfo_format :: AttrLabelProxy "format"
videoFormatInfo_format = AttrLabelProxy
#endif
getVideoFormatInfoName :: MonadIO m => VideoFormatInfo -> m (Maybe T.Text)
getVideoFormatInfoName :: VideoFormatInfo -> m (Maybe Text)
getVideoFormatInfoName s :: VideoFormatInfo
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo
-> (Ptr VideoFormatInfo -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr VideoFormatInfo -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setVideoFormatInfoName :: MonadIO m => VideoFormatInfo -> CString -> m ()
setVideoFormatInfoName :: VideoFormatInfo -> CString -> m ()
setVideoFormatInfoName s :: VideoFormatInfo
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (CString
val :: CString)
clearVideoFormatInfoName :: MonadIO m => VideoFormatInfo -> m ()
clearVideoFormatInfoName :: VideoFormatInfo -> m ()
clearVideoFormatInfoName s :: VideoFormatInfo
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoNameFieldInfo
instance AttrInfo VideoFormatInfoNameFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoNameFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint VideoFormatInfoNameFieldInfo = (~) CString
type AttrTransferTypeConstraint VideoFormatInfoNameFieldInfo = (~)CString
type AttrTransferType VideoFormatInfoNameFieldInfo = CString
type AttrGetType VideoFormatInfoNameFieldInfo = Maybe T.Text
type AttrLabel VideoFormatInfoNameFieldInfo = "name"
type AttrOrigin VideoFormatInfoNameFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoName
attrSet = setVideoFormatInfoName
attrConstruct = undefined
attrClear = clearVideoFormatInfoName
attrTransfer _ v = do
return v
videoFormatInfo_name :: AttrLabelProxy "name"
videoFormatInfo_name = AttrLabelProxy
#endif
getVideoFormatInfoDescription :: MonadIO m => VideoFormatInfo -> m (Maybe T.Text)
getVideoFormatInfoDescription :: VideoFormatInfo -> m (Maybe Text)
getVideoFormatInfoDescription s :: VideoFormatInfo
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo
-> (Ptr VideoFormatInfo -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr VideoFormatInfo -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setVideoFormatInfoDescription :: MonadIO m => VideoFormatInfo -> CString -> m ()
setVideoFormatInfoDescription :: VideoFormatInfo -> CString -> m ()
setVideoFormatInfoDescription s :: VideoFormatInfo
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (CString
val :: CString)
clearVideoFormatInfoDescription :: MonadIO m => VideoFormatInfo -> m ()
clearVideoFormatInfoDescription :: VideoFormatInfo -> m ()
clearVideoFormatInfoDescription s :: VideoFormatInfo
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoDescriptionFieldInfo
instance AttrInfo VideoFormatInfoDescriptionFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoDescriptionFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoDescriptionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint VideoFormatInfoDescriptionFieldInfo = (~) CString
type AttrTransferTypeConstraint VideoFormatInfoDescriptionFieldInfo = (~)CString
type AttrTransferType VideoFormatInfoDescriptionFieldInfo = CString
type AttrGetType VideoFormatInfoDescriptionFieldInfo = Maybe T.Text
type AttrLabel VideoFormatInfoDescriptionFieldInfo = "description"
type AttrOrigin VideoFormatInfoDescriptionFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoDescription
attrSet = setVideoFormatInfoDescription
attrConstruct = undefined
attrClear = clearVideoFormatInfoDescription
attrTransfer _ v = do
return v
videoFormatInfo_description :: AttrLabelProxy "description"
videoFormatInfo_description = AttrLabelProxy
#endif
getVideoFormatInfoFlags :: MonadIO m => VideoFormatInfo -> m [GstVideo.Flags.VideoFormatFlags]
getVideoFormatInfoFlags :: VideoFormatInfo -> m [VideoFormatFlags]
getVideoFormatInfoFlags s :: VideoFormatInfo
s = IO [VideoFormatFlags] -> m [VideoFormatFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [VideoFormatFlags] -> m [VideoFormatFlags])
-> IO [VideoFormatFlags] -> m [VideoFormatFlags]
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo
-> (Ptr VideoFormatInfo -> IO [VideoFormatFlags])
-> IO [VideoFormatFlags]
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO [VideoFormatFlags])
-> IO [VideoFormatFlags])
-> (Ptr VideoFormatInfo -> IO [VideoFormatFlags])
-> IO [VideoFormatFlags]
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) :: IO CUInt
let val' :: [VideoFormatFlags]
val' = CUInt -> [VideoFormatFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
val
[VideoFormatFlags] -> IO [VideoFormatFlags]
forall (m :: * -> *) a. Monad m => a -> m a
return [VideoFormatFlags]
val'
setVideoFormatInfoFlags :: MonadIO m => VideoFormatInfo -> [GstVideo.Flags.VideoFormatFlags] -> m ()
setVideoFormatInfoFlags :: VideoFormatInfo -> [VideoFormatFlags] -> m ()
setVideoFormatInfoFlags s :: VideoFormatInfo
s val :: [VideoFormatFlags]
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
let val' :: CUInt
val' = [VideoFormatFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [VideoFormatFlags]
val
Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoFlagsFieldInfo
instance AttrInfo VideoFormatInfoFlagsFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoFlagsFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoFlagsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoFormatInfoFlagsFieldInfo = (~) [GstVideo.Flags.VideoFormatFlags]
type AttrTransferTypeConstraint VideoFormatInfoFlagsFieldInfo = (~)[GstVideo.Flags.VideoFormatFlags]
type AttrTransferType VideoFormatInfoFlagsFieldInfo = [GstVideo.Flags.VideoFormatFlags]
type AttrGetType VideoFormatInfoFlagsFieldInfo = [GstVideo.Flags.VideoFormatFlags]
type AttrLabel VideoFormatInfoFlagsFieldInfo = "flags"
type AttrOrigin VideoFormatInfoFlagsFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoFlags
attrSet = setVideoFormatInfoFlags
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoFormatInfo_flags :: AttrLabelProxy "flags"
videoFormatInfo_flags = AttrLabelProxy
#endif
getVideoFormatInfoBits :: MonadIO m => VideoFormatInfo -> m Word32
getVideoFormatInfoBits :: VideoFormatInfo -> m Word32
getVideoFormatInfoBits s :: VideoFormatInfo
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
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO Word32) -> IO Word32)
-> (Ptr VideoFormatInfo -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 28) :: IO Word32
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setVideoFormatInfoBits :: MonadIO m => VideoFormatInfo -> Word32 -> m ()
setVideoFormatInfoBits :: VideoFormatInfo -> Word32 -> m ()
setVideoFormatInfoBits s :: VideoFormatInfo
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
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 28) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoBitsFieldInfo
instance AttrInfo VideoFormatInfoBitsFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoBitsFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoBitsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoFormatInfoBitsFieldInfo = (~) Word32
type AttrTransferTypeConstraint VideoFormatInfoBitsFieldInfo = (~)Word32
type AttrTransferType VideoFormatInfoBitsFieldInfo = Word32
type AttrGetType VideoFormatInfoBitsFieldInfo = Word32
type AttrLabel VideoFormatInfoBitsFieldInfo = "bits"
type AttrOrigin VideoFormatInfoBitsFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoBits
attrSet = setVideoFormatInfoBits
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoFormatInfo_bits :: AttrLabelProxy "bits"
videoFormatInfo_bits = AttrLabelProxy
#endif
getVideoFormatInfoNComponents :: MonadIO m => VideoFormatInfo -> m Word32
getVideoFormatInfoNComponents :: VideoFormatInfo -> m Word32
getVideoFormatInfoNComponents s :: VideoFormatInfo
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
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO Word32) -> IO Word32)
-> (Ptr VideoFormatInfo -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 32) :: IO Word32
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setVideoFormatInfoNComponents :: MonadIO m => VideoFormatInfo -> Word32 -> m ()
setVideoFormatInfoNComponents :: VideoFormatInfo -> Word32 -> m ()
setVideoFormatInfoNComponents s :: VideoFormatInfo
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
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 32) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoNComponentsFieldInfo
instance AttrInfo VideoFormatInfoNComponentsFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoNComponentsFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoNComponentsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoFormatInfoNComponentsFieldInfo = (~) Word32
type AttrTransferTypeConstraint VideoFormatInfoNComponentsFieldInfo = (~)Word32
type AttrTransferType VideoFormatInfoNComponentsFieldInfo = Word32
type AttrGetType VideoFormatInfoNComponentsFieldInfo = Word32
type AttrLabel VideoFormatInfoNComponentsFieldInfo = "n_components"
type AttrOrigin VideoFormatInfoNComponentsFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoNComponents
attrSet = setVideoFormatInfoNComponents
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoFormatInfo_nComponents :: AttrLabelProxy "nComponents"
videoFormatInfo_nComponents = AttrLabelProxy
#endif
getVideoFormatInfoNPlanes :: MonadIO m => VideoFormatInfo -> m Word32
getVideoFormatInfoNPlanes :: VideoFormatInfo -> m Word32
getVideoFormatInfoNPlanes s :: VideoFormatInfo
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
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO Word32) -> IO Word32)
-> (Ptr VideoFormatInfo -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 84) :: IO Word32
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setVideoFormatInfoNPlanes :: MonadIO m => VideoFormatInfo -> Word32 -> m ()
setVideoFormatInfoNPlanes :: VideoFormatInfo -> Word32 -> m ()
setVideoFormatInfoNPlanes s :: VideoFormatInfo
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
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 84) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoNPlanesFieldInfo
instance AttrInfo VideoFormatInfoNPlanesFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoNPlanesFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoNPlanesFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoFormatInfoNPlanesFieldInfo = (~) Word32
type AttrTransferTypeConstraint VideoFormatInfoNPlanesFieldInfo = (~)Word32
type AttrTransferType VideoFormatInfoNPlanesFieldInfo = Word32
type AttrGetType VideoFormatInfoNPlanesFieldInfo = Word32
type AttrLabel VideoFormatInfoNPlanesFieldInfo = "n_planes"
type AttrOrigin VideoFormatInfoNPlanesFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoNPlanes
attrSet = setVideoFormatInfoNPlanes
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoFormatInfo_nPlanes :: AttrLabelProxy "nPlanes"
videoFormatInfo_nPlanes = AttrLabelProxy
#endif
getVideoFormatInfoUnpackFormat :: MonadIO m => VideoFormatInfo -> m GstVideo.Enums.VideoFormat
getVideoFormatInfoUnpackFormat :: VideoFormatInfo -> m VideoFormat
getVideoFormatInfoUnpackFormat s :: VideoFormatInfo
s = IO VideoFormat -> m VideoFormat
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoFormat -> m VideoFormat)
-> IO VideoFormat -> m VideoFormat
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo
-> (Ptr VideoFormatInfo -> IO VideoFormat) -> IO VideoFormat
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO VideoFormat) -> IO VideoFormat)
-> (Ptr VideoFormatInfo -> IO VideoFormat) -> IO VideoFormat
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 152) :: IO CUInt
let val' :: VideoFormat
val' = (Int -> VideoFormat
forall a. Enum a => Int -> a
toEnum (Int -> VideoFormat) -> (CUInt -> Int) -> CUInt -> VideoFormat
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
VideoFormat -> IO VideoFormat
forall (m :: * -> *) a. Monad m => a -> m a
return VideoFormat
val'
setVideoFormatInfoUnpackFormat :: MonadIO m => VideoFormatInfo -> GstVideo.Enums.VideoFormat -> m ()
setVideoFormatInfoUnpackFormat :: VideoFormatInfo -> VideoFormat -> m ()
setVideoFormatInfoUnpackFormat s :: VideoFormatInfo
s val :: VideoFormat
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
let val' :: CUInt
val' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (VideoFormat -> Int) -> VideoFormat -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VideoFormat -> Int
forall a. Enum a => a -> Int
fromEnum) VideoFormat
val
Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 152) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoUnpackFormatFieldInfo
instance AttrInfo VideoFormatInfoUnpackFormatFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoUnpackFormatFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoUnpackFormatFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoFormatInfoUnpackFormatFieldInfo = (~) GstVideo.Enums.VideoFormat
type AttrTransferTypeConstraint VideoFormatInfoUnpackFormatFieldInfo = (~)GstVideo.Enums.VideoFormat
type AttrTransferType VideoFormatInfoUnpackFormatFieldInfo = GstVideo.Enums.VideoFormat
type AttrGetType VideoFormatInfoUnpackFormatFieldInfo = GstVideo.Enums.VideoFormat
type AttrLabel VideoFormatInfoUnpackFormatFieldInfo = "unpack_format"
type AttrOrigin VideoFormatInfoUnpackFormatFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoUnpackFormat
attrSet = setVideoFormatInfoUnpackFormat
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoFormatInfo_unpackFormat :: AttrLabelProxy "unpackFormat"
videoFormatInfo_unpackFormat = AttrLabelProxy
#endif
getVideoFormatInfoUnpackFunc :: MonadIO m => VideoFormatInfo -> m (Maybe GstVideo.Callbacks.VideoFormatUnpack)
getVideoFormatInfoUnpackFunc :: VideoFormatInfo -> m (Maybe VideoFormatUnpack)
getVideoFormatInfoUnpackFunc s :: VideoFormatInfo
s = IO (Maybe VideoFormatUnpack) -> m (Maybe VideoFormatUnpack)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe VideoFormatUnpack) -> m (Maybe VideoFormatUnpack))
-> IO (Maybe VideoFormatUnpack) -> m (Maybe VideoFormatUnpack)
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo
-> (Ptr VideoFormatInfo -> IO (Maybe VideoFormatUnpack))
-> IO (Maybe VideoFormatUnpack)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO (Maybe VideoFormatUnpack))
-> IO (Maybe VideoFormatUnpack))
-> (Ptr VideoFormatInfo -> IO (Maybe VideoFormatUnpack))
-> IO (Maybe VideoFormatUnpack)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
FunPtr C_VideoFormatUnpack
val <- Ptr (FunPtr C_VideoFormatUnpack) -> IO (FunPtr C_VideoFormatUnpack)
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr (FunPtr C_VideoFormatUnpack)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 160) :: IO (FunPtr GstVideo.Callbacks.C_VideoFormatUnpack)
Maybe VideoFormatUnpack
result <- FunPtr C_VideoFormatUnpack
-> (FunPtr C_VideoFormatUnpack -> IO VideoFormatUnpack)
-> IO (Maybe VideoFormatUnpack)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_VideoFormatUnpack
val ((FunPtr C_VideoFormatUnpack -> IO VideoFormatUnpack)
-> IO (Maybe VideoFormatUnpack))
-> (FunPtr C_VideoFormatUnpack -> IO VideoFormatUnpack)
-> IO (Maybe VideoFormatUnpack)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_VideoFormatUnpack
val' -> do
let val'' :: VideoFormatUnpack
val'' = FunPtr C_VideoFormatUnpack -> VideoFormatUnpack
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_VideoFormatUnpack
-> VideoFormatInfo
-> [VideoPackFlags]
-> Ptr ()
-> Ptr ()
-> Int32
-> Int32
-> Int32
-> Int32
-> m ()
GstVideo.Callbacks.dynamic_VideoFormatUnpack FunPtr C_VideoFormatUnpack
val'
VideoFormatUnpack -> IO VideoFormatUnpack
forall (m :: * -> *) a. Monad m => a -> m a
return VideoFormatUnpack
val''
Maybe VideoFormatUnpack -> IO (Maybe VideoFormatUnpack)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe VideoFormatUnpack
result
setVideoFormatInfoUnpackFunc :: MonadIO m => VideoFormatInfo -> FunPtr GstVideo.Callbacks.C_VideoFormatUnpack -> m ()
setVideoFormatInfoUnpackFunc :: VideoFormatInfo -> FunPtr C_VideoFormatUnpack -> m ()
setVideoFormatInfoUnpackFunc s :: VideoFormatInfo
s val :: FunPtr C_VideoFormatUnpack
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr (FunPtr C_VideoFormatUnpack)
-> FunPtr C_VideoFormatUnpack -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr (FunPtr C_VideoFormatUnpack)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 160) (FunPtr C_VideoFormatUnpack
val :: FunPtr GstVideo.Callbacks.C_VideoFormatUnpack)
clearVideoFormatInfoUnpackFunc :: MonadIO m => VideoFormatInfo -> m ()
clearVideoFormatInfoUnpackFunc :: VideoFormatInfo -> m ()
clearVideoFormatInfoUnpackFunc s :: VideoFormatInfo
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr (FunPtr C_VideoFormatUnpack)
-> FunPtr C_VideoFormatUnpack -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr (FunPtr C_VideoFormatUnpack)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 160) (FunPtr C_VideoFormatUnpack
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GstVideo.Callbacks.C_VideoFormatUnpack)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoUnpackFuncFieldInfo
instance AttrInfo VideoFormatInfoUnpackFuncFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoUnpackFuncFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoUnpackFuncFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint VideoFormatInfoUnpackFuncFieldInfo = (~) (FunPtr GstVideo.Callbacks.C_VideoFormatUnpack)
type AttrTransferTypeConstraint VideoFormatInfoUnpackFuncFieldInfo = (~)GstVideo.Callbacks.VideoFormatUnpack
type AttrTransferType VideoFormatInfoUnpackFuncFieldInfo = (FunPtr GstVideo.Callbacks.C_VideoFormatUnpack)
type AttrGetType VideoFormatInfoUnpackFuncFieldInfo = Maybe GstVideo.Callbacks.VideoFormatUnpack
type AttrLabel VideoFormatInfoUnpackFuncFieldInfo = "unpack_func"
type AttrOrigin VideoFormatInfoUnpackFuncFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoUnpackFunc
attrSet = setVideoFormatInfoUnpackFunc
attrConstruct = undefined
attrClear = clearVideoFormatInfoUnpackFunc
attrTransfer _ v = do
GstVideo.Callbacks.mk_VideoFormatUnpack (GstVideo.Callbacks.wrap_VideoFormatUnpack Nothing v)
videoFormatInfo_unpackFunc :: AttrLabelProxy "unpackFunc"
videoFormatInfo_unpackFunc = AttrLabelProxy
#endif
getVideoFormatInfoPackLines :: MonadIO m => VideoFormatInfo -> m Int32
getVideoFormatInfoPackLines :: VideoFormatInfo -> m Int32
getVideoFormatInfoPackLines s :: VideoFormatInfo
s = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO Int32) -> IO Int32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO Int32) -> IO Int32)
-> (Ptr VideoFormatInfo -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Int32
val <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 168) :: IO Int32
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setVideoFormatInfoPackLines :: MonadIO m => VideoFormatInfo -> Int32 -> m ()
setVideoFormatInfoPackLines :: VideoFormatInfo -> Int32 -> m ()
setVideoFormatInfoPackLines s :: VideoFormatInfo
s val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 168) (Int32
val :: Int32)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoPackLinesFieldInfo
instance AttrInfo VideoFormatInfoPackLinesFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoPackLinesFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoPackLinesFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoFormatInfoPackLinesFieldInfo = (~) Int32
type AttrTransferTypeConstraint VideoFormatInfoPackLinesFieldInfo = (~)Int32
type AttrTransferType VideoFormatInfoPackLinesFieldInfo = Int32
type AttrGetType VideoFormatInfoPackLinesFieldInfo = Int32
type AttrLabel VideoFormatInfoPackLinesFieldInfo = "pack_lines"
type AttrOrigin VideoFormatInfoPackLinesFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoPackLines
attrSet = setVideoFormatInfoPackLines
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoFormatInfo_packLines :: AttrLabelProxy "packLines"
videoFormatInfo_packLines = AttrLabelProxy
#endif
getVideoFormatInfoPackFunc :: MonadIO m => VideoFormatInfo -> m (Maybe GstVideo.Callbacks.VideoFormatPack)
getVideoFormatInfoPackFunc :: VideoFormatInfo -> m (Maybe VideoFormatPack)
getVideoFormatInfoPackFunc s :: VideoFormatInfo
s = IO (Maybe VideoFormatPack) -> m (Maybe VideoFormatPack)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe VideoFormatPack) -> m (Maybe VideoFormatPack))
-> IO (Maybe VideoFormatPack) -> m (Maybe VideoFormatPack)
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo
-> (Ptr VideoFormatInfo -> IO (Maybe VideoFormatPack))
-> IO (Maybe VideoFormatPack)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO (Maybe VideoFormatPack))
-> IO (Maybe VideoFormatPack))
-> (Ptr VideoFormatInfo -> IO (Maybe VideoFormatPack))
-> IO (Maybe VideoFormatPack)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
FunPtr C_VideoFormatPack
val <- Ptr (FunPtr C_VideoFormatPack) -> IO (FunPtr C_VideoFormatPack)
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr (FunPtr C_VideoFormatPack)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 176) :: IO (FunPtr GstVideo.Callbacks.C_VideoFormatPack)
Maybe VideoFormatPack
result <- FunPtr C_VideoFormatPack
-> (FunPtr C_VideoFormatPack -> IO VideoFormatPack)
-> IO (Maybe VideoFormatPack)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_VideoFormatPack
val ((FunPtr C_VideoFormatPack -> IO VideoFormatPack)
-> IO (Maybe VideoFormatPack))
-> (FunPtr C_VideoFormatPack -> IO VideoFormatPack)
-> IO (Maybe VideoFormatPack)
forall a b. (a -> b) -> a -> b
$ \val' :: FunPtr C_VideoFormatPack
val' -> do
let val'' :: VideoFormatPack
val'' = FunPtr C_VideoFormatPack -> VideoFormatPack
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_VideoFormatPack
-> VideoFormatInfo
-> [VideoPackFlags]
-> Ptr ()
-> Int32
-> Ptr ()
-> Int32
-> [VideoChromaSite]
-> Int32
-> Int32
-> m ()
GstVideo.Callbacks.dynamic_VideoFormatPack FunPtr C_VideoFormatPack
val'
VideoFormatPack -> IO VideoFormatPack
forall (m :: * -> *) a. Monad m => a -> m a
return VideoFormatPack
val''
Maybe VideoFormatPack -> IO (Maybe VideoFormatPack)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe VideoFormatPack
result
setVideoFormatInfoPackFunc :: MonadIO m => VideoFormatInfo -> FunPtr GstVideo.Callbacks.C_VideoFormatPack -> m ()
setVideoFormatInfoPackFunc :: VideoFormatInfo -> FunPtr C_VideoFormatPack -> m ()
setVideoFormatInfoPackFunc s :: VideoFormatInfo
s val :: FunPtr C_VideoFormatPack
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr (FunPtr C_VideoFormatPack) -> FunPtr C_VideoFormatPack -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr (FunPtr C_VideoFormatPack)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 176) (FunPtr C_VideoFormatPack
val :: FunPtr GstVideo.Callbacks.C_VideoFormatPack)
clearVideoFormatInfoPackFunc :: MonadIO m => VideoFormatInfo -> m ()
clearVideoFormatInfoPackFunc :: VideoFormatInfo -> m ()
clearVideoFormatInfoPackFunc s :: VideoFormatInfo
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr (FunPtr C_VideoFormatPack) -> FunPtr C_VideoFormatPack -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr (FunPtr C_VideoFormatPack)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 176) (FunPtr C_VideoFormatPack
forall a. FunPtr a
FP.nullFunPtr :: FunPtr GstVideo.Callbacks.C_VideoFormatPack)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoPackFuncFieldInfo
instance AttrInfo VideoFormatInfoPackFuncFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoPackFuncFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoPackFuncFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint VideoFormatInfoPackFuncFieldInfo = (~) (FunPtr GstVideo.Callbacks.C_VideoFormatPack)
type AttrTransferTypeConstraint VideoFormatInfoPackFuncFieldInfo = (~)GstVideo.Callbacks.VideoFormatPack
type AttrTransferType VideoFormatInfoPackFuncFieldInfo = (FunPtr GstVideo.Callbacks.C_VideoFormatPack)
type AttrGetType VideoFormatInfoPackFuncFieldInfo = Maybe GstVideo.Callbacks.VideoFormatPack
type AttrLabel VideoFormatInfoPackFuncFieldInfo = "pack_func"
type AttrOrigin VideoFormatInfoPackFuncFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoPackFunc
attrSet = setVideoFormatInfoPackFunc
attrConstruct = undefined
attrClear = clearVideoFormatInfoPackFunc
attrTransfer _ v = do
GstVideo.Callbacks.mk_VideoFormatPack (GstVideo.Callbacks.wrap_VideoFormatPack Nothing v)
videoFormatInfo_packFunc :: AttrLabelProxy "packFunc"
videoFormatInfo_packFunc = AttrLabelProxy
#endif
getVideoFormatInfoTileMode :: MonadIO m => VideoFormatInfo -> m GstVideo.Enums.VideoTileMode
getVideoFormatInfoTileMode :: VideoFormatInfo -> m VideoTileMode
getVideoFormatInfoTileMode s :: VideoFormatInfo
s = IO VideoTileMode -> m VideoTileMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoTileMode -> m VideoTileMode)
-> IO VideoTileMode -> m VideoTileMode
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo
-> (Ptr VideoFormatInfo -> IO VideoTileMode) -> IO VideoTileMode
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO VideoTileMode) -> IO VideoTileMode)
-> (Ptr VideoFormatInfo -> IO VideoTileMode) -> IO VideoTileMode
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 184) :: IO CUInt
let val' :: VideoTileMode
val' = (Int -> VideoTileMode
forall a. Enum a => Int -> a
toEnum (Int -> VideoTileMode) -> (CUInt -> Int) -> CUInt -> VideoTileMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
VideoTileMode -> IO VideoTileMode
forall (m :: * -> *) a. Monad m => a -> m a
return VideoTileMode
val'
setVideoFormatInfoTileMode :: MonadIO m => VideoFormatInfo -> GstVideo.Enums.VideoTileMode -> m ()
setVideoFormatInfoTileMode :: VideoFormatInfo -> VideoTileMode -> m ()
setVideoFormatInfoTileMode s :: VideoFormatInfo
s val :: VideoTileMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
let val' :: CUInt
val' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (VideoTileMode -> Int) -> VideoTileMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VideoTileMode -> Int
forall a. Enum a => a -> Int
fromEnum) VideoTileMode
val
Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 184) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoTileModeFieldInfo
instance AttrInfo VideoFormatInfoTileModeFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoTileModeFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoTileModeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoFormatInfoTileModeFieldInfo = (~) GstVideo.Enums.VideoTileMode
type AttrTransferTypeConstraint VideoFormatInfoTileModeFieldInfo = (~)GstVideo.Enums.VideoTileMode
type AttrTransferType VideoFormatInfoTileModeFieldInfo = GstVideo.Enums.VideoTileMode
type AttrGetType VideoFormatInfoTileModeFieldInfo = GstVideo.Enums.VideoTileMode
type AttrLabel VideoFormatInfoTileModeFieldInfo = "tile_mode"
type AttrOrigin VideoFormatInfoTileModeFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoTileMode
attrSet = setVideoFormatInfoTileMode
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoFormatInfo_tileMode :: AttrLabelProxy "tileMode"
videoFormatInfo_tileMode = AttrLabelProxy
#endif
getVideoFormatInfoTileWs :: MonadIO m => VideoFormatInfo -> m Word32
getVideoFormatInfoTileWs :: VideoFormatInfo -> m Word32
getVideoFormatInfoTileWs s :: VideoFormatInfo
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
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO Word32) -> IO Word32)
-> (Ptr VideoFormatInfo -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 188) :: IO Word32
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setVideoFormatInfoTileWs :: MonadIO m => VideoFormatInfo -> Word32 -> m ()
setVideoFormatInfoTileWs :: VideoFormatInfo -> Word32 -> m ()
setVideoFormatInfoTileWs s :: VideoFormatInfo
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
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 188) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoTileWsFieldInfo
instance AttrInfo VideoFormatInfoTileWsFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoTileWsFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoTileWsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoFormatInfoTileWsFieldInfo = (~) Word32
type AttrTransferTypeConstraint VideoFormatInfoTileWsFieldInfo = (~)Word32
type AttrTransferType VideoFormatInfoTileWsFieldInfo = Word32
type AttrGetType VideoFormatInfoTileWsFieldInfo = Word32
type AttrLabel VideoFormatInfoTileWsFieldInfo = "tile_ws"
type AttrOrigin VideoFormatInfoTileWsFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoTileWs
attrSet = setVideoFormatInfoTileWs
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoFormatInfo_tileWs :: AttrLabelProxy "tileWs"
videoFormatInfo_tileWs = AttrLabelProxy
#endif
getVideoFormatInfoTileHs :: MonadIO m => VideoFormatInfo -> m Word32
getVideoFormatInfoTileHs :: VideoFormatInfo -> m Word32
getVideoFormatInfoTileHs s :: VideoFormatInfo
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
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO Word32) -> IO Word32)
-> (Ptr VideoFormatInfo -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 192) :: IO Word32
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setVideoFormatInfoTileHs :: MonadIO m => VideoFormatInfo -> Word32 -> m ()
setVideoFormatInfoTileHs :: VideoFormatInfo -> Word32 -> m ()
setVideoFormatInfoTileHs s :: VideoFormatInfo
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
$ VideoFormatInfo -> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoFormatInfo
s ((Ptr VideoFormatInfo -> IO ()) -> IO ())
-> (Ptr VideoFormatInfo -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoFormatInfo
ptr -> do
Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoFormatInfo
ptr Ptr VideoFormatInfo -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 192) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data VideoFormatInfoTileHsFieldInfo
instance AttrInfo VideoFormatInfoTileHsFieldInfo where
type AttrBaseTypeConstraint VideoFormatInfoTileHsFieldInfo = (~) VideoFormatInfo
type AttrAllowedOps VideoFormatInfoTileHsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoFormatInfoTileHsFieldInfo = (~) Word32
type AttrTransferTypeConstraint VideoFormatInfoTileHsFieldInfo = (~)Word32
type AttrTransferType VideoFormatInfoTileHsFieldInfo = Word32
type AttrGetType VideoFormatInfoTileHsFieldInfo = Word32
type AttrLabel VideoFormatInfoTileHsFieldInfo = "tile_hs"
type AttrOrigin VideoFormatInfoTileHsFieldInfo = VideoFormatInfo
attrGet = getVideoFormatInfoTileHs
attrSet = setVideoFormatInfoTileHs
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoFormatInfo_tileHs :: AttrLabelProxy "tileHs"
videoFormatInfo_tileHs = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList VideoFormatInfo
type instance O.AttributeList VideoFormatInfo = VideoFormatInfoAttributeList
type VideoFormatInfoAttributeList = ('[ '("format", VideoFormatInfoFormatFieldInfo), '("name", VideoFormatInfoNameFieldInfo), '("description", VideoFormatInfoDescriptionFieldInfo), '("flags", VideoFormatInfoFlagsFieldInfo), '("bits", VideoFormatInfoBitsFieldInfo), '("nComponents", VideoFormatInfoNComponentsFieldInfo), '("nPlanes", VideoFormatInfoNPlanesFieldInfo), '("unpackFormat", VideoFormatInfoUnpackFormatFieldInfo), '("unpackFunc", VideoFormatInfoUnpackFuncFieldInfo), '("packLines", VideoFormatInfoPackLinesFieldInfo), '("packFunc", VideoFormatInfoPackFuncFieldInfo), '("tileMode", VideoFormatInfoTileModeFieldInfo), '("tileWs", VideoFormatInfoTileWsFieldInfo), '("tileHs", VideoFormatInfoTileHsFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveVideoFormatInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveVideoFormatInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveVideoFormatInfoMethod t VideoFormatInfo, O.MethodInfo info VideoFormatInfo p) => OL.IsLabel t (VideoFormatInfo -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif