#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GstBase.Flags
(
BaseParseFrameFlags(..) ,
BaseSrcFlags(..) ,
CollectPadsStateFlags(..) ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
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 Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
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 GHC.Records as R
data CollectPadsStateFlags =
CollectPadsStateFlagsEos
| CollectPadsStateFlagsFlushing
| CollectPadsStateFlagsNewSegment
| CollectPadsStateFlagsWaiting
| CollectPadsStateFlagsLocked
| AnotherCollectPadsStateFlags Int
deriving (Int -> CollectPadsStateFlags -> ShowS
[CollectPadsStateFlags] -> ShowS
CollectPadsStateFlags -> String
(Int -> CollectPadsStateFlags -> ShowS)
-> (CollectPadsStateFlags -> String)
-> ([CollectPadsStateFlags] -> ShowS)
-> Show CollectPadsStateFlags
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CollectPadsStateFlags] -> ShowS
$cshowList :: [CollectPadsStateFlags] -> ShowS
show :: CollectPadsStateFlags -> String
$cshow :: CollectPadsStateFlags -> String
showsPrec :: Int -> CollectPadsStateFlags -> ShowS
$cshowsPrec :: Int -> CollectPadsStateFlags -> ShowS
Show, CollectPadsStateFlags -> CollectPadsStateFlags -> Bool
(CollectPadsStateFlags -> CollectPadsStateFlags -> Bool)
-> (CollectPadsStateFlags -> CollectPadsStateFlags -> Bool)
-> Eq CollectPadsStateFlags
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectPadsStateFlags -> CollectPadsStateFlags -> Bool
$c/= :: CollectPadsStateFlags -> CollectPadsStateFlags -> Bool
== :: CollectPadsStateFlags -> CollectPadsStateFlags -> Bool
$c== :: CollectPadsStateFlags -> CollectPadsStateFlags -> Bool
Eq)
instance P.Enum CollectPadsStateFlags where
fromEnum :: CollectPadsStateFlags -> Int
fromEnum CollectPadsStateFlags
CollectPadsStateFlagsEos = Int
1
fromEnum CollectPadsStateFlags
CollectPadsStateFlagsFlushing = Int
2
fromEnum CollectPadsStateFlags
CollectPadsStateFlagsNewSegment = Int
4
fromEnum CollectPadsStateFlags
CollectPadsStateFlagsWaiting = Int
8
fromEnum CollectPadsStateFlags
CollectPadsStateFlagsLocked = Int
16
fromEnum (AnotherCollectPadsStateFlags Int
k) = Int
k
toEnum :: Int -> CollectPadsStateFlags
toEnum Int
1 = CollectPadsStateFlags
CollectPadsStateFlagsEos
toEnum Int
2 = CollectPadsStateFlags
CollectPadsStateFlagsFlushing
toEnum Int
4 = CollectPadsStateFlags
CollectPadsStateFlagsNewSegment
toEnum Int
8 = CollectPadsStateFlags
CollectPadsStateFlagsWaiting
toEnum Int
16 = CollectPadsStateFlags
CollectPadsStateFlagsLocked
toEnum Int
k = Int -> CollectPadsStateFlags
AnotherCollectPadsStateFlags Int
k
instance P.Ord CollectPadsStateFlags where
compare :: CollectPadsStateFlags -> CollectPadsStateFlags -> Ordering
compare CollectPadsStateFlags
a CollectPadsStateFlags
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (CollectPadsStateFlags -> Int
forall a. Enum a => a -> Int
P.fromEnum CollectPadsStateFlags
a) (CollectPadsStateFlags -> Int
forall a. Enum a => a -> Int
P.fromEnum CollectPadsStateFlags
b)
instance IsGFlag CollectPadsStateFlags
data BaseSrcFlags =
BaseSrcFlagsStarting
| BaseSrcFlagsStarted
| BaseSrcFlagsLast
| AnotherBaseSrcFlags Int
deriving (Int -> BaseSrcFlags -> ShowS
[BaseSrcFlags] -> ShowS
BaseSrcFlags -> String
(Int -> BaseSrcFlags -> ShowS)
-> (BaseSrcFlags -> String)
-> ([BaseSrcFlags] -> ShowS)
-> Show BaseSrcFlags
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BaseSrcFlags] -> ShowS
$cshowList :: [BaseSrcFlags] -> ShowS
show :: BaseSrcFlags -> String
$cshow :: BaseSrcFlags -> String
showsPrec :: Int -> BaseSrcFlags -> ShowS
$cshowsPrec :: Int -> BaseSrcFlags -> ShowS
Show, BaseSrcFlags -> BaseSrcFlags -> Bool
(BaseSrcFlags -> BaseSrcFlags -> Bool)
-> (BaseSrcFlags -> BaseSrcFlags -> Bool) -> Eq BaseSrcFlags
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BaseSrcFlags -> BaseSrcFlags -> Bool
$c/= :: BaseSrcFlags -> BaseSrcFlags -> Bool
== :: BaseSrcFlags -> BaseSrcFlags -> Bool
$c== :: BaseSrcFlags -> BaseSrcFlags -> Bool
Eq)
instance P.Enum BaseSrcFlags where
fromEnum :: BaseSrcFlags -> Int
fromEnum BaseSrcFlags
BaseSrcFlagsStarting = Int
16384
fromEnum BaseSrcFlags
BaseSrcFlagsStarted = Int
32768
fromEnum BaseSrcFlags
BaseSrcFlagsLast = Int
1048576
fromEnum (AnotherBaseSrcFlags Int
k) = Int
k
toEnum :: Int -> BaseSrcFlags
toEnum Int
16384 = BaseSrcFlags
BaseSrcFlagsStarting
toEnum Int
32768 = BaseSrcFlags
BaseSrcFlagsStarted
toEnum Int
1048576 = BaseSrcFlags
BaseSrcFlagsLast
toEnum Int
k = Int -> BaseSrcFlags
AnotherBaseSrcFlags Int
k
instance P.Ord BaseSrcFlags where
compare :: BaseSrcFlags -> BaseSrcFlags -> Ordering
compare BaseSrcFlags
a BaseSrcFlags
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (BaseSrcFlags -> Int
forall a. Enum a => a -> Int
P.fromEnum BaseSrcFlags
a) (BaseSrcFlags -> Int
forall a. Enum a => a -> Int
P.fromEnum BaseSrcFlags
b)
instance IsGFlag BaseSrcFlags
data BaseParseFrameFlags =
BaseParseFrameFlagsNone
| BaseParseFrameFlagsNewFrame
| BaseParseFrameFlagsNoFrame
| BaseParseFrameFlagsClip
| BaseParseFrameFlagsDrop
| BaseParseFrameFlagsQueue
| AnotherBaseParseFrameFlags Int
deriving (Int -> BaseParseFrameFlags -> ShowS
[BaseParseFrameFlags] -> ShowS
BaseParseFrameFlags -> String
(Int -> BaseParseFrameFlags -> ShowS)
-> (BaseParseFrameFlags -> String)
-> ([BaseParseFrameFlags] -> ShowS)
-> Show BaseParseFrameFlags
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BaseParseFrameFlags] -> ShowS
$cshowList :: [BaseParseFrameFlags] -> ShowS
show :: BaseParseFrameFlags -> String
$cshow :: BaseParseFrameFlags -> String
showsPrec :: Int -> BaseParseFrameFlags -> ShowS
$cshowsPrec :: Int -> BaseParseFrameFlags -> ShowS
Show, BaseParseFrameFlags -> BaseParseFrameFlags -> Bool
(BaseParseFrameFlags -> BaseParseFrameFlags -> Bool)
-> (BaseParseFrameFlags -> BaseParseFrameFlags -> Bool)
-> Eq BaseParseFrameFlags
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BaseParseFrameFlags -> BaseParseFrameFlags -> Bool
$c/= :: BaseParseFrameFlags -> BaseParseFrameFlags -> Bool
== :: BaseParseFrameFlags -> BaseParseFrameFlags -> Bool
$c== :: BaseParseFrameFlags -> BaseParseFrameFlags -> Bool
Eq)
instance P.Enum BaseParseFrameFlags where
fromEnum :: BaseParseFrameFlags -> Int
fromEnum BaseParseFrameFlags
BaseParseFrameFlagsNone = Int
0
fromEnum BaseParseFrameFlags
BaseParseFrameFlagsNewFrame = Int
1
fromEnum BaseParseFrameFlags
BaseParseFrameFlagsNoFrame = Int
2
fromEnum BaseParseFrameFlags
BaseParseFrameFlagsClip = Int
4
fromEnum BaseParseFrameFlags
BaseParseFrameFlagsDrop = Int
8
fromEnum BaseParseFrameFlags
BaseParseFrameFlagsQueue = Int
16
fromEnum (AnotherBaseParseFrameFlags Int
k) = Int
k
toEnum :: Int -> BaseParseFrameFlags
toEnum Int
0 = BaseParseFrameFlags
BaseParseFrameFlagsNone
toEnum Int
1 = BaseParseFrameFlags
BaseParseFrameFlagsNewFrame
toEnum Int
2 = BaseParseFrameFlags
BaseParseFrameFlagsNoFrame
toEnum Int
4 = BaseParseFrameFlags
BaseParseFrameFlagsClip
toEnum Int
8 = BaseParseFrameFlags
BaseParseFrameFlagsDrop
toEnum Int
16 = BaseParseFrameFlags
BaseParseFrameFlagsQueue
toEnum Int
k = Int -> BaseParseFrameFlags
AnotherBaseParseFrameFlags Int
k
instance P.Ord BaseParseFrameFlags where
compare :: BaseParseFrameFlags -> BaseParseFrameFlags -> Ordering
compare BaseParseFrameFlags
a BaseParseFrameFlags
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (BaseParseFrameFlags -> Int
forall a. Enum a => a -> Int
P.fromEnum BaseParseFrameFlags
a) (BaseParseFrameFlags -> Int
forall a. Enum a => a -> Int
P.fromEnum BaseParseFrameFlags
b)
instance IsGFlag BaseParseFrameFlags