vulkan 1.3.0.0 → 1.3.1.0

raw patch · 36 files changed

+81/−1 lines, 36 files

Files

changelog.md +3/−0
src/Graphics/Vulkan/Buffer.hs +2/−0
src/Graphics/Vulkan/BufferView.hs +2/−0
src/Graphics/Vulkan/CommandBuffer.hs +2/−0
src/Graphics/Vulkan/CommandBufferBuilding.hs +2/−0
src/Graphics/Vulkan/CommandPool.hs +2/−0
src/Graphics/Vulkan/Constants.hs +3/−0
src/Graphics/Vulkan/Core.hs +2/−0
src/Graphics/Vulkan/DescriptorSet.hs +2/−0
src/Graphics/Vulkan/Device.hs +2/−0
src/Graphics/Vulkan/Device.hs-boot +2/−0
src/Graphics/Vulkan/DeviceInitialization.hs +2/−0
src/Graphics/Vulkan/Event.hs +2/−0
src/Graphics/Vulkan/ExtensionDiscovery.hs +2/−0
src/Graphics/Vulkan/Fence.hs +2/−0
src/Graphics/Vulkan/HeaderBoilerplate.hs +2/−0
src/Graphics/Vulkan/Image.hs +2/−0
src/Graphics/Vulkan/ImageView.hs +2/−0
src/Graphics/Vulkan/KHR/Surface.hs +2/−0
src/Graphics/Vulkan/LayerDiscovery.hs +2/−0
src/Graphics/Vulkan/Memory.hs +2/−0
src/Graphics/Vulkan/MemoryManagement.hs +2/−0
src/Graphics/Vulkan/OtherTypes.hs +2/−0
src/Graphics/Vulkan/Pass.hs +2/−0
src/Graphics/Vulkan/Pass.hs-boot +2/−0
src/Graphics/Vulkan/Pipeline.hs +2/−0
src/Graphics/Vulkan/PipelineCache.hs +2/−0
src/Graphics/Vulkan/PipelineLayout.hs +2/−0
src/Graphics/Vulkan/Query.hs +2/−0
src/Graphics/Vulkan/Queue.hs +2/−0
src/Graphics/Vulkan/QueueSemaphore.hs +2/−0
src/Graphics/Vulkan/Sampler.hs +2/−0
src/Graphics/Vulkan/Shader.hs +2/−0
src/Graphics/Vulkan/SparseResourceMemoryManagement.hs +2/−0
src/Graphics/Vulkan/Version.hs +10/−0
vulkan.cabal +1/−1

changelog.md view

@@ -1,5 +1,8 @@ # Change Log +## [1.3.1.0] - 2016-02-29+Add version information and generator to Graphics.Vulkan.Version+ ## [1.3.0.0] - 2016-02-29 Add Read and Show instances for bitmasks

src/Graphics/Vulkan/Buffer.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Buffer where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Text.Read.Lex( Lexeme(Ident)@@ -47,6 +48,7 @@                            ) import Foreign.C.Types( CSize(..)                       )+ -- ** vkCreateBuffer foreign import ccall "vkCreateBuffer" vkCreateBuffer ::    VkDevice ->

src/Graphics/Vulkan/BufferView.hs view

