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

module Gpu.Vulkan.DescriptorPool.Core (

	-- * CREATE AND DESTROY

	create, destroy, D, CreateInfo, pattern CreateInfo,
	createInfoSType, createInfoPNext, createInfoFlags,
	createInfoMaxSets, createInfoPoolSizeCount, createInfoPPoolSizes,

	-- ** Size

	Size, PtrSize, pattern Size, sizeType, sizeDescriptorCount

	) where

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

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



struct "Size" (8) 4 [
{-# LINE 33 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
	("type", ''Word32,
{-# LINE 34 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 0) |],
{-# LINE 35 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 0) |]),
{-# LINE 36 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
	("descriptorCount", ''Word32,
{-# LINE 37 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 4) |],
{-# LINE 38 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 4) |])
{-# LINE 39 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
	]
	[''Show, ''Storable]

type PtrSize = Ptr Size

sType :: Word32
{-# LINE 45 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
sType = 33
{-# LINE 46 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}

struct "CreateInfo" (40)
{-# LINE 48 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		8 [
{-# LINE 49 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
	("sType", ''(), [| const $ pure () |],
		[| \p _ ->
			(\hsc_ptr -> pokeByteOff hsc_ptr 0) p sType |]),
{-# LINE 52 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
	("pNext", ''PtrVoid,
		[| (\hsc_ptr -> peekByteOff hsc_ptr 8) |],
{-# LINE 54 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 8) |]),
{-# LINE 55 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
	("flags", ''Word32,
{-# LINE 56 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 16) |],
{-# LINE 57 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 16) |]),
{-# LINE 58 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
	("maxSets", ''Word32,
{-# LINE 59 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 20) |],
{-# LINE 60 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 20) |]),
{-# LINE 61 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
	("poolSizeCount", ''Word32,
{-# LINE 62 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 24) |],
{-# LINE 63 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 24) |]),
{-# LINE 64 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
	("pPoolSizes", ''PtrSize,
		[| (\hsc_ptr -> peekByteOff hsc_ptr 32) |],
{-# LINE 66 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 32) |]) ]
{-# LINE 67 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}
	[''Show, ''Storable]

data DTag
type D = Ptr DTag

foreign import ccall "vkCreateDescriptorPool" create ::
	Device.D -> Ptr CreateInfo -> Ptr AllocationCallbacks.A ->
	Ptr D -> IO Int32
{-# LINE 75 "src/Gpu/Vulkan/DescriptorPool/Core.hsc" #-}

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