{-# language CPP #-}
-- | = Name
--
-- VK_NV_present_metering - device extension
--
-- = VK_NV_present_metering
--
-- [__Name String__]
--     @VK_NV_present_metering@
--
-- [__Extension Type__]
--     Device extension
--
-- [__Registered Extension Number__]
--     614
--
-- [__Revision__]
--     1
--
-- [__Ratification Status__]
--     Not ratified
--
-- [__Extension and Version Dependencies__]
--     <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_KHR_get_physical_device_properties2 VK_KHR_get_physical_device_properties2>
--     or
--     <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#versions-1.1 Vulkan Version 1.1>
--
--     -   __This is a /provisional/ extension and /must/ be used with
--         caution. See the
--         <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#boilerplate-provisional-header description>
--         of provisional header files for enablement and stability
--         details.__
--
-- [__Contact__]
--
--     -   Charles Hansen
--         <https://github.com/KhronosGroup/Vulkan-Docs/issues/new?body=[VK_NV_present_metering] @chansen%0A*Here describe the issue or question you have about the VK_NV_present_metering extension* >
--
-- == Other Extension Metadata
--
-- [__Last Modified Date__]
--     2025-01-08
--
-- [__Provisional__]
--     *This extension is /provisional/ and /should/ not be used in
--     production applications. The functionality defined by this extension
--     /may/ change in ways that break backwards compatibility between
--     revisions, and before the final release of the non-provisional
--     version of this extension.
--
-- [__Contributors__]
--
--     -   Charles Hansen, NVIDIA
--
--     -   Lionel Duc, NVIDIA
--
-- == Description
--
-- This extension is used to evenly meter presents.
--
-- == New Structures
--
-- -   Extending
--     'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.PhysicalDeviceFeatures2',
--     'Vulkan.Core10.Device.DeviceCreateInfo':
--
--     -   'PhysicalDevicePresentMeteringFeaturesNV'
--
-- -   Extending 'Vulkan.Extensions.VK_KHR_swapchain.PresentInfoKHR':
--
--     -   'SetPresentConfigNV'
--
-- == New Enum Constants
--
-- -   'NV_PRESENT_METERING_EXTENSION_NAME'
--
-- -   'NV_PRESENT_METERING_SPEC_VERSION'
--
-- -   Extending 'Vulkan.Core10.Enums.StructureType.StructureType':
--
--     -   'Vulkan.Core10.Enums.StructureType.STRUCTURE_TYPE_PHYSICAL_DEVICE_PRESENT_METERING_FEATURES_NV'
--
--     -   'Vulkan.Core10.Enums.StructureType.STRUCTURE_TYPE_SET_PRESENT_CONFIG_NV'
--
-- == Version History
--
-- -   Revision 1, 2025-01-08 (Charles Hansen)
--
--     -   Internal revisions
--
-- == See Also
--
-- No cross-references are available
--
-- == Document Notes
--
-- For more information, see the
-- <https://registry.khronos.org/vulkan/specs/latest/html/vkspec.html#VK_NV_present_metering Vulkan Specification>.
--
-- This page is a generated document. Fixes and changes should be made to
-- the generator scripts, not directly.
module Vulkan.Extensions.VK_NV_present_metering  ( SetPresentConfigNV(..)
                                                 , PhysicalDevicePresentMeteringFeaturesNV(..)
                                                 , NV_PRESENT_METERING_SPEC_VERSION
                                                 , pattern NV_PRESENT_METERING_SPEC_VERSION
                                                 , NV_PRESENT_METERING_EXTENSION_NAME
                                                 , pattern NV_PRESENT_METERING_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.Word (Word32)
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_PRESENT_METERING_FEATURES_NV))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_SET_PRESENT_CONFIG_NV))
-- | VkSetPresentConfigNV - Structure specifying present metering
-- configuration
--
-- = Description
--
-- The metering configuration applies to all swapchains in the array in
-- 'Vulkan.Extensions.VK_KHR_swapchain.PresentInfoKHR'. The configuration
-- specified by 'SetPresentConfigNV' applies to the next
-- @numFramesPerBatch@ calls to
-- 'Vulkan.Extensions.VK_KHR_swapchain.queuePresentKHR' and needs to be
-- updated every @numFramesPerBatch@ presents.
--
-- == Valid Usage (Implicit)
--
-- = See Also
--
-- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_present_metering VK_NV_present_metering>,
-- 'Vulkan.Core10.Enums.StructureType.StructureType'
data SetPresentConfigNV = SetPresentConfigNV
  { -- | @numFramesPerBatch@ is the number of frames to batch
    --
    -- #VUID-VkSetPresentConfigNV-numFramesPerBatch-10581# @numFramesPerBatch@
    -- /must/ not be larger than 8
    SetPresentConfigNV -> Word32
numFramesPerBatch :: Word32
  , -- | @presentConfigFeedback@ will return the success or error status
    SetPresentConfigNV -> Word32
presentConfigFeedback :: Word32
  }
  deriving (Typeable, SetPresentConfigNV -> SetPresentConfigNV -> Bool
(SetPresentConfigNV -> SetPresentConfigNV -> Bool)
-> (SetPresentConfigNV -> SetPresentConfigNV -> Bool)
-> Eq SetPresentConfigNV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SetPresentConfigNV -> SetPresentConfigNV -> Bool
== :: SetPresentConfigNV -> SetPresentConfigNV -> Bool
$c/= :: SetPresentConfigNV -> SetPresentConfigNV -> Bool
/= :: SetPresentConfigNV -> SetPresentConfigNV -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (SetPresentConfigNV)
#endif
deriving instance Show SetPresentConfigNV

instance ToCStruct SetPresentConfigNV where
  withCStruct :: forall b.
SetPresentConfigNV -> (Ptr SetPresentConfigNV -> IO b) -> IO b
withCStruct SetPresentConfigNV
x Ptr SetPresentConfigNV -> IO b
f = Int -> (Ptr SetPresentConfigNV -> IO b) -> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 ((Ptr SetPresentConfigNV -> IO b) -> IO b)
-> (Ptr SetPresentConfigNV -> IO b) -> IO b
forall a b. (a -> b) -> a -> b
$ \Ptr SetPresentConfigNV
p -> Ptr SetPresentConfigNV -> SetPresentConfigNV -> IO b -> IO b
forall b.
Ptr SetPresentConfigNV -> SetPresentConfigNV -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr SetPresentConfigNV
p SetPresentConfigNV
x (Ptr SetPresentConfigNV -> IO b
f Ptr SetPresentConfigNV
p)
  pokeCStruct :: forall b.
Ptr SetPresentConfigNV -> SetPresentConfigNV -> IO b -> IO b
pokeCStruct Ptr SetPresentConfigNV
p SetPresentConfigNV{Word32
numFramesPerBatch :: SetPresentConfigNV -> Word32
presentConfigFeedback :: SetPresentConfigNV -> Word32
numFramesPerBatch :: Word32
presentConfigFeedback :: Word32
..} IO b
f = do
    Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SetPresentConfigNV
p Ptr SetPresentConfigNV -> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_SET_PRESENT_CONFIG_NV)
    Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SetPresentConfigNV
