{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Log.Unsafe (
SDL3.Sys.Bindgen.Log.Unsafe.sDL_SetLogPriorities,
SDL3.Sys.Bindgen.Log.Unsafe.sDL_SetLogPriority,
SDL3.Sys.Bindgen.Log.Unsafe.sDL_GetLogPriority,
SDL3.Sys.Bindgen.Log.Unsafe.sDL_ResetLogPriorities,
SDL3.Sys.Bindgen.Log.Unsafe.sDL_SetLogPriorityPrefix,
SDL3.Sys.Bindgen.Log.Unsafe.sDL_GetDefaultLogOutputFunction,
SDL3.Sys.Bindgen.Log.Unsafe.sDL_GetLogOutputFunction,
SDL3.Sys.Bindgen.Log.Unsafe.sDL_SetLogOutputFunction,
)
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
$( 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_log.h>"
, "void hs_bindgen_f026d42937d04ed8 ("
, " SDL_LogPriority arg1"
, ")"
, "{"
, " (SDL_SetLogPriorities)(arg1);"
, "}"
, "void hs_bindgen_e0acc30fc32ccc59 ("
, " signed int arg1,"
, " SDL_LogPriority arg2"
, ")"
, "{"
, " (SDL_SetLogPriority)(arg1, arg2);"
, "}"
, "SDL_LogPriority hs_bindgen_7b5c14a42af4d447 ("
, " signed int arg1"
, ")"
, "{"
, " return (SDL_GetLogPriority)(arg1);"
, "}"
, "void hs_bindgen_dea89eef989102db (void)"
, "{"
, " (SDL_ResetLogPriorities)();"
, "}"
, "_Bool hs_bindgen_27cf84b222a7e17b ("
, " SDL_LogPriority arg1,"
, " char const *arg2"
, ")"
, "{"
, " return (SDL_SetLogPriorityPrefix)(arg1, arg2);"
, "}"
, "SDL_LogOutputFunction hs_bindgen_513e0ffa6c24153a (void)"
, "{"
, " return (SDL_GetDefaultLogOutputFunction)();"
, "}"
, "void hs_bindgen_acd55da6463a4da5 ("
, " SDL_LogOutputFunction *arg1,"
, " void **arg2"
, ")"
, "{"
, " (SDL_GetLogOutputFunction)(arg1, arg2);"
, "}"
, "void hs_bindgen_70ca4187e3666373 ("
, " SDL_LogOutputFunction arg1,"
, " void *arg2"
, ")"
, "{"
, " (SDL_SetLogOutputFunction)(arg1, arg2);"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_f026d42937d04ed8"
hs_bindgen_f026d42937d04ed8_base
:: BG.CUInt
-> IO ()
hs_bindgen_f026d42937d04ed8
:: SDL_LogPriority
-> IO ()
hs_bindgen_f026d42937d04ed8 :: SDL_LogPriority -> IO ()
hs_bindgen_f026d42937d04ed8 =
\SDL_LogPriority
x0 ->
CUInt -> IO ()
hs_bindgen_f026d42937d04ed8_base (SDL_LogPriority -> FFIType SDL_LogPriority
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType SDL_LogPriority
x0)
sDL_SetLogPriorities
:: SDL_LogPriority
-> IO ()
sDL_SetLogPriorities :: SDL_LogPriority -> IO ()
sDL_SetLogPriorities = SDL_LogPriority -> IO ()
hs_bindgen_f026d42937d04ed8
foreign import ccall unsafe "hs_bindgen_e0acc30fc32ccc59"
hs_bindgen_e0acc30fc32ccc59_base
:: BG.CInt
-> BG.CUInt
-> IO ()
hs_bindgen_e0acc30fc32ccc59
:: BG.CInt
-> SDL_LogPriority
-> IO ()
hs_bindgen_e0acc30fc32ccc59 :: CInt -> SDL_LogPriority -> IO ()
hs_bindgen_e0acc30fc32ccc59 =
\CInt
x0 ->
\SDL_LogPriority
x1 ->
CInt -> CUInt -> IO ()
hs_bindgen_e0acc30fc32ccc59_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)
sDL_SetLogPriority
:: BG.CInt
-> SDL_LogPriority
-> IO ()
sDL_SetLogPriority :: CInt -> SDL_LogPriority -> IO ()
sDL_SetLogPriority = CInt -> SDL_LogPriority -> IO ()
hs_bindgen_e0acc30fc32ccc59
foreign import ccall unsafe "hs_bindgen_7b5c14a42af4d447"
hs_bindgen_7b5c14a42af4d447_base
:: BG.CInt
-> IO BG.CUInt
hs_bindgen_7b5c14a42af4d447
:: BG.CInt
-> IO SDL_LogPriority
hs_bindgen_7b5c14a42af4d447 :: CInt -> IO SDL_LogPriority
hs_bindgen_7b5c14a42af4d447 =
\CInt
x0 ->
(CUInt -> SDL_LogPriority) -> IO CUInt -> IO SDL_LogPriority
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CUInt -> SDL_LogPriority
FFIType SDL_LogPriority -> SDL_LogPriority
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (CInt -> IO CUInt
hs_bindgen_7b5c14a42af4d447_base (CInt -> FFIType CInt
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType CInt
x0))
sDL_GetLogPriority
:: BG.CInt
-> IO SDL_LogPriority
sDL_GetLogPriority :: CInt -> IO SDL_LogPriority
sDL_GetLogPriority = CInt -> IO SDL_LogPriority
hs_bindgen_7b5c14a42af4d447
foreign import ccall unsafe "hs_bindgen_dea89eef989102db"
hs_bindgen_dea89eef989102db_base
:: IO ()
hs_bindgen_dea89eef989102db :: IO ()
hs_bindgen_dea89eef989102db :: IO ()
hs_bindgen_dea89eef989102db =
IO ()
hs_bindgen_dea89eef989102db_base
sDL_ResetLogPriorities :: IO ()
sDL_ResetLogPriorities :: IO ()
sDL_ResetLogPriorities = IO ()
hs_bindgen_dea89eef989102db
foreign import ccall unsafe "hs_bindgen_27cf84b222a7e17b"
hs_bindgen_27cf84b222a7e17b_base
:: BG.CUInt
-> BG.Ptr BG.Void
-> IO BG.CBool
hs_bindgen_27cf84b222a7e17b
:: SDL_LogPriority
-> PtrConst.PtrConst BG.CChar
-> IO BG.CBool
hs_bindgen_27cf84b222a7e17b :: SDL_LogPriority -> PtrConst CChar -> IO CBool
hs_bindgen_27cf84b222a7e17b =
\SDL_LogPriority
x0 ->
\PtrConst CChar
x1 ->
(CBool -> CBool) -> IO 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 CBool -> CBool
FFIType CBool -> CBool
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (CUInt -> Ptr Void -> IO CBool
hs_bindgen_27cf84b222a7e17b_base (SDL_LogPriority -> FFIType SDL_LogPriority
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType SDL_LogPriority
x0) (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x1))
sDL_SetLogPriorityPrefix
:: SDL_LogPriority
-> PtrConst.PtrConst BG.CChar
-> IO BG.CBool
sDL_SetLogPriorityPrefix :: SDL_LogPriority -> PtrConst CChar -> IO CBool
sDL_SetLogPriorityPrefix =
SDL_LogPriority -> PtrConst CChar -> IO CBool
hs_bindgen_27cf84b222a7e17b
foreign import ccall unsafe "hs_bindgen_513e0ffa6c24153a"
hs_bindgen_513e0ffa6c24153a_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_513e0ffa6c24153a :: IO SDL_LogOutputFunction
hs_bindgen_513e0ffa6c24153a :: IO SDL_LogOutputFunction
hs_bindgen_513e0ffa6c24153a =
(FunPtr Void -> SDL_LogOutputFunction)
-> IO (FunPtr Void) -> IO SDL_LogOutputFunction
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> SDL_LogOutputFunction
FFIType SDL_LogOutputFunction -> SDL_LogOutputFunction
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_513e0ffa6c24153a_base
sDL_GetDefaultLogOutputFunction :: IO SDL_LogOutputFunction
sDL_GetDefaultLogOutputFunction :: IO SDL_LogOutputFunction
sDL_GetDefaultLogOutputFunction =
IO SDL_LogOutputFunction
hs_bindgen_513e0ffa6c24153a
foreign import ccall unsafe "hs_bindgen_acd55da6463a4da5"
hs_bindgen_acd55da6463a4da5_base
:: BG.Ptr BG.Void
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_acd55da6463a4da5
:: BG.Ptr SDL_LogOutputFunction
-> BG.Ptr (BG.Ptr BG.Void)
-> IO ()
hs_bindgen_acd55da6463a4da5 :: Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ()
hs_bindgen_acd55da6463a4da5 =
\Ptr SDL_LogOutputFunction
x0 ->
\Ptr (Ptr Void)
x1 ->
Ptr Void -> Ptr Void -> IO ()
hs_bindgen_acd55da6463a4da5_base (Ptr SDL_LogOutputFunction -> FFIType (Ptr SDL_LogOutputFunction)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType Ptr SDL_LogOutputFunction
x0) (Ptr (Ptr Void) -> FFIType (Ptr (Ptr Void))
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType Ptr (Ptr Void)
x1)
sDL_GetLogOutputFunction
:: BG.Ptr SDL_LogOutputFunction
-> BG.Ptr (BG.Ptr BG.Void)
-> IO ()
sDL_GetLogOutputFunction :: Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ()
sDL_GetLogOutputFunction =
Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ()
hs_bindgen_acd55da6463a4da5
foreign import ccall unsafe "hs_bindgen_70ca4187e3666373"
hs_bindgen_70ca4187e3666373_base
:: BG.FunPtr BG.Void
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_70ca4187e3666373
:: SDL_LogOutputFunction
-> BG.Ptr BG.Void
-> IO ()
hs_bindgen_70ca4187e3666373 :: SDL_LogOutputFunction -> Ptr Void -> IO ()
hs_bindgen_70ca4187e3666373 =
\SDL_LogOutputFunction
x0 ->
\Ptr Void
x1 ->
FunPtr Void -> Ptr Void -> IO ()
hs_bindgen_70ca4187e3666373_base (SDL_LogOutputFunction -> FFIType SDL_LogOutputFunction
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType SDL_LogOutputFunction
x0) (Ptr Void -> FFIType (Ptr Void)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType Ptr Void
x1)
sDL_SetLogOutputFunction
:: SDL_LogOutputFunction
-> BG.Ptr BG.Void
-> IO ()
sDL_SetLogOutputFunction :: SDL_LogOutputFunction -> Ptr Void -> IO ()
sDL_SetLogOutputFunction =
SDL_LogOutputFunction -> Ptr Void -> IO ()
hs_bindgen_70ca4187e3666373