{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Metal.FunPtr (
SDL3.Sys.Bindgen.Metal.FunPtr.sDL_Metal_CreateView,
SDL3.Sys.Bindgen.Metal.FunPtr.sDL_Metal_DestroyView,
SDL3.Sys.Bindgen.Metal.FunPtr.sDL_Metal_GetLayer,
)
where
import Prelude (IO, fmap)
import HsBindgen.Runtime.Support qualified as BG
import HsBindgen.Runtime.Support.CAPI qualified
import SDL3.Sys.Bindgen.Metal
import SDL3.Sys.Bindgen.Video qualified
$( 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_metal.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Metal_get_SDL_Metal_CreateView */"
, "__attribute__ ((const))"
, "SDL_MetalView (*hs_bindgen_05e876f492f6e504 (void)) ("
, " SDL_Window *arg1"
, ")"
, "{"
, " return &SDL_Metal_CreateView;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Metal_get_SDL_Metal_DestroyView */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_459e45a952bb1737 (void)) ("
, " SDL_MetalView arg1"
, ")"
, "{"
, " return &SDL_Metal_DestroyView;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Metal_get_SDL_Metal_GetLayer */"
, "__attribute__ ((const))"
, "void *(*hs_bindgen_7141fdaf243ea8b9 (void)) ("
, " SDL_MetalView arg1"
, ")"
, "{"
, " return &SDL_Metal_GetLayer;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_05e876f492f6e504"
hs_bindgen_05e876f492f6e504_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_05e876f492f6e504
:: IO (BG.FunPtr (BG.Ptr SDL3.Sys.Bindgen.Video.SDL_Window -> IO SDL_MetalView))
hs_bindgen_05e876f492f6e504 :: IO (FunPtr (Ptr SDL_Window -> IO SDL_MetalView))
hs_bindgen_05e876f492f6e504 =
(FunPtr Void -> FunPtr (Ptr SDL_Window -> IO SDL_MetalView))
-> IO (FunPtr Void)
-> IO (FunPtr (Ptr SDL_Window -> IO SDL_MetalView))
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 -> IO SDL_MetalView)
FFIType (FunPtr (Ptr SDL_Window -> IO SDL_MetalView))
-> FunPtr (Ptr SDL_Window -> IO SDL_MetalView)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_05e876f492f6e504_base
{-# NOINLINE sDL_Metal_CreateView #-}
sDL_Metal_CreateView :: BG.FunPtr (BG.Ptr SDL3.Sys.Bindgen.Video.SDL_Window -> IO SDL_MetalView)
sDL_Metal_CreateView :: FunPtr (Ptr SDL_Window -> IO SDL_MetalView)
sDL_Metal_CreateView =
IO (FunPtr (Ptr SDL_Window -> IO SDL_MetalView))
-> FunPtr (Ptr SDL_Window -> IO SDL_MetalView)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Ptr SDL_Window -> IO SDL_MetalView))
hs_bindgen_05e876f492f6e504
foreign import ccall unsafe "hs_bindgen_459e45a952bb1737"
hs_bindgen_459e45a952bb1737_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_459e45a952bb1737 :: IO (BG.FunPtr (SDL_MetalView -> IO ()))
hs_bindgen_459e45a952bb1737 :: IO (FunPtr (SDL_MetalView -> IO ()))
hs_bindgen_459e45a952bb1737 =
(FunPtr Void -> FunPtr (SDL_MetalView -> IO ()))
-> IO (FunPtr Void) -> IO (FunPtr (SDL_MetalView -> 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 (SDL_MetalView -> IO ())
FFIType (FunPtr (SDL_MetalView -> IO ()))
-> FunPtr (SDL_MetalView -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_459e45a952bb1737_base
{-# NOINLINE sDL_Metal_DestroyView #-}
sDL_Metal_DestroyView :: BG.FunPtr (SDL_MetalView -> IO ())
sDL_Metal_DestroyView :: FunPtr (SDL_MetalView -> IO ())
sDL_Metal_DestroyView =
IO (FunPtr (SDL_MetalView -> IO ()))
-> FunPtr (SDL_MetalView -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_MetalView -> IO ()))
hs_bindgen_459e45a952bb1737
foreign import ccall unsafe "hs_bindgen_7141fdaf243ea8b9"
hs_bindgen_7141fdaf243ea8b9_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_7141fdaf243ea8b9 :: IO (BG.FunPtr (SDL_MetalView -> IO (BG.Ptr BG.Void)))
hs_bindgen_7141fdaf243ea8b9 :: IO (FunPtr (SDL_MetalView -> IO (Ptr Void)))
hs_bindgen_7141fdaf243ea8b9 =
(FunPtr Void -> FunPtr (SDL_MetalView -> IO (Ptr Void)))
-> IO (FunPtr Void) -> IO (FunPtr (SDL_MetalView -> IO (Ptr Void)))
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 (SDL_MetalView -> IO (Ptr Void))
FFIType (FunPtr (SDL_MetalView -> IO (Ptr Void)))
-> FunPtr (SDL_MetalView -> IO (Ptr Void))
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_7141fdaf243ea8b9_base
{-# NOINLINE sDL_Metal_GetLayer #-}
sDL_Metal_GetLayer :: BG.FunPtr (SDL_MetalView -> IO (BG.Ptr BG.Void))
sDL_Metal_GetLayer :: FunPtr (SDL_MetalView -> IO (Ptr Void))
sDL_Metal_GetLayer =
IO (FunPtr (SDL_MetalView -> IO (Ptr Void)))
-> FunPtr (SDL_MetalView -> IO (Ptr Void))
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_MetalView -> IO (Ptr Void)))
hs_bindgen_7141fdaf243ea8b9