{-# language CPP #-}
module Vulkan.Core12.Promoted_From_VK_KHR_shader_subgroup_extended_types ( PhysicalDeviceShaderSubgroupExtendedTypesFeatures(..)
, StructureType(..)
) 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.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.Core10.FundamentalTypes (Bool32)
import Vulkan.Core10.Enums.StructureType (StructureType)
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_SHADER_SUBGROUP_EXTENDED_TYPES_FEATURES))
import Vulkan.Core10.Enums.StructureType (StructureType(..))
data PhysicalDeviceShaderSubgroupExtendedTypesFeatures = PhysicalDeviceShaderSubgroupExtendedTypesFeatures
{
PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> Bool
shaderSubgroupExtendedTypes :: Bool }
deriving (Typeable, PhysicalDeviceShaderSubgroupExtendedTypesFeatures
-> PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PhysicalDeviceShaderSubgroupExtendedTypesFeatures
-> PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> Bool
$c/= :: PhysicalDeviceShaderSubgroupExtendedTypesFeatures
-> PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> Bool
== :: PhysicalDeviceShaderSubgroupExtendedTypesFeatures
-> PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> Bool
$c== :: PhysicalDeviceShaderSubgroupExtendedTypesFeatures
-> PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDeviceShaderSubgroupExtendedTypesFeatures)
#endif
deriving instance Show PhysicalDeviceShaderSubgroupExtendedTypesFeatures
instance ToCStruct PhysicalDeviceShaderSubgroupExtendedTypesFeatures where
withCStruct :: forall b.
PhysicalDeviceShaderSubgroupExtendedTypesFeatures
-> (Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> IO b)
-> IO b
withCStruct PhysicalDeviceShaderSubgroupExtendedTypesFeatures
x Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> IO b
f = forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p -> forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p PhysicalDeviceShaderSubgroupExtendedTypesFeatures
x (Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> IO b
f Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p)
pokeCStruct :: forall b.
Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
-> PhysicalDeviceShaderSubgroupExtendedTypesFeatures
-> IO b
-> IO b
pokeCStruct Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p PhysicalDeviceShaderSubgroupExtendedTypesFeatures{Bool
shaderSubgroupExtendedTypes :: Bool
$sel:shaderSubgroupExtendedTypes:PhysicalDeviceShaderSubgroupExtendedTypesFeatures :: PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> Bool
..} IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_SHADER_SUBGROUP_EXTENDED_TYPES_FEATURES)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
shaderSubgroupExtendedTypes))
IO b
f
cStructSize :: Int
cStructSize = Int
24
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b.
Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
-> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_SHADER_SUBGROUP_EXTENDED_TYPES_FEATURES)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (forall a. Zero a => a
zero))
IO b
f
instance FromCStruct PhysicalDeviceShaderSubgroupExtendedTypesFeatures where
peekCStruct :: Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
-> IO PhysicalDeviceShaderSubgroupExtendedTypesFeatures
peekCStruct Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p = do
Bool32
shaderSubgroupExtendedTypes <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
forall (f :: * -> *) a. Applicative f => a -> f a
pure forall a b. (a -> b) -> a -> b
$ Bool -> PhysicalDeviceShaderSubgroupExtendedTypesFeatures
PhysicalDeviceShaderSubgroupExtendedTypesFeatures
(Bool32 -> Bool
bool32ToBool Bool32
shaderSubgroupExtendedTypes)
instance Storable PhysicalDeviceShaderSubgroupExtendedTypesFeatures where
sizeOf :: PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> Int
sizeOf ~PhysicalDeviceShaderSubgroupExtendedTypesFeatures
_ = Int
24
alignment :: PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> Int
alignment ~PhysicalDeviceShaderSubgroupExtendedTypesFeatures
_ = Int
8
peek :: Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
-> IO PhysicalDeviceShaderSubgroupExtendedTypesFeatures
peek = forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
-> PhysicalDeviceShaderSubgroupExtendedTypesFeatures -> IO ()
poke Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
poked = forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
ptr PhysicalDeviceShaderSubgroupExtendedTypesFeatures
poked (forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero PhysicalDeviceShaderSubgroupExtendedTypesFeatures where
zero :: PhysicalDeviceShaderSubgroupExtendedTypesFeatures
zero = Bool -> PhysicalDeviceShaderSubgroupExtendedTypesFeatures
PhysicalDeviceShaderSubgroupExtendedTypesFeatures
forall a. Zero a => a
zero