{-# OPTIONS_HADDOCK ignore-exports#-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE Strict #-}
{-# LANGUAGE TypeSynonymInstances #-}
module Graphics.Vulkan.Types.Enum.ToolPurposeFlagsEXT
(VkToolPurposeBitmaskEXT(VkToolPurposeBitmaskEXT,
VkToolPurposeFlagsEXT, VkToolPurposeFlagBitsEXT,
VK_TOOL_PURPOSE_VALIDATION_BIT_EXT,
VK_TOOL_PURPOSE_PROFILING_BIT_EXT, VK_TOOL_PURPOSE_TRACING_BIT_EXT,
VK_TOOL_PURPOSE_ADDITIONAL_FEATURES_BIT_EXT,
VK_TOOL_PURPOSE_MODIFYING_FEATURES_BIT_EXT),
VkToolPurposeFlagsEXT, VkToolPurposeFlagBitsEXT)
where
import Data.Bits (Bits, FiniteBits)
import Foreign.Storable (Storable)
import GHC.Read (choose, expectP)
import Graphics.Vulkan.Marshal (FlagBit, FlagMask, FlagType)
import Graphics.Vulkan.Types.BaseTypes (VkFlags (..))
import Text.ParserCombinators.ReadPrec (prec, step, (+++))
import Text.Read (Read (..), parens)
import Text.Read.Lex (Lexeme (..))
newtype VkToolPurposeBitmaskEXT (a ::
FlagType) = VkToolPurposeBitmaskEXT VkFlags
deriving (VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
(VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool)
-> (VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool)
-> Eq (VkToolPurposeBitmaskEXT a)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall (a :: FlagType).
VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
/= :: VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
$c/= :: forall (a :: FlagType).
VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
== :: VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
$c== :: forall (a :: FlagType).
VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
Eq, Eq (VkToolPurposeBitmaskEXT a)
Eq (VkToolPurposeBitmaskEXT a)
-> (VkToolPurposeBitmaskEXT a
-> VkToolPurposeBitmaskEXT a -> Ordering)
-> (VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool)
-> (VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool)
-> (VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool)
-> (VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool)
-> (VkToolPurposeBitmaskEXT a
-> VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a)
-> (VkToolPurposeBitmaskEXT a
-> VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a)
-> Ord (VkToolPurposeBitmaskEXT a)
VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Ordering
VkToolPurposeBitmaskEXT a
-> VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a
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
forall (a :: FlagType). Eq (VkToolPurposeBitmaskEXT a)
forall (a :: FlagType).
VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
forall (a :: FlagType).
VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Ordering
forall (a :: FlagType).
VkToolPurposeBitmaskEXT a
-> VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a
min :: VkToolPurposeBitmaskEXT a
-> VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a
$cmin :: forall (a :: FlagType).
VkToolPurposeBitmaskEXT a
-> VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a
max :: VkToolPurposeBitmaskEXT a
-> VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a
$cmax :: forall (a :: FlagType).
VkToolPurposeBitmaskEXT a
-> VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a
>= :: VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
$c>= :: forall (a :: FlagType).
VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
> :: VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
$c> :: forall (a :: FlagType).
VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
<= :: VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
$c<= :: forall (a :: FlagType).
VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
< :: VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
$c< :: forall (a :: FlagType).
VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Bool
compare :: VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Ordering
$ccompare :: forall (a :: FlagType).
VkToolPurposeBitmaskEXT a -> VkToolPurposeBitmaskEXT a -> Ordering
Ord, Ptr (VkToolPurposeBitmaskEXT a) -> IO (VkToolPurposeBitmaskEXT a)
Ptr (VkToolPurposeBitmaskEXT a)
-> Int -> IO (VkToolPurposeBitmaskEXT a)
Ptr (VkToolPurposeBitmaskEXT a)
-> Int -> VkToolPurposeBitmaskEXT a -> IO ()
Ptr (VkToolPurposeBitmaskEXT a)
-> VkToolPurposeBitmaskEXT a -> IO ()
VkToolPurposeBitmaskEXT a -> Int
(VkToolPurposeBitmaskEXT a -> Int)
-> (VkToolPurposeBitmaskEXT a -> Int)
-> (Ptr (VkToolPurposeBitmaskEXT a)
-> Int -> IO (VkToolPurposeBitmaskEXT a))
-> (Ptr (VkToolPurposeBitmaskEXT a)
-> Int -> VkToolPurposeBitmaskEXT a -> IO ())
-> (forall b. Ptr b -> Int -> IO (VkToolPurposeBitmaskEXT a))
-> (forall b. Ptr b -> Int -> VkToolPurposeBitmaskEXT a -> IO ())
-> (Ptr (VkToolPurposeBitmaskEXT a)
-> IO (VkToolPurposeBitmaskEXT a))
-> (Ptr (VkToolPurposeBitmaskEXT a)
-> VkToolPurposeBitmaskEXT a -> IO ())
-> Storable (VkToolPurposeBitmaskEXT a)
forall b. Ptr b -> Int -> IO (VkToolPurposeBitmaskEXT a)
forall b. Ptr b -> Int -> VkToolPurposeBitmaskEXT a -> 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
forall (a :: FlagType).
Ptr (VkToolPurposeBitmaskEXT a) -> IO (VkToolPurposeBitmaskEXT a)
forall (a :: FlagType).
Ptr (VkToolPurposeBitmaskEXT a)
-> Int -> IO (VkToolPurposeBitmaskEXT a)
forall (a :: FlagType).
Ptr (VkToolPurposeBitmaskEXT a)
-> Int -> VkToolPurposeBitmaskEXT a -> IO ()
forall (a :: FlagType).
Ptr (VkToolPurposeBitmaskEXT a)
-> VkToolPurposeBitmaskEXT a -> IO ()
forall (a :: FlagType). VkToolPurposeBitmaskEXT a -> Int
forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkToolPurposeBitmaskEXT a)
forall (a :: FlagType) b.
Ptr b -> Int -> VkToolPurposeBitmaskEXT a -> IO ()
poke :: Ptr (VkToolPurposeBitmaskEXT a)
-> VkToolPurposeBitmaskEXT a -> IO ()
$cpoke :: forall (a :: FlagType).
Ptr (VkToolPurposeBitmaskEXT a)
-> VkToolPurposeBitmaskEXT a -> IO ()
peek :: Ptr (VkToolPurposeBitmaskEXT a) -> IO (VkToolPurposeBitmaskEXT a)
$cpeek :: forall (a :: FlagType).
Ptr (VkToolPurposeBitmaskEXT a) -> IO (VkToolPurposeBitmaskEXT a)
pokeByteOff :: forall b. Ptr b -> Int -> VkToolPurposeBitmaskEXT a -> IO ()
$cpokeByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> VkToolPurposeBitmaskEXT a -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO (VkToolPurposeBitmaskEXT a)
$cpeekByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkToolPurposeBitmaskEXT a)
pokeElemOff :: Ptr (VkToolPurposeBitmaskEXT a)
-> Int -> VkToolPurposeBitmaskEXT a -> IO ()
$cpokeElemOff :: forall (a :: FlagType).
Ptr (VkToolPurposeBitmaskEXT a)
-> Int -> VkToolPurposeBitmaskEXT a -> IO ()
peekElemOff :: Ptr (VkToolPurposeBitmaskEXT a)
-> Int -> IO (VkToolPurposeBitmaskEXT a)
$cpeekElemOff :: forall (a :: FlagType).
Ptr (VkToolPurposeBitmaskEXT a)
-> Int -> IO (VkToolPurposeBitmaskEXT a)
alignment :: VkToolPurposeBitmaskEXT a -> Int
$calignment :: forall (a :: FlagType). VkToolPurposeBitmaskEXT a -> Int
sizeOf :: VkToolPurposeBitmaskEXT a -> Int
$csizeOf :: forall (a :: FlagType). VkToolPurposeBitmaskEXT a -> Int
Storable)
type VkToolPurposeFlagsEXT = VkToolPurposeBitmaskEXT FlagMask
type VkToolPurposeFlagBitsEXT = VkToolPurposeBitmaskEXT FlagBit
pattern VkToolPurposeFlagBitsEXT ::
VkFlags -> VkToolPurposeBitmaskEXT FlagBit
pattern $bVkToolPurposeFlagBitsEXT :: VkFlags -> VkToolPurposeBitmaskEXT FlagBit
$mVkToolPurposeFlagBitsEXT :: forall {r}.
VkToolPurposeBitmaskEXT FlagBit
-> (VkFlags -> r) -> (Void# -> r) -> r
VkToolPurposeFlagBitsEXT n = VkToolPurposeBitmaskEXT n
pattern VkToolPurposeFlagsEXT ::
VkFlags -> VkToolPurposeBitmaskEXT FlagMask
pattern $bVkToolPurposeFlagsEXT :: VkFlags -> VkToolPurposeBitmaskEXT FlagMask
$mVkToolPurposeFlagsEXT :: forall {r}.
VkToolPurposeBitmaskEXT FlagMask
-> (VkFlags -> r) -> (Void# -> r) -> r
VkToolPurposeFlagsEXT n = VkToolPurposeBitmaskEXT n
deriving instance Bits (VkToolPurposeBitmaskEXT FlagMask)
deriving instance FiniteBits (VkToolPurposeBitmaskEXT FlagMask)
instance Show (VkToolPurposeBitmaskEXT a) where
showsPrec :: Int -> VkToolPurposeBitmaskEXT a -> ShowS
showsPrec Int
_ VkToolPurposeBitmaskEXT a
VK_TOOL_PURPOSE_VALIDATION_BIT_EXT
= String -> ShowS
showString String
"VK_TOOL_PURPOSE_VALIDATION_BIT_EXT"
showsPrec Int
_ VkToolPurposeBitmaskEXT a
VK_TOOL_PURPOSE_PROFILING_BIT_EXT
= String -> ShowS
showString String
"VK_TOOL_PURPOSE_PROFILING_BIT_EXT"
showsPrec Int
_ VkToolPurposeBitmaskEXT a
VK_TOOL_PURPOSE_TRACING_BIT_EXT
= String -> ShowS
showString String
"VK_TOOL_PURPOSE_TRACING_BIT_EXT"
showsPrec Int
_ VkToolPurposeBitmaskEXT a
VK_TOOL_PURPOSE_ADDITIONAL_FEATURES_BIT_EXT
= String -> ShowS
showString String
"VK_TOOL_PURPOSE_ADDITIONAL_FEATURES_BIT_EXT"
showsPrec Int
_ VkToolPurposeBitmaskEXT a
VK_TOOL_PURPOSE_MODIFYING_FEATURES_BIT_EXT
= String -> ShowS
showString String
"VK_TOOL_PURPOSE_MODIFYING_FEATURES_BIT_EXT"
showsPrec Int
p (VkToolPurposeBitmaskEXT VkFlags
x)
= Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
(String -> ShowS
showString String
"VkToolPurposeBitmaskEXT " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> VkFlags -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
11 VkFlags
x)
instance Read (VkToolPurposeBitmaskEXT a) where
readPrec :: ReadPrec (VkToolPurposeBitmaskEXT a)
readPrec
= ReadPrec (VkToolPurposeBitmaskEXT a)
-> ReadPrec (VkToolPurposeBitmaskEXT a)
forall a. ReadPrec a -> ReadPrec a
parens
([(String, ReadPrec (VkToolPurposeBitmaskEXT a))]
-> ReadPrec (VkToolPurposeBitmaskEXT a)
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
[(String
"VK_TOOL_PURPOSE_VALIDATION_BIT_EXT",
VkToolPurposeBitmaskEXT a -> ReadPrec (VkToolPurposeBitmaskEXT a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkToolPurposeBitmaskEXT a
forall (a :: FlagType). VkToolPurposeBitmaskEXT a
VK_TOOL_PURPOSE_VALIDATION_BIT_EXT),
(String
"VK_TOOL_PURPOSE_PROFILING_BIT_EXT",
VkToolPurposeBitmaskEXT a -> ReadPrec (VkToolPurposeBitmaskEXT a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkToolPurposeBitmaskEXT a
forall (a :: FlagType). VkToolPurposeBitmaskEXT a
VK_TOOL_PURPOSE_PROFILING_BIT_EXT),
(String
"VK_TOOL_PURPOSE_TRACING_BIT_EXT",
VkToolPurposeBitmaskEXT a -> ReadPrec (VkToolPurposeBitmaskEXT a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkToolPurposeBitmaskEXT a
forall (a :: FlagType). VkToolPurposeBitmaskEXT a
VK_TOOL_PURPOSE_TRACING_BIT_EXT),
(String
"VK_TOOL_PURPOSE_ADDITIONAL_FEATURES_BIT_EXT",
VkToolPurposeBitmaskEXT a -> ReadPrec (VkToolPurposeBitmaskEXT a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkToolPurposeBitmaskEXT a
forall (a :: FlagType). VkToolPurposeBitmaskEXT a
VK_TOOL_PURPOSE_ADDITIONAL_FEATURES_BIT_EXT),
(String
"VK_TOOL_PURPOSE_MODIFYING_FEATURES_BIT_EXT",
VkToolPurposeBitmaskEXT a -> ReadPrec (VkToolPurposeBitmaskEXT a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkToolPurposeBitmaskEXT a
forall (a :: FlagType). VkToolPurposeBitmaskEXT a
VK_TOOL_PURPOSE_MODIFYING_FEATURES_BIT_EXT)]
ReadPrec (VkToolPurposeBitmaskEXT a)
-> ReadPrec (VkToolPurposeBitmaskEXT a)
-> ReadPrec (VkToolPurposeBitmaskEXT a)
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
Int
-> ReadPrec (VkToolPurposeBitmaskEXT a)
-> ReadPrec (VkToolPurposeBitmaskEXT a)
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
(Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkToolPurposeBitmaskEXT") ReadPrec ()
-> ReadPrec (VkToolPurposeBitmaskEXT a)
-> ReadPrec (VkToolPurposeBitmaskEXT a)
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
(VkFlags -> VkToolPurposeBitmaskEXT a
forall (a :: FlagType). VkFlags -> VkToolPurposeBitmaskEXT a
VkToolPurposeBitmaskEXT (VkFlags -> VkToolPurposeBitmaskEXT a)
-> ReadPrec VkFlags -> ReadPrec (VkToolPurposeBitmaskEXT a)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ReadPrec VkFlags -> ReadPrec VkFlags
forall a. ReadPrec a -> ReadPrec a
step ReadPrec VkFlags
forall a. Read a => ReadPrec a
readPrec)))
pattern VK_TOOL_PURPOSE_VALIDATION_BIT_EXT ::
VkToolPurposeBitmaskEXT a
pattern $bVK_TOOL_PURPOSE_VALIDATION_BIT_EXT :: forall (a :: FlagType). VkToolPurposeBitmaskEXT a
$mVK_TOOL_PURPOSE_VALIDATION_BIT_EXT :: forall {r} {a :: FlagType}.
VkToolPurposeBitmaskEXT a -> (Void# -> r) -> (Void# -> r) -> r
VK_TOOL_PURPOSE_VALIDATION_BIT_EXT =
VkToolPurposeBitmaskEXT 1
pattern VK_TOOL_PURPOSE_PROFILING_BIT_EXT ::
VkToolPurposeBitmaskEXT a
pattern $bVK_TOOL_PURPOSE_PROFILING_BIT_EXT :: forall (a :: FlagType). VkToolPurposeBitmaskEXT a
$mVK_TOOL_PURPOSE_PROFILING_BIT_EXT :: forall {r} {a :: FlagType}.
VkToolPurposeBitmaskEXT a -> (Void# -> r) -> (Void# -> r) -> r
VK_TOOL_PURPOSE_PROFILING_BIT_EXT =
VkToolPurposeBitmaskEXT 2
pattern VK_TOOL_PURPOSE_TRACING_BIT_EXT ::
VkToolPurposeBitmaskEXT a
pattern $bVK_TOOL_PURPOSE_TRACING_BIT_EXT :: forall (a :: FlagType). VkToolPurposeBitmaskEXT a
$mVK_TOOL_PURPOSE_TRACING_BIT_EXT :: forall {r} {a :: FlagType}.
VkToolPurposeBitmaskEXT a -> (Void# -> r) -> (Void# -> r) -> r
VK_TOOL_PURPOSE_TRACING_BIT_EXT = VkToolPurposeBitmaskEXT 4
pattern VK_TOOL_PURPOSE_ADDITIONAL_FEATURES_BIT_EXT ::
VkToolPurposeBitmaskEXT a
pattern $bVK_TOOL_PURPOSE_ADDITIONAL_FEATURES_BIT_EXT :: forall (a :: FlagType). VkToolPurposeBitmaskEXT a
$mVK_TOOL_PURPOSE_ADDITIONAL_FEATURES_BIT_EXT :: forall {r} {a :: FlagType}.
VkToolPurposeBitmaskEXT a -> (Void# -> r) -> (Void# -> r) -> r
VK_TOOL_PURPOSE_ADDITIONAL_FEATURES_BIT_EXT =
VkToolPurposeBitmaskEXT 8
pattern VK_TOOL_PURPOSE_MODIFYING_FEATURES_BIT_EXT ::
VkToolPurposeBitmaskEXT a
pattern $bVK_TOOL_PURPOSE_MODIFYING_FEATURES_BIT_EXT :: forall (a :: FlagType). VkToolPurposeBitmaskEXT a
$mVK_TOOL_PURPOSE_MODIFYING_FEATURES_BIT_EXT :: forall {r} {a :: FlagType}.
VkToolPurposeBitmaskEXT a -> (Void# -> r) -> (Void# -> r) -> r
VK_TOOL_PURPOSE_MODIFYING_FEATURES_BIT_EXT =
VkToolPurposeBitmaskEXT 16