{-# OPTIONS_HADDOCK ignore-exports#-}
{-# LANGUAGE DataKinds                  #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE PatternSynonyms            #-}
{-# LANGUAGE Strict                     #-}
module Graphics.Vulkan.Types.Enum.DynamicState
       (VkDynamicState(VkDynamicState, VK_DYNAMIC_STATE_VIEWPORT,
                       VK_DYNAMIC_STATE_SCISSOR, VK_DYNAMIC_STATE_LINE_WIDTH,
                       VK_DYNAMIC_STATE_DEPTH_BIAS, VK_DYNAMIC_STATE_BLEND_CONSTANTS,
                       VK_DYNAMIC_STATE_DEPTH_BOUNDS,
                       VK_DYNAMIC_STATE_STENCIL_COMPARE_MASK,
                       VK_DYNAMIC_STATE_STENCIL_WRITE_MASK,
                       VK_DYNAMIC_STATE_STENCIL_REFERENCE))
       where
import Foreign.Storable                (Storable)
import GHC.Read                        (choose, expectP)
import Graphics.Vulkan.Marshal         (Int32)
import Text.ParserCombinators.ReadPrec (prec, step, (+++))
import Text.Read                       (Read (..), parens)
import Text.Read.Lex                   (Lexeme (..))

-- | type = @enum@
--
--   <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkDynamicState VkDynamicState registry at www.khronos.org>
newtype VkDynamicState = VkDynamicState Int32
                         deriving (VkDynamicState -> VkDynamicState -> Bool
(VkDynamicState -> VkDynamicState -> Bool)
-> (VkDynamicState -> VkDynamicState -> Bool) -> Eq VkDynamicState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VkDynamicState -> VkDynamicState -> Bool
$c/= :: VkDynamicState -> VkDynamicState -> Bool
== :: VkDynamicState -> VkDynamicState -> Bool
$c== :: VkDynamicState -> VkDynamicState -> Bool
Eq, Eq VkDynamicState
Eq VkDynamicState
-> (VkDynamicState -> VkDynamicState -> Ordering)
-> (VkDynamicState -> VkDynamicState -> Bool)
-> (VkDynamicState -> VkDynamicState -> Bool)
-> (VkDynamicState -> VkDynamicState -> Bool)
-> (VkDynamicState -> VkDynamicState -> Bool)
-> (VkDynamicState -> VkDynamicState -> VkDynamicState)
-> (VkDynamicState -> VkDynamicState -> VkDynamicState)
-> Ord VkDynamicState
VkDynamicState -> VkDynamicState -> Bool
VkDynamicState -> VkDynamicState -> Ordering
VkDynamicState -> VkDynamicState -> VkDynamicState
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
min :: VkDynamicState -> VkDynamicState -> VkDynamicState
$cmin :: VkDynamicState -> VkDynamicState -> VkDynamicState
max :: VkDynamicState -> VkDynamicState -> VkDynamicState
$cmax :: VkDynamicState -> VkDynamicState -> VkDynamicState
>= :: VkDynamicState -> VkDynamicState -> Bool
$c>= :: VkDynamicState -> VkDynamicState -> Bool
> :: VkDynamicState -> VkDynamicState -> Bool
$c> :: VkDynamicState -> VkDynamicState -> Bool
<= :: VkDynamicState -> VkDynamicState -> Bool
$c<= :: VkDynamicState -> VkDynamicState -> Bool
< :: VkDynamicState -> VkDynamicState -> Bool
$c< :: VkDynamicState -> VkDynamicState -> Bool
compare :: VkDynamicState -> VkDynamicState -> Ordering
$ccompare :: VkDynamicState -> VkDynamicState -> Ordering
Ord, Int -> VkDynamicState
VkDynamicState -> Int
VkDynamicState -> [VkDynamicState]
VkDynamicState -> VkDynamicState
VkDynamicState -> VkDynamicState -> [VkDynamicState]
VkDynamicState
-> VkDynamicState -> VkDynamicState -> [VkDynamicState]
(VkDynamicState -> VkDynamicState)
-> (VkDynamicState -> VkDynamicState)
-> (Int -> VkDynamicState)
-> (VkDynamicState -> Int)
-> (VkDynamicState -> [VkDynamicState])
-> (VkDynamicState -> VkDynamicState -> [VkDynamicState])
-> (VkDynamicState -> VkDynamicState -> [VkDynamicState])
-> (VkDynamicState
    -> VkDynamicState -> VkDynamicState -> [VkDynamicState])
-> Enum VkDynamicState
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: VkDynamicState
-> VkDynamicState -> VkDynamicState -> [VkDynamicState]
$cenumFromThenTo :: VkDynamicState
-> VkDynamicState -> VkDynamicState -> [VkDynamicState]
enumFromTo :: VkDynamicState -> VkDynamicState -> [VkDynamicState]
$cenumFromTo :: VkDynamicState -> VkDynamicState -> [VkDynamicState]
enumFromThen :: VkDynamicState -> VkDynamicState -> [VkDynamicState]
$cenumFromThen :: VkDynamicState -> VkDynamicState -> [VkDynamicState]
enumFrom :: VkDynamicState -> [VkDynamicState]
$cenumFrom :: VkDynamicState -> [VkDynamicState]
fromEnum :: VkDynamicState -> Int
$cfromEnum :: VkDynamicState -> Int
toEnum :: Int -> VkDynamicState
$ctoEnum :: Int -> VkDynamicState
pred :: VkDynamicState -> VkDynamicState
$cpred :: VkDynamicState -> VkDynamicState
succ :: VkDynamicState -> VkDynamicState
$csucc :: VkDynamicState -> VkDynamicState
Enum, Ptr VkDynamicState -> IO VkDynamicState
Ptr VkDynamicState -> Int -> IO VkDynamicState
Ptr VkDynamicState -> Int -> VkDynamicState -> IO ()
Ptr VkDynamicState -> VkDynamicState -> IO ()
VkDynamicState -> Int
(VkDynamicState -> Int)
-> (VkDynamicState -> Int)
-> (Ptr VkDynamicState -> Int -> IO VkDynamicState)
-> (Ptr VkDynamicState -> Int -> VkDynamicState -> IO ())
-> (forall b. Ptr b -> Int -> IO VkDynamicState)
-> (forall b. Ptr b -> Int -> VkDynamicState -> IO ())
-> (Ptr VkDynamicState -> IO VkDynamicState)
-> (Ptr VkDynamicState -> VkDynamicState -> IO ())
-> Storable VkDynamicState
forall b. Ptr b -> Int -> IO VkDynamicState
forall b. Ptr b -> Int -> VkDynamicState -> 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
poke :: Ptr VkDynamicState -> VkDynamicState -> IO ()
$cpoke :: Ptr VkDynamicState -> VkDynamicState -> IO ()
peek :: Ptr VkDynamicState -> IO VkDynamicState
$cpeek :: Ptr VkDynamicState -> IO VkDynamicState
pokeByteOff :: forall b. Ptr b -> Int -> VkDynamicState -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> VkDynamicState -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO VkDynamicState
$cpeekByteOff :: forall b. Ptr b -> Int -> IO VkDynamicState
pokeElemOff :: Ptr VkDynamicState -> Int -> VkDynamicState -> IO ()
$cpokeElemOff :: Ptr VkDynamicState -> Int -> VkDynamicState -> IO ()
peekElemOff :: Ptr VkDynamicState -> Int -> IO VkDynamicState
$cpeekElemOff :: Ptr VkDynamicState -> Int -> IO VkDynamicState
alignment :: VkDynamicState -> Int
$calignment :: VkDynamicState -> Int
sizeOf :: VkDynamicState -> Int
$csizeOf :: VkDynamicState -> Int
Storable)

instance Show VkDynamicState where
    showsPrec :: Int -> VkDynamicState -> ShowS
showsPrec Int
_ VkDynamicState
VK_DYNAMIC_STATE_VIEWPORT
      = String -> ShowS
showString String
"VK_DYNAMIC_STATE_VIEWPORT"
    showsPrec Int
_ VkDynamicState
VK_DYNAMIC_STATE_SCISSOR
      = String -> ShowS
showString String
"VK_DYNAMIC_STATE_SCISSOR"
    showsPrec Int
_ VkDynamicState
VK_DYNAMIC_STATE_LINE_WIDTH
      = String -> ShowS
showString String
"VK_DYNAMIC_STATE_LINE_WIDTH"
    showsPrec Int
_ VkDynamicState
VK_DYNAMIC_STATE_DEPTH_BIAS
      = String -> ShowS
showString String
"VK_DYNAMIC_STATE_DEPTH_BIAS"
    showsPrec Int
_ VkDynamicState
VK_DYNAMIC_STATE_BLEND_CONSTANTS
      = String -> ShowS
showString String
"VK_DYNAMIC_STATE_BLEND_CONSTANTS"
    showsPrec Int
_ VkDynamicState
VK_DYNAMIC_STATE_DEPTH_BOUNDS
      = String -> ShowS
showString String
"VK_DYNAMIC_STATE_DEPTH_BOUNDS"
    showsPrec Int
_ VkDynamicState
VK_DYNAMIC_STATE_STENCIL_COMPARE_MASK
      = String -> ShowS
showString String
"VK_DYNAMIC_STATE_STENCIL_COMPARE_MASK"
    showsPrec Int
_ VkDynamicState
VK_DYNAMIC_STATE_STENCIL_WRITE_MASK
      = String -> ShowS
showString String
"VK_DYNAMIC_STATE_STENCIL_WRITE_MASK"
    showsPrec Int
_ VkDynamicState
VK_DYNAMIC_STATE_STENCIL_REFERENCE
      = String -> ShowS
showString String
"VK_DYNAMIC_STATE_STENCIL_REFERENCE"
    showsPrec Int
p (VkDynamicState Int32
x)
      = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
          (String -> ShowS
showString String
"VkDynamicState " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Int32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
11 Int32
x)

instance Read VkDynamicState where
    readPrec :: ReadPrec VkDynamicState
readPrec
      = ReadPrec VkDynamicState -> ReadPrec VkDynamicState
forall a. ReadPrec a -> ReadPrec a
parens
          ([(String, ReadPrec VkDynamicState)] -> ReadPrec VkDynamicState
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
             [(String
"VK_DYNAMIC_STATE_VIEWPORT", VkDynamicState -> ReadPrec VkDynamicState
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDynamicState
VK_DYNAMIC_STATE_VIEWPORT),
              (String
"VK_DYNAMIC_STATE_SCISSOR", VkDynamicState -> ReadPrec VkDynamicState
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDynamicState
VK_DYNAMIC_STATE_SCISSOR),
              (String
"VK_DYNAMIC_STATE_LINE_WIDTH", VkDynamicState -> ReadPrec VkDynamicState
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDynamicState
VK_DYNAMIC_STATE_LINE_WIDTH),
              (String
"VK_DYNAMIC_STATE_DEPTH_BIAS", VkDynamicState -> ReadPrec VkDynamicState
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDynamicState
VK_DYNAMIC_STATE_DEPTH_BIAS),
              (String
"VK_DYNAMIC_STATE_BLEND_CONSTANTS",
               VkDynamicState -> ReadPrec VkDynamicState
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDynamicState
VK_DYNAMIC_STATE_BLEND_CONSTANTS),
              (String
"VK_DYNAMIC_STATE_DEPTH_BOUNDS",
               VkDynamicState -> ReadPrec VkDynamicState
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDynamicState
VK_DYNAMIC_STATE_DEPTH_BOUNDS),
              (String
"VK_DYNAMIC_STATE_STENCIL_COMPARE_MASK",
               VkDynamicState -> ReadPrec VkDynamicState
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDynamicState
VK_DYNAMIC_STATE_STENCIL_COMPARE_MASK),
              (String
"VK_DYNAMIC_STATE_STENCIL_WRITE_MASK",
               VkDynamicState -> ReadPrec VkDynamicState
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDynamicState
VK_DYNAMIC_STATE_STENCIL_WRITE_MASK),
              (String
"VK_DYNAMIC_STATE_STENCIL_REFERENCE",
               VkDynamicState -> ReadPrec VkDynamicState
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkDynamicState
VK_DYNAMIC_STATE_STENCIL_REFERENCE)]
             ReadPrec VkDynamicState
-> ReadPrec VkDynamicState -> ReadPrec VkDynamicState
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
             Int -> ReadPrec VkDynamicState -> ReadPrec VkDynamicState
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
               (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkDynamicState") ReadPrec () -> ReadPrec VkDynamicState -> ReadPrec VkDynamicState
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
                  (Int32 -> VkDynamicState
VkDynamicState (Int32 -> VkDynamicState)
-> ReadPrec Int32 -> ReadPrec VkDynamicState
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ReadPrec Int32 -> ReadPrec Int32
forall a. ReadPrec a -> ReadPrec a
step ReadPrec Int32
forall a. Read a => ReadPrec a
readPrec)))

pattern VK_DYNAMIC_STATE_VIEWPORT :: VkDynamicState

pattern $bVK_DYNAMIC_STATE_VIEWPORT :: VkDynamicState
$mVK_DYNAMIC_STATE_VIEWPORT :: forall {r}. VkDynamicState -> (Void# -> r) -> (Void# -> r) -> r
VK_DYNAMIC_STATE_VIEWPORT = VkDynamicState 0

pattern VK_DYNAMIC_STATE_SCISSOR :: VkDynamicState

pattern $bVK_DYNAMIC_STATE_SCISSOR :: VkDynamicState
$mVK_DYNAMIC_STATE_SCISSOR :: forall {r}. VkDynamicState -> (Void# -> r) -> (Void# -> r) -> r
VK_DYNAMIC_STATE_SCISSOR = VkDynamicState 1

pattern VK_DYNAMIC_STATE_LINE_WIDTH :: VkDynamicState

pattern $bVK_DYNAMIC_STATE_LINE_WIDTH :: VkDynamicState
$mVK_DYNAMIC_STATE_LINE_WIDTH :: forall {r}. VkDynamicState -> (Void# -> r) -> (Void# -> r) -> r
VK_DYNAMIC_STATE_LINE_WIDTH = VkDynamicState 2

pattern VK_DYNAMIC_STATE_DEPTH_BIAS :: VkDynamicState

pattern $bVK_DYNAMIC_STATE_DEPTH_BIAS :: VkDynamicState
$mVK_DYNAMIC_STATE_DEPTH_BIAS :: forall {r}. VkDynamicState -> (Void# -> r) -> (Void# -> r) -> r
VK_DYNAMIC_STATE_DEPTH_BIAS = VkDynamicState 3

pattern VK_DYNAMIC_STATE_BLEND_CONSTANTS :: VkDynamicState

pattern $bVK_DYNAMIC_STATE_BLEND_CONSTANTS :: VkDynamicState
$mVK_DYNAMIC_STATE_BLEND_CONSTANTS :: forall {r}. VkDynamicState -> (Void# -> r) -> (Void# -> r) -> r
VK_DYNAMIC_STATE_BLEND_CONSTANTS = VkDynamicState 4

pattern VK_DYNAMIC_STATE_DEPTH_BOUNDS :: VkDynamicState

pattern $bVK_DYNAMIC_STATE_DEPTH_BOUNDS :: VkDynamicState
$mVK_DYNAMIC_STATE_DEPTH_BOUNDS :: forall {r}. VkDynamicState -> (Void# -> r) -> (Void# -> r) -> r
VK_DYNAMIC_STATE_DEPTH_BOUNDS = VkDynamicState 5

pattern VK_DYNAMIC_STATE_STENCIL_COMPARE_MASK :: VkDynamicState

pattern $bVK_DYNAMIC_STATE_STENCIL_COMPARE_MASK :: VkDynamicState
$mVK_DYNAMIC_STATE_STENCIL_COMPARE_MASK :: forall {r}. VkDynamicState -> (Void# -> r) -> (Void# -> r) -> r
VK_DYNAMIC_STATE_STENCIL_COMPARE_MASK = VkDynamicState 6

pattern VK_DYNAMIC_STATE_STENCIL_WRITE_MASK :: VkDynamicState

pattern $bVK_DYNAMIC_STATE_STENCIL_WRITE_MASK :: VkDynamicState
$mVK_DYNAMIC_STATE_STENCIL_WRITE_MASK :: forall {r}. VkDynamicState -> (Void# -> r) -> (Void# -> r) -> r
VK_DYNAMIC_STATE_STENCIL_WRITE_MASK = VkDynamicState 7

pattern VK_DYNAMIC_STATE_STENCIL_REFERENCE :: VkDynamicState

pattern $bVK_DYNAMIC_STATE_STENCIL_REFERENCE :: VkDynamicState
$mVK_DYNAMIC_STATE_STENCIL_REFERENCE :: forall {r}. VkDynamicState -> (Void# -> r) -> (Void# -> r) -> r
VK_DYNAMIC_STATE_STENCIL_REFERENCE = VkDynamicState 8