{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.LogShims.FunPtr (
SDL3.Sys.Bindgen.LogShims.FunPtr.lithon_SDL_Log,
SDL3.Sys.Bindgen.LogShims.FunPtr.lithon_SDL_LogTrace,
SDL3.Sys.Bindgen.LogShims.FunPtr.lithon_SDL_LogVerbose,
SDL3.Sys.Bindgen.LogShims.FunPtr.lithon_SDL_LogDebug,
SDL3.Sys.Bindgen.LogShims.FunPtr.lithon_SDL_LogInfo,
SDL3.Sys.Bindgen.LogShims.FunPtr.lithon_SDL_LogWarn,
SDL3.Sys.Bindgen.LogShims.FunPtr.lithon_SDL_LogError,
SDL3.Sys.Bindgen.LogShims.FunPtr.lithon_SDL_LogCritical,
SDL3.Sys.Bindgen.LogShims.FunPtr.lithon_SDL_LogMessage,
)
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.Log 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-bindgen-sys/SDL_log_shims.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.LogShims_get_lithon_SDL_Log */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_02d6bdbfbebbbca7 (void)) ("
, " char const *arg1"
, ")"
, "{"
, " return &lithon_SDL_Log;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.LogShims_get_lithon_SDL_LogTrace */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_b031cd617cf2187e (void)) ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " return &lithon_SDL_LogTrace;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.LogShims_get_lithon_SDL_LogVerbose */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_01baad23ee654b8f (void)) ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " return &lithon_SDL_LogVerbose;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.LogShims_get_lithon_SDL_LogDebug */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_08084e27beae5e62 (void)) ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " return &lithon_SDL_LogDebug;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.LogShims_get_lithon_SDL_LogInfo */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_f187e83788791148 (void)) ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " return &lithon_SDL_LogInfo;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.LogShims_get_lithon_SDL_LogWarn */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_9f1fe5bc35ab0a46 (void)) ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " return &lithon_SDL_LogWarn;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.LogShims_get_lithon_SDL_LogError */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_30365de711cd7fc7 (void)) ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " return &lithon_SDL_LogError;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.LogShims_get_lithon_SDL_LogCritical */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_eeabb1c88587b99c (void)) ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " return &lithon_SDL_LogCritical;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.LogShims_get_lithon_SDL_LogMessage */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_ef67c4a50a42a453 (void)) ("
, " signed int arg1,"
, " SDL_LogPriority arg2,"
, " char const *arg3"
, ")"
, "{"
, " return &lithon_SDL_LogMessage;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_02d6bdbfbebbbca7"
hs_bindgen_02d6bdbfbebbbca7_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_02d6bdbfbebbbca7 :: IO (BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO ()))
hs_bindgen_02d6bdbfbebbbca7 :: IO (FunPtr (PtrConst CChar -> IO ()))
hs_bindgen_02d6bdbfbebbbca7 =
(FunPtr Void -> FunPtr (PtrConst CChar -> IO ()))
-> IO (FunPtr Void) -> IO (FunPtr (PtrConst CChar -> 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 (PtrConst CChar -> IO ())
FFIType (FunPtr (PtrConst CChar -> IO ()))
-> FunPtr (PtrConst CChar -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_02d6bdbfbebbbca7_base
{-# NOINLINE lithon_SDL_Log #-}
lithon_SDL_Log :: BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO ())
lithon_SDL_Log :: FunPtr (PtrConst CChar -> IO ())
lithon_SDL_Log =
IO (FunPtr (PtrConst CChar -> IO ()))
-> FunPtr (PtrConst CChar -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (PtrConst CChar -> IO ()))
hs_bindgen_02d6bdbfbebbbca7
foreign import ccall unsafe "hs_bindgen_b031cd617cf2187e"
hs_bindgen_b031cd617cf2187e_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_b031cd617cf2187e :: IO (BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ()))
hs_bindgen_b031cd617cf2187e :: IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_b031cd617cf2187e =
(FunPtr Void -> FunPtr (CInt -> PtrConst CChar -> IO ()))
-> IO (FunPtr Void)
-> IO (FunPtr (CInt -> PtrConst CChar -> 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 (CInt -> PtrConst CChar -> IO ())
FFIType (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_b031cd617cf2187e_base
{-# NOINLINE lithon_SDL_LogTrace #-}
lithon_SDL_LogTrace :: BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ())
lithon_SDL_LogTrace :: FunPtr (CInt -> PtrConst CChar -> IO ())
lithon_SDL_LogTrace =
IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_b031cd617cf2187e
foreign import ccall unsafe "hs_bindgen_01baad23ee654b8f"
hs_bindgen_01baad23ee654b8f_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_01baad23ee654b8f :: IO (BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ()))
hs_bindgen_01baad23ee654b8f :: IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_01baad23ee654b8f =
(FunPtr Void -> FunPtr (CInt -> PtrConst CChar -> IO ()))
-> IO (FunPtr Void)
-> IO (FunPtr (CInt -> PtrConst CChar -> 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 (CInt -> PtrConst CChar -> IO ())
FFIType (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_01baad23ee654b8f_base
{-# NOINLINE lithon_SDL_LogVerbose #-}
lithon_SDL_LogVerbose :: BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ())
lithon_SDL_LogVerbose :: FunPtr (CInt -> PtrConst CChar -> IO ())
lithon_SDL_LogVerbose =
IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_01baad23ee654b8f
foreign import ccall unsafe "hs_bindgen_08084e27beae5e62"
hs_bindgen_08084e27beae5e62_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_08084e27beae5e62 :: IO (BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ()))
hs_bindgen_08084e27beae5e62 :: IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_08084e27beae5e62 =
(FunPtr Void -> FunPtr (CInt -> PtrConst CChar -> IO ()))
-> IO (FunPtr Void)
-> IO (FunPtr (CInt -> PtrConst CChar -> 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 (CInt -> PtrConst CChar -> IO ())
FFIType (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_08084e27beae5e62_base
{-# NOINLINE lithon_SDL_LogDebug #-}
lithon_SDL_LogDebug :: BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ())
lithon_SDL_LogDebug :: FunPtr (CInt -> PtrConst CChar -> IO ())
lithon_SDL_LogDebug =
IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_08084e27beae5e62
foreign import ccall unsafe "hs_bindgen_f187e83788791148"
hs_bindgen_f187e83788791148_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_f187e83788791148 :: IO (BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ()))
hs_bindgen_f187e83788791148 :: IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_f187e83788791148 =
(FunPtr Void -> FunPtr (CInt -> PtrConst CChar -> IO ()))
-> IO (FunPtr Void)
-> IO (FunPtr (CInt -> PtrConst CChar -> 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 (CInt -> PtrConst CChar -> IO ())
FFIType (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_f187e83788791148_base
{-# NOINLINE lithon_SDL_LogInfo #-}
lithon_SDL_LogInfo :: BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ())
lithon_SDL_LogInfo :: FunPtr (CInt -> PtrConst CChar -> IO ())
lithon_SDL_LogInfo =
IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_f187e83788791148
foreign import ccall unsafe "hs_bindgen_9f1fe5bc35ab0a46"
hs_bindgen_9f1fe5bc35ab0a46_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_9f1fe5bc35ab0a46 :: IO (BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ()))
hs_bindgen_9f1fe5bc35ab0a46 :: IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_9f1fe5bc35ab0a46 =
(FunPtr Void -> FunPtr (CInt -> PtrConst CChar -> IO ()))
-> IO (FunPtr Void)
-> IO (FunPtr (CInt -> PtrConst CChar -> 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 (CInt -> PtrConst CChar -> IO ())
FFIType (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_9f1fe5bc35ab0a46_base
{-# NOINLINE lithon_SDL_LogWarn #-}
lithon_SDL_LogWarn :: BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ())
lithon_SDL_LogWarn :: FunPtr (CInt -> PtrConst CChar -> IO ())
lithon_SDL_LogWarn =
IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_9f1fe5bc35ab0a46
foreign import ccall unsafe "hs_bindgen_30365de711cd7fc7"
hs_bindgen_30365de711cd7fc7_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_30365de711cd7fc7 :: IO (BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ()))
hs_bindgen_30365de711cd7fc7 :: IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_30365de711cd7fc7 =
(FunPtr Void -> FunPtr (CInt -> PtrConst CChar -> IO ()))
-> IO (FunPtr Void)
-> IO (FunPtr (CInt -> PtrConst CChar -> 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 (CInt -> PtrConst CChar -> IO ())
FFIType (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_30365de711cd7fc7_base
{-# NOINLINE lithon_SDL_LogError #-}
lithon_SDL_LogError :: BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ())
lithon_SDL_LogError :: FunPtr (CInt -> PtrConst CChar -> IO ())
lithon_SDL_LogError =
IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_30365de711cd7fc7
foreign import ccall unsafe "hs_bindgen_eeabb1c88587b99c"
hs_bindgen_eeabb1c88587b99c_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_eeabb1c88587b99c :: IO (BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ()))
hs_bindgen_eeabb1c88587b99c :: IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_eeabb1c88587b99c =
(FunPtr Void -> FunPtr (CInt -> PtrConst CChar -> IO ()))
-> IO (FunPtr Void)
-> IO (FunPtr (CInt -> PtrConst CChar -> 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 (CInt -> PtrConst CChar -> IO ())
FFIType (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_eeabb1c88587b99c_base
{-# NOINLINE lithon_SDL_LogCritical #-}
lithon_SDL_LogCritical :: BG.FunPtr (BG.CInt -> PtrConst.PtrConst BG.CChar -> IO ())
lithon_SDL_LogCritical :: FunPtr (CInt -> PtrConst CChar -> IO ())
lithon_SDL_LogCritical =
IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> PtrConst CChar -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (CInt -> PtrConst CChar -> IO ()))
hs_bindgen_eeabb1c88587b99c
foreign import ccall unsafe "hs_bindgen_ef67c4a50a42a453"
hs_bindgen_ef67c4a50a42a453_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_ef67c4a50a42a453
:: IO
(BG.FunPtr (BG.CInt -> SDL3.Sys.Bindgen.Log.SDL_LogPriority -> PtrConst.PtrConst BG.CChar -> IO ()))
hs_bindgen_ef67c4a50a42a453 :: IO (FunPtr (CInt -> SDL_LogPriority -> PtrConst CChar -> IO ()))
hs_bindgen_ef67c4a50a42a453 =
(FunPtr Void
-> FunPtr (CInt -> SDL_LogPriority -> PtrConst CChar -> IO ()))
-> IO (FunPtr Void)
-> IO (FunPtr (CInt -> SDL_LogPriority -> PtrConst CChar -> 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 (CInt -> SDL_LogPriority -> PtrConst CChar -> IO ())
FFIType
(FunPtr (CInt -> SDL_LogPriority -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> SDL_LogPriority -> PtrConst CChar -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_ef67c4a50a42a453_base
{-# NOINLINE lithon_SDL_LogMessage #-}
lithon_SDL_LogMessage
:: BG.FunPtr (BG.CInt -> SDL3.Sys.Bindgen.Log.SDL_LogPriority -> PtrConst.PtrConst BG.CChar -> IO ())
lithon_SDL_LogMessage :: FunPtr (CInt -> SDL_LogPriority -> PtrConst CChar -> IO ())
lithon_SDL_LogMessage =
IO (FunPtr (CInt -> SDL_LogPriority -> PtrConst CChar -> IO ()))
-> FunPtr (CInt -> SDL_LogPriority -> PtrConst CChar -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (CInt -> SDL_LogPriority -> PtrConst CChar -> IO ()))
hs_bindgen_ef67c4a50a42a453