#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GstAudio.Flags
(
AudioChannelMixerFlags(..) ,
AudioConverterFlags(..) ,
AudioFlags(..) ,
AudioFormatFlags(..) ,
AudioPackFlags(..) ,
AudioQuantizeFlags(..) ,
AudioResamplerFlags(..) ,
) 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 AudioResamplerFlags =
AudioResamplerFlagsNone
| AudioResamplerFlagsNonInterleavedIn
| AudioResamplerFlagsNonInterleavedOut
| AudioResamplerFlagsVariableRate
| AnotherAudioResamplerFlags Int
deriving (Show, Eq)
instance P.Enum AudioResamplerFlags where
fromEnum AudioResamplerFlagsNone = 0
fromEnum AudioResamplerFlagsNonInterleavedIn = 1
fromEnum AudioResamplerFlagsNonInterleavedOut = 2
fromEnum AudioResamplerFlagsVariableRate = 4
fromEnum (AnotherAudioResamplerFlags k) = k
toEnum 0 = AudioResamplerFlagsNone
toEnum 1 = AudioResamplerFlagsNonInterleavedIn
toEnum 2 = AudioResamplerFlagsNonInterleavedOut
toEnum 4 = AudioResamplerFlagsVariableRate
toEnum k = AnotherAudioResamplerFlags k
instance P.Ord AudioResamplerFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_audio_resampler_flags_get_type" c_gst_audio_resampler_flags_get_type ::
IO GType
instance BoxedFlags AudioResamplerFlags where
boxedFlagsType _ = c_gst_audio_resampler_flags_get_type
instance IsGFlag AudioResamplerFlags
data AudioQuantizeFlags =
AudioQuantizeFlagsNone
| AudioQuantizeFlagsNonInterleaved
| AnotherAudioQuantizeFlags Int
deriving (Show, Eq)
instance P.Enum AudioQuantizeFlags where
fromEnum AudioQuantizeFlagsNone = 0
fromEnum AudioQuantizeFlagsNonInterleaved = 1
fromEnum (AnotherAudioQuantizeFlags k) = k
toEnum 0 = AudioQuantizeFlagsNone
toEnum 1 = AudioQuantizeFlagsNonInterleaved
toEnum k = AnotherAudioQuantizeFlags k
instance P.Ord AudioQuantizeFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_audio_quantize_flags_get_type" c_gst_audio_quantize_flags_get_type ::
IO GType
instance BoxedFlags AudioQuantizeFlags where
boxedFlagsType _ = c_gst_audio_quantize_flags_get_type
instance IsGFlag AudioQuantizeFlags
data AudioPackFlags =
AudioPackFlagsNone
| AudioPackFlagsTruncateRange
| AnotherAudioPackFlags Int
deriving (Show, Eq)
instance P.Enum AudioPackFlags where
fromEnum AudioPackFlagsNone = 0
fromEnum AudioPackFlagsTruncateRange = 1
fromEnum (AnotherAudioPackFlags k) = k
toEnum 0 = AudioPackFlagsNone
toEnum 1 = AudioPackFlagsTruncateRange
toEnum k = AnotherAudioPackFlags k
instance P.Ord AudioPackFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_audio_pack_flags_get_type" c_gst_audio_pack_flags_get_type ::
IO GType
instance BoxedFlags AudioPackFlags where
boxedFlagsType _ = c_gst_audio_pack_flags_get_type
instance IsGFlag AudioPackFlags
data AudioFormatFlags =
AudioFormatFlagsInteger
| AudioFormatFlagsFloat
| AudioFormatFlagsSigned
| AudioFormatFlagsComplex
| AudioFormatFlagsUnpack
| AnotherAudioFormatFlags Int
deriving (Show, Eq)
instance P.Enum AudioFormatFlags where
fromEnum AudioFormatFlagsInteger = 1
fromEnum AudioFormatFlagsFloat = 2
fromEnum AudioFormatFlagsSigned = 4
fromEnum AudioFormatFlagsComplex = 16
fromEnum AudioFormatFlagsUnpack = 32
fromEnum (AnotherAudioFormatFlags k) = k
toEnum 1 = AudioFormatFlagsInteger
toEnum 2 = AudioFormatFlagsFloat
toEnum 4 = AudioFormatFlagsSigned
toEnum 16 = AudioFormatFlagsComplex
toEnum 32 = AudioFormatFlagsUnpack
toEnum k = AnotherAudioFormatFlags k
instance P.Ord AudioFormatFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_audio_format_flags_get_type" c_gst_audio_format_flags_get_type ::
IO GType
instance BoxedFlags AudioFormatFlags where
boxedFlagsType _ = c_gst_audio_format_flags_get_type
instance IsGFlag AudioFormatFlags
data AudioFlags =
AudioFlagsNone
| AudioFlagsUnpositioned
| AnotherAudioFlags Int
deriving (Show, Eq)
instance P.Enum AudioFlags where
fromEnum AudioFlagsNone = 0
fromEnum AudioFlagsUnpositioned = 1
fromEnum (AnotherAudioFlags k) = k
toEnum 0 = AudioFlagsNone
toEnum 1 = AudioFlagsUnpositioned
toEnum k = AnotherAudioFlags k
instance P.Ord AudioFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_audio_flags_get_type" c_gst_audio_flags_get_type ::
IO GType
instance BoxedFlags AudioFlags where
boxedFlagsType _ = c_gst_audio_flags_get_type
instance IsGFlag AudioFlags
data AudioConverterFlags =
AudioConverterFlagsNone
| AudioConverterFlagsInWritable
| AudioConverterFlagsVariableRate
| AnotherAudioConverterFlags Int
deriving (Show, Eq)
instance P.Enum AudioConverterFlags where
fromEnum AudioConverterFlagsNone = 0
fromEnum AudioConverterFlagsInWritable = 1
fromEnum AudioConverterFlagsVariableRate = 2
fromEnum (AnotherAudioConverterFlags k) = k
toEnum 0 = AudioConverterFlagsNone
toEnum 1 = AudioConverterFlagsInWritable
toEnum 2 = AudioConverterFlagsVariableRate
toEnum k = AnotherAudioConverterFlags k
instance P.Ord AudioConverterFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_audio_converter_flags_get_type" c_gst_audio_converter_flags_get_type ::
IO GType
instance BoxedFlags AudioConverterFlags where
boxedFlagsType _ = c_gst_audio_converter_flags_get_type
instance IsGFlag AudioConverterFlags
data AudioChannelMixerFlags =
AudioChannelMixerFlagsNone
| AudioChannelMixerFlagsNonInterleavedIn
| AudioChannelMixerFlagsNonInterleavedOut
| AudioChannelMixerFlagsUnpositionedIn
| AudioChannelMixerFlagsUnpositionedOut
| AnotherAudioChannelMixerFlags Int
deriving (Show, Eq)
instance P.Enum AudioChannelMixerFlags where
fromEnum AudioChannelMixerFlagsNone = 0
fromEnum AudioChannelMixerFlagsNonInterleavedIn = 1
fromEnum AudioChannelMixerFlagsNonInterleavedOut = 2
fromEnum AudioChannelMixerFlagsUnpositionedIn = 4
fromEnum AudioChannelMixerFlagsUnpositionedOut = 8
fromEnum (AnotherAudioChannelMixerFlags k) = k
toEnum 0 = AudioChannelMixerFlagsNone
toEnum 1 = AudioChannelMixerFlagsNonInterleavedIn
toEnum 2 = AudioChannelMixerFlagsNonInterleavedOut
toEnum 4 = AudioChannelMixerFlagsUnpositionedIn
toEnum 8 = AudioChannelMixerFlagsUnpositionedOut
toEnum k = AnotherAudioChannelMixerFlags k
instance P.Ord AudioChannelMixerFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "gst_audio_channel_mixer_flags_get_type" c_gst_audio_channel_mixer_flags_get_type ::
IO GType
instance BoxedFlags AudioChannelMixerFlags where
boxedFlagsType _ = c_gst_audio_channel_mixer_flags_get_type
instance IsGFlag AudioChannelMixerFlags