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