{-# 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 $bVkDestroySurfaceKHR :: CString
$mVkDestroySurfaceKHR :: forall r. CString -> (Void# -> r) -> (Void# -> r) -> r
VkDestroySurfaceKHR <- (is_VkDestroySurfaceKHR -> True)
where VkDestroySurfaceKHR = CString
_VkDestroySurfaceKHR
{-# INLINE _VkDestroySurfaceKHR #-}
_VkDestroySurfaceKHR :: CString
_VkDestroySurfaceKHR :: CString
_VkDestroySurfaceKHR = Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkDestroySurfaceKHR\NUL"#
{-# INLINE is_VkDestroySurfaceKHR #-}
is_VkDestroySurfaceKHR :: CString -> Bool
is_VkDestroySurfaceKHR :: CString -> Bool
is_VkDestroySurfaceKHR = (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
_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 :: VkInstance -> VkSurfaceKHR -> Ptr VkAllocationCallbacks -> IO ()
vkDestroySurfaceKHR
= IO
(VkInstance -> VkSurfaceKHR -> Ptr VkAllocationCallbacks -> IO ())
-> VkInstance -> VkSurfaceKHR -> Ptr VkAllocationCallbacks -> IO ()
forall a. IO a -> a
unsafeDupablePerformIO (VulkanProc VkDestroySurfaceKHR =>
IO (VkProcType VkDestroySurfaceKHR)
forall (proc :: Symbol). VulkanProc proc => IO (VkProcType proc)
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 :: VkInstance -> VkSurfaceKHR -> Ptr VkAllocationCallbacks -> IO ()
vkDestroySurfaceKHRSafe = VkInstance -> VkSurfaceKHR -> Ptr VkAllocationCallbacks -> IO ()
vkDestroySurfaceKHR
{-# INLINE vkDestroySurfaceKHRSafe #-}
#endif
type HS_vkDestroySurfaceKHR =
VkInstance
-> VkSurfaceKHR
-> Ptr VkAllocationCallbacks
-> IO ()
type PFN_vkDestroySurfaceKHR = FunPtr HS_vkDestroySurfaceKHR
foreign import ccall "dynamic" unwrapVkDestroySurfaceKHR ::
PFN_vkDestroySurfaceKHR -> HS_vkDestroySurfaceKHR
instance VulkanProc "vkDestroySurfaceKHR" where
type VkProcType "vkDestroySurfaceKHR" = HS_vkDestroySurfaceKHR
vkProcSymbol :: CString
vkProcSymbol = CString
_VkDestroySurfaceKHR
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr :: FunPtr (VkProcType VkDestroySurfaceKHR)
-> VkProcType VkDestroySurfaceKHR
unwrapVkProcPtr = FunPtr (VkProcType VkDestroySurfaceKHR)
-> VkProcType VkDestroySurfaceKHR
PFN_vkDestroySurfaceKHR
-> VkInstance -> VkSurfaceKHR -> Ptr VkAllocationCallbacks -> IO ()
unwrapVkDestroySurfaceKHR
{-# INLINE unwrapVkProcPtr #-}
pattern VkGetPhysicalDeviceSurfaceSupportKHR :: CString
pattern $bVkGetPhysicalDeviceSurfaceSupportKHR :: CString
$mVkGetPhysicalDeviceSurfaceSupportKHR :: forall r. CString -> (Void# -> r) -> (Void# -> r) -> r
VkGetPhysicalDeviceSurfaceSupportKHR <-
(is_VkGetPhysicalDeviceSurfaceSupportKHR -> True)
where VkGetPhysicalDeviceSurfaceSupportKHR
= CString
_VkGetPhysicalDeviceSurfaceSupportKHR
{-# INLINE _VkGetPhysicalDeviceSurfaceSupportKHR #-}
_VkGetPhysicalDeviceSurfaceSupportKHR :: CString
_VkGetPhysicalDeviceSurfaceSupportKHR :: CString
_VkGetPhysicalDeviceSurfaceSupportKHR
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkGetPhysicalDeviceSurfaceSupportKHR\NUL"#
{-# INLINE is_VkGetPhysicalDeviceSurfaceSupportKHR #-}
is_VkGetPhysicalDeviceSurfaceSupportKHR :: CString -> Bool
is_VkGetPhysicalDeviceSurfaceSupportKHR :: CString -> Bool
is_VkGetPhysicalDeviceSurfaceSupportKHR
= (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
_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 :: VkPhysicalDevice
-> Word32 -> VkSurfaceKHR -> Ptr VkBool32 -> IO VkResult
vkGetPhysicalDeviceSurfaceSupportKHR
= IO
(VkPhysicalDevice
-> Word32 -> VkSurfaceKHR -> Ptr VkBool32 -> IO VkResult)
-> VkPhysicalDevice
-> Word32
-> VkSurfaceKHR
-> Ptr VkBool32
-> IO VkResult
forall a. IO a -> a
unsafeDupablePerformIO
(VulkanProc VkGetPhysicalDeviceSurfaceSupportKHR =>
IO (VkProcType VkGetPhysicalDeviceSurfaceSupportKHR)
forall (proc :: Symbol). VulkanProc proc => IO (VkProcType proc)
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 :: VkPhysicalDevice
-> Word32 -> VkSurfaceKHR -> Ptr VkBool32 -> IO VkResult
vkGetPhysicalDeviceSurfaceSupportKHRSafe
= VkPhysicalDevice
-> Word32 -> VkSurfaceKHR -> Ptr VkBool32 -> IO VkResult
vkGetPhysicalDeviceSurfaceSupportKHR
{-# INLINE vkGetPhysicalDeviceSurfaceSupportKHRSafe #-}
#endif
type HS_vkGetPhysicalDeviceSurfaceSupportKHR =
VkPhysicalDevice
->
Word32
-> VkSurfaceKHR
-> Ptr VkBool32
-> IO VkResult
type PFN_vkGetPhysicalDeviceSurfaceSupportKHR =
FunPtr HS_vkGetPhysicalDeviceSurfaceSupportKHR
foreign import ccall "dynamic"
unwrapVkGetPhysicalDeviceSurfaceSupportKHR ::
PFN_vkGetPhysicalDeviceSurfaceSupportKHR ->
HS_vkGetPhysicalDeviceSurfaceSupportKHR
instance VulkanProc "vkGetPhysicalDeviceSurfaceSupportKHR" where
type VkProcType "vkGetPhysicalDeviceSurfaceSupportKHR" =
HS_vkGetPhysicalDeviceSurfaceSupportKHR
vkProcSymbol :: CString
vkProcSymbol = CString
_VkGetPhysicalDeviceSurfaceSupportKHR
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr :: FunPtr (VkProcType VkGetPhysicalDeviceSurfaceSupportKHR)
-> VkProcType VkGetPhysicalDeviceSurfaceSupportKHR
unwrapVkProcPtr = FunPtr (VkProcType VkGetPhysicalDeviceSurfaceSupportKHR)
-> VkProcType VkGetPhysicalDeviceSurfaceSupportKHR
PFN_vkGetPhysicalDeviceSurfaceSupportKHR
-> VkPhysicalDevice
-> Word32
-> VkSurfaceKHR
-> Ptr VkBool32
-> IO VkResult
unwrapVkGetPhysicalDeviceSurfaceSupportKHR
{-# INLINE unwrapVkProcPtr #-}
pattern VkGetPhysicalDeviceSurfaceCapabilitiesKHR :: CString
pattern $bVkGetPhysicalDeviceSurfaceCapabilitiesKHR :: CString
$mVkGetPhysicalDeviceSurfaceCapabilitiesKHR :: forall r. CString -> (Void# -> r) -> (Void# -> r) -> r
VkGetPhysicalDeviceSurfaceCapabilitiesKHR <-
(is_VkGetPhysicalDeviceSurfaceCapabilitiesKHR -> True)
where VkGetPhysicalDeviceSurfaceCapabilitiesKHR
= CString
_VkGetPhysicalDeviceSurfaceCapabilitiesKHR
{-# INLINE _VkGetPhysicalDeviceSurfaceCapabilitiesKHR #-}
_VkGetPhysicalDeviceSurfaceCapabilitiesKHR :: CString
_VkGetPhysicalDeviceSurfaceCapabilitiesKHR :: CString
_VkGetPhysicalDeviceSurfaceCapabilitiesKHR
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkGetPhysicalDeviceSurfaceCapabilitiesKHR\NUL"#
{-# INLINE is_VkGetPhysicalDeviceSurfaceCapabilitiesKHR #-}
is_VkGetPhysicalDeviceSurfaceCapabilitiesKHR :: CString -> Bool
is_VkGetPhysicalDeviceSurfaceCapabilitiesKHR :: CString -> Bool
is_VkGetPhysicalDeviceSurfaceCapabilitiesKHR
= (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
_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 :: VkPhysicalDevice
-> VkSurfaceKHR -> Ptr VkSurfaceCapabilitiesKHR -> IO VkResult
vkGetPhysicalDeviceSurfaceCapabilitiesKHR
= IO
(VkPhysicalDevice
-> VkSurfaceKHR -> Ptr VkSurfaceCapabilitiesKHR -> IO VkResult)
-> VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr VkSurfaceCapabilitiesKHR
-> IO VkResult
forall a. IO a -> a
unsafeDupablePerformIO
(VulkanProc VkGetPhysicalDeviceSurfaceCapabilitiesKHR =>
IO (VkProcType VkGetPhysicalDeviceSurfaceCapabilitiesKHR)
forall (proc :: Symbol). VulkanProc proc => IO (VkProcType proc)
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 :: VkPhysicalDevice
-> VkSurfaceKHR -> Ptr VkSurfaceCapabilitiesKHR -> IO VkResult
vkGetPhysicalDeviceSurfaceCapabilitiesKHRSafe
= VkPhysicalDevice
-> VkSurfaceKHR -> Ptr VkSurfaceCapabilitiesKHR -> IO VkResult
vkGetPhysicalDeviceSurfaceCapabilitiesKHR
{-# INLINE vkGetPhysicalDeviceSurfaceCapabilitiesKHRSafe #-}
#endif
type HS_vkGetPhysicalDeviceSurfaceCapabilitiesKHR =
VkPhysicalDevice
->
VkSurfaceKHR
-> Ptr VkSurfaceCapabilitiesKHR
-> IO VkResult
type PFN_vkGetPhysicalDeviceSurfaceCapabilitiesKHR =
FunPtr HS_vkGetPhysicalDeviceSurfaceCapabilitiesKHR
foreign import ccall "dynamic"
unwrapVkGetPhysicalDeviceSurfaceCapabilitiesKHR ::
PFN_vkGetPhysicalDeviceSurfaceCapabilitiesKHR ->
HS_vkGetPhysicalDeviceSurfaceCapabilitiesKHR
instance VulkanProc "vkGetPhysicalDeviceSurfaceCapabilitiesKHR"
where
type VkProcType "vkGetPhysicalDeviceSurfaceCapabilitiesKHR" =
HS_vkGetPhysicalDeviceSurfaceCapabilitiesKHR
vkProcSymbol :: CString
vkProcSymbol = CString
_VkGetPhysicalDeviceSurfaceCapabilitiesKHR
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr :: FunPtr (VkProcType VkGetPhysicalDeviceSurfaceCapabilitiesKHR)
-> VkProcType VkGetPhysicalDeviceSurfaceCapabilitiesKHR
unwrapVkProcPtr = FunPtr (VkProcType VkGetPhysicalDeviceSurfaceCapabilitiesKHR)
-> VkProcType VkGetPhysicalDeviceSurfaceCapabilitiesKHR
PFN_vkGetPhysicalDeviceSurfaceCapabilitiesKHR
-> VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr VkSurfaceCapabilitiesKHR
-> IO VkResult
unwrapVkGetPhysicalDeviceSurfaceCapabilitiesKHR
{-# INLINE unwrapVkProcPtr #-}
pattern VkGetPhysicalDeviceSurfaceFormatsKHR :: CString
pattern $bVkGetPhysicalDeviceSurfaceFormatsKHR :: CString
$mVkGetPhysicalDeviceSurfaceFormatsKHR :: forall r. CString -> (Void# -> r) -> (Void# -> r) -> r
VkGetPhysicalDeviceSurfaceFormatsKHR <-
(is_VkGetPhysicalDeviceSurfaceFormatsKHR -> True)
where VkGetPhysicalDeviceSurfaceFormatsKHR
= CString
_VkGetPhysicalDeviceSurfaceFormatsKHR
{-# INLINE _VkGetPhysicalDeviceSurfaceFormatsKHR #-}
_VkGetPhysicalDeviceSurfaceFormatsKHR :: CString
_VkGetPhysicalDeviceSurfaceFormatsKHR :: CString
_VkGetPhysicalDeviceSurfaceFormatsKHR
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkGetPhysicalDeviceSurfaceFormatsKHR\NUL"#
{-# INLINE is_VkGetPhysicalDeviceSurfaceFormatsKHR #-}
is_VkGetPhysicalDeviceSurfaceFormatsKHR :: CString -> Bool
is_VkGetPhysicalDeviceSurfaceFormatsKHR :: CString -> Bool
is_VkGetPhysicalDeviceSurfaceFormatsKHR
= (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
_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 :: VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr Word32
-> Ptr VkSurfaceFormatKHR
-> IO VkResult
vkGetPhysicalDeviceSurfaceFormatsKHR
= IO
(VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr Word32
-> Ptr VkSurfaceFormatKHR
-> IO VkResult)
-> VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr Word32
-> Ptr VkSurfaceFormatKHR
-> IO VkResult
forall a. IO a -> a
unsafeDupablePerformIO
(VulkanProc VkGetPhysicalDeviceSurfaceFormatsKHR =>
IO (VkProcType VkGetPhysicalDeviceSurfaceFormatsKHR)
forall (proc :: Symbol). VulkanProc proc => IO (VkProcType proc)
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 :: VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr Word32
-> Ptr VkSurfaceFormatKHR
-> IO VkResult
vkGetPhysicalDeviceSurfaceFormatsKHRSafe
= VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr Word32
-> Ptr VkSurfaceFormatKHR
-> IO VkResult
vkGetPhysicalDeviceSurfaceFormatsKHR
{-# INLINE vkGetPhysicalDeviceSurfaceFormatsKHRSafe #-}
#endif
type HS_vkGetPhysicalDeviceSurfaceFormatsKHR =
VkPhysicalDevice
->
VkSurfaceKHR
-> Ptr Word32
-> Ptr VkSurfaceFormatKHR
-> IO VkResult
type PFN_vkGetPhysicalDeviceSurfaceFormatsKHR =
FunPtr HS_vkGetPhysicalDeviceSurfaceFormatsKHR
foreign import ccall "dynamic"
unwrapVkGetPhysicalDeviceSurfaceFormatsKHR ::
PFN_vkGetPhysicalDeviceSurfaceFormatsKHR ->
HS_vkGetPhysicalDeviceSurfaceFormatsKHR
instance VulkanProc "vkGetPhysicalDeviceSurfaceFormatsKHR" where
type VkProcType "vkGetPhysicalDeviceSurfaceFormatsKHR" =
HS_vkGetPhysicalDeviceSurfaceFormatsKHR
vkProcSymbol :: CString
vkProcSymbol = CString
_VkGetPhysicalDeviceSurfaceFormatsKHR
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr :: FunPtr (VkProcType VkGetPhysicalDeviceSurfaceFormatsKHR)
-> VkProcType VkGetPhysicalDeviceSurfaceFormatsKHR
unwrapVkProcPtr = FunPtr (VkProcType VkGetPhysicalDeviceSurfaceFormatsKHR)
-> VkProcType VkGetPhysicalDeviceSurfaceFormatsKHR
PFN_vkGetPhysicalDeviceSurfaceFormatsKHR
-> VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr Word32
-> Ptr VkSurfaceFormatKHR
-> IO VkResult
unwrapVkGetPhysicalDeviceSurfaceFormatsKHR
{-# INLINE unwrapVkProcPtr #-}
pattern VkGetPhysicalDeviceSurfacePresentModesKHR :: CString
pattern $bVkGetPhysicalDeviceSurfacePresentModesKHR :: CString
$mVkGetPhysicalDeviceSurfacePresentModesKHR :: forall r. CString -> (Void# -> r) -> (Void# -> r) -> r
VkGetPhysicalDeviceSurfacePresentModesKHR <-
(is_VkGetPhysicalDeviceSurfacePresentModesKHR -> True)
where VkGetPhysicalDeviceSurfacePresentModesKHR
= CString
_VkGetPhysicalDeviceSurfacePresentModesKHR
{-# INLINE _VkGetPhysicalDeviceSurfacePresentModesKHR #-}
_VkGetPhysicalDeviceSurfacePresentModesKHR :: CString
_VkGetPhysicalDeviceSurfacePresentModesKHR :: CString
_VkGetPhysicalDeviceSurfacePresentModesKHR
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkGetPhysicalDeviceSurfacePresentModesKHR\NUL"#
{-# INLINE is_VkGetPhysicalDeviceSurfacePresentModesKHR #-}
is_VkGetPhysicalDeviceSurfacePresentModesKHR :: CString -> Bool
is_VkGetPhysicalDeviceSurfacePresentModesKHR :: CString -> Bool
is_VkGetPhysicalDeviceSurfacePresentModesKHR
= (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
_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 :: VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr Word32
-> Ptr VkPresentModeKHR
-> IO VkResult
vkGetPhysicalDeviceSurfacePresentModesKHR
= IO
(VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr Word32
-> Ptr VkPresentModeKHR
-> IO VkResult)
-> VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr Word32
-> Ptr VkPresentModeKHR
-> IO VkResult
forall a. IO a -> a
unsafeDupablePerformIO
(VulkanProc VkGetPhysicalDeviceSurfacePresentModesKHR =>
IO (VkProcType VkGetPhysicalDeviceSurfacePresentModesKHR)
forall (proc :: Symbol). VulkanProc proc => IO (VkProcType proc)
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 :: VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr Word32
-> Ptr VkPresentModeKHR
-> IO VkResult
vkGetPhysicalDeviceSurfacePresentModesKHRSafe
= VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr Word32
-> Ptr VkPresentModeKHR
-> IO VkResult
vkGetPhysicalDeviceSurfacePresentModesKHR
{-# INLINE vkGetPhysicalDeviceSurfacePresentModesKHRSafe #-}
#endif
type HS_vkGetPhysicalDeviceSurfacePresentModesKHR =
VkPhysicalDevice
->
VkSurfaceKHR
-> Ptr Word32
-> Ptr VkPresentModeKHR
-> IO VkResult
type PFN_vkGetPhysicalDeviceSurfacePresentModesKHR =
FunPtr HS_vkGetPhysicalDeviceSurfacePresentModesKHR
foreign import ccall "dynamic"
unwrapVkGetPhysicalDeviceSurfacePresentModesKHR ::
PFN_vkGetPhysicalDeviceSurfacePresentModesKHR ->
HS_vkGetPhysicalDeviceSurfacePresentModesKHR
instance VulkanProc "vkGetPhysicalDeviceSurfacePresentModesKHR"
where
type VkProcType "vkGetPhysicalDeviceSurfacePresentModesKHR" =
HS_vkGetPhysicalDeviceSurfacePresentModesKHR
vkProcSymbol :: CString
vkProcSymbol = CString
_VkGetPhysicalDeviceSurfacePresentModesKHR
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr :: FunPtr (VkProcType VkGetPhysicalDeviceSurfacePresentModesKHR)
-> VkProcType VkGetPhysicalDeviceSurfacePresentModesKHR
unwrapVkProcPtr = FunPtr (VkProcType VkGetPhysicalDeviceSurfacePresentModesKHR)
-> VkProcType VkGetPhysicalDeviceSurfacePresentModesKHR
PFN_vkGetPhysicalDeviceSurfacePresentModesKHR
-> VkPhysicalDevice
-> VkSurfaceKHR
-> Ptr Word32
-> Ptr VkPresentModeKHR
-> IO VkResult
unwrapVkGetPhysicalDeviceSurfacePresentModesKHR
{-# INLINE unwrapVkProcPtr #-}
pattern VK_KHR_SURFACE_SPEC_VERSION :: (Num a, Eq a) => a
pattern $bVK_KHR_SURFACE_SPEC_VERSION :: a
$mVK_KHR_SURFACE_SPEC_VERSION :: forall r a. (Num a, Eq a) => a -> (Void# -> r) -> (Void# -> r) -> r
VK_KHR_SURFACE_SPEC_VERSION = 25
type VK_KHR_SURFACE_SPEC_VERSION = 25
pattern VK_KHR_SURFACE_EXTENSION_NAME :: CString
pattern $bVK_KHR_SURFACE_EXTENSION_NAME :: CString
$mVK_KHR_SURFACE_EXTENSION_NAME :: forall r. CString -> (Void# -> r) -> (Void# -> r) -> r
VK_KHR_SURFACE_EXTENSION_NAME <-
(is_VK_KHR_SURFACE_EXTENSION_NAME -> True)
where VK_KHR_SURFACE_EXTENSION_NAME
= CString
_VK_KHR_SURFACE_EXTENSION_NAME
{-# INLINE _VK_KHR_SURFACE_EXTENSION_NAME #-}
_VK_KHR_SURFACE_EXTENSION_NAME :: CString
_VK_KHR_SURFACE_EXTENSION_NAME :: CString
_VK_KHR_SURFACE_EXTENSION_NAME = Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"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 :: CString -> Bool
is_VK_KHR_SURFACE_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_KHR_SURFACE_EXTENSION_NAME
type VK_KHR_SURFACE_EXTENSION_NAME = "VK_KHR_surface"
pattern VK_ERROR_SURFACE_LOST_KHR :: VkResult
pattern $bVK_ERROR_SURFACE_LOST_KHR :: VkResult
$mVK_ERROR_SURFACE_LOST_KHR :: forall r. VkResult -> (Void# -> r) -> (Void# -> r) -> r
VK_ERROR_SURFACE_LOST_KHR = VkResult (-1000000000)
pattern VK_ERROR_NATIVE_WINDOW_IN_USE_KHR :: VkResult
pattern $bVK_ERROR_NATIVE_WINDOW_IN_USE_KHR :: VkResult
$mVK_ERROR_NATIVE_WINDOW_IN_USE_KHR :: forall r. VkResult -> (Void# -> r) -> (Void# -> r) -> r
VK_ERROR_NATIVE_WINDOW_IN_USE_KHR = VkResult (-1000000001)
pattern $bVK_COLORSPACE_SRGB_NONLINEAR_KHR :: VkColorSpaceKHR
$mVK_COLORSPACE_SRGB_NONLINEAR_KHR :: forall r. VkColorSpaceKHR -> (Void# -> r) -> (Void# -> r) -> r
VK_COLORSPACE_SRGB_NONLINEAR_KHR =
VK_COLOR_SPACE_SRGB_NONLINEAR_KHR
pattern VK_OBJECT_TYPE_SURFACE_KHR :: VkObjectType
pattern $bVK_OBJECT_TYPE_SURFACE_KHR :: VkObjectType
$mVK_OBJECT_TYPE_SURFACE_KHR :: forall r. VkObjectType -> (Void# -> r) -> (Void# -> r) -> r
VK_OBJECT_TYPE_SURFACE_KHR = VkObjectType 1000000000