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

module Gpu.Vulkan.Instance.Core (

	-- * CREATE AND DESTROY

	create, destroy, I, CreateInfo, pattern CreateInfo,
	createInfoSType, createInfoPNext, createInfoFlags,
	createInfoPApplicationInfo,
	createInfoEnabledLayerCount, createInfoPpEnabledLayerNames,
	createInfoEnabledExtensionCount, createInfoPpEnabledExtensionNames,

	-- * ENUMERATE

	enumerateLayerProperties, enumerateExtensionProperties

	) where

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

import Gpu.Vulkan.Core

import qualified Gpu.Vulkan.AllocationCallbacks.Core as AllocationCallbacks



struct "CreateInfo" (64)
{-# LINE 37 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
		8 [
{-# LINE 38 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
	("sType", ''(), [| const $ pure () |],
		[| \p _ -> (\hsc_ptr -> pokeByteOff hsc_ptr 0) p
{-# LINE 40 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
			(1 ::
{-# LINE 41 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
				Word32) |]),
{-# LINE 42 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
	("pNext", ''PtrVoid, [| (\hsc_ptr -> peekByteOff hsc_ptr 8) |],
{-# LINE 43 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 8) |]),
{-# LINE 44 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
	("flags", ''Word32,
{-# LINE 45 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 16) |],
{-# LINE 46 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 16) |]),
{-# LINE 47 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
	("pApplicationInfo", ''PtrApplicationInfo,
		[| (\hsc_ptr -> peekByteOff hsc_ptr 24) |],
{-# LINE 49 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 24) |]),
{-# LINE 50 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
	("enabledLayerCount", ''Word32,
{-# LINE 51 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 32) |],
{-# LINE 52 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 32) |]),
{-# LINE 53 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
	("ppEnabledLayerNames", ''PtrCString,
		[| (\hsc_ptr -> peekByteOff hsc_ptr 40) |],
{-# LINE 55 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 40) |]),
{-# LINE 56 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
	("enabledExtensionCount", ''Word32,
{-# LINE 57 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 48) |],
{-# LINE 58 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 48) |]),
{-# LINE 59 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
	("ppEnabledExtensionNames", ''PtrCString,
		[| (\hsc_ptr -> peekByteOff hsc_ptr 56) |],
{-# LINE 61 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 56) |]) ]
{-# LINE 62 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
	[''Show, ''Storable]

data ITag
type I = Ptr ITag

foreign import ccall "vkCreateInstance" create ::
	Ptr CreateInfo -> Ptr AllocationCallbacks.A -> Ptr I -> IO Int32
{-# LINE 69 "src/Gpu/Vulkan/Instance/Core.hsc" #-}

foreign import ccall "vkDestroyInstance" destroy ::
	I -> Ptr AllocationCallbacks.A -> IO ()

foreign import ccall "vkEnumerateInstanceExtensionProperties"
	enumerateExtensionProperties ::
	CString -> Ptr Word32 -> Ptr ExtensionProperties ->
{-# LINE 76 "src/Gpu/Vulkan/Instance/Core.hsc" #-}
	IO Int32
{-# LINE 77 "src/Gpu/Vulkan/Instance/Core.hsc" #-}

foreign import ccall "vkEnumerateInstanceLayerProperties"
	enumerateLayerProperties ::
	Ptr Word32 -> Ptr LayerProperties -> IO Int32
{-# LINE 81 "src/Gpu/Vulkan/Instance/Core.hsc" #-}