@@ -2,6 +2,7 @@ {-# LANGUAGE Strict #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.BufferView where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Graphics.Vulkan.Buffer( VkBuffer(..)@@ -33,6 +34,7 @@                            ) import Foreign.C.Types( CSize(..)                       )+ -- ** vkCreateBufferView foreign import ccall "vkCreateBufferView" vkCreateBufferView ::    VkDevice ->

src/Graphics/Vulkan/CommandBuffer.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.CommandBuffer where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Graphics.Vulkan.Pass( VkFramebuffer(..)@@ -47,6 +48,7 @@                            , VkFlags(..)                            , VkStructureType(..)                            )+ -- ** VkCommandBufferLevel  newtype VkCommandBufferLevel = VkCommandBufferLevel Int32

src/Graphics/Vulkan/CommandBufferBuilding.hs view

@@ -4,6 +4,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.CommandBufferBuilding where+ import Data.Vector.Storable.Sized( Vector                                  ) import Graphics.Vulkan.Buffer( VkBuffer(..)@@ -90,6 +91,7 @@ import Foreign.C.Types( CFloat                       , CFloat(..)                       )+ -- ** vkCmdPushConstants foreign import ccall "vkCmdPushConstants" vkCmdPushConstants ::    VkCommandBuffer ->

src/Graphics/Vulkan/CommandPool.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.CommandPool where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Text.Read.Lex( Lexeme(Ident)@@ -45,6 +46,7 @@                            ) import Foreign.C.Types( CSize(..)                       )+  data VkCommandPoolCreateInfo =   VkCommandPoolCreateInfo{ vkSType :: VkStructureType

src/Graphics/Vulkan/Constants.hs view

@@ -2,6 +2,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Constants where+ import Text.Read.Lex( Lexeme(Ident)                     ) import GHC.Read( expectP@@ -22,6 +23,7 @@                                       , step                                       ) + pattern VK_SUBPASS_EXTERNAL = 0xffffffff :: Word32  pattern VK_UUID_SIZE = 16@@ -78,6 +80,7 @@  pattern VK_MAX_DESCRIPTION_SIZE = 256 type VK_MAX_DESCRIPTION_SIZE = 256+vkNullHandle  = 0  pattern VK_TRUE = 1 type VK_TRUE = 1

src/Graphics/Vulkan/Core.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Core where+ import Text.Read.Lex( Lexeme(Ident)                     ) import GHC.Read( expectP@@ -27,6 +28,7 @@ import Foreign.C.Types( CFloat                       , CFloat(..)                       )+ newtype VkDeviceSize = VkDeviceSize Word64   deriving (Eq, Storable)

src/Graphics/Vulkan/DescriptorSet.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.DescriptorSet where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Graphics.Vulkan.Buffer( VkBuffer(..)@@ -61,6 +62,7 @@                            ) import Foreign.C.Types( CSize(..)                       )+ -- ** vkUpdateDescriptorSets foreign import ccall "vkUpdateDescriptorSets" vkUpdateDescriptorSets ::    VkDevice ->

src/Graphics/Vulkan/Device.hs view

@@ -2,6 +2,7 @@ {-# LANGUAGE Strict #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Device where+ import Data.Word( Word32                 ) import Foreign.Ptr( Ptr@@ -30,6 +31,7 @@                       , CChar                       , CSize(..)                       )+ -- ** vkCreateDevice foreign import ccall "vkCreateDevice" vkCreateDevice ::    VkPhysicalDevice ->

src/Graphics/Vulkan/Device.hs-boot view

@@ -1,7 +1,9 @@  module Graphics.Vulkan.Device where+ import Foreign.Ptr( Ptr                   )+ data VkDevice_T type VkDevice = Ptr VkDevice_T

src/Graphics/Vulkan/DeviceInitialization.hs view

@@ -4,6 +4,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.DeviceInitialization where+ import Data.Vector.Storable.Sized( Vector                                  ) import Graphics.Vulkan.Device( VkPhysicalDeviceFeatures(..)@@ -77,6 +78,7 @@                       , CChar                       , CSize(..)                       )+ -- ** VkPhysicalDeviceType  newtype VkPhysicalDeviceType = VkPhysicalDeviceType Int32

src/Graphics/Vulkan/Event.hs view

@@ -2,6 +2,7 @@ {-# LANGUAGE Strict #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Event where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Data.Word( Word64@@ -29,6 +30,7 @@                            ) import Foreign.C.Types( CSize(..)                       )+ -- ** vkDestroyEvent foreign import ccall "vkDestroyEvent" vkDestroyEvent ::    VkDevice -> VkEvent -> Ptr VkAllocationCallbacks -> IO ()

src/Graphics/Vulkan/ExtensionDiscovery.hs view

@@ -2,6 +2,7 @@ {-# LANGUAGE DataKinds #-} {-# LANGUAGE Strict #-} module Graphics.Vulkan.ExtensionDiscovery where+ import Data.Vector.Storable.Sized( Vector                                  ) import Graphics.Vulkan.Device( VkPhysicalDevice(..)@@ -19,6 +20,7 @@                            ) import Foreign.C.Types( CChar                       )+  data VkExtensionProperties =   VkExtensionProperties{ vkExtensionName :: Vector VK_MAX_EXTENSION_NAME_SIZE CChar

src/Graphics/Vulkan/Fence.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Fence where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Text.Read.Lex( Lexeme(Ident)@@ -46,6 +47,7 @@                            ) import Foreign.C.Types( CSize(..)                       )+  data VkFenceCreateInfo =   VkFenceCreateInfo{ vkSType :: VkStructureType

src/Graphics/Vulkan/HeaderBoilerplate.hs view

@@ -2,3 +2,5 @@ module Graphics.Vulkan.HeaderBoilerplate where  ++

src/Graphics/Vulkan/Image.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Image where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Text.Read.Lex( Lexeme(Ident)@@ -53,6 +54,7 @@                            ) import Foreign.C.Types( CSize(..)                       )+ -- ** vkCreateImage foreign import ccall "vkCreateImage" vkCreateImage ::    VkDevice ->

src/Graphics/Vulkan/ImageView.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.ImageView where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Text.Read.Lex( Lexeme(Ident)@@ -50,6 +51,7 @@                            ) import Foreign.C.Types( CSize(..)                       )+  data VkImageViewCreateInfo =   VkImageViewCreateInfo{ vkSType :: VkStructureType

src/Graphics/Vulkan/KHR/Surface.hs view

@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.KHR.Surface where+ import Text.Read.Lex( Lexeme(Ident)                     ) import GHC.Read( expectP@@ -22,6 +23,7 @@                                       ) import Graphics.Vulkan.Core( VkFlags(..)                            )+ -- ** VkCompositeAlphaFlagsKHR -- | Opaque flag newtype VkCompositeAlphaFlagsKHR = VkCompositeAlphaFlagsKHR VkFlags

src/Graphics/Vulkan/LayerDiscovery.hs view

@@ -2,6 +2,7 @@ {-# LANGUAGE DataKinds #-} {-# LANGUAGE Strict #-} module Graphics.Vulkan.LayerDiscovery where+ import Data.Vector.Storable.Sized( Vector                                  ) import Graphics.Vulkan.Device( VkPhysicalDevice(..)@@ -20,6 +21,7 @@                            ) import Foreign.C.Types( CChar                       )+  data VkLayerProperties =   VkLayerProperties{ vkLayerName :: Vector VK_MAX_EXTENSION_NAME_SIZE CChar

src/Graphics/Vulkan/Memory.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Memory where+ import {-# SOURCE #-} Graphics.Vulkan.Device( VkDevice(..)                                             ) import Text.Read.Lex( Lexeme(Ident)@@ -38,6 +39,7 @@ import Foreign.C.Types( CSize                       , CSize(..)                       )+ newtype VkDeviceMemory = VkDeviceMemory Word64   deriving (Eq, Storable)

src/Graphics/Vulkan/MemoryManagement.hs view

@@ -1,6 +1,7 @@ {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE Strict #-} module Graphics.Vulkan.MemoryManagement where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Graphics.Vulkan.Buffer( VkBuffer(..)@@ -22,6 +23,7 @@ import Graphics.Vulkan.Core( VkResult(..)                            , VkDeviceSize(..)                            )+ -- ** vkGetImageMemoryRequirements foreign import ccall "vkGetImageMemoryRequirements" vkGetImageMemoryRequirements ::    VkDevice -> VkImage -> Ptr VkMemoryRequirements -> IO ()

src/Graphics/Vulkan/OtherTypes.hs view

@@ -1,6 +1,7 @@ {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE Strict #-} module Graphics.Vulkan.OtherTypes where+ import Graphics.Vulkan.Buffer( VkBuffer(..)                              ) import Graphics.Vulkan.Pass( VkAccessFlags(..)@@ -28,6 +29,7 @@                            , VkFlags(..)                            , VkStructureType(..)                            )+  data VkBufferMemoryBarrier =   VkBufferMemoryBarrier{ vkSType :: VkStructureType

src/Graphics/Vulkan/Pass.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Pass where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Text.Read.Lex( Lexeme(Ident)@@ -59,6 +60,7 @@                            ) import Foreign.C.Types( CSize(..)                       )+  data VkSubpassDependency =   VkSubpassDependency{ vkSrcSubpass :: Word32

src/Graphics/Vulkan/Pass.hs-boot view

@@ -1,9 +1,11 @@ {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Pass where+ import Data.Word( Word64                 ) import Foreign.Storable( Storable(..)                        )+ newtype VkRenderPass = VkRenderPass Word64    instance Eq VkRenderPass

src/Graphics/Vulkan/Pipeline.hs view

@@ -4,6 +4,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Pipeline where+ import Data.Vector.Storable.Sized( Vector                                  ) import Graphics.Vulkan.Device( VkDevice(..)@@ -72,6 +73,7 @@                       , CChar                       , CSize(..)                       )+  data VkPipelineTessellationStateCreateInfo =   VkPipelineTessellationStateCreateInfo{ vkSType :: VkStructureType

src/Graphics/Vulkan/PipelineCache.hs view

@@ -2,6 +2,7 @@ {-# LANGUAGE Strict #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.PipelineCache where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Data.Word( Word64@@ -30,6 +31,7 @@ import Foreign.C.Types( CSize                       , CSize(..)                       )+ -- ** vkCreatePipelineCache foreign import ccall "vkCreatePipelineCache" vkCreatePipelineCache ::    VkDevice ->

src/Graphics/Vulkan/PipelineLayout.hs view

@@ -2,6 +2,7 @@ {-# LANGUAGE Strict #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.PipelineLayout where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Data.Word( Word64@@ -34,6 +35,7 @@                            ) import Foreign.C.Types( CSize(..)                       )+ -- ** VkPipelineLayoutCreateFlags -- | Opaque flag newtype VkPipelineLayoutCreateFlags = VkPipelineLayoutCreateFlags VkFlags

src/Graphics/Vulkan/Query.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Query where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Text.Read.Lex( Lexeme(Ident)@@ -49,6 +50,7 @@ import Foreign.C.Types( CSize                       , CSize(..)                       )+ -- ** vkGetQueryPoolResults foreign import ccall "vkGetQueryPoolResults" vkGetQueryPoolResults ::    VkDevice ->

src/Graphics/Vulkan/Queue.hs view

@@ -1,6 +1,7 @@ {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE Strict #-} module Graphics.Vulkan.Queue where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Graphics.Vulkan.Pipeline( VkPipelineStageFlagBits(..)@@ -26,6 +27,7 @@                            , VkFlags(..)                            , VkStructureType(..)                            )+ data VkQueue_T type VkQueue = Ptr VkQueue_T

src/Graphics/Vulkan/QueueSemaphore.hs view

@@ -2,6 +2,7 @@ {-# LANGUAGE Strict #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.QueueSemaphore where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Data.Word( Word64@@ -29,6 +30,7 @@                            ) import Foreign.C.Types( CSize(..)                       )+ -- ** VkSemaphoreCreateFlags -- | Opaque flag newtype VkSemaphoreCreateFlags = VkSemaphoreCreateFlags VkFlags

src/Graphics/Vulkan/Sampler.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Sampler where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Text.Read.Lex( Lexeme(Ident)@@ -50,6 +51,7 @@                       , CFloat(..)                       , CSize(..)                       )+ -- ** VkSamplerAddressMode  newtype VkSamplerAddressMode = VkSamplerAddressMode Int32

src/Graphics/Vulkan/Shader.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.Shader where+ import Graphics.Vulkan.Device( VkDevice(..)                              ) import Text.Read.Lex( Lexeme(Ident)@@ -46,6 +47,7 @@ import Foreign.C.Types( CSize                       , CSize(..)                       )+  data VkShaderModuleCreateInfo =   VkShaderModuleCreateInfo{ vkSType :: VkStructureType

src/Graphics/Vulkan/SparseResourceMemoryManagement.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Graphics.Vulkan.SparseResourceMemoryManagement where+ import Graphics.Vulkan.Device( VkPhysicalDevice(..)                              , VkDevice(..)                              )@@ -62,6 +63,7 @@                            , VkOffset3D(..)                            , VkStructureType(..)                            )+  data VkSparseImageMemoryRequirements =   VkSparseImageMemoryRequirements{ vkFormatProperties :: VkSparseImageFormatProperties

src/Graphics/Vulkan/Version.hs view

@@ -1,4 +1,14 @@  module Graphics.Vulkan.Version where +import Data.Bits( shiftR+                , shiftL+                , (.|.)+                , (.&.)+                ) +vkApiVersion  = vkMakeVersion 1 0 3+vkVersionMinor version = (.&.) (shiftR version 12) 1023+vkVersionPatch version = (.&.) version 4095+vkMakeVersion major minor patch = (.|.) ((.|.) (shiftL major 22) (shiftL minor 12)) patch+vkVersionMajor version = shiftR version 22

vulkan.cabal view

@@ -1,5 +1,5 @@ name:                vulkan-version:             1.3.0.0+version:             1.3.1.0 synopsis:            Bindings to the Vulkan graphics API. description:         Please see readme.md homepage:            http://github.com/expipiplus1/vulkan#readme