{-# 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 (Eq, Ord, Storable)
type VkSurfaceCounterFlagsEXT = VkSurfaceCounterBitmaskEXT FlagMask
type VkSurfaceCounterFlagBitsEXT =
VkSurfaceCounterBitmaskEXT FlagBit
pattern VkSurfaceCounterFlagBitsEXT ::
VkFlags -> VkSurfaceCounterBitmaskEXT FlagBit
pattern VkSurfaceCounterFlagBitsEXT n =
VkSurfaceCounterBitmaskEXT n
pattern VkSurfaceCounterFlagsEXT ::
VkFlags -> VkSurfaceCounterBitmaskEXT FlagMask
pattern VkSurfaceCounterFlagsEXT n = VkSurfaceCounterBitmaskEXT n
deriving instance Bits (VkSurfaceCounterBitmaskEXT FlagMask)
deriving instance FiniteBits (VkSurfaceCounterBitmaskEXT FlagMask)
instance Show (VkSurfaceCounterBitmaskEXT a) where
showsPrec _ VK_SURFACE_COUNTER_VBLANK_EXT
= showString "VK_SURFACE_COUNTER_VBLANK_EXT"
showsPrec p (VkSurfaceCounterBitmaskEXT x)
= showParen (p >= 11)
(showString "VkSurfaceCounterBitmaskEXT " . showsPrec 11 x)
instance Read (VkSurfaceCounterBitmaskEXT a) where
readPrec
= parens
(choose
[("VK_SURFACE_COUNTER_VBLANK_EXT",
pure VK_SURFACE_COUNTER_VBLANK_EXT)]
+++
prec 10
(expectP (Ident "VkSurfaceCounterBitmaskEXT") >>
(VkSurfaceCounterBitmaskEXT <$> step readPrec)))
pattern VK_SURFACE_COUNTER_VBLANK_EXT ::
VkSurfaceCounterBitmaskEXT a
pattern VK_SURFACE_COUNTER_VBLANK_EXT =
VkSurfaceCounterBitmaskEXT 1
newtype VkSurfaceTransformBitmaskKHR (a ::
FlagType) = VkSurfaceTransformBitmaskKHR VkFlags
deriving (Eq, Ord, Storable)
type VkSurfaceTransformFlagsKHR =
VkSurfaceTransformBitmaskKHR FlagMask
type VkSurfaceTransformFlagBitsKHR =
VkSurfaceTransformBitmaskKHR FlagBit
pattern VkSurfaceTransformFlagBitsKHR ::
VkFlags -> VkSurfaceTransformBitmaskKHR FlagBit
pattern VkSurfaceTransformFlagBitsKHR n =
VkSurfaceTransformBitmaskKHR n
pattern VkSurfaceTransformFlagsKHR ::
VkFlags -> VkSurfaceTransformBitmaskKHR FlagMask
pattern VkSurfaceTransformFlagsKHR n =
VkSurfaceTransformBitmaskKHR n
deriving instance Bits (VkSurfaceTransformBitmaskKHR FlagMask)
deriving instance
FiniteBits (VkSurfaceTransformBitmaskKHR FlagMask)
instance Show (VkSurfaceTransformBitmaskKHR a) where
showsPrec _ VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR
= showString "VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR"
showsPrec _ VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR
= showString "VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR"
showsPrec _ VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR
= showString "VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR"
showsPrec _ VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR
= showString "VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR"
showsPrec _ VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR
= showString "VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR"
showsPrec _
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR
= showString
"VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR"
showsPrec _
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR
= showString
"VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR"
showsPrec _
VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR
= showString
"VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR"
showsPrec _ VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR
= showString "VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR"
showsPrec p (VkSurfaceTransformBitmaskKHR x)
= showParen (p >= 11)
(showString "VkSurfaceTransformBitmaskKHR " . showsPrec 11 x)
instance Read (VkSurfaceTransformBitmaskKHR a) where
readPrec
= parens
(choose
[("VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR",
pure VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR),
("VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR",
pure VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR),
("VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR",
pure VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR),
("VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR",
pure VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR),
("VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR",
pure VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR),
("VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR",
pure VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR),
("VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR",
pure VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR),
("VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR",
pure VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR),
("VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR",
pure VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR)]
+++
prec 10
(expectP (Ident "VkSurfaceTransformBitmaskKHR") >>
(VkSurfaceTransformBitmaskKHR <$> step readPrec)))
pattern VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR ::
VkSurfaceTransformBitmaskKHR a
pattern VK_SURFACE_TRANSFORM_IDENTITY_BIT_KHR =
VkSurfaceTransformBitmaskKHR 1
pattern VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR ::
VkSurfaceTransformBitmaskKHR a
pattern VK_SURFACE_TRANSFORM_ROTATE_90_BIT_KHR =
VkSurfaceTransformBitmaskKHR 2
pattern VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR ::
VkSurfaceTransformBitmaskKHR a
pattern VK_SURFACE_TRANSFORM_ROTATE_180_BIT_KHR =
VkSurfaceTransformBitmaskKHR 4
pattern VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR ::
VkSurfaceTransformBitmaskKHR a
pattern VK_SURFACE_TRANSFORM_ROTATE_270_BIT_KHR =
VkSurfaceTransformBitmaskKHR 8
pattern VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR ::
VkSurfaceTransformBitmaskKHR a
pattern VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_BIT_KHR =
VkSurfaceTransformBitmaskKHR 16
pattern VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR ::
VkSurfaceTransformBitmaskKHR a
pattern VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_90_BIT_KHR =
VkSurfaceTransformBitmaskKHR 32
pattern VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR
:: VkSurfaceTransformBitmaskKHR a
pattern VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_180_BIT_KHR =
VkSurfaceTransformBitmaskKHR 64
pattern VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR
:: VkSurfaceTransformBitmaskKHR a
pattern VK_SURFACE_TRANSFORM_HORIZONTAL_MIRROR_ROTATE_270_BIT_KHR =
VkSurfaceTransformBitmaskKHR 128
pattern VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR ::
VkSurfaceTransformBitmaskKHR a
pattern VK_SURFACE_TRANSFORM_INHERIT_BIT_KHR =
VkSurfaceTransformBitmaskKHR 256