gpu-vulkan-core 0.1.0.20 → 0.1.0.21

raw patch · 3 files changed

+42/−2 lines, 3 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• gpu-vulkan-core.cabal +2/−1
• src/Gpu/Vulkan/Device/GroupDevice/Core.hsc +38/−0
• src/Gpu/Vulkan/PhysicalDevice/Core.hsc +2/−1

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           gpu-vulkan-core-version:        0.1.0.20+version:        0.1.0.21 synopsis:       Thin wrapper for Vulkan API description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/gpu-vulkan-core#readme> category:       GPU@@ -42,6 +42,7 @@       Gpu.Vulkan.DescriptorSetLayout.Core       Gpu.Vulkan.DescriptorSetLayout.BindingFlags.Core       Gpu.Vulkan.Device.Core+      Gpu.Vulkan.Device.GroupDevice.Core       Gpu.Vulkan.Fence.Core       Gpu.Vulkan.Framebuffer.Core       Gpu.Vulkan.Image.Core

@@ -0,0 +1,38 @@+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE TupleSections #-}+{-# LANGUAGE PatternSynonyms, ViewPatterns #-}+{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}++module Gpu.Vulkan.Device.GroupDevice.Core (+	CreateInfo, pattern CreateInfo,+	createInfoSType, createInfoPNext,+	createInfoPhysicalDeviceCount, createInfoPPhysicalDevices ) where++import Foreign.Storable+import Foreign.C.Struct+import Foreign.C.Struct.TypeSynonyms+import Data.Word++import Gpu.Vulkan.PhysicalDevice.Core qualified as PhysicalDevice++#include <vulkan/vulkan.h>++createInfoType :: #{type VkStructureType}+createInfoType = #{const VK_STRUCTURE_TYPE_DEVICE_GROUP_DEVICE_CREATE_INFO}++struct "CreateInfo" #{size VkDeviceGroupDeviceCreateInfo}+		#{alignment VkDeviceGroupDeviceCreateInfo} [+	("sType", ''(), [| const $ pure () |],+		[| \p _ -> #{poke VkDeviceGroupDeviceCreateInfo, sType}+			p createInfoType |]),+	("pNext", ''PtrVoid,+		[| #{peek VkDeviceGroupDeviceCreateInfo, pNext} |],+		[| #{poke VkDeviceGroupDeviceCreateInfo, pNext} |]),+	("physicalDeviceCount", ''#{type uint32_t},+		[| #{peek VkDeviceGroupDeviceCreateInfo, physicalDeviceCount} |],+		[| #{poke VkDeviceGroupDeviceCreateInfo, physicalDeviceCount} |]),+	("pPhysicalDevices", ''PhysicalDevice.PtrP,+		[| #{peek VkDeviceGroupDeviceCreateInfo, pPhysicalDevices} |],+		[| #{poke VkDeviceGroupDeviceCreateInfo, pPhysicalDevices} |]) ]+	[''Show, ''Storable]

@@ -7,7 +7,7 @@  	-- * ENUMERATE -	enumerate, P,+	enumerate, P, PtrP,  	-- * PROPERTIES @@ -95,6 +95,7 @@  data PTag type P = Ptr PTag+type PtrP = Ptr P  foreign import ccall "vkEnumeratePhysicalDevices" enumerate :: 	Instance.I -> Ptr #{type uint32_t} -> Ptr P ->