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

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

pattern $bVK_POLYGON_MODE_FILL :: VkPolygonMode
$mVK_POLYGON_MODE_FILL :: forall {r}. VkPolygonMode -> (Void# -> r) -> (Void# -> r) -> r
VK_POLYGON_MODE_FILL = VkPolygonMode 0

pattern VK_POLYGON_MODE_LINE :: VkPolygonMode

pattern $bVK_POLYGON_MODE_LINE :: VkPolygonMode
$mVK_POLYGON_MODE_LINE :: forall {r}. VkPolygonMode -> (Void# -> r) -> (Void# -> r) -> r
VK_POLYGON_MODE_LINE = VkPolygonMode 1

pattern VK_POLYGON_MODE_POINT :: VkPolygonMode

pattern $bVK_POLYGON_MODE_POINT :: VkPolygonMode
$mVK_POLYGON_MODE_POINT :: forall {r}. VkPolygonMode -> (Void# -> r) -> (Void# -> r) -> r
VK_POLYGON_MODE_POINT = VkPolygonMode 2