Core.hsc

{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Gpu.Vulkan.Cmd.Core (

	-- * BEGIN AND END RENDER PASS

	beginRenderPass, endRenderPass,

	-- * DRAW AND DISPATCH

	draw, drawIndexed, dispatch,

	-- * BIND

	bindPipeline, bindVertexBuffers, bindIndexBuffer,
	bindDescriptorSets,
	pushConstants,

	-- * COPY BUFFER AND IMAGE

	copyBuffer, copyBufferToImage, copyImageToBuffer, blitImage,

	-- * PIPELINE BARRIER

	pipelineBarrier,

	-- * QUERY

	beginQuery, endQuery, resetQueryPool,
	writeTimestamp,

	) where

import Foreign.Ptr
import Data.Word
import Data.Int

import qualified Gpu.Vulkan.RenderPass.Core as RenderPass
import qualified Gpu.Vulkan.Pipeline.Core as Pipeline
import qualified Gpu.Vulkan.CommandBuffer.Core as CommandBuffer
import qualified Gpu.Vulkan.Buffer.Core as Buffer
import qualified Gpu.Vulkan.PipelineLayout.Core as Pipeline.Layout
import qualified Gpu.Vulkan.DescriptorSet.Core as DscSet
import qualified Gpu.Vulkan.Memory.Core as Memory
import qualified Gpu.Vulkan.Image.Core as Image

import Gpu.Vulkan.QueryPool.Core as QueryPool

#include <vulkan/vulkan.h>

foreign import ccall "vkCmdBeginRenderPass" beginRenderPass ::
	CommandBuffer.C -> Ptr RenderPass.BeginInfo ->
	#{type VkSubpassContents} -> IO ()

foreign import ccall "vkCmdBindPipeline" bindPipeline ::
	CommandBuffer.C -> #{type VkPipelineBindPoint} -> Pipeline.P -> IO ()

foreign import ccall "vkCmdDraw" draw ::
	CommandBuffer.C -> #{type uint32_t} -> #{type uint32_t} ->
	#{type uint32_t} -> #{type uint32_t} -> IO ()

foreign import ccall "vkCmdDrawIndexed" drawIndexed ::
	CommandBuffer.C -> #{type uint32_t} -> #{type uint32_t} ->
	#{type uint32_t} -> #{type int32_t} -> #{type uint32_t} -> IO ()

foreign import ccall "vkCmdEndRenderPass" endRenderPass ::
	CommandBuffer.C -> IO ()

foreign import ccall "vkCmdBindVertexBuffers" bindVertexBuffers ::
	CommandBuffer.C -> #{type uint32_t} -> #{type uint32_t} ->
	Ptr Buffer.B -> Ptr #{type VkDeviceSize} -> IO ()

foreign import ccall "vkCmdCopyBuffer" copyBuffer ::
	CommandBuffer.C -> Buffer.B -> Buffer.B -> #{type uint32_t} ->
	Ptr Buffer.Copy -> IO ()

foreign import ccall "vkCmdBindIndexBuffer" bindIndexBuffer ::
	CommandBuffer.C -> Buffer.B -> #{type VkDeviceSize} ->
	#{type VkIndexType} -> IO ()

foreign import ccall "vkCmdBindDescriptorSets" bindDescriptorSets ::
	CommandBuffer.C -> #{type VkPipelineBindPoint} -> Pipeline.Layout.P ->
	#{type uint32_t} -> #{type uint32_t} -> Ptr DscSet.D ->
	#{type uint32_t} -> Ptr #{type uint32_t} -> IO ()

foreign import ccall "vkCmdPipelineBarrier" pipelineBarrier ::
	CommandBuffer.C ->
	#{type VkPipelineStageFlags} -> #{type VkPipelineStageFlags} ->
	#{type VkDependencyFlags} ->
	#{type uint32_t} -> Ptr Memory.Barrier ->
	#{type uint32_t} -> Ptr Buffer.MemoryBarrier ->
	#{type uint32_t} -> Ptr Image.MemoryBarrier -> IO ()

foreign import ccall "vkCmdCopyBufferToImage" copyBufferToImage ::
	CommandBuffer.C -> Buffer.B -> Image.I -> #{type VkImageLayout} ->
	#{type uint32_t} -> Ptr Buffer.ImageCopy -> IO ()

foreign import ccall "vkCmdCopyImageToBuffer" copyImageToBuffer ::
	CommandBuffer.C -> Image.I -> #{type VkImageLayout} -> Buffer.B ->
	#{type uint32_t} -> Ptr Buffer.ImageCopy -> IO ()

foreign import ccall "vkCmdBlitImage" blitImage ::
	CommandBuffer.C ->
	Image.I -> #{type VkImageLayout} -> Image.I -> #{type VkImageLayout} ->
	#{type uint32_t} -> Ptr Image.Blit -> #{type VkFilter} -> IO ()

foreign import ccall "vkCmdDispatch" dispatch ::
	CommandBuffer.C ->
	#{type uint32_t} -> #{type uint32_t} -> #{type uint32_t} -> IO ()

foreign import ccall "vkCmdPushConstants" pushConstants ::
	CommandBuffer.C -> Pipeline.Layout.P -> #{type VkShaderStageFlags} ->
	#{type uint32_t} -> #{type uint32_t} -> Ptr () -> IO ()

foreign import ccall "vkCmdResetQueryPool" resetQueryPool ::
	CommandBuffer.C -> QueryPool.Q ->
	#{type uint32_t} -> #{type uint32_t} -> IO ()

foreign import ccall "vkCmdBeginQuery" beginQuery ::
	CommandBuffer.C -> QueryPool.Q -> #{type uint32_t} ->
	#{type VkQueryControlFlags} -> IO ()

foreign import ccall "vkCmdEndQuery" endQuery ::
	CommandBuffer.C -> QueryPool.Q -> #{type uint32_t} -> IO ()

foreign import ccall "vkCmdWriteTimestamp" writeTimestamp ::
	CommandBuffer.C -> #{type VkPipelineStageFlagBits} -> QueryPool.Q ->
	#{type uint32_t} -> IO ()