{-# OPTIONS_GHC -fno-warn-orphans#-}
{-# OPTIONS_GHC -fno-warn-unused-imports#-}
{-# OPTIONS_HADDOCK not-home#-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE Strict #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE ViewPatterns #-}
module Graphics.Vulkan.Ext.VK_EXT_debug_utils
(
module Graphics.Vulkan.Marshal, VkApplicationInfo,
AHardwareBuffer(), ANativeWindow(), CAMetalLayer(), VkBool32(..),
VkDeviceAddress(..), VkDeviceSize(..), VkFlags(..),
VkSampleMask(..), VkDebugUtilsLabelEXT,
VkDebugReportBitmaskEXT(..), VkDebugReportObjectTypeEXT(..),
pattern VK_DEBUG_REPORT_OBJECT_TYPE_DEBUG_REPORT_EXT,
pattern VK_DEBUG_REPORT_OBJECT_TYPE_VALIDATION_CACHE_EXT,
VkDebugUtilsMessageSeverityBitmaskEXT(..),
VkDebugUtilsMessageTypeBitmaskEXT(..), VkDebugReportFlagBitsEXT(),
VkDebugReportFlagsEXT(), VkDebugUtilsMessageSeverityFlagBitsEXT(),
VkDebugUtilsMessageSeverityFlagsEXT(),
VkDebugUtilsMessageTypeFlagBitsEXT(),
VkDebugUtilsMessageTypeFlagsEXT(),
VkDebugUtilsMessengerCallbackDataEXT,
VkAndroidSurfaceCreateFlagsKHR(..), VkBufferViewCreateFlags(..),
VkBuildAccelerationStructureFlagsNV(..),
VkCommandPoolTrimFlags(..), VkCommandPoolTrimFlagsKHR(..),
VkDebugUtilsMessengerCallbackDataFlagsEXT(..),
VkDebugUtilsMessengerCreateFlagsEXT(..),
VkDescriptorBindingFlagsEXT(..), VkDescriptorPoolResetFlags(..),
VkDescriptorUpdateTemplateCreateFlags(..),
VkDescriptorUpdateTemplateCreateFlagsKHR(..),
VkDeviceCreateFlags(..), VkDirectFBSurfaceCreateFlagsEXT(..),
VkDisplayModeCreateFlagsKHR(..),
VkDisplaySurfaceCreateFlagsKHR(..), VkEventCreateFlags(..),
VkExternalFenceFeatureFlagsKHR(..),
VkExternalFenceHandleTypeFlagsKHR(..),
VkExternalMemoryFeatureFlagsKHR(..),
VkExternalMemoryHandleTypeFlagsKHR(..),
VkExternalSemaphoreFeatureFlagsKHR(..),
VkExternalSemaphoreHandleTypeFlagsKHR(..),
VkFenceImportFlagsKHR(..), VkGeometryFlagsNV(..),
VkGeometryInstanceFlagsNV(..), VkHeadlessSurfaceCreateFlagsEXT(..),
VkIOSSurfaceCreateFlagsMVK(..),
VkImagePipeSurfaceCreateFlagsFUCHSIA(..),
VkInstanceCreateFlags(..), VkMacOSSurfaceCreateFlagsMVK(..),
VkMemoryAllocateFlagsKHR(..), VkMemoryMapFlags(..),
VkMetalSurfaceCreateFlagsEXT(..), VkPeerMemoryFeatureFlagsKHR(..),
VkPipelineColorBlendStateCreateFlags(..),
VkPipelineCoverageModulationStateCreateFlagsNV(..),
VkPipelineCoverageReductionStateCreateFlagsNV(..),
VkPipelineCoverageToColorStateCreateFlagsNV(..),
VkPipelineDepthStencilStateCreateFlags(..),
VkPipelineDiscardRectangleStateCreateFlagsEXT(..),
VkPipelineDynamicStateCreateFlags(..),
VkPipelineInputAssemblyStateCreateFlags(..),
VkPipelineLayoutCreateFlags(..),
VkPipelineMultisampleStateCreateFlags(..),
VkPipelineRasterizationConservativeStateCreateFlagsEXT(..),
VkPipelineRasterizationDepthClipStateCreateFlagsEXT(..),
VkPipelineRasterizationStateCreateFlags(..),
VkPipelineRasterizationStateStreamCreateFlagsEXT(..),
VkPipelineTessellationStateCreateFlags(..),
VkPipelineVertexInputStateCreateFlags(..),
VkPipelineViewportStateCreateFlags(..),
VkPipelineViewportSwizzleStateCreateFlagsNV(..),
VkQueryPoolCreateFlags(..), VkResolveModeFlagsKHR(..),
VkSemaphoreCreateFlags(..), VkSemaphoreImportFlagsKHR(..),
VkSemaphoreWaitFlagsKHR(..),
VkStreamDescriptorSurfaceCreateFlagsGGP(..),
VkValidationCacheCreateFlagsEXT(..), VkViSurfaceCreateFlagsNN(..),
VkWaylandSurfaceCreateFlagsKHR(..),
VkWin32SurfaceCreateFlagsKHR(..), VkXcbSurfaceCreateFlagsKHR(..),
VkXlibSurfaceCreateFlagsKHR(..),
VkDebugUtilsMessengerCreateInfoEXT, VkDebugUtilsObjectNameInfoEXT,
VkDebugUtilsObjectTagInfoEXT, VkInstanceCreateInfo,
VkObjectType(..), VkStructureType(..),
VkSetDebugUtilsObjectNameEXT, pattern VkSetDebugUtilsObjectNameEXT,
HS_vkSetDebugUtilsObjectNameEXT, PFN_vkSetDebugUtilsObjectNameEXT,
VkSetDebugUtilsObjectTagEXT, pattern VkSetDebugUtilsObjectTagEXT,
HS_vkSetDebugUtilsObjectTagEXT, PFN_vkSetDebugUtilsObjectTagEXT,
VkQueueBeginDebugUtilsLabelEXT,
pattern VkQueueBeginDebugUtilsLabelEXT,
HS_vkQueueBeginDebugUtilsLabelEXT,
PFN_vkQueueBeginDebugUtilsLabelEXT, VkQueueEndDebugUtilsLabelEXT,
pattern VkQueueEndDebugUtilsLabelEXT,
HS_vkQueueEndDebugUtilsLabelEXT, PFN_vkQueueEndDebugUtilsLabelEXT,
VkQueueInsertDebugUtilsLabelEXT,
pattern VkQueueInsertDebugUtilsLabelEXT,
HS_vkQueueInsertDebugUtilsLabelEXT,
PFN_vkQueueInsertDebugUtilsLabelEXT, VkCmdBeginDebugUtilsLabelEXT,
pattern VkCmdBeginDebugUtilsLabelEXT,
HS_vkCmdBeginDebugUtilsLabelEXT, PFN_vkCmdBeginDebugUtilsLabelEXT,
VkCmdEndDebugUtilsLabelEXT, pattern VkCmdEndDebugUtilsLabelEXT,
HS_vkCmdEndDebugUtilsLabelEXT, PFN_vkCmdEndDebugUtilsLabelEXT,
VkCmdInsertDebugUtilsLabelEXT,
pattern VkCmdInsertDebugUtilsLabelEXT,
HS_vkCmdInsertDebugUtilsLabelEXT,
PFN_vkCmdInsertDebugUtilsLabelEXT, VkCreateDebugUtilsMessengerEXT,
pattern VkCreateDebugUtilsMessengerEXT,
HS_vkCreateDebugUtilsMessengerEXT,
PFN_vkCreateDebugUtilsMessengerEXT,
VkDestroyDebugUtilsMessengerEXT,
pattern VkDestroyDebugUtilsMessengerEXT,
HS_vkDestroyDebugUtilsMessengerEXT,
PFN_vkDestroyDebugUtilsMessengerEXT, VkSubmitDebugUtilsMessageEXT,
pattern VkSubmitDebugUtilsMessageEXT,
HS_vkSubmitDebugUtilsMessageEXT, PFN_vkSubmitDebugUtilsMessageEXT,
VkInternalAllocationType(..), VkResult(..),
VkSystemAllocationScope(..), newVkAllocationFunction,
newVkDebugReportCallbackEXT, newVkDebugUtilsMessengerCallbackEXT,
newVkFreeFunction, newVkInternalAllocationNotification,
newVkInternalFreeNotification, newVkReallocationFunction,
newVkVoidFunction, unwrapVkAllocationFunction,
unwrapVkDebugReportCallbackEXT,
unwrapVkDebugUtilsMessengerCallbackEXT, unwrapVkFreeFunction,
unwrapVkInternalAllocationNotification,
unwrapVkInternalFreeNotification, unwrapVkReallocationFunction,
unwrapVkVoidFunction, HS_vkAllocationFunction,
HS_vkDebugReportCallbackEXT, HS_vkDebugUtilsMessengerCallbackEXT,
HS_vkFreeFunction, HS_vkInternalAllocationNotification,
HS_vkInternalFreeNotification, HS_vkReallocationFunction,
HS_vkVoidFunction, PFN_vkAllocationFunction,
PFN_vkDebugReportCallbackEXT, PFN_vkDebugUtilsMessengerCallbackEXT,
PFN_vkFreeFunction, PFN_vkInternalAllocationNotification,
PFN_vkInternalFreeNotification, PFN_vkReallocationFunction,
PFN_vkVoidFunction, VkAccelerationStructureKHR,
VkAccelerationStructureKHR_T(), VkAccelerationStructureNV,
VkAccelerationStructureNV_T(), VkBuffer, VkBufferView,
VkBufferView_T(), VkBuffer_T(), VkCommandBuffer,
VkCommandBuffer_T(), VkCommandPool, VkCommandPool_T(),
VkDebugReportCallbackEXT, VkDebugReportCallbackEXT_T(),
VkDebugUtilsMessengerEXT, VkDebugUtilsMessengerEXT_T(),
VkDeferredOperationKHR, VkDeferredOperationKHR_T(),
VkDescriptorPool, VkDescriptorPool_T(), VkDescriptorSet,
VkDescriptorSetLayout, VkDescriptorSetLayout_T(),
VkDescriptorSet_T(), VkDescriptorUpdateTemplate,
VkDescriptorUpdateTemplateKHR, VkDescriptorUpdateTemplateKHR_T(),
VkDescriptorUpdateTemplate_T(), VkDevice, VkDeviceMemory,
VkDeviceMemory_T(), VkDevice_T(), VkDisplayKHR, VkDisplayKHR_T(),
VkDisplayModeKHR, VkDisplayModeKHR_T(), VkEvent, VkEvent_T(),
VkFence, VkFence_T(), VkFramebuffer, VkFramebuffer_T(), VkImage,
VkImageView, VkImageView_T(), VkImage_T(),
VkIndirectCommandsLayoutNV, VkIndirectCommandsLayoutNV_T(),
VkInstance, VkInstance_T(), VkPerformanceConfigurationINTEL,
VkPerformanceConfigurationINTEL_T(), VkPhysicalDevice,
VkPhysicalDevice_T(), VkPipeline, VkPipelineCache,
VkPipelineCache_T(), VkPipelineLayout, VkPipelineLayout_T(),
VkPipeline_T(), VkPrivateDataSlotEXT, VkPrivateDataSlotEXT_T(),
VkQueryPool, VkQueryPool_T(), VkQueue, VkQueue_T(), VkRenderPass,
VkRenderPass_T(), VkSampler, VkSamplerYcbcrConversion,
VkSamplerYcbcrConversionKHR, VkSamplerYcbcrConversionKHR_T(),
VkSamplerYcbcrConversion_T(), VkSampler_T(), VkSemaphore,
VkSemaphore_T(), VkShaderModule, VkShaderModule_T(), VkSurfaceKHR,
VkSurfaceKHR_T(), VkSwapchainKHR, VkSwapchainKHR_T(),
VkValidationCacheEXT, VkValidationCacheEXT_T(),
VkAllocationCallbacks, VkDebugMarkerMarkerInfoEXT,
VkDebugMarkerObjectNameInfoEXT, VkDebugMarkerObjectTagInfoEXT,
VkDebugReportCallbackCreateInfoEXT,
VK_EXT_DEBUG_UTILS_SPEC_VERSION,
pattern VK_EXT_DEBUG_UTILS_SPEC_VERSION,
VK_EXT_DEBUG_UTILS_EXTENSION_NAME,
pattern VK_EXT_DEBUG_UTILS_EXTENSION_NAME,
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_NAME_INFO_EXT,
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_TAG_INFO_EXT,
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_LABEL_EXT,
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CALLBACK_DATA_EXT,
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CREATE_INFO_EXT,
pattern VK_OBJECT_TYPE_DEBUG_UTILS_MESSENGER_EXT)
where
import GHC.Ptr (Ptr (..))
import Graphics.Vulkan.Marshal
import Graphics.Vulkan.Marshal.Proc (VulkanProc (..))
import Graphics.Vulkan.Types.BaseTypes
import Graphics.Vulkan.Types.Bitmasks
import Graphics.Vulkan.Types.Enum.Debug
import Graphics.Vulkan.Types.Enum.InternalAllocationType
import Graphics.Vulkan.Types.Enum.ObjectType
import Graphics.Vulkan.Types.Enum.Result
import Graphics.Vulkan.Types.Enum.StructureType
import Graphics.Vulkan.Types.Enum.SystemAllocationScope
import Graphics.Vulkan.Types.Funcpointers
import Graphics.Vulkan.Types.Handles
import Graphics.Vulkan.Types.Struct.AllocationCallbacks
import Graphics.Vulkan.Types.Struct.ApplicationInfo
import Graphics.Vulkan.Types.Struct.Debug
import Graphics.Vulkan.Types.Struct.DebugUtilsLabelEXT
import Graphics.Vulkan.Types.Struct.DebugUtilsMessengerCallbackDataEXT
import Graphics.Vulkan.Types.Struct.DebugUtilsMessengerCreateInfoEXT
import Graphics.Vulkan.Types.Struct.DebugUtilsObjectNameInfoEXT
import Graphics.Vulkan.Types.Struct.InstanceCreateInfo
pattern VkSetDebugUtilsObjectNameEXT :: CString
pattern $bVkSetDebugUtilsObjectNameEXT :: CString
$mVkSetDebugUtilsObjectNameEXT :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VkSetDebugUtilsObjectNameEXT <-
(is_VkSetDebugUtilsObjectNameEXT -> True)
where
VkSetDebugUtilsObjectNameEXT = CString
_VkSetDebugUtilsObjectNameEXT
{-# INLINE _VkSetDebugUtilsObjectNameEXT #-}
_VkSetDebugUtilsObjectNameEXT :: CString
_VkSetDebugUtilsObjectNameEXT :: CString
_VkSetDebugUtilsObjectNameEXT
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkSetDebugUtilsObjectNameEXT\NUL"#
{-# INLINE is_VkSetDebugUtilsObjectNameEXT #-}
is_VkSetDebugUtilsObjectNameEXT :: CString -> Bool
is_VkSetDebugUtilsObjectNameEXT :: CString -> Bool
is_VkSetDebugUtilsObjectNameEXT
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VkSetDebugUtilsObjectNameEXT
type VkSetDebugUtilsObjectNameEXT = "vkSetDebugUtilsObjectNameEXT"
type HS_vkSetDebugUtilsObjectNameEXT =
VkDevice
-> Ptr VkDebugUtilsObjectNameInfoEXT
-> IO VkResult
type PFN_vkSetDebugUtilsObjectNameEXT =
FunPtr HS_vkSetDebugUtilsObjectNameEXT
foreign import ccall unsafe "dynamic"
unwrapVkSetDebugUtilsObjectNameEXTUnsafe ::
PFN_vkSetDebugUtilsObjectNameEXT -> HS_vkSetDebugUtilsObjectNameEXT
foreign import ccall safe "dynamic"
unwrapVkSetDebugUtilsObjectNameEXTSafe ::
PFN_vkSetDebugUtilsObjectNameEXT -> HS_vkSetDebugUtilsObjectNameEXT
instance VulkanProc "vkSetDebugUtilsObjectNameEXT" where
type VkProcType "vkSetDebugUtilsObjectNameEXT" =
HS_vkSetDebugUtilsObjectNameEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkSetDebugUtilsObjectNameEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe :: FunPtr (VkProcType "vkSetDebugUtilsObjectNameEXT")
-> VkProcType "vkSetDebugUtilsObjectNameEXT"
unwrapVkProcPtrUnsafe = FunPtr (VkProcType "vkSetDebugUtilsObjectNameEXT")
-> VkProcType "vkSetDebugUtilsObjectNameEXT"
PFN_vkSetDebugUtilsObjectNameEXT -> HS_vkSetDebugUtilsObjectNameEXT
unwrapVkSetDebugUtilsObjectNameEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe :: FunPtr (VkProcType "vkSetDebugUtilsObjectNameEXT")
-> VkProcType "vkSetDebugUtilsObjectNameEXT"
unwrapVkProcPtrSafe = FunPtr (VkProcType "vkSetDebugUtilsObjectNameEXT")
-> VkProcType "vkSetDebugUtilsObjectNameEXT"
PFN_vkSetDebugUtilsObjectNameEXT -> HS_vkSetDebugUtilsObjectNameEXT
unwrapVkSetDebugUtilsObjectNameEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkSetDebugUtilsObjectTagEXT :: CString
pattern $bVkSetDebugUtilsObjectTagEXT :: CString
$mVkSetDebugUtilsObjectTagEXT :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VkSetDebugUtilsObjectTagEXT <-
(is_VkSetDebugUtilsObjectTagEXT -> True)
where
VkSetDebugUtilsObjectTagEXT = CString
_VkSetDebugUtilsObjectTagEXT
{-# INLINE _VkSetDebugUtilsObjectTagEXT #-}
_VkSetDebugUtilsObjectTagEXT :: CString
_VkSetDebugUtilsObjectTagEXT :: CString
_VkSetDebugUtilsObjectTagEXT
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkSetDebugUtilsObjectTagEXT\NUL"#
{-# INLINE is_VkSetDebugUtilsObjectTagEXT #-}
is_VkSetDebugUtilsObjectTagEXT :: CString -> Bool
is_VkSetDebugUtilsObjectTagEXT :: CString -> Bool
is_VkSetDebugUtilsObjectTagEXT
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VkSetDebugUtilsObjectTagEXT
type VkSetDebugUtilsObjectTagEXT = "vkSetDebugUtilsObjectTagEXT"
type HS_vkSetDebugUtilsObjectTagEXT =
VkDevice
-> Ptr VkDebugUtilsObjectTagInfoEXT
-> IO VkResult
type PFN_vkSetDebugUtilsObjectTagEXT =
FunPtr HS_vkSetDebugUtilsObjectTagEXT
foreign import ccall unsafe "dynamic"
unwrapVkSetDebugUtilsObjectTagEXTUnsafe ::
PFN_vkSetDebugUtilsObjectTagEXT -> HS_vkSetDebugUtilsObjectTagEXT
foreign import ccall safe "dynamic"
unwrapVkSetDebugUtilsObjectTagEXTSafe ::
PFN_vkSetDebugUtilsObjectTagEXT -> HS_vkSetDebugUtilsObjectTagEXT
instance VulkanProc "vkSetDebugUtilsObjectTagEXT" where
type VkProcType "vkSetDebugUtilsObjectTagEXT" =
HS_vkSetDebugUtilsObjectTagEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkSetDebugUtilsObjectTagEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe :: FunPtr (VkProcType "vkSetDebugUtilsObjectTagEXT")
-> VkProcType "vkSetDebugUtilsObjectTagEXT"
unwrapVkProcPtrUnsafe = FunPtr (VkProcType "vkSetDebugUtilsObjectTagEXT")
-> VkProcType "vkSetDebugUtilsObjectTagEXT"
PFN_vkSetDebugUtilsObjectTagEXT -> HS_vkSetDebugUtilsObjectTagEXT
unwrapVkSetDebugUtilsObjectTagEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe :: FunPtr (VkProcType "vkSetDebugUtilsObjectTagEXT")
-> VkProcType "vkSetDebugUtilsObjectTagEXT"
unwrapVkProcPtrSafe = FunPtr (VkProcType "vkSetDebugUtilsObjectTagEXT")
-> VkProcType "vkSetDebugUtilsObjectTagEXT"
PFN_vkSetDebugUtilsObjectTagEXT -> HS_vkSetDebugUtilsObjectTagEXT
unwrapVkSetDebugUtilsObjectTagEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkQueueBeginDebugUtilsLabelEXT :: CString
pattern $bVkQueueBeginDebugUtilsLabelEXT :: CString
$mVkQueueBeginDebugUtilsLabelEXT :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VkQueueBeginDebugUtilsLabelEXT <-
(is_VkQueueBeginDebugUtilsLabelEXT -> True)
where
VkQueueBeginDebugUtilsLabelEXT = CString
_VkQueueBeginDebugUtilsLabelEXT
{-# INLINE _VkQueueBeginDebugUtilsLabelEXT #-}
_VkQueueBeginDebugUtilsLabelEXT :: CString
_VkQueueBeginDebugUtilsLabelEXT :: CString
_VkQueueBeginDebugUtilsLabelEXT
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkQueueBeginDebugUtilsLabelEXT\NUL"#
{-# INLINE is_VkQueueBeginDebugUtilsLabelEXT #-}
is_VkQueueBeginDebugUtilsLabelEXT :: CString -> Bool
is_VkQueueBeginDebugUtilsLabelEXT :: CString -> Bool
is_VkQueueBeginDebugUtilsLabelEXT
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VkQueueBeginDebugUtilsLabelEXT
type VkQueueBeginDebugUtilsLabelEXT =
"vkQueueBeginDebugUtilsLabelEXT"
type HS_vkQueueBeginDebugUtilsLabelEXT =
VkQueue
-> Ptr VkDebugUtilsLabelEXT
-> IO ()
type PFN_vkQueueBeginDebugUtilsLabelEXT =
FunPtr HS_vkQueueBeginDebugUtilsLabelEXT
foreign import ccall unsafe "dynamic"
unwrapVkQueueBeginDebugUtilsLabelEXTUnsafe ::
PFN_vkQueueBeginDebugUtilsLabelEXT ->
HS_vkQueueBeginDebugUtilsLabelEXT
foreign import ccall safe "dynamic"
unwrapVkQueueBeginDebugUtilsLabelEXTSafe ::
PFN_vkQueueBeginDebugUtilsLabelEXT ->
HS_vkQueueBeginDebugUtilsLabelEXT
instance VulkanProc "vkQueueBeginDebugUtilsLabelEXT" where
type VkProcType "vkQueueBeginDebugUtilsLabelEXT" =
HS_vkQueueBeginDebugUtilsLabelEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkQueueBeginDebugUtilsLabelEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe :: FunPtr (VkProcType "vkQueueBeginDebugUtilsLabelEXT")
-> VkProcType "vkQueueBeginDebugUtilsLabelEXT"
unwrapVkProcPtrUnsafe = FunPtr (VkProcType "vkQueueBeginDebugUtilsLabelEXT")
-> VkProcType "vkQueueBeginDebugUtilsLabelEXT"
PFN_vkQueueBeginDebugUtilsLabelEXT
-> HS_vkQueueBeginDebugUtilsLabelEXT
unwrapVkQueueBeginDebugUtilsLabelEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe :: FunPtr (VkProcType "vkQueueBeginDebugUtilsLabelEXT")
-> VkProcType "vkQueueBeginDebugUtilsLabelEXT"
unwrapVkProcPtrSafe = FunPtr (VkProcType "vkQueueBeginDebugUtilsLabelEXT")
-> VkProcType "vkQueueBeginDebugUtilsLabelEXT"
PFN_vkQueueBeginDebugUtilsLabelEXT
-> HS_vkQueueBeginDebugUtilsLabelEXT
unwrapVkQueueBeginDebugUtilsLabelEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkQueueEndDebugUtilsLabelEXT :: CString
pattern $bVkQueueEndDebugUtilsLabelEXT :: CString
$mVkQueueEndDebugUtilsLabelEXT :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VkQueueEndDebugUtilsLabelEXT <-
(is_VkQueueEndDebugUtilsLabelEXT -> True)
where
VkQueueEndDebugUtilsLabelEXT = CString
_VkQueueEndDebugUtilsLabelEXT
{-# INLINE _VkQueueEndDebugUtilsLabelEXT #-}
_VkQueueEndDebugUtilsLabelEXT :: CString
_VkQueueEndDebugUtilsLabelEXT :: CString
_VkQueueEndDebugUtilsLabelEXT
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkQueueEndDebugUtilsLabelEXT\NUL"#
{-# INLINE is_VkQueueEndDebugUtilsLabelEXT #-}
is_VkQueueEndDebugUtilsLabelEXT :: CString -> Bool
is_VkQueueEndDebugUtilsLabelEXT :: CString -> Bool
is_VkQueueEndDebugUtilsLabelEXT
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VkQueueEndDebugUtilsLabelEXT
type VkQueueEndDebugUtilsLabelEXT = "vkQueueEndDebugUtilsLabelEXT"
type HS_vkQueueEndDebugUtilsLabelEXT = VkQueue
-> IO ()
type PFN_vkQueueEndDebugUtilsLabelEXT =
FunPtr HS_vkQueueEndDebugUtilsLabelEXT
foreign import ccall unsafe "dynamic"
unwrapVkQueueEndDebugUtilsLabelEXTUnsafe ::
PFN_vkQueueEndDebugUtilsLabelEXT -> HS_vkQueueEndDebugUtilsLabelEXT
foreign import ccall safe "dynamic"
unwrapVkQueueEndDebugUtilsLabelEXTSafe ::
PFN_vkQueueEndDebugUtilsLabelEXT -> HS_vkQueueEndDebugUtilsLabelEXT
instance VulkanProc "vkQueueEndDebugUtilsLabelEXT" where
type VkProcType "vkQueueEndDebugUtilsLabelEXT" =
HS_vkQueueEndDebugUtilsLabelEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkQueueEndDebugUtilsLabelEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe :: FunPtr (VkProcType "vkQueueEndDebugUtilsLabelEXT")
-> VkProcType "vkQueueEndDebugUtilsLabelEXT"
unwrapVkProcPtrUnsafe = FunPtr (VkProcType "vkQueueEndDebugUtilsLabelEXT")
-> VkProcType "vkQueueEndDebugUtilsLabelEXT"
PFN_vkQueueEndDebugUtilsLabelEXT -> HS_vkQueueEndDebugUtilsLabelEXT
unwrapVkQueueEndDebugUtilsLabelEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe :: FunPtr (VkProcType "vkQueueEndDebugUtilsLabelEXT")
-> VkProcType "vkQueueEndDebugUtilsLabelEXT"
unwrapVkProcPtrSafe = FunPtr (VkProcType "vkQueueEndDebugUtilsLabelEXT")
-> VkProcType "vkQueueEndDebugUtilsLabelEXT"
PFN_vkQueueEndDebugUtilsLabelEXT -> HS_vkQueueEndDebugUtilsLabelEXT
unwrapVkQueueEndDebugUtilsLabelEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkQueueInsertDebugUtilsLabelEXT :: CString
pattern $bVkQueueInsertDebugUtilsLabelEXT :: CString
$mVkQueueInsertDebugUtilsLabelEXT :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VkQueueInsertDebugUtilsLabelEXT <-
(is_VkQueueInsertDebugUtilsLabelEXT -> True)
where
VkQueueInsertDebugUtilsLabelEXT = CString
_VkQueueInsertDebugUtilsLabelEXT
{-# INLINE _VkQueueInsertDebugUtilsLabelEXT #-}
_VkQueueInsertDebugUtilsLabelEXT :: CString
_VkQueueInsertDebugUtilsLabelEXT :: CString
_VkQueueInsertDebugUtilsLabelEXT
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkQueueInsertDebugUtilsLabelEXT\NUL"#
{-# INLINE is_VkQueueInsertDebugUtilsLabelEXT #-}
is_VkQueueInsertDebugUtilsLabelEXT :: CString -> Bool
is_VkQueueInsertDebugUtilsLabelEXT :: CString -> Bool
is_VkQueueInsertDebugUtilsLabelEXT
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VkQueueInsertDebugUtilsLabelEXT
type VkQueueInsertDebugUtilsLabelEXT =
"vkQueueInsertDebugUtilsLabelEXT"
type HS_vkQueueInsertDebugUtilsLabelEXT =
VkQueue
-> Ptr VkDebugUtilsLabelEXT
-> IO ()
type PFN_vkQueueInsertDebugUtilsLabelEXT =
FunPtr HS_vkQueueInsertDebugUtilsLabelEXT
foreign import ccall unsafe "dynamic"
unwrapVkQueueInsertDebugUtilsLabelEXTUnsafe ::
PFN_vkQueueInsertDebugUtilsLabelEXT ->
HS_vkQueueInsertDebugUtilsLabelEXT
foreign import ccall safe "dynamic"
unwrapVkQueueInsertDebugUtilsLabelEXTSafe ::
PFN_vkQueueInsertDebugUtilsLabelEXT ->
HS_vkQueueInsertDebugUtilsLabelEXT
instance VulkanProc "vkQueueInsertDebugUtilsLabelEXT" where
type VkProcType "vkQueueInsertDebugUtilsLabelEXT" =
HS_vkQueueInsertDebugUtilsLabelEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkQueueInsertDebugUtilsLabelEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe :: FunPtr (VkProcType "vkQueueInsertDebugUtilsLabelEXT")
-> VkProcType "vkQueueInsertDebugUtilsLabelEXT"
unwrapVkProcPtrUnsafe = FunPtr (VkProcType "vkQueueInsertDebugUtilsLabelEXT")
-> VkProcType "vkQueueInsertDebugUtilsLabelEXT"
PFN_vkQueueBeginDebugUtilsLabelEXT
-> HS_vkQueueBeginDebugUtilsLabelEXT
unwrapVkQueueInsertDebugUtilsLabelEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe :: FunPtr (VkProcType "vkQueueInsertDebugUtilsLabelEXT")
-> VkProcType "vkQueueInsertDebugUtilsLabelEXT"
unwrapVkProcPtrSafe = FunPtr (VkProcType "vkQueueInsertDebugUtilsLabelEXT")
-> VkProcType "vkQueueInsertDebugUtilsLabelEXT"
PFN_vkQueueBeginDebugUtilsLabelEXT
-> HS_vkQueueBeginDebugUtilsLabelEXT
unwrapVkQueueInsertDebugUtilsLabelEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkCmdBeginDebugUtilsLabelEXT :: CString
pattern $bVkCmdBeginDebugUtilsLabelEXT :: CString
$mVkCmdBeginDebugUtilsLabelEXT :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VkCmdBeginDebugUtilsLabelEXT <-
(is_VkCmdBeginDebugUtilsLabelEXT -> True)
where
VkCmdBeginDebugUtilsLabelEXT = CString
_VkCmdBeginDebugUtilsLabelEXT
{-# INLINE _VkCmdBeginDebugUtilsLabelEXT #-}
_VkCmdBeginDebugUtilsLabelEXT :: CString
_VkCmdBeginDebugUtilsLabelEXT :: CString
_VkCmdBeginDebugUtilsLabelEXT
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkCmdBeginDebugUtilsLabelEXT\NUL"#
{-# INLINE is_VkCmdBeginDebugUtilsLabelEXT #-}
is_VkCmdBeginDebugUtilsLabelEXT :: CString -> Bool
is_VkCmdBeginDebugUtilsLabelEXT :: CString -> Bool
is_VkCmdBeginDebugUtilsLabelEXT
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VkCmdBeginDebugUtilsLabelEXT
type VkCmdBeginDebugUtilsLabelEXT = "vkCmdBeginDebugUtilsLabelEXT"
type HS_vkCmdBeginDebugUtilsLabelEXT =
VkCommandBuffer
-> Ptr VkDebugUtilsLabelEXT
-> IO ()
type PFN_vkCmdBeginDebugUtilsLabelEXT =
FunPtr HS_vkCmdBeginDebugUtilsLabelEXT
foreign import ccall unsafe "dynamic"
unwrapVkCmdBeginDebugUtilsLabelEXTUnsafe ::
PFN_vkCmdBeginDebugUtilsLabelEXT -> HS_vkCmdBeginDebugUtilsLabelEXT
foreign import ccall safe "dynamic"
unwrapVkCmdBeginDebugUtilsLabelEXTSafe ::
PFN_vkCmdBeginDebugUtilsLabelEXT -> HS_vkCmdBeginDebugUtilsLabelEXT
instance VulkanProc "vkCmdBeginDebugUtilsLabelEXT" where
type VkProcType "vkCmdBeginDebugUtilsLabelEXT" =
HS_vkCmdBeginDebugUtilsLabelEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkCmdBeginDebugUtilsLabelEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe :: FunPtr (VkProcType "vkCmdBeginDebugUtilsLabelEXT")
-> VkProcType "vkCmdBeginDebugUtilsLabelEXT"
unwrapVkProcPtrUnsafe = FunPtr (VkProcType "vkCmdBeginDebugUtilsLabelEXT")
-> VkProcType "vkCmdBeginDebugUtilsLabelEXT"
PFN_vkCmdBeginDebugUtilsLabelEXT -> HS_vkCmdBeginDebugUtilsLabelEXT
unwrapVkCmdBeginDebugUtilsLabelEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe :: FunPtr (VkProcType "vkCmdBeginDebugUtilsLabelEXT")
-> VkProcType "vkCmdBeginDebugUtilsLabelEXT"
unwrapVkProcPtrSafe = FunPtr (VkProcType "vkCmdBeginDebugUtilsLabelEXT")
-> VkProcType "vkCmdBeginDebugUtilsLabelEXT"
PFN_vkCmdBeginDebugUtilsLabelEXT -> HS_vkCmdBeginDebugUtilsLabelEXT
unwrapVkCmdBeginDebugUtilsLabelEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkCmdEndDebugUtilsLabelEXT :: CString
pattern $bVkCmdEndDebugUtilsLabelEXT :: CString
$mVkCmdEndDebugUtilsLabelEXT :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VkCmdEndDebugUtilsLabelEXT <-
(is_VkCmdEndDebugUtilsLabelEXT -> True)
where
VkCmdEndDebugUtilsLabelEXT = CString
_VkCmdEndDebugUtilsLabelEXT
{-# INLINE _VkCmdEndDebugUtilsLabelEXT #-}
_VkCmdEndDebugUtilsLabelEXT :: CString
_VkCmdEndDebugUtilsLabelEXT :: CString
_VkCmdEndDebugUtilsLabelEXT = Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkCmdEndDebugUtilsLabelEXT\NUL"#
{-# INLINE is_VkCmdEndDebugUtilsLabelEXT #-}
is_VkCmdEndDebugUtilsLabelEXT :: CString -> Bool
is_VkCmdEndDebugUtilsLabelEXT :: CString -> Bool
is_VkCmdEndDebugUtilsLabelEXT
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VkCmdEndDebugUtilsLabelEXT
type VkCmdEndDebugUtilsLabelEXT = "vkCmdEndDebugUtilsLabelEXT"
type HS_vkCmdEndDebugUtilsLabelEXT = VkCommandBuffer
-> IO ()
type PFN_vkCmdEndDebugUtilsLabelEXT =
FunPtr HS_vkCmdEndDebugUtilsLabelEXT
foreign import ccall unsafe "dynamic"
unwrapVkCmdEndDebugUtilsLabelEXTUnsafe ::
PFN_vkCmdEndDebugUtilsLabelEXT -> HS_vkCmdEndDebugUtilsLabelEXT
foreign import ccall safe "dynamic"
unwrapVkCmdEndDebugUtilsLabelEXTSafe ::
PFN_vkCmdEndDebugUtilsLabelEXT -> HS_vkCmdEndDebugUtilsLabelEXT
instance VulkanProc "vkCmdEndDebugUtilsLabelEXT" where
type VkProcType "vkCmdEndDebugUtilsLabelEXT" =
HS_vkCmdEndDebugUtilsLabelEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkCmdEndDebugUtilsLabelEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe :: FunPtr (VkProcType "vkCmdEndDebugUtilsLabelEXT")
-> VkProcType "vkCmdEndDebugUtilsLabelEXT"
unwrapVkProcPtrUnsafe = FunPtr (VkProcType "vkCmdEndDebugUtilsLabelEXT")
-> VkProcType "vkCmdEndDebugUtilsLabelEXT"
PFN_vkCmdEndDebugUtilsLabelEXT -> HS_vkCmdEndDebugUtilsLabelEXT
unwrapVkCmdEndDebugUtilsLabelEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe :: FunPtr (VkProcType "vkCmdEndDebugUtilsLabelEXT")
-> VkProcType "vkCmdEndDebugUtilsLabelEXT"
unwrapVkProcPtrSafe = FunPtr (VkProcType "vkCmdEndDebugUtilsLabelEXT")
-> VkProcType "vkCmdEndDebugUtilsLabelEXT"
PFN_vkCmdEndDebugUtilsLabelEXT -> HS_vkCmdEndDebugUtilsLabelEXT
unwrapVkCmdEndDebugUtilsLabelEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkCmdInsertDebugUtilsLabelEXT :: CString
pattern $bVkCmdInsertDebugUtilsLabelEXT :: CString
$mVkCmdInsertDebugUtilsLabelEXT :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VkCmdInsertDebugUtilsLabelEXT <-
(is_VkCmdInsertDebugUtilsLabelEXT -> True)
where
VkCmdInsertDebugUtilsLabelEXT = CString
_VkCmdInsertDebugUtilsLabelEXT
{-# INLINE _VkCmdInsertDebugUtilsLabelEXT #-}
_VkCmdInsertDebugUtilsLabelEXT :: CString
_VkCmdInsertDebugUtilsLabelEXT :: CString
_VkCmdInsertDebugUtilsLabelEXT
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkCmdInsertDebugUtilsLabelEXT\NUL"#
{-# INLINE is_VkCmdInsertDebugUtilsLabelEXT #-}
is_VkCmdInsertDebugUtilsLabelEXT :: CString -> Bool
is_VkCmdInsertDebugUtilsLabelEXT :: CString -> Bool
is_VkCmdInsertDebugUtilsLabelEXT
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VkCmdInsertDebugUtilsLabelEXT
type VkCmdInsertDebugUtilsLabelEXT =
"vkCmdInsertDebugUtilsLabelEXT"
type HS_vkCmdInsertDebugUtilsLabelEXT =
VkCommandBuffer
-> Ptr VkDebugUtilsLabelEXT
-> IO ()
type PFN_vkCmdInsertDebugUtilsLabelEXT =
FunPtr HS_vkCmdInsertDebugUtilsLabelEXT
foreign import ccall unsafe "dynamic"
unwrapVkCmdInsertDebugUtilsLabelEXTUnsafe ::
PFN_vkCmdInsertDebugUtilsLabelEXT ->
HS_vkCmdInsertDebugUtilsLabelEXT
foreign import ccall safe "dynamic"
unwrapVkCmdInsertDebugUtilsLabelEXTSafe ::
PFN_vkCmdInsertDebugUtilsLabelEXT ->
HS_vkCmdInsertDebugUtilsLabelEXT
instance VulkanProc "vkCmdInsertDebugUtilsLabelEXT" where
type VkProcType "vkCmdInsertDebugUtilsLabelEXT" =
HS_vkCmdInsertDebugUtilsLabelEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkCmdInsertDebugUtilsLabelEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe :: FunPtr (VkProcType "vkCmdInsertDebugUtilsLabelEXT")
-> VkProcType "vkCmdInsertDebugUtilsLabelEXT"
unwrapVkProcPtrUnsafe = FunPtr (VkProcType "vkCmdInsertDebugUtilsLabelEXT")
-> VkProcType "vkCmdInsertDebugUtilsLabelEXT"
PFN_vkCmdBeginDebugUtilsLabelEXT -> HS_vkCmdBeginDebugUtilsLabelEXT
unwrapVkCmdInsertDebugUtilsLabelEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe :: FunPtr (VkProcType "vkCmdInsertDebugUtilsLabelEXT")
-> VkProcType "vkCmdInsertDebugUtilsLabelEXT"
unwrapVkProcPtrSafe = FunPtr (VkProcType "vkCmdInsertDebugUtilsLabelEXT")
-> VkProcType "vkCmdInsertDebugUtilsLabelEXT"
PFN_vkCmdBeginDebugUtilsLabelEXT -> HS_vkCmdBeginDebugUtilsLabelEXT
unwrapVkCmdInsertDebugUtilsLabelEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkCreateDebugUtilsMessengerEXT :: CString
pattern $bVkCreateDebugUtilsMessengerEXT :: CString
$mVkCreateDebugUtilsMessengerEXT :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VkCreateDebugUtilsMessengerEXT <-
(is_VkCreateDebugUtilsMessengerEXT -> True)
where
VkCreateDebugUtilsMessengerEXT = CString
_VkCreateDebugUtilsMessengerEXT
{-# INLINE _VkCreateDebugUtilsMessengerEXT #-}
_VkCreateDebugUtilsMessengerEXT :: CString
_VkCreateDebugUtilsMessengerEXT :: CString
_VkCreateDebugUtilsMessengerEXT
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkCreateDebugUtilsMessengerEXT\NUL"#
{-# INLINE is_VkCreateDebugUtilsMessengerEXT #-}
is_VkCreateDebugUtilsMessengerEXT :: CString -> Bool
is_VkCreateDebugUtilsMessengerEXT :: CString -> Bool
is_VkCreateDebugUtilsMessengerEXT
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VkCreateDebugUtilsMessengerEXT
type VkCreateDebugUtilsMessengerEXT =
"vkCreateDebugUtilsMessengerEXT"
type HS_vkCreateDebugUtilsMessengerEXT =
VkInstance
->
Ptr VkDebugUtilsMessengerCreateInfoEXT
->
Ptr VkAllocationCallbacks
->
Ptr VkDebugUtilsMessengerEXT
-> IO VkResult
type PFN_vkCreateDebugUtilsMessengerEXT =
FunPtr HS_vkCreateDebugUtilsMessengerEXT
foreign import ccall unsafe "dynamic"
unwrapVkCreateDebugUtilsMessengerEXTUnsafe ::
PFN_vkCreateDebugUtilsMessengerEXT ->
HS_vkCreateDebugUtilsMessengerEXT
foreign import ccall safe "dynamic"
unwrapVkCreateDebugUtilsMessengerEXTSafe ::
PFN_vkCreateDebugUtilsMessengerEXT ->
HS_vkCreateDebugUtilsMessengerEXT
instance VulkanProc "vkCreateDebugUtilsMessengerEXT" where
type VkProcType "vkCreateDebugUtilsMessengerEXT" =
HS_vkCreateDebugUtilsMessengerEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkCreateDebugUtilsMessengerEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe :: FunPtr (VkProcType "vkCreateDebugUtilsMessengerEXT")
-> VkProcType "vkCreateDebugUtilsMessengerEXT"
unwrapVkProcPtrUnsafe = FunPtr (VkProcType "vkCreateDebugUtilsMessengerEXT")
-> VkProcType "vkCreateDebugUtilsMessengerEXT"
PFN_vkCreateDebugUtilsMessengerEXT
-> HS_vkCreateDebugUtilsMessengerEXT
unwrapVkCreateDebugUtilsMessengerEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe :: FunPtr (VkProcType "vkCreateDebugUtilsMessengerEXT")
-> VkProcType "vkCreateDebugUtilsMessengerEXT"
unwrapVkProcPtrSafe = FunPtr (VkProcType "vkCreateDebugUtilsMessengerEXT")
-> VkProcType "vkCreateDebugUtilsMessengerEXT"
PFN_vkCreateDebugUtilsMessengerEXT
-> HS_vkCreateDebugUtilsMessengerEXT
unwrapVkCreateDebugUtilsMessengerEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkDestroyDebugUtilsMessengerEXT :: CString
pattern $bVkDestroyDebugUtilsMessengerEXT :: CString
$mVkDestroyDebugUtilsMessengerEXT :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VkDestroyDebugUtilsMessengerEXT <-
(is_VkDestroyDebugUtilsMessengerEXT -> True)
where
VkDestroyDebugUtilsMessengerEXT = CString
_VkDestroyDebugUtilsMessengerEXT
{-# INLINE _VkDestroyDebugUtilsMessengerEXT #-}
_VkDestroyDebugUtilsMessengerEXT :: CString
_VkDestroyDebugUtilsMessengerEXT :: CString
_VkDestroyDebugUtilsMessengerEXT
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkDestroyDebugUtilsMessengerEXT\NUL"#
{-# INLINE is_VkDestroyDebugUtilsMessengerEXT #-}
is_VkDestroyDebugUtilsMessengerEXT :: CString -> Bool
is_VkDestroyDebugUtilsMessengerEXT :: CString -> Bool
is_VkDestroyDebugUtilsMessengerEXT
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VkDestroyDebugUtilsMessengerEXT
type VkDestroyDebugUtilsMessengerEXT =
"vkDestroyDebugUtilsMessengerEXT"
type HS_vkDestroyDebugUtilsMessengerEXT =
VkInstance
->
VkDebugUtilsMessengerEXT
-> Ptr VkAllocationCallbacks
-> IO ()
type PFN_vkDestroyDebugUtilsMessengerEXT =
FunPtr HS_vkDestroyDebugUtilsMessengerEXT
foreign import ccall unsafe "dynamic"
unwrapVkDestroyDebugUtilsMessengerEXTUnsafe ::
PFN_vkDestroyDebugUtilsMessengerEXT ->
HS_vkDestroyDebugUtilsMessengerEXT
foreign import ccall safe "dynamic"
unwrapVkDestroyDebugUtilsMessengerEXTSafe ::
PFN_vkDestroyDebugUtilsMessengerEXT ->
HS_vkDestroyDebugUtilsMessengerEXT
instance VulkanProc "vkDestroyDebugUtilsMessengerEXT" where
type VkProcType "vkDestroyDebugUtilsMessengerEXT" =
HS_vkDestroyDebugUtilsMessengerEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkDestroyDebugUtilsMessengerEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe :: FunPtr (VkProcType "vkDestroyDebugUtilsMessengerEXT")
-> VkProcType "vkDestroyDebugUtilsMessengerEXT"
unwrapVkProcPtrUnsafe = FunPtr (VkProcType "vkDestroyDebugUtilsMessengerEXT")
-> VkProcType "vkDestroyDebugUtilsMessengerEXT"
PFN_vkDestroyDebugUtilsMessengerEXT
-> HS_vkDestroyDebugUtilsMessengerEXT
unwrapVkDestroyDebugUtilsMessengerEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe :: FunPtr (VkProcType "vkDestroyDebugUtilsMessengerEXT")
-> VkProcType "vkDestroyDebugUtilsMessengerEXT"
unwrapVkProcPtrSafe = FunPtr (VkProcType "vkDestroyDebugUtilsMessengerEXT")
-> VkProcType "vkDestroyDebugUtilsMessengerEXT"
PFN_vkDestroyDebugUtilsMessengerEXT
-> HS_vkDestroyDebugUtilsMessengerEXT
unwrapVkDestroyDebugUtilsMessengerEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkSubmitDebugUtilsMessageEXT :: CString
pattern $bVkSubmitDebugUtilsMessageEXT :: CString
$mVkSubmitDebugUtilsMessageEXT :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VkSubmitDebugUtilsMessageEXT <-
(is_VkSubmitDebugUtilsMessageEXT -> True)
where
VkSubmitDebugUtilsMessageEXT = CString
_VkSubmitDebugUtilsMessageEXT
{-# INLINE _VkSubmitDebugUtilsMessageEXT #-}
_VkSubmitDebugUtilsMessageEXT :: CString
_VkSubmitDebugUtilsMessageEXT :: CString
_VkSubmitDebugUtilsMessageEXT
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkSubmitDebugUtilsMessageEXT\NUL"#
{-# INLINE is_VkSubmitDebugUtilsMessageEXT #-}
is_VkSubmitDebugUtilsMessageEXT :: CString -> Bool
is_VkSubmitDebugUtilsMessageEXT :: CString -> Bool
is_VkSubmitDebugUtilsMessageEXT
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VkSubmitDebugUtilsMessageEXT
type VkSubmitDebugUtilsMessageEXT = "vkSubmitDebugUtilsMessageEXT"
type HS_vkSubmitDebugUtilsMessageEXT =
VkInstance
->
VkDebugUtilsMessageSeverityFlagBitsEXT
->
VkDebugUtilsMessageTypeFlagsEXT
->
Ptr VkDebugUtilsMessengerCallbackDataEXT
-> IO ()
type PFN_vkSubmitDebugUtilsMessageEXT =
FunPtr HS_vkSubmitDebugUtilsMessageEXT
foreign import ccall unsafe "dynamic"
unwrapVkSubmitDebugUtilsMessageEXTUnsafe ::
PFN_vkSubmitDebugUtilsMessageEXT -> HS_vkSubmitDebugUtilsMessageEXT
foreign import ccall safe "dynamic"
unwrapVkSubmitDebugUtilsMessageEXTSafe ::
PFN_vkSubmitDebugUtilsMessageEXT -> HS_vkSubmitDebugUtilsMessageEXT
instance VulkanProc "vkSubmitDebugUtilsMessageEXT" where
type VkProcType "vkSubmitDebugUtilsMessageEXT" =
HS_vkSubmitDebugUtilsMessageEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkSubmitDebugUtilsMessageEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe :: FunPtr (VkProcType "vkSubmitDebugUtilsMessageEXT")
-> VkProcType "vkSubmitDebugUtilsMessageEXT"
unwrapVkProcPtrUnsafe = FunPtr (VkProcType "vkSubmitDebugUtilsMessageEXT")
-> VkProcType "vkSubmitDebugUtilsMessageEXT"
PFN_vkSubmitDebugUtilsMessageEXT -> HS_vkSubmitDebugUtilsMessageEXT
unwrapVkSubmitDebugUtilsMessageEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe :: FunPtr (VkProcType "vkSubmitDebugUtilsMessageEXT")
-> VkProcType "vkSubmitDebugUtilsMessageEXT"
unwrapVkProcPtrSafe = FunPtr (VkProcType "vkSubmitDebugUtilsMessageEXT")
-> VkProcType "vkSubmitDebugUtilsMessageEXT"
PFN_vkSubmitDebugUtilsMessageEXT -> HS_vkSubmitDebugUtilsMessageEXT
unwrapVkSubmitDebugUtilsMessageEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VK_EXT_DEBUG_UTILS_SPEC_VERSION :: (Num a, Eq a) => a
pattern $bVK_EXT_DEBUG_UTILS_SPEC_VERSION :: forall a. (Num a, Eq a) => a
$mVK_EXT_DEBUG_UTILS_SPEC_VERSION :: forall {r} {a}.
(Num a, Eq a) =>
a -> (Void# -> r) -> (Void# -> r) -> r
VK_EXT_DEBUG_UTILS_SPEC_VERSION = 2
type VK_EXT_DEBUG_UTILS_SPEC_VERSION = 2
pattern VK_EXT_DEBUG_UTILS_EXTENSION_NAME :: CString
pattern $bVK_EXT_DEBUG_UTILS_EXTENSION_NAME :: CString
$mVK_EXT_DEBUG_UTILS_EXTENSION_NAME :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VK_EXT_DEBUG_UTILS_EXTENSION_NAME <-
(is_VK_EXT_DEBUG_UTILS_EXTENSION_NAME -> True)
where
VK_EXT_DEBUG_UTILS_EXTENSION_NAME
= CString
_VK_EXT_DEBUG_UTILS_EXTENSION_NAME
{-# INLINE _VK_EXT_DEBUG_UTILS_EXTENSION_NAME #-}
_VK_EXT_DEBUG_UTILS_EXTENSION_NAME :: CString
_VK_EXT_DEBUG_UTILS_EXTENSION_NAME :: CString
_VK_EXT_DEBUG_UTILS_EXTENSION_NAME = Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"VK_EXT_debug_utils\NUL"#
{-# INLINE is_VK_EXT_DEBUG_UTILS_EXTENSION_NAME #-}
is_VK_EXT_DEBUG_UTILS_EXTENSION_NAME :: CString -> Bool
is_VK_EXT_DEBUG_UTILS_EXTENSION_NAME :: CString -> Bool
is_VK_EXT_DEBUG_UTILS_EXTENSION_NAME
= (Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
==) (Ordering -> Bool) -> (CString -> Ordering) -> CString -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CString -> CString -> Ordering
cmpCStrings CString
_VK_EXT_DEBUG_UTILS_EXTENSION_NAME
type VK_EXT_DEBUG_UTILS_EXTENSION_NAME = "VK_EXT_debug_utils"
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_NAME_INFO_EXT ::
VkStructureType
pattern $bVK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_NAME_INFO_EXT :: VkStructureType
$mVK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_NAME_INFO_EXT :: forall {r}. VkStructureType -> (Void# -> r) -> (Void# -> r) -> r
VK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_NAME_INFO_EXT =
VkStructureType 1000128000
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_TAG_INFO_EXT ::
VkStructureType
pattern $bVK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_TAG_INFO_EXT :: VkStructureType
$mVK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_TAG_INFO_EXT :: forall {r}. VkStructureType -> (Void# -> r) -> (Void# -> r) -> r
VK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_TAG_INFO_EXT =
VkStructureType 1000128001
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_LABEL_EXT :: VkStructureType
pattern $bVK_STRUCTURE_TYPE_DEBUG_UTILS_LABEL_EXT :: VkStructureType
$mVK_STRUCTURE_TYPE_DEBUG_UTILS_LABEL_EXT :: forall {r}. VkStructureType -> (Void# -> r) -> (Void# -> r) -> r
VK_STRUCTURE_TYPE_DEBUG_UTILS_LABEL_EXT =
VkStructureType 1000128002
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CALLBACK_DATA_EXT
:: VkStructureType
pattern $bVK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CALLBACK_DATA_EXT :: VkStructureType
$mVK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CALLBACK_DATA_EXT :: forall {r}. VkStructureType -> (Void# -> r) -> (Void# -> r) -> r
VK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CALLBACK_DATA_EXT =
VkStructureType 1000128003
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CREATE_INFO_EXT ::
VkStructureType
pattern $bVK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CREATE_INFO_EXT :: VkStructureType
$mVK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CREATE_INFO_EXT :: forall {r}. VkStructureType -> (Void# -> r) -> (Void# -> r) -> r
VK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CREATE_INFO_EXT =
VkStructureType 1000128004
pattern VK_OBJECT_TYPE_DEBUG_UTILS_MESSENGER_EXT :: VkObjectType
pattern $bVK_OBJECT_TYPE_DEBUG_UTILS_MESSENGER_EXT :: VkObjectType
$mVK_OBJECT_TYPE_DEBUG_UTILS_MESSENGER_EXT :: forall {r}. VkObjectType -> (Void# -> r) -> (Void# -> r) -> r
VK_OBJECT_TYPE_DEBUG_UTILS_MESSENGER_EXT =
VkObjectType 1000128000