{-# LINE 1 "src/Gpu/Vulkan/Khr/Surface/PhysicalDevice/Core.hsc" #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Gpu.Vulkan.Khr.Surface.PhysicalDevice.Core (

	-- * FUNCTIONS

	getSupport, getCapabilities, getFormats, getPresentModes

	) where

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

import qualified Gpu.Vulkan.PhysicalDevice.Core as PhysicalDevice
import qualified Gpu.Vulkan.Khr.Surface.Core as Surface



foreign import ccall "vkGetPhysicalDeviceSurfaceSupportKHR" getSupport ::
	PhysicalDevice.P -> Word32 -> Surface.S ->
{-# LINE 22 "src/Gpu/Vulkan/Khr/Surface/PhysicalDevice/Core.hsc" #-}
	Ptr Word32 -> IO Int32
{-# LINE 23 "src/Gpu/Vulkan/Khr/Surface/PhysicalDevice/Core.hsc" #-}

foreign import ccall "vkGetPhysicalDeviceSurfaceCapabilitiesKHR"
	getCapabilities ::
	PhysicalDevice.P -> Surface.S -> Ptr Surface.Capabilities ->
	IO Int32
{-# LINE 28 "src/Gpu/Vulkan/Khr/Surface/PhysicalDevice/Core.hsc" #-}

foreign import ccall "vkGetPhysicalDeviceSurfaceFormatsKHR" getFormats ::
	PhysicalDevice.P -> Surface.S ->
	Ptr Word32 -> Ptr Surface.Format -> IO Int32
{-# LINE 32 "src/Gpu/Vulkan/Khr/Surface/PhysicalDevice/Core.hsc" #-}

foreign import ccall "vkGetPhysicalDeviceSurfacePresentModesKHR"
	getPresentModes ::
	PhysicalDevice.P -> Surface.S ->
	Ptr Word32 -> Ptr Word32 -> IO Int32
{-# LINE 37 "src/Gpu/Vulkan/Khr/Surface/PhysicalDevice/Core.hsc" #-}