{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstVideo.Structs.VideoColorimetry
(
VideoColorimetry(..) ,
newZeroVideoColorimetry ,
noVideoColorimetry ,
#if defined(ENABLE_OVERLOADING)
ResolveVideoColorimetryMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
VideoColorimetryFromStringMethodInfo ,
#endif
videoColorimetryFromString ,
#if defined(ENABLE_OVERLOADING)
VideoColorimetryIsEqualMethodInfo ,
#endif
videoColorimetryIsEqual ,
#if defined(ENABLE_OVERLOADING)
VideoColorimetryMatchesMethodInfo ,
#endif
videoColorimetryMatches ,
#if defined(ENABLE_OVERLOADING)
VideoColorimetryToStringMethodInfo ,
#endif
videoColorimetryToString ,
getVideoColorimetryMatrix ,
setVideoColorimetryMatrix ,
#if defined(ENABLE_OVERLOADING)
videoColorimetry_matrix ,
#endif
getVideoColorimetryPrimaries ,
setVideoColorimetryPrimaries ,
#if defined(ENABLE_OVERLOADING)
videoColorimetry_primaries ,
#endif
getVideoColorimetryRange ,
setVideoColorimetryRange ,
#if defined(ENABLE_OVERLOADING)
videoColorimetry_range ,
#endif
getVideoColorimetryTransfer ,
setVideoColorimetryTransfer ,
#if defined(ENABLE_OVERLOADING)
videoColorimetry_transfer ,
#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 {-# SOURCE #-} qualified GI.GstVideo.Enums as GstVideo.Enums
newtype VideoColorimetry = VideoColorimetry (ManagedPtr VideoColorimetry)
deriving (VideoColorimetry -> VideoColorimetry -> Bool
(VideoColorimetry -> VideoColorimetry -> Bool)
-> (VideoColorimetry -> VideoColorimetry -> Bool)
-> Eq VideoColorimetry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VideoColorimetry -> VideoColorimetry -> Bool
$c/= :: VideoColorimetry -> VideoColorimetry -> Bool
== :: VideoColorimetry -> VideoColorimetry -> Bool
$c== :: VideoColorimetry -> VideoColorimetry -> Bool
Eq)
instance WrappedPtr VideoColorimetry where
wrappedPtrCalloc :: IO (Ptr VideoColorimetry)
wrappedPtrCalloc = Int -> IO (Ptr VideoColorimetry)
forall a. Int -> IO (Ptr a)
callocBytes 16
wrappedPtrCopy :: VideoColorimetry -> IO VideoColorimetry
wrappedPtrCopy = \p :: VideoColorimetry
p -> VideoColorimetry
-> (Ptr VideoColorimetry -> IO VideoColorimetry)
-> IO VideoColorimetry
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorimetry
p (Int -> Ptr VideoColorimetry -> IO (Ptr VideoColorimetry)
forall a. WrappedPtr a => Int -> Ptr a -> IO (Ptr a)
copyBytes 16 (Ptr VideoColorimetry -> IO (Ptr VideoColorimetry))
-> (Ptr VideoColorimetry -> IO VideoColorimetry)
-> Ptr VideoColorimetry
-> IO VideoColorimetry
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr VideoColorimetry -> VideoColorimetry)
-> Ptr VideoColorimetry -> IO VideoColorimetry
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr VideoColorimetry -> VideoColorimetry
VideoColorimetry)
wrappedPtrFree :: Maybe (GDestroyNotify VideoColorimetry)
wrappedPtrFree = GDestroyNotify VideoColorimetry
-> Maybe (GDestroyNotify VideoColorimetry)
forall a. a -> Maybe a
Just GDestroyNotify VideoColorimetry
forall a. FunPtr (Ptr a -> IO ())
ptr_to_g_free
newZeroVideoColorimetry :: MonadIO m => m VideoColorimetry
newZeroVideoColorimetry :: m VideoColorimetry
newZeroVideoColorimetry = IO VideoColorimetry -> m VideoColorimetry
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoColorimetry -> m VideoColorimetry)
-> IO VideoColorimetry -> m VideoColorimetry
forall a b. (a -> b) -> a -> b
$ IO (Ptr VideoColorimetry)
forall a. WrappedPtr a => IO (Ptr a)
wrappedPtrCalloc IO (Ptr VideoColorimetry)
-> (Ptr VideoColorimetry -> IO VideoColorimetry)
-> IO VideoColorimetry
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr VideoColorimetry -> VideoColorimetry)
-> Ptr VideoColorimetry -> IO VideoColorimetry
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr VideoColorimetry -> VideoColorimetry
VideoColorimetry
instance tag ~ 'AttrSet => Constructible VideoColorimetry tag where
new :: (ManagedPtr VideoColorimetry -> VideoColorimetry)
-> [AttrOp VideoColorimetry tag] -> m VideoColorimetry
new _ attrs :: [AttrOp VideoColorimetry tag]
attrs = do
VideoColorimetry
o <- m VideoColorimetry
forall (m :: * -> *). MonadIO m => m VideoColorimetry
newZeroVideoColorimetry
VideoColorimetry -> [AttrOp VideoColorimetry 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set VideoColorimetry
o [AttrOp VideoColorimetry tag]
[AttrOp VideoColorimetry 'AttrSet]
attrs
VideoColorimetry -> m VideoColorimetry
forall (m :: * -> *) a. Monad m => a -> m a
return VideoColorimetry
o
noVideoColorimetry :: Maybe VideoColorimetry
noVideoColorimetry :: Maybe VideoColorimetry
noVideoColorimetry = Maybe VideoColorimetry
forall a. Maybe a
Nothing
getVideoColorimetryRange :: MonadIO m => VideoColorimetry -> m GstVideo.Enums.VideoColorRange
getVideoColorimetryRange :: VideoColorimetry -> m VideoColorRange
getVideoColorimetryRange s :: VideoColorimetry
s = IO VideoColorRange -> m VideoColorRange
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoColorRange -> m VideoColorRange)
-> IO VideoColorRange -> m VideoColorRange
forall a b. (a -> b) -> a -> b
$ VideoColorimetry
-> (Ptr VideoColorimetry -> IO VideoColorRange)
-> IO VideoColorRange
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorimetry
s ((Ptr VideoColorimetry -> IO VideoColorRange)
-> IO VideoColorRange)
-> (Ptr VideoColorimetry -> IO VideoColorRange)
-> IO VideoColorRange
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoColorimetry
ptr -> do
CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorimetry
ptr Ptr VideoColorimetry -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO CUInt
let val' :: VideoColorRange
val' = (Int -> VideoColorRange
forall a. Enum a => Int -> a
toEnum (Int -> VideoColorRange)
-> (CUInt -> Int) -> CUInt -> VideoColorRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
VideoColorRange -> IO VideoColorRange
forall (m :: * -> *) a. Monad m => a -> m a
return VideoColorRange
val'
setVideoColorimetryRange :: MonadIO m => VideoColorimetry -> GstVideo.Enums.VideoColorRange -> m ()
setVideoColorimetryRange :: VideoColorimetry -> VideoColorRange -> m ()
setVideoColorimetryRange s :: VideoColorimetry
s val :: VideoColorRange
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorimetry -> (Ptr VideoColorimetry -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorimetry
s ((Ptr VideoColorimetry -> IO ()) -> IO ())
-> (Ptr VideoColorimetry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoColorimetry
ptr -> do
let val' :: CUInt
val' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (VideoColorRange -> Int) -> VideoColorRange -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VideoColorRange -> Int
forall a. Enum a => a -> Int
fromEnum) VideoColorRange
val
Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorimetry
ptr Ptr VideoColorimetry -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data VideoColorimetryRangeFieldInfo
instance AttrInfo VideoColorimetryRangeFieldInfo where
type AttrBaseTypeConstraint VideoColorimetryRangeFieldInfo = (~) VideoColorimetry
type AttrAllowedOps VideoColorimetryRangeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorimetryRangeFieldInfo = (~) GstVideo.Enums.VideoColorRange
type AttrTransferTypeConstraint VideoColorimetryRangeFieldInfo = (~)GstVideo.Enums.VideoColorRange
type AttrTransferType VideoColorimetryRangeFieldInfo = GstVideo.Enums.VideoColorRange
type AttrGetType VideoColorimetryRangeFieldInfo = GstVideo.Enums.VideoColorRange
type AttrLabel VideoColorimetryRangeFieldInfo = "range"
type AttrOrigin VideoColorimetryRangeFieldInfo = VideoColorimetry
attrGet = getVideoColorimetryRange
attrSet = setVideoColorimetryRange
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoColorimetry_range :: AttrLabelProxy "range"
videoColorimetry_range = AttrLabelProxy
#endif
getVideoColorimetryMatrix :: MonadIO m => VideoColorimetry -> m GstVideo.Enums.VideoColorMatrix
getVideoColorimetryMatrix :: VideoColorimetry -> m VideoColorMatrix
getVideoColorimetryMatrix s :: VideoColorimetry
s = IO VideoColorMatrix -> m VideoColorMatrix
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoColorMatrix -> m VideoColorMatrix)
-> IO VideoColorMatrix -> m VideoColorMatrix
forall a b. (a -> b) -> a -> b
$ VideoColorimetry
-> (Ptr VideoColorimetry -> IO VideoColorMatrix)
-> IO VideoColorMatrix
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorimetry
s ((Ptr VideoColorimetry -> IO VideoColorMatrix)
-> IO VideoColorMatrix)
-> (Ptr VideoColorimetry -> IO VideoColorMatrix)
-> IO VideoColorMatrix
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoColorimetry
ptr -> do
CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorimetry
ptr Ptr VideoColorimetry -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 4) :: IO CUInt
let val' :: VideoColorMatrix
val' = (Int -> VideoColorMatrix
forall a. Enum a => Int -> a
toEnum (Int -> VideoColorMatrix)
-> (CUInt -> Int) -> CUInt -> VideoColorMatrix
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
VideoColorMatrix -> IO VideoColorMatrix
forall (m :: * -> *) a. Monad m => a -> m a
return VideoColorMatrix
val'
setVideoColorimetryMatrix :: MonadIO m => VideoColorimetry -> GstVideo.Enums.VideoColorMatrix -> m ()
setVideoColorimetryMatrix :: VideoColorimetry -> VideoColorMatrix -> m ()
setVideoColorimetryMatrix s :: VideoColorimetry
s val :: VideoColorMatrix
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorimetry -> (Ptr VideoColorimetry -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorimetry
s ((Ptr VideoColorimetry -> IO ()) -> IO ())
-> (Ptr VideoColorimetry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoColorimetry
ptr -> do
let val' :: CUInt
val' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (VideoColorMatrix -> Int) -> VideoColorMatrix -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VideoColorMatrix -> Int
forall a. Enum a => a -> Int
fromEnum) VideoColorMatrix
val
Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorimetry
ptr Ptr VideoColorimetry -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 4) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data VideoColorimetryMatrixFieldInfo
instance AttrInfo VideoColorimetryMatrixFieldInfo where
type AttrBaseTypeConstraint VideoColorimetryMatrixFieldInfo = (~) VideoColorimetry
type AttrAllowedOps VideoColorimetryMatrixFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorimetryMatrixFieldInfo = (~) GstVideo.Enums.VideoColorMatrix
type AttrTransferTypeConstraint VideoColorimetryMatrixFieldInfo = (~)GstVideo.Enums.VideoColorMatrix
type AttrTransferType VideoColorimetryMatrixFieldInfo = GstVideo.Enums.VideoColorMatrix
type AttrGetType VideoColorimetryMatrixFieldInfo = GstVideo.Enums.VideoColorMatrix
type AttrLabel VideoColorimetryMatrixFieldInfo = "matrix"
type AttrOrigin VideoColorimetryMatrixFieldInfo = VideoColorimetry
attrGet = getVideoColorimetryMatrix
attrSet = setVideoColorimetryMatrix
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoColorimetry_matrix :: AttrLabelProxy "matrix"
videoColorimetry_matrix = AttrLabelProxy
#endif
getVideoColorimetryTransfer :: MonadIO m => VideoColorimetry -> m GstVideo.Enums.VideoTransferFunction
getVideoColorimetryTransfer :: VideoColorimetry -> m VideoTransferFunction
getVideoColorimetryTransfer s :: VideoColorimetry
s = IO VideoTransferFunction -> m VideoTransferFunction
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoTransferFunction -> m VideoTransferFunction)
-> IO VideoTransferFunction -> m VideoTransferFunction
forall a b. (a -> b) -> a -> b
$ VideoColorimetry
-> (Ptr VideoColorimetry -> IO VideoTransferFunction)
-> IO VideoTransferFunction
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorimetry
s ((Ptr VideoColorimetry -> IO VideoTransferFunction)
-> IO VideoTransferFunction)
-> (Ptr VideoColorimetry -> IO VideoTransferFunction)
-> IO VideoTransferFunction
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoColorimetry
ptr -> do
CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorimetry
ptr Ptr VideoColorimetry -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) :: IO CUInt
let val' :: VideoTransferFunction
val' = (Int -> VideoTransferFunction
forall a. Enum a => Int -> a
toEnum (Int -> VideoTransferFunction)
-> (CUInt -> Int) -> CUInt -> VideoTransferFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
VideoTransferFunction -> IO VideoTransferFunction
forall (m :: * -> *) a. Monad m => a -> m a
return VideoTransferFunction
val'
setVideoColorimetryTransfer :: MonadIO m => VideoColorimetry -> GstVideo.Enums.VideoTransferFunction -> m ()
setVideoColorimetryTransfer :: VideoColorimetry -> VideoTransferFunction -> m ()
setVideoColorimetryTransfer s :: VideoColorimetry
s val :: VideoTransferFunction
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorimetry -> (Ptr VideoColorimetry -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorimetry
s ((Ptr VideoColorimetry -> IO ()) -> IO ())
-> (Ptr VideoColorimetry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoColorimetry
ptr -> do
let val' :: CUInt
val' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (VideoTransferFunction -> Int) -> VideoTransferFunction -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VideoTransferFunction -> Int
forall a. Enum a => a -> Int
fromEnum) VideoTransferFunction
val
Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorimetry
ptr Ptr VideoColorimetry -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data VideoColorimetryTransferFieldInfo
instance AttrInfo VideoColorimetryTransferFieldInfo where
type AttrBaseTypeConstraint VideoColorimetryTransferFieldInfo = (~) VideoColorimetry
type AttrAllowedOps VideoColorimetryTransferFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorimetryTransferFieldInfo = (~) GstVideo.Enums.VideoTransferFunction
type AttrTransferTypeConstraint VideoColorimetryTransferFieldInfo = (~)GstVideo.Enums.VideoTransferFunction
type AttrTransferType VideoColorimetryTransferFieldInfo = GstVideo.Enums.VideoTransferFunction
type AttrGetType VideoColorimetryTransferFieldInfo = GstVideo.Enums.VideoTransferFunction
type AttrLabel VideoColorimetryTransferFieldInfo = "transfer"
type AttrOrigin VideoColorimetryTransferFieldInfo = VideoColorimetry
attrGet = getVideoColorimetryTransfer
attrSet = setVideoColorimetryTransfer
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoColorimetry_transfer :: AttrLabelProxy "transfer"
videoColorimetry_transfer = AttrLabelProxy
#endif
getVideoColorimetryPrimaries :: MonadIO m => VideoColorimetry -> m GstVideo.Enums.VideoColorPrimaries
getVideoColorimetryPrimaries :: VideoColorimetry -> m VideoColorPrimaries
getVideoColorimetryPrimaries s :: VideoColorimetry
s = IO VideoColorPrimaries -> m VideoColorPrimaries
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoColorPrimaries -> m VideoColorPrimaries)
-> IO VideoColorPrimaries -> m VideoColorPrimaries
forall a b. (a -> b) -> a -> b
$ VideoColorimetry
-> (Ptr VideoColorimetry -> IO VideoColorPrimaries)
-> IO VideoColorPrimaries
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorimetry
s ((Ptr VideoColorimetry -> IO VideoColorPrimaries)
-> IO VideoColorPrimaries)
-> (Ptr VideoColorimetry -> IO VideoColorPrimaries)
-> IO VideoColorPrimaries
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoColorimetry
ptr -> do
CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr VideoColorimetry
ptr Ptr VideoColorimetry -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 12) :: IO CUInt
let val' :: VideoColorPrimaries
val' = (Int -> VideoColorPrimaries
forall a. Enum a => Int -> a
toEnum (Int -> VideoColorPrimaries)
-> (CUInt -> Int) -> CUInt -> VideoColorPrimaries
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
VideoColorPrimaries -> IO VideoColorPrimaries
forall (m :: * -> *) a. Monad m => a -> m a
return VideoColorPrimaries
val'
setVideoColorimetryPrimaries :: MonadIO m => VideoColorimetry -> GstVideo.Enums.VideoColorPrimaries -> m ()
setVideoColorimetryPrimaries :: VideoColorimetry -> VideoColorPrimaries -> m ()
setVideoColorimetryPrimaries s :: VideoColorimetry
s val :: VideoColorPrimaries
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ VideoColorimetry -> (Ptr VideoColorimetry -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr VideoColorimetry
s ((Ptr VideoColorimetry -> IO ()) -> IO ())
-> (Ptr VideoColorimetry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr VideoColorimetry
ptr -> do
let val' :: CUInt
val' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (VideoColorPrimaries -> Int) -> VideoColorPrimaries -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VideoColorPrimaries -> Int
forall a. Enum a => a -> Int
fromEnum) VideoColorPrimaries
val
Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr VideoColorimetry
ptr Ptr VideoColorimetry -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 12) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data VideoColorimetryPrimariesFieldInfo
instance AttrInfo VideoColorimetryPrimariesFieldInfo where
type AttrBaseTypeConstraint VideoColorimetryPrimariesFieldInfo = (~) VideoColorimetry
type AttrAllowedOps VideoColorimetryPrimariesFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoColorimetryPrimariesFieldInfo = (~) GstVideo.Enums.VideoColorPrimaries
type AttrTransferTypeConstraint VideoColorimetryPrimariesFieldInfo = (~)GstVideo.Enums.VideoColorPrimaries
type AttrTransferType VideoColorimetryPrimariesFieldInfo = GstVideo.Enums.VideoColorPrimaries
type AttrGetType VideoColorimetryPrimariesFieldInfo = GstVideo.Enums.VideoColorPrimaries
type AttrLabel VideoColorimetryPrimariesFieldInfo = "primaries"
type AttrOrigin VideoColorimetryPrimariesFieldInfo = VideoColorimetry
attrGet = getVideoColorimetryPrimaries
attrSet = setVideoColorimetryPrimaries
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
videoColorimetry_primaries :: AttrLabelProxy "primaries"
videoColorimetry_primaries = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList VideoColorimetry
type instance O.AttributeList VideoColorimetry = VideoColorimetryAttributeList
type VideoColorimetryAttributeList = ('[ '("range", VideoColorimetryRangeFieldInfo), '("matrix", VideoColorimetryMatrixFieldInfo), '("transfer", VideoColorimetryTransferFieldInfo), '("primaries", VideoColorimetryPrimariesFieldInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_video_colorimetry_from_string" gst_video_colorimetry_from_string ::
Ptr VideoColorimetry ->
CString ->
IO CInt
videoColorimetryFromString ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoColorimetry
-> T.Text
-> m Bool
videoColorimetryFromString :: VideoColorimetry -> Text -> m Bool
videoColorimetryFromString cinfo :: VideoColorimetry
cinfo color :: Text
color = 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 VideoColorimetry
cinfo' <- VideoColorimetry -> IO (Ptr VideoColorimetry)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoColorimetry
cinfo
CString
color' <- Text -> IO CString
textToCString Text
color
CInt
result <- Ptr VideoColorimetry -> CString -> IO CInt
gst_video_colorimetry_from_string Ptr VideoColorimetry
cinfo' CString
color'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
VideoColorimetry -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoColorimetry
cinfo
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
color'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data VideoColorimetryFromStringMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m) => O.MethodInfo VideoColorimetryFromStringMethodInfo VideoColorimetry signature where
overloadedMethod = videoColorimetryFromString
#endif
foreign import ccall "gst_video_colorimetry_is_equal" gst_video_colorimetry_is_equal ::
Ptr VideoColorimetry ->
Ptr VideoColorimetry ->
IO CInt
videoColorimetryIsEqual ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoColorimetry
-> VideoColorimetry
-> m Bool
videoColorimetryIsEqual :: VideoColorimetry -> VideoColorimetry -> m Bool
videoColorimetryIsEqual cinfo :: VideoColorimetry
cinfo other :: VideoColorimetry
other = 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 VideoColorimetry
cinfo' <- VideoColorimetry -> IO (Ptr VideoColorimetry)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoColorimetry
cinfo
Ptr VideoColorimetry
other' <- VideoColorimetry -> IO (Ptr VideoColorimetry)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoColorimetry
other
CInt
result <- Ptr VideoColorimetry -> Ptr VideoColorimetry -> IO CInt
gst_video_colorimetry_is_equal Ptr VideoColorimetry
cinfo' Ptr VideoColorimetry
other'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
VideoColorimetry -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoColorimetry
cinfo
VideoColorimetry -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoColorimetry
other
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data VideoColorimetryIsEqualMethodInfo
instance (signature ~ (VideoColorimetry -> m Bool), MonadIO m) => O.MethodInfo VideoColorimetryIsEqualMethodInfo VideoColorimetry signature where
overloadedMethod = videoColorimetryIsEqual
#endif
foreign import ccall "gst_video_colorimetry_matches" gst_video_colorimetry_matches ::
Ptr VideoColorimetry ->
CString ->
IO CInt
videoColorimetryMatches ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoColorimetry
-> T.Text
-> m Bool
videoColorimetryMatches :: VideoColorimetry -> Text -> m Bool
videoColorimetryMatches cinfo :: VideoColorimetry
cinfo color :: Text
color = 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 VideoColorimetry
cinfo' <- VideoColorimetry -> IO (Ptr VideoColorimetry)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoColorimetry
cinfo
CString
color' <- Text -> IO CString
textToCString Text
color
CInt
result <- Ptr VideoColorimetry -> CString -> IO CInt
gst_video_colorimetry_matches Ptr VideoColorimetry
cinfo' CString
color'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
VideoColorimetry -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoColorimetry
cinfo
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
color'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data VideoColorimetryMatchesMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m) => O.MethodInfo VideoColorimetryMatchesMethodInfo VideoColorimetry signature where
overloadedMethod = videoColorimetryMatches
#endif
foreign import ccall "gst_video_colorimetry_to_string" gst_video_colorimetry_to_string ::
Ptr VideoColorimetry ->
IO CString
videoColorimetryToString ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoColorimetry
-> m T.Text
videoColorimetryToString :: VideoColorimetry -> m Text
videoColorimetryToString cinfo :: VideoColorimetry
cinfo = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoColorimetry
cinfo' <- VideoColorimetry -> IO (Ptr VideoColorimetry)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr VideoColorimetry
cinfo
CString
result <- Ptr VideoColorimetry -> IO CString
gst_video_colorimetry_to_string Ptr VideoColorimetry
cinfo'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "videoColorimetryToString" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
VideoColorimetry -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr VideoColorimetry
cinfo
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data VideoColorimetryToStringMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo VideoColorimetryToStringMethodInfo VideoColorimetry signature where
overloadedMethod = videoColorimetryToString
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveVideoColorimetryMethod (t :: Symbol) (o :: *) :: * where
ResolveVideoColorimetryMethod "fromString" o = VideoColorimetryFromStringMethodInfo
ResolveVideoColorimetryMethod "isEqual" o = VideoColorimetryIsEqualMethodInfo
ResolveVideoColorimetryMethod "matches" o = VideoColorimetryMatchesMethodInfo
ResolveVideoColorimetryMethod "toString" o = VideoColorimetryToStringMethodInfo
ResolveVideoColorimetryMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveVideoColorimetryMethod t VideoColorimetry, O.MethodInfo info VideoColorimetry p) => OL.IsLabel t (VideoColorimetry -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif