{-# OPTIONS_HADDOCK ignore-exports#-}
{-# LANGUAGE DataKinds                  #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE PatternSynonyms            #-}
{-# LANGUAGE Strict                     #-}
module Graphics.Vulkan.Types.Enum.RasterizationOrderAMD
       (VkRasterizationOrderAMD(VkRasterizationOrderAMD,
                                VK_RASTERIZATION_ORDER_STRICT_AMD,
                                VK_RASTERIZATION_ORDER_RELAXED_AMD))
       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#VkRasterizationOrderAMD VkRasterizationOrderAMD registry at www.khronos.org>
newtype VkRasterizationOrderAMD = VkRasterizationOrderAMD Int32
                                  deriving (VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
(VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool)
-> (VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool)
-> Eq VkRasterizationOrderAMD
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
$c/= :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
== :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
$c== :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
Eq, Eq VkRasterizationOrderAMD
Eq VkRasterizationOrderAMD
-> (VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Ordering)
-> (VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool)
-> (VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool)
-> (VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool)
-> (VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool)
-> (VkRasterizationOrderAMD
    -> VkRasterizationOrderAMD -> VkRasterizationOrderAMD)
-> (VkRasterizationOrderAMD
    -> VkRasterizationOrderAMD -> VkRasterizationOrderAMD)
-> Ord VkRasterizationOrderAMD
VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Ordering
VkRasterizationOrderAMD
-> VkRasterizationOrderAMD -> VkRasterizationOrderAMD
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 :: VkRasterizationOrderAMD
-> VkRasterizationOrderAMD -> VkRasterizationOrderAMD
$cmin :: VkRasterizationOrderAMD
-> VkRasterizationOrderAMD -> VkRasterizationOrderAMD
max :: VkRasterizationOrderAMD
-> VkRasterizationOrderAMD -> VkRasterizationOrderAMD
$cmax :: VkRasterizationOrderAMD
-> VkRasterizationOrderAMD -> VkRasterizationOrderAMD
>= :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
$c>= :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
> :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
$c> :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
<= :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
$c<= :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
< :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
$c< :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Bool
compare :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Ordering
$ccompare :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> Ordering
Ord, Int -> VkRasterizationOrderAMD
VkRasterizationOrderAMD -> Int
VkRasterizationOrderAMD -> [VkRasterizationOrderAMD]
VkRasterizationOrderAMD -> VkRasterizationOrderAMD
VkRasterizationOrderAMD
-> VkRasterizationOrderAMD -> [VkRasterizationOrderAMD]
VkRasterizationOrderAMD
-> VkRasterizationOrderAMD
-> VkRasterizationOrderAMD
-> [VkRasterizationOrderAMD]
(VkRasterizationOrderAMD -> VkRasterizationOrderAMD)
-> (VkRasterizationOrderAMD -> VkRasterizationOrderAMD)
-> (Int -> VkRasterizationOrderAMD)
-> (VkRasterizationOrderAMD -> Int)
-> (VkRasterizationOrderAMD -> [VkRasterizationOrderAMD])
-> (VkRasterizationOrderAMD
    -> VkRasterizationOrderAMD -> [VkRasterizationOrderAMD])
-> (VkRasterizationOrderAMD
    -> VkRasterizationOrderAMD -> [VkRasterizationOrderAMD])
-> (VkRasterizationOrderAMD
    -> VkRasterizationOrderAMD
    -> VkRasterizationOrderAMD
    -> [VkRasterizationOrderAMD])
-> Enum VkRasterizationOrderAMD
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 :: VkRasterizationOrderAMD
-> VkRasterizationOrderAMD
-> VkRasterizationOrderAMD
-> [VkRasterizationOrderAMD]
$cenumFromThenTo :: VkRasterizationOrderAMD
-> VkRasterizationOrderAMD
-> VkRasterizationOrderAMD
-> [VkRasterizationOrderAMD]
enumFromTo :: VkRasterizationOrderAMD
-> VkRasterizationOrderAMD -> [VkRasterizationOrderAMD]
$cenumFromTo :: VkRasterizationOrderAMD
-> VkRasterizationOrderAMD -> [VkRasterizationOrderAMD]
enumFromThen :: VkRasterizationOrderAMD
-> VkRasterizationOrderAMD -> [VkRasterizationOrderAMD]
$cenumFromThen :: VkRasterizationOrderAMD
-> VkRasterizationOrderAMD -> [VkRasterizationOrderAMD]
enumFrom :: VkRasterizationOrderAMD -> [VkRasterizationOrderAMD]
$cenumFrom :: VkRasterizationOrderAMD -> [VkRasterizationOrderAMD]
fromEnum :: VkRasterizationOrderAMD -> Int
$cfromEnum :: VkRasterizationOrderAMD -> Int
toEnum :: Int -> VkRasterizationOrderAMD
$ctoEnum :: Int -> VkRasterizationOrderAMD
pred :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD
$cpred :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD
succ :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD
$csucc :: VkRasterizationOrderAMD -> VkRasterizationOrderAMD
Enum, Ptr VkRasterizationOrderAMD -> IO VkRasterizationOrderAMD
Ptr VkRasterizationOrderAMD -> Int -> IO VkRasterizationOrderAMD
Ptr VkRasterizationOrderAMD
-> Int -> VkRasterizationOrderAMD -> IO ()
Ptr VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> IO ()
VkRasterizationOrderAMD -> Int
(VkRasterizationOrderAMD -> Int)
-> (VkRasterizationOrderAMD -> Int)
-> (Ptr VkRasterizationOrderAMD
    -> Int -> IO VkRasterizationOrderAMD)
-> (Ptr VkRasterizationOrderAMD
    -> Int -> VkRasterizationOrderAMD -> IO ())
-> (forall b. Ptr b -> Int -> IO VkRasterizationOrderAMD)
-> (forall b. Ptr b -> Int -> VkRasterizationOrderAMD -> IO ())
-> (Ptr VkRasterizationOrderAMD -> IO VkRasterizationOrderAMD)
-> (Ptr VkRasterizationOrderAMD
    -> VkRasterizationOrderAMD -> IO ())
-> Storable VkRasterizationOrderAMD
forall b. Ptr b -> Int -> IO VkRasterizationOrderAMD
forall b. Ptr b -> Int -> VkRasterizationOrderAMD -> 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 VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> IO ()
$cpoke :: Ptr VkRasterizationOrderAMD -> VkRasterizationOrderAMD -> IO ()
peek :: Ptr VkRasterizationOrderAMD -> IO VkRasterizationOrderAMD
$cpeek :: Ptr VkRasterizationOrderAMD -> IO VkRasterizationOrderAMD
pokeByteOff :: forall b. Ptr b -> Int -> VkRasterizationOrderAMD -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> VkRasterizationOrderAMD -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO VkRasterizationOrderAMD
$cpeekByteOff :: forall b. Ptr b -> Int -> IO VkRasterizationOrderAMD
pokeElemOff :: Ptr VkRasterizationOrderAMD
-> Int -> VkRasterizationOrderAMD -> IO ()
$cpokeElemOff :: Ptr VkRasterizationOrderAMD
-> Int -> VkRasterizationOrderAMD -> IO ()
peekElemOff :: Ptr VkRasterizationOrderAMD -> Int -> IO VkRasterizationOrderAMD
$cpeekElemOff :: Ptr VkRasterizationOrderAMD -> Int -> IO VkRasterizationOrderAMD
alignment :: VkRasterizationOrderAMD -> Int
$calignment :: VkRasterizationOrderAMD -> Int
sizeOf :: VkRasterizationOrderAMD -> Int
$csizeOf :: VkRasterizationOrderAMD -> Int
Storable)

instance Show VkRasterizationOrderAMD where
    showsPrec :: Int -> VkRasterizationOrderAMD -> ShowS
showsPrec Int
_ VkRasterizationOrderAMD
VK_RASTERIZATION_ORDER_STRICT_AMD
      = String -> ShowS
showString String
"VK_RASTERIZATION_ORDER_STRICT_AMD"
    showsPrec Int
_ VkRasterizationOrderAMD
VK_RASTERIZATION_ORDER_RELAXED_AMD
      = String -> ShowS
showString String
"VK_RASTERIZATION_ORDER_RELAXED_AMD"
    showsPrec Int
p (VkRasterizationOrderAMD Int32
x)
      = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
          (String -> ShowS
showString String
"VkRasterizationOrderAMD " 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 VkRasterizationOrderAMD where
    readPrec :: ReadPrec VkRasterizationOrderAMD
readPrec
      = ReadPrec VkRasterizationOrderAMD
-> ReadPrec VkRasterizationOrderAMD
forall a. ReadPrec a -> ReadPrec a
parens
          ([(String, ReadPrec VkRasterizationOrderAMD)]
-> ReadPrec VkRasterizationOrderAMD
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
             [(String
"VK_RASTERIZATION_ORDER_STRICT_AMD",
               VkRasterizationOrderAMD -> ReadPrec VkRasterizationOrderAMD
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkRasterizationOrderAMD
VK_RASTERIZATION_ORDER_STRICT_AMD),
              (String
"VK_RASTERIZATION_ORDER_RELAXED_AMD",
               VkRasterizationOrderAMD -> ReadPrec VkRasterizationOrderAMD
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkRasterizationOrderAMD
VK_RASTERIZATION_ORDER_RELAXED_AMD)]
             ReadPrec VkRasterizationOrderAMD
-> ReadPrec VkRasterizationOrderAMD
-> ReadPrec VkRasterizationOrderAMD
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
             Int
-> ReadPrec VkRasterizationOrderAMD
-> ReadPrec VkRasterizationOrderAMD
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
               (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkRasterizationOrderAMD") ReadPrec ()
-> ReadPrec VkRasterizationOrderAMD
-> ReadPrec VkRasterizationOrderAMD
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
                  (Int32 -> VkRasterizationOrderAMD
VkRasterizationOrderAMD (Int32 -> VkRasterizationOrderAMD)
-> ReadPrec Int32 -> ReadPrec VkRasterizationOrderAMD
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_RASTERIZATION_ORDER_STRICT_AMD ::
        VkRasterizationOrderAMD

pattern $bVK_RASTERIZATION_ORDER_STRICT_AMD :: VkRasterizationOrderAMD
$mVK_RASTERIZATION_ORDER_STRICT_AMD :: forall {r}.
VkRasterizationOrderAMD -> (Void# -> r) -> (Void# -> r) -> r
VK_RASTERIZATION_ORDER_STRICT_AMD =
        VkRasterizationOrderAMD 0

pattern VK_RASTERIZATION_ORDER_RELAXED_AMD ::
        VkRasterizationOrderAMD

pattern $bVK_RASTERIZATION_ORDER_RELAXED_AMD :: VkRasterizationOrderAMD
$mVK_RASTERIZATION_ORDER_RELAXED_AMD :: forall {r}.
VkRasterizationOrderAMD -> (Void# -> r) -> (Void# -> r) -> r
VK_RASTERIZATION_ORDER_RELAXED_AMD =
        VkRasterizationOrderAMD 1