{-# 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.Command
(VkCommandBufferLevel(VkCommandBufferLevel,
VK_COMMAND_BUFFER_LEVEL_PRIMARY,
VK_COMMAND_BUFFER_LEVEL_SECONDARY),
VkCommandBufferResetBitmask(VkCommandBufferResetBitmask,
VkCommandBufferResetFlags, VkCommandBufferResetFlagBits,
VK_COMMAND_BUFFER_RESET_RELEASE_RESOURCES_BIT),
VkCommandBufferResetFlags, VkCommandBufferResetFlagBits,
VkCommandBufferUsageBitmask(VkCommandBufferUsageBitmask,
VkCommandBufferUsageFlags, VkCommandBufferUsageFlagBits,
VK_COMMAND_BUFFER_USAGE_ONE_TIME_SUBMIT_BIT,
VK_COMMAND_BUFFER_USAGE_RENDER_PASS_CONTINUE_BIT,
VK_COMMAND_BUFFER_USAGE_SIMULTANEOUS_USE_BIT),
VkCommandBufferUsageFlags, VkCommandBufferUsageFlagBits,
VkCommandPoolCreateBitmask(VkCommandPoolCreateBitmask,
VkCommandPoolCreateFlags, VkCommandPoolCreateFlagBits,
VK_COMMAND_POOL_CREATE_TRANSIENT_BIT,
VK_COMMAND_POOL_CREATE_RESET_COMMAND_BUFFER_BIT),
VkCommandPoolCreateFlags, VkCommandPoolCreateFlagBits,
VkCommandPoolResetBitmask(VkCommandPoolResetBitmask,
VkCommandPoolResetFlags, VkCommandPoolResetFlagBits,
VK_COMMAND_POOL_RESET_RELEASE_RESOURCES_BIT),
VkCommandPoolResetFlags, VkCommandPoolResetFlagBits)
where
import Data.Bits (Bits, FiniteBits)
import Foreign.Storable (Storable)
import GHC.Read (choose, expectP)
import Graphics.Vulkan.Marshal (FlagBit, FlagMask, FlagType, Int32)
import Graphics.Vulkan.Types.BaseTypes (VkFlags (..))
import Text.ParserCombinators.ReadPrec (prec, step, (+++))
import Text.Read (Read (..), parens)
import Text.Read.Lex (Lexeme (..))
newtype VkCommandBufferLevel = VkCommandBufferLevel Int32
deriving (Eq, Ord, Enum, Storable)
instance Show VkCommandBufferLevel where
showsPrec _ VK_COMMAND_BUFFER_LEVEL_PRIMARY
= showString "VK_COMMAND_BUFFER_LEVEL_PRIMARY"
showsPrec _ VK_COMMAND_BUFFER_LEVEL_SECONDARY
= showString "VK_COMMAND_BUFFER_LEVEL_SECONDARY"
showsPrec p (VkCommandBufferLevel x)
= showParen (p >= 11)
(showString "VkCommandBufferLevel " . showsPrec 11 x)
instance Read VkCommandBufferLevel where
readPrec
= parens
(choose
[("VK_COMMAND_BUFFER_LEVEL_PRIMARY",
pure VK_COMMAND_BUFFER_LEVEL_PRIMARY),
("VK_COMMAND_BUFFER_LEVEL_SECONDARY",
pure VK_COMMAND_BUFFER_LEVEL_SECONDARY)]
+++
prec 10
(expectP (Ident "VkCommandBufferLevel") >>
(VkCommandBufferLevel <$> step readPrec)))
pattern VK_COMMAND_BUFFER_LEVEL_PRIMARY :: VkCommandBufferLevel
pattern VK_COMMAND_BUFFER_LEVEL_PRIMARY = VkCommandBufferLevel 0
pattern VK_COMMAND_BUFFER_LEVEL_SECONDARY :: VkCommandBufferLevel
pattern VK_COMMAND_BUFFER_LEVEL_SECONDARY = VkCommandBufferLevel 1
newtype VkCommandBufferResetBitmask (a ::
FlagType) = VkCommandBufferResetBitmask VkFlags
deriving (Eq, Ord, Storable)
type VkCommandBufferResetFlags =
VkCommandBufferResetBitmask FlagMask
type VkCommandBufferResetFlagBits =
VkCommandBufferResetBitmask FlagBit
pattern VkCommandBufferResetFlagBits ::
VkFlags -> VkCommandBufferResetBitmask FlagBit
pattern VkCommandBufferResetFlagBits n =
VkCommandBufferResetBitmask n
pattern VkCommandBufferResetFlags ::
VkFlags -> VkCommandBufferResetBitmask FlagMask
pattern VkCommandBufferResetFlags n = VkCommandBufferResetBitmask n
deriving instance Bits (VkCommandBufferResetBitmask FlagMask)
deriving instance FiniteBits (VkCommandBufferResetBitmask FlagMask)
instance Show (VkCommandBufferResetBitmask a) where
showsPrec _ VK_COMMAND_BUFFER_RESET_RELEASE_RESOURCES_BIT
= showString "VK_COMMAND_BUFFER_RESET_RELEASE_RESOURCES_BIT"
showsPrec p (VkCommandBufferResetBitmask x)
= showParen (p >= 11)
(showString "VkCommandBufferResetBitmask " . showsPrec 11 x)
instance Read (VkCommandBufferResetBitmask a) where
readPrec
= parens
(choose
[("VK_COMMAND_BUFFER_RESET_RELEASE_RESOURCES_BIT",
pure VK_COMMAND_BUFFER_RESET_RELEASE_RESOURCES_BIT)]
+++
prec 10
(expectP (Ident "VkCommandBufferResetBitmask") >>
(VkCommandBufferResetBitmask <$> step readPrec)))
pattern VK_COMMAND_BUFFER_RESET_RELEASE_RESOURCES_BIT ::
VkCommandBufferResetBitmask a
pattern VK_COMMAND_BUFFER_RESET_RELEASE_RESOURCES_BIT =
VkCommandBufferResetBitmask 1
newtype VkCommandBufferUsageBitmask (a ::
FlagType) = VkCommandBufferUsageBitmask VkFlags
deriving (Eq, Ord, Storable)
type VkCommandBufferUsageFlags =
VkCommandBufferUsageBitmask FlagMask
type VkCommandBufferUsageFlagBits =
VkCommandBufferUsageBitmask FlagBit
pattern VkCommandBufferUsageFlagBits ::
VkFlags -> VkCommandBufferUsageBitmask FlagBit
pattern VkCommandBufferUsageFlagBits n =
VkCommandBufferUsageBitmask n
pattern VkCommandBufferUsageFlags ::
VkFlags -> VkCommandBufferUsageBitmask FlagMask
pattern VkCommandBufferUsageFlags n = VkCommandBufferUsageBitmask n
deriving instance Bits (VkCommandBufferUsageBitmask FlagMask)
deriving instance FiniteBits (VkCommandBufferUsageBitmask FlagMask)
instance Show (VkCommandBufferUsageBitmask a) where
showsPrec _ VK_COMMAND_BUFFER_USAGE_ONE_TIME_SUBMIT_BIT
= showString "VK_COMMAND_BUFFER_USAGE_ONE_TIME_SUBMIT_BIT"
showsPrec _ VK_COMMAND_BUFFER_USAGE_RENDER_PASS_CONTINUE_BIT
= showString "VK_COMMAND_BUFFER_USAGE_RENDER_PASS_CONTINUE_BIT"
showsPrec _ VK_COMMAND_BUFFER_USAGE_SIMULTANEOUS_USE_BIT
= showString "VK_COMMAND_BUFFER_USAGE_SIMULTANEOUS_USE_BIT"
showsPrec p (VkCommandBufferUsageBitmask x)
= showParen (p >= 11)
(showString "VkCommandBufferUsageBitmask " . showsPrec 11 x)
instance Read (VkCommandBufferUsageBitmask a) where
readPrec
= parens
(choose
[("VK_COMMAND_BUFFER_USAGE_ONE_TIME_SUBMIT_BIT",
pure VK_COMMAND_BUFFER_USAGE_ONE_TIME_SUBMIT_BIT),
("VK_COMMAND_BUFFER_USAGE_RENDER_PASS_CONTINUE_BIT",
pure VK_COMMAND_BUFFER_USAGE_RENDER_PASS_CONTINUE_BIT),
("VK_COMMAND_BUFFER_USAGE_SIMULTANEOUS_USE_BIT",
pure VK_COMMAND_BUFFER_USAGE_SIMULTANEOUS_USE_BIT)]
+++
prec 10
(expectP (Ident "VkCommandBufferUsageBitmask") >>
(VkCommandBufferUsageBitmask <$> step readPrec)))
pattern VK_COMMAND_BUFFER_USAGE_ONE_TIME_SUBMIT_BIT ::
VkCommandBufferUsageBitmask a
pattern VK_COMMAND_BUFFER_USAGE_ONE_TIME_SUBMIT_BIT =
VkCommandBufferUsageBitmask 1
pattern VK_COMMAND_BUFFER_USAGE_RENDER_PASS_CONTINUE_BIT ::
VkCommandBufferUsageBitmask a
pattern VK_COMMAND_BUFFER_USAGE_RENDER_PASS_CONTINUE_BIT =
VkCommandBufferUsageBitmask 2
pattern VK_COMMAND_BUFFER_USAGE_SIMULTANEOUS_USE_BIT ::
VkCommandBufferUsageBitmask a
pattern VK_COMMAND_BUFFER_USAGE_SIMULTANEOUS_USE_BIT =
VkCommandBufferUsageBitmask 4
newtype VkCommandPoolCreateBitmask (a ::
FlagType) = VkCommandPoolCreateBitmask VkFlags
deriving (Eq, Ord, Storable)
type VkCommandPoolCreateFlags = VkCommandPoolCreateBitmask FlagMask
type VkCommandPoolCreateFlagBits =
VkCommandPoolCreateBitmask FlagBit
pattern VkCommandPoolCreateFlagBits ::
VkFlags -> VkCommandPoolCreateBitmask FlagBit
pattern VkCommandPoolCreateFlagBits n =
VkCommandPoolCreateBitmask n
pattern VkCommandPoolCreateFlags ::
VkFlags -> VkCommandPoolCreateBitmask FlagMask
pattern VkCommandPoolCreateFlags n = VkCommandPoolCreateBitmask n
deriving instance Bits (VkCommandPoolCreateBitmask FlagMask)
deriving instance FiniteBits (VkCommandPoolCreateBitmask FlagMask)
instance Show (VkCommandPoolCreateBitmask a) where
showsPrec _ VK_COMMAND_POOL_CREATE_TRANSIENT_BIT
= showString "VK_COMMAND_POOL_CREATE_TRANSIENT_BIT"
showsPrec _ VK_COMMAND_POOL_CREATE_RESET_COMMAND_BUFFER_BIT
= showString "VK_COMMAND_POOL_CREATE_RESET_COMMAND_BUFFER_BIT"
showsPrec p (VkCommandPoolCreateBitmask x)
= showParen (p >= 11)
(showString "VkCommandPoolCreateBitmask " . showsPrec 11 x)
instance Read (VkCommandPoolCreateBitmask a) where
readPrec
= parens
(choose
[("VK_COMMAND_POOL_CREATE_TRANSIENT_BIT",
pure VK_COMMAND_POOL_CREATE_TRANSIENT_BIT),
("VK_COMMAND_POOL_CREATE_RESET_COMMAND_BUFFER_BIT",
pure VK_COMMAND_POOL_CREATE_RESET_COMMAND_BUFFER_BIT)]
+++
prec 10
(expectP (Ident "VkCommandPoolCreateBitmask") >>
(VkCommandPoolCreateBitmask <$> step readPrec)))
pattern VK_COMMAND_POOL_CREATE_TRANSIENT_BIT ::
VkCommandPoolCreateBitmask a
pattern VK_COMMAND_POOL_CREATE_TRANSIENT_BIT =
VkCommandPoolCreateBitmask 1
pattern VK_COMMAND_POOL_CREATE_RESET_COMMAND_BUFFER_BIT ::
VkCommandPoolCreateBitmask a
pattern VK_COMMAND_POOL_CREATE_RESET_COMMAND_BUFFER_BIT =
VkCommandPoolCreateBitmask 2
newtype VkCommandPoolResetBitmask (a ::
FlagType) = VkCommandPoolResetBitmask VkFlags
deriving (Eq, Ord, Storable)
type VkCommandPoolResetFlags = VkCommandPoolResetBitmask FlagMask
type VkCommandPoolResetFlagBits = VkCommandPoolResetBitmask FlagBit
pattern VkCommandPoolResetFlagBits ::
VkFlags -> VkCommandPoolResetBitmask FlagBit
pattern VkCommandPoolResetFlagBits n = VkCommandPoolResetBitmask n
pattern VkCommandPoolResetFlags ::
VkFlags -> VkCommandPoolResetBitmask FlagMask
pattern VkCommandPoolResetFlags n = VkCommandPoolResetBitmask n
deriving instance Bits (VkCommandPoolResetBitmask FlagMask)
deriving instance FiniteBits (VkCommandPoolResetBitmask FlagMask)
instance Show (VkCommandPoolResetBitmask a) where
showsPrec _ VK_COMMAND_POOL_RESET_RELEASE_RESOURCES_BIT
= showString "VK_COMMAND_POOL_RESET_RELEASE_RESOURCES_BIT"
showsPrec p (VkCommandPoolResetBitmask x)
= showParen (p >= 11)
(showString "VkCommandPoolResetBitmask " . showsPrec 11 x)
instance Read (VkCommandPoolResetBitmask a) where
readPrec
= parens
(choose
[("VK_COMMAND_POOL_RESET_RELEASE_RESOURCES_BIT",
pure VK_COMMAND_POOL_RESET_RELEASE_RESOURCES_BIT)]
+++
prec 10
(expectP (Ident "VkCommandPoolResetBitmask") >>
(VkCommandPoolResetBitmask <$> step readPrec)))
pattern VK_COMMAND_POOL_RESET_RELEASE_RESOURCES_BIT ::
VkCommandPoolResetBitmask a
pattern VK_COMMAND_POOL_RESET_RELEASE_RESOURCES_BIT =
VkCommandPoolResetBitmask 1