{-# 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_display_swapchain
(AHardwareBuffer(), ANativeWindow(), CAMetalLayer(), VkBool32(..),
VkDeviceAddress(..), VkDeviceSize(..), VkFlags(..),
VkSampleMask(..), VkDisplayPresentInfoKHR, VkExtent2D, VkOffset2D,
VkPresentInfoKHR, VkRect2D, VkResult(..), VkStructureType(..),
VkCreateSharedSwapchainsKHR, pattern VkCreateSharedSwapchainsKHR,
HS_vkCreateSharedSwapchainsKHR, PFN_vkCreateSharedSwapchainsKHR,
vkCreateSharedSwapchainsKHR, vkCreateSharedSwapchainsKHRUnsafe,
vkCreateSharedSwapchainsKHRSafe, module Graphics.Vulkan.Marshal,
pattern VK_COLORSPACE_SRGB_NONLINEAR_KHR,
VkColorComponentBitmask(..), VkColorSpaceKHR(..),
VkColorComponentFlagBits(), VkColorComponentFlags(),
VkCompositeAlphaBitmaskKHR(..), VkCompositeAlphaFlagBitsKHR(),
VkCompositeAlphaFlagsKHR(), VkFormat(..),
VkFormatFeatureBitmask(..), VkFormatFeatureFlagBits(),
VkFormatFeatureFlags(), VkImageAspectBitmask(..),
VkImageCreateBitmask(..), VkImageLayout(..), VkImageTiling(..),
VkImageType(..), VkImageUsageBitmask(..), VkImageViewType(..),
VkImageAspectFlagBits(), VkImageAspectFlags(),
VkImageCreateFlagBits(), VkImageCreateFlags(),
VkImageUsageFlagBits(), VkImageUsageFlags(),
VkImageViewCreateBitmask(..), VkImageViewCreateFlagBits(),
VkImageViewCreateFlags(), VkInternalAllocationType(..),
VkPresentModeKHR(..), VkSharingMode(..),
VkSurfaceCounterBitmaskEXT(..), VkSurfaceTransformBitmaskKHR(..),
VkSurfaceCounterFlagBitsEXT(), VkSurfaceCounterFlagsEXT(),
VkSurfaceTransformFlagBitsKHR(), VkSurfaceTransformFlagsKHR(),
VkSwapchainImageUsageBitmaskANDROID(..),
VkSwapchainCreateBitmaskKHR(..), VkSwapchainCreateFlagBitsKHR(),
VkSwapchainCreateFlagsKHR(),
VkSwapchainImageUsageFlagBitsANDROID(),
VkSwapchainImageUsageFlagsANDROID(), VkSystemAllocationScope(..),
newVkAllocationFunction, newVkDebugReportCallbackEXT,
newVkDebugUtilsMessengerCallbackEXT, newVkFreeFunction,
newVkInternalAllocationNotification, newVkInternalFreeNotification,
newVkReallocationFunction, newVkVoidFunction,
unwrapVkAllocationFunction, unwrapVkDebugReportCallbackEXT,
unwrapVkDebugUtilsMessengerCallbackEXT, unwrapVkFreeFunction,
unwrapVkInternalAllocationNotification,
unwrapVkInternalFreeNotification, unwrapVkReallocationFunction,
unwrapVkVoidFunction, HS_vkAllocationFunction,
HS_vkDebugReportCallbackEXT, HS_vkDebugUtilsMessengerCallbackEXT,
HS_vkFreeFunction, HS_vkInternalAllocationNotification,
HS_vkInternalFreeNotification, HS_vkReallocationFunction,
HS_vkVoidFunction, PFN_vkAllocationFunction,
PFN_vkDebugReportCallbackEXT, PFN_vkDebugUtilsMessengerCallbackEXT,
PFN_vkFreeFunction, PFN_vkInternalAllocationNotification,
PFN_vkInternalFreeNotification, PFN_vkReallocationFunction,
PFN_vkVoidFunction, VkAccelerationStructureKHR,
VkAccelerationStructureKHR_T(), VkAccelerationStructureNV,
VkAccelerationStructureNV_T(), VkBuffer, VkBufferView,
VkBufferView_T(), VkBuffer_T(), VkCommandBuffer,
VkCommandBuffer_T(), VkCommandPool, VkCommandPool_T(),
VkDebugReportCallbackEXT, VkDebugReportCallbackEXT_T(),
VkDebugUtilsMessengerEXT, VkDebugUtilsMessengerEXT_T(),
VkDeferredOperationKHR, VkDeferredOperationKHR_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(),
VkIndirectCommandsLayoutNV, VkIndirectCommandsLayoutNV_T(),
VkInstance, VkInstance_T(), VkPerformanceConfigurationINTEL,
VkPerformanceConfigurationINTEL_T(), VkPhysicalDevice,
VkPhysicalDevice_T(), VkPipeline, VkPipelineCache,
VkPipelineCache_T(), VkPipelineLayout, VkPipelineLayout_T(),
VkPipeline_T(), VkPrivateDataSlotEXT, VkPrivateDataSlotEXT_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(),
VkAllocationCallbacks, VkExtent3D, VkSwapchainCounterCreateInfoEXT,
VkSwapchainCreateInfoKHR, VkSwapchainDisplayNativeHdrCreateInfoAMD,
VK_KHR_DISPLAY_SWAPCHAIN_SPEC_VERSION,
pattern VK_KHR_DISPLAY_SWAPCHAIN_SPEC_VERSION,
VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME,
pattern VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME,
pattern VK_STRUCTURE_TYPE_DISPLAY_PRESENT_INFO_KHR,
pattern VK_ERROR_INCOMPATIBLE_DISPLAY_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.PresentModeKHR
import Graphics.Vulkan.Types.Enum.Result
import Graphics.Vulkan.Types.Enum.SharingMode
import Graphics.Vulkan.Types.Enum.StructureType
import Graphics.Vulkan.Types.Enum.Surface
import Graphics.Vulkan.Types.Enum.Swapchain
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.Display (VkDisplayPresentInfoKHR)
import Graphics.Vulkan.Types.Struct.Extent
import Graphics.Vulkan.Types.Struct.Offset (VkOffset2D)
import Graphics.Vulkan.Types.Struct.Present (VkPresentInfoKHR)
import Graphics.Vulkan.Types.Struct.Rect (VkRect2D)
import Graphics.Vulkan.Types.Struct.Swapchain
import System.IO.Unsafe (unsafeDupablePerformIO)
pattern VkCreateSharedSwapchainsKHR :: CString
pattern $bVkCreateSharedSwapchainsKHR :: CString
$mVkCreateSharedSwapchainsKHR :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VkCreateSharedSwapchainsKHR <-
(is_VkCreateSharedSwapchainsKHR -> True)
where
VkCreateSharedSwapchainsKHR = CString
_VkCreateSharedSwapchainsKHR
{-# INLINE _VkCreateSharedSwapchainsKHR #-}
_VkCreateSharedSwapchainsKHR :: CString
_VkCreateSharedSwapchainsKHR :: CString
_VkCreateSharedSwapchainsKHR
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"vkCreateSharedSwapchainsKHR\NUL"#
{-# INLINE is_VkCreateSharedSwapchainsKHR #-}
is_VkCreateSharedSwapchainsKHR :: CString -> Bool
is_VkCreateSharedSwapchainsKHR :: CString -> Bool
is_VkCreateSharedSwapchainsKHR
= (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
_VkCreateSharedSwapchainsKHR
type VkCreateSharedSwapchainsKHR = "vkCreateSharedSwapchainsKHR"
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall unsafe "vkCreateSharedSwapchainsKHR"
vkCreateSharedSwapchainsKHRUnsafe ::
VkDevice
->
Word32
->
Ptr VkSwapchainCreateInfoKHR
->
Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
#else
vkCreateSharedSwapchainsKHRUnsafe ::
VkDevice
->
Word32
->
Ptr VkSwapchainCreateInfoKHR
->
Ptr VkAllocationCallbacks
->
Ptr VkSwapchainKHR
-> IO VkResult
vkCreateSharedSwapchainsKHRUnsafe :: VkDevice
-> Word32
-> Ptr VkSwapchainCreateInfoKHR
-> Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
vkCreateSharedSwapchainsKHRUnsafe
= IO
(VkDevice
-> Word32
-> Ptr VkSwapchainCreateInfoKHR
-> Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult)
-> VkDevice
-> Word32
-> Ptr VkSwapchainCreateInfoKHR
-> Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
forall a. IO a -> a
unsafeDupablePerformIO
(forall (proc :: Symbol). VulkanProc proc => IO (VkProcType proc)
vkGetProcUnsafe @VkCreateSharedSwapchainsKHR)
{-# NOINLINE vkCreateSharedSwapchainsKHRUnsafe #-}
#endif
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall safe "vkCreateSharedSwapchainsKHR"
vkCreateSharedSwapchainsKHRSafe ::
VkDevice
->
Word32
->
Ptr VkSwapchainCreateInfoKHR
->
Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
#else
vkCreateSharedSwapchainsKHRSafe ::
VkDevice
->
Word32
->
Ptr VkSwapchainCreateInfoKHR
->
Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
vkCreateSharedSwapchainsKHRSafe :: VkDevice
-> Word32
-> Ptr VkSwapchainCreateInfoKHR
-> Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
vkCreateSharedSwapchainsKHRSafe
= IO
(VkDevice
-> Word32
-> Ptr VkSwapchainCreateInfoKHR
-> Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult)
-> VkDevice
-> Word32
-> Ptr VkSwapchainCreateInfoKHR
-> Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
forall a. IO a -> a
unsafeDupablePerformIO
(forall (proc :: Symbol). VulkanProc proc => IO (VkProcType proc)
vkGetProcSafe @VkCreateSharedSwapchainsKHR)
{-# NOINLINE vkCreateSharedSwapchainsKHRSafe #-}
#endif
vkCreateSharedSwapchainsKHR ::
VkDevice
->
Word32
->
Ptr VkSwapchainCreateInfoKHR
->
Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
#ifdef UNSAFE_FFI_DEFAULT
vkCreateSharedSwapchainsKHR = vkCreateSharedSwapchainsKHRUnsafe
#else
vkCreateSharedSwapchainsKHR :: VkDevice
-> Word32
-> Ptr VkSwapchainCreateInfoKHR
-> Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
vkCreateSharedSwapchainsKHR = VkDevice
-> Word32
-> Ptr VkSwapchainCreateInfoKHR
-> Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
vkCreateSharedSwapchainsKHRSafe
#endif
{-# INLINE vkCreateSharedSwapchainsKHR #-}
type HS_vkCreateSharedSwapchainsKHR =
VkDevice
->
Word32
->
Ptr VkSwapchainCreateInfoKHR
->
Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
type PFN_vkCreateSharedSwapchainsKHR =
FunPtr HS_vkCreateSharedSwapchainsKHR
foreign import ccall unsafe "dynamic"
unwrapVkCreateSharedSwapchainsKHRUnsafe ::
PFN_vkCreateSharedSwapchainsKHR -> HS_vkCreateSharedSwapchainsKHR
foreign import ccall safe "dynamic"
unwrapVkCreateSharedSwapchainsKHRSafe ::
PFN_vkCreateSharedSwapchainsKHR -> HS_vkCreateSharedSwapchainsKHR
instance VulkanProc "vkCreateSharedSwapchainsKHR" where
type VkProcType "vkCreateSharedSwapchainsKHR" =
HS_vkCreateSharedSwapchainsKHR
vkProcSymbol :: CString
vkProcSymbol = CString
_VkCreateSharedSwapchainsKHR
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtrUnsafe :: FunPtr (VkProcType VkCreateSharedSwapchainsKHR)
-> VkProcType VkCreateSharedSwapchainsKHR
unwrapVkProcPtrUnsafe = FunPtr (VkProcType VkCreateSharedSwapchainsKHR)
-> VkProcType VkCreateSharedSwapchainsKHR
PFN_vkCreateSharedSwapchainsKHR
-> VkDevice
-> Word32
-> Ptr VkSwapchainCreateInfoKHR
-> Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
unwrapVkCreateSharedSwapchainsKHRUnsafe
{-# INLINE unwrapVkProcPtrUnsafe #-}
unwrapVkProcPtrSafe :: FunPtr (VkProcType VkCreateSharedSwapchainsKHR)
-> VkProcType VkCreateSharedSwapchainsKHR
unwrapVkProcPtrSafe = FunPtr (VkProcType VkCreateSharedSwapchainsKHR)
-> VkProcType VkCreateSharedSwapchainsKHR
PFN_vkCreateSharedSwapchainsKHR
-> VkDevice
-> Word32
-> Ptr VkSwapchainCreateInfoKHR
-> Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
unwrapVkCreateSharedSwapchainsKHRSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VK_KHR_DISPLAY_SWAPCHAIN_SPEC_VERSION :: (Num a, Eq a) => a
pattern $bVK_KHR_DISPLAY_SWAPCHAIN_SPEC_VERSION :: forall a. (Num a, Eq a) => a
$mVK_KHR_DISPLAY_SWAPCHAIN_SPEC_VERSION :: forall {r} {a}.
(Num a, Eq a) =>
a -> (Void# -> r) -> (Void# -> r) -> r
VK_KHR_DISPLAY_SWAPCHAIN_SPEC_VERSION = 10
type VK_KHR_DISPLAY_SWAPCHAIN_SPEC_VERSION = 10
pattern VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME :: CString
pattern $bVK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME :: CString
$mVK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME :: forall {r}. CString -> (Void# -> r) -> (Void# -> r) -> r
VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME <-
(is_VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME -> True)
where
VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME
= CString
_VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME
{-# INLINE _VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME #-}
_VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME :: CString
_VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME :: CString
_VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME
= Addr# -> CString
forall a. Addr# -> Ptr a
Ptr Addr#
"VK_KHR_display_swapchain\NUL"#
{-# INLINE is_VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME #-}
is_VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME :: CString -> Bool
is_VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME :: CString -> Bool
is_VK_KHR_DISPLAY_SWAPCHAIN_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_DISPLAY_SWAPCHAIN_EXTENSION_NAME
type VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME =
"VK_KHR_display_swapchain"
pattern VK_STRUCTURE_TYPE_DISPLAY_PRESENT_INFO_KHR ::
VkStructureType
pattern $bVK_STRUCTURE_TYPE_DISPLAY_PRESENT_INFO_KHR :: VkStructureType
$mVK_STRUCTURE_TYPE_DISPLAY_PRESENT_INFO_KHR :: forall {r}. VkStructureType -> (Void# -> r) -> (Void# -> r) -> r
VK_STRUCTURE_TYPE_DISPLAY_PRESENT_INFO_KHR =
VkStructureType 1000003000
pattern VK_ERROR_INCOMPATIBLE_DISPLAY_KHR :: VkResult
pattern $bVK_ERROR_INCOMPATIBLE_DISPLAY_KHR :: VkResult
$mVK_ERROR_INCOMPATIBLE_DISPLAY_KHR :: forall {r}. VkResult -> (Void# -> r) -> (Void# -> r) -> r
VK_ERROR_INCOMPATIBLE_DISPLAY_KHR = VkResult (-1000003001)