{-# LINE 1 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE PatternSynonyms, ViewPatterns #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Gpu.Vulkan.QueryPool.Core (

	-- * CREATE AND DESTROY

	create, destroy, Q, CreateInfo, pattern CreateInfo,
	createInfoSType, createInfoPNext, createInfoFlags,
	createInfoQueryType, createInfoQueryCount, createInfoPipelineStatistics,

	-- * RESET AND GET RESULTS

	reset, getResults

	) where

import Foreign.Ptr
import Foreign.Storable
import Foreign.C.Struct
import Foreign.C.Struct.TypeSynonyms
import Data.Word
import Data.Int

import Gpu.Vulkan.AllocationCallbacks.Core qualified as AllocationCallbacks
import Gpu.Vulkan.Device.Core qualified as Device



sType :: Word32
{-# LINE 34 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
sType = 11
{-# LINE 35 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}

struct "CreateInfo" (32)
{-# LINE 37 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
	8 [
{-# LINE 38 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
	("sType", ''(), [| const $ pure () |],
		[| \p _ -> (\hsc_ptr -> pokeByteOff hsc_ptr 0) p sType |]),
{-# LINE 40 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
	("pNext", ''PtrVoid,
		[| (\hsc_ptr -> peekByteOff hsc_ptr 8) |],
{-# LINE 42 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 8) |]),
{-# LINE 43 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
	("flags", ''Word32,
{-# LINE 44 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 16) |],
{-# LINE 45 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 16) |]),
{-# LINE 46 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
	("queryType", ''Word32,
{-# LINE 47 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 20) |],
{-# LINE 48 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 20) |]),
{-# LINE 49 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
	("queryCount", ''Word32,
{-# LINE 50 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 24) |],
{-# LINE 51 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 24) |]),
{-# LINE 52 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
	("pipelineStatistics", ''Word32,
{-# LINE 53 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 28) |],
{-# LINE 54 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 28) |]) ]
{-# LINE 55 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
	[''Show, ''Storable]

data QTag
type Q = Ptr QTag

foreign import ccall "vkCreateQueryPool" create ::
	Device.D -> Ptr CreateInfo -> Ptr AllocationCallbacks.A -> Ptr Q ->
	IO Int32
{-# LINE 63 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}

foreign import ccall "vkDestroyQueryPool" destroy ::
	Device.D -> Q -> Ptr AllocationCallbacks.A -> IO ()

foreign import ccall "vkResetQueryPool" reset ::
	Device.D -> Q -> Word32 -> Word32 -> IO ()
{-# LINE 69 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}

foreign import ccall "vkGetQueryPoolResults" getResults ::
	Device.D -> Q -> Word32 -> Word32 ->
{-# LINE 72 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
	Word64 -> Ptr () -> Word64 ->
{-# LINE 73 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}
	Word32 -> IO Int32
{-# LINE 74 "src/Gpu/Vulkan/QueryPool/Core.hsc" #-}