#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GstVideo.Flags
(
VideoBufferFlags(..) ,
VideoChromaFlags(..) ,
VideoChromaSite(..) ,
VideoCodecFrameFlags(..) ,
VideoDitherFlags(..) ,
VideoFlags(..) ,
VideoFormatFlags(..) ,
VideoFrameFlags(..) ,
VideoFrameMapFlags(..) ,
VideoMultiviewFlags(..) ,
VideoOverlayFormatFlags(..) ,
VideoPackFlags(..) ,
VideoResamplerFlags(..) ,
VideoScalerFlags(..) ,
VideoTimeCodeFlags(..) ,
) 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.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
data VideoTimeCodeFlags =
VideoTimeCodeFlagsNone
| VideoTimeCodeFlagsDropFrame
| VideoTimeCodeFlagsInterlaced
| AnotherVideoTimeCodeFlags Int
deriving (Show, Eq)
instance P.Enum VideoTimeCodeFlags where
fromEnum VideoTimeCodeFlagsNone = 0
fromEnum VideoTimeCodeFlagsDropFrame = 1
fromEnum VideoTimeCodeFlagsInterlaced = 2
fromEnum (AnotherVideoTimeCodeFlags k) = k
toEnum 0 = VideoTimeCodeFlagsNone
toEnum 1 = VideoTimeCodeFlagsDropFrame
toEnum 2 = VideoTimeCodeFlagsInterlaced
toEnum k = AnotherVideoTimeCodeFlags k
instance P.Ord VideoTimeCodeFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag VideoTimeCodeFlags
data VideoScalerFlags =
VideoScalerFlagsNone
| VideoScalerFlagsInterlaced
| AnotherVideoScalerFlags Int
deriving (Show, Eq)
instance P.Enum VideoScalerFlags where
fromEnum VideoScalerFlagsNone = 0
fromEnum VideoScalerFlagsInterlaced = 1
fromEnum (AnotherVideoScalerFlags k) = k
toEnum 0 = VideoScalerFlagsNone
toEnum 1 = VideoScalerFlagsInterlaced
toEnum k = AnotherVideoScalerFlags k
instance P.Ord VideoScalerFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_scaler_flags_get_type" c_gst_video_scaler_flags_get_type ::
IO GType
instance BoxedFlags VideoScalerFlags where
boxedFlagsType _ = c_gst_video_scaler_flags_get_type
instance IsGFlag VideoScalerFlags
data VideoResamplerFlags =
VideoResamplerFlagsNone
| VideoResamplerFlagsHalfTaps
| AnotherVideoResamplerFlags Int
deriving (Show, Eq)
instance P.Enum VideoResamplerFlags where
fromEnum VideoResamplerFlagsNone = 0
fromEnum VideoResamplerFlagsHalfTaps = 1
fromEnum (AnotherVideoResamplerFlags k) = k
toEnum 0 = VideoResamplerFlagsNone
toEnum 1 = VideoResamplerFlagsHalfTaps
toEnum k = AnotherVideoResamplerFlags k
instance P.Ord VideoResamplerFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_resampler_flags_get_type" c_gst_video_resampler_flags_get_type ::
IO GType
instance BoxedFlags VideoResamplerFlags where
boxedFlagsType _ = c_gst_video_resampler_flags_get_type
instance IsGFlag VideoResamplerFlags
data VideoPackFlags =
VideoPackFlagsNone
| VideoPackFlagsTruncateRange
| VideoPackFlagsInterlaced
| AnotherVideoPackFlags Int
deriving (Show, Eq)
instance P.Enum VideoPackFlags where
fromEnum VideoPackFlagsNone = 0
fromEnum VideoPackFlagsTruncateRange = 1
fromEnum VideoPackFlagsInterlaced = 2
fromEnum (AnotherVideoPackFlags k) = k
toEnum 0 = VideoPackFlagsNone
toEnum 1 = VideoPackFlagsTruncateRange
toEnum 2 = VideoPackFlagsInterlaced
toEnum k = AnotherVideoPackFlags k
instance P.Ord VideoPackFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_pack_flags_get_type" c_gst_video_pack_flags_get_type ::
IO GType
instance BoxedFlags VideoPackFlags where
boxedFlagsType _ = c_gst_video_pack_flags_get_type
instance IsGFlag VideoPackFlags
data VideoOverlayFormatFlags =
VideoOverlayFormatFlagsNone
| VideoOverlayFormatFlagsPremultipliedAlpha
| VideoOverlayFormatFlagsGlobalAlpha
| AnotherVideoOverlayFormatFlags Int
deriving (Show, Eq)
instance P.Enum VideoOverlayFormatFlags where
fromEnum VideoOverlayFormatFlagsNone = 0
fromEnum VideoOverlayFormatFlagsPremultipliedAlpha = 1
fromEnum VideoOverlayFormatFlagsGlobalAlpha = 2
fromEnum (AnotherVideoOverlayFormatFlags k) = k
toEnum 0 = VideoOverlayFormatFlagsNone
toEnum 1 = VideoOverlayFormatFlagsPremultipliedAlpha
toEnum 2 = VideoOverlayFormatFlagsGlobalAlpha
toEnum k = AnotherVideoOverlayFormatFlags k
instance P.Ord VideoOverlayFormatFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_overlay_format_flags_get_type" c_gst_video_overlay_format_flags_get_type ::
IO GType
instance BoxedFlags VideoOverlayFormatFlags where
boxedFlagsType _ = c_gst_video_overlay_format_flags_get_type
instance IsGFlag VideoOverlayFormatFlags
data VideoMultiviewFlags =
VideoMultiviewFlagsNone
| VideoMultiviewFlagsRightViewFirst
| VideoMultiviewFlagsLeftFlipped
| VideoMultiviewFlagsLeftFlopped
| VideoMultiviewFlagsRightFlipped
| VideoMultiviewFlagsRightFlopped
| VideoMultiviewFlagsHalfAspect
| VideoMultiviewFlagsMixedMono
| AnotherVideoMultiviewFlags Int
deriving (Show, Eq)
instance P.Enum VideoMultiviewFlags where
fromEnum VideoMultiviewFlagsNone = 0
fromEnum VideoMultiviewFlagsRightViewFirst = 1
fromEnum VideoMultiviewFlagsLeftFlipped = 2
fromEnum VideoMultiviewFlagsLeftFlopped = 4
fromEnum VideoMultiviewFlagsRightFlipped = 8
fromEnum VideoMultiviewFlagsRightFlopped = 16
fromEnum VideoMultiviewFlagsHalfAspect = 16384
fromEnum VideoMultiviewFlagsMixedMono = 32768
fromEnum (AnotherVideoMultiviewFlags k) = k
toEnum 0 = VideoMultiviewFlagsNone
toEnum 1 = VideoMultiviewFlagsRightViewFirst
toEnum 2 = VideoMultiviewFlagsLeftFlipped
toEnum 4 = VideoMultiviewFlagsLeftFlopped
toEnum 8 = VideoMultiviewFlagsRightFlipped
toEnum 16 = VideoMultiviewFlagsRightFlopped
toEnum 16384 = VideoMultiviewFlagsHalfAspect
toEnum 32768 = VideoMultiviewFlagsMixedMono
toEnum k = AnotherVideoMultiviewFlags k
instance P.Ord VideoMultiviewFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_multiview_flags_get_type" c_gst_video_multiview_flags_get_type ::
IO GType
instance BoxedFlags VideoMultiviewFlags where
boxedFlagsType _ = c_gst_video_multiview_flags_get_type
instance IsGFlag VideoMultiviewFlags
data VideoFrameMapFlags =
VideoFrameMapFlagsNoRef
| VideoFrameMapFlagsLast
| AnotherVideoFrameMapFlags Int
deriving (Show, Eq)
instance P.Enum VideoFrameMapFlags where
fromEnum VideoFrameMapFlagsNoRef = 65536
fromEnum VideoFrameMapFlagsLast = 16777216
fromEnum (AnotherVideoFrameMapFlags k) = k
toEnum 65536 = VideoFrameMapFlagsNoRef
toEnum 16777216 = VideoFrameMapFlagsLast
toEnum k = AnotherVideoFrameMapFlags k
instance P.Ord VideoFrameMapFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_frame_map_flags_get_type" c_gst_video_frame_map_flags_get_type ::
IO GType
instance BoxedFlags VideoFrameMapFlags where
boxedFlagsType _ = c_gst_video_frame_map_flags_get_type
instance IsGFlag VideoFrameMapFlags
data VideoFrameFlags =
VideoFrameFlagsNone
| VideoFrameFlagsInterlaced
| VideoFrameFlagsTff
| VideoFrameFlagsRff
| VideoFrameFlagsOnefield
| VideoFrameFlagsMultipleView
| VideoFrameFlagsFirstInBundle
| VideoFrameFlagsTopField
| VideoFrameFlagsBottomField
| AnotherVideoFrameFlags Int
deriving (Show, Eq)
instance P.Enum VideoFrameFlags where
fromEnum VideoFrameFlagsNone = 0
fromEnum VideoFrameFlagsInterlaced = 1
fromEnum VideoFrameFlagsTff = 2
fromEnum VideoFrameFlagsRff = 4
fromEnum VideoFrameFlagsOnefield = 8
fromEnum VideoFrameFlagsMultipleView = 16
fromEnum VideoFrameFlagsFirstInBundle = 32
fromEnum VideoFrameFlagsTopField = 10
fromEnum VideoFrameFlagsBottomField = 8
fromEnum (AnotherVideoFrameFlags k) = k
toEnum 0 = VideoFrameFlagsNone
toEnum 1 = VideoFrameFlagsInterlaced
toEnum 2 = VideoFrameFlagsTff
toEnum 4 = VideoFrameFlagsRff
toEnum 8 = VideoFrameFlagsOnefield
toEnum 16 = VideoFrameFlagsMultipleView
toEnum 32 = VideoFrameFlagsFirstInBundle
toEnum 10 = VideoFrameFlagsTopField
toEnum 8 = VideoFrameFlagsBottomField
toEnum k = AnotherVideoFrameFlags k
instance P.Ord VideoFrameFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_frame_flags_get_type" c_gst_video_frame_flags_get_type ::
IO GType
instance BoxedFlags VideoFrameFlags where
boxedFlagsType _ = c_gst_video_frame_flags_get_type
instance IsGFlag VideoFrameFlags
data VideoFormatFlags =
VideoFormatFlagsYuv
| VideoFormatFlagsRgb
| VideoFormatFlagsGray
| VideoFormatFlagsAlpha
| VideoFormatFlagsLe
| VideoFormatFlagsPalette
| VideoFormatFlagsComplex
| VideoFormatFlagsUnpack
| VideoFormatFlagsTiled
| AnotherVideoFormatFlags Int
deriving (Show, Eq)
instance P.Enum VideoFormatFlags where
fromEnum VideoFormatFlagsYuv = 1
fromEnum VideoFormatFlagsRgb = 2
fromEnum VideoFormatFlagsGray = 4
fromEnum VideoFormatFlagsAlpha = 8
fromEnum VideoFormatFlagsLe = 16
fromEnum VideoFormatFlagsPalette = 32
fromEnum VideoFormatFlagsComplex = 64
fromEnum VideoFormatFlagsUnpack = 128
fromEnum VideoFormatFlagsTiled = 256
fromEnum (AnotherVideoFormatFlags k) = k
toEnum 1 = VideoFormatFlagsYuv
toEnum 2 = VideoFormatFlagsRgb
toEnum 4 = VideoFormatFlagsGray
toEnum 8 = VideoFormatFlagsAlpha
toEnum 16 = VideoFormatFlagsLe
toEnum 32 = VideoFormatFlagsPalette
toEnum 64 = VideoFormatFlagsComplex
toEnum 128 = VideoFormatFlagsUnpack
toEnum 256 = VideoFormatFlagsTiled
toEnum k = AnotherVideoFormatFlags k
instance P.Ord VideoFormatFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_format_flags_get_type" c_gst_video_format_flags_get_type ::
IO GType
instance BoxedFlags VideoFormatFlags where
boxedFlagsType _ = c_gst_video_format_flags_get_type
instance IsGFlag VideoFormatFlags
data VideoFlags =
VideoFlagsNone
| VideoFlagsVariableFps
| VideoFlagsPremultipliedAlpha
| AnotherVideoFlags Int
deriving (Show, Eq)
instance P.Enum VideoFlags where
fromEnum VideoFlagsNone = 0
fromEnum VideoFlagsVariableFps = 1
fromEnum VideoFlagsPremultipliedAlpha = 2
fromEnum (AnotherVideoFlags k) = k
toEnum 0 = VideoFlagsNone
toEnum 1 = VideoFlagsVariableFps
toEnum 2 = VideoFlagsPremultipliedAlpha
toEnum k = AnotherVideoFlags k
instance P.Ord VideoFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_flags_get_type" c_gst_video_flags_get_type ::
IO GType
instance BoxedFlags VideoFlags where
boxedFlagsType _ = c_gst_video_flags_get_type
instance IsGFlag VideoFlags
data VideoDitherFlags =
VideoDitherFlagsNone
| VideoDitherFlagsInterlaced
| VideoDitherFlagsQuantize
| AnotherVideoDitherFlags Int
deriving (Show, Eq)
instance P.Enum VideoDitherFlags where
fromEnum VideoDitherFlagsNone = 0
fromEnum VideoDitherFlagsInterlaced = 1
fromEnum VideoDitherFlagsQuantize = 2
fromEnum (AnotherVideoDitherFlags k) = k
toEnum 0 = VideoDitherFlagsNone
toEnum 1 = VideoDitherFlagsInterlaced
toEnum 2 = VideoDitherFlagsQuantize
toEnum k = AnotherVideoDitherFlags k
instance P.Ord VideoDitherFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_dither_flags_get_type" c_gst_video_dither_flags_get_type ::
IO GType
instance BoxedFlags VideoDitherFlags where
boxedFlagsType _ = c_gst_video_dither_flags_get_type
instance IsGFlag VideoDitherFlags
data VideoCodecFrameFlags =
VideoCodecFrameFlagsDecodeOnly
| VideoCodecFrameFlagsSyncPoint
| VideoCodecFrameFlagsForceKeyframe
| VideoCodecFrameFlagsForceKeyframeHeaders
| AnotherVideoCodecFrameFlags Int
deriving (Show, Eq)
instance P.Enum VideoCodecFrameFlags where
fromEnum VideoCodecFrameFlagsDecodeOnly = 1
fromEnum VideoCodecFrameFlagsSyncPoint = 2
fromEnum VideoCodecFrameFlagsForceKeyframe = 4
fromEnum VideoCodecFrameFlagsForceKeyframeHeaders = 8
fromEnum (AnotherVideoCodecFrameFlags k) = k
toEnum 1 = VideoCodecFrameFlagsDecodeOnly
toEnum 2 = VideoCodecFrameFlagsSyncPoint
toEnum 4 = VideoCodecFrameFlagsForceKeyframe
toEnum 8 = VideoCodecFrameFlagsForceKeyframeHeaders
toEnum k = AnotherVideoCodecFrameFlags k
instance P.Ord VideoCodecFrameFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag VideoCodecFrameFlags
data VideoChromaSite =
VideoChromaSiteUnknown
| VideoChromaSiteNone
| VideoChromaSiteHCosited
| VideoChromaSiteVCosited
| VideoChromaSiteAltLine
| VideoChromaSiteCosited
| VideoChromaSiteJpeg
| VideoChromaSiteMpeg2
| VideoChromaSiteDv
| AnotherVideoChromaSite Int
deriving (Show, Eq)
instance P.Enum VideoChromaSite where
fromEnum VideoChromaSiteUnknown = 0
fromEnum VideoChromaSiteNone = 1
fromEnum VideoChromaSiteHCosited = 2
fromEnum VideoChromaSiteVCosited = 4
fromEnum VideoChromaSiteAltLine = 8
fromEnum VideoChromaSiteCosited = 6
fromEnum VideoChromaSiteJpeg = 1
fromEnum VideoChromaSiteMpeg2 = 2
fromEnum VideoChromaSiteDv = 14
fromEnum (AnotherVideoChromaSite k) = k
toEnum 0 = VideoChromaSiteUnknown
toEnum 1 = VideoChromaSiteNone
toEnum 2 = VideoChromaSiteHCosited
toEnum 4 = VideoChromaSiteVCosited
toEnum 8 = VideoChromaSiteAltLine
toEnum 6 = VideoChromaSiteCosited
toEnum 1 = VideoChromaSiteJpeg
toEnum 2 = VideoChromaSiteMpeg2
toEnum 14 = VideoChromaSiteDv
toEnum k = AnotherVideoChromaSite k
instance P.Ord VideoChromaSite where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_chroma_site_get_type" c_gst_video_chroma_site_get_type ::
IO GType
instance BoxedFlags VideoChromaSite where
boxedFlagsType _ = c_gst_video_chroma_site_get_type
instance IsGFlag VideoChromaSite
data VideoChromaFlags =
VideoChromaFlagsNone
| VideoChromaFlagsInterlaced
| AnotherVideoChromaFlags Int
deriving (Show, Eq)
instance P.Enum VideoChromaFlags where
fromEnum VideoChromaFlagsNone = 0
fromEnum VideoChromaFlagsInterlaced = 1
fromEnum (AnotherVideoChromaFlags k) = k
toEnum 0 = VideoChromaFlagsNone
toEnum 1 = VideoChromaFlagsInterlaced
toEnum k = AnotherVideoChromaFlags k
instance P.Ord VideoChromaFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_chroma_flags_get_type" c_gst_video_chroma_flags_get_type ::
IO GType
instance BoxedFlags VideoChromaFlags where
boxedFlagsType _ = c_gst_video_chroma_flags_get_type
instance IsGFlag VideoChromaFlags
data VideoBufferFlags =
VideoBufferFlagsInterlaced
| VideoBufferFlagsTff
| VideoBufferFlagsRff
| VideoBufferFlagsOnefield
| VideoBufferFlagsMultipleView
| VideoBufferFlagsFirstInBundle
| VideoBufferFlagsTopField
| VideoBufferFlagsBottomField
| VideoBufferFlagsLast
| AnotherVideoBufferFlags Int
deriving (Show, Eq)
instance P.Enum VideoBufferFlags where
fromEnum VideoBufferFlagsInterlaced = 1048576
fromEnum VideoBufferFlagsTff = 2097152
fromEnum VideoBufferFlagsRff = 4194304
fromEnum VideoBufferFlagsOnefield = 8388608
fromEnum VideoBufferFlagsMultipleView = 16777216
fromEnum VideoBufferFlagsFirstInBundle = 33554432
fromEnum VideoBufferFlagsTopField = 10485760
fromEnum VideoBufferFlagsBottomField = 8388608
fromEnum VideoBufferFlagsLast = 268435456
fromEnum (AnotherVideoBufferFlags k) = k
toEnum 1048576 = VideoBufferFlagsInterlaced
toEnum 2097152 = VideoBufferFlagsTff
toEnum 4194304 = VideoBufferFlagsRff
toEnum 8388608 = VideoBufferFlagsOnefield
toEnum 16777216 = VideoBufferFlagsMultipleView
toEnum 33554432 = VideoBufferFlagsFirstInBundle
toEnum 10485760 = VideoBufferFlagsTopField
toEnum 8388608 = VideoBufferFlagsBottomField
toEnum 268435456 = VideoBufferFlagsLast
toEnum k = AnotherVideoBufferFlags k
instance P.Ord VideoBufferFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_video_buffer_flags_get_type" c_gst_video_buffer_flags_get_type ::
IO GType
instance BoxedFlags VideoBufferFlags where
boxedFlagsType _ = c_gst_video_buffer_flags_get_type
instance IsGFlag VideoBufferFlags