{-# language CPP #-}
module Vulkan.Extensions.VK_EXT_extended_dynamic_state ( pattern DYNAMIC_STATE_CULL_MODE_EXT
, pattern DYNAMIC_STATE_FRONT_FACE_EXT
, pattern DYNAMIC_STATE_PRIMITIVE_TOPOLOGY_EXT
, pattern DYNAMIC_STATE_VIEWPORT_WITH_COUNT_EXT
, pattern DYNAMIC_STATE_SCISSOR_WITH_COUNT_EXT
, pattern DYNAMIC_STATE_VERTEX_INPUT_BINDING_STRIDE_EXT
, pattern DYNAMIC_STATE_DEPTH_TEST_ENABLE_EXT
, pattern DYNAMIC_STATE_DEPTH_WRITE_ENABLE_EXT
, pattern DYNAMIC_STATE_DEPTH_COMPARE_OP_EXT
, pattern DYNAMIC_STATE_DEPTH_BOUNDS_TEST_ENABLE_EXT
, pattern DYNAMIC_STATE_STENCIL_TEST_ENABLE_EXT
, pattern DYNAMIC_STATE_STENCIL_OP_EXT
, cmdSetCullModeEXT
, cmdSetFrontFaceEXT
, cmdSetPrimitiveTopologyEXT
, cmdSetViewportWithCountEXT
, cmdSetScissorWithCountEXT
, cmdBindVertexBuffers2EXT
, cmdSetDepthTestEnableEXT
, cmdSetDepthWriteEnableEXT
, cmdSetDepthCompareOpEXT
, cmdSetDepthBoundsTestEnableEXT
, cmdSetStencilTestEnableEXT
, cmdSetStencilOpEXT
, PhysicalDeviceExtendedDynamicStateFeaturesEXT(..)
, EXT_EXTENDED_DYNAMIC_STATE_SPEC_VERSION
, pattern EXT_EXTENDED_DYNAMIC_STATE_SPEC_VERSION
, EXT_EXTENDED_DYNAMIC_STATE_EXTENSION_NAME
, pattern EXT_EXTENDED_DYNAMIC_STATE_EXTENSION_NAME
) where
import Foreign.Marshal.Alloc (allocaBytes)
import Foreign.Ptr (nullPtr)
import Foreign.Ptr (plusPtr)
import Vulkan.CStruct (FromCStruct)
import Vulkan.CStruct (FromCStruct(..))
import Vulkan.CStruct (ToCStruct)
import Vulkan.CStruct (ToCStruct(..))
import Vulkan.Zero (Zero(..))
import Data.String (IsString)
import Data.Typeable (Typeable)
import Foreign.Storable (Storable)
import Foreign.Storable (Storable(peek))
import Foreign.Storable (Storable(poke))
import qualified Foreign.Storable (Storable(..))
import GHC.Generics (Generic)
import Foreign.Ptr (Ptr)
import Data.Kind (Type)
import Vulkan.Core10.FundamentalTypes (bool32ToBool)
import Vulkan.Core10.FundamentalTypes (boolToBool32)
import Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state (cmdBindVertexBuffers2)
import Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state (cmdSetCullMode)
import Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state (cmdSetDepthBoundsTestEnable)
import Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state (cmdSetDepthCompareOp)
import Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state (cmdSetDepthTestEnable)
import Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state (cmdSetDepthWriteEnable)
import Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state (cmdSetFrontFace)
import Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state (cmdSetPrimitiveTopology)
import Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state (cmdSetScissorWithCount)
import Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state (cmdSetStencilOp)
import Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state (cmdSetStencilTestEnable)
import Vulkan.Core13.Promoted_From_VK_EXT_extended_dynamic_state (cmdSetViewportWithCount)
import Vulkan.Core10.FundamentalTypes (Bool32)
import Vulkan.Core10.Enums.StructureType (StructureType)
import Vulkan.Core10.Enums.DynamicState (DynamicState(DYNAMIC_STATE_CULL_MODE))
import Vulkan.Core10.Enums.DynamicState (DynamicState(DYNAMIC_STATE_DEPTH_BOUNDS_TEST_ENABLE))
import Vulkan.Core10.Enums.DynamicState (DynamicState(DYNAMIC_STATE_DEPTH_COMPARE_OP))
import Vulkan.Core10.Enums.DynamicState (DynamicState(DYNAMIC_STATE_DEPTH_TEST_ENABLE))
import Vulkan.Core10.Enums.DynamicState (DynamicState(DYNAMIC_STATE_DEPTH_WRITE_ENABLE))
import Vulkan.Core10.Enums.DynamicState (DynamicState(DYNAMIC_STATE_FRONT_FACE))
import Vulkan.Core10.Enums.DynamicState (DynamicState(DYNAMIC_STATE_PRIMITIVE_TOPOLOGY))
import Vulkan.Core10.Enums.DynamicState (DynamicState(DYNAMIC_STATE_SCISSOR_WITH_COUNT))
import Vulkan.Core10.Enums.DynamicState (DynamicState(DYNAMIC_STATE_STENCIL_OP))
import Vulkan.Core10.Enums.DynamicState (DynamicState(DYNAMIC_STATE_STENCIL_TEST_ENABLE))
import Vulkan.Core10.Enums.DynamicState (DynamicState(DYNAMIC_STATE_VERTEX_INPUT_BINDING_STRIDE))
import Vulkan.Core10.Enums.DynamicState (DynamicState(DYNAMIC_STATE_VIEWPORT_WITH_COUNT))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_EXTENDED_DYNAMIC_STATE_FEATURES_EXT))
pattern $bDYNAMIC_STATE_CULL_MODE_EXT :: DynamicState
$mDYNAMIC_STATE_CULL_MODE_EXT :: forall {r}. DynamicState -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_STATE_CULL_MODE_EXT = DYNAMIC_STATE_CULL_MODE
pattern $bDYNAMIC_STATE_FRONT_FACE_EXT :: DynamicState
$mDYNAMIC_STATE_FRONT_FACE_EXT :: forall {r}. DynamicState -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_STATE_FRONT_FACE_EXT = DYNAMIC_STATE_FRONT_FACE
pattern $bDYNAMIC_STATE_PRIMITIVE_TOPOLOGY_EXT :: DynamicState
$mDYNAMIC_STATE_PRIMITIVE_TOPOLOGY_EXT :: forall {r}. DynamicState -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_STATE_PRIMITIVE_TOPOLOGY_EXT = DYNAMIC_STATE_PRIMITIVE_TOPOLOGY
pattern $bDYNAMIC_STATE_VIEWPORT_WITH_COUNT_EXT :: DynamicState
$mDYNAMIC_STATE_VIEWPORT_WITH_COUNT_EXT :: forall {r}. DynamicState -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_STATE_VIEWPORT_WITH_COUNT_EXT = DYNAMIC_STATE_VIEWPORT_WITH_COUNT
pattern $bDYNAMIC_STATE_SCISSOR_WITH_COUNT_EXT :: DynamicState
$mDYNAMIC_STATE_SCISSOR_WITH_COUNT_EXT :: forall {r}. DynamicState -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_STATE_SCISSOR_WITH_COUNT_EXT = DYNAMIC_STATE_SCISSOR_WITH_COUNT
pattern $bDYNAMIC_STATE_VERTEX_INPUT_BINDING_STRIDE_EXT :: DynamicState
$mDYNAMIC_STATE_VERTEX_INPUT_BINDING_STRIDE_EXT :: forall {r}. DynamicState -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_STATE_VERTEX_INPUT_BINDING_STRIDE_EXT = DYNAMIC_STATE_VERTEX_INPUT_BINDING_STRIDE
pattern $bDYNAMIC_STATE_DEPTH_TEST_ENABLE_EXT :: DynamicState
$mDYNAMIC_STATE_DEPTH_TEST_ENABLE_EXT :: forall {r}. DynamicState -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_STATE_DEPTH_TEST_ENABLE_EXT = DYNAMIC_STATE_DEPTH_TEST_ENABLE
pattern $bDYNAMIC_STATE_DEPTH_WRITE_ENABLE_EXT :: DynamicState
$mDYNAMIC_STATE_DEPTH_WRITE_ENABLE_EXT :: forall {r}. DynamicState -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_STATE_DEPTH_WRITE_ENABLE_EXT = DYNAMIC_STATE_DEPTH_WRITE_ENABLE
pattern $bDYNAMIC_STATE_DEPTH_COMPARE_OP_EXT :: DynamicState
$mDYNAMIC_STATE_DEPTH_COMPARE_OP_EXT :: forall {r}. DynamicState -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_STATE_DEPTH_COMPARE_OP_EXT = DYNAMIC_STATE_DEPTH_COMPARE_OP
pattern $bDYNAMIC_STATE_DEPTH_BOUNDS_TEST_ENABLE_EXT :: DynamicState
$mDYNAMIC_STATE_DEPTH_BOUNDS_TEST_ENABLE_EXT :: forall {r}. DynamicState -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_STATE_DEPTH_BOUNDS_TEST_ENABLE_EXT = DYNAMIC_STATE_DEPTH_BOUNDS_TEST_ENABLE
pattern $bDYNAMIC_STATE_STENCIL_TEST_ENABLE_EXT :: DynamicState
$mDYNAMIC_STATE_STENCIL_TEST_ENABLE_EXT :: forall {r}. DynamicState -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_STATE_STENCIL_TEST_ENABLE_EXT = DYNAMIC_STATE_STENCIL_TEST_ENABLE
pattern $bDYNAMIC_STATE_STENCIL_OP_EXT :: DynamicState
$mDYNAMIC_STATE_STENCIL_OP_EXT :: forall {r}. DynamicState -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_STATE_STENCIL_OP_EXT = DYNAMIC_STATE_STENCIL_OP
cmdSetCullModeEXT :: CommandBuffer -> CullModeFlags -> io ()
cmdSetCullModeEXT = CommandBuffer -> CullModeFlags -> io ()
forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> CullModeFlags -> io ()
cmdSetCullMode
cmdSetFrontFaceEXT :: CommandBuffer -> FrontFace -> io ()
cmdSetFrontFaceEXT = CommandBuffer -> FrontFace -> io ()
forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> FrontFace -> io ()
cmdSetFrontFace
cmdSetPrimitiveTopologyEXT :: CommandBuffer -> PrimitiveTopology -> io ()
cmdSetPrimitiveTopologyEXT = CommandBuffer -> PrimitiveTopology -> io ()
forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> PrimitiveTopology -> io ()
cmdSetPrimitiveTopology
cmdSetViewportWithCountEXT :: CommandBuffer -> ("viewports" ::: Vector Viewport) -> io ()
cmdSetViewportWithCountEXT = CommandBuffer -> ("viewports" ::: Vector Viewport) -> io ()
forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> ("viewports" ::: Vector Viewport) -> io ()
cmdSetViewportWithCount
cmdSetScissorWithCountEXT :: CommandBuffer -> ("scissors" ::: Vector Rect2D) -> io ()
cmdSetScissorWithCountEXT = CommandBuffer -> ("scissors" ::: Vector Rect2D) -> io ()
forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> ("scissors" ::: Vector Rect2D) -> io ()
cmdSetScissorWithCount
cmdBindVertexBuffers2EXT :: CommandBuffer
-> ("firstBinding" ::: Word32)
-> ("buffers" ::: Vector Buffer)
-> ("offsets" ::: Vector DeviceSize)
-> ("offsets" ::: Vector DeviceSize)
-> ("offsets" ::: Vector DeviceSize)
-> io ()
cmdBindVertexBuffers2EXT = CommandBuffer
-> ("firstBinding" ::: Word32)
-> ("buffers" ::: Vector Buffer)
-> ("offsets" ::: Vector DeviceSize)
-> ("offsets" ::: Vector DeviceSize)
-> ("offsets" ::: Vector DeviceSize)
-> io ()
forall (io :: * -> *).
MonadIO io =>
CommandBuffer
-> ("firstBinding" ::: Word32)
-> ("buffers" ::: Vector Buffer)
-> ("offsets" ::: Vector DeviceSize)
-> ("offsets" ::: Vector DeviceSize)
-> ("offsets" ::: Vector DeviceSize)
-> io ()
cmdBindVertexBuffers2
cmdSetDepthTestEnableEXT :: CommandBuffer -> ("depthTestEnable" ::: Bool) -> io ()
cmdSetDepthTestEnableEXT = CommandBuffer -> ("depthTestEnable" ::: Bool) -> io ()
forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> ("depthTestEnable" ::: Bool) -> io ()
cmdSetDepthTestEnable
cmdSetDepthWriteEnableEXT :: CommandBuffer -> ("depthTestEnable" ::: Bool) -> io ()
cmdSetDepthWriteEnableEXT = CommandBuffer -> ("depthTestEnable" ::: Bool) -> io ()
forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> ("depthTestEnable" ::: Bool) -> io ()
cmdSetDepthWriteEnable
cmdSetDepthCompareOpEXT :: CommandBuffer -> ("depthCompareOp" ::: CompareOp) -> io ()
cmdSetDepthCompareOpEXT = CommandBuffer -> ("depthCompareOp" ::: CompareOp) -> io ()
forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> ("depthCompareOp" ::: CompareOp) -> io ()
cmdSetDepthCompareOp
cmdSetDepthBoundsTestEnableEXT :: CommandBuffer -> ("depthTestEnable" ::: Bool) -> io ()
cmdSetDepthBoundsTestEnableEXT = CommandBuffer -> ("depthTestEnable" ::: Bool) -> io ()
forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> ("depthTestEnable" ::: Bool) -> io ()
cmdSetDepthBoundsTestEnable
cmdSetStencilTestEnableEXT :: CommandBuffer -> ("depthTestEnable" ::: Bool) -> io ()
cmdSetStencilTestEnableEXT = CommandBuffer -> ("depthTestEnable" ::: Bool) -> io ()
forall (io :: * -> *).
MonadIO io =>
CommandBuffer -> ("depthTestEnable" ::: Bool) -> io ()
cmdSetStencilTestEnable
cmdSetStencilOpEXT :: CommandBuffer
-> ("faceMask" ::: StencilFaceFlags)
-> ("failOp" ::: StencilOp)
-> ("failOp" ::: StencilOp)
-> ("failOp" ::: StencilOp)
-> ("depthCompareOp" ::: CompareOp)
-> io ()
cmdSetStencilOpEXT = CommandBuffer
-> ("faceMask" ::: StencilFaceFlags)
-> ("failOp" ::: StencilOp)
-> ("failOp" ::: StencilOp)
-> ("failOp" ::: StencilOp)
-> ("depthCompareOp" ::: CompareOp)
-> io ()
forall (io :: * -> *).
MonadIO io =>
CommandBuffer
-> ("faceMask" ::: StencilFaceFlags)
-> ("failOp" ::: StencilOp)
-> ("failOp" ::: StencilOp)
-> ("failOp" ::: StencilOp)
-> ("depthCompareOp" ::: CompareOp)
-> io ()
cmdSetStencilOp
data PhysicalDeviceExtendedDynamicStateFeaturesEXT = PhysicalDeviceExtendedDynamicStateFeaturesEXT
{
PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> "depthTestEnable" ::: Bool
extendedDynamicState :: Bool }
deriving (Typeable, PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> "depthTestEnable" ::: Bool
(PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> "depthTestEnable" ::: Bool)
-> (PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> "depthTestEnable" ::: Bool)
-> Eq PhysicalDeviceExtendedDynamicStateFeaturesEXT
forall a.
(a -> a -> "depthTestEnable" ::: Bool)
-> (a -> a -> "depthTestEnable" ::: Bool) -> Eq a
/= :: PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> "depthTestEnable" ::: Bool
$c/= :: PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> "depthTestEnable" ::: Bool
== :: PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> "depthTestEnable" ::: Bool
$c== :: PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> "depthTestEnable" ::: Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDeviceExtendedDynamicStateFeaturesEXT)
#endif
deriving instance Show PhysicalDeviceExtendedDynamicStateFeaturesEXT
instance ToCStruct PhysicalDeviceExtendedDynamicStateFeaturesEXT where
withCStruct :: forall b.
PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> (Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT -> IO b)
-> IO b
withCStruct PhysicalDeviceExtendedDynamicStateFeaturesEXT
x Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT -> IO b
f = Int
-> (Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT -> IO b)
-> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 ((Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT -> IO b)
-> IO b)
-> (Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT -> IO b)
-> IO b
forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p -> Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p PhysicalDeviceExtendedDynamicStateFeaturesEXT
x (Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT -> IO b
f Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p)
pokeCStruct :: forall b.
Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p PhysicalDeviceExtendedDynamicStateFeaturesEXT{"depthTestEnable" ::: Bool
extendedDynamicState :: "depthTestEnable" ::: Bool
$sel:extendedDynamicState:PhysicalDeviceExtendedDynamicStateFeaturesEXT :: PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> "depthTestEnable" ::: Bool
..} IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_EXTENDED_DYNAMIC_STATE_FEATURES_EXT)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (("depthTestEnable" ::: Bool) -> Bool32
boolToBool32 ("depthTestEnable" ::: Bool
extendedDynamicState))
IO b
f
cStructSize :: Int
cStructSize = Int
24
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b.
Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT -> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_EXTENDED_DYNAMIC_STATE_FEATURES_EXT)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (("depthTestEnable" ::: Bool) -> Bool32
boolToBool32 ("depthTestEnable" ::: Bool
forall a. Zero a => a
zero))
IO b
f
instance FromCStruct PhysicalDeviceExtendedDynamicStateFeaturesEXT where
peekCStruct :: Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> IO PhysicalDeviceExtendedDynamicStateFeaturesEXT
peekCStruct Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p = do
Bool32
extendedDynamicState <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
p Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> IO PhysicalDeviceExtendedDynamicStateFeaturesEXT
forall (f :: * -> *) a. Applicative f => a -> f a
pure (PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> IO PhysicalDeviceExtendedDynamicStateFeaturesEXT)
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> IO PhysicalDeviceExtendedDynamicStateFeaturesEXT
forall a b. (a -> b) -> a -> b
$ ("depthTestEnable" ::: Bool)
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT
PhysicalDeviceExtendedDynamicStateFeaturesEXT
(Bool32 -> "depthTestEnable" ::: Bool
bool32ToBool Bool32
extendedDynamicState)
instance Storable PhysicalDeviceExtendedDynamicStateFeaturesEXT where
sizeOf :: PhysicalDeviceExtendedDynamicStateFeaturesEXT -> Int
sizeOf ~PhysicalDeviceExtendedDynamicStateFeaturesEXT
_ = Int
24
alignment :: PhysicalDeviceExtendedDynamicStateFeaturesEXT -> Int
alignment ~PhysicalDeviceExtendedDynamicStateFeaturesEXT
_ = Int
8
peek :: Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> IO PhysicalDeviceExtendedDynamicStateFeaturesEXT
peek = Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> IO PhysicalDeviceExtendedDynamicStateFeaturesEXT
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT -> IO ()
poke Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
poked = Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT -> IO () -> IO ()
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
ptr PhysicalDeviceExtendedDynamicStateFeaturesEXT
poked (() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero PhysicalDeviceExtendedDynamicStateFeaturesEXT where
zero :: PhysicalDeviceExtendedDynamicStateFeaturesEXT
zero = ("depthTestEnable" ::: Bool)
-> PhysicalDeviceExtendedDynamicStateFeaturesEXT
PhysicalDeviceExtendedDynamicStateFeaturesEXT
"depthTestEnable" ::: Bool
forall a. Zero a => a
zero
type EXT_EXTENDED_DYNAMIC_STATE_SPEC_VERSION = 1
pattern EXT_EXTENDED_DYNAMIC_STATE_SPEC_VERSION :: forall a . Integral a => a
pattern $bEXT_EXTENDED_DYNAMIC_STATE_SPEC_VERSION :: forall a. Integral a => a
$mEXT_EXTENDED_DYNAMIC_STATE_SPEC_VERSION :: forall {r} {a}.
Integral a =>
a -> (Void# -> r) -> (Void# -> r) -> r
EXT_EXTENDED_DYNAMIC_STATE_SPEC_VERSION = 1
type EXT_EXTENDED_DYNAMIC_STATE_EXTENSION_NAME = "VK_EXT_extended_dynamic_state"
pattern EXT_EXTENDED_DYNAMIC_STATE_EXTENSION_NAME :: forall a . (Eq a, IsString a) => a
pattern $bEXT_EXTENDED_DYNAMIC_STATE_EXTENSION_NAME :: forall a. (Eq a, IsString a) => a
$mEXT_EXTENDED_DYNAMIC_STATE_EXTENSION_NAME :: forall {r} {a}.
(Eq a, IsString a) =>
a -> (Void# -> r) -> (Void# -> r) -> r
EXT_EXTENDED_DYNAMIC_STATE_EXTENSION_NAME = "VK_EXT_extended_dynamic_state"