{-# 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)))

-- | Image uses a single mip tail region for all array layers
--
--   bitpos = @0@
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

-- | Image requires mip level dimensions to be an integer multiple of the sparse image block dimensions for non-tail mip levels.
--
--   bitpos = @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

-- | Image uses a non-standard sparse image block dimensions
--
--   bitpos = @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)))

-- | Operation binds resource metadata to memory
--
--   bitpos = @0@
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