{-# 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.Sparse
(VkSparseImageFormatBitmask(VkSparseImageFormatBitmask,
VkSparseImageFormatFlags, VkSparseImageFormatFlagBits,
VK_SPARSE_IMAGE_FORMAT_SINGLE_MIPTAIL_BIT,
VK_SPARSE_IMAGE_FORMAT_ALIGNED_MIP_SIZE_BIT,
VK_SPARSE_IMAGE_FORMAT_NONSTANDARD_BLOCK_SIZE_BIT),
VkSparseImageFormatFlags, VkSparseImageFormatFlagBits,
VkSparseMemoryBindBitmask(VkSparseMemoryBindBitmask,
VkSparseMemoryBindFlags, VkSparseMemoryBindFlagBits,
VK_SPARSE_MEMORY_BIND_METADATA_BIT),
VkSparseMemoryBindFlags, VkSparseMemoryBindFlagBits)
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 VkSparseImageFormatBitmask (a ::
FlagType) = VkSparseImageFormatBitmask VkFlags
deriving (VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
(VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool)
-> (VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool)
-> Eq (VkSparseImageFormatBitmask a)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
/= :: VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
$c/= :: forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
== :: VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
$c== :: forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
Eq, Eq (VkSparseImageFormatBitmask a)
Eq (VkSparseImageFormatBitmask a)
-> (VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Ordering)
-> (VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool)
-> (VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool)
-> (VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool)
-> (VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool)
-> (VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> VkSparseImageFormatBitmask a)
-> (VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> VkSparseImageFormatBitmask a)
-> Ord (VkSparseImageFormatBitmask a)
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Ordering
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> VkSparseImageFormatBitmask 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 (VkSparseImageFormatBitmask a)
forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Ordering
forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> VkSparseImageFormatBitmask a
min :: VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> VkSparseImageFormatBitmask a
$cmin :: forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> VkSparseImageFormatBitmask a
max :: VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> VkSparseImageFormatBitmask a
$cmax :: forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> VkSparseImageFormatBitmask a
>= :: VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
$c>= :: forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
> :: VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
$c> :: forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
<= :: VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
$c<= :: forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
< :: VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
$c< :: forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Bool
compare :: VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Ordering
$ccompare :: forall (a :: FlagType).
VkSparseImageFormatBitmask a
-> VkSparseImageFormatBitmask a -> Ordering
Ord, Ptr (VkSparseImageFormatBitmask a)
-> IO (VkSparseImageFormatBitmask a)
Ptr (VkSparseImageFormatBitmask a)
-> Int -> IO (VkSparseImageFormatBitmask a)
Ptr (VkSparseImageFormatBitmask a)
-> Int -> VkSparseImageFormatBitmask a -> IO ()
Ptr (VkSparseImageFormatBitmask a)
-> VkSparseImageFormatBitmask a -> IO ()
VkSparseImageFormatBitmask a -> Int
(VkSparseImageFormatBitmask a -> Int)
-> (VkSparseImageFormatBitmask a -> Int)
-> (Ptr (VkSparseImageFormatBitmask a)
-> Int -> IO (VkSparseImageFormatBitmask a))
-> (Ptr (VkSparseImageFormatBitmask a)
-> Int -> VkSparseImageFormatBitmask a -> IO ())
-> (forall b. Ptr b -> Int -> IO (VkSparseImageFormatBitmask a))
-> (forall b.
Ptr b -> Int -> VkSparseImageFormatBitmask a -> IO ())
-> (Ptr (VkSparseImageFormatBitmask a)
-> IO (VkSparseImageFormatBitmask a))
-> (Ptr (VkSparseImageFormatBitmask a)
-> VkSparseImageFormatBitmask a -> IO ())
-> Storable (VkSparseImageFormatBitmask a)
forall b. Ptr b -> Int -> IO (VkSparseImageFormatBitmask a)
forall b. Ptr b -> Int -> VkSparseImageFormatBitmask 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 (VkSparseImageFormatBitmask a)
-> IO (VkSparseImageFormatBitmask a)
forall (a :: FlagType).
Ptr (VkSparseImageFormatBitmask a)
-> Int -> IO (VkSparseImageFormatBitmask a)
forall (a :: FlagType).
Ptr (VkSparseImageFormatBitmask a)
-> Int -> VkSparseImageFormatBitmask a -> IO ()
forall (a :: FlagType).
Ptr (VkSparseImageFormatBitmask a)
-> VkSparseImageFormatBitmask a -> IO ()
forall (a :: FlagType). VkSparseImageFormatBitmask a -> Int
forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkSparseImageFormatBitmask a)
forall (a :: FlagType) b.
Ptr b -> Int -> VkSparseImageFormatBitmask a -> IO ()
poke :: Ptr (VkSparseImageFormatBitmask a)
-> VkSparseImageFormatBitmask a -> IO ()
$cpoke :: forall (a :: FlagType).
Ptr (VkSparseImageFormatBitmask a)
-> VkSparseImageFormatBitmask a -> IO ()
peek :: Ptr (VkSparseImageFormatBitmask a)
-> IO (VkSparseImageFormatBitmask a)
$cpeek :: forall (a :: FlagType).
Ptr (VkSparseImageFormatBitmask a)
-> IO (VkSparseImageFormatBitmask a)
pokeByteOff :: forall b. Ptr b -> Int -> VkSparseImageFormatBitmask a -> IO ()
$cpokeByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> VkSparseImageFormatBitmask a -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO (VkSparseImageFormatBitmask a)
$cpeekByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkSparseImageFormatBitmask a)
pokeElemOff :: Ptr (VkSparseImageFormatBitmask a)
-> Int -> VkSparseImageFormatBitmask a -> IO ()
$cpokeElemOff :: forall (a :: FlagType).
Ptr (VkSparseImageFormatBitmask a)
-> Int -> VkSparseImageFormatBitmask a -> IO ()
peekElemOff :: Ptr (VkSparseImageFormatBitmask a)
-> Int -> IO (VkSparseImageFormatBitmask a)
$cpeekElemOff :: forall (a :: FlagType).
Ptr (VkSparseImageFormatBitmask a)
-> Int -> IO (VkSparseImageFormatBitmask a)
alignment :: VkSparseImageFormatBitmask a -> Int
$calignment :: forall (a :: FlagType). VkSparseImageFormatBitmask a -> Int
sizeOf :: VkSparseImageFormatBitmask a -> Int
$csizeOf :: forall (a :: FlagType). VkSparseImageFormatBitmask a -> Int
Storable)
type VkSparseImageFormatFlags = VkSparseImageFormatBitmask FlagMask
type VkSparseImageFormatFlagBits =
VkSparseImageFormatBitmask FlagBit
pattern VkSparseImageFormatFlagBits ::
VkFlags -> VkSparseImageFormatBitmask FlagBit
pattern $bVkSparseImageFormatFlagBits :: VkFlags -> VkSparseImageFormatBitmask FlagBit
$mVkSparseImageFormatFlagBits :: forall {r}.
VkSparseImageFormatBitmask FlagBit
-> (VkFlags -> r) -> (Void# -> r) -> r
VkSparseImageFormatFlagBits n =
VkSparseImageFormatBitmask n
pattern VkSparseImageFormatFlags ::
VkFlags -> VkSparseImageFormatBitmask FlagMask
pattern $bVkSparseImageFormatFlags :: VkFlags -> VkSparseImageFormatBitmask FlagMask
$mVkSparseImageFormatFlags :: forall {r}.
VkSparseImageFormatBitmask FlagMask
-> (VkFlags -> r) -> (Void# -> r) -> r
VkSparseImageFormatFlags n = VkSparseImageFormatBitmask n
deriving instance Bits (VkSparseImageFormatBitmask FlagMask)
deriving instance FiniteBits (VkSparseImageFormatBitmask FlagMask)
instance Show (VkSparseImageFormatBitmask a) where
showsPrec :: Int -> VkSparseImageFormatBitmask a -> ShowS
showsPrec Int
_ VkSparseImageFormatBitmask a
VK_SPARSE_IMAGE_FORMAT_SINGLE_MIPTAIL_BIT
= String -> ShowS
showString String
"VK_SPARSE_IMAGE_FORMAT_SINGLE_MIPTAIL_BIT"
showsPrec Int
_ VkSparseImageFormatBitmask a
VK_SPARSE_IMAGE_FORMAT_ALIGNED_MIP_SIZE_BIT
= String -> ShowS
showString String
"VK_SPARSE_IMAGE_FORMAT_ALIGNED_MIP_SIZE_BIT"
showsPrec Int
_ VkSparseImageFormatBitmask a
VK_SPARSE_IMAGE_FORMAT_NONSTANDARD_BLOCK_SIZE_BIT
= String -> ShowS
showString String
"VK_SPARSE_IMAGE_FORMAT_NONSTANDARD_BLOCK_SIZE_BIT"
showsPrec Int
p (VkSparseImageFormatBitmask VkFlags
x)
= Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
(String -> ShowS
showString String
"VkSparseImageFormatBitmask " 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 (VkSparseImageFormatBitmask a) where
readPrec :: ReadPrec (VkSparseImageFormatBitmask a)
readPrec
= ReadPrec (VkSparseImageFormatBitmask a)
-> ReadPrec (VkSparseImageFormatBitmask a)
forall a. ReadPrec a -> ReadPrec a
parens
([(String, ReadPrec (VkSparseImageFormatBitmask a))]
-> ReadPrec (VkSparseImageFormatBitmask a)
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
[(String
"VK_SPARSE_IMAGE_FORMAT_SINGLE_MIPTAIL_BIT",
VkSparseImageFormatBitmask a
-> ReadPrec (VkSparseImageFormatBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSparseImageFormatBitmask a
forall (a :: FlagType). VkSparseImageFormatBitmask a
VK_SPARSE_IMAGE_FORMAT_SINGLE_MIPTAIL_BIT),
(String
"VK_SPARSE_IMAGE_FORMAT_ALIGNED_MIP_SIZE_BIT",
VkSparseImageFormatBitmask a
-> ReadPrec (VkSparseImageFormatBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSparseImageFormatBitmask a
forall (a :: FlagType). VkSparseImageFormatBitmask a
VK_SPARSE_IMAGE_FORMAT_ALIGNED_MIP_SIZE_BIT),
(String
"VK_SPARSE_IMAGE_FORMAT_NONSTANDARD_BLOCK_SIZE_BIT",
VkSparseImageFormatBitmask a
-> ReadPrec (VkSparseImageFormatBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSparseImageFormatBitmask a
forall (a :: FlagType). VkSparseImageFormatBitmask a
VK_SPARSE_IMAGE_FORMAT_NONSTANDARD_BLOCK_SIZE_BIT)]
ReadPrec (VkSparseImageFormatBitmask a)
-> ReadPrec (VkSparseImageFormatBitmask a)
-> ReadPrec (VkSparseImageFormatBitmask a)
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
Int
-> ReadPrec (VkSparseImageFormatBitmask a)
-> ReadPrec (VkSparseImageFormatBitmask a)
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
(Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkSparseImageFormatBitmask") ReadPrec ()
-> ReadPrec (VkSparseImageFormatBitmask a)
-> ReadPrec (VkSparseImageFormatBitmask a)
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
(VkFlags -> VkSparseImageFormatBitmask a
forall (a :: FlagType). VkFlags -> VkSparseImageFormatBitmask a
VkSparseImageFormatBitmask (VkFlags -> VkSparseImageFormatBitmask a)
-> ReadPrec VkFlags -> ReadPrec (VkSparseImageFormatBitmask 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_SPARSE_IMAGE_FORMAT_SINGLE_MIPTAIL_BIT ::
VkSparseImageFormatBitmask a
pattern $bVK_SPARSE_IMAGE_FORMAT_SINGLE_MIPTAIL_BIT :: forall (a :: FlagType). VkSparseImageFormatBitmask a
$mVK_SPARSE_IMAGE_FORMAT_SINGLE_MIPTAIL_BIT :: forall {r} {a :: FlagType}.
VkSparseImageFormatBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_SPARSE_IMAGE_FORMAT_SINGLE_MIPTAIL_BIT =
VkSparseImageFormatBitmask 1
pattern VK_SPARSE_IMAGE_FORMAT_ALIGNED_MIP_SIZE_BIT ::
VkSparseImageFormatBitmask a
pattern $bVK_SPARSE_IMAGE_FORMAT_ALIGNED_MIP_SIZE_BIT :: forall (a :: FlagType). VkSparseImageFormatBitmask a
$mVK_SPARSE_IMAGE_FORMAT_ALIGNED_MIP_SIZE_BIT :: forall {r} {a :: FlagType}.
VkSparseImageFormatBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_SPARSE_IMAGE_FORMAT_ALIGNED_MIP_SIZE_BIT =
VkSparseImageFormatBitmask 2
pattern VK_SPARSE_IMAGE_FORMAT_NONSTANDARD_BLOCK_SIZE_BIT ::
VkSparseImageFormatBitmask a
pattern $bVK_SPARSE_IMAGE_FORMAT_NONSTANDARD_BLOCK_SIZE_BIT :: forall (a :: FlagType). VkSparseImageFormatBitmask a
$mVK_SPARSE_IMAGE_FORMAT_NONSTANDARD_BLOCK_SIZE_BIT :: forall {r} {a :: FlagType}.
VkSparseImageFormatBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_SPARSE_IMAGE_FORMAT_NONSTANDARD_BLOCK_SIZE_BIT =
VkSparseImageFormatBitmask 4
newtype VkSparseMemoryBindBitmask (a ::
FlagType) = VkSparseMemoryBindBitmask VkFlags
deriving (VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
(VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> Bool)
-> (VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> Bool)
-> Eq (VkSparseMemoryBindBitmask a)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall (a :: FlagType).
VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
/= :: VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
$c/= :: forall (a :: FlagType).
VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
== :: VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
$c== :: forall (a :: FlagType).
VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
Eq, Eq (VkSparseMemoryBindBitmask a)
Eq (VkSparseMemoryBindBitmask a)
-> (VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> Ordering)
-> (VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> Bool)
-> (VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> Bool)
-> (VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> Bool)
-> (VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> Bool)
-> (VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a)
-> (VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a)
-> Ord (VkSparseMemoryBindBitmask a)
VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> Ordering
VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask 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 (VkSparseMemoryBindBitmask a)
forall (a :: FlagType).
VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
forall (a :: FlagType).
VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> Ordering
forall (a :: FlagType).
VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a
min :: VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a
$cmin :: forall (a :: FlagType).
VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a
max :: VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a
$cmax :: forall (a :: FlagType).
VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a
>= :: VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
$c>= :: forall (a :: FlagType).
VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
> :: VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
$c> :: forall (a :: FlagType).
VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
<= :: VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
$c<= :: forall (a :: FlagType).
VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
< :: VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
$c< :: forall (a :: FlagType).
VkSparseMemoryBindBitmask a -> VkSparseMemoryBindBitmask a -> Bool
compare :: VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> Ordering
$ccompare :: forall (a :: FlagType).
VkSparseMemoryBindBitmask a
-> VkSparseMemoryBindBitmask a -> Ordering
Ord, Ptr (VkSparseMemoryBindBitmask a)
-> IO (VkSparseMemoryBindBitmask a)
Ptr (VkSparseMemoryBindBitmask a)
-> Int -> IO (VkSparseMemoryBindBitmask a)
Ptr (VkSparseMemoryBindBitmask a)
-> Int -> VkSparseMemoryBindBitmask a -> IO ()
Ptr (VkSparseMemoryBindBitmask a)
-> VkSparseMemoryBindBitmask a -> IO ()
VkSparseMemoryBindBitmask a -> Int
(VkSparseMemoryBindBitmask a -> Int)
-> (VkSparseMemoryBindBitmask a -> Int)
-> (Ptr (VkSparseMemoryBindBitmask a)
-> Int -> IO (VkSparseMemoryBindBitmask a))
-> (Ptr (VkSparseMemoryBindBitmask a)
-> Int -> VkSparseMemoryBindBitmask a -> IO ())
-> (forall b. Ptr b -> Int -> IO (VkSparseMemoryBindBitmask a))
-> (forall b. Ptr b -> Int -> VkSparseMemoryBindBitmask a -> IO ())
-> (Ptr (VkSparseMemoryBindBitmask a)
-> IO (VkSparseMemoryBindBitmask a))
-> (Ptr (VkSparseMemoryBindBitmask a)
-> VkSparseMemoryBindBitmask a -> IO ())
-> Storable (VkSparseMemoryBindBitmask a)
forall b. Ptr b -> Int -> IO (VkSparseMemoryBindBitmask a)
forall b. Ptr b -> Int -> VkSparseMemoryBindBitmask 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 (VkSparseMemoryBindBitmask a)
-> IO (VkSparseMemoryBindBitmask a)
forall (a :: FlagType).
Ptr (VkSparseMemoryBindBitmask a)
-> Int -> IO (VkSparseMemoryBindBitmask a)
forall (a :: FlagType).
Ptr (VkSparseMemoryBindBitmask a)
-> Int -> VkSparseMemoryBindBitmask a -> IO ()
forall (a :: FlagType).
Ptr (VkSparseMemoryBindBitmask a)
-> VkSparseMemoryBindBitmask a -> IO ()
forall (a :: FlagType). VkSparseMemoryBindBitmask a -> Int
forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkSparseMemoryBindBitmask a)
forall (a :: FlagType) b.
Ptr b -> Int -> VkSparseMemoryBindBitmask a -> IO ()
poke :: Ptr (VkSparseMemoryBindBitmask a)
-> VkSparseMemoryBindBitmask a -> IO ()
$cpoke :: forall (a :: FlagType).
Ptr (VkSparseMemoryBindBitmask a)
-> VkSparseMemoryBindBitmask a -> IO ()
peek :: Ptr (VkSparseMemoryBindBitmask a)
-> IO (VkSparseMemoryBindBitmask a)
$cpeek :: forall (a :: FlagType).
Ptr (VkSparseMemoryBindBitmask a)
-> IO (VkSparseMemoryBindBitmask a)
pokeByteOff :: forall b. Ptr b -> Int -> VkSparseMemoryBindBitmask a -> IO ()
$cpokeByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> VkSparseMemoryBindBitmask a -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO (VkSparseMemoryBindBitmask a)
$cpeekByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkSparseMemoryBindBitmask a)
pokeElemOff :: Ptr (VkSparseMemoryBindBitmask a)
-> Int -> VkSparseMemoryBindBitmask a -> IO ()
$cpokeElemOff :: forall (a :: FlagType).
Ptr (VkSparseMemoryBindBitmask a)
-> Int -> VkSparseMemoryBindBitmask a -> IO ()
peekElemOff :: Ptr (VkSparseMemoryBindBitmask a)
-> Int -> IO (VkSparseMemoryBindBitmask a)
$cpeekElemOff :: forall (a :: FlagType).
Ptr (VkSparseMemoryBindBitmask a)
-> Int -> IO (VkSparseMemoryBindBitmask a)
alignment :: VkSparseMemoryBindBitmask a -> Int
$calignment :: forall (a :: FlagType). VkSparseMemoryBindBitmask a -> Int
sizeOf :: VkSparseMemoryBindBitmask a -> Int
$csizeOf :: forall (a :: FlagType). VkSparseMemoryBindBitmask a -> Int
Storable)
type VkSparseMemoryBindFlags = VkSparseMemoryBindBitmask FlagMask
type VkSparseMemoryBindFlagBits = VkSparseMemoryBindBitmask FlagBit
pattern VkSparseMemoryBindFlagBits ::
VkFlags -> VkSparseMemoryBindBitmask FlagBit
pattern $bVkSparseMemoryBindFlagBits :: VkFlags -> VkSparseMemoryBindBitmask FlagBit
$mVkSparseMemoryBindFlagBits :: forall {r}.
VkSparseMemoryBindBitmask FlagBit
-> (VkFlags -> r) -> (Void# -> r) -> r
VkSparseMemoryBindFlagBits n = VkSparseMemoryBindBitmask n
pattern VkSparseMemoryBindFlags ::
VkFlags -> VkSparseMemoryBindBitmask FlagMask
pattern $bVkSparseMemoryBindFlags :: VkFlags -> VkSparseMemoryBindBitmask FlagMask
$mVkSparseMemoryBindFlags :: forall {r}.
VkSparseMemoryBindBitmask FlagMask
-> (VkFlags -> r) -> (Void# -> r) -> r
VkSparseMemoryBindFlags n = VkSparseMemoryBindBitmask n
deriving instance Bits (VkSparseMemoryBindBitmask FlagMask)
deriving instance FiniteBits (VkSparseMemoryBindBitmask FlagMask)
instance Show (VkSparseMemoryBindBitmask a) where
showsPrec :: Int -> VkSparseMemoryBindBitmask a -> ShowS
showsPrec Int
_ VkSparseMemoryBindBitmask a
VK_SPARSE_MEMORY_BIND_METADATA_BIT
= String -> ShowS
showString String
"VK_SPARSE_MEMORY_BIND_METADATA_BIT"
showsPrec Int
p (VkSparseMemoryBindBitmask VkFlags
x)
= Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
(String -> ShowS
showString String
"VkSparseMemoryBindBitmask " 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 (VkSparseMemoryBindBitmask a) where
readPrec :: ReadPrec (VkSparseMemoryBindBitmask a)
readPrec
= ReadPrec (VkSparseMemoryBindBitmask a)
-> ReadPrec (VkSparseMemoryBindBitmask a)
forall a. ReadPrec a -> ReadPrec a
parens
([(String, ReadPrec (VkSparseMemoryBindBitmask a))]
-> ReadPrec (VkSparseMemoryBindBitmask a)
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
[(String
"VK_SPARSE_MEMORY_BIND_METADATA_BIT",
VkSparseMemoryBindBitmask a
-> ReadPrec (VkSparseMemoryBindBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkSparseMemoryBindBitmask a
forall (a :: FlagType). VkSparseMemoryBindBitmask a
VK_SPARSE_MEMORY_BIND_METADATA_BIT)]
ReadPrec (VkSparseMemoryBindBitmask a)
-> ReadPrec (VkSparseMemoryBindBitmask a)
-> ReadPrec (VkSparseMemoryBindBitmask a)
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
Int
-> ReadPrec (VkSparseMemoryBindBitmask a)
-> ReadPrec (VkSparseMemoryBindBitmask a)
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
(Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkSparseMemoryBindBitmask") ReadPrec ()
-> ReadPrec (VkSparseMemoryBindBitmask a)
-> ReadPrec (VkSparseMemoryBindBitmask a)
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
(VkFlags -> VkSparseMemoryBindBitmask a
forall (a :: FlagType). VkFlags -> VkSparseMemoryBindBitmask a
VkSparseMemoryBindBitmask (VkFlags -> VkSparseMemoryBindBitmask a)
-> ReadPrec VkFlags -> ReadPrec (VkSparseMemoryBindBitmask 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_SPARSE_MEMORY_BIND_METADATA_BIT ::
VkSparseMemoryBindBitmask a
pattern $bVK_SPARSE_MEMORY_BIND_METADATA_BIT :: forall (a :: FlagType). VkSparseMemoryBindBitmask a
$mVK_SPARSE_MEMORY_BIND_METADATA_BIT :: forall {r} {a :: FlagType}.
VkSparseMemoryBindBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_SPARSE_MEMORY_BIND_METADATA_BIT =
VkSparseMemoryBindBitmask 1