Flags.hs


{- |
Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License    : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}

module GI.GstAudio.Flags
    ( 

-- * Exported types
    AudioFormatFlags(..)                    ,
    AudioFlags(..)                          ,


    ) where

import Prelude ()
import Data.GI.Base.ShortPrelude

import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map




-- Flags AudioFormatFlags

data AudioFormatFlags = 
      AudioFormatFlagsInteger
    | AudioFormatFlagsFloat
    | AudioFormatFlagsSigned
    | AudioFormatFlagsComplex
    | AudioFormatFlagsUnpack
    | AnotherAudioFormatFlags Int
    deriving (Show, Eq)

instance 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

foreign import ccall "gst_audio_format_flags_get_type" c_gst_audio_format_flags_get_type :: 
    IO GType

instance BoxedEnum AudioFormatFlags where
    boxedEnumType _ = c_gst_audio_format_flags_get_type

instance IsGFlag AudioFormatFlags

-- Flags AudioFlags

data AudioFlags = 
      AudioFlagsNone
    | AudioFlagsUnpositioned
    | AnotherAudioFlags Int
    deriving (Show, Eq)

instance Enum AudioFlags where
    fromEnum AudioFlagsNone = 0
    fromEnum AudioFlagsUnpositioned = 1
    fromEnum (AnotherAudioFlags k) = k

    toEnum 0 = AudioFlagsNone
    toEnum 1 = AudioFlagsUnpositioned
    toEnum k = AnotherAudioFlags k

foreign import ccall "gst_audio_flags_get_type" c_gst_audio_flags_get_type :: 
    IO GType

instance BoxedEnum AudioFlags where
    boxedEnumType _ = c_gst_audio_flags_get_type

instance IsGFlag AudioFlags