{-# 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.Buffer
       (VkBufferCreateBitmask(VkBufferCreateBitmask, VkBufferCreateFlags,
                              VkBufferCreateFlagBits, VK_BUFFER_CREATE_SPARSE_BINDING_BIT,
                              VK_BUFFER_CREATE_SPARSE_RESIDENCY_BIT,
                              VK_BUFFER_CREATE_SPARSE_ALIASED_BIT),
        VkBufferCreateFlags, VkBufferCreateFlagBits,
        VkBufferUsageBitmask(VkBufferUsageBitmask, VkBufferUsageFlags,
                             VkBufferUsageFlagBits, VK_BUFFER_USAGE_TRANSFER_SRC_BIT,
                             VK_BUFFER_USAGE_TRANSFER_DST_BIT,
                             VK_BUFFER_USAGE_UNIFORM_TEXEL_BUFFER_BIT,
                             VK_BUFFER_USAGE_STORAGE_TEXEL_BUFFER_BIT,
                             VK_BUFFER_USAGE_UNIFORM_BUFFER_BIT,
                             VK_BUFFER_USAGE_STORAGE_BUFFER_BIT,
                             VK_BUFFER_USAGE_INDEX_BUFFER_BIT,
                             VK_BUFFER_USAGE_VERTEX_BUFFER_BIT,
                             VK_BUFFER_USAGE_INDIRECT_BUFFER_BIT),
        VkBufferUsageFlags, VkBufferUsageFlagBits)
       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 VkBufferCreateBitmask (a ::
                                 FlagType) = VkBufferCreateBitmask VkFlags
                                             deriving (VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
(VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool)
-> (VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool)
-> Eq (VkBufferCreateBitmask a)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall (a :: FlagType).
VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
/= :: VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
$c/= :: forall (a :: FlagType).
VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
== :: VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
$c== :: forall (a :: FlagType).
VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
Eq, Eq (VkBufferCreateBitmask a)
Eq (VkBufferCreateBitmask a)
-> (VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Ordering)
-> (VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool)
-> (VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool)
-> (VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool)
-> (VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool)
-> (VkBufferCreateBitmask a
    -> VkBufferCreateBitmask a -> VkBufferCreateBitmask a)
-> (VkBufferCreateBitmask a
    -> VkBufferCreateBitmask a -> VkBufferCreateBitmask a)
-> Ord (VkBufferCreateBitmask a)
VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Ordering
VkBufferCreateBitmask a
-> VkBufferCreateBitmask a -> VkBufferCreateBitmask 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 (VkBufferCreateBitmask a)
forall (a :: FlagType).
VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
forall (a :: FlagType).
VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Ordering
forall (a :: FlagType).
VkBufferCreateBitmask a
-> VkBufferCreateBitmask a -> VkBufferCreateBitmask a
min :: VkBufferCreateBitmask a
-> VkBufferCreateBitmask a -> VkBufferCreateBitmask a
$cmin :: forall (a :: FlagType).
VkBufferCreateBitmask a
-> VkBufferCreateBitmask a -> VkBufferCreateBitmask a
max :: VkBufferCreateBitmask a
-> VkBufferCreateBitmask a -> VkBufferCreateBitmask a
$cmax :: forall (a :: FlagType).
VkBufferCreateBitmask a
-> VkBufferCreateBitmask a -> VkBufferCreateBitmask a
>= :: VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
$c>= :: forall (a :: FlagType).
VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
> :: VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
$c> :: forall (a :: FlagType).
VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
<= :: VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
$c<= :: forall (a :: FlagType).
VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
< :: VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
$c< :: forall (a :: FlagType).
VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Bool
compare :: VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Ordering
$ccompare :: forall (a :: FlagType).
VkBufferCreateBitmask a -> VkBufferCreateBitmask a -> Ordering
Ord, Ptr (VkBufferCreateBitmask a) -> IO (VkBufferCreateBitmask a)
Ptr (VkBufferCreateBitmask a)
-> Int -> IO (VkBufferCreateBitmask a)
Ptr (VkBufferCreateBitmask a)
-> Int -> VkBufferCreateBitmask a -> IO ()
Ptr (VkBufferCreateBitmask a) -> VkBufferCreateBitmask a -> IO ()
VkBufferCreateBitmask a -> Int
(VkBufferCreateBitmask a -> Int)
-> (VkBufferCreateBitmask a -> Int)
-> (Ptr (VkBufferCreateBitmask a)
    -> Int -> IO (VkBufferCreateBitmask a))
-> (Ptr (VkBufferCreateBitmask a)
    -> Int -> VkBufferCreateBitmask a -> IO ())
-> (forall b. Ptr b -> Int -> IO (VkBufferCreateBitmask a))
-> (forall b. Ptr b -> Int -> VkBufferCreateBitmask a -> IO ())
-> (Ptr (VkBufferCreateBitmask a) -> IO (VkBufferCreateBitmask a))
-> (Ptr (VkBufferCreateBitmask a)
    -> VkBufferCreateBitmask a -> IO ())
-> Storable (VkBufferCreateBitmask a)
forall b. Ptr b -> Int -> IO (VkBufferCreateBitmask a)
forall b. Ptr b -> Int -> VkBufferCreateBitmask 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 (VkBufferCreateBitmask a) -> IO (VkBufferCreateBitmask a)
forall (a :: FlagType).
Ptr (VkBufferCreateBitmask a)
-> Int -> IO (VkBufferCreateBitmask a)
forall (a :: FlagType).
Ptr (VkBufferCreateBitmask a)
-> Int -> VkBufferCreateBitmask a -> IO ()
forall (a :: FlagType).
Ptr (VkBufferCreateBitmask a) -> VkBufferCreateBitmask a -> IO ()
forall (a :: FlagType). VkBufferCreateBitmask a -> Int
forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkBufferCreateBitmask a)
forall (a :: FlagType) b.
Ptr b -> Int -> VkBufferCreateBitmask a -> IO ()
poke :: Ptr (VkBufferCreateBitmask a) -> VkBufferCreateBitmask a -> IO ()
$cpoke :: forall (a :: FlagType).
Ptr (VkBufferCreateBitmask a) -> VkBufferCreateBitmask a -> IO ()
peek :: Ptr (VkBufferCreateBitmask a) -> IO (VkBufferCreateBitmask a)
$cpeek :: forall (a :: FlagType).
Ptr (VkBufferCreateBitmask a) -> IO (VkBufferCreateBitmask a)
pokeByteOff :: forall b. Ptr b -> Int -> VkBufferCreateBitmask a -> IO ()
$cpokeByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> VkBufferCreateBitmask a -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO (VkBufferCreateBitmask a)
$cpeekByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkBufferCreateBitmask a)
pokeElemOff :: Ptr (VkBufferCreateBitmask a)
-> Int -> VkBufferCreateBitmask a -> IO ()
$cpokeElemOff :: forall (a :: FlagType).
Ptr (VkBufferCreateBitmask a)
-> Int -> VkBufferCreateBitmask a -> IO ()
peekElemOff :: Ptr (VkBufferCreateBitmask a)
-> Int -> IO (VkBufferCreateBitmask a)
$cpeekElemOff :: forall (a :: FlagType).
Ptr (VkBufferCreateBitmask a)
-> Int -> IO (VkBufferCreateBitmask a)
alignment :: VkBufferCreateBitmask a -> Int
$calignment :: forall (a :: FlagType). VkBufferCreateBitmask a -> Int
sizeOf :: VkBufferCreateBitmask a -> Int
$csizeOf :: forall (a :: FlagType). VkBufferCreateBitmask a -> Int
Storable)

