{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Init.FunPtr (
SDL3.Sys.Bindgen.Init.FunPtr.sDL_Init,
SDL3.Sys.Bindgen.Init.FunPtr.sDL_InitSubSystem,
SDL3.Sys.Bindgen.Init.FunPtr.sDL_QuitSubSystem,
SDL3.Sys.Bindgen.Init.FunPtr.sDL_WasInit,
SDL3.Sys.Bindgen.Init.FunPtr.sDL_Quit,
SDL3.Sys.Bindgen.Init.FunPtr.sDL_IsMainThread,
SDL3.Sys.Bindgen.Init.FunPtr.sDL_RunOnMainThread,
SDL3.Sys.Bindgen.Init.FunPtr.sDL_SetAppMetadata,
SDL3.Sys.Bindgen.Init.FunPtr.sDL_SetAppMetadataProperty,
SDL3.Sys.Bindgen.Init.FunPtr.sDL_GetAppMetadataProperty,
)
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.Init
$( 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_init.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Init_get_SDL_Init */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_dfba4f22209c9554 (void)) ("
, " SDL_InitFlags arg1"
, ")"
, "{"
, " return &SDL_Init;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Init_get_SDL_InitSubSystem */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_5bce25b55e9d45e3 (void)) ("
, " SDL_InitFlags arg1"
, ")"
, "{"
, " return &SDL_InitSubSystem;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Init_get_SDL_QuitSubSystem */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_149d9b7709db6751 (void)) ("
, " SDL_InitFlags arg1"
, ")"
, "{"
, " return &SDL_QuitSubSystem;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Init_get_SDL_WasInit */"
, "__attribute__ ((const))"
, "SDL_InitFlags (*hs_bindgen_53dd2f1aac19a298 (void)) ("
, " SDL_InitFlags arg1"
, ")"
, "{"
, " return &SDL_WasInit;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Init_get_SDL_Quit */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_9b631cb78cf1671f (void)) (void)"
, "{"
, " return &SDL_Quit;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Init_get_SDL_IsMainThread */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_a902ff5ab130bb25 (void)) (void)"
, "{"
, " return &SDL_IsMainThread;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Init_get_SDL_RunOnMainThread */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_1cff011229869063 (void)) ("
, " SDL_MainThreadCallback arg1,"
, " void *arg2,"
, " _Bool arg3"
, ")"
, "{"
, " return &SDL_RunOnMainThread;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Init_get_SDL_SetAppMetadata */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_7a68851346541d78 (void)) ("
, " char const *arg1,"
, " char const *arg2,"
, " char const *arg3"
, ")"
, "{"
, " return &SDL_SetAppMetadata;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Init_get_SDL_SetAppMetadataProperty */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_d0081e390d662467 (void)) ("
, " char const *arg1,"
, " char const *arg2"
, ")"
, "{"
, " return &SDL_SetAppMetadataProperty;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Init_get_SDL_GetAppMetadataProperty */"
, "__attribute__ ((const))"
, "char const *(*hs_bindgen_fdbd2caae5327fdc (void)) ("
, " char const *arg1"
, ")"
, "{"
, " return &SDL_GetAppMetadataProperty;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_dfba4f22209c9554"
hs_bindgen_dfba4f22209c9554_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_dfba4f22209c9554 :: IO (BG.FunPtr (SDL_InitFlags -> IO BG.CBool))
hs_bindgen_dfba4f22209c9554 :: IO (FunPtr (SDL_InitFlags -> IO CBool))
hs_bindgen_dfba4f22209c9554 =
(FunPtr Void -> FunPtr (SDL_InitFlags -> IO CBool))
-> IO (FunPtr Void) -> IO (FunPtr (SDL_InitFlags -> 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 (SDL_InitFlags -> IO CBool)
FFIType (FunPtr (SDL_InitFlags -> IO CBool))
-> FunPtr (SDL_InitFlags -> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_dfba4f22209c9554_base
{-# NOINLINE sDL_Init #-}
sDL_Init :: BG.FunPtr (SDL_InitFlags -> IO BG.CBool)
sDL_Init :: FunPtr (SDL_InitFlags -> IO CBool)
sDL_Init =
IO (FunPtr (SDL_InitFlags -> IO CBool))
-> FunPtr (SDL_InitFlags -> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_InitFlags -> IO CBool))
hs_bindgen_dfba4f22209c9554
foreign import ccall unsafe "hs_bindgen_5bce25b55e9d45e3"
hs_bindgen_5bce25b55e9d45e3_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_5bce25b55e9d45e3 :: IO (BG.FunPtr (SDL_InitFlags -> IO BG.CBool))
hs_bindgen_5bce25b55e9d45e3 :: IO (FunPtr (SDL_InitFlags -> IO CBool))
hs_bindgen_5bce25b55e9d45e3 =
(FunPtr Void -> FunPtr (SDL_InitFlags -> IO CBool))
-> IO (FunPtr Void) -> IO (FunPtr (SDL_InitFlags -> 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 (SDL_InitFlags -> IO CBool)
FFIType (FunPtr (SDL_InitFlags -> IO CBool))
-> FunPtr (SDL_InitFlags -> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_5bce25b55e9d45e3_base
{-# NOINLINE sDL_InitSubSystem #-}
sDL_InitSubSystem :: BG.FunPtr (SDL_InitFlags -> IO BG.CBool)
sDL_InitSubSystem :: FunPtr (SDL_InitFlags -> IO CBool)
sDL_InitSubSystem =
IO (FunPtr (SDL_InitFlags -> IO CBool))
-> FunPtr (SDL_InitFlags -> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_InitFlags -> IO CBool))
hs_bindgen_5bce25b55e9d45e3
foreign import ccall unsafe "hs_bindgen_149d9b7709db6751"
hs_bindgen_149d9b7709db6751_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_149d9b7709db6751 :: IO (BG.FunPtr (SDL_InitFlags -> IO ()))
hs_bindgen_149d9b7709db6751 :: IO (FunPtr (SDL_InitFlags -> IO ()))
hs_bindgen_149d9b7709db6751 =
(FunPtr Void -> FunPtr (SDL_InitFlags -> IO ()))
-> IO (FunPtr Void) -> IO (FunPtr (SDL_InitFlags -> 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_InitFlags -> IO ())
FFIType (FunPtr (SDL_InitFlags -> IO ()))
-> FunPtr (SDL_InitFlags -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_149d9b7709db6751_base
{-# NOINLINE sDL_QuitSubSystem #-}
sDL_QuitSubSystem :: BG.FunPtr (SDL_InitFlags -> IO ())
sDL_QuitSubSystem :: FunPtr (SDL_InitFlags -> IO ())
sDL_QuitSubSystem =
IO (FunPtr (SDL_InitFlags -> IO ()))
-> FunPtr (SDL_InitFlags -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_InitFlags -> IO ()))
hs_bindgen_149d9b7709db6751
foreign import ccall unsafe "hs_bindgen_53dd2f1aac19a298"
hs_bindgen_53dd2f1aac19a298_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_53dd2f1aac19a298 :: IO (BG.FunPtr (SDL_InitFlags -> IO SDL_InitFlags))
hs_bindgen_53dd2f1aac19a298 :: IO (FunPtr (SDL_InitFlags -> IO SDL_InitFlags))
hs_bindgen_53dd2f1aac19a298 =
(FunPtr Void -> FunPtr (SDL_InitFlags -> IO SDL_InitFlags))
-> IO (FunPtr Void)
-> IO (FunPtr (SDL_InitFlags -> IO SDL_InitFlags))
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_InitFlags -> IO SDL_InitFlags)
FFIType (FunPtr (SDL_InitFlags -> IO SDL_InitFlags))
-> FunPtr (SDL_InitFlags -> IO SDL_InitFlags)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_53dd2f1aac19a298_base
{-# NOINLINE sDL_WasInit #-}
sDL_WasInit :: BG.FunPtr (SDL_InitFlags -> IO SDL_InitFlags)
sDL_WasInit :: FunPtr (SDL_InitFlags -> IO SDL_InitFlags)
sDL_WasInit =
IO (FunPtr (SDL_InitFlags -> IO SDL_InitFlags))
-> FunPtr (SDL_InitFlags -> IO SDL_InitFlags)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_InitFlags -> IO SDL_InitFlags))
hs_bindgen_53dd2f1aac19a298
foreign import ccall unsafe "hs_bindgen_9b631cb78cf1671f"
hs_bindgen_9b631cb78cf1671f_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_9b631cb78cf1671f :: IO (BG.FunPtr (IO ()))
hs_bindgen_9b631cb78cf1671f :: IO (FunPtr (IO ()))
hs_bindgen_9b631cb78cf1671f =
(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_9b631cb78cf1671f_base
{-# NOINLINE sDL_Quit #-}
sDL_Quit :: BG.FunPtr (IO ())
sDL_Quit :: FunPtr (IO ())
sDL_Quit =
IO (FunPtr (IO ())) -> FunPtr (IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (IO ()))
hs_bindgen_9b631cb78cf1671f
foreign import ccall unsafe "hs_bindgen_a902ff5ab130bb25"
hs_bindgen_a902ff5ab130bb25_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_a902ff5ab130bb25 :: IO (BG.FunPtr (IO BG.CBool))
hs_bindgen_a902ff5ab130bb25 :: IO (FunPtr (IO CBool))
hs_bindgen_a902ff5ab130bb25 =
(FunPtr Void -> FunPtr (IO CBool))
-> IO (FunPtr Void) -> IO (FunPtr (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 (IO CBool)
FFIType (FunPtr (IO CBool)) -> FunPtr (IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_a902ff5ab130bb25_base
{-# NOINLINE sDL_IsMainThread #-}
sDL_IsMainThread :: BG.FunPtr (IO BG.CBool)
sDL_IsMainThread :: FunPtr (IO CBool)
sDL_IsMainThread =
IO (FunPtr (IO CBool)) -> FunPtr (IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (IO CBool))
hs_bindgen_a902ff5ab130bb25
foreign import ccall unsafe "hs_bindgen_1cff011229869063"
hs_bindgen_1cff011229869063_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_1cff011229869063
:: IO (BG.FunPtr (SDL_MainThreadCallback -> BG.Ptr BG.Void -> BG.CBool -> IO BG.CBool))
hs_bindgen_1cff011229869063 :: IO
(FunPtr (SDL_MainThreadCallback -> Ptr Void -> CBool -> IO CBool))
hs_bindgen_1cff011229869063 =
(FunPtr Void
-> FunPtr
(SDL_MainThreadCallback -> Ptr Void -> CBool -> IO CBool))
-> IO (FunPtr Void)
-> IO
(FunPtr (SDL_MainThreadCallback -> Ptr Void -> CBool -> 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 (SDL_MainThreadCallback -> Ptr Void -> CBool -> IO CBool)
FFIType
(FunPtr (SDL_MainThreadCallback -> Ptr Void -> CBool -> IO CBool))
-> FunPtr (SDL_MainThreadCallback -> Ptr Void -> CBool -> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_1cff011229869063_base
{-# NOINLINE sDL_RunOnMainThread #-}
sDL_RunOnMainThread
:: BG.FunPtr (SDL_MainThreadCallback -> BG.Ptr BG.Void -> BG.CBool -> IO BG.CBool)
sDL_RunOnMainThread :: FunPtr (SDL_MainThreadCallback -> Ptr Void -> CBool -> IO CBool)
sDL_RunOnMainThread =
IO
(FunPtr (SDL_MainThreadCallback -> Ptr Void -> CBool -> IO CBool))
-> FunPtr (SDL_MainThreadCallback -> Ptr Void -> CBool -> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO
(FunPtr (SDL_MainThreadCallback -> Ptr Void -> CBool -> IO CBool))
hs_bindgen_1cff011229869063
foreign import ccall unsafe "hs_bindgen_7a68851346541d78"
hs_bindgen_7a68851346541d78_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_7a68851346541d78
:: IO
( BG.FunPtr
( PtrConst.PtrConst BG.CChar
-> PtrConst.PtrConst BG.CChar
-> PtrConst.PtrConst BG.CChar
-> IO BG.CBool
)
)
hs_bindgen_7a68851346541d78 :: IO
(FunPtr
(PtrConst CChar -> PtrConst CChar -> PtrConst CChar -> IO CBool))
hs_bindgen_7a68851346541d78 =
(FunPtr Void
-> FunPtr
(PtrConst CChar -> PtrConst CChar -> PtrConst CChar -> IO CBool))
-> IO (FunPtr Void)
-> IO
(FunPtr
(PtrConst CChar -> PtrConst CChar -> 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 -> PtrConst CChar -> PtrConst CChar -> IO CBool)
FFIType
(FunPtr
(PtrConst CChar -> PtrConst CChar -> PtrConst CChar -> IO CBool))
-> FunPtr
(PtrConst CChar -> PtrConst CChar -> PtrConst CChar -> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_7a68851346541d78_base
{-# NOINLINE sDL_SetAppMetadata #-}
sDL_SetAppMetadata
:: BG.FunPtr
( PtrConst.PtrConst BG.CChar
-> PtrConst.PtrConst BG.CChar
-> PtrConst.PtrConst BG.CChar
-> IO BG.CBool
)
sDL_SetAppMetadata :: FunPtr
(PtrConst CChar -> PtrConst CChar -> PtrConst CChar -> IO CBool)
sDL_SetAppMetadata =
IO
(FunPtr
(PtrConst CChar -> PtrConst CChar -> PtrConst CChar -> IO CBool))
-> FunPtr
(PtrConst CChar -> PtrConst CChar -> PtrConst CChar -> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO
(FunPtr
(PtrConst CChar -> PtrConst CChar -> PtrConst CChar -> IO CBool))
hs_bindgen_7a68851346541d78
foreign import ccall unsafe "hs_bindgen_d0081e390d662467"
hs_bindgen_d0081e390d662467_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_d0081e390d662467
:: IO (BG.FunPtr (PtrConst.PtrConst BG.CChar -> PtrConst.PtrConst BG.CChar -> IO BG.CBool))
hs_bindgen_d0081e390d662467 :: IO (FunPtr (PtrConst CChar -> PtrConst CChar -> IO CBool))
hs_bindgen_d0081e390d662467 =
(FunPtr Void
-> FunPtr (PtrConst CChar -> PtrConst CChar -> IO CBool))
-> IO (FunPtr Void)
-> IO (FunPtr (PtrConst CChar -> 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 -> PtrConst CChar -> IO CBool)
FFIType (FunPtr (PtrConst CChar -> PtrConst CChar -> IO CBool))
-> FunPtr (PtrConst CChar -> PtrConst CChar -> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_d0081e390d662467_base
{-# NOINLINE sDL_SetAppMetadataProperty #-}
sDL_SetAppMetadataProperty
:: BG.FunPtr (PtrConst.PtrConst BG.CChar -> PtrConst.PtrConst BG.CChar -> IO BG.CBool)
sDL_SetAppMetadataProperty :: FunPtr (PtrConst CChar -> PtrConst CChar -> IO CBool)
sDL_SetAppMetadataProperty =
IO (FunPtr (PtrConst CChar -> PtrConst CChar -> IO CBool))
-> FunPtr (PtrConst CChar -> PtrConst CChar -> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (PtrConst CChar -> PtrConst CChar -> IO CBool))
hs_bindgen_d0081e390d662467
foreign import ccall unsafe "hs_bindgen_fdbd2caae5327fdc"
hs_bindgen_fdbd2caae5327fdc_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_fdbd2caae5327fdc
:: IO (BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO (PtrConst.PtrConst BG.CChar)))
hs_bindgen_fdbd2caae5327fdc :: IO (FunPtr (PtrConst CChar -> IO (PtrConst CChar)))
hs_bindgen_fdbd2caae5327fdc =
(FunPtr Void -> FunPtr (PtrConst CChar -> IO (PtrConst CChar)))
-> IO (FunPtr Void)
-> IO (FunPtr (PtrConst CChar -> IO (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 (PtrConst CChar -> IO (PtrConst CChar))
FFIType (FunPtr (PtrConst CChar -> IO (PtrConst CChar)))
-> FunPtr (PtrConst CChar -> IO (PtrConst CChar))
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_fdbd2caae5327fdc_base
{-# NOINLINE sDL_GetAppMetadataProperty #-}
sDL_GetAppMetadataProperty
:: BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO (PtrConst.PtrConst BG.CChar))
sDL_GetAppMetadataProperty :: FunPtr (PtrConst CChar -> IO (PtrConst CChar))
sDL_GetAppMetadataProperty =
IO (FunPtr (PtrConst CChar -> IO (PtrConst CChar)))
-> FunPtr (PtrConst CChar -> IO (PtrConst CChar))
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (PtrConst CChar -> IO (PtrConst CChar)))
hs_bindgen_fdbd2caae5327fdc