p Ptr SetPresentConfigNV -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SetPresentConfigNV
p Ptr SetPresentConfigNV -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Word32)) (Word32
numFramesPerBatch)
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SetPresentConfigNV
p Ptr SetPresentConfigNV -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Word32)) (Word32
presentConfigFeedback)
    IO b
f
  cStructSize :: Int
cStructSize = Int
24
  cStructAlignment :: Int
cStructAlignment = Int
8
  pokeZeroCStruct :: forall b. Ptr SetPresentConfigNV -> IO b -> IO b
pokeZeroCStruct Ptr SetPresentConfigNV
p IO b
f = do
    Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SetPresentConfigNV
p Ptr SetPresentConfigNV -> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_SET_PRESENT_CONFIG_NV)
    Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SetPresentConfigNV
p Ptr SetPresentConfigNV -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SetPresentConfigNV
p Ptr SetPresentConfigNV -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Word32)) (Word32
forall a. Zero a => a
zero)
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr SetPresentConfigNV
p Ptr SetPresentConfigNV -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Word32)) (Word32
forall a. Zero a => a
zero)
    IO b
f

instance FromCStruct SetPresentConfigNV where
  peekCStruct :: Ptr SetPresentConfigNV -> IO SetPresentConfigNV
peekCStruct Ptr SetPresentConfigNV
p = do
    numFramesPerBatch <- forall a. Storable a => Ptr a -> IO a