type VkBufferCreateFlags = VkBufferCreateBitmask FlagMask

type VkBufferCreateFlagBits = VkBufferCreateBitmask FlagBit

pattern VkBufferCreateFlagBits ::
        VkFlags -> VkBufferCreateBitmask FlagBit

pattern $bVkBufferCreateFlagBits :: VkFlags -> VkBufferCreateBitmask FlagBit
$mVkBufferCreateFlagBits :: forall {r}.
VkBufferCreateBitmask FlagBit
-> (VkFlags -> r) -> (Void# -> r) -> r
VkBufferCreateFlagBits n = VkBufferCreateBitmask n

pattern VkBufferCreateFlags ::
        VkFlags -> VkBufferCreateBitmask FlagMask

pattern $bVkBufferCreateFlags :: VkFlags -> VkBufferCreateBitmask FlagMask
$mVkBufferCreateFlags :: forall {r}.
VkBufferCreateBitmask FlagMask
-> (VkFlags -> r) -> (Void# -> r) -> r
VkBufferCreateFlags n = VkBufferCreateBitmask n

deriving instance Bits (VkBufferCreateBitmask FlagMask)

deriving instance FiniteBits (VkBufferCreateBitmask FlagMask)

instance Show (VkBufferCreateBitmask a) where
    showsPrec :: Int -> VkBufferCreateBitmask a -> ShowS
showsPrec Int
_ VkBufferCreateBitmask a
VK_BUFFER_CREATE_SPARSE_BINDING_BIT
      = String -> ShowS
showString String
"VK_BUFFER_CREATE_SPARSE_BINDING_BIT"
    showsPrec Int
_ VkBufferCreateBitmask a
VK_BUFFER_CREATE_SPARSE_RESIDENCY_BIT
      = String -> ShowS
showString String
"VK_BUFFER_CREATE_SPARSE_RESIDENCY_BIT"
    showsPrec Int
_ VkBufferCreateBitmask a
VK_BUFFER_CREATE_SPARSE_ALIASED_BIT
      = String -> ShowS
showString String
"VK_BUFFER_CREATE_SPARSE_ALIASED_BIT"
    showsPrec Int
p (VkBufferCreateBitmask VkFlags
x)
      = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
          (String -> ShowS
showString String
"VkBufferCreateBitmask " 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 (VkBufferCreateBitmask a) where
    readPrec :: ReadPrec (VkBufferCreateBitmask a)
readPrec
      = ReadPrec (VkBufferCreateBitmask a)
-> ReadPrec (VkBufferCreateBitmask a)
forall a. ReadPrec a -> ReadPrec a
parens
          ([(String, ReadPrec (VkBufferCreateBitmask a))]
-> ReadPrec (VkBufferCreateBitmask a)
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
             [(String
"VK_BUFFER_CREATE_SPARSE_BINDING_BIT",
               VkBufferCreateBitmask a -> ReadPrec (VkBufferCreateBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBufferCreateBitmask a
forall (a :: FlagType). VkBufferCreateBitmask a
VK_BUFFER_CREATE_SPARSE_BINDING_BIT),
              (String
"VK_BUFFER_CREATE_SPARSE_RESIDENCY_BIT",
               VkBufferCreateBitmask a -> ReadPrec (VkBufferCreateBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBufferCreateBitmask a
forall (a :: FlagType). VkBufferCreateBitmask a
VK_BUFFER_CREATE_SPARSE_RESIDENCY_BIT),
              (String
"VK_BUFFER_CREATE_SPARSE_ALIASED_BIT",
               VkBufferCreateBitmask a -> ReadPrec (VkBufferCreateBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBufferCreateBitmask a
forall (a :: FlagType). VkBufferCreateBitmask a
VK_BUFFER_CREATE_SPARSE_ALIASED_BIT)]
             ReadPrec (VkBufferCreateBitmask a)
-> ReadPrec (VkBufferCreateBitmask a)
-> ReadPrec (VkBufferCreateBitmask a)
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
             Int
-> ReadPrec (VkBufferCreateBitmask a)
-> ReadPrec (VkBufferCreateBitmask a)
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
               (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkBufferCreateBitmask") ReadPrec ()
-> ReadPrec (VkBufferCreateBitmask a)
-> ReadPrec (VkBufferCreateBitmask a)
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
                  (VkFlags -> VkBufferCreateBitmask a
forall (a :: FlagType). VkFlags -> VkBufferCreateBitmask a
VkBufferCreateBitmask (VkFlags -> VkBufferCreateBitmask a)
-> ReadPrec VkFlags -> ReadPrec (VkBufferCreateBitmask 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)))

-- | Buffer should support sparse backing
--
--   bitpos = @0@
pattern VK_BUFFER_CREATE_SPARSE_BINDING_BIT ::
        VkBufferCreateBitmask a

pattern $bVK_BUFFER_CREATE_SPARSE_BINDING_BIT :: forall (a :: FlagType). VkBufferCreateBitmask a
$mVK_BUFFER_CREATE_SPARSE_BINDING_BIT :: forall {r} {a :: FlagType}.
VkBufferCreateBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_BUFFER_CREATE_SPARSE_BINDING_BIT =
        VkBufferCreateBitmask 1

-- | Buffer should support sparse backing with partial residency
--
--   bitpos = @1@
pattern VK_BUFFER_CREATE_SPARSE_RESIDENCY_BIT ::
        VkBufferCreateBitmask a

pattern $bVK_BUFFER_CREATE_SPARSE_RESIDENCY_BIT :: forall (a :: FlagType). VkBufferCreateBitmask a
$mVK_BUFFER_CREATE_SPARSE_RESIDENCY_BIT :: forall {r} {a :: FlagType}.
VkBufferCreateBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_BUFFER_CREATE_SPARSE_RESIDENCY_BIT =
        VkBufferCreateBitmask 2

-- | Buffer should support constent data access to physical memory ranges mapped into multiple locations of sparse buffers
--
--   bitpos = @2@
pattern VK_BUFFER_CREATE_SPARSE_ALIASED_BIT ::
        VkBufferCreateBitmask a

pattern $bVK_BUFFER_CREATE_SPARSE_ALIASED_BIT :: forall (a :: FlagType). VkBufferCreateBitmask a
$mVK_BUFFER_CREATE_SPARSE_ALIASED_BIT :: forall {r} {a :: FlagType}.
VkBufferCreateBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_BUFFER_CREATE_SPARSE_ALIASED_BIT =
        VkBufferCreateBitmask 4

newtype VkBufferUsageBitmask (a ::
                                FlagType) = VkBufferUsageBitmask VkFlags
                                            deriving (VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
(VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool)
-> (VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool)
-> Eq (VkBufferUsageBitmask a)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall (a :: FlagType).
VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
/= :: VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
$c/= :: forall (a :: FlagType).
VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
== :: VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
$c== :: forall (a :: FlagType).
VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
Eq, Eq (VkBufferUsageBitmask a)
Eq (VkBufferUsageBitmask a)
-> (VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Ordering)
-> (VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool)
-> (VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool)
-> (VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool)
-> (VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool)
-> (VkBufferUsageBitmask a
    -> VkBufferUsageBitmask a -> VkBufferUsageBitmask a)
-> (VkBufferUsageBitmask a
    -> VkBufferUsageBitmask a -> VkBufferUsageBitmask a)
-> Ord (VkBufferUsageBitmask a)
VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Ordering
VkBufferUsageBitmask a
-> VkBufferUsageBitmask a -> VkBufferUsageBitmask 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 (VkBufferUsageBitmask a)
forall (a :: FlagType).
VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
forall (a :: FlagType).
VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Ordering
forall (a :: FlagType).
VkBufferUsageBitmask a
-> VkBufferUsageBitmask a -> VkBufferUsageBitmask a
min :: VkBufferUsageBitmask a
-> VkBufferUsageBitmask a -> VkBufferUsageBitmask a
$cmin :: forall (a :: FlagType).
VkBufferUsageBitmask a
-> VkBufferUsageBitmask a -> VkBufferUsageBitmask a
max :: VkBufferUsageBitmask a
-> VkBufferUsageBitmask a -> VkBufferUsageBitmask a
$cmax :: forall (a :: FlagType).
VkBufferUsageBitmask a
-> VkBufferUsageBitmask a -> VkBufferUsageBitmask a
>= :: VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
$c>= :: forall (a :: FlagType).
VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
> :: VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
$c> :: forall (a :: FlagType).
VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
<= :: VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
$c<= :: forall (a :: FlagType).
VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
< :: VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
$c< :: forall (a :: FlagType).
VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Bool
compare :: VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Ordering
$ccompare :: forall (a :: FlagType).
VkBufferUsageBitmask a -> VkBufferUsageBitmask a -> Ordering
Ord, Ptr (VkBufferUsageBitmask a) -> IO (VkBufferUsageBitmask a)
Ptr (VkBufferUsageBitmask a) -> Int -> IO (VkBufferUsageBitmask a)
Ptr (VkBufferUsageBitmask a)
-> Int -> VkBufferUsageBitmask a -> IO ()
Ptr (VkBufferUsageBitmask a) -> VkBufferUsageBitmask a -> IO ()
VkBufferUsageBitmask a -> Int
(VkBufferUsageBitmask a -> Int)
-> (VkBufferUsageBitmask a -> Int)
-> (Ptr (VkBufferUsageBitmask a)
    -> Int -> IO (VkBufferUsageBitmask a))
-> (Ptr (VkBufferUsageBitmask a)
    -> Int -> VkBufferUsageBitmask a -> IO ())
-> (forall b. Ptr b -> Int -> IO (VkBufferUsageBitmask a))
-> (forall b. Ptr b -> Int -> VkBufferUsageBitmask a -> IO ())
-> (Ptr (VkBufferUsageBitmask a) -> IO (VkBufferUsageBitmask a))
-> (Ptr (VkBufferUsageBitmask a)
    -> VkBufferUsageBitmask a -> IO ())
-> Storable (VkBufferUsageBitmask a)
forall b. Ptr b -> Int -> IO (VkBufferUsageBitmask a)
forall b. Ptr b -> Int -> VkBufferUsageBitmask 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 (VkBufferUsageBitmask a) -> IO (VkBufferUsageBitmask a)
forall (a :: FlagType).
Ptr (VkBufferUsageBitmask a) -> Int -> IO (VkBufferUsageBitmask a)
forall (a :: FlagType).
Ptr (VkBufferUsageBitmask a)
-> Int -> VkBufferUsageBitmask a -> IO ()
forall (a :: FlagType).
Ptr (VkBufferUsageBitmask a) -> VkBufferUsageBitmask a -> IO ()
forall (a :: FlagType). VkBufferUsageBitmask a -> Int
forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkBufferUsageBitmask a)
forall (a :: FlagType) b.
Ptr b -> Int -> VkBufferUsageBitmask a -> IO ()
poke :: Ptr (VkBufferUsageBitmask a) -> VkBufferUsageBitmask a -> IO ()
$cpoke :: forall (a :: FlagType).
Ptr (VkBufferUsageBitmask a) -> VkBufferUsageBitmask a -> IO ()
peek :: Ptr (VkBufferUsageBitmask a) -> IO (VkBufferUsageBitmask a)
$cpeek :: forall (a :: FlagType).
Ptr (VkBufferUsageBitmask a) -> IO (VkBufferUsageBitmask a)
pokeByteOff :: forall b. Ptr b -> Int -> VkBufferUsageBitmask a -> IO ()
$cpokeByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> VkBufferUsageBitmask a -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO (VkBufferUsageBitmask a)
$cpeekByteOff :: forall (a :: FlagType) b.
Ptr b -> Int -> IO (VkBufferUsageBitmask a)
pokeElemOff :: Ptr (VkBufferUsageBitmask a)
-> Int -> VkBufferUsageBitmask a -> IO ()
$cpokeElemOff :: forall (a :: FlagType).
Ptr (VkBufferUsageBitmask a)
-> Int -> VkBufferUsageBitmask a -> IO ()
peekElemOff :: Ptr (VkBufferUsageBitmask a) -> Int -> IO (VkBufferUsageBitmask a)
$cpeekElemOff :: forall (a :: FlagType).
Ptr (VkBufferUsageBitmask a) -> Int -> IO (VkBufferUsageBitmask a)
alignment :: VkBufferUsageBitmask a -> Int
$calignment :: forall (a :: FlagType). VkBufferUsageBitmask a -> Int
sizeOf :: VkBufferUsageBitmask a -> Int
$csizeOf :: forall (a :: FlagType). VkBufferUsageBitmask a -> Int
Storable)

type VkBufferUsageFlags = VkBufferUsageBitmask FlagMask

type VkBufferUsageFlagBits = VkBufferUsageBitmask FlagBit

pattern VkBufferUsageFlagBits ::
        VkFlags -> VkBufferUsageBitmask FlagBit

pattern $bVkBufferUsageFlagBits :: VkFlags -> VkBufferUsageBitmask FlagBit
$mVkBufferUsageFlagBits :: forall {r}.
VkBufferUsageBitmask FlagBit -> (VkFlags -> r) -> (Void# -> r) -> r
VkBufferUsageFlagBits n = VkBufferUsageBitmask n

pattern VkBufferUsageFlags ::
        VkFlags -> VkBufferUsageBitmask FlagMask

pattern $bVkBufferUsageFlags :: VkFlags -> VkBufferUsageBitmask FlagMask
$mVkBufferUsageFlags :: forall {r}.
VkBufferUsageBitmask FlagMask
-> (VkFlags -> r) -> (Void# -> r) -> r
VkBufferUsageFlags n = VkBufferUsageBitmask n

deriving instance Bits (VkBufferUsageBitmask FlagMask)

deriving instance FiniteBits (VkBufferUsageBitmask FlagMask)

instance Show (VkBufferUsageBitmask a) where
    showsPrec :: Int -> VkBufferUsageBitmask a -> ShowS
showsPrec Int
_ VkBufferUsageBitmask a
VK_BUFFER_USAGE_TRANSFER_SRC_BIT
      = String -> ShowS
showString String
"VK_BUFFER_USAGE_TRANSFER_SRC_BIT"
    showsPrec Int
_ VkBufferUsageBitmask a
VK_BUFFER_USAGE_TRANSFER_DST_BIT
      = String -> ShowS
showString String
"VK_BUFFER_USAGE_TRANSFER_DST_BIT"
    showsPrec Int
_ VkBufferUsageBitmask a
VK_BUFFER_USAGE_UNIFORM_TEXEL_BUFFER_BIT
      = String -> ShowS
showString String
"VK_BUFFER_USAGE_UNIFORM_TEXEL_BUFFER_BIT"
    showsPrec Int
_ VkBufferUsageBitmask a
VK_BUFFER_USAGE_STORAGE_TEXEL_BUFFER_BIT
      = String -> ShowS
showString String
"VK_BUFFER_USAGE_STORAGE_TEXEL_BUFFER_BIT"
    showsPrec Int
_ VkBufferUsageBitmask a
VK_BUFFER_USAGE_UNIFORM_BUFFER_BIT
      = String -> ShowS
showString String
"VK_BUFFER_USAGE_UNIFORM_BUFFER_BIT"
    showsPrec Int
_ VkBufferUsageBitmask a
VK_BUFFER_USAGE_STORAGE_BUFFER_BIT
      = String -> ShowS
showString String
"VK_BUFFER_USAGE_STORAGE_BUFFER_BIT"
    showsPrec Int
_ VkBufferUsageBitmask a
VK_BUFFER_USAGE_INDEX_BUFFER_BIT
      = String -> ShowS
showString String
"VK_BUFFER_USAGE_INDEX_BUFFER_BIT"
    showsPrec Int
_ VkBufferUsageBitmask a
VK_BUFFER_USAGE_VERTEX_BUFFER_BIT
      = String -> ShowS
showString String
"VK_BUFFER_USAGE_VERTEX_BUFFER_BIT"
    showsPrec Int
_ VkBufferUsageBitmask a
VK_BUFFER_USAGE_INDIRECT_BUFFER_BIT
      = String -> ShowS
showString String
"VK_BUFFER_USAGE_INDIRECT_BUFFER_BIT"
    showsPrec Int
p (VkBufferUsageBitmask VkFlags
x)
      = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11)
          (String -> ShowS
showString String
"VkBufferUsageBitmask " 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 (VkBufferUsageBitmask a) where
    readPrec :: ReadPrec (VkBufferUsageBitmask a)
readPrec
      = ReadPrec (VkBufferUsageBitmask a)
-> ReadPrec (VkBufferUsageBitmask a)
forall a. ReadPrec a -> ReadPrec a
parens
          ([(String, ReadPrec (VkBufferUsageBitmask a))]
-> ReadPrec (VkBufferUsageBitmask a)
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
             [(String
"VK_BUFFER_USAGE_TRANSFER_SRC_BIT",
               VkBufferUsageBitmask a -> ReadPrec (VkBufferUsageBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBufferUsageBitmask a
forall (a :: FlagType). VkBufferUsageBitmask a
VK_BUFFER_USAGE_TRANSFER_SRC_BIT),
              (String
"VK_BUFFER_USAGE_TRANSFER_DST_BIT",
               VkBufferUsageBitmask a -> ReadPrec (VkBufferUsageBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBufferUsageBitmask a
forall (a :: FlagType). VkBufferUsageBitmask a
VK_BUFFER_USAGE_TRANSFER_DST_BIT),
              (String
"VK_BUFFER_USAGE_UNIFORM_TEXEL_BUFFER_BIT",
               VkBufferUsageBitmask a -> ReadPrec (VkBufferUsageBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBufferUsageBitmask a
forall (a :: FlagType). VkBufferUsageBitmask a
VK_BUFFER_USAGE_UNIFORM_TEXEL_BUFFER_BIT),
              (String
"VK_BUFFER_USAGE_STORAGE_TEXEL_BUFFER_BIT",
               VkBufferUsageBitmask a -> ReadPrec (VkBufferUsageBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBufferUsageBitmask a
forall (a :: FlagType). VkBufferUsageBitmask a
VK_BUFFER_USAGE_STORAGE_TEXEL_BUFFER_BIT),
              (String
"VK_BUFFER_USAGE_UNIFORM_BUFFER_BIT",
               VkBufferUsageBitmask a -> ReadPrec (VkBufferUsageBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBufferUsageBitmask a
forall (a :: FlagType). VkBufferUsageBitmask a
VK_BUFFER_USAGE_UNIFORM_BUFFER_BIT),
              (String
"VK_BUFFER_USAGE_STORAGE_BUFFER_BIT",
               VkBufferUsageBitmask a -> ReadPrec (VkBufferUsageBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBufferUsageBitmask a
forall (a :: FlagType). VkBufferUsageBitmask a
VK_BUFFER_USAGE_STORAGE_BUFFER_BIT),
              (String
"VK_BUFFER_USAGE_INDEX_BUFFER_BIT",
               VkBufferUsageBitmask a -> ReadPrec (VkBufferUsageBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBufferUsageBitmask a
forall (a :: FlagType). VkBufferUsageBitmask a
VK_BUFFER_USAGE_INDEX_BUFFER_BIT),
              (String
"VK_BUFFER_USAGE_VERTEX_BUFFER_BIT",
               VkBufferUsageBitmask a -> ReadPrec (VkBufferUsageBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBufferUsageBitmask a
forall (a :: FlagType). VkBufferUsageBitmask a
VK_BUFFER_USAGE_VERTEX_BUFFER_BIT),
              (String
"VK_BUFFER_USAGE_INDIRECT_BUFFER_BIT",
               VkBufferUsageBitmask a -> ReadPrec (VkBufferUsageBitmask a)
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkBufferUsageBitmask a
forall (a :: FlagType). VkBufferUsageBitmask a
VK_BUFFER_USAGE_INDIRECT_BUFFER_BIT)]
             ReadPrec (VkBufferUsageBitmask a)
-> ReadPrec (VkBufferUsageBitmask a)
-> ReadPrec (VkBufferUsageBitmask a)
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
             Int
-> ReadPrec (VkBufferUsageBitmask a)
-> ReadPrec (VkBufferUsageBitmask a)
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
               (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkBufferUsageBitmask") ReadPrec ()
-> ReadPrec (VkBufferUsageBitmask a)
-> ReadPrec (VkBufferUsageBitmask a)
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>>
                  (VkFlags -> VkBufferUsageBitmask a
forall (a :: FlagType). VkFlags -> VkBufferUsageBitmask a
VkBufferUsageBitmask (VkFlags -> VkBufferUsageBitmask a)
-> ReadPrec VkFlags -> ReadPrec (VkBufferUsageBitmask 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)))

-- | Can be used as a source of transfer operations
--
--   bitpos = @0@
pattern VK_BUFFER_USAGE_TRANSFER_SRC_BIT :: VkBufferUsageBitmask a

pattern $bVK_BUFFER_USAGE_TRANSFER_SRC_BIT :: forall (a :: FlagType). VkBufferUsageBitmask a
$mVK_BUFFER_USAGE_TRANSFER_SRC_BIT :: forall {r} {a :: FlagType}.
VkBufferUsageBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_BUFFER_USAGE_TRANSFER_SRC_BIT = VkBufferUsageBitmask 1

-- | Can be used as a destination of transfer operations
--
--   bitpos = @1@
pattern VK_BUFFER_USAGE_TRANSFER_DST_BIT :: VkBufferUsageBitmask a

pattern $bVK_BUFFER_USAGE_TRANSFER_DST_BIT :: forall (a :: FlagType). VkBufferUsageBitmask a
$mVK_BUFFER_USAGE_TRANSFER_DST_BIT :: forall {r} {a :: FlagType}.
VkBufferUsageBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_BUFFER_USAGE_TRANSFER_DST_BIT = VkBufferUsageBitmask 2

-- | Can be used as TBO
--
--   bitpos = @2@
pattern VK_BUFFER_USAGE_UNIFORM_TEXEL_BUFFER_BIT ::
        VkBufferUsageBitmask a

pattern $bVK_BUFFER_USAGE_UNIFORM_TEXEL_BUFFER_BIT :: forall (a :: FlagType). VkBufferUsageBitmask a
$mVK_BUFFER_USAGE_UNIFORM_TEXEL_BUFFER_BIT :: forall {r} {a :: FlagType}.
VkBufferUsageBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_BUFFER_USAGE_UNIFORM_TEXEL_BUFFER_BIT =
        VkBufferUsageBitmask 4

-- | Can be used as IBO
--
--   bitpos = @3@
pattern VK_BUFFER_USAGE_STORAGE_TEXEL_BUFFER_BIT ::
        VkBufferUsageBitmask a

pattern $bVK_BUFFER_USAGE_STORAGE_TEXEL_BUFFER_BIT :: forall (a :: FlagType). VkBufferUsageBitmask a
$mVK_BUFFER_USAGE_STORAGE_TEXEL_BUFFER_BIT :: forall {r} {a :: FlagType}.
VkBufferUsageBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_BUFFER_USAGE_STORAGE_TEXEL_BUFFER_BIT =
        VkBufferUsageBitmask 8

-- | Can be used as UBO
--
--   bitpos = @4@
pattern VK_BUFFER_USAGE_UNIFORM_BUFFER_BIT ::
        VkBufferUsageBitmask a

pattern $bVK_BUFFER_USAGE_UNIFORM_BUFFER_BIT :: forall (a :: FlagType). VkBufferUsageBitmask a
$mVK_BUFFER_USAGE_UNIFORM_BUFFER_BIT :: forall {r} {a :: FlagType}.
VkBufferUsageBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_BUFFER_USAGE_UNIFORM_BUFFER_BIT =
        VkBufferUsageBitmask 16

-- | Can be used as SSBO
--
--   bitpos = @5@
pattern VK_BUFFER_USAGE_STORAGE_BUFFER_BIT ::
        VkBufferUsageBitmask a

pattern $bVK_BUFFER_USAGE_STORAGE_BUFFER_BIT :: forall (a :: FlagType). VkBufferUsageBitmask a
$mVK_BUFFER_USAGE_STORAGE_BUFFER_BIT :: forall {r} {a :: FlagType}.
VkBufferUsageBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_BUFFER_USAGE_STORAGE_BUFFER_BIT =
        VkBufferUsageBitmask 32

-- | Can be used as source of fixed-function index fetch (index buffer)
--
--   bitpos = @6@
pattern VK_BUFFER_USAGE_INDEX_BUFFER_BIT :: VkBufferUsageBitmask a

pattern $bVK_BUFFER_USAGE_INDEX_BUFFER_BIT :: forall (a :: FlagType). VkBufferUsageBitmask a
$mVK_BUFFER_USAGE_INDEX_BUFFER_BIT :: forall {r} {a :: FlagType}.
VkBufferUsageBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_BUFFER_USAGE_INDEX_BUFFER_BIT = VkBufferUsageBitmask 64

-- | Can be used as source of fixed-function vertex fetch (VBO)
--
--   bitpos = @7@
pattern VK_BUFFER_USAGE_VERTEX_BUFFER_BIT :: VkBufferUsageBitmask a

pattern $bVK_BUFFER_USAGE_VERTEX_BUFFER_BIT :: forall (a :: FlagType). VkBufferUsageBitmask a
$mVK_BUFFER_USAGE_VERTEX_BUFFER_BIT :: forall {r} {a :: FlagType}.
VkBufferUsageBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_BUFFER_USAGE_VERTEX_BUFFER_BIT =
        VkBufferUsageBitmask 128

-- | Can be the source of indirect parameters (e.g. indirect buffer, parameter buffer)
--
--   bitpos = @8@
pattern VK_BUFFER_USAGE_INDIRECT_BUFFER_BIT ::
        VkBufferUsageBitmask a

pattern $bVK_BUFFER_USAGE_INDIRECT_BUFFER_BIT :: forall (a :: FlagType). VkBufferUsageBitmask a
$mVK_BUFFER_USAGE_INDIRECT_BUFFER_BIT :: forall {r} {a :: FlagType}.
VkBufferUsageBitmask a -> (Void# -> r) -> (Void# -> r) -> r
VK_BUFFER_USAGE_INDIRECT_BUFFER_BIT =
        VkBufferUsageBitmask 256