{-# OPTIONS_GHC -fno-warn-missing-pattern-synonym-signatures#-}
{-# 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 TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE ViewPatterns #-}
module Graphics.Vulkan.Ext.VK_KHR_surface
(
VkDestroySurfaceKHR, pattern VkDestroySurfaceKHR,
HS_vkDestroySurfaceKHR, PFN_vkDestroySurfaceKHR,
vkDestroySurfaceKHR, vkDestroySurfaceKHRSafe,
VkGetPhysicalDeviceSurfaceSupportKHR,
pattern VkGetPhysicalDeviceSurfaceSupportKHR,
HS_vkGetPhysicalDeviceSurfaceSupportKHR,
PFN_vkGetPhysicalDeviceSurfaceSupportKHR,
vkGetPhysicalDeviceSurfaceSupportKHR,
vkGetPhysicalDeviceSurfaceSupportKHRSafe,
VkGetPhysicalDeviceSurfaceCapabilitiesKHR,
pattern VkGetPhysicalDeviceSurfaceCapabilitiesKHR,
HS_vkGetPhysicalDeviceSurfaceCapabilitiesKHR,
PFN_vkGetPhysicalDeviceSurfaceCapabilitiesKHR,
vkGetPhysicalDeviceSurfaceCapabilitiesKHR,
vkGetPhysicalDeviceSurfaceCapabilitiesKHRSafe,
VkGetPhysicalDeviceSurfaceFormatsKHR,
pattern VkGetPhysicalDeviceSurfaceFormatsKHR,
HS_vkGetPhysicalDeviceSurfaceFormatsKHR,
PFN_vkGetPhysicalDeviceSurfaceFormatsKHR,
vkGetPhysicalDeviceSurfaceFormatsKHR,
vkGetPhysicalDeviceSurfaceFormatsKHRSafe,
VkGetPhysicalDeviceSurfacePresentModesKHR,
pattern VkGetPhysicalDeviceSurfacePresentModesKHR,
HS_vkGetPhysicalDeviceSurfacePresentModesKHR,
PFN_vkGetPhysicalDeviceSurfacePresentModesKHR,
vkGetPhysicalDeviceSurfacePresentModesKHR,
vkGetPhysicalDeviceSurfacePresentModesKHRSafe,
module Graphics.Vulkan.Marshal,
module Graphics.Vulkan.Types.BaseTypes,
module Graphics.Vulkan.Types.Enum.Color,
module Graphics.Vulkan.Types.Enum.CompositeAlphaFlagsKHR,
module Graphics.Vulkan.Types.Enum.Format,
module Graphics.Vulkan.Types.Enum.Image,
module Graphics.Vulkan.Types.Enum.InternalAllocationType,
module Graphics.Vulkan.Types.Enum.PresentModeKHR,
module Graphics.Vulkan.Types.Enum.Result,
module Graphics.Vulkan.Types.Enum.Surface,
module Graphics.Vulkan.Types.Enum.SystemAllocationScope,
module Graphics.Vulkan.Types.Funcpointers,
module Graphics.Vulkan.Types.Handles,
module Graphics.Vulkan.Types.Struct.AllocationCallbacks,
module Graphics.Vulkan.Types.Struct.Extent,
module Graphics.Vulkan.Types.Struct.Surface,
VK_KHR_SURFACE_SPEC_VERSION, pattern VK_KHR_SURFACE_SPEC_VERSION,
VK_KHR_SURFACE_EXTENSION_NAME,
pattern VK_KHR_SURFACE_EXTENSION_NAME,
pattern VK_ERROR_SURFACE_LOST_KHR,
pattern VK_ERROR_NATIVE_WINDOW_IN_USE_KHR,
pattern VK_COLORSPACE_SRGB_NONLINEAR_KHR,
pattern VK_OBJECT_TYPE_SURFACE_KHR)
where
import GHC.Ptr (Ptr (..))
import Graphics.Vulkan.Marshal
import Graphics.Vulkan.Marshal.Proc
import Graphics.Vulkan.Types.BaseTypes
import Graphics.Vulkan.Types.Enum.Color
import Graphics.Vulkan.Types.Enum.CompositeAlphaFlagsKHR
import Graphics.Vulkan.Types.Enum.Format
import Graphics.Vulkan.Types.Enum.Image
import Graphics.Vulkan.Types.Enum.InternalAllocationType
import Graphics.Vulkan.Types.Enum.Object (VkObjectType (..))
import Graphics.Vulkan.Types.Enum.PresentModeKHR
import Graphics.Vulkan.Types.Enum.Result
import Graphics.Vulkan.Types.Enum.Surface
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.Extent
import Graphics.Vulkan.Types.Struct.Surface
import System.IO.Unsafe (unsafeDupablePerformIO)
pattern VkDestroySurfaceKHR :: CString
pattern VkDestroySurfaceKHR <- (is_VkDestroySurfaceKHR -> True)
where VkDestroySurfaceKHR = _VkDestroySurfaceKHR
{-# INLINE _VkDestroySurfaceKHR #-}
_VkDestroySurfaceKHR :: CString
_VkDestroySurfaceKHR = Ptr "vkDestroySurfaceKHR\NUL"#
{-# INLINE is_VkDestroySurfaceKHR #-}
is_VkDestroySurfaceKHR :: CString -> Bool
is_VkDestroySurfaceKHR = (EQ ==) . cmpCStrings _VkDestroySurfaceKHR
type VkDestroySurfaceKHR = "vkDestroySurfaceKHR"
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall unsafe "vkDestroySurfaceKHR"
vkDestroySurfaceKHR ::
VkInstance
-> VkSurfaceKHR
-> Ptr VkAllocationCallbacks
-> IO ()
#else
vkDestroySurfaceKHR ::
VkInstance
-> VkSurfaceKHR
-> Ptr VkAllocationCallbacks
-> IO ()
vkDestroySurfaceKHR
= unsafeDupablePerformIO (vkGetProc @VkDestroySurfaceKHR)
{-# NOINLINE vkDestroySurfaceKHR #-}
#endif
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall safe "vkDestroySurfaceKHR"
vkDestroySurfaceKHRSafe ::
VkInstance
-> VkSurfaceKHR
-> Ptr VkAllocationCallbacks
-> IO ()
#else
vkDestroySurfaceKHRSafe ::
VkInstance
-> VkSurfaceKHR
-> Ptr VkAllocationCallbacks
-> IO ()
vkDestroySurfaceKHRSafe
= unsafeDupablePerformIO (vkGetProcSafe @VkDestroySurfaceKHR)
{-# NOINLINE vkDestroySurfaceKHRSafe #-}
#endif
type HS_vkDestroySurfaceKHR =
VkInstance
-> VkSurfaceKHR
-> Ptr VkAllocationCallbacks
-> IO ()
type PFN_vkDestroySurfaceKHR = FunPtr HS_vkDestroySurfaceKHR
foreign import ccall unsafe "dynamic" unwrapVkDestroySurfaceKHR ::
PFN_vkDestroySurfaceKHR -> HS_vkDestroySurfaceKHR
foreign import ccall safe "dynamic" unwrapVkDestroySurfaceKHRSafe
:: PFN_vkDestroySurfaceKHR -> HS_vkDestroySurfaceKHR
instance VulkanProc "vkDestroySurfaceKHR" where
type VkProcType "vkDestroySurfaceKHR" = HS_vkDestroySurfaceKHR
vkProcSymbol = _VkDestroySurfaceKHR
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkDestroySurfaceKHR
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkDestroySurfaceKHRSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkGetPhysicalDeviceSurfaceSupportKHR :: CString
pattern VkGetPhysicalDeviceSurfaceSupportKHR <-
(is_VkGetPhysicalDeviceSurfaceSupportKHR -> True)
where VkGetPhysicalDeviceSurfaceSupportKHR
= _VkGetPhysicalDeviceSurfaceSupportKHR
{-# INLINE _VkGetPhysicalDeviceSurfaceSupportKHR #-}
_VkGetPhysicalDeviceSurfaceSupportKHR :: CString
_VkGetPhysicalDeviceSurfaceSupportKHR
= Ptr "vkGetPhysicalDeviceSurfaceSupportKHR\NUL"#
{-# INLINE is_VkGetPhysicalDeviceSurfaceSupportKHR #-}
is_VkGetPhysicalDeviceSurfaceSupportKHR :: CString -> Bool
is_VkGetPhysicalDeviceSurfaceSupportKHR
= (EQ ==) . cmpCStrings _VkGetPhysicalDeviceSurfaceSupportKHR
type VkGetPhysicalDeviceSurfaceSupportKHR =
"vkGetPhysicalDeviceSurfaceSupportKHR"
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall unsafe "vkGetPhysicalDeviceSurfaceSupportKHR"
vkGetPhysicalDeviceSurfaceSupportKHR ::
VkPhysicalDevice
->
Word32
-> VkSurfaceKHR
-> Ptr VkBool32
-> IO VkResult
#else
vkGetPhysicalDeviceSurfaceSupportKHR ::
VkPhysicalDevice
->
Word32
-> VkSurfaceKHR
-> Ptr VkBool32
-> IO VkResult
vkGetPhysicalDeviceSurfaceSupportKHR
= unsafeDupablePerformIO
(vkGetProc @VkGetPhysicalDeviceSurfaceSupportKHR)
{-# NOINLINE vkGetPhysicalDeviceSurfaceSupportKHR #-}
#endif
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall safe "vkGetPhysicalDeviceSurfaceSupportKHR"
vkGetPhysicalDeviceSurfaceSupportKHRSafe ::
VkPhysicalDevice
->
Word32
-> VkSurfaceKHR
-> Ptr VkBool32
-> IO VkResult
#else
vkGetPhysicalDeviceSurfaceSupportKHRSafe ::
VkPhysicalDevice
->
Word32
-> VkSurfaceKHR
-> Ptr VkBool32
-> IO VkResult
vkGetPhysicalDeviceSurfaceSupportKHRSafe
= unsafeDupablePerformIO
(vkGetProcSafe @VkGetPhysicalDeviceSurfaceSupportKHR)
{-# NOINLINE vkGetPhysicalDeviceSurfaceSupportKHRSafe #-}
#endif
type HS_vkGetPhysicalDeviceSurfaceSupportKHR =
VkPhysicalDevice
->
Word32
-> VkSurfaceKHR
-> Ptr VkBool32
-> IO VkResult
type PFN_vkGetPhysicalDeviceSurfaceSupportKHR =
FunPtr HS_vkGetPhysicalDeviceSurfaceSupportKHR
foreign import ccall unsafe "dynamic"
unwrapVkGetPhysicalDeviceSurfaceSupportKHR ::
PFN_vkGetPhysicalDeviceSurfaceSupportKHR ->
HS_vkGetPhysicalDeviceSurfaceSupportKHR
foreign import ccall safe "dynamic"
unwrapVkGetPhysicalDeviceSurfaceSupportKHRSafe ::
PFN_vkGetPhysicalDeviceSurfaceSupportKHR ->
HS_vkGetPhysicalDeviceSurfaceSupportKHR
instance VulkanProc "vkGetPhysicalDeviceSurfaceSupportKHR" where
type VkProcType "vkGetPhysicalDeviceSurfaceSupportKHR" =
HS_vkGetPhysicalDeviceSurfaceSupportKHR
vkProcSymbol = _VkGetPhysicalDeviceSurfaceSupportKHR
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkGetPhysicalDeviceSurfaceSupportKHR
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe
= unwrapVkGetPhysicalDeviceSurfaceSupportKHRSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkGetPhysicalDeviceSurfaceCapabilitiesKHR :: CString
pattern VkGetPhysicalDeviceSurfaceCapabilitiesKHR <-
(is_VkGetPhysicalDeviceSurfaceCapabilitiesKHR -> True)
where VkGetPhysicalDeviceSurfaceCapabilitiesKHR
= _VkGetPhysicalDeviceSurfaceCapabilitiesKHR
{-# INLINE _VkGetPhysicalDeviceSurfaceCapabilitiesKHR #-}
_VkGetPhysicalDeviceSurfaceCapabilitiesKHR :: CString
_VkGetPhysicalDeviceSurfaceCapabilitiesKHR
= Ptr "vkGetPhysicalDeviceSurfaceCapabilitiesKHR\NUL"#
{-# INLINE is_VkGetPhysicalDeviceSurfaceCapabilitiesKHR #-}
is_VkGetPhysicalDeviceSurfaceCapabilitiesKHR :: CString -> Bool
is_VkGetPhysicalDeviceSurfaceCapabilitiesKHR
= (EQ ==) . cmpCStrings _VkGetPhysicalDeviceSurfaceCapabilitiesKHR
type VkGetPhysicalDeviceSurfaceCapabilitiesKHR =
"vkGetPhysicalDeviceSurfaceCapabilitiesKHR"
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall unsafe
"vkGetPhysicalDeviceSurfaceCapabilitiesKHR"
vkGetPhysicalDeviceSurfaceCapabilitiesKHR ::
VkPhysicalDevice
->
VkSurfaceKHR
-> Ptr VkSurfaceCapabilitiesKHR
-> IO VkResult
#else
vkGetPhysicalDeviceSurfaceCapabilitiesKHR ::
VkPhysicalDevice
->
VkSurfaceKHR
->
Ptr VkSurfaceCapabilitiesKHR
-> IO VkResult
vkGetPhysicalDeviceSurfaceCapabilitiesKHR
= unsafeDupablePerformIO
(vkGetProc @VkGetPhysicalDeviceSurfaceCapabilitiesKHR)
{-# NOINLINE vkGetPhysicalDeviceSurfaceCapabilitiesKHR #-}
#endif
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall safe
"vkGetPhysicalDeviceSurfaceCapabilitiesKHR"
vkGetPhysicalDeviceSurfaceCapabilitiesKHRSafe ::
VkPhysicalDevice
->
VkSurfaceKHR
-> Ptr VkSurfaceCapabilitiesKHR
-> IO VkResult
#else
vkGetPhysicalDeviceSurfaceCapabilitiesKHRSafe ::
VkPhysicalDevice
->
VkSurfaceKHR
->
Ptr VkSurfaceCapabilitiesKHR
-> IO VkResult
vkGetPhysicalDeviceSurfaceCapabilitiesKHRSafe
= unsafeDupablePerformIO
(vkGetProcSafe @VkGetPhysicalDeviceSurfaceCapabilitiesKHR)
{-# NOINLINE vkGetPhysicalDeviceSurfaceCapabilitiesKHRSafe #-}
#endif
type HS_vkGetPhysicalDeviceSurfaceCapabilitiesKHR =
VkPhysicalDevice
->
VkSurfaceKHR
-> Ptr VkSurfaceCapabilitiesKHR
-> IO VkResult
type PFN_vkGetPhysicalDeviceSurfaceCapabilitiesKHR =
FunPtr HS_vkGetPhysicalDeviceSurfaceCapabilitiesKHR
foreign import ccall unsafe "dynamic"
unwrapVkGetPhysicalDeviceSurfaceCapabilitiesKHR ::
PFN_vkGetPhysicalDeviceSurfaceCapabilitiesKHR ->
HS_vkGetPhysicalDeviceSurfaceCapabilitiesKHR
foreign import ccall safe "dynamic"
unwrapVkGetPhysicalDeviceSurfaceCapabilitiesKHRSafe ::
PFN_vkGetPhysicalDeviceSurfaceCapabilitiesKHR ->
HS_vkGetPhysicalDeviceSurfaceCapabilitiesKHR
instance VulkanProc "vkGetPhysicalDeviceSurfaceCapabilitiesKHR"
where
type VkProcType "vkGetPhysicalDeviceSurfaceCapabilitiesKHR" =
HS_vkGetPhysicalDeviceSurfaceCapabilitiesKHR
vkProcSymbol = _VkGetPhysicalDeviceSurfaceCapabilitiesKHR
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkGetPhysicalDeviceSurfaceCapabilitiesKHR
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe
= unwrapVkGetPhysicalDeviceSurfaceCapabilitiesKHRSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkGetPhysicalDeviceSurfaceFormatsKHR :: CString
pattern VkGetPhysicalDeviceSurfaceFormatsKHR <-
(is_VkGetPhysicalDeviceSurfaceFormatsKHR -> True)
where VkGetPhysicalDeviceSurfaceFormatsKHR
= _VkGetPhysicalDeviceSurfaceFormatsKHR
{-# INLINE _VkGetPhysicalDeviceSurfaceFormatsKHR #-}
_VkGetPhysicalDeviceSurfaceFormatsKHR :: CString
_VkGetPhysicalDeviceSurfaceFormatsKHR
= Ptr "vkGetPhysicalDeviceSurfaceFormatsKHR\NUL"#
{-# INLINE is_VkGetPhysicalDeviceSurfaceFormatsKHR #-}
is_VkGetPhysicalDeviceSurfaceFormatsKHR :: CString -> Bool
is_VkGetPhysicalDeviceSurfaceFormatsKHR
= (EQ ==) . cmpCStrings _VkGetPhysicalDeviceSurfaceFormatsKHR
type VkGetPhysicalDeviceSurfaceFormatsKHR =
"vkGetPhysicalDeviceSurfaceFormatsKHR"
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall unsafe "vkGetPhysicalDeviceSurfaceFormatsKHR"
vkGetPhysicalDeviceSurfaceFormatsKHR ::
VkPhysicalDevice
->
VkSurfaceKHR
-> Ptr Word32
-> Ptr VkSurfaceFormatKHR
-> IO VkResult
#else
vkGetPhysicalDeviceSurfaceFormatsKHR ::
VkPhysicalDevice
->
VkSurfaceKHR
->
Ptr Word32
-> Ptr VkSurfaceFormatKHR
-> IO VkResult
vkGetPhysicalDeviceSurfaceFormatsKHR
= unsafeDupablePerformIO
(vkGetProc @VkGetPhysicalDeviceSurfaceFormatsKHR)
{-# NOINLINE vkGetPhysicalDeviceSurfaceFormatsKHR #-}
#endif
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall safe "vkGetPhysicalDeviceSurfaceFormatsKHR"
vkGetPhysicalDeviceSurfaceFormatsKHRSafe ::
VkPhysicalDevice
->
VkSurfaceKHR
-> Ptr Word32
-> Ptr VkSurfaceFormatKHR
-> IO VkResult
#else
vkGetPhysicalDeviceSurfaceFormatsKHRSafe ::
VkPhysicalDevice
->
VkSurfaceKHR
->
Ptr Word32
-> Ptr VkSurfaceFormatKHR
-> IO VkResult
vkGetPhysicalDeviceSurfaceFormatsKHRSafe
= unsafeDupablePerformIO
(vkGetProcSafe @VkGetPhysicalDeviceSurfaceFormatsKHR)
{-# NOINLINE vkGetPhysicalDeviceSurfaceFormatsKHRSafe #-}
#endif
type HS_vkGetPhysicalDeviceSurfaceFormatsKHR =
VkPhysicalDevice
->
VkSurfaceKHR
-> Ptr Word32
-> Ptr VkSurfaceFormatKHR
-> IO VkResult
type PFN_vkGetPhysicalDeviceSurfaceFormatsKHR =
FunPtr HS_vkGetPhysicalDeviceSurfaceFormatsKHR
foreign import ccall unsafe "dynamic"
unwrapVkGetPhysicalDeviceSurfaceFormatsKHR ::
PFN_vkGetPhysicalDeviceSurfaceFormatsKHR ->
HS_vkGetPhysicalDeviceSurfaceFormatsKHR
foreign import ccall safe "dynamic"
unwrapVkGetPhysicalDeviceSurfaceFormatsKHRSafe ::
PFN_vkGetPhysicalDeviceSurfaceFormatsKHR ->
HS_vkGetPhysicalDeviceSurfaceFormatsKHR
instance VulkanProc "vkGetPhysicalDeviceSurfaceFormatsKHR" where
type VkProcType "vkGetPhysicalDeviceSurfaceFormatsKHR" =
HS_vkGetPhysicalDeviceSurfaceFormatsKHR
vkProcSymbol = _VkGetPhysicalDeviceSurfaceFormatsKHR
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkGetPhysicalDeviceSurfaceFormatsKHR
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe
= unwrapVkGetPhysicalDeviceSurfaceFormatsKHRSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VkGetPhysicalDeviceSurfacePresentModesKHR :: CString
pattern VkGetPhysicalDeviceSurfacePresentModesKHR <-
(is_VkGetPhysicalDeviceSurfacePresentModesKHR -> True)
where VkGetPhysicalDeviceSurfacePresentModesKHR
= _VkGetPhysicalDeviceSurfacePresentModesKHR
{-# INLINE _VkGetPhysicalDeviceSurfacePresentModesKHR #-}
_VkGetPhysicalDeviceSurfacePresentModesKHR :: CString
_VkGetPhysicalDeviceSurfacePresentModesKHR
= Ptr "vkGetPhysicalDeviceSurfacePresentModesKHR\NUL"#
{-# INLINE is_VkGetPhysicalDeviceSurfacePresentModesKHR #-}
is_VkGetPhysicalDeviceSurfacePresentModesKHR :: CString -> Bool
is_VkGetPhysicalDeviceSurfacePresentModesKHR
= (EQ ==) . cmpCStrings _VkGetPhysicalDeviceSurfacePresentModesKHR
type VkGetPhysicalDeviceSurfacePresentModesKHR =
"vkGetPhysicalDeviceSurfacePresentModesKHR"
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall unsafe
"vkGetPhysicalDeviceSurfacePresentModesKHR"
vkGetPhysicalDeviceSurfacePresentModesKHR ::
VkPhysicalDevice
->
VkSurfaceKHR
-> Ptr Word32
-> Ptr VkPresentModeKHR
-> IO VkResult
#else
vkGetPhysicalDeviceSurfacePresentModesKHR ::
VkPhysicalDevice
->
VkSurfaceKHR
->
Ptr Word32
-> Ptr VkPresentModeKHR
-> IO VkResult
vkGetPhysicalDeviceSurfacePresentModesKHR
= unsafeDupablePerformIO
(vkGetProc @VkGetPhysicalDeviceSurfacePresentModesKHR)
{-# NOINLINE vkGetPhysicalDeviceSurfacePresentModesKHR #-}
#endif
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall safe
"vkGetPhysicalDeviceSurfacePresentModesKHR"
vkGetPhysicalDeviceSurfacePresentModesKHRSafe ::
VkPhysicalDevice
->
VkSurfaceKHR
-> Ptr Word32
-> Ptr VkPresentModeKHR
-> IO VkResult
#else
vkGetPhysicalDeviceSurfacePresentModesKHRSafe ::
VkPhysicalDevice
->
VkSurfaceKHR
->
Ptr Word32
-> Ptr VkPresentModeKHR
-> IO VkResult
vkGetPhysicalDeviceSurfacePresentModesKHRSafe
= unsafeDupablePerformIO
(vkGetProcSafe @VkGetPhysicalDeviceSurfacePresentModesKHR)
{-# NOINLINE vkGetPhysicalDeviceSurfacePresentModesKHRSafe #-}
#endif
type HS_vkGetPhysicalDeviceSurfacePresentModesKHR =
VkPhysicalDevice
->
VkSurfaceKHR
-> Ptr Word32
-> Ptr VkPresentModeKHR
-> IO VkResult
type PFN_vkGetPhysicalDeviceSurfacePresentModesKHR =
FunPtr HS_vkGetPhysicalDeviceSurfacePresentModesKHR
foreign import ccall unsafe "dynamic"
unwrapVkGetPhysicalDeviceSurfacePresentModesKHR ::
PFN_vkGetPhysicalDeviceSurfacePresentModesKHR ->
HS_vkGetPhysicalDeviceSurfacePresentModesKHR
foreign import ccall safe "dynamic"
unwrapVkGetPhysicalDeviceSurfacePresentModesKHRSafe ::
PFN_vkGetPhysicalDeviceSurfacePresentModesKHR ->
HS_vkGetPhysicalDeviceSurfacePresentModesKHR
instance VulkanProc "vkGetPhysicalDeviceSurfacePresentModesKHR"
where
type VkProcType "vkGetPhysicalDeviceSurfacePresentModesKHR" =
HS_vkGetPhysicalDeviceSurfacePresentModesKHR
vkProcSymbol = _VkGetPhysicalDeviceSurfacePresentModesKHR
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkGetPhysicalDeviceSurfacePresentModesKHR
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe
= unwrapVkGetPhysicalDeviceSurfacePresentModesKHRSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VK_KHR_SURFACE_SPEC_VERSION :: (Num a, Eq a) => a
pattern VK_KHR_SURFACE_SPEC_VERSION = 25
type VK_KHR_SURFACE_SPEC_VERSION = 25
pattern VK_KHR_SURFACE_EXTENSION_NAME :: CString
pattern VK_KHR_SURFACE_EXTENSION_NAME <-
(is_VK_KHR_SURFACE_EXTENSION_NAME -> True)
where VK_KHR_SURFACE_EXTENSION_NAME
= _VK_KHR_SURFACE_EXTENSION_NAME
{-# INLINE _VK_KHR_SURFACE_EXTENSION_NAME #-}
_VK_KHR_SURFACE_EXTENSION_NAME :: CString
_VK_KHR_SURFACE_EXTENSION_NAME = Ptr "VK_KHR_surface\NUL"#
{-# INLINE is_VK_KHR_SURFACE_EXTENSION_NAME #-}
is_VK_KHR_SURFACE_EXTENSION_NAME :: CString -> Bool
is_VK_KHR_SURFACE_EXTENSION_NAME
= (EQ ==) . cmpCStrings _VK_KHR_SURFACE_EXTENSION_NAME
type VK_KHR_SURFACE_EXTENSION_NAME = "VK_KHR_surface"
pattern VK_ERROR_SURFACE_LOST_KHR :: VkResult
pattern VK_ERROR_SURFACE_LOST_KHR = VkResult (-1000000000)
pattern VK_ERROR_NATIVE_WINDOW_IN_USE_KHR :: VkResult
pattern VK_ERROR_NATIVE_WINDOW_IN_USE_KHR = VkResult (-1000000001)
pattern VK_COLORSPACE_SRGB_NONLINEAR_KHR =
VK_COLOR_SPACE_SRGB_NONLINEAR_KHR
pattern VK_OBJECT_TYPE_SURFACE_KHR :: VkObjectType
pattern VK_OBJECT_TYPE_SURFACE_KHR = VkObjectType 1000000000