{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.LogShims.Safe (
SDL3.Sys.Bindgen.LogShims.Safe.lithon_SDL_Log,
SDL3.Sys.Bindgen.LogShims.Safe.lithon_SDL_LogTrace,
SDL3.Sys.Bindgen.LogShims.Safe.lithon_SDL_LogVerbose,
SDL3.Sys.Bindgen.LogShims.Safe.lithon_SDL_LogDebug,
SDL3.Sys.Bindgen.LogShims.Safe.lithon_SDL_LogInfo,
SDL3.Sys.Bindgen.LogShims.Safe.lithon_SDL_LogWarn,
SDL3.Sys.Bindgen.LogShims.Safe.lithon_SDL_LogError,
SDL3.Sys.Bindgen.LogShims.Safe.lithon_SDL_LogCritical,
SDL3.Sys.Bindgen.LogShims.Safe.lithon_SDL_LogMessage,
)
where
import Prelude (IO)
import HsBindgen.Runtime.PtrConst qualified as PtrConst
import HsBindgen.Runtime.Support qualified
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>"
, "void hs_bindgen_77328bf34cbcb12f ("
, " char const *arg1"
, ")"
, "{"
, " (lithon_SDL_Log)(arg1);"
, "}"
, "void hs_bindgen_c27ac2cf8645cf4e ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogTrace)(arg1, arg2);"
, "}"
, "void hs_bindgen_fb7600f02da152c8 ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogVerbose)(arg1, arg2);"
, "}"
, "void hs_bindgen_f148577846776bf9 ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogDebug)(arg1, arg2);"
, "}"
, "void hs_bindgen_2768f1e0951fcadc ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogInfo)(arg1, arg2);"
, "}"
, "void hs_bindgen_66494b86233d6dcb ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogWarn)(arg1, arg2);"
, "}"
, "void hs_bindgen_572ce25309240a20 ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogError)(arg1, arg2);"
, "}"
, "void hs_bindgen_05cdf92f853bb365 ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogCritical)(arg1, arg2);"
, "}"
, "void hs_bindgen_a30cd534dfc5a717 ("
, " signed int arg1,"
, " SDL_LogPriority arg2,"
, " char const *arg3"
, ")"
, "{"
, " (lithon_SDL_LogMessage)(arg1, arg2, arg3);"
, "}"
]
)
)
foreign import ccall safe "hs_bindgen_77328bf34cbcb12f"
hs_bindgen_77328bf34cbcb12f_base
:: BG.Ptr BG.Void
-> IO ()
hs_bindgen_77328bf34cbcb12f
:: PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_77328bf34cbcb12f :: PtrConst CChar -> IO ()
hs_bindgen_77328bf34cbcb12f =
\PtrConst CChar
x0 ->
Ptr Void -> IO ()
hs_bindgen_77328bf34cbcb12f_base (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x0)
lithon_SDL_Log
:: PtrConst.PtrConst BG.CChar
-> IO ()
lithon_SDL_Log :: PtrConst CChar -> IO ()
lithon_SDL_Log = PtrConst CChar -> IO ()
hs_bindgen_77328bf34cbcb12f
foreign import ccall safe "hs_bindgen_c27ac2cf8645cf4e"
hs_bindgen_c27ac2cf8645cf4e_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_c27ac2cf8645cf4e
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_c27ac2cf8645cf4e :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_c27ac2cf8645cf4e =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_c27ac2cf8645cf4e_base (CInt -> FFIType CInt
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType CInt
x0) (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x1)
lithon_SDL_LogTrace
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
lithon_SDL_LogTrace :: CInt -> PtrConst CChar -> IO ()
lithon_SDL_LogTrace = CInt -> PtrConst CChar -> IO ()
hs_bindgen_c27ac2cf8645cf4e
foreign import ccall safe "hs_bindgen_fb7600f02da152c8"
hs_bindgen_fb7600f02da152c8_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_fb7600f02da152c8
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_fb7600f02da152c8 :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_fb7600f02da152c8 =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_fb7600f02da152c8_base (CInt -> FFIType CInt
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType CInt
x0) (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x1)
lithon_SDL_LogVerbose
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
lithon_SDL_LogVerbose :: CInt -> PtrConst CChar -> IO ()
lithon_SDL_LogVerbose = CInt -> PtrConst CChar -> IO ()
hs_bindgen_fb7600f02da152c8
foreign import ccall safe "hs_bindgen_f148577846776bf9"
hs_bindgen_f148577846776bf9_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_f148577846776bf9
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_f148577846776bf9 :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_f148577846776bf9 =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_f148577846776bf9_base (CInt -> FFIType CInt
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType CInt
x0) (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x1)
lithon_SDL_LogDebug
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
lithon_SDL_LogDebug :: CInt -> PtrConst CChar -> IO ()
lithon_SDL_LogDebug = CInt -> PtrConst CChar -> IO ()
hs_bindgen_f148577846776bf9
foreign import ccall safe "hs_bindgen_2768f1e0951fcadc"
hs_bindgen_2768f1e0951fcadc_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_2768f1e0951fcadc
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_2768f1e0951fcadc :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_2768f1e0951fcadc =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_2768f1e0951fcadc_base (CInt -> FFIType CInt
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType CInt
x0) (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x1)
lithon_SDL_LogInfo
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
lithon_SDL_LogInfo :: CInt -> PtrConst CChar -> IO ()
lithon_SDL_LogInfo = CInt -> PtrConst CChar -> IO ()
hs_bindgen_2768f1e0951fcadc
foreign import ccall safe "hs_bindgen_66494b86233d6dcb"
hs_bindgen_66494b86233d6dcb_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_66494b86233d6dcb
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_66494b86233d6dcb :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_66494b86233d6dcb =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_66494b86233d6dcb_base (CInt -> FFIType CInt
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType CInt
x0) (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x1)
lithon_SDL_LogWarn
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
lithon_SDL_LogWarn :: CInt -> PtrConst CChar -> IO ()
lithon_SDL_LogWarn = CInt -> PtrConst CChar -> IO ()
hs_bindgen_66494b86233d6dcb
foreign import ccall safe "hs_bindgen_572ce25309240a20"
hs_bindgen_572ce25309240a20_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_572ce25309240a20
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_572ce25309240a20 :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_572ce25309240a20 =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_572ce25309240a20_base (CInt -> FFIType CInt
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType CInt
x0) (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x1)
lithon_SDL_LogError
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
lithon_SDL_LogError :: CInt -> PtrConst CChar -> IO ()
lithon_SDL_LogError = CInt -> PtrConst CChar -> IO ()
hs_bindgen_572ce25309240a20
foreign import ccall safe "hs_bindgen_05cdf92f853bb365"
hs_bindgen_05cdf92f853bb365_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_05cdf92f853bb365
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_05cdf92f853bb365 :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_05cdf92f853bb365 =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_05cdf92f853bb365_base (CInt -> FFIType CInt
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType CInt
x0) (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x1)
lithon_SDL_LogCritical
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
lithon_SDL_LogCritical :: CInt -> PtrConst CChar -> IO ()
lithon_SDL_LogCritical = CInt -> PtrConst CChar -> IO ()
hs_bindgen_05cdf92f853bb365
foreign import ccall safe "hs_bindgen_a30cd534dfc5a717"
hs_bindgen_a30cd534dfc5a717_base
:: BG.CInt
-> HsBindgen.Runtime.Support.CUInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_a30cd534dfc5a717
:: BG.CInt
-> SDL3.Sys.Bindgen.Log.SDL_LogPriority
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_a30cd534dfc5a717 :: CInt -> SDL_LogPriority -> PtrConst CChar -> IO ()
hs_bindgen_a30cd534dfc5a717 =
\CInt
x0 ->
\SDL_LogPriority
x1 ->
\PtrConst CChar
x2 ->
CInt -> CUInt -> Ptr Void -> IO ()
hs_bindgen_a30cd534dfc5a717_base (CInt -> FFIType CInt
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType CInt
x0) (SDL_LogPriority -> FFIType SDL_LogPriority
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType SDL_LogPriority
x1) (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x2)
lithon_SDL_LogMessage
:: BG.CInt
-> SDL3.Sys.Bindgen.Log.SDL_LogPriority
-> PtrConst.PtrConst BG.CChar
-> IO ()
lithon_SDL_LogMessage :: CInt -> SDL_LogPriority -> PtrConst CChar -> IO ()
lithon_SDL_LogMessage = CInt -> SDL_LogPriority -> PtrConst CChar -> IO ()
hs_bindgen_a30cd534dfc5a717