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

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

pattern $bVK_SCOPE_DEVICE_NV :: VkScopeNV
$mVK_SCOPE_DEVICE_NV :: forall {r}. VkScopeNV -> (Void# -> r) -> (Void# -> r) -> r
VK_SCOPE_DEVICE_NV = VkScopeNV 1

pattern VK_SCOPE_WORKGROUP_NV :: VkScopeNV

pattern $bVK_SCOPE_WORKGROUP_NV :: VkScopeNV
$mVK_SCOPE_WORKGROUP_NV :: forall {r}. VkScopeNV -> (Void# -> r) -> (Void# -> r) -> r
VK_SCOPE_WORKGROUP_NV = VkScopeNV 2

pattern VK_SCOPE_SUBGROUP_NV :: VkScopeNV

pattern $bVK_SCOPE_SUBGROUP_NV :: VkScopeNV
$mVK_SCOPE_SUBGROUP_NV :: forall {r}. VkScopeNV -> (Void# -> r) -> (Void# -> r) -> r
VK_SCOPE_SUBGROUP_NV = VkScopeNV 3

pattern VK_SCOPE_QUEUE_FAMILY_NV :: VkScopeNV

pattern $bVK_SCOPE_QUEUE_FAMILY_NV :: VkScopeNV
$mVK_SCOPE_QUEUE_FAMILY_NV :: forall {r}. VkScopeNV -> (Void# -> r) -> (Void# -> r) -> r
VK_SCOPE_QUEUE_FAMILY_NV = VkScopeNV 5