{-# OPTIONS_GHC -fno-warn-orphans#-}
{-# 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_marker
(
module Graphics.Vulkan.Marshal, VkDebugMarkerMarkerInfoEXT,
VkDebugMarkerObjectNameInfoEXT, VkDebugMarkerObjectTagInfoEXT,
VkDebugReportBitmaskEXT(..), VkDebugReportObjectTypeEXT(..),
VkDebugUtilsMessageSeverityBitmaskEXT(..),
VkDebugUtilsMessageTypeBitmaskEXT(..), VkDebugReportFlagBitsEXT(),
VkDebugReportFlagsEXT(), VkDebugUtilsMessageSeverityFlagBitsEXT(),
VkDebugUtilsMessageSeverityFlagsEXT(),
VkDebugUtilsMessageTypeFlagBitsEXT(),
VkDebugUtilsMessageTypeFlagsEXT(), VkStructureType(..),
VkDebugMarkerSetObjectTagEXT, pattern VkDebugMarkerSetObjectTagEXT,
HS_vkDebugMarkerSetObjectTagEXT, PFN_vkDebugMarkerSetObjectTagEXT,
VkDebugMarkerSetObjectNameEXT,
pattern VkDebugMarkerSetObjectNameEXT,
HS_vkDebugMarkerSetObjectNameEXT,
PFN_vkDebugMarkerSetObjectNameEXT, VkCmdDebugMarkerBeginEXT,
pattern VkCmdDebugMarkerBeginEXT, HS_vkCmdDebugMarkerBeginEXT,
PFN_vkCmdDebugMarkerBeginEXT, VkCmdDebugMarkerEndEXT,
pattern VkCmdDebugMarkerEndEXT, HS_vkCmdDebugMarkerEndEXT,
PFN_vkCmdDebugMarkerEndEXT, VkCmdDebugMarkerInsertEXT,
pattern VkCmdDebugMarkerInsertEXT, HS_vkCmdDebugMarkerInsertEXT,
PFN_vkCmdDebugMarkerInsertEXT, VkResult(..), VkBuffer,
VkBufferView, VkBufferView_T(), VkBuffer_T(), VkCommandBuffer,
VkCommandBuffer_T(), VkCommandPool, VkCommandPool_T(),
VkDebugReportCallbackEXT, VkDebugReportCallbackEXT_T(),
VkDebugUtilsMessengerEXT, VkDebugUtilsMessengerEXT_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(),
VkIndirectCommandsLayoutNVX, VkIndirectCommandsLayoutNVX_T(),
VkInstance, VkInstance_T(), VkObjectTableNVX, VkObjectTableNVX_T(),
VkPhysicalDevice, VkPhysicalDevice_T(), VkPipeline,
VkPipelineCache, VkPipelineCache_T(), VkPipelineLayout,
VkPipelineLayout_T(), VkPipeline_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(),
VkDebugReportCallbackCreateInfoEXT, VkDebugUtilsObjectTagInfoEXT,
VK_EXT_DEBUG_MARKER_SPEC_VERSION,
pattern VK_EXT_DEBUG_MARKER_SPEC_VERSION,
VK_EXT_DEBUG_MARKER_EXTENSION_NAME,
pattern VK_EXT_DEBUG_MARKER_EXTENSION_NAME,
pattern VK_STRUCTURE_TYPE_DEBUG_MARKER_OBJECT_NAME_INFO_EXT,
pattern VK_STRUCTURE_TYPE_DEBUG_MARKER_OBJECT_TAG_INFO_EXT,
pattern VK_STRUCTURE_TYPE_DEBUG_MARKER_MARKER_INFO_EXT)
where
import GHC.Ptr (Ptr (..))
import Graphics.Vulkan.Marshal
import Graphics.Vulkan.Marshal.Proc (VulkanProc (..))
import Graphics.Vulkan.Types.Enum.Debug
import Graphics.Vulkan.Types.Enum.Result
import Graphics.Vulkan.Types.Enum.StructureType
import Graphics.Vulkan.Types.Handles
import Graphics.Vulkan.Types.Struct.Debug
pattern VkDebugMarkerSetObjectTagEXT :: CString
pattern VkDebugMarkerSetObjectTagEXT <-
(is_VkDebugMarkerSetObjectTagEXT -> True)
where
VkDebugMarkerSetObjectTagEXT = _VkDebugMarkerSetObjectTagEXT
{-# INLINE _VkDebugMarkerSetObjectTagEXT #-}
_VkDebugMarkerSetObjectTagEXT :: CString
_VkDebugMarkerSetObjectTagEXT
= Ptr "vkDebugMarkerSetObjectTagEXT\NUL"#
{-# INLINE is_VkDebugMarkerSetObjectTagEXT #-}
is_VkDebugMarkerSetObjectTagEXT :: CString -> Bool
is_VkDebugMarkerSetObjectTagEXT
= (EQ ==) . cmpCStrings _VkDebugMarkerSetObjectTagEXT
type VkDebugMarkerSetObjectTagEXT = "vkDebugMarkerSetObjectTagEXT"
type HS_vkDebugMarkerSetObjectTagEXT =
VkDevice
-> Ptr VkDebugMarkerObjectTagInfoEXT
-> IO VkResult
type PFN_vkDebugMarkerSetObjectTagEXT =
FunPtr HS_vkDebugMarkerSetObjectTagEXT
foreign import ccall unsafe "dynamic"
unwrapVkDebugMarkerSetObjectTagEXTUnsafe ::
PFN_vkDebugMarkerSetObjectTagEXT -> HS_vkDebugMarkerSetObjectTagEXT
foreign import ccall safe "dynamic"
unwrapVkDebugMarkerSetObjectTagEXTSafe ::
PFN_vkDebugMarkerSetObjectTagEXT -> HS_vkDebugMarkerSetObjectTagEXT
instance VulkanProc "vkDebugMarkerSetObjectTagEXT" where
type VkProcType "vkDebugMarkerSetObjectTagEXT" =
HS_vkDebugMarkerSetObjectTagEXT
vkProcSymbol = _VkDebugMarkerSetObjectTagEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe = unwrapVkDebugMarkerSetObjectTagEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe = unwrapVkDebugMarkerSetObjectTagEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkDebugMarkerSetObjectNameEXT :: CString
pattern VkDebugMarkerSetObjectNameEXT <-
(is_VkDebugMarkerSetObjectNameEXT -> True)
where
VkDebugMarkerSetObjectNameEXT = _VkDebugMarkerSetObjectNameEXT
{-# INLINE _VkDebugMarkerSetObjectNameEXT #-}
_VkDebugMarkerSetObjectNameEXT :: CString
_VkDebugMarkerSetObjectNameEXT
= Ptr "vkDebugMarkerSetObjectNameEXT\NUL"#
{-# INLINE is_VkDebugMarkerSetObjectNameEXT #-}
is_VkDebugMarkerSetObjectNameEXT :: CString -> Bool
is_VkDebugMarkerSetObjectNameEXT
= (EQ ==) . cmpCStrings _VkDebugMarkerSetObjectNameEXT
type VkDebugMarkerSetObjectNameEXT =
"vkDebugMarkerSetObjectNameEXT"
type HS_vkDebugMarkerSetObjectNameEXT =
VkDevice
-> Ptr VkDebugMarkerObjectNameInfoEXT
-> IO VkResult
type PFN_vkDebugMarkerSetObjectNameEXT =
FunPtr HS_vkDebugMarkerSetObjectNameEXT
foreign import ccall unsafe "dynamic"
unwrapVkDebugMarkerSetObjectNameEXTUnsafe ::
PFN_vkDebugMarkerSetObjectNameEXT ->
HS_vkDebugMarkerSetObjectNameEXT
foreign import ccall safe "dynamic"
unwrapVkDebugMarkerSetObjectNameEXTSafe ::
PFN_vkDebugMarkerSetObjectNameEXT ->
HS_vkDebugMarkerSetObjectNameEXT
instance VulkanProc "vkDebugMarkerSetObjectNameEXT" where
type VkProcType "vkDebugMarkerSetObjectNameEXT" =
HS_vkDebugMarkerSetObjectNameEXT
vkProcSymbol = _VkDebugMarkerSetObjectNameEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe = unwrapVkDebugMarkerSetObjectNameEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe = unwrapVkDebugMarkerSetObjectNameEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkCmdDebugMarkerBeginEXT :: CString
pattern VkCmdDebugMarkerBeginEXT <-
(is_VkCmdDebugMarkerBeginEXT -> True)
where
VkCmdDebugMarkerBeginEXT = _VkCmdDebugMarkerBeginEXT
{-# INLINE _VkCmdDebugMarkerBeginEXT #-}
_VkCmdDebugMarkerBeginEXT :: CString
_VkCmdDebugMarkerBeginEXT = Ptr "vkCmdDebugMarkerBeginEXT\NUL"#
{-# INLINE is_VkCmdDebugMarkerBeginEXT #-}
is_VkCmdDebugMarkerBeginEXT :: CString -> Bool
is_VkCmdDebugMarkerBeginEXT
= (EQ ==) . cmpCStrings _VkCmdDebugMarkerBeginEXT
type VkCmdDebugMarkerBeginEXT = "vkCmdDebugMarkerBeginEXT"
type HS_vkCmdDebugMarkerBeginEXT =
VkCommandBuffer
-> Ptr VkDebugMarkerMarkerInfoEXT
-> IO ()
type PFN_vkCmdDebugMarkerBeginEXT =
FunPtr HS_vkCmdDebugMarkerBeginEXT
foreign import ccall unsafe "dynamic"
unwrapVkCmdDebugMarkerBeginEXTUnsafe ::
PFN_vkCmdDebugMarkerBeginEXT -> HS_vkCmdDebugMarkerBeginEXT
foreign import ccall safe "dynamic"
unwrapVkCmdDebugMarkerBeginEXTSafe ::
PFN_vkCmdDebugMarkerBeginEXT -> HS_vkCmdDebugMarkerBeginEXT
instance VulkanProc "vkCmdDebugMarkerBeginEXT" where
type VkProcType "vkCmdDebugMarkerBeginEXT" =
HS_vkCmdDebugMarkerBeginEXT
vkProcSymbol = _VkCmdDebugMarkerBeginEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe = unwrapVkCmdDebugMarkerBeginEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe = unwrapVkCmdDebugMarkerBeginEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkCmdDebugMarkerEndEXT :: CString
pattern VkCmdDebugMarkerEndEXT <-
(is_VkCmdDebugMarkerEndEXT -> True)
where
VkCmdDebugMarkerEndEXT = _VkCmdDebugMarkerEndEXT
{-# INLINE _VkCmdDebugMarkerEndEXT #-}
_VkCmdDebugMarkerEndEXT :: CString
_VkCmdDebugMarkerEndEXT = Ptr "vkCmdDebugMarkerEndEXT\NUL"#
{-# INLINE is_VkCmdDebugMarkerEndEXT #-}
is_VkCmdDebugMarkerEndEXT :: CString -> Bool
is_VkCmdDebugMarkerEndEXT
= (EQ ==) . cmpCStrings _VkCmdDebugMarkerEndEXT
type VkCmdDebugMarkerEndEXT = "vkCmdDebugMarkerEndEXT"
type HS_vkCmdDebugMarkerEndEXT = VkCommandBuffer
-> IO ()
type PFN_vkCmdDebugMarkerEndEXT = FunPtr HS_vkCmdDebugMarkerEndEXT
foreign import ccall unsafe "dynamic"
unwrapVkCmdDebugMarkerEndEXTUnsafe ::
PFN_vkCmdDebugMarkerEndEXT -> HS_vkCmdDebugMarkerEndEXT
foreign import ccall safe "dynamic"
unwrapVkCmdDebugMarkerEndEXTSafe ::
PFN_vkCmdDebugMarkerEndEXT -> HS_vkCmdDebugMarkerEndEXT
instance VulkanProc "vkCmdDebugMarkerEndEXT" where
type VkProcType "vkCmdDebugMarkerEndEXT" =
HS_vkCmdDebugMarkerEndEXT
vkProcSymbol = _VkCmdDebugMarkerEndEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe = unwrapVkCmdDebugMarkerEndEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe = unwrapVkCmdDebugMarkerEndEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkCmdDebugMarkerInsertEXT :: CString
pattern VkCmdDebugMarkerInsertEXT <-
(is_VkCmdDebugMarkerInsertEXT -> True)
where
VkCmdDebugMarkerInsertEXT = _VkCmdDebugMarkerInsertEXT
{-# INLINE _VkCmdDebugMarkerInsertEXT #-}
_VkCmdDebugMarkerInsertEXT :: CString
_VkCmdDebugMarkerInsertEXT = Ptr "vkCmdDebugMarkerInsertEXT\NUL"#
{-# INLINE is_VkCmdDebugMarkerInsertEXT #-}
is_VkCmdDebugMarkerInsertEXT :: CString -> Bool
is_VkCmdDebugMarkerInsertEXT
= (EQ ==) . cmpCStrings _VkCmdDebugMarkerInsertEXT
type VkCmdDebugMarkerInsertEXT = "vkCmdDebugMarkerInsertEXT"
type HS_vkCmdDebugMarkerInsertEXT =
VkCommandBuffer
-> Ptr VkDebugMarkerMarkerInfoEXT
-> IO ()
type PFN_vkCmdDebugMarkerInsertEXT =
FunPtr HS_vkCmdDebugMarkerInsertEXT
foreign import ccall unsafe "dynamic"
unwrapVkCmdDebugMarkerInsertEXTUnsafe ::
PFN_vkCmdDebugMarkerInsertEXT -> HS_vkCmdDebugMarkerInsertEXT
foreign import ccall safe "dynamic"
unwrapVkCmdDebugMarkerInsertEXTSafe ::
PFN_vkCmdDebugMarkerInsertEXT -> HS_vkCmdDebugMarkerInsertEXT
instance VulkanProc "vkCmdDebugMarkerInsertEXT" where
type VkProcType "vkCmdDebugMarkerInsertEXT" =
HS_vkCmdDebugMarkerInsertEXT
vkProcSymbol = _VkCmdDebugMarkerInsertEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe = unwrapVkCmdDebugMarkerInsertEXTUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe = unwrapVkCmdDebugMarkerInsertEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VK_EXT_DEBUG_MARKER_SPEC_VERSION :: (Num a, Eq a) => a
pattern VK_EXT_DEBUG_MARKER_SPEC_VERSION = 4
type VK_EXT_DEBUG_MARKER_SPEC_VERSION = 4
pattern VK_EXT_DEBUG_MARKER_EXTENSION_NAME :: CString
pattern VK_EXT_DEBUG_MARKER_EXTENSION_NAME <-
(is_VK_EXT_DEBUG_MARKER_EXTENSION_NAME -> True)
where
VK_EXT_DEBUG_MARKER_EXTENSION_NAME
= _VK_EXT_DEBUG_MARKER_EXTENSION_NAME
{-# INLINE _VK_EXT_DEBUG_MARKER_EXTENSION_NAME #-}
_VK_EXT_DEBUG_MARKER_EXTENSION_NAME :: CString
_VK_EXT_DEBUG_MARKER_EXTENSION_NAME
= Ptr "VK_EXT_debug_marker\NUL"#
{-# INLINE is_VK_EXT_DEBUG_MARKER_EXTENSION_NAME #-}
is_VK_EXT_DEBUG_MARKER_EXTENSION_NAME :: CString -> Bool
is_VK_EXT_DEBUG_MARKER_EXTENSION_NAME
= (EQ ==) . cmpCStrings _VK_EXT_DEBUG_MARKER_EXTENSION_NAME
type VK_EXT_DEBUG_MARKER_EXTENSION_NAME = "VK_EXT_debug_marker"
pattern VK_STRUCTURE_TYPE_DEBUG_MARKER_OBJECT_NAME_INFO_EXT ::
VkStructureType
pattern VK_STRUCTURE_TYPE_DEBUG_MARKER_OBJECT_NAME_INFO_EXT =
VkStructureType 1000022000
pattern VK_STRUCTURE_TYPE_DEBUG_MARKER_OBJECT_TAG_INFO_EXT ::
VkStructureType
pattern VK_STRUCTURE_TYPE_DEBUG_MARKER_OBJECT_TAG_INFO_EXT =
VkStructureType 1000022001
pattern VK_STRUCTURE_TYPE_DEBUG_MARKER_MARKER_INFO_EXT ::
VkStructureType
pattern VK_STRUCTURE_TYPE_DEBUG_MARKER_MARKER_INFO_EXT =
VkStructureType 1000022002