{-# 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
(
module Graphics.Vulkan.Types.BaseTypes,
module Graphics.Vulkan.Types.Struct.Display,
module Graphics.Vulkan.Types.Struct.Extent,
module Graphics.Vulkan.Types.Struct.Offset,
module Graphics.Vulkan.Types.Struct.Present,
module Graphics.Vulkan.Types.Struct.Rect,
module Graphics.Vulkan.Types.Enum.Result,
module Graphics.Vulkan.Types.Enum.StructureType,
VkCreateSharedSwapchainsKHR, pattern VkCreateSharedSwapchainsKHR,
HS_vkCreateSharedSwapchainsKHR, PFN_vkCreateSharedSwapchainsKHR,
vkCreateSharedSwapchainsKHR, vkCreateSharedSwapchainsKHRSafe,
module Graphics.Vulkan.Marshal,
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.SharingMode,
module Graphics.Vulkan.Types.Enum.Surface,
module Graphics.Vulkan.Types.Enum.SwapchainCreateFlagsKHR,
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.SwapchainC,
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.SwapchainCreateFlagsKHR
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
import Graphics.Vulkan.Types.Struct.Extent
import Graphics.Vulkan.Types.Struct.Offset
import Graphics.Vulkan.Types.Struct.Present
import Graphics.Vulkan.Types.Struct.Rect
import Graphics.Vulkan.Types.Struct.SwapchainC
import System.IO.Unsafe (unsafeDupablePerformIO)
pattern VkCreateSharedSwapchainsKHR :: CString
pattern VkCreateSharedSwapchainsKHR <-
(is_VkCreateSharedSwapchainsKHR -> True)
where VkCreateSharedSwapchainsKHR = _VkCreateSharedSwapchainsKHR
{-# INLINE _VkCreateSharedSwapchainsKHR #-}
_VkCreateSharedSwapchainsKHR :: CString
_VkCreateSharedSwapchainsKHR
= Ptr "vkCreateSharedSwapchainsKHR\NUL"#
{-# INLINE is_VkCreateSharedSwapchainsKHR #-}
is_VkCreateSharedSwapchainsKHR :: CString -> Bool
is_VkCreateSharedSwapchainsKHR
= (EQ ==) . cmpCStrings _VkCreateSharedSwapchainsKHR
type VkCreateSharedSwapchainsKHR = "vkCreateSharedSwapchainsKHR"
#ifdef NATIVE_FFI_VK_VERSION_1_0
foreign import ccall unsafe "vkCreateSharedSwapchainsKHR"
vkCreateSharedSwapchainsKHR ::
VkDevice
->
Word32
->
Ptr VkSwapchainCreateInfoKHR
->
Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
#else
vkCreateSharedSwapchainsKHR ::
VkDevice
->
Word32
->
Ptr VkSwapchainCreateInfoKHR
->
Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
vkCreateSharedSwapchainsKHR
= unsafeDupablePerformIO (vkGetProc @VkCreateSharedSwapchainsKHR)
{-# NOINLINE vkCreateSharedSwapchainsKHR #-}
#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
= unsafeDupablePerformIO
(vkGetProcSafe @VkCreateSharedSwapchainsKHR)
{-# NOINLINE vkCreateSharedSwapchainsKHRSafe #-}
#endif
type HS_vkCreateSharedSwapchainsKHR =
VkDevice
->
Word32
->
Ptr VkSwapchainCreateInfoKHR
->
Ptr VkAllocationCallbacks
-> Ptr VkSwapchainKHR
-> IO VkResult
type PFN_vkCreateSharedSwapchainsKHR =
FunPtr HS_vkCreateSharedSwapchainsKHR
foreign import ccall unsafe "dynamic"
unwrapVkCreateSharedSwapchainsKHR ::
PFN_vkCreateSharedSwapchainsKHR -> HS_vkCreateSharedSwapchainsKHR
foreign import ccall safe "dynamic"
unwrapVkCreateSharedSwapchainsKHRSafe ::
PFN_vkCreateSharedSwapchainsKHR -> HS_vkCreateSharedSwapchainsKHR
instance VulkanProc "vkCreateSharedSwapchainsKHR" where
type VkProcType "vkCreateSharedSwapchainsKHR" =
HS_vkCreateSharedSwapchainsKHR
vkProcSymbol = _VkCreateSharedSwapchainsKHR
{-# INLINE vkProcSymbol #-}
unwrapVkProcPtr = unwrapVkCreateSharedSwapchainsKHR
{-# INLINE unwrapVkProcPtr #-}
unwrapVkProcPtrSafe = unwrapVkCreateSharedSwapchainsKHRSafe
{-# INLINE unwrapVkProcPtrSafe #-}
pattern VK_KHR_DISPLAY_SWAPCHAIN_SPEC_VERSION :: (Num a, Eq a) => a
pattern VK_KHR_DISPLAY_SWAPCHAIN_SPEC_VERSION = 9
type VK_KHR_DISPLAY_SWAPCHAIN_SPEC_VERSION = 9
pattern VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME :: CString
pattern VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME <-
(is_VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME -> True)
where VK_KHR_DISPLAY_SWAPCHAIN_EXTENSION_NAME
= _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
= Ptr "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
= (EQ ==) . cmpCStrings _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 VK_STRUCTURE_TYPE_DISPLAY_PRESENT_INFO_KHR =
VkStructureType 1000003000
pattern VK_ERROR_INCOMPATIBLE_DISPLAY_KHR :: VkResult
pattern VK_ERROR_INCOMPATIBLE_DISPLAY_KHR = VkResult (-1000003001)