peek @Word32 ((Ptr SetPresentConfigNV
p Ptr SetPresentConfigNV -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Word32))
    presentConfigFeedback <- peek @Word32 ((p `plusPtr` 20 :: Ptr Word32))
    pure $ SetPresentConfigNV
             numFramesPerBatch presentConfigFeedback

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

instance Zero SetPresentConfigNV where
  zero :: SetPresentConfigNV
zero = Word32 -> Word32 -> SetPresentConfigNV
SetPresentConfigNV
           Word32
forall a. Zero a => a
zero
           Word32
forall a. Zero a => a
zero


-- | VkPhysicalDevicePresentMeteringFeaturesNV - Structure describing whether
-- the present metering features can be supported by an implementation
--
-- = Members
--
-- This structure describes the following features:
--
-- = Description
--
-- If the 'PhysicalDevicePresentMeteringFeaturesNV' structure is included
-- in the @pNext@ chain of the
-- 'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.PhysicalDeviceFeatures2'
-- structure passed to
-- 'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.getPhysicalDeviceFeatures2',
-- it is filled in to indicate whether each corresponding feature is
-- supported. If the application wishes to use a
-- 'Vulkan.Core10.Handles.Device' with any features described by
-- 'PhysicalDevicePresentMeteringFeaturesNV', it /must/ add an instance of
-- the structure, with the desired feature members set to
-- 'Vulkan.Core10.FundamentalTypes.TRUE', to the @pNext@ chain of
-- 'Vulkan.Core10.Device.DeviceCreateInfo' when creating the
-- 'Vulkan.Core10.Handles.Device'.
--
-- == Valid Usage (Implicit)
--
-- = See Also
--
-- <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VK_NV_present_metering VK_NV_present_metering>,
-- 'Vulkan.Core10.FundamentalTypes.Bool32',
-- 'Vulkan.Core10.Enums.StructureType.StructureType'
data PhysicalDevicePresentMeteringFeaturesNV = PhysicalDevicePresentMeteringFeaturesNV
  { -- | #features-presentMetering# @presentMetering@ indicates whether the
    -- implementation supports present metering capability.
    PhysicalDevicePresentMeteringFeaturesNV -> Bool
presentMetering :: Bool }
  deriving (Typeable, PhysicalDevicePresentMeteringFeaturesNV
-> PhysicalDevicePresentMeteringFeaturesNV -> Bool
(PhysicalDevicePresentMeteringFeaturesNV
 -> PhysicalDevicePresentMeteringFeaturesNV -> Bool)
-> (PhysicalDevicePresentMeteringFeaturesNV
    -> PhysicalDevicePresentMeteringFeaturesNV -> Bool)
-> Eq PhysicalDevicePresentMeteringFeaturesNV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PhysicalDevicePresentMeteringFeaturesNV
-> PhysicalDevicePresentMeteringFeaturesNV -> Bool
== :: PhysicalDevicePresentMeteringFeaturesNV
-> PhysicalDevicePresentMeteringFeaturesNV -> Bool
$c/= :: PhysicalDevicePresentMeteringFeaturesNV
-> PhysicalDevicePresentMeteringFeaturesNV -> Bool
/= :: PhysicalDevicePresentMeteringFeaturesNV
-> PhysicalDevicePresentMeteringFeaturesNV -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDevicePresentMeteringFeaturesNV)
#endif
deriving instance Show PhysicalDevicePresentMeteringFeaturesNV

instance ToCStruct PhysicalDevicePresentMeteringFeaturesNV where
  withCStruct :: forall b.
