{-# language CPP #-}
module Vulkan.Extensions.VK_KHR_shader_clock ( PhysicalDeviceShaderClockFeaturesKHR(..)
, KHR_SHADER_CLOCK_SPEC_VERSION
, pattern KHR_SHADER_CLOCK_SPEC_VERSION
, KHR_SHADER_CLOCK_EXTENSION_NAME
, pattern KHR_SHADER_CLOCK_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.Core10.FundamentalTypes (Bool32)
import Vulkan.Core10.Enums.StructureType (StructureType)
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_SHADER_CLOCK_FEATURES_KHR))
data PhysicalDeviceShaderClockFeaturesKHR = PhysicalDeviceShaderClockFeaturesKHR
{
PhysicalDeviceShaderClockFeaturesKHR -> Bool
shaderSubgroupClock :: Bool
,
PhysicalDeviceShaderClockFeaturesKHR -> Bool
shaderDeviceClock :: Bool
}
deriving (Typeable, PhysicalDeviceShaderClockFeaturesKHR
-> PhysicalDeviceShaderClockFeaturesKHR -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PhysicalDeviceShaderClockFeaturesKHR
-> PhysicalDeviceShaderClockFeaturesKHR -> Bool
$c/= :: PhysicalDeviceShaderClockFeaturesKHR
-> PhysicalDeviceShaderClockFeaturesKHR -> Bool
== :: PhysicalDeviceShaderClockFeaturesKHR
-> PhysicalDeviceShaderClockFeaturesKHR -> Bool
$c== :: PhysicalDeviceShaderClockFeaturesKHR
-> PhysicalDeviceShaderClockFeaturesKHR -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDeviceShaderClockFeaturesKHR)
#endif
deriving instance Show PhysicalDeviceShaderClockFeaturesKHR
instance ToCStruct PhysicalDeviceShaderClockFeaturesKHR where
withCStruct :: forall b.
PhysicalDeviceShaderClockFeaturesKHR
-> (Ptr PhysicalDeviceShaderClockFeaturesKHR -> IO b) -> IO b
withCStruct PhysicalDeviceShaderClockFeaturesKHR
x Ptr PhysicalDeviceShaderClockFeaturesKHR -> IO b
f = forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDeviceShaderClockFeaturesKHR
p -> forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceShaderClockFeaturesKHR
p PhysicalDeviceShaderClockFeaturesKHR
x (Ptr PhysicalDeviceShaderClockFeaturesKHR -> IO b
f Ptr PhysicalDeviceShaderClockFeaturesKHR
p)
pokeCStruct :: forall b.
Ptr PhysicalDeviceShaderClockFeaturesKHR
-> PhysicalDeviceShaderClockFeaturesKHR -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceShaderClockFeaturesKHR
p PhysicalDeviceShaderClockFeaturesKHR{Bool
shaderDeviceClock :: Bool
shaderSubgroupClock :: Bool
$sel:shaderDeviceClock:PhysicalDeviceShaderClockFeaturesKHR :: PhysicalDeviceShaderClockFeaturesKHR -> Bool
$sel:shaderSubgroupClock:PhysicalDeviceShaderClockFeaturesKHR :: PhysicalDeviceShaderClockFeaturesKHR -> Bool
..} IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceShaderClockFeaturesKHR
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_SHADER_CLOCK_FEATURES_KHR)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceShaderClockFeaturesKHR
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 PhysicalDeviceShaderClockFeaturesKHR
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
shaderSubgroupClock))
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceShaderClockFeaturesKHR
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
shaderDeviceClock))
IO b
f
cStructSize :: Int
cStructSize = Int
24
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b. Ptr PhysicalDeviceShaderClockFeaturesKHR -> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDeviceShaderClockFeaturesKHR
p IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceShaderClockFeaturesKHR
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_SHADER_CLOCK_FEATURES_KHR)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceShaderClockFeaturesKHR
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 PhysicalDeviceShaderClockFeaturesKHR
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (forall a. Zero a => a
zero))
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceShaderClockFeaturesKHR
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (forall a. Zero a => a
zero))
IO b
f
instance FromCStruct PhysicalDeviceShaderClockFeaturesKHR where
peekCStruct :: Ptr PhysicalDeviceShaderClockFeaturesKHR
-> IO PhysicalDeviceShaderClockFeaturesKHR
peekCStruct Ptr PhysicalDeviceShaderClockFeaturesKHR
p = do
Bool32
shaderSubgroupClock <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceShaderClockFeaturesKHR
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
Bool32
shaderDeviceClock <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceShaderClockFeaturesKHR
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Bool32))
forall (f :: * -> *) a. Applicative f => a -> f a
pure forall a b. (a -> b) -> a -> b
$ Bool -> Bool -> PhysicalDeviceShaderClockFeaturesKHR
PhysicalDeviceShaderClockFeaturesKHR
(Bool32 -> Bool
bool32ToBool Bool32
shaderSubgroupClock) (Bool32 -> Bool
bool32ToBool Bool32
shaderDeviceClock)
instance Storable PhysicalDeviceShaderClockFeaturesKHR where
sizeOf :: PhysicalDeviceShaderClockFeaturesKHR -> Int
sizeOf ~PhysicalDeviceShaderClockFeaturesKHR
_ = Int
24
alignment :: PhysicalDeviceShaderClockFeaturesKHR -> Int
alignment ~PhysicalDeviceShaderClockFeaturesKHR
_ = Int
8
peek :: Ptr PhysicalDeviceShaderClockFeaturesKHR
-> IO PhysicalDeviceShaderClockFeaturesKHR
peek = forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr PhysicalDeviceShaderClockFeaturesKHR
-> PhysicalDeviceShaderClockFeaturesKHR -> IO ()
poke Ptr PhysicalDeviceShaderClockFeaturesKHR
ptr PhysicalDeviceShaderClockFeaturesKHR
poked = forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceShaderClockFeaturesKHR
ptr PhysicalDeviceShaderClockFeaturesKHR
poked (forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero PhysicalDeviceShaderClockFeaturesKHR where
zero :: PhysicalDeviceShaderClockFeaturesKHR
zero = Bool -> Bool -> PhysicalDeviceShaderClockFeaturesKHR
PhysicalDeviceShaderClockFeaturesKHR
forall a. Zero a => a
zero
forall a. Zero a => a
zero
type KHR_SHADER_CLOCK_SPEC_VERSION = 1
pattern KHR_SHADER_CLOCK_SPEC_VERSION :: forall a . Integral a => a
pattern $bKHR_SHADER_CLOCK_SPEC_VERSION :: forall a. Integral a => a
$mKHR_SHADER_CLOCK_SPEC_VERSION :: forall {r} {a}.
Integral a =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
KHR_SHADER_CLOCK_SPEC_VERSION = 1
type KHR_SHADER_CLOCK_EXTENSION_NAME = "VK_KHR_shader_clock"
pattern KHR_SHADER_CLOCK_EXTENSION_NAME :: forall a . (Eq a, IsString a) => a
pattern $bKHR_SHADER_CLOCK_EXTENSION_NAME :: forall a. (Eq a, IsString a) => a
$mKHR_SHADER_CLOCK_EXTENSION_NAME :: forall {r} {a}.
(Eq a, IsString a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
KHR_SHADER_CLOCK_EXTENSION_NAME = "VK_KHR_shader_clock"