{-# OPTIONS_HADDOCK ignore-exports#-}
{-# LANGUAGE DataKinds                  #-}
{-# LANGUAGE FlexibleInstances          #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE KindSignatures             #-}
{-# LANGUAGE PatternSynonyms            #-}
{-# LANGUAGE StandaloneDeriving         #-}
{-# LANGUAGE Strict                     #-}
{-# LANGUAGE TypeSynonymInstances       #-}
module Graphics.Vulkan.Types.Enum.Surface
       (VkSurfaceCounterBitmaskEXT(VkSurfaceCounterBitmaskEXT,
                                   VkSurfaceCounterFlagsEXT, VkSurfaceCounterFlagBitsEXT,
                                   VK_SURFACE_COUNTER_VBLANK_EXT),
        VkSurfaceCounterFlagsEXT, VkSurfaceCounterFlagBitsEXT,
        VkSurfaceTransformBitmaskKHR(VkSurfaceTransformBitmaskKHR,
                                     VkSurfaceTransformFlagsKHR, VkSurfaceTransformFlagBitsKHR,
                                     VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR,
                                     VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR,
                                     VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR,
                                     VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR,
                                     VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR,
                                     VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR,
                                     VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR,
                                     VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR,
                                     VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR),
        VkSurfaceTransformFlagsKHR, VkSurfaceTransformFlagBitsKHR)
       where
import Data.Bits                       (Bits, FiniteBits)
import Foreign.Storable                (Storable)
import GHC.Read                        (choose, expectP)
import Graphics.Vulkan.Marshal         (FlagBit, FlagMask, FlagType)
import Graphics.Vulkan.Types.BaseTypes (VkFlags (..))
import Text.ParserCombinators.ReadPrec (prec, step, (+++))
import Text.Read                       (Read (..), parens)
import Text.Read.Lex                   (Lexeme (..))

newtype VkSurfaceCounterBitmaskEXT (a ::
                                      FlagType) = VkSurfaceCounterBitmaskEXT VkFlags
                                                  deriving (VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
(VkSurfaceCounterBitmaskEXT a
 -> VkSurfaceCounterBitmaskEXT a -> Bool)
-> (VkSurfaceCounterBitmaskEXT a
    -> VkSurfaceCounterBitmaskEXT a -> Bool)
-> Eq (VkSurfaceCounterBitmaskEXT a)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
/= :: VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
$c/= :: forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
== :: VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
$c== :: forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
Eq, Eq (VkSurfaceCounterBitmaskEXT a)
Eq (VkSurfaceCounterBitmaskEXT a)
-> (VkSurfaceCounterBitmaskEXT a
    -> VkSurfaceCounterBitmaskEXT a -> Ordering)
-> (VkSurfaceCounterBitmaskEXT a
    -> VkSurfaceCounterBitmaskEXT a -> Bool)
-> (VkSurfaceCounterBitmaskEXT a
    -> VkSurfaceCounterBitmaskEXT a -> Bool)
-> (VkSurfaceCounterBitmaskEXT a
    -> VkSurfaceCounterBitmaskEXT a -> Bool)
-> (VkSurfaceCounterBitmaskEXT a
    -> VkSurfaceCounterBitmaskEXT a -> Bool)
-> (VkSurfaceCounterBitmaskEXT a
    -> VkSurfaceCounterBitmaskEXT a -> VkSurfaceCounterBitmaskEXT a)
-> (VkSurfaceCounterBitmaskEXT a
    -> VkSurfaceCounterBitmaskEXT a -> VkSurfaceCounterBitmaskEXT a)
-> Ord (VkSurfaceCounterBitmaskEXT a)
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Ordering
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> VkSurfaceCounterBitmaskEXT a
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
forall (a :: FlagType). Eq (VkSurfaceCounterBitmaskEXT a)
forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Ordering
forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> VkSurfaceCounterBitmaskEXT a
min :: VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> VkSurfaceCounterBitmaskEXT a
$cmin :: forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> VkSurfaceCounterBitmaskEXT a
max :: VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> VkSurfaceCounterBitmaskEXT a
$cmax :: forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> VkSurfaceCounterBitmaskEXT a
>= :: VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
$c>= :: forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
> :: VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
$c> :: forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
<= :: VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
$c<= :: forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
< :: VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
$c< :: forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Bool
compare :: VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Ordering
$ccompare :: forall (a :: FlagType).
VkSurfaceCounterBitmaskEXT a
-> VkSurfaceCounterBitmaskEXT a -> Ordering
Ord, Ptr (VkSurfaceCounterBitmaskEXT a)
-> IO (VkSurfaceCounterBitmaskEXT a)
Ptr (VkSurfaceCounterBitmaskEXT a)
-> Int -> IO (VkSurfaceCounterBitmaskEXT a)
Ptr (VkSurfaceCounterBitmaskEXT a)
-> Int -> VkSurfaceCounterBitmaskEXT a -> IO ()
Ptr (VkSurfaceCounterBitmaskEXT a)
-> VkSurfaceCounterBitmaskEXT a -> IO ()
VkSurfaceCounterBitmaskEXT a -> Int
(VkSurfaceCounterBitmaskEXT a -> Int)
-> (VkSurfaceCounterBitmaskEXT a -> Int)
-> (Ptr (VkSurfaceCounterBitmaskEXT a)
    -> Int -> IO (VkSurfaceCounterBitmaskEXT a))
-> (Ptr (VkSurfaceCounterBitmaskEXT a)
    -> Int -> VkSurfaceCounterBitmaskEXT a -> IO ())
-> (forall b. Ptr b -> Int -> IO (VkSurfaceCounterBitmaskEXT a))
-> (forall b.
    Ptr b -> Int -> VkSurfaceCounterBitmaskEXT a -> IO ())
-> (Ptr (VkSurfaceCounterBitmaskEXT a)
    -> IO (VkSurfaceCounterBitmaskEXT a))
-> (Ptr (VkSurfaceCounterBitmaskEXT a)
    -> VkSurfaceCounterBitmaskEXT a -> IO ())
-> Storable (VkSurfaceCounterBitmaskEXT a)
forall b. Ptr b -> Int -> IO (VkSurfaceCounterBitmaskEXT a)
forall b. Ptr b -> Int -> VkSurfaceCounterBitmaskEXT a -> IO ()
forall a.
(a -> Int)
-> (a -> Int)
-> (Ptr a -> Int -> IO a)
-> (Ptr a -> Int -> a -> IO ())
-> (forall b. Ptr b -> Int -> IO a)
-> (forall b. Ptr b -> Int -> a -> IO ())
-> (Ptr a -> IO a)
-> (Ptr a -> a -> IO ())
-> Storable a
forall (a :: FlagType).
Ptr (VkSurfaceCounterBitmaskEXT a)
-> IO (VkSurfaceCounterBitmaskEXT a)
forall (a :: FlagType).
Ptr (VkSurfaceCounterBitmaskEXT a)
-> Int -> IO (VkSurfaceCounterBitmaskEXT a)
forall (a :: FlagType).
Ptr (VkSurfaceCounterBitmaskEXT a)
-> Int -> VkSurfaceCounterBitmaskEXT a -> IO ()
forall (a :: FlagType).
Ptr (VkSurfaceCounterBitmaskEXT a)
-> VkSurfaceCounterBitmaskEXT a -> IO ()
forall (a :: FlagType). VkSurfaceCounterBitmaskEXT a -> Int
forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkSurfaceCounterBitmaskEXT a)
forall (a :: FlagType) b.
Ptr b -> Int -> VkSurfaceCounterBitmaskEXT a -> IO ()
poke :: Ptr (VkSurfaceCounterBitmaskEXT a)
-> VkSurfaceCounterBitmaskEXT a -> IO ()
$cpoke :: forall (a :: FlagType).
Ptr (VkSurfaceCounterBitmaskEXT a)
-> VkSurfaceCounterBitmaskEXT a -> IO ()
peek :: Ptr (VkSurfaceCounterBitmaskEXT a)
-> IO (VkSurfaceCounterBitmaskEXT a)
$cpeek :: forall (a :: FlagType).
Ptr (VkSurfaceCounterBitmaskEXT a)
-> IO (VkSurfaceCounterBitmaskEXT a)
pokeByteOff :: forall b. Ptr b -> Int -> VkSurfaceCounterBitmaskEXT a -> IO ()
$cpokeByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> VkSurfaceCounterBitmaskEXT a -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO (VkSurfaceCounterBitmaskEXT a)
$cpeekByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkSurfaceCounterBitmaskEXT a)
pokeElemOff :: Ptr (VkSurfaceCounterBitmaskEXT a)
-> Int -> VkSurfaceCounterBitmaskEXT a -> IO ()
$cpokeElemOff :: forall (a :: FlagType).
Ptr (VkSurfaceCounterBitmaskEXT a)
-> Int -> VkSurfaceCounterBitmaskEXT a -> IO ()
peekElemOff :: Ptr (VkSurfaceCounterBitmaskEXT a)
-> Int -> IO (VkSurfaceCounterBitmaskEXT a)
$cpeekElemOff :: forall (a :: FlagType).
Ptr (VkSurfaceCounterBitmaskEXT a)
-> Int -> IO (VkSurfaceCounterBitmaskEXT a)
alignment :: VkSurfaceCounterBitmaskEXT a -> Int
$calignment :: forall (a :: FlagType). VkSurfaceCounterBitmaskEXT a -> Int
sizeOf :: VkSurfaceCounterBitmaskEXT a -> Int
$csizeOf :: forall (a :: FlagType). VkSurfaceCounterBitmaskEXT a -> Int
Storable)

type VkSurfaceCounterFlagsEXT = VkSurfaceCounterBitmaskEXT FlagMask

type VkSurfaceCounterFlagBitsEXT =
     VkSurfaceCounterBitmaskEXT FlagBit

pattern VkSurfaceCounterFlagBitsEXT ::
        VkFlags -> VkSurfaceCounterBitmaskEXT FlagBit

pattern $bVkSurfaceCounterFlagBitsEXT :: VkFlags -> VkSurfaceCounterBitmaskEXT FlagBit
$mVkSurfaceCounterFlagBitsEXT :: forall {r}.
VkSurfaceCounterBitmaskEXT FlagBit
-> (VkFlags -> r) -> (Void# -> r) -> r
VkSurfaceCounterFlagBitsEXT n =
        VkSurfaceCounterBitmaskEXT n

pattern VkSurfaceCounterFlagsEXT ::
        VkFlags -> VkSurfaceCounterBitmaskEXT FlagMask

pattern $bVkSurfaceCounterFlagsEXT :: VkFlags -> VkSurfaceCounterBitmaskEXT FlagMask
$mVkSurfaceCounterFlagsEXT :: forall {r}.
VkSurfaceCounterBitmaskEXT FlagMask
-> (VkFlags -> r) -> (Void# -> r) -> r
VkSurfaceCounterFlagsEXT n = VkSurfaceCounterBitmaskEXT n

deriving instance Bits (VkSurfaceCounterBitmaskEXT FlagMask)

deriving instance FiniteBits (VkSurfaceCounterBitmaskEXT FlagMask)

instance Show (VkSurfaceCounterBitmaskEXT a) where
    showsPrec :: Int -> VkSurfaceCounterBitmaskEXT a -> ShowS
showsPrec Int
_ VkSurfaceCounterBitmaskEXT a
VK_SURFACE_COUNTER_VBLANK_EXT
      = String -> ShowS
showString String
"VK_SURFACE_COUNTER_VBLANK_EXT"
    showsPrec Int
p (VkSurfaceCounterBitmaskEXT VkFlags
x)
      = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
          (String -> ShowS
showString String
"VkSurfaceCounterBitmaskEXT " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> VkFlags -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
11 VkFlags
x)

instance Read (VkSurfaceCounterBitmaskEXT a) where
    readPrec :: ReadPrec (VkSurfaceCounterBitmaskEXT a)
readPrec
      = ReadPrec (VkSurfaceCounterBitmaskEXT a)
-> ReadPrec (VkSurfaceCounterBitmaskEXT a)
forall a. ReadPrec a -> ReadPrec a
parens
          ([(String, ReadPrec (VkSurfaceCounterBitmaskEXT a))]
-> ReadPrec (VkSurfaceCounterBitmaskEXT a)
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
             [(String
"VK_SURFACE_COUNTER_VBLANK_EXT",
               VkSurfaceCounterBitmaskEXT a
-> ReadPrec (VkSurfaceCounterBitmaskEXT a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSurfaceCounterBitmaskEXT a
forall (a :: FlagType). VkSurfaceCounterBitmaskEXT a
VK_SURFACE_COUNTER_VBLANK_EXT)]
             ReadPrec (VkSurfaceCounterBitmaskEXT a)
-> ReadPrec (VkSurfaceCounterBitmaskEXT a)
-> ReadPrec (VkSurfaceCounterBitmaskEXT a)
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
             Int
-> ReadPrec (VkSurfaceCounterBitmaskEXT a)
-> ReadPrec (VkSurfaceCounterBitmaskEXT a)
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
               (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkSurfaceCounterBitmaskEXT") ReadPrec ()
-> ReadPrec (VkSurfaceCounterBitmaskEXT a)
-> ReadPrec (VkSurfaceCounterBitmaskEXT a)
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
                  (VkFlags -> VkSurfaceCounterBitmaskEXT a
forall (a :: FlagType). VkFlags -> VkSurfaceCounterBitmaskEXT a
VkSurfaceCounterBitmaskEXT (VkFlags -> VkSurfaceCounterBitmaskEXT a)
-> ReadPrec VkFlags -> ReadPrec (VkSurfaceCounterBitmaskEXT a)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ReadPrec VkFlags -> ReadPrec VkFlags
forall a. ReadPrec a -> ReadPrec a
step ReadPrec VkFlags
forall a. Read a => ReadPrec a
readPrec)))

-- | bitpos = @0@
pattern VK_SURFACE_COUNTER_VBLANK_EXT ::
        VkSurfaceCounterBitmaskEXT a

pattern $bVK_SURFACE_COUNTER_VBLANK_EXT :: forall (a :: FlagType). VkSurfaceCounterBitmaskEXT a
$mVK_SURFACE_COUNTER_VBLANK_EXT :: forall {r} {a :: FlagType}.
VkSurfaceCounterBitmaskEXT a -> (Void# -> r) -> (Void# -> r) -> r
VK_SURFACE_COUNTER_VBLANK_EXT =
        VkSurfaceCounterBitmaskEXT 1

newtype VkSurfaceTransformBitmaskKHR (a ::
                                        FlagType) = VkSurfaceTransformBitmaskKHR VkFlags
                                                    deriving (VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
(VkSurfaceTransformBitmaskKHR a
 -> VkSurfaceTransformBitmaskKHR a -> Bool)
-> (VkSurfaceTransformBitmaskKHR a
    -> VkSurfaceTransformBitmaskKHR a -> Bool)
-> Eq (VkSurfaceTransformBitmaskKHR a)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
/= :: VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
$c/= :: forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
== :: VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
$c== :: forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
Eq, Eq (VkSurfaceTransformBitmaskKHR a)
Eq (VkSurfaceTransformBitmaskKHR a)
-> (VkSurfaceTransformBitmaskKHR a
    -> VkSurfaceTransformBitmaskKHR a -> Ordering)
-> (VkSurfaceTransformBitmaskKHR a
    -> VkSurfaceTransformBitmaskKHR a -> Bool)
-> (VkSurfaceTransformBitmaskKHR a
    -> VkSurfaceTransformBitmaskKHR a -> Bool)
-> (VkSurfaceTransformBitmaskKHR a
    -> VkSurfaceTransformBitmaskKHR a -> Bool)
-> (VkSurfaceTransformBitmaskKHR a
    -> VkSurfaceTransformBitmaskKHR a -> Bool)
-> (VkSurfaceTransformBitmaskKHR a
    -> VkSurfaceTransformBitmaskKHR a
    -> VkSurfaceTransformBitmaskKHR a)
-> (VkSurfaceTransformBitmaskKHR a
    -> VkSurfaceTransformBitmaskKHR a
    -> VkSurfaceTransformBitmaskKHR a)
-> Ord (VkSurfaceTransformBitmaskKHR a)
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Ordering
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> VkSurfaceTransformBitmaskKHR a
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
forall (a :: FlagType). Eq (VkSurfaceTransformBitmaskKHR a)
forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Ordering
forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> VkSurfaceTransformBitmaskKHR a
min :: VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> VkSurfaceTransformBitmaskKHR a
$cmin :: forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> VkSurfaceTransformBitmaskKHR a
max :: VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> VkSurfaceTransformBitmaskKHR a
$cmax :: forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> VkSurfaceTransformBitmaskKHR a
>= :: VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
$c>= :: forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
> :: VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
$c> :: forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
<= :: VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
$c<= :: forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
< :: VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
$c< :: forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Bool
compare :: VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Ordering
$ccompare :: forall (a :: FlagType).
VkSurfaceTransformBitmaskKHR a
-> VkSurfaceTransformBitmaskKHR a -> Ordering
Ord, Ptr (VkSurfaceTransformBitmaskKHR a)
-> IO (VkSurfaceTransformBitmaskKHR a)
Ptr (VkSurfaceTransformBitmaskKHR a)
-> Int -> IO (VkSurfaceTransformBitmaskKHR a)
Ptr (VkSurfaceTransformBitmaskKHR a)
-> Int -> VkSurfaceTransformBitmaskKHR a -> IO ()
Ptr (VkSurfaceTransformBitmaskKHR a)
-> VkSurfaceTransformBitmaskKHR a -> IO ()
VkSurfaceTransformBitmaskKHR a -> Int
(VkSurfaceTransformBitmaskKHR a -> Int)
-> (VkSurfaceTransformBitmaskKHR a -> Int)
-> (Ptr (VkSurfaceTransformBitmaskKHR a)
    -> Int -> IO (VkSurfaceTransformBitmaskKHR a))
-> (Ptr (VkSurfaceTransformBitmaskKHR a)
    -> Int -> VkSurfaceTransformBitmaskKHR a -> IO ())
-> (forall b. Ptr b -> Int -> IO (VkSurfaceTransformBitmaskKHR a))
-> (forall b.
    Ptr b -> Int -> VkSurfaceTransformBitmaskKHR a -> IO ())
-> (Ptr (VkSurfaceTransformBitmaskKHR a)
    -> IO (VkSurfaceTransformBitmaskKHR a))
-> (Ptr (VkSurfaceTransformBitmaskKHR a)
    -> VkSurfaceTransformBitmaskKHR a -> IO ())
-> Storable (VkSurfaceTransformBitmaskKHR a)
forall b. Ptr b -> Int -> IO (VkSurfaceTransformBitmaskKHR a)
forall b. Ptr b -> Int -> VkSurfaceTransformBitmaskKHR a -> IO ()
forall a.
(a -> Int)
-> (a -> Int)
-> (Ptr a -> Int -> IO a)
-> (Ptr a -> Int -> a -> IO ())
-> (forall b. Ptr b -> Int -> IO a)
-> (forall b. Ptr b -> Int -> a -> IO ())
-> (Ptr a -> IO a)
-> (Ptr a -> a -> IO ())
-> Storable a
forall (a :: FlagType).
Ptr (VkSurfaceTransformBitmaskKHR a)
-> IO (VkSurfaceTransformBitmaskKHR a)
forall (a :: FlagType).
Ptr (VkSurfaceTransformBitmaskKHR a)
-> Int -> IO (VkSurfaceTransformBitmaskKHR a)
forall (a :: FlagType).
Ptr (VkSurfaceTransformBitmaskKHR a)
-> Int -> VkSurfaceTransformBitmaskKHR a -> IO ()
forall (a :: FlagType).
Ptr (VkSurfaceTransformBitmaskKHR a)
-> VkSurfaceTransformBitmaskKHR a -> IO ()
forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a -> Int
forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkSurfaceTransformBitmaskKHR a)
forall (a :: FlagType) b.
Ptr b -> Int -> VkSurfaceTransformBitmaskKHR a -> IO ()
poke :: Ptr (VkSurfaceTransformBitmaskKHR a)
-> VkSurfaceTransformBitmaskKHR a -> IO ()
$cpoke :: forall (a :: FlagType).
Ptr (VkSurfaceTransformBitmaskKHR a)
-> VkSurfaceTransformBitmaskKHR a -> IO ()
peek :: Ptr (VkSurfaceTransformBitmaskKHR a)
-> IO (VkSurfaceTransformBitmaskKHR a)
$cpeek :: forall (a :: FlagType).
Ptr (VkSurfaceTransformBitmaskKHR a)
-> IO (VkSurfaceTransformBitmaskKHR a)
pokeByteOff :: forall b. Ptr b -> Int -> VkSurfaceTransformBitmaskKHR a -> IO ()
$cpokeByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> VkSurfaceTransformBitmaskKHR a -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO (VkSurfaceTransformBitmaskKHR a)
$cpeekByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkSurfaceTransformBitmaskKHR a)
pokeElemOff :: Ptr (VkSurfaceTransformBitmaskKHR a)
-> Int -> VkSurfaceTransformBitmaskKHR a -> IO ()
$cpokeElemOff :: forall (a :: FlagType).
Ptr (VkSurfaceTransformBitmaskKHR a)
-> Int -> VkSurfaceTransformBitmaskKHR a -> IO ()
peekElemOff :: Ptr (VkSurfaceTransformBitmaskKHR a)
-> Int -> IO (VkSurfaceTransformBitmaskKHR a)
$cpeekElemOff :: forall (a :: FlagType).
Ptr (VkSurfaceTransformBitmaskKHR a)
-> Int -> IO (VkSurfaceTransformBitmaskKHR a)
alignment :: VkSurfaceTransformBitmaskKHR a -> Int
$calignment :: forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a -> Int
sizeOf :: VkSurfaceTransformBitmaskKHR a -> Int
$csizeOf :: forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a -> Int
Storable)

type VkSurfaceTransformFlagsKHR =
     VkSurfaceTransformBitmaskKHR FlagMask

type VkSurfaceTransformFlagBitsKHR =
     VkSurfaceTransformBitmaskKHR FlagBit

pattern VkSurfaceTransformFlagBitsKHR ::
        VkFlags -> VkSurfaceTransformBitmaskKHR FlagBit

pattern $bVkSurfaceTransformFlagBitsKHR :: VkFlags -> VkSurfaceTransformBitmaskKHR FlagBit
$mVkSurfaceTransformFlagBitsKHR :: forall {r}.
VkSurfaceTransformBitmaskKHR FlagBit
-> (VkFlags -> r) -> (Void# -> r) -> r
VkSurfaceTransformFlagBitsKHR n =
        VkSurfaceTransformBitmaskKHR n

pattern VkSurfaceTransformFlagsKHR ::
        VkFlags -> VkSurfaceTransformBitmaskKHR FlagMask

pattern $bVkSurfaceTransformFlagsKHR :: VkFlags -> VkSurfaceTransformBitmaskKHR FlagMask
$mVkSurfaceTransformFlagsKHR :: forall {r}.
VkSurfaceTransformBitmaskKHR FlagMask
-> (VkFlags -> r) -> (Void# -> r) -> r
VkSurfaceTransformFlagsKHR n =
        VkSurfaceTransformBitmaskKHR n

deriving instance Bits (VkSurfaceTransformBitmaskKHR FlagMask)

deriving instance
         FiniteBits (VkSurfaceTransformBitmaskKHR FlagMask)

instance Show (VkSurfaceTransformBitmaskKHR a) where
    showsPrec :: Int -> VkSurfaceTransformBitmaskKHR a -> ShowS
showsPrec Int
_ VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR
      = String -> ShowS
showString String
"VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR"
    showsPrec Int
_ VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR
      = String -> ShowS
showString String
"VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR"
    showsPrec Int
_ VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR
      = String -> ShowS
showString String
"VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR"
    showsPrec Int
_ VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR
      = String -> ShowS
showString String
"VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR"
    showsPrec Int
_ VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR
      = String -> ShowS
showString String
"VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR"
    showsPrec Int
_
      VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR
      = String -> ShowS
showString
          String
"VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR"
    showsPrec Int
_
      VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR
      = String -> ShowS
showString
          String
"VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR"
    showsPrec Int
_
      VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR
      = String -> ShowS
showString
          String
"VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR"
    showsPrec Int
_ VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR
      = String -> ShowS
showString String
"VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR"
    showsPrec Int
p (VkSurfaceTransformBitmaskKHR VkFlags
x)
      = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
          (String -> ShowS
showString String
"VkSurfaceTransformBitmaskKHR " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> VkFlags -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
11 VkFlags
x)

instance Read (VkSurfaceTransformBitmaskKHR a) where
    readPrec :: ReadPrec (VkSurfaceTransformBitmaskKHR a)
readPrec
      = ReadPrec (VkSurfaceTransformBitmaskKHR a)
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall a. ReadPrec a -> ReadPrec a
parens
          ([(String, ReadPrec (VkSurfaceTransformBitmaskKHR a))]
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
             [(String
"VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR",
               VkSurfaceTransformBitmaskKHR a
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSurfaceTransformBitmaskKHR a
forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR),
              (String
"VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR",
               VkSurfaceTransformBitmaskKHR a
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSurfaceTransformBitmaskKHR a
forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR),
              (String
"VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR",
               VkSurfaceTransformBitmaskKHR a
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSurfaceTransformBitmaskKHR a
forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR),
              (String
"VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR",
               VkSurfaceTransformBitmaskKHR a
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSurfaceTransformBitmaskKHR a
forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR),
              (String
"VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR",
               VkSurfaceTransformBitmaskKHR a
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSurfaceTransformBitmaskKHR a
forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR),
              (String
"VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR",
               VkSurfaceTransformBitmaskKHR a
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSurfaceTransformBitmaskKHR a
forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR),
              (String
"VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR",
               VkSurfaceTransformBitmaskKHR a
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSurfaceTransformBitmaskKHR a
forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR),
              (String
"VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR",
               VkSurfaceTransformBitmaskKHR a
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSurfaceTransformBitmaskKHR a
forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR),
              (String
"VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR",
               VkSurfaceTransformBitmaskKHR a
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSurfaceTransformBitmaskKHR a
forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR)]
             ReadPrec (VkSurfaceTransformBitmaskKHR a)
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
             Int
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
               (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkSurfaceTransformBitmaskKHR") ReadPrec ()
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
-> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
                  (VkFlags -> VkSurfaceTransformBitmaskKHR a
forall (a :: FlagType). VkFlags -> VkSurfaceTransformBitmaskKHR a
VkSurfaceTransformBitmaskKHR (VkFlags -> VkSurfaceTransformBitmaskKHR a)
-> ReadPrec VkFlags -> ReadPrec (VkSurfaceTransformBitmaskKHR a)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ReadPrec VkFlags -> ReadPrec VkFlags
forall a. ReadPrec a -> ReadPrec a
step ReadPrec VkFlags
forall a. Read a => ReadPrec a
readPrec)))

-- | bitpos = @0@
pattern VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR ::
        VkSurfaceTransformBitmaskKHR a

pattern $bVK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR :: forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
$mVK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR :: forall {r} {a :: FlagType}.
VkSurfaceTransformBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR =
        VkSurfaceTransformBitmaskKHR 1

-- | bitpos = @1@
pattern VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR ::
        VkSurfaceTransformBitmaskKHR a

pattern $bVK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR :: forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
$mVK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR :: forall {r} {a :: FlagType}.
VkSurfaceTransformBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR =
        VkSurfaceTransformBitmaskKHR 2

-- | bitpos = @2@
pattern VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR ::
        VkSurfaceTransformBitmaskKHR a

pattern $bVK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR :: forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
$mVK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR :: forall {r} {a :: FlagType}.
VkSurfaceTransformBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR =
        VkSurfaceTransformBitmaskKHR 4

-- | bitpos = @3@
pattern VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR ::
        VkSurfaceTransformBitmaskKHR a

pattern $bVK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR :: forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
$mVK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR :: forall {r} {a :: FlagType}.
VkSurfaceTransformBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR =
        VkSurfaceTransformBitmaskKHR 8

-- | bitpos = @4@
pattern VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR ::
        VkSurfaceTransformBitmaskKHR a

pattern $bVK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR :: forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
$mVK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR :: forall {r} {a :: FlagType}.
VkSurfaceTransformBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR =
        VkSurfaceTransformBitmaskKHR 16

-- | bitpos = @5@
pattern VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR ::
        VkSurfaceTransformBitmaskKHR a

pattern $bVK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR :: forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
$mVK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR :: forall {r} {a :: FlagType}.
VkSurfaceTransformBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR =
        VkSurfaceTransformBitmaskKHR 32

-- | bitpos = @6@
pattern VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR
        :: VkSurfaceTransformBitmaskKHR a

pattern $bVK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR :: forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
$mVK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR :: forall {r} {a :: FlagType}.
VkSurfaceTransformBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR =
        VkSurfaceTransformBitmaskKHR 64

-- | bitpos = @7@
pattern VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR
        :: VkSurfaceTransformBitmaskKHR a

pattern $bVK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR :: forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
$mVK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR :: forall {r} {a :: FlagType}.
VkSurfaceTransformBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR =
        VkSurfaceTransformBitmaskKHR 128

-- | bitpos = @8@
pattern VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR ::
        VkSurfaceTransformBitmaskKHR a

pattern $bVK_SURFACE_TRANSFORM_INHERIT_BIT_KHR :: forall (a :: FlagType). VkSurfaceTransformBitmaskKHR a
$mVK_SURFACE_TRANSFORM_INHERIT_BIT_KHR :: forall {r} {a :: FlagType}.
VkSurfaceTransformBitmaskKHR a -> (Void# -> r) -> (Void# -> r) -> r
VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR =
        VkSurfaceTransformBitmaskKHR 256