PhysicalDevicePresentMeteringFeaturesNV
-> (Ptr PhysicalDevicePresentMeteringFeaturesNV -> IO b) -> IO b
withCStruct PhysicalDevicePresentMeteringFeaturesNV
x Ptr PhysicalDevicePresentMeteringFeaturesNV -> IO b
f = Int
-> (Ptr PhysicalDevicePresentMeteringFeaturesNV -> IO b) -> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 ((Ptr PhysicalDevicePresentMeteringFeaturesNV -> IO b) -> IO b)
-> (Ptr PhysicalDevicePresentMeteringFeaturesNV -> IO b) -> IO b
forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDevicePresentMeteringFeaturesNV
p -> Ptr PhysicalDevicePresentMeteringFeaturesNV
-> PhysicalDevicePresentMeteringFeaturesNV -> IO b -> IO b
forall b.
Ptr PhysicalDevicePresentMeteringFeaturesNV
-> PhysicalDevicePresentMeteringFeaturesNV -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDevicePresentMeteringFeaturesNV
p PhysicalDevicePresentMeteringFeaturesNV
x (Ptr PhysicalDevicePresentMeteringFeaturesNV -> IO b
f Ptr PhysicalDevicePresentMeteringFeaturesNV
p)
  pokeCStruct :: forall b.
Ptr PhysicalDevicePresentMeteringFeaturesNV
-> PhysicalDevicePresentMeteringFeaturesNV -> IO b -> IO b
pokeCStruct Ptr PhysicalDevicePresentMeteringFeaturesNV
p PhysicalDevicePresentMeteringFeaturesNV{Bool
presentMetering :: PhysicalDevicePresentMeteringFeaturesNV -> Bool
presentMetering :: Bool
..} IO b
f = do
    Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePresentMeteringFeaturesNV
p Ptr PhysicalDevicePresentMeteringFeaturesNV
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_PRESENT_METERING_FEATURES_NV)
    Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePresentMeteringFeaturesNV
p Ptr PhysicalDevicePresentMeteringFeaturesNV -> 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 PhysicalDevicePresentMeteringFeaturesNV
p Ptr PhysicalDevicePresentMeteringFeaturesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
presentMetering))
    IO b
f
  cStructSize :: Int
cStructSize = Int
24
  cStructAlignment :: Int
cStructAlignment = Int
8
  pokeZeroCStruct :: forall b.
Ptr PhysicalDevicePresentMeteringFeaturesNV -> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDevicePresentMeteringFeaturesNV
p IO b
f = do
    Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePresentMeteringFeaturesNV
p Ptr PhysicalDevicePresentMeteringFeaturesNV
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_PRESENT_METERING_FEATURES_NV)
    Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePresentMeteringFeaturesNV
p Ptr PhysicalDevicePresentMeteringFeaturesNV -> 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 PhysicalDevicePresentMeteringFeaturesNV
p Ptr PhysicalDevicePresentMeteringFeaturesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
    IO b
f

instance FromCStruct PhysicalDevicePresentMeteringFeaturesNV where
  peekCStruct :: Ptr PhysicalDevicePresentMeteringFeaturesNV
-> IO PhysicalDevicePresentMeteringFeaturesNV
peekCStruct Ptr PhysicalDevicePresentMeteringFeaturesNV
p = do
    presentMetering <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDevicePresentMeteringFeaturesNV
p Ptr PhysicalDevicePresentMeteringFeaturesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
    pure $ PhysicalDevicePresentMeteringFeaturesNV
             (bool32ToBool presentMetering)

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

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


type NV_PRESENT_METERING_SPEC_VERSION = 1

-- No documentation found for TopLevel "VK_NV_PRESENT_METERING_SPEC_VERSION"
pattern NV_PRESENT_METERING_SPEC_VERSION :: forall a . Integral a => a
pattern $mNV_PRESENT_METERING_SPEC_VERSION :: forall {r} {a}.
Integral a =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bNV_PRESENT_METERING_SPEC_VERSION :: forall a. Integral a => a
NV_PRESENT_METERING_SPEC_VERSION = 1


type NV_PRESENT_METERING_EXTENSION_NAME = "VK_NV_present_metering"

-- No documentation found for TopLevel "VK_NV_PRESENT_METERING_EXTENSION_NAME"
pattern NV_PRESENT_METERING_EXTENSION_NAME :: forall a . (Eq a, IsString a) => a
pattern $mNV_PRESENT_METERING_EXTENSION_NAME :: forall {r} {a}.
(Eq a, IsString a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bNV_PRESENT_METERING_EXTENSION_NAME :: forall a. (Eq a, IsString a) => a
NV_PRESENT_METERING_EXTENSION_NAME = "VK_NV_present_metering"