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

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

pattern $bVK_BORDER_COLOR_FLOAT_TRANSPARENT_BLACK :: VkBorderColor
$mVK_BORDER_COLOR_FLOAT_TRANSPARENT_BLACK :: forall {r}. VkBorderColor -> (Void# -> r) -> (Void# -> r) -> r
VK_BORDER_COLOR_FLOAT_TRANSPARENT_BLACK = VkBorderColor 0

pattern VK_BORDER_COLOR_INT_TRANSPARENT_BLACK :: VkBorderColor

pattern $bVK_BORDER_COLOR_INT_TRANSPARENT_BLACK :: VkBorderColor
$mVK_BORDER_COLOR_INT_TRANSPARENT_BLACK :: forall {r}. VkBorderColor -> (Void# -> r) -> (Void# -> r) -> r
VK_BORDER_COLOR_INT_TRANSPARENT_BLACK = VkBorderColor 1

pattern VK_BORDER_COLOR_FLOAT_OPAQUE_BLACK :: VkBorderColor

pattern $bVK_BORDER_COLOR_FLOAT_OPAQUE_BLACK :: VkBorderColor
$mVK_BORDER_COLOR_FLOAT_OPAQUE_BLACK :: forall {r}. VkBorderColor -> (Void# -> r) -> (Void# -> r) -> r
VK_BORDER_COLOR_FLOAT_OPAQUE_BLACK = VkBorderColor 2

pattern VK_BORDER_COLOR_INT_OPAQUE_BLACK :: VkBorderColor

pattern $bVK_BORDER_COLOR_INT_OPAQUE_BLACK :: VkBorderColor
$mVK_BORDER_COLOR_INT_OPAQUE_BLACK :: forall {r}. VkBorderColor -> (Void# -> r) -> (Void# -> r) -> r
VK_BORDER_COLOR_INT_OPAQUE_BLACK = VkBorderColor 3

pattern VK_BORDER_COLOR_FLOAT_OPAQUE_WHITE :: VkBorderColor

pattern $bVK_BORDER_COLOR_FLOAT_OPAQUE_WHITE :: VkBorderColor
$mVK_BORDER_COLOR_FLOAT_OPAQUE_WHITE :: forall {r}. VkBorderColor -> (Void# -> r) -> (Void# -> r) -> r
VK_BORDER_COLOR_FLOAT_OPAQUE_WHITE = VkBorderColor 4

pattern VK_BORDER_COLOR_INT_OPAQUE_WHITE :: VkBorderColor

pattern $bVK_BORDER_COLOR_INT_OPAQUE_WHITE :: VkBorderColor
$mVK_BORDER_COLOR_INT_OPAQUE_WHITE :: forall {r}. VkBorderColor -> (Void# -> r) -> (Void# -> r) -> r
VK_BORDER_COLOR_INT_OPAQUE_WHITE = VkBorderColor 5