{-# OPTIONS_HADDOCK not-home#-} {-# LANGUAGE DataKinds #-} {-# LANGUAGE MagicHash #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE Strict #-} {-# LANGUAGE ViewPatterns #-} module Graphics.Vulkan.Ext.VK_EXT_queue_family_foreign (-- * Vulkan extension: @VK_EXT_queue_family_foreign@ -- | -- -- supported: @vulkan@ -- -- contact: @Chad Versace @chadversary@ -- -- author: @EXT@ -- -- type: @device@ -- -- Extension number: @127@ -- -- Required extensions: 'VK_KHR_external_memory'. -- -- ** Required extensions: 'VK_KHR_external_memory'. VK_EXT_QUEUE_FAMILY_FOREIGN_SPEC_VERSION, pattern VK_EXT_QUEUE_FAMILY_FOREIGN_SPEC_VERSION, VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME, pattern VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME, pattern VK_QUEUE_FAMILY_FOREIGN_EXT) where import GHC.Ptr (Ptr (..)) import Graphics.Vulkan.Constants (pattern VK_QUEUE_FAMILY_FOREIGN_EXT) import Graphics.Vulkan.Marshal pattern VK_EXT_QUEUE_FAMILY_FOREIGN_SPEC_VERSION :: (Num a, Eq a) => a pattern VK_EXT_QUEUE_FAMILY_FOREIGN_SPEC_VERSION = 1 type VK_EXT_QUEUE_FAMILY_FOREIGN_SPEC_VERSION = 1 pattern VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME :: CString pattern VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME <- (is_VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME -> True) where VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME = _VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME {-# INLINE _VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME #-} _VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME :: CString _VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME = Ptr "VK_EXT_queue_family_foreign\NUL"# {-# INLINE is_VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME #-} is_VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME :: CString -> Bool is_VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME = (EQ ==) . cmpCStrings _VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME type VK_EXT_QUEUE_FAMILY_FOREIGN_EXTENSION_NAME = "VK_EXT_queue_family_foreign"