{-# OPTIONS_GHC -fno-warn-missing-pattern-synonym-signatures#-}
{-# 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_report
(
module Graphics.Vulkan.Marshal,
module Graphics.Vulkan.Types.Struct.ApplicationInfo,
module Graphics.Vulkan.Types.BaseTypes,
module Graphics.Vulkan.Types.Struct.Debug,
module Graphics.Vulkan.Types.Enum.Debug,
module Graphics.Vulkan.Types.Bitmasks,
module Graphics.Vulkan.Types.Struct.InstanceCreateInfo,
module Graphics.Vulkan.Types.Enum.StructureType,
VkCreateDebugReportCallbackEXT,
pattern VkCreateDebugReportCallbackEXT,
HS_vkCreateDebugReportCallbackEXT,
PFN_vkCreateDebugReportCallbackEXT,
VkDestroyDebugReportCallbackEXT,
pattern VkDestroyDebugReportCallbackEXT,
HS_vkDestroyDebugReportCallbackEXT,
PFN_vkDestroyDebugReportCallbackEXT, VkDebugReportMessageEXT,
pattern VkDebugReportMessageEXT, HS_vkDebugReportMessageEXT,
PFN_vkDebugReportMessageEXT,
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_REPORT_SPEC_VERSION,
pattern VK_EXT_DEBUG_REPORT_SPEC_VERSION,
VK_EXT_DEBUG_REPORT_EXTENSION_NAME,
pattern VK_EXT_DEBUG_REPORT_EXTENSION_NAME,
pattern VK_STRUCTURE_TYPE_DEBUG_REPORT_CALLBACK_CREATE_INFO_EXT,
pattern VK_ERROR_VALIDATION_FAILED_EXT,
pattern VK_STRUCTURE_TYPE_DEBUG_REPORT_CREATE_INFO_EXT,
pattern VK_OBJECT_TYPE_DEBUG_REPORT_CALLBACK_EXT,
pattern VK_DEBUG_REPORT_OBJECT_TYPE_DEBUG_REPORT_EXT,
pattern VK_DEBUG_REPORT_OBJECT_TYPE_SAMPLER_YCBCR_CONVERSION_EXT,
pattern VK_DEBUG_REPORT_OBJECT_TYPE_DESCRIPTOR_UPDATE_TEMPLATE_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 (VkObjectType (..))
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.InstanceCreateInfo
pattern VkCreateDebugReportCallbackEXT :: CString
pattern $bVkCreateDebugReportCallbackEXT :: CString
$mVkCreateDebugReportCallbackEXT :: forall r. CString -> (Void# -> r) -> (Void# -> r) -> r
VkCreateDebugReportCallbackEXT <-
(is_VkCreateDebugReportCallbackEXT -> True)
where VkCreateDebugReportCallbackEXT
= CString
_VkCreateDebugReportCallbackEXT
{-# INLINE _VkCreateDebugReportCallbackEXT #-}
_VkCreateDebugReportCallbackEXT :: CString
_VkCreateDebugReportCallbackEXT :: CString
_VkCreateDebugReportCallbackEXT
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkCreateDebugReportCallbackEXT\NUL"#
{-# INLINE is_VkCreateDebugReportCallbackEXT #-}
is_VkCreateDebugReportCallbackEXT :: CString -> Bool
is_VkCreateDebugReportCallbackEXT :: CString -> Bool
is_VkCreateDebugReportCallbackEXT
= (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
_VkCreateDebugReportCallbackEXT
type VkCreateDebugReportCallbackEXT =
"vkCreateDebugReportCallbackEXT"
type HS_vkCreateDebugReportCallbackEXT =
VkInstance
->
Ptr VkDebugReportCallbackCreateInfoEXT
->
Ptr VkAllocationCallbacks
->
Ptr VkDebugReportCallbackEXT
-> IO VkResult
type PFN_vkCreateDebugReportCallbackEXT =
FunPtr HS_vkCreateDebugReportCallbackEXT
foreign import ccall "dynamic" unwrapVkCreateDebugReportCallbackEXT
::
PFN_vkCreateDebugReportCallbackEXT ->
HS_vkCreateDebugReportCallbackEXT
instance VulkanProc "vkCreateDebugReportCallbackEXT" where
type VkProcType "vkCreateDebugReportCallbackEXT" =
HS_vkCreateDebugReportCallbackEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkCreateDebugReportCallbackEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr :: FunPtr (VkProcType "vkCreateDebugReportCallbackEXT")
-> VkProcType "vkCreateDebugReportCallbackEXT"
unwrapVkProcPtr = FunPtr (VkProcType "vkCreateDebugReportCallbackEXT")
-> VkProcType "vkCreateDebugReportCallbackEXT"
PFN_vkCreateDebugReportCallbackEXT
-> HS_vkCreateDebugReportCallbackEXT
unwrapVkCreateDebugReportCallbackEXT
{-# INLINE unwrapVkProcPtr #-}
pattern VkDestroyDebugReportCallbackEXT :: CString
pattern $bVkDestroyDebugReportCallbackEXT :: CString
$mVkDestroyDebugReportCallbackEXT :: forall r. CString -> (Void# -> r) -> (Void# -> r) -> r
VkDestroyDebugReportCallbackEXT <-
(is_VkDestroyDebugReportCallbackEXT -> True)
where VkDestroyDebugReportCallbackEXT
= CString
_VkDestroyDebugReportCallbackEXT
{-# INLINE _VkDestroyDebugReportCallbackEXT #-}
_VkDestroyDebugReportCallbackEXT :: CString
_VkDestroyDebugReportCallbackEXT :: CString
_VkDestroyDebugReportCallbackEXT
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkDestroyDebugReportCallbackEXT\NUL"#
{-# INLINE is_VkDestroyDebugReportCallbackEXT #-}
is_VkDestroyDebugReportCallbackEXT :: CString -> Bool
is_VkDestroyDebugReportCallbackEXT :: CString -> Bool
is_VkDestroyDebugReportCallbackEXT
= (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
_VkDestroyDebugReportCallbackEXT
type VkDestroyDebugReportCallbackEXT =
"vkDestroyDebugReportCallbackEXT"
type HS_vkDestroyDebugReportCallbackEXT =
VkInstance
->
VkDebugReportCallbackEXT
-> Ptr VkAllocationCallbacks
-> IO ()
type PFN_vkDestroyDebugReportCallbackEXT =
FunPtr HS_vkDestroyDebugReportCallbackEXT
foreign import ccall "dynamic"
unwrapVkDestroyDebugReportCallbackEXT ::
PFN_vkDestroyDebugReportCallbackEXT ->
HS_vkDestroyDebugReportCallbackEXT
instance VulkanProc "vkDestroyDebugReportCallbackEXT" where
type VkProcType "vkDestroyDebugReportCallbackEXT" =
HS_vkDestroyDebugReportCallbackEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkDestroyDebugReportCallbackEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr :: FunPtr (VkProcType "vkDestroyDebugReportCallbackEXT")
-> VkProcType "vkDestroyDebugReportCallbackEXT"
unwrapVkProcPtr = FunPtr (VkProcType "vkDestroyDebugReportCallbackEXT")
-> VkProcType "vkDestroyDebugReportCallbackEXT"
PFN_vkDestroyDebugReportCallbackEXT
-> HS_vkDestroyDebugReportCallbackEXT
unwrapVkDestroyDebugReportCallbackEXT
{-# INLINE unwrapVkProcPtr #-}
pattern VkDebugReportMessageEXT :: CString
pattern $bVkDebugReportMessageEXT :: CString
$mVkDebugReportMessageEXT :: forall r. CString -> (Void# -> r) -> (Void# -> r) -> r
VkDebugReportMessageEXT <-
(is_VkDebugReportMessageEXT -> True)
where VkDebugReportMessageEXT = CString
_VkDebugReportMessageEXT
{-# INLINE _VkDebugReportMessageEXT #-}
_VkDebugReportMessageEXT :: CString
_VkDebugReportMessageEXT :: CString
_VkDebugReportMessageEXT = Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkDebugReportMessageEXT\NUL"#
{-# INLINE is_VkDebugReportMessageEXT #-}
is_VkDebugReportMessageEXT :: CString -> Bool
is_VkDebugReportMessageEXT :: CString -> Bool
is_VkDebugReportMessageEXT
= (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
_VkDebugReportMessageEXT
type VkDebugReportMessageEXT = "vkDebugReportMessageEXT"
type HS_vkDebugReportMessageEXT =
VkInstance
->
VkDebugReportFlagsEXT
->
VkDebugReportObjectTypeEXT
->
Word64
-> CSize
-> Int32
-> CString
-> CString
-> IO ()
type PFN_vkDebugReportMessageEXT =
FunPtr HS_vkDebugReportMessageEXT
foreign import ccall "dynamic" unwrapVkDebugReportMessageEXT ::
PFN_vkDebugReportMessageEXT -> HS_vkDebugReportMessageEXT
instance VulkanProc "vkDebugReportMessageEXT" where
type VkProcType "vkDebugReportMessageEXT" =
HS_vkDebugReportMessageEXT
vkProcSymbol :: CString
vkProcSymbol = CString
_VkDebugReportMessageEXT
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr :: FunPtr (VkProcType "vkDebugReportMessageEXT")
-> VkProcType "vkDebugReportMessageEXT"
unwrapVkProcPtr = FunPtr (VkProcType "vkDebugReportMessageEXT")
-> VkProcType "vkDebugReportMessageEXT"
PFN_vkDebugReportMessageEXT -> HS_vkDebugReportMessageEXT
unwrapVkDebugReportMessageEXT
{-# INLINE unwrapVkProcPtr #-}
pattern VK_EXT_DEBUG_REPORT_SPEC_VERSION :: (Num a, Eq a) => a
pattern $bVK_EXT_DEBUG_REPORT_SPEC_VERSION :: a
$mVK_EXT_DEBUG_REPORT_SPEC_VERSION :: forall r a. (Num a, Eq a) => a -> (Void# -> r) -> (Void# -> r) -> r
VK_EXT_DEBUG_REPORT_SPEC_VERSION = 9
type VK_EXT_DEBUG_REPORT_SPEC_VERSION = 9
pattern VK_EXT_DEBUG_REPORT_EXTENSION_NAME :: CString
pattern $bVK_EXT_DEBUG_REPORT_EXTENSION_NAME :: CString
$mVK_EXT_DEBUG_REPORT_EXTENSION_NAME :: forall r. CString -> (Void# -> r) -> (Void# -> r) -> r
VK_EXT_DEBUG_REPORT_EXTENSION_NAME <-
(is_VK_EXT_DEBUG_REPORT_EXTENSION_NAME -> True)
where VK_EXT_DEBUG_REPORT_EXTENSION_NAME
= CString
_VK_EXT_DEBUG_REPORT_EXTENSION_NAME
{-# INLINE _VK_EXT_DEBUG_REPORT_EXTENSION_NAME #-}
_VK_EXT_DEBUG_REPORT_EXTENSION_NAME :: CString
_VK_EXT_DEBUG_REPORT_EXTENSION_NAME :: CString
_VK_EXT_DEBUG_REPORT_EXTENSION_NAME
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"VK_EXT_debug_report\NUL"#
{-# INLINE is_VK_EXT_DEBUG_REPORT_EXTENSION_NAME #-}
is_VK_EXT_DEBUG_REPORT_EXTENSION_NAME :: CString -> Bool
is_VK_EXT_DEBUG_REPORT_EXTENSION_NAME :: CString -> Bool
is_VK_EXT_DEBUG_REPORT_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_REPORT_EXTENSION_NAME
type VK_EXT_DEBUG_REPORT_EXTENSION_NAME = "VK_EXT_debug_report"
pattern VK_STRUCTURE_TYPE_DEBUG_REPORT_CALLBACK_CREATE_INFO_EXT ::
VkStructureType
pattern $bVK_STRUCTURE_TYPE_DEBUG_REPORT_CALLBACK_CREATE_INFO_EXT :: VkStructureType
$mVK_STRUCTURE_TYPE_DEBUG_REPORT_CALLBACK_CREATE_INFO_EXT :: forall r. VkStructureType -> (Void# -> r) -> (Void# -> r) -> r
VK_STRUCTURE_TYPE_DEBUG_REPORT_CALLBACK_CREATE_INFO_EXT =
VkStructureType 1000011000
pattern VK_ERROR_VALIDATION_FAILED_EXT :: VkResult
pattern $bVK_ERROR_VALIDATION_FAILED_EXT :: VkResult
$mVK_ERROR_VALIDATION_FAILED_EXT :: forall r. VkResult -> (Void# -> r) -> (Void# -> r) -> r
VK_ERROR_VALIDATION_FAILED_EXT = VkResult (-1000011001)
pattern $bVK_STRUCTURE_TYPE_DEBUG_REPORT_CREATE_INFO_EXT :: VkStructureType
$mVK_STRUCTURE_TYPE_DEBUG_REPORT_CREATE_INFO_EXT :: forall r. VkStructureType -> (Void# -> r) -> (Void# -> r) -> r
VK_STRUCTURE_TYPE_DEBUG_REPORT_CREATE_INFO_EXT =
VK_STRUCTURE_TYPE_DEBUG_REPORT_CALLBACK_CREATE_INFO_EXT
pattern VK_OBJECT_TYPE_DEBUG_REPORT_CALLBACK_EXT :: VkObjectType
pattern $bVK_OBJECT_TYPE_DEBUG_REPORT_CALLBACK_EXT :: VkObjectType
$mVK_OBJECT_TYPE_DEBUG_REPORT_CALLBACK_EXT :: forall r. VkObjectType -> (Void# -> r) -> (Void# -> r) -> r
VK_OBJECT_TYPE_DEBUG_REPORT_CALLBACK_EXT =
VkObjectType 1000011000
pattern $bVK_DEBUG_REPORT_OBJECT_TYPE_DEBUG_REPORT_EXT :: VkDebugReportObjectTypeEXT
$mVK_DEBUG_REPORT_OBJECT_TYPE_DEBUG_REPORT_EXT :: forall r.
VkDebugReportObjectTypeEXT -> (Void# -> r) -> (Void# -> r) -> r
VK_DEBUG_REPORT_OBJECT_TYPE_DEBUG_REPORT_EXT =
VK_DEBUG_REPORT_OBJECT_TYPE_DEBUG_REPORT_CALLBACK_EXT_EXT
pattern VK_DEBUG_REPORT_OBJECT_TYPE_SAMPLER_YCBCR_CONVERSION_EXT ::
VkDebugReportObjectTypeEXT
pattern $bVK_DEBUG_REPORT_OBJECT_TYPE_SAMPLER_YCBCR_CONVERSION_EXT :: VkDebugReportObjectTypeEXT
$mVK_DEBUG_REPORT_OBJECT_TYPE_SAMPLER_YCBCR_CONVERSION_EXT :: forall r.
VkDebugReportObjectTypeEXT -> (Void# -> r) -> (Void# -> r) -> r
VK_DEBUG_REPORT_OBJECT_TYPE_SAMPLER_YCBCR_CONVERSION_EXT =
VkDebugReportObjectTypeEXT 1000156000
pattern VK_DEBUG_REPORT_OBJECT_TYPE_DESCRIPTOR_UPDATE_TEMPLATE_EXT
:: VkDebugReportObjectTypeEXT
pattern $bVK_DEBUG_REPORT_OBJECT_TYPE_DESCRIPTOR_UPDATE_TEMPLATE_EXT :: VkDebugReportObjectTypeEXT
$mVK_DEBUG_REPORT_OBJECT_TYPE_DESCRIPTOR_UPDATE_TEMPLATE_EXT :: forall r.
VkDebugReportObjectTypeEXT -> (Void# -> r) -> (Void# -> r) -> r
VK_DEBUG_REPORT_OBJECT_TYPE_DESCRIPTOR_UPDATE_TEMPLATE_EXT
= VkDebugReportObjectTypeEXT 1000085000