{-# OPTIONS_GHC -fno-warn-orphans#-}
{-# OPTIONS_GHC -fno-warn-unused-imports#-}
{-# OPTIONS_HADDOCK not-home#-}
{-# 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,
module Graphics.Vulkan.Types.Struct.ApplicationInfo,
module Graphics.Vulkan.Types.BaseTypes,
module Graphics.Vulkan.Types.Struct.DebugUtilsLabelEXT,
module Graphics.Vulkan.Types.Enum.Debug,
module Graphics.Vulkan.Types.Struct.DebugUtilsMessengerCallbackDataEXT,
module Graphics.Vulkan.Types.Bitmasks,
module Graphics.Vulkan.Types.Struct.DebugUtilsMessengerCreateInfoEXT,
module Graphics.Vulkan.Types.Struct.DebugUtilsObjectNameInfoEXT,
module Graphics.Vulkan.Types.Struct.Debug,
module Graphics.Vulkan.Types.Struct.InstanceCreateInfo,
module Graphics.Vulkan.Types.Enum.Object,
module Graphics.Vulkan.Types.Enum.StructureType,
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,
module Graphics.Vulkan.Types.Enum.InternalAllocationType,
module Graphics.Vulkan.Types.Enum.Result,
module Graphics.Vulkan.Types.Enum.SystemAllocationScope,
module Graphics.Vulkan.Types.Funcpointers,
module Graphics.Vulkan.Types.Handles,
module Graphics.Vulkan.Types.Struct.AllocationCallbacks,
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.Object
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 VkSetDebugUtilsObjectNameEXT <-
(is_VkSetDebugUtilsObjectNameEXT -> True)
where VkSetDebugUtilsObjectNameEXT = _VkSetDebugUtilsObjectNameEXT
{-# INLINE _VkSetDebugUtilsObjectNameEXT #-}
_VkSetDebugUtilsObjectNameEXT :: CString
_VkSetDebugUtilsObjectNameEXT
= Ptr "vkSetDebugUtilsObjectNameEXT\NUL"#
{-# INLINE is_VkSetDebugUtilsObjectNameEXT #-}
is_VkSetDebugUtilsObjectNameEXT :: CString -> Bool
is_VkSetDebugUtilsObjectNameEXT
= (EQ ==) . cmpCStrings _VkSetDebugUtilsObjectNameEXT
type VkSetDebugUtilsObjectNameEXT = "vkSetDebugUtilsObjectNameEXT"
type HS_vkSetDebugUtilsObjectNameEXT =
VkDevice
-> Ptr VkDebugUtilsObjectNameInfoEXT
-> IO VkResult
type PFN_vkSetDebugUtilsObjectNameEXT =
FunPtr HS_vkSetDebugUtilsObjectNameEXT
foreign import ccall unsafe "dynamic"
unwrapVkSetDebugUtilsObjectNameEXT ::
PFN_vkSetDebugUtilsObjectNameEXT -> HS_vkSetDebugUtilsObjectNameEXT
foreign import ccall safe "dynamic"
unwrapVkSetDebugUtilsObjectNameEXTSafe ::
PFN_vkSetDebugUtilsObjectNameEXT -> HS_vkSetDebugUtilsObjectNameEXT
instance VulkanProc "vkSetDebugUtilsObjectNameEXT" where
type VkProcType "vkSetDebugUtilsObjectNameEXT" =
HS_vkSetDebugUtilsObjectNameEXT
vkProcSymbol = _VkSetDebugUtilsObjectNameEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkSetDebugUtilsObjectNameEXT
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkSetDebugUtilsObjectNameEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkSetDebugUtilsObjectTagEXT :: CString
pattern VkSetDebugUtilsObjectTagEXT <-
(is_VkSetDebugUtilsObjectTagEXT -> True)
where VkSetDebugUtilsObjectTagEXT = _VkSetDebugUtilsObjectTagEXT
{-# INLINE _VkSetDebugUtilsObjectTagEXT #-}
_VkSetDebugUtilsObjectTagEXT :: CString
_VkSetDebugUtilsObjectTagEXT
= Ptr "vkSetDebugUtilsObjectTagEXT\NUL"#
{-# INLINE is_VkSetDebugUtilsObjectTagEXT #-}
is_VkSetDebugUtilsObjectTagEXT :: CString -> Bool
is_VkSetDebugUtilsObjectTagEXT
= (EQ ==) . cmpCStrings _VkSetDebugUtilsObjectTagEXT
type VkSetDebugUtilsObjectTagEXT = "vkSetDebugUtilsObjectTagEXT"
type HS_vkSetDebugUtilsObjectTagEXT =
VkDevice
-> Ptr VkDebugUtilsObjectTagInfoEXT
-> IO VkResult
type PFN_vkSetDebugUtilsObjectTagEXT =
FunPtr HS_vkSetDebugUtilsObjectTagEXT
foreign import ccall unsafe "dynamic"
unwrapVkSetDebugUtilsObjectTagEXT ::
PFN_vkSetDebugUtilsObjectTagEXT -> HS_vkSetDebugUtilsObjectTagEXT
foreign import ccall safe "dynamic"
unwrapVkSetDebugUtilsObjectTagEXTSafe ::
PFN_vkSetDebugUtilsObjectTagEXT -> HS_vkSetDebugUtilsObjectTagEXT
instance VulkanProc "vkSetDebugUtilsObjectTagEXT" where
type VkProcType "vkSetDebugUtilsObjectTagEXT" =
HS_vkSetDebugUtilsObjectTagEXT
vkProcSymbol = _VkSetDebugUtilsObjectTagEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkSetDebugUtilsObjectTagEXT
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkSetDebugUtilsObjectTagEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkQueueBeginDebugUtilsLabelEXT :: CString
pattern VkQueueBeginDebugUtilsLabelEXT <-
(is_VkQueueBeginDebugUtilsLabelEXT -> True)
where VkQueueBeginDebugUtilsLabelEXT
= _VkQueueBeginDebugUtilsLabelEXT
{-# INLINE _VkQueueBeginDebugUtilsLabelEXT #-}
_VkQueueBeginDebugUtilsLabelEXT :: CString
_VkQueueBeginDebugUtilsLabelEXT
= Ptr "vkQueueBeginDebugUtilsLabelEXT\NUL"#
{-# INLINE is_VkQueueBeginDebugUtilsLabelEXT #-}
is_VkQueueBeginDebugUtilsLabelEXT :: CString -> Bool
is_VkQueueBeginDebugUtilsLabelEXT
= (EQ ==) . cmpCStrings _VkQueueBeginDebugUtilsLabelEXT
type VkQueueBeginDebugUtilsLabelEXT =
"vkQueueBeginDebugUtilsLabelEXT"
type HS_vkQueueBeginDebugUtilsLabelEXT =
VkQueue
-> Ptr VkDebugUtilsLabelEXT
-> IO ()
type PFN_vkQueueBeginDebugUtilsLabelEXT =
FunPtr HS_vkQueueBeginDebugUtilsLabelEXT
foreign import ccall unsafe "dynamic"
unwrapVkQueueBeginDebugUtilsLabelEXT ::
PFN_vkQueueBeginDebugUtilsLabelEXT ->
HS_vkQueueBeginDebugUtilsLabelEXT
foreign import ccall safe "dynamic"
unwrapVkQueueBeginDebugUtilsLabelEXTSafe ::
PFN_vkQueueBeginDebugUtilsLabelEXT ->
HS_vkQueueBeginDebugUtilsLabelEXT
instance VulkanProc "vkQueueBeginDebugUtilsLabelEXT" where
type VkProcType "vkQueueBeginDebugUtilsLabelEXT" =
HS_vkQueueBeginDebugUtilsLabelEXT
vkProcSymbol = _VkQueueBeginDebugUtilsLabelEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkQueueBeginDebugUtilsLabelEXT
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkQueueBeginDebugUtilsLabelEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkQueueEndDebugUtilsLabelEXT :: CString
pattern VkQueueEndDebugUtilsLabelEXT <-
(is_VkQueueEndDebugUtilsLabelEXT -> True)
where VkQueueEndDebugUtilsLabelEXT = _VkQueueEndDebugUtilsLabelEXT
{-# INLINE _VkQueueEndDebugUtilsLabelEXT #-}
_VkQueueEndDebugUtilsLabelEXT :: CString
_VkQueueEndDebugUtilsLabelEXT
= Ptr "vkQueueEndDebugUtilsLabelEXT\NUL"#
{-# INLINE is_VkQueueEndDebugUtilsLabelEXT #-}
is_VkQueueEndDebugUtilsLabelEXT :: CString -> Bool
is_VkQueueEndDebugUtilsLabelEXT
= (EQ ==) . cmpCStrings _VkQueueEndDebugUtilsLabelEXT
type VkQueueEndDebugUtilsLabelEXT = "vkQueueEndDebugUtilsLabelEXT"
type HS_vkQueueEndDebugUtilsLabelEXT = VkQueue
-> IO ()
type PFN_vkQueueEndDebugUtilsLabelEXT =
FunPtr HS_vkQueueEndDebugUtilsLabelEXT
foreign import ccall unsafe "dynamic"
unwrapVkQueueEndDebugUtilsLabelEXT ::
PFN_vkQueueEndDebugUtilsLabelEXT -> HS_vkQueueEndDebugUtilsLabelEXT
foreign import ccall safe "dynamic"
unwrapVkQueueEndDebugUtilsLabelEXTSafe ::
PFN_vkQueueEndDebugUtilsLabelEXT -> HS_vkQueueEndDebugUtilsLabelEXT
instance VulkanProc "vkQueueEndDebugUtilsLabelEXT" where
type VkProcType "vkQueueEndDebugUtilsLabelEXT" =
HS_vkQueueEndDebugUtilsLabelEXT
vkProcSymbol = _VkQueueEndDebugUtilsLabelEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkQueueEndDebugUtilsLabelEXT
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkQueueEndDebugUtilsLabelEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkQueueInsertDebugUtilsLabelEXT :: CString
pattern VkQueueInsertDebugUtilsLabelEXT <-
(is_VkQueueInsertDebugUtilsLabelEXT -> True)
where VkQueueInsertDebugUtilsLabelEXT
= _VkQueueInsertDebugUtilsLabelEXT
{-# INLINE _VkQueueInsertDebugUtilsLabelEXT #-}
_VkQueueInsertDebugUtilsLabelEXT :: CString
_VkQueueInsertDebugUtilsLabelEXT
= Ptr "vkQueueInsertDebugUtilsLabelEXT\NUL"#
{-# INLINE is_VkQueueInsertDebugUtilsLabelEXT #-}
is_VkQueueInsertDebugUtilsLabelEXT :: CString -> Bool
is_VkQueueInsertDebugUtilsLabelEXT
= (EQ ==) . cmpCStrings _VkQueueInsertDebugUtilsLabelEXT
type VkQueueInsertDebugUtilsLabelEXT =
"vkQueueInsertDebugUtilsLabelEXT"
type HS_vkQueueInsertDebugUtilsLabelEXT =
VkQueue
-> Ptr VkDebugUtilsLabelEXT
-> IO ()
type PFN_vkQueueInsertDebugUtilsLabelEXT =
FunPtr HS_vkQueueInsertDebugUtilsLabelEXT
foreign import ccall unsafe "dynamic"
unwrapVkQueueInsertDebugUtilsLabelEXT ::
PFN_vkQueueInsertDebugUtilsLabelEXT ->
HS_vkQueueInsertDebugUtilsLabelEXT
foreign import ccall safe "dynamic"
unwrapVkQueueInsertDebugUtilsLabelEXTSafe ::
PFN_vkQueueInsertDebugUtilsLabelEXT ->
HS_vkQueueInsertDebugUtilsLabelEXT
instance VulkanProc "vkQueueInsertDebugUtilsLabelEXT" where
type VkProcType "vkQueueInsertDebugUtilsLabelEXT" =
HS_vkQueueInsertDebugUtilsLabelEXT
vkProcSymbol = _VkQueueInsertDebugUtilsLabelEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkQueueInsertDebugUtilsLabelEXT
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkQueueInsertDebugUtilsLabelEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkCmdBeginDebugUtilsLabelEXT :: CString
pattern VkCmdBeginDebugUtilsLabelEXT <-
(is_VkCmdBeginDebugUtilsLabelEXT -> True)
where VkCmdBeginDebugUtilsLabelEXT = _VkCmdBeginDebugUtilsLabelEXT
{-# INLINE _VkCmdBeginDebugUtilsLabelEXT #-}
_VkCmdBeginDebugUtilsLabelEXT :: CString
_VkCmdBeginDebugUtilsLabelEXT
= Ptr "vkCmdBeginDebugUtilsLabelEXT\NUL"#
{-# INLINE is_VkCmdBeginDebugUtilsLabelEXT #-}
is_VkCmdBeginDebugUtilsLabelEXT :: CString -> Bool
is_VkCmdBeginDebugUtilsLabelEXT
= (EQ ==) . cmpCStrings _VkCmdBeginDebugUtilsLabelEXT
type VkCmdBeginDebugUtilsLabelEXT = "vkCmdBeginDebugUtilsLabelEXT"
type HS_vkCmdBeginDebugUtilsLabelEXT =
VkCommandBuffer
-> Ptr VkDebugUtilsLabelEXT
-> IO ()
type PFN_vkCmdBeginDebugUtilsLabelEXT =
FunPtr HS_vkCmdBeginDebugUtilsLabelEXT
foreign import ccall unsafe "dynamic"
unwrapVkCmdBeginDebugUtilsLabelEXT ::
PFN_vkCmdBeginDebugUtilsLabelEXT -> HS_vkCmdBeginDebugUtilsLabelEXT
foreign import ccall safe "dynamic"
unwrapVkCmdBeginDebugUtilsLabelEXTSafe ::
PFN_vkCmdBeginDebugUtilsLabelEXT -> HS_vkCmdBeginDebugUtilsLabelEXT
instance VulkanProc "vkCmdBeginDebugUtilsLabelEXT" where
type VkProcType "vkCmdBeginDebugUtilsLabelEXT" =
HS_vkCmdBeginDebugUtilsLabelEXT
vkProcSymbol = _VkCmdBeginDebugUtilsLabelEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkCmdBeginDebugUtilsLabelEXT
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkCmdBeginDebugUtilsLabelEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkCmdEndDebugUtilsLabelEXT :: CString
pattern VkCmdEndDebugUtilsLabelEXT <-
(is_VkCmdEndDebugUtilsLabelEXT -> True)
where VkCmdEndDebugUtilsLabelEXT = _VkCmdEndDebugUtilsLabelEXT
{-# INLINE _VkCmdEndDebugUtilsLabelEXT #-}
_VkCmdEndDebugUtilsLabelEXT :: CString
_VkCmdEndDebugUtilsLabelEXT = Ptr "vkCmdEndDebugUtilsLabelEXT\NUL"#
{-# INLINE is_VkCmdEndDebugUtilsLabelEXT #-}
is_VkCmdEndDebugUtilsLabelEXT :: CString -> Bool
is_VkCmdEndDebugUtilsLabelEXT
= (EQ ==) . cmpCStrings _VkCmdEndDebugUtilsLabelEXT
type VkCmdEndDebugUtilsLabelEXT = "vkCmdEndDebugUtilsLabelEXT"
type HS_vkCmdEndDebugUtilsLabelEXT = VkCommandBuffer
-> IO ()
type PFN_vkCmdEndDebugUtilsLabelEXT =
FunPtr HS_vkCmdEndDebugUtilsLabelEXT
foreign import ccall unsafe "dynamic"
unwrapVkCmdEndDebugUtilsLabelEXT ::
PFN_vkCmdEndDebugUtilsLabelEXT -> HS_vkCmdEndDebugUtilsLabelEXT
foreign import ccall safe "dynamic"
unwrapVkCmdEndDebugUtilsLabelEXTSafe ::
PFN_vkCmdEndDebugUtilsLabelEXT -> HS_vkCmdEndDebugUtilsLabelEXT
instance VulkanProc "vkCmdEndDebugUtilsLabelEXT" where
type VkProcType "vkCmdEndDebugUtilsLabelEXT" =
HS_vkCmdEndDebugUtilsLabelEXT
vkProcSymbol = _VkCmdEndDebugUtilsLabelEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkCmdEndDebugUtilsLabelEXT
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkCmdEndDebugUtilsLabelEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkCmdInsertDebugUtilsLabelEXT :: CString
pattern VkCmdInsertDebugUtilsLabelEXT <-
(is_VkCmdInsertDebugUtilsLabelEXT -> True)
where VkCmdInsertDebugUtilsLabelEXT
= _VkCmdInsertDebugUtilsLabelEXT
{-# INLINE _VkCmdInsertDebugUtilsLabelEXT #-}
_VkCmdInsertDebugUtilsLabelEXT :: CString
_VkCmdInsertDebugUtilsLabelEXT
= Ptr "vkCmdInsertDebugUtilsLabelEXT\NUL"#
{-# INLINE is_VkCmdInsertDebugUtilsLabelEXT #-}
is_VkCmdInsertDebugUtilsLabelEXT :: CString -> Bool
is_VkCmdInsertDebugUtilsLabelEXT
= (EQ ==) . cmpCStrings _VkCmdInsertDebugUtilsLabelEXT
type VkCmdInsertDebugUtilsLabelEXT =
"vkCmdInsertDebugUtilsLabelEXT"
type HS_vkCmdInsertDebugUtilsLabelEXT =
VkCommandBuffer
-> Ptr VkDebugUtilsLabelEXT
-> IO ()
type PFN_vkCmdInsertDebugUtilsLabelEXT =
FunPtr HS_vkCmdInsertDebugUtilsLabelEXT
foreign import ccall unsafe "dynamic"
unwrapVkCmdInsertDebugUtilsLabelEXT ::
PFN_vkCmdInsertDebugUtilsLabelEXT ->
HS_vkCmdInsertDebugUtilsLabelEXT
foreign import ccall safe "dynamic"
unwrapVkCmdInsertDebugUtilsLabelEXTSafe ::
PFN_vkCmdInsertDebugUtilsLabelEXT ->
HS_vkCmdInsertDebugUtilsLabelEXT
instance VulkanProc "vkCmdInsertDebugUtilsLabelEXT" where
type VkProcType "vkCmdInsertDebugUtilsLabelEXT" =
HS_vkCmdInsertDebugUtilsLabelEXT
vkProcSymbol = _VkCmdInsertDebugUtilsLabelEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkCmdInsertDebugUtilsLabelEXT
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkCmdInsertDebugUtilsLabelEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkCreateDebugUtilsMessengerEXT :: CString
pattern VkCreateDebugUtilsMessengerEXT <-
(is_VkCreateDebugUtilsMessengerEXT -> True)
where VkCreateDebugUtilsMessengerEXT
= _VkCreateDebugUtilsMessengerEXT
{-# INLINE _VkCreateDebugUtilsMessengerEXT #-}
_VkCreateDebugUtilsMessengerEXT :: CString
_VkCreateDebugUtilsMessengerEXT
= Ptr "vkCreateDebugUtilsMessengerEXT\NUL"#
{-# INLINE is_VkCreateDebugUtilsMessengerEXT #-}
is_VkCreateDebugUtilsMessengerEXT :: CString -> Bool
is_VkCreateDebugUtilsMessengerEXT
= (EQ ==) . cmpCStrings _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"
unwrapVkCreateDebugUtilsMessengerEXT ::
PFN_vkCreateDebugUtilsMessengerEXT ->
HS_vkCreateDebugUtilsMessengerEXT
foreign import ccall safe "dynamic"
unwrapVkCreateDebugUtilsMessengerEXTSafe ::
PFN_vkCreateDebugUtilsMessengerEXT ->
HS_vkCreateDebugUtilsMessengerEXT
instance VulkanProc "vkCreateDebugUtilsMessengerEXT" where
type VkProcType "vkCreateDebugUtilsMessengerEXT" =
HS_vkCreateDebugUtilsMessengerEXT
vkProcSymbol = _VkCreateDebugUtilsMessengerEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkCreateDebugUtilsMessengerEXT
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkCreateDebugUtilsMessengerEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkDestroyDebugUtilsMessengerEXT :: CString
pattern VkDestroyDebugUtilsMessengerEXT <-
(is_VkDestroyDebugUtilsMessengerEXT -> True)
where VkDestroyDebugUtilsMessengerEXT
= _VkDestroyDebugUtilsMessengerEXT
{-# INLINE _VkDestroyDebugUtilsMessengerEXT #-}
_VkDestroyDebugUtilsMessengerEXT :: CString
_VkDestroyDebugUtilsMessengerEXT
= Ptr "vkDestroyDebugUtilsMessengerEXT\NUL"#
{-# INLINE is_VkDestroyDebugUtilsMessengerEXT #-}
is_VkDestroyDebugUtilsMessengerEXT :: CString -> Bool
is_VkDestroyDebugUtilsMessengerEXT
= (EQ ==) . cmpCStrings _VkDestroyDebugUtilsMessengerEXT
type VkDestroyDebugUtilsMessengerEXT =
"vkDestroyDebugUtilsMessengerEXT"
type HS_vkDestroyDebugUtilsMessengerEXT =
VkInstance
->
VkDebugUtilsMessengerEXT
-> Ptr VkAllocationCallbacks
-> IO ()
type PFN_vkDestroyDebugUtilsMessengerEXT =
FunPtr HS_vkDestroyDebugUtilsMessengerEXT
foreign import ccall unsafe "dynamic"
unwrapVkDestroyDebugUtilsMessengerEXT ::
PFN_vkDestroyDebugUtilsMessengerEXT ->
HS_vkDestroyDebugUtilsMessengerEXT
foreign import ccall safe "dynamic"
unwrapVkDestroyDebugUtilsMessengerEXTSafe ::
PFN_vkDestroyDebugUtilsMessengerEXT ->
HS_vkDestroyDebugUtilsMessengerEXT
instance VulkanProc "vkDestroyDebugUtilsMessengerEXT" where
type VkProcType "vkDestroyDebugUtilsMessengerEXT" =
HS_vkDestroyDebugUtilsMessengerEXT
vkProcSymbol = _VkDestroyDebugUtilsMessengerEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkDestroyDebugUtilsMessengerEXT
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkDestroyDebugUtilsMessengerEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkSubmitDebugUtilsMessageEXT :: CString
pattern VkSubmitDebugUtilsMessageEXT <-
(is_VkSubmitDebugUtilsMessageEXT -> True)
where VkSubmitDebugUtilsMessageEXT = _VkSubmitDebugUtilsMessageEXT
{-# INLINE _VkSubmitDebugUtilsMessageEXT #-}
_VkSubmitDebugUtilsMessageEXT :: CString
_VkSubmitDebugUtilsMessageEXT
= Ptr "vkSubmitDebugUtilsMessageEXT\NUL"#
{-# INLINE is_VkSubmitDebugUtilsMessageEXT #-}
is_VkSubmitDebugUtilsMessageEXT :: CString -> Bool
is_VkSubmitDebugUtilsMessageEXT
= (EQ ==) . cmpCStrings _VkSubmitDebugUtilsMessageEXT
type VkSubmitDebugUtilsMessageEXT = "vkSubmitDebugUtilsMessageEXT"
type HS_vkSubmitDebugUtilsMessageEXT =
VkInstance
->
VkDebugUtilsMessageSeverityFlagBitsEXT
->
VkDebugUtilsMessageTypeFlagsEXT
->
Ptr VkDebugUtilsMessengerCallbackDataEXT
-> IO ()
type PFN_vkSubmitDebugUtilsMessageEXT =
FunPtr HS_vkSubmitDebugUtilsMessageEXT
foreign import ccall unsafe "dynamic"
unwrapVkSubmitDebugUtilsMessageEXT ::
PFN_vkSubmitDebugUtilsMessageEXT -> HS_vkSubmitDebugUtilsMessageEXT
foreign import ccall safe "dynamic"
unwrapVkSubmitDebugUtilsMessageEXTSafe ::
PFN_vkSubmitDebugUtilsMessageEXT -> HS_vkSubmitDebugUtilsMessageEXT
instance VulkanProc "vkSubmitDebugUtilsMessageEXT" where
type VkProcType "vkSubmitDebugUtilsMessageEXT" =
HS_vkSubmitDebugUtilsMessageEXT
vkProcSymbol = _VkSubmitDebugUtilsMessageEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkSubmitDebugUtilsMessageEXT
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkSubmitDebugUtilsMessageEXTSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VK_EXT_DEBUG_UTILS_SPEC_VERSION :: (Num a, Eq a) => a
pattern VK_EXT_DEBUG_UTILS_SPEC_VERSION = 1
type VK_EXT_DEBUG_UTILS_SPEC_VERSION = 1
pattern VK_EXT_DEBUG_UTILS_EXTENSION_NAME :: CString
pattern VK_EXT_DEBUG_UTILS_EXTENSION_NAME <-
(is_VK_EXT_DEBUG_UTILS_EXTENSION_NAME -> True)
where VK_EXT_DEBUG_UTILS_EXTENSION_NAME
= _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 = Ptr "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
= (EQ ==) . cmpCStrings _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 VK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_NAME_INFO_EXT =
VkStructureType 1000128000
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_TAG_INFO_EXT ::
VkStructureType
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_OBJECT_TAG_INFO_EXT =
VkStructureType 1000128001
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_LABEL_EXT :: VkStructureType
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_LABEL_EXT =
VkStructureType 1000128002
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CALLBACK_DATA_EXT
:: VkStructureType
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CALLBACK_DATA_EXT =
VkStructureType 1000128003
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CREATE_INFO_EXT ::
VkStructureType
pattern VK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CREATE_INFO_EXT =
VkStructureType 1000128004
pattern VK_OBJECT_TYPE_DEBUG_UTILS_MESSENGER_EXT :: VkObjectType
pattern VK_OBJECT_TYPE_DEBUG_UTILS_MESSENGER_EXT =
VkObjectType 1000128000