{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Vulkan.FunPtr (
SDL3.Sys.Bindgen.Vulkan.FunPtr.sDL_Vulkan_LoadLibrary,
SDL3.Sys.Bindgen.Vulkan.FunPtr.sDL_Vulkan_GetVkGetInstanceProcAddr,
SDL3.Sys.Bindgen.Vulkan.FunPtr.sDL_Vulkan_UnloadLibrary,
SDL3.Sys.Bindgen.Vulkan.FunPtr.sDL_Vulkan_GetInstanceExtensions,
SDL3.Sys.Bindgen.Vulkan.FunPtr.sDL_Vulkan_CreateSurface,
SDL3.Sys.Bindgen.Vulkan.FunPtr.sDL_Vulkan_DestroySurface,
SDL3.Sys.Bindgen.Vulkan.FunPtr.sDL_Vulkan_GetPresentationSupport,
)
where
import Prelude (IO, fmap)
import HsBindgen.Runtime.PtrConst qualified as PtrConst
import HsBindgen.Runtime.Support qualified as BG
import HsBindgen.Runtime.Support.CAPI qualified
import SDL3.Sys.Bindgen.Stdinc qualified
import SDL3.Sys.Bindgen.Video qualified
import SDL3.Sys.Bindgen.Vulkan
$( HsBindgen.Runtime.Support.CAPI.addCSource
( HsBindgen.Runtime.Support.CAPI.unlines
[ "#define SDL_MAIN_HANDLED"
, "#define SDL_SLOW_MEMCPY"
, "#define SDL_SLOW_MEMMOVE"
, "#define SDL_SLOW_MEMSET"
, "#include <SDL3/SDL_vulkan.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Vulkan_get_SDL_Vulkan_LoadLibrary */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_d0d596710f473c05 (void)) ("
, " char const *arg1"
, ")"
, "{"
, " return &SDL_Vulkan_LoadLibrary;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Vulkan_get_SDL_Vulkan_GetVkGetInstanceProcAddr */"
, "__attribute__ ((const))"
, "SDL_FunctionPointer (*hs_bindgen_e561af225e7863f2 (void)) (void)"
, "{"
, " return &SDL_Vulkan_GetVkGetInstanceProcAddr;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Vulkan_get_SDL_Vulkan_UnloadLibrary */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_8dbd3b301be26b64 (void)) (void)"
, "{"
, " return &SDL_Vulkan_UnloadLibrary;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Vulkan_get_SDL_Vulkan_GetInstanceExtensions */"
, "__attribute__ ((const))"
, "char const *const *(*hs_bindgen_86f751b3ecdfa51d (void)) ("
, " Uint32 *arg1"
, ")"
, "{"
, " return &SDL_Vulkan_GetInstanceExtensions;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Vulkan_get_SDL_Vulkan_CreateSurface */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_8ae9a4cb1d4352ac (void)) ("
, " SDL_Window *arg1,"
, " VkInstance arg2,"
, " struct VkAllocationCallbacks const *arg3,"
, " VkSurfaceKHR *arg4"
, ")"
, "{"
, " return &SDL_Vulkan_CreateSurface;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Vulkan_get_SDL_Vulkan_DestroySurface */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_5ea94b407895c233 (void)) ("
, " VkInstance arg1,"
, " VkSurfaceKHR arg2,"
, " struct VkAllocationCallbacks const *arg3"
, ")"
, "{"
, " return &SDL_Vulkan_DestroySurface;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Vulkan_get_SDL_Vulkan_GetPresentationSupport */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_e61814e6ac761e26 (void)) ("
, " VkInstance arg1,"
, " VkPhysicalDevice arg2,"
, " Uint32 arg3"
, ")"
, "{"
, " return &SDL_Vulkan_GetPresentationSupport;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_d0d596710f473c05"
hs_bindgen_d0d596710f473c05_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_d0d596710f473c05 :: IO (BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO BG.CBool))
hs_bindgen_d0d596710f473c05 :: IO (FunPtr (PtrConst CChar -> IO CBool))
hs_bindgen_d0d596710f473c05 =
(FunPtr Void -> FunPtr (PtrConst CChar -> IO CBool))
-> IO (FunPtr Void) -> IO (FunPtr (PtrConst CChar -> IO CBool))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (PtrConst CChar -> IO CBool)
FFIType (FunPtr (PtrConst CChar -> IO CBool))
-> FunPtr (PtrConst CChar -> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_d0d596710f473c05_base
{-# NOINLINE sDL_Vulkan_LoadLibrary #-}
sDL_Vulkan_LoadLibrary :: BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO BG.CBool)
sDL_Vulkan_LoadLibrary :: FunPtr (PtrConst CChar -> IO CBool)
sDL_Vulkan_LoadLibrary =
IO (FunPtr (PtrConst CChar -> IO CBool))
-> FunPtr (PtrConst CChar -> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (PtrConst CChar -> IO CBool))
hs_bindgen_d0d596710f473c05
foreign import ccall unsafe "hs_bindgen_e561af225e7863f2"
hs_bindgen_e561af225e7863f2_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_e561af225e7863f2 :: IO (BG.FunPtr (IO SDL3.Sys.Bindgen.Stdinc.SDL_FunctionPointer))
hs_bindgen_e561af225e7863f2 :: IO (FunPtr (IO SDL_FunctionPointer))
hs_bindgen_e561af225e7863f2 =
(FunPtr Void -> FunPtr (IO SDL_FunctionPointer))
-> IO (FunPtr Void) -> IO (FunPtr (IO SDL_FunctionPointer))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (IO SDL_FunctionPointer)
FFIType (FunPtr (IO SDL_FunctionPointer))
-> FunPtr (IO SDL_FunctionPointer)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_e561af225e7863f2_base
{-# NOINLINE sDL_Vulkan_GetVkGetInstanceProcAddr #-}
sDL_Vulkan_GetVkGetInstanceProcAddr :: BG.FunPtr (IO SDL3.Sys.Bindgen.Stdinc.SDL_FunctionPointer)
sDL_Vulkan_GetVkGetInstanceProcAddr :: FunPtr (IO SDL_FunctionPointer)
sDL_Vulkan_GetVkGetInstanceProcAddr =
IO (FunPtr (IO SDL_FunctionPointer))
-> FunPtr (IO SDL_FunctionPointer)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (IO SDL_FunctionPointer))
hs_bindgen_e561af225e7863f2
foreign import ccall unsafe "hs_bindgen_8dbd3b301be26b64"
hs_bindgen_8dbd3b301be26b64_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_8dbd3b301be26b64 :: IO (BG.FunPtr (IO ()))
hs_bindgen_8dbd3b301be26b64 :: IO (FunPtr (IO ()))
hs_bindgen_8dbd3b301be26b64 =
(FunPtr Void -> FunPtr (IO ()))
-> IO (FunPtr Void) -> IO (FunPtr (IO ()))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (IO ())
FFIType (FunPtr (IO ())) -> FunPtr (IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_8dbd3b301be26b64_base
{-# NOINLINE sDL_Vulkan_UnloadLibrary #-}
sDL_Vulkan_UnloadLibrary :: BG.FunPtr (IO ())
sDL_Vulkan_UnloadLibrary :: FunPtr (IO ())
sDL_Vulkan_UnloadLibrary =
IO (FunPtr (IO ())) -> FunPtr (IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (IO ()))
hs_bindgen_8dbd3b301be26b64
foreign import ccall unsafe "hs_bindgen_86f751b3ecdfa51d"
hs_bindgen_86f751b3ecdfa51d_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_86f751b3ecdfa51d
:: IO
( BG.FunPtr
(BG.Ptr SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO (PtrConst.PtrConst (PtrConst.PtrConst BG.CChar)))
)
hs_bindgen_86f751b3ecdfa51d :: IO (FunPtr (Ptr Uint32 -> IO (PtrConst (PtrConst CChar))))
hs_bindgen_86f751b3ecdfa51d =
(FunPtr Void
-> FunPtr (Ptr Uint32 -> IO (PtrConst (PtrConst CChar))))
-> IO (FunPtr Void)
-> IO (FunPtr (Ptr Uint32 -> IO (PtrConst (PtrConst CChar))))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void
-> FunPtr (Ptr Uint32 -> IO (PtrConst (PtrConst CChar)))
FFIType (FunPtr (Ptr Uint32 -> IO (PtrConst (PtrConst CChar))))
-> FunPtr (Ptr Uint32 -> IO (PtrConst (PtrConst CChar)))
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_86f751b3ecdfa51d_base
{-# NOINLINE sDL_Vulkan_GetInstanceExtensions #-}
sDL_Vulkan_GetInstanceExtensions
:: BG.FunPtr
(BG.Ptr SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO (PtrConst.PtrConst (PtrConst.PtrConst BG.CChar)))
sDL_Vulkan_GetInstanceExtensions :: FunPtr (Ptr Uint32 -> IO (PtrConst (PtrConst CChar)))
sDL_Vulkan_GetInstanceExtensions =
IO (FunPtr (Ptr Uint32 -> IO (PtrConst (PtrConst CChar))))
-> FunPtr (Ptr Uint32 -> IO (PtrConst (PtrConst CChar)))
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Ptr Uint32 -> IO (PtrConst (PtrConst CChar))))
hs_bindgen_86f751b3ecdfa51d
foreign import ccall unsafe "hs_bindgen_8ae9a4cb1d4352ac"
hs_bindgen_8ae9a4cb1d4352ac_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_8ae9a4cb1d4352ac
:: IO
( BG.FunPtr
( BG.Ptr SDL3.Sys.Bindgen.Video.SDL_Window
-> VkInstance
-> PtrConst.PtrConst VkAllocationCallbacks
-> BG.Ptr VkSurfaceKHR
-> IO BG.CBool
)
)
hs_bindgen_8ae9a4cb1d4352ac :: IO
(FunPtr
(Ptr SDL_Window
-> VkInstance
-> PtrConst VkAllocationCallbacks
-> Ptr VkSurfaceKHR
-> IO CBool))
hs_bindgen_8ae9a4cb1d4352ac =
(FunPtr Void
-> FunPtr
(Ptr SDL_Window
-> VkInstance
-> PtrConst VkAllocationCallbacks
-> Ptr VkSurfaceKHR
-> IO CBool))
-> IO (FunPtr Void)
-> IO
(FunPtr
(Ptr SDL_Window
-> VkInstance
-> PtrConst VkAllocationCallbacks
-> Ptr VkSurfaceKHR
-> IO CBool))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void
-> FunPtr
(Ptr SDL_Window
-> VkInstance
-> PtrConst VkAllocationCallbacks
-> Ptr VkSurfaceKHR
-> IO CBool)
FFIType
(FunPtr
(Ptr SDL_Window
-> VkInstance
-> PtrConst VkAllocationCallbacks
-> Ptr VkSurfaceKHR
-> IO CBool))
-> FunPtr
(Ptr SDL_Window
-> VkInstance
-> PtrConst VkAllocationCallbacks
-> Ptr VkSurfaceKHR
-> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_8ae9a4cb1d4352ac_base
{-# NOINLINE sDL_Vulkan_CreateSurface #-}
sDL_Vulkan_CreateSurface
:: BG.FunPtr
( BG.Ptr SDL3.Sys.Bindgen.Video.SDL_Window
-> VkInstance
-> PtrConst.PtrConst VkAllocationCallbacks
-> BG.Ptr VkSurfaceKHR
-> IO BG.CBool
)
sDL_Vulkan_CreateSurface :: FunPtr
(Ptr SDL_Window
-> VkInstance
-> PtrConst VkAllocationCallbacks
-> Ptr VkSurfaceKHR
-> IO CBool)
sDL_Vulkan_CreateSurface =
IO
(FunPtr
(Ptr SDL_Window
-> VkInstance
-> PtrConst VkAllocationCallbacks
-> Ptr VkSurfaceKHR
-> IO CBool))
-> FunPtr
(Ptr SDL_Window
-> VkInstance
-> PtrConst VkAllocationCallbacks
-> Ptr VkSurfaceKHR
-> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO
(FunPtr
(Ptr SDL_Window
-> VkInstance
-> PtrConst VkAllocationCallbacks
-> Ptr VkSurfaceKHR
-> IO CBool))
hs_bindgen_8ae9a4cb1d4352ac
foreign import ccall unsafe "hs_bindgen_5ea94b407895c233"
hs_bindgen_5ea94b407895c233_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_5ea94b407895c233
:: IO (BG.FunPtr (VkInstance -> VkSurfaceKHR -> PtrConst.PtrConst VkAllocationCallbacks -> IO ()))
hs_bindgen_5ea94b407895c233 :: IO
(FunPtr
(VkInstance
-> VkSurfaceKHR -> PtrConst VkAllocationCallbacks -> IO ()))
hs_bindgen_5ea94b407895c233 =
(FunPtr Void
-> FunPtr
(VkInstance
-> VkSurfaceKHR -> PtrConst VkAllocationCallbacks -> IO ()))
-> IO (FunPtr Void)
-> IO
(FunPtr
(VkInstance
-> VkSurfaceKHR -> PtrConst VkAllocationCallbacks -> IO ()))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void
-> FunPtr
(VkInstance
-> VkSurfaceKHR -> PtrConst VkAllocationCallbacks -> IO ())
FFIType
(FunPtr
(VkInstance
-> VkSurfaceKHR -> PtrConst VkAllocationCallbacks -> IO ()))
-> FunPtr
(VkInstance
-> VkSurfaceKHR -> PtrConst VkAllocationCallbacks -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_5ea94b407895c233_base
{-# NOINLINE sDL_Vulkan_DestroySurface #-}
sDL_Vulkan_DestroySurface
:: BG.FunPtr (VkInstance -> VkSurfaceKHR -> PtrConst.PtrConst VkAllocationCallbacks -> IO ())
sDL_Vulkan_DestroySurface :: FunPtr
(VkInstance
-> VkSurfaceKHR -> PtrConst VkAllocationCallbacks -> IO ())
sDL_Vulkan_DestroySurface =
IO
(FunPtr
(VkInstance
-> VkSurfaceKHR -> PtrConst VkAllocationCallbacks -> IO ()))
-> FunPtr
(VkInstance
-> VkSurfaceKHR -> PtrConst VkAllocationCallbacks -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO
(FunPtr
(VkInstance
-> VkSurfaceKHR -> PtrConst VkAllocationCallbacks -> IO ()))
hs_bindgen_5ea94b407895c233
foreign import ccall unsafe "hs_bindgen_e61814e6ac761e26"
hs_bindgen_e61814e6ac761e26_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_e61814e6ac761e26
:: IO (BG.FunPtr (VkInstance -> VkPhysicalDevice -> SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO BG.CBool))
hs_bindgen_e61814e6ac761e26 :: IO (FunPtr (VkInstance -> VkPhysicalDevice -> Uint32 -> IO CBool))
hs_bindgen_e61814e6ac761e26 =
(FunPtr Void
-> FunPtr (VkInstance -> VkPhysicalDevice -> Uint32 -> IO CBool))
-> IO (FunPtr Void)
-> IO
(FunPtr (VkInstance -> VkPhysicalDevice -> Uint32 -> IO CBool))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void
-> FunPtr (VkInstance -> VkPhysicalDevice -> Uint32 -> IO CBool)
FFIType
(FunPtr (VkInstance -> VkPhysicalDevice -> Uint32 -> IO CBool))
-> FunPtr (VkInstance -> VkPhysicalDevice -> Uint32 -> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_e61814e6ac761e26_base
{-# NOINLINE sDL_Vulkan_GetPresentationSupport #-}
sDL_Vulkan_GetPresentationSupport
:: BG.FunPtr (VkInstance -> VkPhysicalDevice -> SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO BG.CBool)
sDL_Vulkan_GetPresentationSupport :: FunPtr (VkInstance -> VkPhysicalDevice -> Uint32 -> IO CBool)
sDL_Vulkan_GetPresentationSupport =
IO (FunPtr (VkInstance -> VkPhysicalDevice -> Uint32 -> IO CBool))
-> FunPtr (VkInstance -> VkPhysicalDevice -> Uint32 -> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (VkInstance -> VkPhysicalDevice -> Uint32 -> IO CBool))
hs_bindgen_e61814e6ac761e26