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

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

pattern $bVK_FULL_SCREEN_EXCLUSIVE_DEFAULT_EXT :: VkFullScreenExclusiveEXT
$mVK_FULL_SCREEN_EXCLUSIVE_DEFAULT_EXT :: forall {r}.
VkFullScreenExclusiveEXT -> (Void# -> r) -> (Void# -> r) -> r
VK_FULL_SCREEN_EXCLUSIVE_DEFAULT_EXT =
        VkFullScreenExclusiveEXT 0

pattern VK_FULL_SCREEN_EXCLUSIVE_ALLOWED_EXT ::
        VkFullScreenExclusiveEXT

pattern $bVK_FULL_SCREEN_EXCLUSIVE_ALLOWED_EXT :: VkFullScreenExclusiveEXT
$mVK_FULL_SCREEN_EXCLUSIVE_ALLOWED_EXT :: forall {r}.
VkFullScreenExclusiveEXT -> (Void# -> r) -> (Void# -> r) -> r
VK_FULL_SCREEN_EXCLUSIVE_ALLOWED_EXT =
        VkFullScreenExclusiveEXT 1

pattern VK_FULL_SCREEN_EXCLUSIVE_DISALLOWED_EXT ::
        VkFullScreenExclusiveEXT

pattern $bVK_FULL_SCREEN_EXCLUSIVE_DISALLOWED_EXT :: VkFullScreenExclusiveEXT
$mVK_FULL_SCREEN_EXCLUSIVE_DISALLOWED_EXT :: forall {r}.
VkFullScreenExclusiveEXT -> (Void# -> r) -> (Void# -> r) -> r
VK_FULL_SCREEN_EXCLUSIVE_DISALLOWED_EXT =
        VkFullScreenExclusiveEXT 2

pattern VK_FULL_SCREEN_EXCLUSIVE_APPLICATION_CONTROLLED_EXT ::
        VkFullScreenExclusiveEXT

pattern $bVK_FULL_SCREEN_EXCLUSIVE_APPLICATION_CONTROLLED_EXT :: VkFullScreenExclusiveEXT
$mVK_FULL_SCREEN_EXCLUSIVE_APPLICATION_CONTROLLED_EXT :: forall {r}.
VkFullScreenExclusiveEXT -> (Void# -> r) -> (Void# -> r) -> r
VK_FULL_SCREEN_EXCLUSIVE_APPLICATION_CONTROLLED_EXT =
        VkFullScreenExclusiveEXT 3