{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Main.FunPtr (
SDL3.Sys.Bindgen.Main.FunPtr.sDL_SetMainReady,
SDL3.Sys.Bindgen.Main.FunPtr.sDL_RunApp,
SDL3.Sys.Bindgen.Main.FunPtr.sDL_EnterAppMainCallbacks,
SDL3.Sys.Bindgen.Main.FunPtr.sDL_GDKSuspendComplete,
)
where
import Prelude (IO, fmap)
import HsBindgen.Runtime.IncompleteArray qualified as IA
import HsBindgen.Runtime.IsArray qualified as IsA
import HsBindgen.Runtime.Support qualified as BG
import HsBindgen.Runtime.Support.CAPI qualified
import SDL3.Sys.Bindgen.Init qualified
import SDL3.Sys.Bindgen.Main
$( 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_main.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Main_get_SDL_SetMainReady */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_a748be6c08507093 (void)) (void)"
, "{"
, " return &SDL_SetMainReady;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Main_get_SDL_RunApp */"
, "__attribute__ ((const))"
, "signed int (*hs_bindgen_9ddd66f3bccdd116 (void)) ("
, " signed int arg1,"
, " char **arg2,"
, " SDL_main_func arg3,"
, " void *arg4"
, ")"
, "{"
, " return &SDL_RunApp;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Main_get_SDL_EnterAppMainCallbacks */"
, "__attribute__ ((const))"
, "signed int (*hs_bindgen_50b435e689e12498 (void)) ("
, " signed int arg1,"
, " char **arg2,"
, " SDL_AppInit_func arg3,"
, " SDL_AppIterate_func arg4,"
, " SDL_AppEvent_func arg5,"
, " SDL_AppQuit_func arg6"
, ")"
, "{"
, " return &SDL_EnterAppMainCallbacks;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Main_get_SDL_GDKSuspendComplete */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_07ea6ee797596218 (void)) (void)"
, "{"
, " return &SDL_GDKSuspendComplete;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_a748be6c08507093"
hs_bindgen_a748be6c08507093_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_a748be6c08507093 :: IO (BG.FunPtr (IO ()))
hs_bindgen_a748be6c08507093 :: IO (FunPtr (IO ()))
hs_bindgen_a748be6c08507093 =
(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_a748be6c08507093_base
{-# NOINLINE sDL_SetMainReady #-}
sDL_SetMainReady :: BG.FunPtr (IO ())
sDL_SetMainReady :: FunPtr (IO ())
sDL_SetMainReady =
IO (FunPtr (IO ())) -> FunPtr (IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (IO ()))
hs_bindgen_a748be6c08507093
foreign import ccall unsafe "hs_bindgen_9ddd66f3bccdd116"
hs_bindgen_9ddd66f3bccdd116_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_9ddd66f3bccdd116
:: IO
( BG.FunPtr
( BG.CInt
-> BG.Ptr (IsA.Elem (IA.IncompleteArray (BG.Ptr BG.CChar)))
-> SDL_main_func
-> BG.Ptr BG.Void
-> IO BG.CInt
)
)
hs_bindgen_9ddd66f3bccdd116 :: IO
(FunPtr
(CInt
-> Ptr (Elem (IncompleteArray (Ptr CChar)))
-> SDL_main_func
-> Ptr Void
-> IO CInt))
hs_bindgen_9ddd66f3bccdd116 =
(FunPtr Void
-> FunPtr
(CInt -> Ptr (Ptr CChar) -> SDL_main_func -> Ptr Void -> IO CInt))
-> IO (FunPtr Void)
-> IO
(FunPtr
(CInt -> Ptr (Ptr CChar) -> SDL_main_func -> Ptr Void -> IO CInt))
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
(CInt -> Ptr (Ptr CChar) -> SDL_main_func -> Ptr Void -> IO CInt)
FFIType
(FunPtr
(CInt -> Ptr (Ptr CChar) -> SDL_main_func -> Ptr Void -> IO CInt))
-> FunPtr
(CInt -> Ptr (Ptr CChar) -> SDL_main_func -> Ptr Void -> IO CInt)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_9ddd66f3bccdd116_base
{-# NOINLINE sDL_RunApp #-}
sDL_RunApp
:: BG.FunPtr
( BG.CInt
-> BG.Ptr (IsA.Elem (IA.IncompleteArray (BG.Ptr BG.CChar)))
-> SDL_main_func
-> BG.Ptr BG.Void
-> IO BG.CInt
)
sDL_RunApp :: FunPtr
(CInt
-> Ptr (Elem (IncompleteArray (Ptr CChar)))
-> SDL_main_func
-> Ptr Void
-> IO CInt)
sDL_RunApp =
IO
(FunPtr
(CInt -> Ptr (Ptr CChar) -> SDL_main_func -> Ptr Void -> IO CInt))
-> FunPtr
(CInt -> Ptr (Ptr CChar) -> SDL_main_func -> Ptr Void -> IO CInt)
forall a. IO a -> a
BG.unsafePerformIO IO
(FunPtr
(CInt -> Ptr (Ptr CChar) -> SDL_main_func -> Ptr Void -> IO CInt))
IO
(FunPtr
(CInt
-> Ptr (Elem (IncompleteArray (Ptr CChar)))
-> SDL_main_func
-> Ptr Void
-> IO CInt))
hs_bindgen_9ddd66f3bccdd116
foreign import ccall unsafe "hs_bindgen_50b435e689e12498"
hs_bindgen_50b435e689e12498_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_50b435e689e12498
:: IO
( BG.FunPtr
( BG.CInt
-> BG.Ptr (IsA.Elem (IA.IncompleteArray (BG.Ptr BG.CChar)))
-> SDL3.Sys.Bindgen.Init.SDL_AppInit_func
-> SDL3.Sys.Bindgen.Init.SDL_AppIterate_func
-> SDL3.Sys.Bindgen.Init.SDL_AppEvent_func
-> SDL3.Sys.Bindgen.Init.SDL_AppQuit_func
-> IO BG.CInt
)
)
hs_bindgen_50b435e689e12498 :: IO
(FunPtr
(CInt
-> Ptr (Elem (IncompleteArray (Ptr CChar)))
-> SDL_AppInit_func
-> SDL_AppIterate_func
-> SDL_AppEvent_func
-> SDL_AppQuit_func
-> IO CInt))
hs_bindgen_50b435e689e12498 =
(FunPtr Void
-> FunPtr
(CInt
-> Ptr (Ptr CChar)
-> SDL_AppInit_func
-> SDL_AppIterate_func
-> SDL_AppEvent_func
-> SDL_AppQuit_func
-> IO CInt))
-> IO (FunPtr Void)
-> IO
(FunPtr
(CInt
-> Ptr (Ptr CChar)
-> SDL_AppInit_func
-> SDL_AppIterate_func
-> SDL_AppEvent_func
-> SDL_AppQuit_func
-> IO CInt))
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
(CInt
-> Ptr (Ptr CChar)
-> SDL_AppInit_func
-> SDL_AppIterate_func
-> SDL_AppEvent_func
-> SDL_AppQuit_func
-> IO CInt)
FFIType
(FunPtr
(CInt
-> Ptr (Ptr CChar)
-> SDL_AppInit_func
-> SDL_AppIterate_func
-> SDL_AppEvent_func
-> SDL_AppQuit_func
-> IO CInt))
-> FunPtr
(CInt
-> Ptr (Ptr CChar)
-> SDL_AppInit_func
-> SDL_AppIterate_func
-> SDL_AppEvent_func
-> SDL_AppQuit_func
-> IO CInt)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_50b435e689e12498_base
{-# NOINLINE sDL_EnterAppMainCallbacks #-}
sDL_EnterAppMainCallbacks
:: BG.FunPtr
( BG.CInt
-> BG.Ptr (IsA.Elem (IA.IncompleteArray (BG.Ptr BG.CChar)))
-> SDL3.Sys.Bindgen.Init.SDL_AppInit_func
-> SDL3.Sys.Bindgen.Init.SDL_AppIterate_func
-> SDL3.Sys.Bindgen.Init.SDL_AppEvent_func
-> SDL3.Sys.Bindgen.Init.SDL_AppQuit_func
-> IO BG.CInt
)
sDL_EnterAppMainCallbacks :: FunPtr
(CInt
-> Ptr (Elem (IncompleteArray (Ptr CChar)))
-> SDL_AppInit_func
-> SDL_AppIterate_func
-> SDL_AppEvent_func
-> SDL_AppQuit_func
-> IO CInt)
sDL_EnterAppMainCallbacks =
IO
(FunPtr
(CInt
-> Ptr (Ptr CChar)
-> SDL_AppInit_func
-> SDL_AppIterate_func
-> SDL_AppEvent_func
-> SDL_AppQuit_func
-> IO CInt))
-> FunPtr
(CInt
-> Ptr (Ptr CChar)
-> SDL_AppInit_func
-> SDL_AppIterate_func
-> SDL_AppEvent_func
-> SDL_AppQuit_func
-> IO CInt)
forall a. IO a -> a
BG.unsafePerformIO IO
(FunPtr
(CInt
-> Ptr (Ptr CChar)
-> SDL_AppInit_func
-> SDL_AppIterate_func
-> SDL_AppEvent_func
-> SDL_AppQuit_func
-> IO CInt))
IO
(FunPtr
(CInt
-> Ptr (Elem (IncompleteArray (Ptr CChar)))
-> SDL_AppInit_func
-> SDL_AppIterate_func
-> SDL_AppEvent_func
-> SDL_AppQuit_func
-> IO CInt))
hs_bindgen_50b435e689e12498
foreign import ccall unsafe "hs_bindgen_07ea6ee797596218"
hs_bindgen_07ea6ee797596218_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_07ea6ee797596218 :: IO (BG.FunPtr (IO ()))
hs_bindgen_07ea6ee797596218 :: IO (FunPtr (IO ()))
hs_bindgen_07ea6ee797596218 =
(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_07ea6ee797596218_base
{-# NOINLINE sDL_GDKSuspendComplete #-}
sDL_GDKSuspendComplete :: BG.FunPtr (IO ())
sDL_GDKSuspendComplete :: FunPtr (IO ())
sDL_GDKSuspendComplete =
IO (FunPtr (IO ())) -> FunPtr (IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (IO ()))
hs_bindgen_07ea6ee797596218