{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.LogShims.Unsafe (
SDL3.Sys.Bindgen.LogShims.Unsafe.lithon_SDL_Log,
SDL3.Sys.Bindgen.LogShims.Unsafe.lithon_SDL_LogTrace,
SDL3.Sys.Bindgen.LogShims.Unsafe.lithon_SDL_LogVerbose,
SDL3.Sys.Bindgen.LogShims.Unsafe.lithon_SDL_LogDebug,
SDL3.Sys.Bindgen.LogShims.Unsafe.lithon_SDL_LogInfo,
SDL3.Sys.Bindgen.LogShims.Unsafe.lithon_SDL_LogWarn,
SDL3.Sys.Bindgen.LogShims.Unsafe.lithon_SDL_LogError,
SDL3.Sys.Bindgen.LogShims.Unsafe.lithon_SDL_LogCritical,
SDL3.Sys.Bindgen.LogShims.Unsafe.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_8dfd7b8bce88ad39 ("
, " char const *arg1"
, ")"
, "{"
, " (lithon_SDL_Log)(arg1);"
, "}"
, "void hs_bindgen_a7827e45bd90cb5f ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogTrace)(arg1, arg2);"
, "}"
, "void hs_bindgen_ca6920acb1e64cad ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogVerbose)(arg1, arg2);"
, "}"
, "void hs_bindgen_4974933fe657d7e9 ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogDebug)(arg1, arg2);"
, "}"
, "void hs_bindgen_fe8c851bf2e61192 ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogInfo)(arg1, arg2);"
, "}"
, "void hs_bindgen_0319cb2ab6ab63fe ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogWarn)(arg1, arg2);"
, "}"
, "void hs_bindgen_2d4be7c76c8e7b9f ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogError)(arg1, arg2);"
, "}"
, "void hs_bindgen_32798034ebddbe4a ("
, " signed int arg1,"
, " char const *arg2"
, ")"
, "{"
, " (lithon_SDL_LogCritical)(arg1, arg2);"
, "}"
, "void hs_bindgen_fff93b576b3812cd ("
, " signed int arg1,"
, " SDL_LogPriority arg2,"
, " char const *arg3"
, ")"
, "{"
, " (lithon_SDL_LogMessage)(arg1, arg2, arg3);"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_8dfd7b8bce88ad39"
hs_bindgen_8dfd7b8bce88ad39_base
:: BG.Ptr BG.Void
-> IO ()
hs_bindgen_8dfd7b8bce88ad39
:: PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_8dfd7b8bce88ad39 :: PtrConst CChar -> IO ()
hs_bindgen_8dfd7b8bce88ad39 =
\PtrConst CChar
x0 ->
Ptr Void -> IO ()
hs_bindgen_8dfd7b8bce88ad39_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_8dfd7b8bce88ad39
foreign import ccall unsafe "hs_bindgen_a7827e45bd90cb5f"
hs_bindgen_a7827e45bd90cb5f_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_a7827e45bd90cb5f
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_a7827e45bd90cb5f :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_a7827e45bd90cb5f =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_a7827e45bd90cb5f_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_a7827e45bd90cb5f
foreign import ccall unsafe "hs_bindgen_ca6920acb1e64cad"
hs_bindgen_ca6920acb1e64cad_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_ca6920acb1e64cad
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_ca6920acb1e64cad :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_ca6920acb1e64cad =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_ca6920acb1e64cad_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_ca6920acb1e64cad
foreign import ccall unsafe "hs_bindgen_4974933fe657d7e9"
hs_bindgen_4974933fe657d7e9_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_4974933fe657d7e9
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_4974933fe657d7e9 :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_4974933fe657d7e9 =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_4974933fe657d7e9_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_4974933fe657d7e9
foreign import ccall unsafe "hs_bindgen_fe8c851bf2e61192"
hs_bindgen_fe8c851bf2e61192_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_fe8c851bf2e61192
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_fe8c851bf2e61192 :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_fe8c851bf2e61192 =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_fe8c851bf2e61192_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_fe8c851bf2e61192
foreign import ccall unsafe "hs_bindgen_0319cb2ab6ab63fe"
hs_bindgen_0319cb2ab6ab63fe_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_0319cb2ab6ab63fe
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_0319cb2ab6ab63fe :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_0319cb2ab6ab63fe =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_0319cb2ab6ab63fe_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_0319cb2ab6ab63fe
foreign import ccall unsafe "hs_bindgen_2d4be7c76c8e7b9f"
hs_bindgen_2d4be7c76c8e7b9f_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_2d4be7c76c8e7b9f
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_2d4be7c76c8e7b9f :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_2d4be7c76c8e7b9f =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_2d4be7c76c8e7b9f_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_2d4be7c76c8e7b9f
foreign import ccall unsafe "hs_bindgen_32798034ebddbe4a"
hs_bindgen_32798034ebddbe4a_base
:: BG.CInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_32798034ebddbe4a
:: BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_32798034ebddbe4a :: CInt -> PtrConst CChar -> IO ()
hs_bindgen_32798034ebddbe4a =
\CInt
x0 ->
\PtrConst CChar
x1 ->
CInt -> Ptr Void -> IO ()
hs_bindgen_32798034ebddbe4a_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_32798034ebddbe4a
foreign import ccall unsafe "hs_bindgen_fff93b576b3812cd"
hs_bindgen_fff93b576b3812cd_base
:: BG.CInt
-> HsBindgen.Runtime.Support.CUInt
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_fff93b576b3812cd
:: BG.CInt
-> SDL3.Sys.Bindgen.Log.SDL_LogPriority
-> PtrConst.PtrConst BG.CChar
-> IO ()
hs_bindgen_fff93b576b3812cd :: CInt -> SDL_LogPriority -> PtrConst CChar -> IO ()
hs_bindgen_fff93b576b3812cd =
\CInt
x0 ->
\SDL_LogPriority
x1 ->
\PtrConst CChar
x2 ->
CInt -> CUInt -> Ptr Void -> IO ()
hs_bindgen_fff93b576b3812cd_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_fff93b576b3812cd