{-# 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.Display
(VkDisplayEventTypeEXT(VkDisplayEventTypeEXT,
VK_DISPLAY_EVENT_TYPE_FIRST_PIXEL_OUT_EXT),
VkDisplayPlaneAlphaBitmaskKHR(VkDisplayPlaneAlphaBitmaskKHR,
VkDisplayPlaneAlphaFlagsKHR, VkDisplayPlaneAlphaFlagBitsKHR,
VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR,
VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR,
VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR,
VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR),
VkDisplayPlaneAlphaFlagsKHR, VkDisplayPlaneAlphaFlagBitsKHR,
VkDisplayPowerStateEXT(VkDisplayPowerStateEXT,
VK_DISPLAY_POWER_STATE_OFF_EXT, VK_DISPLAY_POWER_STATE_SUSPEND_EXT,
VK_DISPLAY_POWER_STATE_ON_EXT))
where
import Data.Bits (Bits, FiniteBits)
import Foreign.Storable (Storable)
import GHC.Read (choose, expectP)
import Graphics.Vulkan.Marshal (FlagBit, FlagMask, FlagType, Int32)
import Graphics.Vulkan.Types.BaseTypes (VkFlags (..))
import Text.ParserCombinators.ReadPrec (prec, step, (+++))
import Text.Read (Read (..), parens)
import Text.Read.Lex (Lexeme (..))
newtype VkDisplayEventTypeEXT = VkDisplayEventTypeEXT Int32
deriving (Eq, Ord, Enum, Storable)
instance Show VkDisplayEventTypeEXT where
showsPrec _ VK_DISPLAY_EVENT_TYPE_FIRST_PIXEL_OUT_EXT
= showString "VK_DISPLAY_EVENT_TYPE_FIRST_PIXEL_OUT_EXT"
showsPrec p (VkDisplayEventTypeEXT x)
= showParen (p >= 11)
(showString "VkDisplayEventTypeEXT " . showsPrec 11 x)
instance Read VkDisplayEventTypeEXT where
readPrec
= parens
(choose
[("VK_DISPLAY_EVENT_TYPE_FIRST_PIXEL_OUT_EXT",
pure VK_DISPLAY_EVENT_TYPE_FIRST_PIXEL_OUT_EXT)]
+++
prec 10
(expectP (Ident "VkDisplayEventTypeEXT") >>
(VkDisplayEventTypeEXT <$> step readPrec)))
pattern VK_DISPLAY_EVENT_TYPE_FIRST_PIXEL_OUT_EXT ::
VkDisplayEventTypeEXT
pattern VK_DISPLAY_EVENT_TYPE_FIRST_PIXEL_OUT_EXT =
VkDisplayEventTypeEXT 0
newtype VkDisplayPlaneAlphaBitmaskKHR (a ::
FlagType) = VkDisplayPlaneAlphaBitmaskKHR VkFlags
deriving (Eq, Ord, Storable)
type VkDisplayPlaneAlphaFlagsKHR =
VkDisplayPlaneAlphaBitmaskKHR FlagMask
type VkDisplayPlaneAlphaFlagBitsKHR =
VkDisplayPlaneAlphaBitmaskKHR FlagBit
pattern VkDisplayPlaneAlphaFlagBitsKHR ::
VkFlags -> VkDisplayPlaneAlphaBitmaskKHR FlagBit
pattern VkDisplayPlaneAlphaFlagBitsKHR n =
VkDisplayPlaneAlphaBitmaskKHR n
pattern VkDisplayPlaneAlphaFlagsKHR ::
VkFlags -> VkDisplayPlaneAlphaBitmaskKHR FlagMask
pattern VkDisplayPlaneAlphaFlagsKHR n =
VkDisplayPlaneAlphaBitmaskKHR n
deriving instance Bits (VkDisplayPlaneAlphaBitmaskKHR FlagMask)
deriving instance
FiniteBits (VkDisplayPlaneAlphaBitmaskKHR FlagMask)
instance Show (VkDisplayPlaneAlphaBitmaskKHR a) where
showsPrec _ VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR
= showString "VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR"
showsPrec _ VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR
= showString "VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR"
showsPrec _ VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR
= showString "VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR"
showsPrec _ VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR
= showString
"VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR"
showsPrec p (VkDisplayPlaneAlphaBitmaskKHR x)
= showParen (p >= 11)
(showString "VkDisplayPlaneAlphaBitmaskKHR " . showsPrec 11 x)
instance Read (VkDisplayPlaneAlphaBitmaskKHR a) where
readPrec
= parens
(choose
[("VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR",
pure VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR),
("VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR",
pure VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR),
("VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR",
pure VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR),
("VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR",
pure VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR)]
+++
prec 10
(expectP (Ident "VkDisplayPlaneAlphaBitmaskKHR") >>
(VkDisplayPlaneAlphaBitmaskKHR <$> step readPrec)))
pattern VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR ::
VkDisplayPlaneAlphaBitmaskKHR a
pattern VK_DISPLAY_PLANE_ALPHA_OPAQUE_BIT_KHR =
VkDisplayPlaneAlphaBitmaskKHR 1
pattern VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR ::
VkDisplayPlaneAlphaBitmaskKHR a
pattern VK_DISPLAY_PLANE_ALPHA_GLOBAL_BIT_KHR =
VkDisplayPlaneAlphaBitmaskKHR 2
pattern VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR ::
VkDisplayPlaneAlphaBitmaskKHR a
pattern VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_BIT_KHR =
VkDisplayPlaneAlphaBitmaskKHR 4
pattern VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR ::
VkDisplayPlaneAlphaBitmaskKHR a
pattern VK_DISPLAY_PLANE_ALPHA_PER_PIXEL_PREMULTIPLIED_BIT_KHR =
VkDisplayPlaneAlphaBitmaskKHR 8
newtype VkDisplayPowerStateEXT = VkDisplayPowerStateEXT Int32
deriving (Eq, Ord, Enum, Storable)
instance Show VkDisplayPowerStateEXT where
showsPrec _ VK_DISPLAY_POWER_STATE_OFF_EXT
= showString "VK_DISPLAY_POWER_STATE_OFF_EXT"
showsPrec _ VK_DISPLAY_POWER_STATE_SUSPEND_EXT
= showString "VK_DISPLAY_POWER_STATE_SUSPEND_EXT"
showsPrec _ VK_DISPLAY_POWER_STATE_ON_EXT
= showString "VK_DISPLAY_POWER_STATE_ON_EXT"
showsPrec p (VkDisplayPowerStateEXT x)
= showParen (p >= 11)
(showString "VkDisplayPowerStateEXT " . showsPrec 11 x)
instance Read VkDisplayPowerStateEXT where
readPrec
= parens
(choose
[("VK_DISPLAY_POWER_STATE_OFF_EXT",
pure VK_DISPLAY_POWER_STATE_OFF_EXT),
("VK_DISPLAY_POWER_STATE_SUSPEND_EXT",
pure VK_DISPLAY_POWER_STATE_SUSPEND_EXT),
("VK_DISPLAY_POWER_STATE_ON_EXT",
pure VK_DISPLAY_POWER_STATE_ON_EXT)]
+++
prec 10
(expectP (Ident "VkDisplayPowerStateEXT") >>
(VkDisplayPowerStateEXT <$> step readPrec)))
pattern VK_DISPLAY_POWER_STATE_OFF_EXT :: VkDisplayPowerStateEXT
pattern VK_DISPLAY_POWER_STATE_OFF_EXT = VkDisplayPowerStateEXT 0
pattern VK_DISPLAY_POWER_STATE_SUSPEND_EXT ::
VkDisplayPowerStateEXT
pattern VK_DISPLAY_POWER_STATE_SUSPEND_EXT =
VkDisplayPowerStateEXT 1
pattern VK_DISPLAY_POWER_STATE_ON_EXT :: VkDisplayPowerStateEXT
pattern VK_DISPLAY_POWER_STATE_ON_EXT = VkDisplayPowerStateEXT 2