{-# language CPP #-}
module Vulkan.Core12.Promoted_From_VK_KHR_uniform_buffer_standard_layout  ( PhysicalDeviceUniformBufferStandardLayoutFeatures(..)
                                                                          , StructureType(..)
                                                                          ) where

import Foreign.Marshal.Alloc (allocaBytesAligned)
import Foreign.Ptr (nullPtr)
import Foreign.Ptr (plusPtr)
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.CStruct (FromCStruct)
import Vulkan.CStruct (FromCStruct(..))
import Vulkan.Core10.Enums.StructureType (StructureType)
import Vulkan.CStruct (ToCStruct)
import Vulkan.CStruct (ToCStruct(..))
import Vulkan.Zero (Zero(..))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_UNIFORM_BUFFER_STANDARD_LAYOUT_FEATURES))
import Vulkan.Core10.Enums.StructureType (StructureType(..))
-- | VkPhysicalDeviceUniformBufferStandardLayoutFeatures - Structure
-- indicating support for std430-like packing in uniform buffers
--
-- = Members
--
-- The members of the 'PhysicalDeviceUniformBufferStandardLayoutFeatures'
-- structure describe the following features:
--
-- = Description
--
-- If the 'PhysicalDeviceUniformBufferStandardLayoutFeatures' structure is
-- included in the @pNext@ chain of
-- 'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.PhysicalDeviceFeatures2',
-- it is filled with values indicating whether the feature is supported.
-- 'PhysicalDeviceUniformBufferStandardLayoutFeatures' /can/ also be
-- included in the @pNext@ chain of 'Vulkan.Core10.Device.DeviceCreateInfo'
-- to enable this feature.
--
-- == Valid Usage (Implicit)
--
-- = See Also
--
-- 'Vulkan.Core10.FundamentalTypes.Bool32',
-- 'Vulkan.Core10.Enums.StructureType.StructureType'
data PhysicalDeviceUniformBufferStandardLayoutFeatures = PhysicalDeviceUniformBufferStandardLayoutFeatures
  { -- | @uniformBufferStandardLayout@ indicates that the implementation supports
    -- the same layouts for uniform buffers as for storage and other kinds of
    -- buffers. See
    -- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#interfaces-resources-standard-layout Standard Buffer Layout>.
    PhysicalDeviceUniformBufferStandardLayoutFeatures -> Bool
uniformBufferStandardLayout :: Bool }
  deriving (Typeable, PhysicalDeviceUniformBufferStandardLayoutFeatures
-> PhysicalDeviceUniformBufferStandardLayoutFeatures -> Bool
(PhysicalDeviceUniformBufferStandardLayoutFeatures
 -> PhysicalDeviceUniformBufferStandardLayoutFeatures -> Bool)
-> (PhysicalDeviceUniformBufferStandardLayoutFeatures
    -> PhysicalDeviceUniformBufferStandardLayoutFeatures -> Bool)
-> Eq PhysicalDeviceUniformBufferStandardLayoutFeatures
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 :: PhysicalDeviceUniformBufferStandardLayoutFeatures
-> (Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures -> IO b)
-> IO b
withCStruct x :: PhysicalDeviceUniformBufferStandardLayoutFeatures
x f :: Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures -> IO b
f = Int
-> Int
-> (Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures -> IO b)
-> IO b
forall a b. Int -> Int -> (Ptr a -> IO b) -> IO b
allocaBytesAligned 24 8 ((Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures -> IO b)
 -> IO b)
-> (Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures -> IO b)
-> IO b
forall a b. (a -> b) -> a -> b
$ \p :: Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
p -> Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> PhysicalDeviceUniformBufferStandardLayoutFeatures
-> IO b
-> IO b
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 :: Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> PhysicalDeviceUniformBufferStandardLayoutFeatures
-> IO b
-> IO b
pokeCStruct p :: Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
p PhysicalDeviceUniformBufferStandardLayoutFeatures{..} f :: IO b
f = do
    Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
p Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_UNIFORM_BUFFER_STANDARD_LAYOUT_FEATURES)
    Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
p Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
    Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
p Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
uniformBufferStandardLayout))
    IO b
f
  cStructSize :: Int
cStructSize = 24
  cStructAlignment :: Int
cStructAlignment = 8
  pokeZeroCStruct :: Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> IO b -> IO b
pokeZeroCStruct p :: Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
p f :: IO b
f = do
    Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
p Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_UNIFORM_BUFFER_STANDARD_LAYOUT_FEATURES)
    Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
p Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
    Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
p Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
    IO b
f

instance FromCStruct PhysicalDeviceUniformBufferStandardLayoutFeatures where
  peekCStruct :: Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> IO PhysicalDeviceUniformBufferStandardLayoutFeatures
peekCStruct p :: Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
p = do
    Bool32
uniformBufferStandardLayout <- Ptr Bool32 -> IO Bool32
forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
p Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16 :: Ptr Bool32))
    PhysicalDeviceUniformBufferStandardLayoutFeatures
-> IO PhysicalDeviceUniformBufferStandardLayoutFeatures
forall (f :: * -> *) a. Applicative f => a -> f a
pure (PhysicalDeviceUniformBufferStandardLayoutFeatures
 -> IO PhysicalDeviceUniformBufferStandardLayoutFeatures)
-> PhysicalDeviceUniformBufferStandardLayoutFeatures
-> IO PhysicalDeviceUniformBufferStandardLayoutFeatures
forall a b. (a -> b) -> a -> b
$ Bool -> PhysicalDeviceUniformBufferStandardLayoutFeatures
PhysicalDeviceUniformBufferStandardLayoutFeatures
             (Bool32 -> Bool
bool32ToBool Bool32
uniformBufferStandardLayout)

instance Storable PhysicalDeviceUniformBufferStandardLayoutFeatures where
  sizeOf :: PhysicalDeviceUniformBufferStandardLayoutFeatures -> Int
sizeOf ~PhysicalDeviceUniformBufferStandardLayoutFeatures
_ = 24
  alignment :: PhysicalDeviceUniformBufferStandardLayoutFeatures -> Int
alignment ~PhysicalDeviceUniformBufferStandardLayoutFeatures
_ = 8
  peek :: Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> IO PhysicalDeviceUniformBufferStandardLayoutFeatures
peek = Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> IO PhysicalDeviceUniformBufferStandardLayoutFeatures
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
  poke :: Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> PhysicalDeviceUniformBufferStandardLayoutFeatures -> IO ()
poke ptr :: Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
ptr poked :: PhysicalDeviceUniformBufferStandardLayoutFeatures
poked = Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
-> PhysicalDeviceUniformBufferStandardLayoutFeatures
-> IO ()
-> IO ()
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
ptr PhysicalDeviceUniformBufferStandardLayoutFeatures
poked (() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())

instance Zero PhysicalDeviceUniformBufferStandardLayoutFeatures where
  zero :: PhysicalDeviceUniformBufferStandardLayoutFeatures
zero = Bool -> PhysicalDeviceUniformBufferStandardLayoutFeatures
PhysicalDeviceUniformBufferStandardLayoutFeatures
           Bool
forall a. Zero a => a
zero